Attachment "1565751.patch" to
ticket [1565751fff]
added by
dgp
2006-10-02 23:34:40.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 42 69 6e 61 72 79 2e 63 0a 3d 3d 3d 3d 3d clBinary.c.=====
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
0060: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
0070: 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 t/tcl/tcl/generi
0080: 63 2f 74 63 6c 42 69 6e 61 72 79 2e 63 2c 76 0a c/tclBinary.c,v.
0090: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
00a0: 69 6f 6e 20 31 2e 32 39 0a 64 69 66 66 20 2d 75 ion 1.29.diff -u
00b0: 20 2d 72 31 2e 32 39 20 74 63 6c 42 69 6e 61 72 -r1.29 tclBinar
00c0: 79 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f y.c.--- generic/
00d0: 74 63 6c 42 69 6e 61 72 79 2e 63 09 31 30 20 41 tclBinary.c.10 A
00e0: 75 67 20 32 30 30 36 20 31 32 3a 31 35 3a 33 30 ug 2006 12:15:30
00f0: 20 2d 30 30 30 30 09 31 2e 32 39 0a 2b 2b 2b 20 -0000.1.29.+++
0100: 67 65 6e 65 72 69 63 2f 74 63 6c 42 69 6e 61 72 generic/tclBinar
0110: 79 2e 63 09 32 20 4f 63 74 20 32 30 30 36 20 31 y.c.2 Oct 2006 1
0120: 36 3a 33 32 3a 33 37 20 2d 30 30 30 30 0a 40 40 6:32:37 -0000.@@
0130: 20 2d 31 34 2c 36 20 2b 31 34 2c 37 20 40 40 0a -14,6 +14,7 @@.
0140: 20 20 2a 2f 0a 20 0a 20 23 69 6e 63 6c 75 64 65 */. . #include
0150: 20 22 74 63 6c 49 6e 74 2e 68 22 0a 2b 23 69 6e "tclInt.h".+#in
0160: 63 6c 75 64 65 20 22 74 63 6c 54 6f 6d 4d 61 74 clude "tclTomMat
0170: 68 2e 68 22 0a 20 0a 20 23 69 6e 63 6c 75 64 65 h.h". . #include
0180: 20 3c 6d 61 74 68 2e 68 3e 0a 20 0a 40 40 20 2d <math.h>. .@@ -
0190: 32 36 2c 36 20 2b 32 37 2c 31 33 20 40 40 0a 20 26,6 +27,13 @@.
01a0: 23 64 65 66 69 6e 65 20 42 49 4e 41 52 59 5f 4e #define BINARY_N
01b0: 4f 43 4f 55 4e 54 20 2d 32 09 2f 2a 20 4e 6f 20 OCOUNT -2./* No
01c0: 63 6f 75 6e 74 20 77 61 73 20 73 70 65 63 69 66 count was specif
01d0: 69 65 64 20 69 6e 20 66 6f 72 6d 61 74 2e 20 2a ied in format. *
01e0: 2f 0a 20 0a 20 2f 2a 0a 2b 20 2a 20 54 68 65 20 /. . /*.+ * The
01f0: 66 6f 6c 6c 6f 77 69 6e 67 20 66 6c 61 67 73 20 following flags
0200: 6d 61 79 20 62 65 20 4f 52 65 64 20 74 6f 67 65 may be ORed toge
0210: 74 68 65 72 20 61 6e 64 20 72 65 74 75 72 6e 65 ther and returne
0220: 64 20 62 79 20 47 65 74 46 6f 72 6d 61 74 53 70 d by GetFormatSp
0230: 65 63 0a 2b 20 2a 2f 0a 2b 0a 2b 23 64 65 66 69 ec.+ */.+.+#defi
0240: 6e 65 20 42 49 4e 41 52 59 5f 53 49 47 4e 45 44 ne BINARY_SIGNED
0250: 20 30 09 09 2f 2a 20 46 69 65 6c 64 20 74 6f 20 0../* Field to
0260: 62 65 20 72 65 61 64 20 61 73 20 73 69 67 6e 65 be read as signe
0270: 64 20 64 61 74 61 20 2a 2f 0a 2b 23 64 65 66 69 d data */.+#defi
0280: 6e 65 20 42 49 4e 41 52 59 5f 55 4e 53 49 47 4e ne BINARY_UNSIGN
0290: 45 44 20 31 09 2f 2a 20 46 69 65 6c 64 20 74 6f ED 1./* Field to
02a0: 20 62 65 20 72 65 61 64 20 61 73 20 75 6e 73 69 be read as unsi
02b0: 67 6e 65 64 20 64 61 74 61 20 2a 2f 0a 2b 0a 2b gned data */.+.+
02c0: 2f 2a 0a 20 20 2a 20 54 68 65 20 66 6f 6c 6c 6f /*. * The follo
02d0: 77 69 6e 67 20 64 65 66 69 6e 65 73 20 74 68 65 wing defines the
02e0: 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 maximum number
02f0: 6f 66 20 64 69 66 66 65 72 65 6e 74 20 28 69 6e of different (in
0300: 74 65 67 65 72 29 20 6e 75 6d 62 65 72 73 0a 20 teger) numbers.
0310: 20 2a 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 * placed in the
0320: 20 6f 62 6a 65 63 74 20 63 61 63 68 65 20 62 79 object cache by
0330: 20 27 62 69 6e 61 72 79 20 73 63 61 6e 27 20 62 'binary scan' b
0340: 65 66 6f 72 65 20 69 74 20 62 61 69 6c 73 20 6f efore it bails o
0350: 75 74 20 61 6e 64 0a 20 20 2a 20 73 77 69 74 63 ut and. * switc
0360: 68 65 73 20 62 61 63 6b 20 74 6f 20 50 6c 61 6e hes back to Plan
0370: 20 41 20 28 63 72 65 61 74 69 6e 67 20 61 20 6e A (creating a n
0380: 65 77 20 6f 62 6a 65 63 74 20 66 6f 72 20 65 61 ew object for ea
0390: 63 68 20 76 61 6c 75 65 2e 29 0a 40 40 20 2d 35 ch value.).@@ -5
03a0: 34 2c 39 20 2b 36 32 2c 39 20 40 40 0a 20 09 09 4,9 +62,9 @@. ..
03b0: 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 72 . Tcl_Obj *sr
03c0: 63 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 c, unsigned char
03d0: 20 2a 2a 63 75 72 73 6f 72 50 74 72 29 3b 0a 20 **cursorPtr);.
03e0: 73 74 61 74 69 63 20 76 6f 69 64 09 09 46 72 65 static void..Fre
03f0: 65 42 79 74 65 41 72 72 61 79 49 6e 74 65 72 6e eByteArrayIntern
0400: 61 6c 52 65 70 28 54 63 6c 5f 4f 62 6a 20 2a 6f alRep(Tcl_Obj *o
0410: 62 6a 50 74 72 29 3b 0a 20 73 74 61 74 69 63 20 bjPtr);. static
0420: 69 6e 74 09 09 47 65 74 46 6f 72 6d 61 74 53 70 int..GetFormatSp
0430: 65 63 28 63 68 61 72 20 2a 2a 66 6f 72 6d 61 74 ec(char **format
0440: 50 74 72 2c 20 63 68 61 72 20 2a 63 6d 64 50 74 Ptr, char *cmdPt
0450: 72 2c 0a 2d 09 09 09 20 20 20 20 69 6e 74 20 2a r,.-... int *
0460: 63 6f 75 6e 74 50 74 72 29 3b 0a 2b 09 09 09 20 countPtr);.+...
0470: 20 20 20 69 6e 74 20 2a 63 6f 75 6e 74 50 74 72 int *countPtr
0480: 2c 20 69 6e 74 20 2a 66 6c 61 67 73 50 74 72 29 , int *flagsPtr)
0490: 3b 0a 20 73 74 61 74 69 63 20 54 63 6c 5f 4f 62 ;. static Tcl_Ob
04a0: 6a 20 2a 09 53 63 61 6e 4e 75 6d 62 65 72 28 75 j *.ScanNumber(u
04b0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 62 75 nsigned char *bu
04c0: 66 66 65 72 2c 20 69 6e 74 20 74 79 70 65 2c 0a ffer, int type,.
04d0: 2d 09 09 09 20 20 20 20 54 63 6c 5f 48 61 73 68 -... Tcl_Hash
04e0: 54 61 62 6c 65 20 2a 2a 6e 75 6d 62 65 72 43 61 Table **numberCa
04f0: 63 68 65 50 74 72 29 3b 0a 2b 09 09 09 20 20 20 chePtr);.+...
0500: 20 69 6e 74 20 66 6c 61 67 73 2c 20 54 63 6c 5f int flags, Tcl_
0510: 48 61 73 68 54 61 62 6c 65 20 2a 2a 6e 75 6d 62 HashTable **numb
0520: 65 72 43 61 63 68 65 50 74 72 29 3b 0a 20 73 74 erCachePtr);. st
0530: 61 74 69 63 20 69 6e 74 09 09 53 65 74 42 79 74 atic int..SetByt
0540: 65 41 72 72 61 79 46 72 6f 6d 41 6e 79 28 54 63 eArrayFromAny(Tc
0550: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0560: 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 ,. ... Tcl_Ob
0570: 6a 20 2a 6f 62 6a 50 74 72 29 3b 0a 20 73 74 61 j *objPtr);. sta
0580: 74 69 63 20 76 6f 69 64 09 09 55 70 64 61 74 65 tic void..Update
0590: 53 74 72 69 6e 67 4f 66 42 79 74 65 41 72 72 61 StringOfByteArra
05a0: 79 28 54 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 50 y(Tcl_Obj *listP
05b0: 74 72 29 3b 0a 40 40 20 2d 35 36 33 2c 36 20 2b tr);.@@ -563,6 +
05c0: 35 37 31 2c 37 20 40 40 0a 20 20 20 20 20 63 68 571,7 @@. ch
05d0: 61 72 20 63 6d 64 3b 09 09 09 2f 2a 20 43 75 72 ar cmd;.../* Cur
05e0: 72 65 6e 74 20 66 6f 72 6d 61 74 20 63 68 61 72 rent format char
05f0: 61 63 74 65 72 2e 20 2a 2f 0a 20 20 20 20 20 69 acter. */. i
0600: 6e 74 20 63 6f 75 6e 74 3b 09 09 09 2f 2a 20 43 nt count;.../* C
0610: 6f 75 6e 74 20 61 73 73 6f 63 69 61 74 65 64 20 ount associated
0620: 77 69 74 68 20 63 75 72 72 65 6e 74 20 66 6f 72 with current for
0630: 6d 61 74 0a 20 09 09 09 09 20 2a 20 63 68 61 72 mat. .... * char
0640: 61 63 74 65 72 2e 20 2a 2f 0a 2b 20 20 20 20 69 acter. */.+ i
0650: 6e 74 20 66 6c 61 67 73 3b 09 09 09 2f 2a 20 46 nt flags;.../* F
0660: 6f 72 6d 61 74 20 66 69 65 6c 64 20 66 6c 61 67 ormat field flag
0670: 73 20 2a 2f 0a 20 20 20 20 20 63 68 61 72 20 2a s */. char *
0680: 66 6f 72 6d 61 74 3b 09 09 2f 2a 20 50 6f 69 6e format;../* Poin
0690: 74 65 72 20 74 6f 20 63 75 72 72 65 6e 74 20 70 ter to current p
06a0: 6f 73 69 74 69 6f 6e 20 69 6e 20 66 6f 72 6d 61 osition in forma
06b0: 74 0a 20 09 09 09 09 20 2a 20 73 74 72 69 6e 67 t. .... * string
06c0: 2e 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 . */. Tcl_Ob
06d0: 6a 20 2a 72 65 73 75 6c 74 50 74 72 20 3d 20 4e j *resultPtr = N
06e0: 55 4c 4c 3b 09 2f 2a 20 4f 62 6a 65 63 74 20 68 ULL;./* Object h
06f0: 6f 6c 64 69 6e 67 20 72 65 73 75 6c 74 20 62 75 olding result bu
0700: 66 66 65 72 2e 20 2a 2f 0a 40 40 20 2d 36 30 38 ffer. */.@@ -608
0710: 2c 37 20 2b 36 31 37 2c 38 20 40 40 0a 20 09 6c ,7 +617,8 @@. .l
0720: 65 6e 67 74 68 20 3d 20 30 3b 0a 20 09 77 68 69 ength = 0;. .whi
0730: 6c 65 20 28 2a 66 6f 72 6d 61 74 20 21 3d 20 27 le (*format != '
0740: 5c 30 27 29 20 7b 0a 20 09 20 20 20 20 73 74 72 \0') {. . str
0750: 20 3d 20 66 6f 72 6d 61 74 3b 0a 2d 09 20 20 20 = format;.-.
0760: 20 69 66 20 28 21 47 65 74 46 6f 72 6d 61 74 53 if (!GetFormatS
0770: 70 65 63 28 26 66 6f 72 6d 61 74 2c 20 26 63 6d pec(&format, &cm
0780: 64 2c 20 26 63 6f 75 6e 74 29 29 20 7b 0a 2b 09 d, &count)) {.+.
0790: 20 20 20 20 66 6c 61 67 73 20 3d 20 30 3b 0a 2b flags = 0;.+
07a0: 09 20 20 20 20 69 66 20 28 21 47 65 74 46 6f 72 . if (!GetFor
07b0: 6d 61 74 53 70 65 63 28 26 66 6f 72 6d 61 74 2c matSpec(&format,
07c0: 20 26 63 6d 64 2c 20 26 63 6f 75 6e 74 2c 20 26 &cmd, &count, &
07d0: 66 6c 61 67 73 29 29 20 7b 0a 20 09 09 62 72 65 flags)) {. ..bre
07e0: 61 6b 3b 0a 20 09 20 20 20 20 7d 0a 20 09 20 20 ak;. . }. .
07f0: 20 20 73 77 69 74 63 68 20 28 63 6d 64 29 20 7b switch (cmd) {
0800: 0a 40 40 20 2d 37 37 30 2c 37 20 2b 37 38 30 2c .@@ -770,7 +780,
0810: 38 20 40 40 0a 20 09 63 75 72 73 6f 72 20 3d 20 8 @@. .cursor =
0820: 62 75 66 66 65 72 3b 0a 20 09 6d 61 78 50 6f 73 buffer;. .maxPos
0830: 20 3d 20 63 75 72 73 6f 72 3b 0a 20 09 77 68 69 = cursor;. .whi
0840: 6c 65 20 28 2a 66 6f 72 6d 61 74 20 21 3d 20 30 le (*format != 0
0850: 29 20 7b 0a 2d 09 20 20 20 20 69 66 20 28 21 47 ) {.-. if (!G
0860: 65 74 46 6f 72 6d 61 74 53 70 65 63 28 26 66 6f etFormatSpec(&fo
0870: 72 6d 61 74 2c 20 26 63 6d 64 2c 20 26 63 6f 75 rmat, &cmd, &cou
0880: 6e 74 29 29 20 7b 0a 2b 09 20 20 20 20 66 6c 61 nt)) {.+. fla
0890: 67 73 20 3d 20 30 3b 0a 2b 09 20 20 20 20 69 66 gs = 0;.+. if
08a0: 20 28 21 47 65 74 46 6f 72 6d 61 74 53 70 65 63 (!GetFormatSpec
08b0: 28 26 66 6f 72 6d 61 74 2c 20 26 63 6d 64 2c 20 (&format, &cmd,
08c0: 26 63 6f 75 6e 74 2c 20 26 66 6c 61 67 73 29 29 &count, &flags))
08d0: 20 7b 0a 20 09 09 62 72 65 61 6b 3b 0a 20 09 20 {. ..break;. .
08e0: 20 20 20 7d 0a 20 09 20 20 20 20 69 66 20 28 28 }. . if ((
08f0: 63 6f 75 6e 74 20 3d 3d 20 30 29 20 26 26 20 28 count == 0) && (
0900: 63 6d 64 20 21 3d 20 27 40 27 29 29 20 7b 0a 40 cmd != '@')) {.@
0910: 40 20 2d 31 30 32 38 2c 37 20 2b 31 30 33 39 2c @ -1028,7 +1039,
0920: 38 20 40 40 0a 20 09 6f 66 66 73 65 74 20 3d 20 8 @@. .offset =
0930: 30 3b 0a 20 09 77 68 69 6c 65 20 28 2a 66 6f 72 0;. .while (*for
0940: 6d 61 74 20 21 3d 20 27 5c 30 27 29 20 7b 0a 20 mat != '\0') {.
0950: 09 20 20 20 20 73 74 72 20 3d 20 66 6f 72 6d 61 . str = forma
0960: 74 3b 0a 2d 09 20 20 20 20 69 66 20 28 21 47 65 t;.-. if (!Ge
0970: 74 46 6f 72 6d 61 74 53 70 65 63 28 26 66 6f 72 tFormatSpec(&for
0980: 6d 61 74 2c 20 26 63 6d 64 2c 20 26 63 6f 75 6e mat, &cmd, &coun
0990: 74 29 29 20 7b 0a 2b 09 20 20 20 20 66 6c 61 67 t)) {.+. flag
09a0: 73 20 3d 20 30 3b 0a 2b 09 20 20 20 20 69 66 20 s = 0;.+. if
09b0: 28 21 47 65 74 46 6f 72 6d 61 74 53 70 65 63 28 (!GetFormatSpec(
09c0: 26 66 6f 72 6d 61 74 2c 20 26 63 6d 64 2c 20 26 &format, &cmd, &
09d0: 63 6f 75 6e 74 2c 20 26 66 6c 61 67 73 29 29 20 count, &flags))
09e0: 7b 0a 20 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a {. ..goto done;.
09f0: 20 09 20 20 20 20 7d 0a 20 09 20 20 20 20 73 77 . }. . sw
0a00: 69 74 63 68 20 28 63 6d 64 29 20 7b 0a 40 40 20 itch (cmd) {.@@
0a10: 2d 31 32 34 30 2c 37 20 2b 31 32 35 32 2c 37 20 -1240,7 +1252,7
0a20: 40 40 0a 20 09 09 20 20 20 20 69 66 20 28 28 6c @@. .. if ((l
0a30: 65 6e 67 74 68 20 2d 20 6f 66 66 73 65 74 29 20 ength - offset)
0a40: 3c 20 73 69 7a 65 29 20 7b 0a 20 09 09 09 67 6f < size) {. ...go
0a50: 74 6f 20 64 6f 6e 65 3b 0a 20 09 09 20 20 20 20 to done;. ..
0a60: 7d 0a 2d 09 09 20 20 20 20 76 61 6c 75 65 50 74 }.-.. valuePt
0a70: 72 20 3d 20 53 63 61 6e 4e 75 6d 62 65 72 28 62 r = ScanNumber(b
0a80: 75 66 66 65 72 2b 6f 66 66 73 65 74 2c 20 63 6d uffer+offset, cm
0a90: 64 2c 20 26 6e 75 6d 62 65 72 43 61 63 68 65 50 d, &numberCacheP
0aa0: 74 72 29 3b 0a 2b 09 09 20 20 20 20 76 61 6c 75 tr);.+.. valu
0ab0: 65 50 74 72 20 3d 20 53 63 61 6e 4e 75 6d 62 65 ePtr = ScanNumbe
0ac0: 72 28 62 75 66 66 65 72 2b 6f 66 66 73 65 74 2c r(buffer+offset,
0ad0: 20 63 6d 64 2c 20 66 6c 61 67 73 2c 20 26 6e 75 cmd, flags, &nu
0ae0: 6d 62 65 72 43 61 63 68 65 50 74 72 29 3b 0a 20 mberCachePtr);.
0af0: 09 09 20 20 20 20 6f 66 66 73 65 74 20 2b 3d 20 .. offset +=
0b00: 73 69 7a 65 3b 0a 20 09 09 7d 20 65 6c 73 65 20 size;. ..} else
0b10: 7b 0a 20 09 09 20 20 20 20 69 66 20 28 63 6f 75 {. .. if (cou
0b20: 6e 74 20 3d 3d 20 42 49 4e 41 52 59 5f 41 4c 4c nt == BINARY_ALL
0b30: 29 20 7b 0a 40 40 20 2d 31 32 35 32 2c 37 20 2b ) {.@@ -1252,7 +
0b40: 31 32 36 34 2c 37 20 40 40 0a 20 09 09 20 20 20 1264,7 @@. ..
0b50: 20 76 61 6c 75 65 50 74 72 20 3d 20 54 63 6c 5f valuePtr = Tcl_
0b60: 4e 65 77 4f 62 6a 28 29 3b 0a 20 09 09 20 20 20 NewObj();. ..
0b70: 20 73 72 63 20 3d 20 62 75 66 66 65 72 2b 6f 66 src = buffer+of
0b80: 66 73 65 74 3b 0a 20 09 09 20 20 20 20 66 6f 72 fset;. .. for
0b90: 20 28 69 20 3d 20 30 3b 20 69 20 3c 20 63 6f 75 (i = 0; i < cou
0ba0: 6e 74 3b 20 69 2b 2b 29 20 7b 0a 2d 09 09 09 65 nt; i++) {.-...e
0bb0: 6c 65 6d 65 6e 74 50 74 72 20 3d 20 53 63 61 6e lementPtr = Scan
0bc0: 4e 75 6d 62 65 72 28 73 72 63 2c 20 63 6d 64 2c Number(src, cmd,
0bd0: 20 26 6e 75 6d 62 65 72 43 61 63 68 65 50 74 72 &numberCachePtr
0be0: 29 3b 0a 2b 09 09 09 65 6c 65 6d 65 6e 74 50 74 );.+...elementPt
0bf0: 72 20 3d 20 53 63 61 6e 4e 75 6d 62 65 72 28 73 r = ScanNumber(s
0c00: 72 63 2c 20 63 6d 64 2c 20 66 6c 61 67 73 2c 20 rc, cmd, flags,
0c10: 26 6e 75 6d 62 65 72 43 61 63 68 65 50 74 72 29 &numberCachePtr)
0c20: 3b 0a 20 09 09 09 73 72 63 20 2b 3d 20 73 69 7a ;. ...src += siz
0c30: 65 3b 0a 20 09 09 09 54 63 6c 5f 4c 69 73 74 4f e;. ...Tcl_ListO
0c40: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
0c50: 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 NULL, valuePtr,
0c60: 65 6c 65 6d 65 6e 74 50 74 72 29 3b 0a 20 09 09 elementPtr);. ..
0c70: 20 20 20 20 7d 0a 40 40 20 2d 31 33 37 33 2c 37 }.@@ -1373,7
0c80: 20 2b 31 33 38 35 2c 38 20 40 40 0a 20 47 65 74 +1385,8 @@. Get
0c90: 46 6f 72 6d 61 74 53 70 65 63 28 0a 20 20 20 20 FormatSpec(.
0ca0: 20 63 68 61 72 20 2a 2a 66 6f 72 6d 61 74 50 74 char **formatPt
0cb0: 72 2c 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 r,../* Pointer t
0cc0: 6f 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e o format string.
0cd0: 20 2a 2f 0a 20 20 20 20 20 63 68 61 72 20 2a 63 */. char *c
0ce0: 6d 64 50 74 72 2c 09 09 2f 2a 20 50 6f 69 6e 74 mdPtr,../* Point
0cf0: 65 72 20 74 6f 20 6c 6f 63 61 74 69 6f 6e 20 6f er to location o
0d00: 66 20 63 6f 6d 6d 61 6e 64 20 63 68 61 72 2e 20 f command char.
0d10: 2a 2f 0a 2d 20 20 20 20 69 6e 74 20 2a 63 6f 75 */.- int *cou
0d20: 6e 74 50 74 72 29 09 09 2f 2a 20 50 6f 69 6e 74 ntPtr)../* Point
0d30: 65 72 20 74 6f 20 72 65 70 65 61 74 20 63 6f 75 er to repeat cou
0d40: 6e 74 20 76 61 6c 75 65 2e 20 2a 2f 0a 2b 20 20 nt value. */.+
0d50: 20 20 69 6e 74 20 2a 63 6f 75 6e 74 50 74 72 2c int *countPtr,
0d60: 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 ../* Pointer to
0d70: 72 65 70 65 61 74 20 63 6f 75 6e 74 20 76 61 6c repeat count val
0d80: 75 65 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 ue. */.+ int
0d90: 2a 66 6c 61 67 73 50 74 72 29 09 09 2f 2a 20 50 *flagsPtr)../* P
0da0: 6f 69 6e 74 65 72 20 74 6f 20 66 69 65 6c 64 20 ointer to field
0db0: 66 6c 61 67 73 20 2a 2f 0a 20 7b 0a 20 20 20 20 flags */. {.
0dc0: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 53 6b 69 70 /*. * Skip
0dd0: 20 61 6e 79 20 6c 65 61 64 69 6e 67 20 62 6c 61 any leading bla
0de0: 6e 6b 73 2e 0a 40 40 20 2d 31 33 39 37 2c 36 20 nks..@@ -1397,6
0df0: 2b 31 34 31 30 2c 31 30 20 40 40 0a 20 0a 20 20 +1410,10 @@. .
0e00: 20 20 20 2a 63 6d 64 50 74 72 20 3d 20 2a 2a 66 *cmdPtr = **f
0e10: 6f 72 6d 61 74 50 74 72 3b 0a 20 20 20 20 20 28 ormatPtr;. (
0e20: 2a 66 6f 72 6d 61 74 50 74 72 29 2b 2b 3b 0a 2b *formatPtr)++;.+
0e30: 20 20 20 20 69 66 20 28 2a 2a 66 6f 72 6d 61 74 if (**format
0e40: 50 74 72 20 3d 3d 20 27 75 27 29 20 7b 0a 2b 09 Ptr == 'u') {.+.
0e50: 28 2a 66 6f 72 6d 61 74 50 74 72 29 2b 2b 3b 0a (*formatPtr)++;.
0e60: 2b 09 28 2a 66 6c 61 67 73 50 74 72 29 20 7c 3d +.(*flagsPtr) |=
0e70: 20 42 49 4e 41 52 59 5f 55 4e 53 49 47 4e 45 44 BINARY_UNSIGNED
0e80: 3b 0a 2b 20 20 20 20 7d 0a 20 20 20 20 20 69 66 ;.+ }. if
0e90: 20 28 2a 2a 66 6f 72 6d 61 74 50 74 72 20 3d 3d (**formatPtr ==
0ea0: 20 27 2a 27 29 20 7b 0a 20 09 28 2a 66 6f 72 6d '*') {. .(*form
0eb0: 61 74 50 74 72 29 2b 2b 3b 0a 20 09 28 2a 63 6f atPtr)++;. .(*co
0ec0: 75 6e 74 50 74 72 29 20 3d 20 42 49 4e 41 52 59 untPtr) = BINARY
0ed0: 5f 41 4c 4c 3b 0a 40 40 20 2d 31 37 37 38 2c 36 _ALL;.@@ -1778,6
0ee0: 20 2b 31 37 39 35 2c 37 20 40 40 0a 20 53 63 61 +1795,7 @@. Sca
0ef0: 6e 4e 75 6d 62 65 72 28 0a 20 20 20 20 20 75 6e nNumber(. un
0f00: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 62 75 66 signed char *buf
0f10: 66 65 72 2c 09 2f 2a 20 42 75 66 66 65 72 20 74 fer,./* Buffer t
0f20: 6f 20 73 63 61 6e 20 6e 75 6d 62 65 72 20 66 72 o scan number fr
0f30: 6f 6d 2e 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 om. */. int
0f40: 74 79 70 65 2c 09 09 09 2f 2a 20 46 6f 72 6d 61 type,.../* Forma
0f50: 74 20 63 68 61 72 61 63 74 65 72 20 66 72 6f 6d t character from
0f60: 20 22 62 69 6e 61 72 79 20 73 63 61 6e 22 20 2a "binary scan" *
0f70: 2f 0a 2b 20 20 20 20 69 6e 74 20 66 6c 61 67 73 /.+ int flags
0f80: 2c 09 09 09 2f 2a 20 46 6f 72 6d 61 74 20 66 69 ,.../* Format fi
0f90: 65 6c 64 20 66 6c 61 67 73 20 2a 2f 0a 20 20 20 eld flags */.
0fa0: 20 20 54 63 6c 5f 48 61 73 68 54 61 62 6c 65 20 Tcl_HashTable
0fb0: 2a 2a 6e 75 6d 62 65 72 43 61 63 68 65 50 74 72 **numberCachePtr
0fc0: 50 74 72 29 0a 20 09 09 09 09 2f 2a 20 50 6c 61 Ptr). ..../* Pla
0fd0: 63 65 20 74 6f 20 6c 6f 6f 6b 20 66 6f 72 20 63 ce to look for c
0fe0: 61 63 68 65 20 6f 66 20 73 63 61 6e 6e 65 64 0a ache of scanned.
0ff0: 20 09 09 09 09 20 2a 20 76 61 6c 75 65 20 6f 62 .... * value ob
1000: 6a 65 63 74 73 2c 20 6f 72 20 4e 55 4c 4c 20 69 jects, or NULL i
1010: 66 20 74 6f 6f 20 6d 61 6e 79 0a 40 40 20 2d 31 f too many.@@ -1
1020: 37 39 34 2c 36 20 2b 31 38 31 32 2c 37 20 40 40 794,6 +1812,7 @@
1030: 0a 20 20 20 20 20 20 2a 20 74 68 65 20 65 78 61 . * the exa
1040: 63 74 20 73 69 7a 65 20 6f 66 20 74 68 65 20 69 ct size of the i
1050: 6e 74 65 67 65 72 20 74 79 70 65 73 2e 20 53 6f nteger types. So
1060: 2c 20 77 65 20 68 61 76 65 20 74 6f 20 68 61 6e , we have to han
1070: 64 6c 65 20 73 69 67 6e 0a 20 20 20 20 20 20 2a dle sign. *
1080: 20 65 78 74 65 6e 73 69 6f 6e 20 65 78 70 6c 69 extension expli
1090: 63 69 74 6c 79 20 62 79 20 63 68 65 63 6b 69 6e citly by checkin
10a0: 67 20 74 68 65 20 68 69 67 68 20 62 69 74 20 61 g the high bit a
10b0: 6e 64 20 70 61 64 64 69 6e 67 20 77 69 74 68 20 nd padding with
10c0: 31 27 73 20 61 73 0a 20 20 20 20 20 20 2a 20 6e 1's as. * n
10d0: 65 65 64 65 64 2e 0a 2b 20 20 20 20 20 2a 20 54 eeded..+ * T
10e0: 68 69 73 20 70 72 61 63 74 69 63 65 20 69 73 20 his practice is
10f0: 64 69 73 61 62 6c 65 64 20 69 66 20 74 68 65 20 disabled if the
1100: 42 49 4e 41 52 59 5f 55 4e 53 49 47 4e 45 44 20 BINARY_UNSIGNED
1110: 66 6c 61 67 20 69 73 20 73 65 74 2e 0a 20 20 20 flag is set..
1120: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 73 77 69 */. . swi
1130: 74 63 68 20 28 74 79 70 65 29 20 7b 0a 40 40 20 tch (type) {.@@
1140: 2d 31 38 30 36 2c 38 20 2b 31 38 32 35 2c 31 30 -1806,8 +1825,10
1150: 20 40 40 0a 20 09 20 2a 2f 0a 20 0a 20 09 76 61 @@. . */. . .va
1160: 6c 75 65 20 3d 20 62 75 66 66 65 72 5b 30 5d 3b lue = buffer[0];
1170: 0a 2d 09 69 66 20 28 76 61 6c 75 65 20 26 20 30 .-.if (value & 0
1180: 78 38 30 29 20 7b 0a 2d 09 20 20 20 20 76 61 6c x80) {.-. val
1190: 75 65 20 7c 3d 20 2d 30 78 31 30 30 3b 0a 2b 09 ue |= -0x100;.+.
11a0: 69 66 20 28 21 28 66 6c 61 67 73 20 26 20 42 49 if (!(flags & BI
11b0: 4e 41 52 59 5f 55 4e 53 49 47 4e 45 44 29 29 20 NARY_UNSIGNED))
11c0: 7b 0a 2b 09 20 20 20 20 69 66 20 28 76 61 6c 75 {.+. if (valu
11d0: 65 20 26 20 30 78 38 30 29 20 7b 0a 2b 09 09 76 e & 0x80) {.+..v
11e0: 61 6c 75 65 20 7c 3d 20 2d 30 78 31 30 30 3b 0a alue |= -0x100;.
11f0: 2b 09 20 20 20 20 7d 0a 20 09 7d 0a 20 09 67 6f +. }. .}. .go
1200: 74 6f 20 72 65 74 75 72 6e 4e 75 6d 65 72 69 63 to returnNumeric
1210: 4f 62 6a 65 63 74 3b 0a 20 0a 40 40 20 2d 31 38 Object;. .@@ -18
1220: 32 34 2c 38 20 2b 31 38 34 35 2c 31 30 20 40 40 24,8 +1845,10 @@
1230: 0a 20 09 7d 20 65 6c 73 65 20 7b 0a 20 09 20 20 . .} else {. .
1240: 20 20 76 61 6c 75 65 20 3d 20 28 6c 6f 6e 67 29 value = (long)
1250: 20 28 62 75 66 66 65 72 5b 31 5d 20 2b 20 28 62 (buffer[1] + (b
1260: 75 66 66 65 72 5b 30 5d 20 3c 3c 20 38 29 29 3b uffer[0] << 8));
1270: 0a 20 09 7d 0a 2d 09 69 66 20 28 76 61 6c 75 65 . .}.-.if (value
1280: 20 26 20 30 78 38 30 30 30 29 20 7b 0a 2d 09 20 & 0x8000) {.-.
1290: 20 20 20 76 61 6c 75 65 20 7c 3d 20 2d 30 78 31 value |= -0x1
12a0: 30 30 30 30 3b 0a 2b 09 69 66 20 28 21 28 66 6c 0000;.+.if (!(fl
12b0: 61 67 73 20 26 20 42 49 4e 41 52 59 5f 55 4e 53 ags & BINARY_UNS
12c0: 49 47 4e 45 44 29 29 20 7b 0a 2b 09 20 20 20 20 IGNED)) {.+.
12d0: 69 66 20 28 76 61 6c 75 65 20 26 20 30 78 38 30 if (value & 0x80
12e0: 30 30 29 20 7b 0a 2b 09 09 76 61 6c 75 65 20 7c 00) {.+..value |
12f0: 3d 20 2d 30 78 31 30 30 30 30 3b 0a 2b 09 20 20 = -0x10000;.+.
1300: 20 20 7d 0a 20 09 7d 0a 20 09 67 6f 74 6f 20 72 }. .}. .goto r
1310: 65 74 75 72 6e 4e 75 6d 65 72 69 63 4f 62 6a 65 eturnNumericObje
1320: 63 74 3b 0a 20 0a 40 40 20 2d 31 38 34 30 2c 32 ct;. .@@ -1840,2
1330: 32 20 2b 31 38 36 33 2c 32 38 20 40 40 0a 20 09 2 +1863,28 @@. .
1340: 20 20 20 20 76 61 6c 75 65 20 3d 20 28 6c 6f 6e value = (lon
1350: 67 29 20 28 62 75 66 66 65 72 5b 30 5d 0a 20 09 g) (buffer[0]. .
1360: 09 20 20 20 20 2b 20 28 62 75 66 66 65 72 5b 31 . + (buffer[1
1370: 5d 20 3c 3c 20 38 29 0a 20 09 09 20 20 20 20 2b ] << 8). .. +
1380: 20 28 62 75 66 66 65 72 5b 32 5d 20 3c 3c 20 31 (buffer[2] << 1
1390: 36 29 0a 2d 09 09 20 20 20 20 2b 20 28 62 75 66 6).-.. + (buf
13a0: 66 65 72 5b 33 5d 20 3c 3c 20 32 34 29 29 3b 0a fer[3] << 24));.
13b0: 2b 09 09 20 20 20 20 2b 20 28 28 28 6c 6f 6e 67 +.. + (((long
13c0: 29 62 75 66 66 65 72 5b 33 5d 29 20 3c 3c 20 32 )buffer[3]) << 2
13d0: 34 29 29 3b 0a 20 09 7d 20 65 6c 73 65 20 7b 0a 4));. .} else {.
13e0: 20 09 20 20 20 20 76 61 6c 75 65 20 3d 20 28 6c . value = (l
13f0: 6f 6e 67 29 20 28 62 75 66 66 65 72 5b 33 5d 0a ong) (buffer[3].
1400: 20 09 09 20 20 20 20 2b 20 28 62 75 66 66 65 72 .. + (buffer
1410: 5b 32 5d 20 3c 3c 20 38 29 0a 20 09 09 20 20 20 [2] << 8). ..
1420: 20 2b 20 28 62 75 66 66 65 72 5b 31 5d 20 3c 3c + (buffer[1] <<
1430: 20 31 36 29 0a 2d 09 09 20 20 20 20 2b 20 28 62 16).-.. + (b
1440: 75 66 66 65 72 5b 30 5d 20 3c 3c 20 32 34 29 29 uffer[0] << 24))
1450: 3b 0a 2b 09 09 20 20 20 20 2b 20 28 28 28 6c 6f ;.+.. + (((lo
1460: 6e 67 29 62 75 66 66 65 72 5b 30 5d 29 20 3c 3c ng)buffer[0]) <<
1470: 20 32 34 29 29 3b 0a 20 09 7d 0a 20 0a 20 09 2f 24));. .}. . ./
1480: 2a 0a 20 09 20 2a 20 43 68 65 63 6b 20 74 6f 20 *. . * Check to
1490: 73 65 65 20 69 66 20 74 68 65 20 76 61 6c 75 65 see if the value
14a0: 20 77 61 73 20 73 69 67 6e 20 65 78 74 65 6e 64 was sign extend
14b0: 65 64 20 70 72 6f 70 65 72 6c 79 20 6f 6e 20 73 ed properly on s
14c0: 79 73 74 65 6d 73 0a 20 09 20 2a 20 77 68 65 72 ystems. . * wher
14d0: 65 20 61 6e 20 69 6e 74 20 69 73 20 6d 6f 72 65 e an int is more
14e0: 20 74 68 61 6e 20 33 32 2d 62 69 74 73 2e 0a 2b than 32-bits..+
14f0: 09 20 2a 20 57 65 20 61 76 6f 69 64 20 63 61 63 . * We avoid cac
1500: 68 69 6e 67 20 75 6e 73 69 67 6e 65 64 20 69 6e hing unsigned in
1510: 74 65 67 65 72 73 20 61 73 20 77 65 20 63 61 6e tegers as we can
1520: 6e 6f 74 20 64 69 73 74 69 6e 67 75 69 73 68 20 not distinguish
1530: 62 65 74 77 65 65 6e 0a 2b 09 20 2a 20 33 32 62 between.+. * 32b
1540: 69 74 20 73 69 67 6e 65 64 20 61 6e 64 20 75 6e it signed and un
1550: 73 69 67 6e 65 64 20 69 6e 20 74 68 65 20 68 61 signed in the ha
1560: 73 68 20 28 73 68 6f 72 74 20 61 6e 64 20 63 68 sh (short and ch
1570: 61 72 20 61 72 65 20 6f 6b 29 2e 0a 20 09 20 2a ar are ok).. . *
1580: 2f 0a 20 0a 2d 09 69 66 20 28 28 76 61 6c 75 65 /. .-.if ((value
1590: 20 26 20 28 28 28 75 6e 73 69 67 6e 65 64 20 69 & (((unsigned i
15a0: 6e 74 29 31 29 3c 3c 33 31 29 29 20 26 26 20 28 nt)1)<<31)) && (
15b0: 76 61 6c 75 65 20 3e 20 30 29 29 20 7b 0a 2d 09 value > 0)) {.-.
15c0: 20 20 20 20 76 61 6c 75 65 20 2d 3d 20 28 28 28 value -= (((
15d0: 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 31 29 3c unsigned int)1)<
15e0: 3c 33 31 29 3b 0a 2d 09 20 20 20 20 76 61 6c 75 <31);.-. valu
15f0: 65 20 2d 3d 20 28 28 28 75 6e 73 69 67 6e 65 64 e -= (((unsigned
1600: 20 69 6e 74 29 31 29 3c 3c 33 31 29 3b 0a 2b 09 int)1)<<31);.+.
1610: 69 66 20 28 28 66 6c 61 67 73 20 26 20 42 49 4e if ((flags & BIN
1620: 41 52 59 5f 55 4e 53 49 47 4e 45 44 29 29 20 7b ARY_UNSIGNED)) {
1630: 0a 2b 09 20 20 20 20 72 65 74 75 72 6e 20 54 63 .+. return Tc
1640: 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 l_NewWideIntObj(
1650: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 76 (unsigned long)v
1660: 61 6c 75 65 29 3b 0a 2b 09 7d 20 65 6c 73 65 20 alue);.+.} else
1670: 7b 0a 2b 09 20 20 20 20 69 66 20 28 28 76 61 6c {.+. if ((val
1680: 75 65 20 26 20 28 28 28 75 6e 73 69 67 6e 65 64 ue & (((unsigned
1690: 20 69 6e 74 29 31 29 3c 3c 33 31 29 29 20 26 26 int)1)<<31)) &&
16a0: 20 28 76 61 6c 75 65 20 3e 20 30 29 29 20 7b 0a (value > 0)) {.
16b0: 2b 09 09 76 61 6c 75 65 20 2d 3d 20 28 28 28 75 +..value -= (((u
16c0: 6e 73 69 67 6e 65 64 20 69 6e 74 29 31 29 3c 3c nsigned int)1)<<
16d0: 33 31 29 3b 0a 2b 09 09 76 61 6c 75 65 20 2d 3d 31);.+..value -=
16e0: 20 28 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 (((unsigned int
16f0: 29 31 29 3c 3c 33 31 29 3b 0a 2b 09 20 20 20 20 )1)<<31);.+.
1700: 7d 0a 20 09 7d 0a 20 0a 20 20 20 20 20 72 65 74 }. .}. . ret
1710: 75 72 6e 4e 75 6d 65 72 69 63 4f 62 6a 65 63 74 urnNumericObject
1720: 3a 0a 40 40 20 2d 31 39 32 30 2c 37 20 2b 31 39 :.@@ -1920,7 +19
1730: 34 39 2c 31 36 20 40 40 0a 20 09 09 20 20 20 20 49,16 @@. ..
1740: 7c 20 28 28 28 54 63 6c 5f 57 69 64 65 55 49 6e | (((Tcl_WideUIn
1750: 74 29 20 62 75 66 66 65 72 5b 31 5d 29 20 3c 3c t) buffer[1]) <<
1760: 20 34 38 29 0a 20 09 09 20 20 20 20 7c 20 28 28 48). .. | ((
1770: 28 54 63 6c 5f 57 69 64 65 55 49 6e 74 29 20 62 (Tcl_WideUInt) b
1780: 75 66 66 65 72 5b 30 5d 29 20 3c 3c 20 35 36 29 uffer[0]) << 56)
1790: 3b 0a 20 09 7d 0a 2d 09 72 65 74 75 72 6e 20 54 ;. .}.-.return T
17a0: 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a cl_NewWideIntObj
17b0: 28 28 54 63 6c 5f 57 69 64 65 49 6e 74 29 20 75 ((Tcl_WideInt) u
17c0: 77 76 61 6c 75 65 29 3b 0a 2b 09 69 66 20 28 66 wvalue);.+.if (f
17d0: 6c 61 67 73 20 26 20 42 49 4e 41 52 59 5f 55 4e lags & BINARY_UN
17e0: 53 49 47 4e 45 44 29 20 7b 0a 2b 09 20 20 20 20 SIGNED) {.+.
17f0: 54 63 6c 5f 4f 62 6a 20 2a 62 69 67 4f 62 6a 20 Tcl_Obj *bigObj
1800: 3d 20 4e 55 4c 4c 3b 0a 2b 09 20 20 20 20 6d 70 = NULL;.+. mp
1810: 5f 69 6e 74 20 62 69 67 3b 0a 2b 0a 2b 09 20 20 _int big;.+.+.
1820: 20 20 54 63 6c 42 4e 49 6e 69 74 42 69 67 6e 75 TclBNInitBignu
1830: 6d 46 72 6f 6d 57 69 64 65 55 49 6e 74 28 26 62 mFromWideUInt(&b
1840: 69 67 2c 20 75 77 76 61 6c 75 65 29 3b 0a 2b 09 ig, uwvalue);.+.
1850: 20 20 20 20 62 69 67 4f 62 6a 20 3d 20 54 63 6c bigObj = Tcl
1860: 5f 4e 65 77 42 69 67 6e 75 6d 4f 62 6a 28 26 62 _NewBignumObj(&b
1870: 69 67 29 3b 0a 2b 09 20 20 20 20 72 65 74 75 72 ig);.+. retur
1880: 6e 20 62 69 67 4f 62 6a 3b 0a 2b 09 7d 20 65 6c n bigObj;.+.} el
1890: 73 65 20 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 se {.+. retur
18a0: 6e 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 n Tcl_NewWideInt
18b0: 4f 62 6a 28 28 54 63 6c 5f 57 69 64 65 49 6e 74 Obj((Tcl_WideInt
18c0: 29 20 75 77 76 61 6c 75 65 29 3b 0a 2b 09 7d 0a ) uwvalue);.+.}.
18d0: 20 0a 20 09 2f 2a 0a 20 09 20 2a 20 44 6f 20 6e . ./*. . * Do n
18e0: 6f 74 20 63 61 63 68 65 20 64 6f 75 62 6c 65 20 ot cache double
18f0: 76 61 6c 75 65 73 3b 20 74 68 65 79 20 61 72 65 values; they are
1900: 20 61 6c 72 65 61 64 79 20 74 6f 6f 20 6c 61 72 already too lar
1910: 67 65 20 74 6f 20 75 73 65 20 61 73 0a 49 6e 64 ge to use as.Ind
1920: 65 78 3a 20 74 65 73 74 73 2f 62 69 6e 61 72 79 ex: tests/binary
1930: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
1940: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
1980: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
1990: 2f 74 63 6c 2f 74 65 73 74 73 2f 62 69 6e 61 72 /tcl/tests/binar
19a0: 79 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 y.test,v.retriev
19b0: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 ing revision 1.2
19c0: 38 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 32 38 8.diff -u -r1.28
19d0: 20 62 69 6e 61 72 79 2e 74 65 73 74 0a 2d 2d 2d binary.test.---
19e0: 20 74 65 73 74 73 2f 62 69 6e 61 72 79 2e 74 65 tests/binary.te
19f0: 73 74 09 35 20 41 70 72 20 32 30 30 36 20 31 35 st.5 Apr 2006 15
1a00: 3a 31 37 3a 33 39 20 2d 30 30 30 30 09 31 2e 32 :17:39 -0000.1.2
1a10: 38 0a 2b 2b 2b 20 74 65 73 74 73 2f 62 69 6e 61 8.+++ tests/bina
1a20: 72 79 2e 74 65 73 74 09 32 20 4f 63 74 20 32 30 ry.test.2 Oct 20
1a30: 30 36 20 31 36 3a 33 32 3a 33 39 20 2d 30 30 30 06 16:32:39 -000
1a40: 30 0a 40 40 20 2d 39 30 35 2c 36 20 2b 39 30 35 0.@@ -905,6 +905
1a50: 2c 33 30 20 40 40 0a 20 20 20 20 20 73 65 74 20 ,30 @@. set
1a60: 61 72 67 32 20 62 61 72 0a 20 20 20 20 20 6c 69 arg2 bar. li
1a70: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
1a80: 5c 78 37 30 5c 78 38 37 5c 78 30 35 20 63 32 63 \x70\x87\x05 c2c
1a90: 2a 20 61 72 67 31 20 61 72 67 32 5d 20 24 61 72 * arg1 arg2] $ar
1aa0: 67 31 20 24 61 72 67 32 0a 20 7d 20 7b 32 20 7b g1 $arg2. } {2 {
1ab0: 31 31 32 20 2d 31 32 31 7d 20 35 7d 0a 2b 74 65 112 -121} 5}.+te
1ac0: 73 74 20 62 69 6e 61 72 79 2d 32 36 2e 31 31 20 st binary-26.11
1ad0: 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d {Tcl_BinaryObjCm
1ae0: 64 3a 20 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 20 d: scan} {.+
1af0: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 catch {unset arg
1b00: 31 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 1}.+ list [bi
1b10: 6e 61 72 79 20 73 63 61 6e 20 5c 78 35 32 5c 78 nary scan \x52\x
1b20: 61 33 20 63 75 2a 20 61 72 67 31 5d 20 24 61 72 a3 cu* arg1] $ar
1b30: 67 31 0a 2b 7d 20 7b 31 20 7b 38 32 20 31 36 33 g1.+} {1 {82 163
1b40: 7d 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d }}.+test binary-
1b50: 32 36 2e 31 32 20 7b 54 63 6c 5f 42 69 6e 61 72 26.12 {Tcl_Binar
1b60: 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b yObjCmd: scan} {
1b70: 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 .+ catch {uns
1b80: 65 74 20 61 72 67 31 7d 0a 2b 20 20 20 20 6c 69 et arg1}.+ li
1b90: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
1ba0: 5c 78 35 32 5c 78 61 33 20 63 75 20 61 72 67 31 \x52\xa3 cu arg1
1bb0: 5d 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 38 32 ] $arg1.+} {1 82
1bc0: 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 32 }.+test binary-2
1bd0: 36 2e 31 33 20 7b 54 63 6c 5f 42 69 6e 61 72 79 6.13 {Tcl_Binary
1be0: 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b 0a ObjCmd: scan} {.
1bf0: 2b 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 + catch {unse
1c00: 74 20 61 72 67 31 7d 0a 2b 20 20 20 20 6c 69 73 t arg1}.+ lis
1c10: 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 5c t [binary scan \
1c20: 78 66 66 20 63 75 20 61 72 67 31 5d 20 24 61 72 xff cu arg1] $ar
1c30: 67 31 0a 2b 7d 20 7b 31 20 32 35 35 7d 0a 2b 74 g1.+} {1 255}.+t
1c40: 65 73 74 20 62 69 6e 61 72 79 2d 32 36 2e 31 34 est binary-26.14
1c50: 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 {Tcl_BinaryObjC
1c60: 6d 64 3a 20 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 md: scan} {.+
1c70: 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 catch {unset ar
1c80: 67 31 20 61 72 67 32 7d 0a 2b 20 20 20 20 73 65 g1 arg2}.+ se
1c90: 74 20 61 72 67 31 20 66 6f 6f 0a 2b 20 20 20 20 t arg1 foo.+
1ca0: 73 65 74 20 61 72 67 32 20 62 61 72 0a 2b 20 20 set arg2 bar.+
1cb0: 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 73 list [binary s
1cc0: 63 61 6e 20 5c 78 38 30 5c 78 38 30 20 63 75 63 can \x80\x80 cuc
1cd0: 20 61 72 67 31 20 61 72 67 32 5d 20 24 61 72 67 arg1 arg2] $arg
1ce0: 31 20 24 61 72 67 32 0a 2b 7d 20 7b 32 20 31 32 1 $arg2.+} {2 12
1cf0: 38 20 2d 31 32 38 7d 0a 2b 74 65 73 74 20 62 69 8 -128}.+test bi
1d00: 6e 61 72 79 2d 32 36 2e 31 35 20 7b 54 63 6c 5f nary-26.15 {Tcl_
1d10: 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 73 63 BinaryObjCmd: sc
1d20: 61 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 an} {.+ catch
1d30: 20 7b 75 6e 73 65 74 20 61 72 67 31 20 61 72 67 {unset arg1 arg
1d40: 32 7d 0a 2b 20 20 20 20 73 65 74 20 61 72 67 31 2}.+ set arg1
1d50: 20 66 6f 6f 0a 2b 20 20 20 20 73 65 74 20 61 72 foo.+ set ar
1d60: 67 32 20 62 61 72 0a 2b 20 20 20 20 6c 69 73 74 g2 bar.+ list
1d70: 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 5c 78 [binary scan \x
1d80: 38 30 5c 78 38 30 20 63 63 75 20 61 72 67 31 20 80\x80 ccu arg1
1d90: 61 72 67 32 5d 20 24 61 72 67 31 20 24 61 72 67 arg2] $arg1 $arg
1da0: 32 0a 2b 7d 20 7b 32 20 2d 31 32 38 20 31 32 38 2.+} {2 -128 128
1db0: 7d 0a 20 0a 20 74 65 73 74 20 62 69 6e 61 72 79 }. . test binary
1dc0: 2d 32 37 2e 31 20 7b 54 63 6c 5f 42 69 6e 61 72 -27.1 {Tcl_Binar
1dd0: 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b yObjCmd: scan} {
1de0: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
1df0: 68 20 7b 62 69 6e 61 72 79 20 73 63 61 6e 20 61 h {binary scan a
1e00: 62 63 20 73 7d 20 6d 73 67 5d 20 24 6d 73 67 0a bc s} msg] $msg.
1e10: 40 40 20 2d 39 34 35 2c 36 20 2b 39 36 39 2c 32 @@ -945,6 +969,2
1e20: 32 20 40 40 0a 20 20 20 20 20 73 65 74 20 61 72 2 @@. set ar
1e30: 67 32 20 62 61 72 0a 20 20 20 20 20 6c 69 73 74 g2 bar. list
1e40: 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 5c 78 [binary scan \x
1e50: 35 32 5c 78 61 33 5c 78 35 33 5c 78 35 34 5c 78 52\xa3\x53\x54\x
1e60: 30 35 20 73 32 63 2a 20 61 72 67 31 20 61 72 67 05 s2c* arg1 arg
1e70: 32 5d 20 24 61 72 67 31 20 24 61 72 67 32 0a 20 2] $arg1 $arg2.
1e80: 7d 20 7b 32 20 7b 2d 32 33 37 32 36 20 32 31 35 } {2 {-23726 215
1e90: 38 37 7d 20 35 7d 0a 2b 74 65 73 74 20 62 69 6e 87} 5}.+test bin
1ea0: 61 72 79 2d 32 37 2e 31 30 20 7b 54 63 6c 5f 42 ary-27.10 {Tcl_B
1eb0: 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 73 63 61 inaryObjCmd: sca
1ec0: 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 20 n} {.+ catch
1ed0: 7b 75 6e 73 65 74 20 61 72 67 31 7d 0a 2b 20 20 {unset arg1}.+
1ee0: 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 73 list [binary s
1ef0: 63 61 6e 20 5c 78 35 32 5c 78 61 33 5c 78 35 33 can \x52\xa3\x53
1f00: 5c 78 35 34 20 73 75 2a 20 61 72 67 31 5d 20 24 \x54 su* arg1] $
1f10: 61 72 67 31 0a 2b 7d 20 7b 31 20 7b 34 31 38 31 arg1.+} {1 {4181
1f20: 30 20 32 31 35 38 37 7d 7d 0a 2b 74 65 73 74 20 0 21587}}.+test
1f30: 62 69 6e 61 72 79 2d 32 37 2e 31 31 20 7b 54 63 binary-27.11 {Tc
1f40: 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 l_BinaryObjCmd:
1f50: 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 scan} {.+ cat
1f60: 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 20 61 ch {unset arg1 a
1f70: 72 67 32 7d 0a 2b 20 20 20 20 73 65 74 20 61 72 rg2}.+ set ar
1f80: 67 31 20 66 6f 6f 0a 2b 20 20 20 20 73 65 74 20 g1 foo.+ set
1f90: 61 72 67 32 20 62 61 72 0a 2b 20 20 20 20 6c 69 arg2 bar.+ li
1fa0: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
1fb0: 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 66 66 \xff\xff\xff\xff
1fc0: 20 73 75 73 20 61 72 67 31 20 61 72 67 32 5d 20 sus arg1 arg2]
1fd0: 24 61 72 67 31 20 24 61 72 67 32 0a 2b 7d 20 7b $arg1 $arg2.+} {
1fe0: 32 20 36 35 35 33 35 20 2d 31 7d 0a 2b 74 65 73 2 65535 -1}.+tes
1ff0: 74 20 62 69 6e 61 72 79 2d 32 37 2e 31 32 20 7b t binary-27.12 {
2000: 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 Tcl_BinaryObjCmd
2010: 3a 20 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 20 63 : scan} {.+ c
2020: 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 atch {unset arg1
2030: 20 61 72 67 32 7d 0a 2b 20 20 20 20 73 65 74 20 arg2}.+ set
2040: 61 72 67 31 20 66 6f 6f 0a 2b 20 20 20 20 73 65 arg1 foo.+ se
2050: 74 20 61 72 67 32 20 62 61 72 0a 2b 20 20 20 20 t arg2 bar.+
2060: 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 list [binary sca
2070: 6e 20 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 n \xff\xff\xff\x
2080: 66 66 20 73 73 75 20 61 72 67 31 20 61 72 67 32 ff ssu arg1 arg2
2090: 5d 20 24 61 72 67 31 20 24 61 72 67 32 0a 2b 7d ] $arg1 $arg2.+}
20a0: 20 7b 32 20 2d 31 20 36 35 35 33 35 7d 0a 20 0a {2 -1 65535}. .
20b0: 20 74 65 73 74 20 62 69 6e 61 72 79 2d 32 38 2e test binary-28.
20c0: 31 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 1 {Tcl_BinaryObj
20d0: 43 6d 64 3a 20 73 63 61 6e 7d 20 7b 0a 20 20 20 Cmd: scan} {.
20e0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 62 list [catch {b
20f0: 69 6e 61 72 79 20 73 63 61 6e 20 61 62 63 20 53 inary scan abc S
2100: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 40 40 20 2d } msg] $msg.@@ -
2110: 39 38 35 2c 36 20 2b 31 30 32 35 2c 31 34 20 40 985,6 +1025,14 @
2120: 40 0a 20 20 20 20 20 73 65 74 20 61 72 67 32 20 @. set arg2
2130: 62 61 72 0a 20 20 20 20 20 6c 69 73 74 20 5b 62 bar. list [b
2140: 69 6e 61 72 79 20 73 63 61 6e 20 5c 78 35 32 5c inary scan \x52\
2150: 78 61 33 5c 78 35 33 5c 78 35 34 5c 78 30 35 20 xa3\x53\x54\x05
2160: 53 32 63 2a 20 61 72 67 31 20 61 72 67 32 5d 20 S2c* arg1 arg2]
2170: 24 61 72 67 31 20 24 61 72 67 32 0a 20 7d 20 7b $arg1 $arg2. } {
2180: 32 20 7b 32 31 31 35 35 20 32 31 33 33 32 7d 20 2 {21155 21332}
2190: 35 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 5}.+test binary-
21a0: 32 38 2e 31 30 20 7b 54 63 6c 5f 42 69 6e 61 72 28.10 {Tcl_Binar
21b0: 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b yObjCmd: scan} {
21c0: 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 .+ catch {uns
21d0: 65 74 20 61 72 67 31 7d 0a 2b 20 20 20 20 6c 69 et arg1}.+ li
21e0: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
21f0: 5c 78 35 32 5c 78 61 33 5c 78 35 33 5c 78 35 34 \x52\xa3\x53\x54
2200: 20 53 75 2a 20 61 72 67 31 5d 20 24 61 72 67 31 Su* arg1] $arg1
2210: 0a 2b 7d 20 7b 31 20 7b 32 31 31 35 35 20 32 31 .+} {1 {21155 21
2220: 33 33 32 7d 7d 0a 2b 74 65 73 74 20 62 69 6e 61 332}}.+test bina
2230: 72 79 2d 32 38 2e 31 31 20 7b 54 63 6c 5f 42 69 ry-28.11 {Tcl_Bi
2240: 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e naryObjCmd: scan
2250: 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 20 7b } {.+ catch {
2260: 75 6e 73 65 74 20 61 72 67 31 7d 0a 2b 20 20 20 unset arg1}.+
2270: 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 73 63 list [binary sc
2280: 61 6e 20 5c 78 61 33 5c 78 35 32 5c 78 35 34 5c an \xa3\x52\x54\
2290: 78 35 33 20 53 75 2a 20 61 72 67 31 5d 20 24 61 x53 Su* arg1] $a
22a0: 72 67 31 0a 2b 7d 20 7b 31 20 7b 34 31 38 31 30 rg1.+} {1 {41810
22b0: 20 32 31 35 38 37 7d 7d 0a 20 0a 20 74 65 73 74 21587}}. . test
22c0: 20 62 69 6e 61 72 79 2d 32 39 2e 31 20 7b 54 63 binary-29.1 {Tc
22d0: 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 l_BinaryObjCmd:
22e0: 73 63 61 6e 7d 20 7b 0a 20 20 20 20 20 6c 69 73 scan} {. lis
22f0: 74 20 5b 63 61 74 63 68 20 7b 62 69 6e 61 72 79 t [catch {binary
2300: 20 73 63 61 6e 20 61 62 63 20 69 7d 20 6d 73 67 scan abc i} msg
2310: 5d 20 24 6d 73 67 0a 40 40 20 2d 31 30 32 35 2c ] $msg.@@ -1025,
2320: 36 20 2b 31 30 37 33 2c 31 38 20 40 40 0a 20 20 6 +1073,18 @@.
2330: 20 20 20 73 65 74 20 61 72 67 32 20 62 61 72 0a set arg2 bar.
2340: 20 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 list [binar
2350: 79 20 73 63 61 6e 20 5c 78 35 32 5c 78 61 33 5c y scan \x52\xa3\
2360: 78 35 33 5c 78 35 34 5c 78 30 31 5c 78 30 32 5c x53\x54\x01\x02\
2370: 78 30 33 5c 78 30 34 5c 78 30 35 20 69 32 63 2a x03\x04\x05 i2c*
2380: 20 61 72 67 31 20 61 72 67 32 5d 20 24 61 72 67 arg1 arg2] $arg
2390: 31 20 24 61 72 67 32 0a 20 7d 20 7b 32 20 7b 31 1 $arg2. } {2 {1
23a0: 34 31 34 37 36 37 34 34 32 20 36 37 33 30 35 39 414767442 673059
23b0: 38 35 7d 20 35 7d 0a 2b 74 65 73 74 20 62 69 6e 85} 5}.+test bin
23c0: 61 72 79 2d 32 39 2e 31 30 20 7b 54 63 6c 5f 42 ary-29.10 {Tcl_B
23d0: 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 73 63 61 inaryObjCmd: sca
23e0: 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 20 n} {.+ catch
23f0: 7b 75 6e 73 65 74 20 61 72 67 31 20 61 72 67 32 {unset arg1 arg2
2400: 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e }.+ list [bin
2410: 61 72 79 20 73 63 61 6e 20 5c 78 66 66 5c 78 66 ary scan \xff\xf
2420: 66 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 66 f\xff\xff\xff\xf
2430: 66 5c 78 66 66 5c 78 66 66 20 69 75 69 20 61 72 f\xff\xff iui ar
2440: 67 31 20 61 72 67 32 5d 20 24 61 72 67 31 20 24 g1 arg2] $arg1 $
2450: 61 72 67 32 0a 2b 7d 20 7b 32 20 34 32 39 34 39 arg2.+} {2 42949
2460: 36 37 32 39 35 20 2d 31 7d 0a 2b 74 65 73 74 20 67295 -1}.+test
2470: 62 69 6e 61 72 79 2d 32 39 2e 31 31 20 7b 54 63 binary-29.11 {Tc
2480: 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 l_BinaryObjCmd:
2490: 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 scan} {.+ cat
24a0: 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 20 61 ch {unset arg1 a
24b0: 72 67 32 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b rg2}.+ list [
24c0: 62 69 6e 61 72 79 20 73 63 61 6e 20 5c 78 66 66 binary scan \xff
24d0: 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 66 66 \xff\xff\xff\xff
24e0: 5c 78 66 66 5c 78 66 66 5c 78 66 66 20 69 69 75 \xff\xff\xff iiu
24f0: 20 61 72 67 31 20 61 72 67 32 5d 20 24 61 72 67 arg1 arg2] $arg
2500: 31 20 24 61 72 67 32 0a 2b 7d 20 7b 32 20 2d 31 1 $arg2.+} {2 -1
2510: 20 34 32 39 34 39 36 37 32 39 35 7d 0a 2b 74 65 4294967295}.+te
2520: 73 74 20 62 69 6e 61 72 79 2d 32 39 2e 31 32 20 st binary-29.12
2530: 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d {Tcl_BinaryObjCm
2540: 64 3a 20 73 63 61 6e 7d 20 7b 0a 2b 20 20 20 20 d: scan} {.+
2550: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 catch {unset arg
2560: 31 20 61 72 67 32 7d 0a 2b 20 20 20 20 6c 69 73 1 arg2}.+ lis
2570: 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 5c t [binary scan \
2580: 78 38 30 5c 78 30 30 5c 78 30 30 5c 78 30 30 5c x80\x00\x00\x00\
2590: 78 30 30 5c 78 30 30 5c 78 30 30 5c 78 38 30 20 x00\x00\x00\x80
25a0: 69 75 69 75 20 61 72 67 31 20 61 72 67 32 5d 20 iuiu arg1 arg2]
25b0: 24 61 72 67 31 20 24 61 72 67 32 0a 2b 7d 20 7b $arg1 $arg2.+} {
25c0: 32 20 31 32 38 20 32 31 34 37 34 38 33 36 34 38 2 128 2147483648
25d0: 7d 0a 20 0a 20 74 65 73 74 20 62 69 6e 61 72 79 }. . test binary
25e0: 2d 33 30 2e 31 20 7b 54 63 6c 5f 42 69 6e 61 72 -30.1 {Tcl_Binar
25f0: 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b yObjCmd: scan} {
2600: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
2610: 68 20 7b 62 69 6e 61 72 79 20 73 63 61 6e 20 61 h {binary scan a
2620: 62 63 20 49 7d 20 6d 73 67 5d 20 24 6d 73 67 0a bc I} msg] $msg.
2630: 40 40 20 2d 31 30 36 35 2c 36 20 2b 31 31 32 35 @@ -1065,6 +1125
2640: 2c 31 38 20 40 40 0a 20 20 20 20 20 73 65 74 20 ,18 @@. set
2650: 61 72 67 32 20 62 61 72 0a 20 20 20 20 20 6c 69 arg2 bar. li
2660: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
2670: 5c 78 35 32 5c 78 61 33 5c 78 35 33 5c 78 35 34 \x52\xa3\x53\x54
2680: 5c 78 30 31 5c 78 30 32 5c 78 30 33 5c 78 30 34 \x01\x02\x03\x04
2690: 5c 78 30 35 20 49 32 63 2a 20 61 72 67 31 20 61 \x05 I2c* arg1 a
26a0: 72 67 32 5d 20 24 61 72 67 31 20 24 61 72 67 32 rg2] $arg1 $arg2
26b0: 0a 20 7d 20 7b 32 20 7b 31 33 38 36 34 33 35 34 . } {2 {13864354
26c0: 31 32 20 31 36 39 30 39 30 36 30 7d 20 35 7d 0a 12 16909060} 5}.
26d0: 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 33 30 2e +test binary-30.
26e0: 31 30 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 10 {Tcl_BinaryOb
26f0: 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b 0a 2b 20 jCmd: scan} {.+
2700: 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 catch {unset
2710: 61 72 67 31 20 61 72 67 32 7d 0a 2b 20 20 20 20 arg1 arg2}.+
2720: 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 list [binary sca
2730: 6e 20 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 n \xff\xff\xff\x
2740: 66 66 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 ff\xff\xff\xff\x
2750: 66 66 20 49 75 49 20 61 72 67 31 20 61 72 67 32 ff IuI arg1 arg2
2760: 5d 20 24 61 72 67 31 20 24 61 72 67 32 0a 2b 7d ] $arg1 $arg2.+}
2770: 20 7b 32 20 34 32 39 34 39 36 37 32 39 35 20 2d {2 4294967295 -
2780: 31 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 1}.+test binary-
2790: 33 30 2e 31 31 20 7b 54 63 6c 5f 42 69 6e 61 72 30.11 {Tcl_Binar
27a0: 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 7d 20 7b yObjCmd: scan} {
27b0: 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 .+ catch {uns
27c0: 65 74 20 61 72 67 31 20 61 72 67 32 7d 0a 2b 20 et arg1 arg2}.+
27d0: 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 20 list [binary
27e0: 73 63 61 6e 20 5c 78 66 66 5c 78 66 66 5c 78 66 scan \xff\xff\xf
27f0: 66 5c 78 66 66 5c 78 66 66 5c 78 66 66 5c 78 66 f\xff\xff\xff\xf
2800: 66 5c 78 66 66 20 49 49 75 20 61 72 67 31 20 61 f\xff IIu arg1 a
2810: 72 67 32 5d 20 24 61 72 67 31 20 24 61 72 67 32 rg2] $arg1 $arg2
2820: 0a 2b 7d 20 7b 32 20 2d 31 20 34 32 39 34 39 36 .+} {2 -1 429496
2830: 37 32 39 35 7d 0a 2b 74 65 73 74 20 62 69 6e 61 7295}.+test bina
2840: 72 79 2d 33 30 2e 31 32 20 7b 54 63 6c 5f 42 69 ry-30.12 {Tcl_Bi
2850: 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e naryObjCmd: scan
2860: 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 20 7b } {.+ catch {
2870: 75 6e 73 65 74 20 61 72 67 31 20 61 72 67 32 7d unset arg1 arg2}
2880: 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 .+ list [bina
2890: 72 79 20 73 63 61 6e 20 5c 78 38 30 5c 78 30 30 ry scan \x80\x00
28a0: 5c 78 30 30 5c 78 30 30 5c 78 30 30 5c 78 30 30 \x00\x00\x00\x00
28b0: 5c 78 30 30 5c 78 38 30 20 49 75 49 75 20 61 72 \x00\x80 IuIu ar
28c0: 67 31 20 61 72 67 32 5d 20 24 61 72 67 31 20 24 g1 arg2] $arg1 $
28d0: 61 72 67 32 0a 2b 7d 20 7b 32 20 32 31 34 37 34 arg2.+} {2 21474
28e0: 38 33 36 34 38 20 31 32 38 7d 0a 20 0a 20 74 65 83648 128}. . te
28f0: 73 74 20 62 69 6e 61 72 79 2d 33 31 2e 31 20 7b st binary-31.1 {
2900: 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 Tcl_BinaryObjCmd
2910: 3a 20 73 63 61 6e 7d 20 7b 0a 20 20 20 20 20 6c : scan} {. l
2920: 69 73 74 20 5b 63 61 74 63 68 20 7b 62 69 6e 61 ist [catch {bina
2930: 72 79 20 73 63 61 6e 20 61 62 63 20 66 7d 20 6d ry scan abc f} m
2940: 73 67 5d 20 24 6d 73 67 0a 40 40 20 2d 31 33 38 sg] $msg.@@ -138
2950: 34 2c 36 20 2b 31 34 35 36 2c 32 36 20 40 40 0a 4,6 +1456,26 @@.
2960: 20 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 catch {unse
2970: 74 20 61 72 67 31 7d 0a 20 20 20 20 20 6c 69 73 t arg1}. lis
2980: 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 5c t [binary scan \
2990: 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 30 32 5c x01\x01\x01\x02\
29a0: 78 38 31 5c 78 30 31 5c 78 30 31 5c 78 30 31 5c x81\x01\x01\x01\
29b0: 78 30 31 5c 78 38 32 5c 78 30 31 5c 78 30 31 5c x01\x82\x01\x01\
29c0: 78 30 31 5c 78 30 31 5c 78 38 32 5c 78 30 31 5c x01\x01\x82\x01\
29d0: 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 38 31 20 x01\x01\x01\x81
29e0: 49 35 20 61 72 67 31 5d 20 24 61 72 67 31 0a 20 I5 arg1] $arg1.
29f0: 7d 20 7b 31 20 7b 31 36 38 34 33 30 31 30 20 2d } {1 {16843010 -
2a00: 32 31 33 30 36 34 30 36 33 39 20 32 35 32 39 37 2130640639 25297
2a10: 31 35 33 20 31 36 38 37 36 30 33 33 20 31 36 38 153 16876033 168
2a20: 34 33 31 33 37 7d 7d 0a 2b 74 65 73 74 20 62 69 43137}}.+test bi
2a30: 6e 61 72 79 2d 33 39 2e 36 20 7b 53 63 61 6e 4e nary-39.6 {ScanN
2a40: 75 6d 62 65 72 3a 20 6e 6f 20 73 69 67 6e 20 65 umber: no sign e
2a50: 78 74 65 6e 73 69 6f 6e 7d 20 7b 0a 2b 20 20 20 xtension} {.+
2a60: 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 catch {unset ar
2a70: 67 31 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 g1}.+ list [b
2a80: 69 6e 61 72 79 20 73 63 61 6e 20 5c 78 35 32 5c inary scan \x52\
2a90: 78 61 33 20 63 75 32 20 61 72 67 31 5d 20 24 61 xa3 cu2 arg1] $a
2aa0: 72 67 31 0a 2b 7d 20 7b 31 20 7b 38 32 20 31 36 rg1.+} {1 {82 16
2ab0: 33 7d 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 3}}.+test binary
2ac0: 2d 33 39 2e 37 20 7b 53 63 61 6e 4e 75 6d 62 65 -39.7 {ScanNumbe
2ad0: 72 3a 20 6e 6f 20 73 69 67 6e 20 65 78 74 65 6e r: no sign exten
2ae0: 73 69 6f 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 sion} {.+ cat
2af0: 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 7d 0a ch {unset arg1}.
2b00: 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 + list [binar
2b10: 79 20 73 63 61 6e 20 5c 78 30 31 5c 78 30 32 5c y scan \x01\x02\
2b20: 78 30 31 5c 78 38 31 5c 78 38 32 5c 78 30 31 5c x01\x81\x82\x01\
2b30: 78 38 31 5c 78 38 32 20 73 75 34 20 61 72 67 31 x81\x82 su4 arg1
2b40: 5d 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 7b 35 ] $arg1.+} {1 {5
2b50: 31 33 20 33 33 30 32 35 20 33 38 36 20 33 33 34 13 33025 386 334
2b60: 30 39 7d 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 09}}.+test binar
2b70: 79 2d 33 39 2e 38 20 7b 53 63 61 6e 4e 75 6d 62 y-39.8 {ScanNumb
2b80: 65 72 3a 20 6e 6f 20 73 69 67 6e 20 65 78 74 65 er: no sign exte
2b90: 6e 73 69 6f 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 nsion} {.+ ca
2ba0: 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 7d tch {unset arg1}
2bb0: 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 .+ list [bina
2bc0: 72 79 20 73 63 61 6e 20 5c 78 30 31 5c 78 30 32 ry scan \x01\x02
2bd0: 5c 78 30 31 5c 78 38 31 5c 78 38 32 5c 78 30 31 \x01\x81\x82\x01
2be0: 5c 78 38 31 5c 78 38 32 20 53 75 34 20 61 72 67 \x81\x82 Su4 arg
2bf0: 31 5d 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 7b 1] $arg1.+} {1 {
2c00: 32 35 38 20 33 38 35 20 33 33 32 38 31 20 33 33 258 385 33281 33
2c10: 31 35 34 7d 7d 0a 2b 74 65 73 74 20 62 69 6e 61 154}}.+test bina
2c20: 72 79 2d 33 39 2e 39 20 7b 53 63 61 6e 4e 75 6d ry-39.9 {ScanNum
2c30: 62 65 72 3a 20 6e 6f 20 73 69 67 6e 20 65 78 74 ber: no sign ext
2c40: 65 6e 73 69 6f 6e 7d 20 7b 0a 2b 20 20 20 20 63 ension} {.+ c
2c50: 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 31 atch {unset arg1
2c60: 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e }.+ list [bin
2c70: 61 72 79 20 73 63 61 6e 20 5c 78 30 31 5c 78 30 ary scan \x01\x0
2c80: 31 5c 78 30 31 5c 78 30 32 5c 78 38 31 5c 78 30 1\x01\x02\x81\x0
2c90: 31 5c 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 38 1\x01\x01\x01\x8
2ca0: 32 5c 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 30 2\x01\x01\x01\x0
2cb0: 31 5c 78 38 32 5c 78 30 31 5c 78 30 31 5c 78 30 1\x82\x01\x01\x0
2cc0: 31 5c 78 30 31 5c 78 38 31 20 69 75 35 20 61 72 1\x01\x81 iu5 ar
2cd0: 67 31 5d 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 g1] $arg1.+} {1
2ce0: 7b 33 33 36 32 30 32 32 35 20 31 36 38 34 33 31 {33620225 168431
2cf0: 33 37 20 31 36 38 37 36 30 33 33 20 32 35 32 39 37 16876033 2529
2d00: 37 31 35 33 20 32 31 36 34 33 32 36 36 35 37 7d 7153 2164326657}
2d10: 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 33 }.+test binary-3
2d20: 39 2e 31 30 20 7b 53 63 61 6e 4e 75 6d 62 65 72 9.10 {ScanNumber
2d30: 3a 20 6e 6f 20 73 69 67 6e 20 65 78 74 65 6e 73 : no sign extens
2d40: 69 6f 6e 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 ion} {.+ catc
2d50: 68 20 7b 75 6e 73 65 74 20 61 72 67 31 7d 0a 2b h {unset arg1}.+
2d60: 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 list [binary
2d70: 20 73 63 61 6e 20 5c 78 30 31 5c 78 30 31 5c 78 scan \x01\x01\x
2d80: 30 31 5c 78 30 32 5c 78 38 31 5c 78 30 31 5c 78 01\x02\x81\x01\x
2d90: 30 31 5c 78 30 31 5c 78 30 31 5c 78 38 32 5c 78 01\x01\x01\x82\x
2da0: 30 31 5c 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 01\x01\x01\x01\x
2db0: 38 32 5c 78 30 31 5c 78 30 31 5c 78 30 31 5c 78 82\x01\x01\x01\x
2dc0: 30 31 5c 78 38 31 20 49 75 35 20 61 72 67 31 5d 01\x81 Iu5 arg1]
2dd0: 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 7b 31 36 $arg1.+} {1 {16
2de0: 38 34 33 30 31 30 20 32 31 36 34 33 32 36 36 35 843010 216432665
2df0: 37 20 32 35 32 39 37 31 35 33 20 31 36 38 37 36 7 25297153 16876
2e00: 30 33 33 20 31 36 38 34 33 31 33 37 7d 7d 0a 20 033 16843137}}.
2e10: 0a 20 74 65 73 74 20 62 69 6e 61 72 79 2d 34 30 . test binary-40
2e20: 2e 33 20 7b 53 63 61 6e 4e 75 6d 62 65 72 3a 20 .3 {ScanNumber:
2e30: 4e 61 4e 7d 20 5c 0a 20 20 20 20 20 2d 62 6f 64 NaN} \. -bod
2e40: 79 20 7b 0a 40 40 20 2d 31 34 36 33 2c 36 20 2b y {.@@ -1463,6 +
2e50: 31 35 35 35 2c 32 36 20 40 40 0a 20 20 20 20 20 1555,26 @@.
2e60: 62 69 6e 61 72 79 20 73 63 61 6e 20 5b 62 69 6e binary scan [bin
2e70: 61 72 79 20 66 6f 72 6d 61 74 20 57 20 5b 65 78 ary format W [ex
2e80: 70 72 20 7b 77 69 64 65 28 33 29 20 3c 3c 20 33 pr {wide(3) << 3
2e90: 31 7d 5d 5d 20 57 20 78 0a 20 20 20 20 20 73 65 1}]] W x. se
2ea0: 74 20 78 0a 20 7d 20 36 34 34 32 34 35 30 39 34 t x. } 644245094
2eb0: 34 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 34 4.+test binary-4
2ec0: 33 2e 35 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 3.5 {Tcl_BinaryO
2ed0: 62 6a 43 6d 64 3a 20 73 63 61 6e 20 77 69 64 65 bjCmd: scan wide
2ee0: 20 69 6e 74 7d 20 7b 7d 20 7b 0a 2b 20 20 20 20 int} {} {.+
2ef0: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 72 67 catch {unset arg
2f00: 31 7d 0a 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 1}.+ list [bi
2f10: 6e 61 72 79 20 73 63 61 6e 20 5c 78 38 30 5b 73 nary scan \x80[s
2f20: 74 72 69 6e 67 20 72 65 70 65 61 74 20 5c 78 30 tring repeat \x0
2f30: 30 20 37 5d 20 57 20 61 72 67 31 5d 20 24 61 72 0 7] W arg1] $ar
2f40: 67 31 0a 2b 7d 20 7b 31 20 2d 39 32 32 33 33 37 g1.+} {1 -922337
2f50: 32 30 33 36 38 35 34 37 37 35 38 30 38 7d 0a 2b 2036854775808}.+
2f60: 74 65 73 74 20 62 69 6e 61 72 79 2d 34 33 2e 36 test binary-43.6
2f70: 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 {Tcl_BinaryObjC
2f80: 6d 64 3a 20 73 63 61 6e 20 75 6e 73 69 67 6e 65 md: scan unsigne
2f90: 64 20 77 69 64 65 20 69 6e 74 7d 20 7b 7d 20 7b d wide int} {} {
2fa0: 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 .+ catch {uns
2fb0: 65 74 20 61 72 67 31 7d 0a 2b 20 20 20 20 6c 69 et arg1}.+ li
2fc0: 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e 20 st [binary scan
2fd0: 5c 78 38 30 5b 73 74 72 69 6e 67 20 72 65 70 65 \x80[string repe
2fe0: 61 74 20 5c 78 30 30 20 37 5d 20 57 75 20 61 72 at \x00 7] Wu ar
2ff0: 67 31 5d 20 24 61 72 67 31 0a 2b 7d 20 7b 31 20 g1] $arg1.+} {1
3000: 39 32 32 33 33 37 32 30 33 36 38 35 34 37 37 35 9223372036854775
3010: 38 30 38 7d 0a 2b 74 65 73 74 20 62 69 6e 61 72 808}.+test binar
3020: 79 2d 34 33 2e 37 20 7b 54 63 6c 5f 42 69 6e 61 y-43.7 {Tcl_Bina
3030: 72 79 4f 62 6a 43 6d 64 3a 20 73 63 61 6e 20 75 ryObjCmd: scan u
3040: 6e 73 69 67 6e 65 64 20 77 69 64 65 20 69 6e 74 nsigned wide int
3050: 7d 20 7b 7d 20 7b 0a 2b 20 20 20 20 63 61 74 63 } {} {.+ catc
3060: 68 20 7b 75 6e 73 65 74 20 61 72 67 31 7d 0a 2b h {unset arg1}.+
3070: 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 79 list [binary
3080: 20 73 63 61 6e 20 5b 73 74 72 69 6e 67 20 72 65 scan [string re
3090: 70 65 61 74 20 5c 78 30 30 20 37 5d 5c 78 38 30 peat \x00 7]\x80
30a0: 20 77 75 20 61 72 67 31 5d 20 24 61 72 67 31 0a wu arg1] $arg1.
30b0: 2b 7d 20 7b 31 20 39 32 32 33 33 37 32 30 33 36 +} {1 9223372036
30c0: 38 35 34 37 37 35 38 30 38 7d 0a 2b 74 65 73 74 854775808}.+test
30d0: 20 62 69 6e 61 72 79 2d 34 33 2e 38 20 7b 54 63 binary-43.8 {Tc
30e0: 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 l_BinaryObjCmd:
30f0: 73 63 61 6e 20 75 6e 73 69 67 6e 65 64 20 77 69 scan unsigned wi
3100: 64 65 20 69 6e 74 7d 20 7b 7d 20 7b 0a 2b 20 20 de int} {} {.+
3110: 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 catch {unset a
3120: 72 67 31 20 61 72 67 32 7d 0a 2b 20 20 20 20 6c rg1 arg2}.+ l
3130: 69 73 74 20 5b 62 69 6e 61 72 79 20 73 63 61 6e ist [binary scan
3140: 20 5c 78 38 30 5b 73 74 72 69 6e 67 20 72 65 70 \x80[string rep
3150: 65 61 74 20 5c 78 30 30 20 37 5d 5c 78 38 30 5b eat \x00 7]\x80[
3160: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 5c 78 string repeat \x
3170: 30 30 20 37 5d 20 57 75 57 20 61 72 67 31 20 61 00 7] WuW arg1 a
3180: 72 67 32 5d 20 24 61 72 67 31 20 24 61 72 67 32 rg2] $arg1 $arg2
3190: 0a 2b 7d 20 7b 32 20 39 32 32 33 33 37 32 30 33 .+} {2 922337203
31a0: 36 38 35 34 37 37 35 38 30 38 20 2d 39 32 32 33 6854775808 -9223
31b0: 33 37 32 30 33 36 38 35 34 37 37 35 38 30 38 7d 372036854775808}
31c0: 0a 2b 74 65 73 74 20 62 69 6e 61 72 79 2d 34 33 .+test binary-43
31d0: 2e 39 20 7b 54 63 6c 5f 42 69 6e 61 72 79 4f 62 .9 {Tcl_BinaryOb
31e0: 6a 43 6d 64 3a 20 73 63 61 6e 20 75 6e 73 69 67 jCmd: scan unsig
31f0: 6e 65 64 20 77 69 64 65 20 69 6e 74 7d 20 7b 7d ned wide int} {}
3200: 20 7b 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 75 {.+ catch {u
3210: 6e 73 65 74 20 61 72 67 31 20 61 72 67 32 7d 0a nset arg1 arg2}.
3220: 2b 20 20 20 20 6c 69 73 74 20 5b 62 69 6e 61 72 + list [binar
3230: 79 20 73 63 61 6e 20 5b 73 74 72 69 6e 67 20 72 y scan [string r
3240: 65 70 65 61 74 20 5c 78 30 30 20 37 5d 5c 78 38 epeat \x00 7]\x8
3250: 30 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 0[string repeat
3260: 5c 78 30 30 20 37 5d 5c 78 38 30 20 77 75 77 20 \x00 7]\x80 wuw
3270: 61 72 67 31 20 61 72 67 32 5d 20 24 61 72 67 31 arg1 arg2] $arg1
3280: 20 24 61 72 67 32 0a 2b 7d 20 7b 32 20 39 32 32 $arg2.+} {2 922
3290: 33 33 37 32 30 33 36 38 35 34 37 37 35 38 30 38 3372036854775808
32a0: 20 2d 39 32 32 33 33 37 32 30 33 36 38 35 34 37 -92233720368547
32b0: 37 35 38 30 38 7d 0a 20 0a 20 74 65 73 74 20 62 75808}. . test b
32c0: 69 6e 61 72 79 2d 34 35 2e 31 20 7b 54 63 6c 5f inary-45.1 {Tcl_
32d0: 42 69 6e 61 72 79 4f 62 6a 43 6d 64 3a 20 63 6f BinaryObjCmd: co
32e0: 6d 62 69 6e 65 64 20 77 69 64 65 20 69 6e 74 20 mbined wide int
32f0: 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 20 20 20 20 handling} {.
3300: 20 62 69 6e 61 72 79 20 73 63 61 6e 20 5b 62 69 binary scan [bi
3310: 6e 61 72 79 20 66 6f 72 6d 61 74 20 73 77 73 20 nary format sws
3320: 31 36 34 35 30 20 2d 31 20 31 39 35 32 31 5d 20 16450 -1 19521]
3330: 63 2a 20 78 0a c* x.
