/* 
 * tclBinary.c --
 *
 *	This file contains the implementation of the "binary" Tcl built-in
 *	command and the Tcl binary data object.
 *
 * Copyright (c) 1997 by Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclBinary.c,v 1.1.2.2 1998/09/24 23:58:41 stanton Exp $
 * RCS: @(#) $Id: tclBinary.c,v 1.1.2.3 1999/02/10 23:31:13 stanton Exp $
 */

#include <math.h>
#include "tclInt.h"
#include "tclPort.h"

/*

				if (src[size-1] != '\0' && src[size-1] != ' ') {
				    break;
				}
				size--;
			    }
			}
			valuePtr = Tcl_NewByteArrayObj(src, size);
			resultPtr = Tcl_SetObjVar2(interp,
			resultPtr = Tcl_ObjSetVar2(interp, objv[arg],
				Tcl_GetString(objv[arg]),
				NULL, valuePtr,
				NULL, valuePtr, TCL_LEAVE_ERR_MSG);
				TCL_LEAVE_ERR_MSG);
			arg++;
			if (resultPtr == NULL) {
			    Tcl_DecrRefCount(valuePtr);	/* unneeded */
			    return TCL_ERROR;
			}
			offset += count;
			break;

				} else {
				    value = *src++;
				}
				*dest++ = (char) ((value & 0x80) ? '1' : '0');
			    }
			}
			
			resultPtr = Tcl_SetObjVar2(interp,
			resultPtr = Tcl_ObjSetVar2(interp, objv[arg],
				Tcl_GetString(objv[arg]),
				NULL, valuePtr,
				NULL, valuePtr, TCL_LEAVE_ERR_MSG);
				TCL_LEAVE_ERR_MSG);
			arg++;
			if (resultPtr == NULL) {
			    Tcl_DecrRefCount(valuePtr);	/* unneeded */
			    return TCL_ERROR;
			}
			offset += (count + 7 ) / 8;
			break;

				} else {
				    value = *src++;
				}
				*dest++ = hexdigit[(value >> 4) & 0xf];
			    }
			}
			
			resultPtr = Tcl_SetObjVar2(interp,
			resultPtr = Tcl_ObjSetVar2(interp, objv[arg],
				Tcl_GetString(objv[arg]),
				NULL, valuePtr,
				NULL, valuePtr, TCL_LEAVE_ERR_MSG);
				TCL_LEAVE_ERR_MSG);
			arg++;
			if (resultPtr == NULL) {
			    Tcl_DecrRefCount(valuePtr);	/* unneeded */
			    return TCL_ERROR;
			}
			offset += (count + 1) / 2;
			break;

				src += size;
				Tcl_ListObjAppendElement(NULL, valuePtr,
					elementPtr);
			    }
			    offset += count*size;
			}

			resultPtr = Tcl_SetObjVar2(interp,
			resultPtr = Tcl_ObjSetVar2(interp, objv[arg],
				Tcl_GetString(objv[arg]),
				NULL, valuePtr,
				NULL, valuePtr, TCL_LEAVE_ERR_MSG);
				TCL_LEAVE_ERR_MSG);
			arg++;
			if (resultPtr == NULL) {
			    Tcl_DecrRefCount(valuePtr);	/* unneeded */
			    return TCL_ERROR;
			}
			break;
		    }