Attachment "bin2.patch" to
ticket [2368084fff]
added by
ferrieux
2008-12-09 04:19:35.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d clInt.h.========
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 0a 52 43 53 20 ===========.RCS
0060: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0070: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
0080: 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65 clInt.h,v.retrie
0090: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
00a0: 34 30 38 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 408.diff -u -r1.
00b0: 34 30 38 20 74 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 408 tclInt.h.---
00c0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e generic/tclInt.
00d0: 68 09 35 20 44 65 63 20 32 30 30 38 20 31 34 3a h.5 Dec 2008 14:
00e0: 32 37 3a 33 36 20 2d 30 30 30 30 09 31 2e 34 30 27:36 -0000.1.40
00f0: 38 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 8.+++ generic/tc
0100: 6c 49 6e 74 2e 68 09 38 20 44 65 63 20 32 30 30 lInt.h.8 Dec 200
0110: 38 20 32 31 3a 31 35 3a 33 36 20 2d 30 30 30 30 8 21:15:36 -0000
0120: 0a 40 40 20 2d 32 34 36 31 2c 36 20 2b 32 34 36 .@@ -2461,6 +246
0130: 31 2c 38 20 40 40 0a 20 09 09 09 09 2f 2a 20 55 1,8 @@. ..../* U
0140: 73 65 20 5b 73 63 61 6e 5d 20 72 75 6c 65 73 20 se [scan] rules
0150: 64 65 61 6c 69 6e 67 20 77 69 74 68 20 30 3f 20 dealing with 0?
0160: 70 72 65 66 69 78 65 73 20 2a 2f 0a 20 23 64 65 prefixes */. #de
0170: 66 69 6e 65 20 54 43 4c 5f 50 41 52 53 45 5f 4e fine TCL_PARSE_N
0180: 4f 5f 57 48 49 54 45 53 50 41 43 45 09 09 33 32 O_WHITESPACE..32
0190: 0a 20 09 09 09 09 2f 2a 20 52 65 6a 65 63 74 20 . ..../* Reject
01a0: 6c 65 61 64 69 6e 67 2f 74 72 61 69 6c 69 6e 67 leading/trailing
01b0: 20 77 68 69 74 65 73 70 61 63 65 20 2a 2f 0a 2b whitespace */.+
01c0: 23 64 65 66 69 6e 65 20 54 43 4c 5f 50 41 52 53 #define TCL_PARS
01d0: 45 5f 42 49 4e 41 52 59 5f 4f 4e 4c 59 09 36 34 E_BINARY_ONLY.64
01e0: 0a 2b 09 09 09 09 2f 2a 20 50 61 72 73 65 20 62 .+..../* Parse b
01f0: 69 6e 61 72 79 20 65 76 65 6e 20 77 69 74 68 6f inary even witho
0200: 75 74 20 70 72 65 66 69 78 20 2a 2f 0a 20 0a 20 ut prefix */. .
0210: 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *----------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 49 6e 64 ------------.Ind
0260: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 ex: generic/tclS
0270: 63 61 6e 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d can.c.==========
0280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
02c0: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
02d0: 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c /tcl/generic/tcl
02e0: 53 63 61 6e 2e 63 2c 76 0a 72 65 74 72 69 65 76 Scan.c,v.retriev
02f0: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 ing revision 1.2
0300: 39 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 32 39 9.diff -u -r1.29
0310: 20 74 63 6c 53 63 61 6e 2e 63 0a 2d 2d 2d 20 67 tclScan.c.--- g
0320: 65 6e 65 72 69 63 2f 74 63 6c 53 63 61 6e 2e 63 eneric/tclScan.c
0330: 09 31 39 20 4a 75 6c 20 32 30 30 38 20 32 32 3a .19 Jul 2008 22:
0340: 35 30 3a 34 32 20 2d 30 30 30 30 09 31 2e 32 39 50:42 -0000.1.29
0350: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c .+++ generic/tcl
0360: 53 63 61 6e 2e 63 09 38 20 44 65 63 20 32 30 30 Scan.c.8 Dec 200
0370: 38 20 32 31 3a 31 35 3a 33 37 20 2d 30 30 30 30 8 21:15:37 -0000
0380: 0a 40 40 20 2d 34 30 35 2c 36 20 2b 34 30 35 2c .@@ -405,6 +405,
0390: 37 20 40 40 0a 20 09 63 61 73 65 20 27 69 27 3a 7 @@. .case 'i':
03a0: 0a 20 09 63 61 73 65 20 27 6f 27 3a 0a 20 09 63 . .case 'o':. .c
03b0: 61 73 65 20 27 78 27 3a 0a 2b 09 63 61 73 65 20 ase 'x':.+.case
03c0: 27 62 27 3a 0a 20 09 20 20 20 20 62 72 65 61 6b 'b':. . break
03d0: 3b 0a 20 09 63 61 73 65 20 27 75 27 3a 0a 20 09 ;. .case 'u':. .
03e0: 20 20 20 20 69 66 20 28 66 6c 61 67 73 20 26 20 if (flags &
03f0: 53 43 41 4e 5f 42 49 47 29 20 7b 0a 40 40 20 2d SCAN_BIG) {.@@ -
0400: 37 33 32 2c 36 20 2b 37 33 33 2c 31 30 20 40 40 732,6 +733,10 @@
0410: 0a 20 09 20 20 20 20 6f 70 20 3d 20 27 69 27 3b . . op = 'i';
0420: 0a 20 09 20 20 20 20 70 61 72 73 65 46 6c 61 67 . . parseFlag
0430: 20 7c 3d 20 54 43 4c 5f 50 41 52 53 45 5f 48 45 |= TCL_PARSE_HE
0440: 58 41 44 45 43 49 4d 41 4c 5f 4f 4e 4c 59 3b 0a XADECIMAL_ONLY;.
0450: 20 09 20 20 20 20 62 72 65 61 6b 3b 0a 2b 09 63 . break;.+.c
0460: 61 73 65 20 27 62 27 3a 0a 2b 09 20 20 20 20 6f ase 'b':.+. o
0470: 70 20 3d 20 27 69 27 3b 0a 2b 09 20 20 20 20 70 p = 'i';.+. p
0480: 61 72 73 65 46 6c 61 67 20 7c 3d 20 54 43 4c 5f arseFlag |= TCL_
0490: 50 41 52 53 45 5f 42 49 4e 41 52 59 5f 4f 4e 4c PARSE_BINARY_ONL
04a0: 59 3b 0a 2b 09 20 20 20 20 62 72 65 61 6b 3b 0a Y;.+. break;.
04b0: 20 09 63 61 73 65 20 27 75 27 3a 0a 20 09 20 20 .case 'u':. .
04c0: 20 20 6f 70 20 3d 20 27 69 27 3b 0a 20 09 20 20 op = 'i';. .
04d0: 20 20 70 61 72 73 65 46 6c 61 67 20 7c 3d 20 54 parseFlag |= T
04e0: 43 4c 5f 50 41 52 53 45 5f 44 45 43 49 4d 41 4c CL_PARSE_DECIMAL
04f0: 5f 4f 4e 4c 59 3b 0a 49 6e 64 65 78 3a 20 67 65 _ONLY;.Index: ge
0500: 6e 65 72 69 63 2f 74 63 6c 53 74 72 54 6f 44 2e neric/tclStrToD.
0510: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
0520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0550: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0560: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0570: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 72 54 /generic/tclStrT
0580: 6f 44 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e oD.c,v.retrievin
0590: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 33 34 0a g revision 1.34.
05a0: 64 69 66 66 20 2d 75 20 2d 72 31 2e 33 34 20 74 diff -u -r1.34 t
05b0: 63 6c 53 74 72 54 6f 44 2e 63 0a 2d 2d 2d 20 67 clStrToD.c.--- g
05c0: 65 6e 65 72 69 63 2f 74 63 6c 53 74 72 54 6f 44 eneric/tclStrToD
05d0: 2e 63 09 31 20 41 70 72 20 32 30 30 38 20 32 30 .c.1 Apr 2008 20
05e0: 3a 30 38 3a 32 32 20 2d 30 30 30 30 09 31 2e 33 :08:22 -0000.1.3
05f0: 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 4.+++ generic/tc
0600: 6c 53 74 72 54 6f 44 2e 63 09 38 20 44 65 63 20 lStrToD.c.8 Dec
0610: 32 30 30 38 20 32 31 3a 31 35 3a 34 30 20 2d 30 2008 21:15:40 -0
0620: 30 30 30 0a 40 40 20 2d 33 36 39 2c 36 20 2b 33 000.@@ -369,6 +3
0630: 36 39 2c 38 20 40 40 0a 20 09 09 62 72 65 61 6b 69,8 @@. ..break
0640: 3b 0a 20 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;. . } else i
0650: 66 20 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 50 f (flags & TCL_P
0660: 41 52 53 45 5f 48 45 58 41 44 45 43 49 4d 41 4c ARSE_HEXADECIMAL
0670: 5f 4f 4e 4c 59 29 20 7b 0a 20 09 09 67 6f 74 6f _ONLY) {. ..goto
0680: 20 7a 65 72 6f 78 3b 0a 2b 09 20 20 20 20 7d 20 zerox;.+. }
0690: 65 6c 73 65 20 69 66 20 28 66 6c 61 67 73 20 26 else if (flags &
06a0: 20 54 43 4c 5f 50 41 52 53 45 5f 42 49 4e 41 52 TCL_PARSE_BINAR
06b0: 59 5f 4f 4e 4c 59 29 20 7b 0a 2b 09 09 67 6f 74 Y_ONLY) {.+..got
06c0: 6f 20 7a 65 72 6f 62 3b 0a 20 09 20 20 20 20 7d o zerob;. . }
06d0: 20 65 6c 73 65 20 69 66 20 28 66 6c 61 67 73 20 else if (flags
06e0: 26 20 54 43 4c 5f 50 41 52 53 45 5f 4f 43 54 41 & TCL_PARSE_OCTA
06f0: 4c 5f 4f 4e 4c 59 29 20 7b 0a 20 09 09 67 6f 74 L_ONLY) {. ..got
0700: 6f 20 7a 65 72 6f 6f 3b 0a 20 09 20 20 20 20 7d o zeroo;. . }
0710: 20 65 6c 73 65 20 69 66 20 28 69 73 64 69 67 69 else if (isdigi
0720: 74 28 55 43 48 41 52 28 63 29 29 29 20 7b 0a 40 t(UCHAR(c))) {.@
0730: 40 20 2d 33 39 35 2c 39 20 2b 33 39 37 2c 39 20 @ -395,9 +397,9
0740: 40 40 0a 20 09 63 61 73 65 20 5a 45 52 4f 3a 0a @@. .case ZERO:.
0750: 20 09 20 20 20 20 2f 2a 0a 20 09 20 20 20 20 20 . /*. .
0760: 2a 20 53 63 61 6e 6e 65 64 20 61 20 6c 65 61 64 * Scanned a lead
0770: 69 6e 67 20 7a 65 72 6f 20 28 70 65 72 68 61 70 ing zero (perhap
0780: 73 20 77 69 74 68 20 61 20 2b 20 6f 72 20 2d 29 s with a + or -)
0790: 2e 20 41 63 63 65 70 74 61 62 6c 65 0a 2d 09 20 . Acceptable.-.
07a0: 20 20 20 20 2a 20 69 6e 70 75 74 73 20 61 72 65 * inputs are
07b0: 20 64 69 67 69 74 73 2c 20 70 65 72 69 6f 64 2c digits, period,
07c0: 20 58 2c 20 61 6e 64 20 45 2e 20 49 66 20 38 20 X, and E. If 8
07d0: 6f 72 20 39 20 69 73 20 65 6e 63 6f 75 6e 74 65 or 9 is encounte
07e0: 72 65 64 2c 0a 2b 09 20 20 20 20 20 2a 20 69 6e red,.+. * in
07f0: 70 75 74 73 20 61 72 65 20 64 69 67 69 74 73 2c puts are digits,
0800: 20 70 65 72 69 6f 64 2c 20 58 2c 20 62 2c 20 61 period, X, b, a
0810: 6e 64 20 45 2e 20 49 66 20 38 20 6f 72 20 39 20 nd E. If 8 or 9
0820: 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 2c 0a is encountered,.
0830: 20 09 20 20 20 20 20 2a 20 74 68 65 20 6e 75 6d . * the num
0840: 62 65 72 20 63 61 6e 27 74 20 62 65 20 6f 63 74 ber can't be oct
0850: 61 6c 2e 20 54 68 69 73 20 73 74 61 74 65 20 61 al. This state a
0860: 6e 64 20 74 68 65 20 4f 43 54 41 4c 20 73 74 61 nd the OCTAL sta
0870: 74 65 0a 2d 09 20 20 20 20 20 2a 20 64 69 66 66 te.-. * diff
0880: 65 72 20 6f 6e 6c 79 20 69 6e 20 77 68 65 74 68 er only in wheth
0890: 65 72 20 74 68 65 79 20 72 65 63 6f 67 6e 69 7a er they recogniz
08a0: 65 20 27 58 27 2e 0a 2b 09 20 20 20 20 20 2a 20 e 'X'..+. *
08b0: 64 69 66 66 65 72 20 6f 6e 6c 79 20 69 6e 20 77 differ only in w
08c0: 68 65 74 68 65 72 20 74 68 65 79 20 72 65 63 6f hether they reco
08d0: 67 6e 69 7a 65 20 27 58 27 20 61 6e 64 20 27 62 gnize 'X' and 'b
08e0: 27 2e 0a 20 09 20 20 20 20 20 2a 2f 0a 20 0a 20 '.. . */. .
08f0: 09 20 20 20 20 61 63 63 65 70 74 53 74 61 74 65 . acceptState
0900: 20 3d 20 73 74 61 74 65 3b 0a 40 40 20 2d 34 31 = state;.@@ -41
0910: 37 2c 36 20 2b 34 31 39 2c 39 20 40 40 0a 20 09 7,6 +419,9 @@. .
0920: 09 73 74 61 74 65 20 3d 20 5a 45 52 4f 5f 42 3b .state = ZERO_B;
0930: 0a 20 09 09 62 72 65 61 6b 3b 0a 20 09 20 20 20 . ..break;. .
0940: 20 7d 0a 2b 09 20 20 20 20 69 66 20 28 66 6c 61 }.+. if (fla
0950: 67 73 20 26 20 54 43 4c 5f 50 41 52 53 45 5f 42 gs & TCL_PARSE_B
0960: 49 4e 41 52 59 5f 4f 4e 4c 59 29 20 7b 0a 2b 09 INARY_ONLY) {.+.
0970: 09 67 6f 74 6f 20 7a 65 72 6f 62 3b 0a 2b 09 20 .goto zerob;.+.
0980: 20 20 20 7d 0a 20 09 20 20 20 20 69 66 20 28 63 }. . if (c
0990: 20 3d 3d 20 27 6f 27 20 7c 7c 20 63 20 3d 3d 20 == 'o' || c ==
09a0: 27 4f 27 29 20 7b 0a 20 09 09 65 78 70 6c 69 63 'O') {. ..explic
09b0: 69 74 4f 63 74 61 6c 20 3d 20 31 3b 0a 20 09 09 itOctal = 1;. ..
09c0: 73 74 61 74 65 20 3d 20 5a 45 52 4f 5f 4f 3b 0a state = ZERO_O;.
09d0: 40 40 20 2d 36 30 32 2c 36 20 2b 36 30 37 2c 37 @@ -602,6 +607,7
09e0: 20 40 40 0a 20 09 20 20 20 20 61 63 63 65 70 74 @@. . accept
09f0: 50 6f 69 6e 74 20 3d 20 70 3b 0a 20 09 20 20 20 Point = p;. .
0a00: 20 61 63 63 65 70 74 4c 65 6e 20 3d 20 6c 65 6e acceptLen = len
0a10: 3b 0a 20 09 63 61 73 65 20 5a 45 52 4f 5f 42 3a ;. .case ZERO_B:
0a20: 0a 2b 09 7a 65 72 6f 62 3a 0a 20 09 20 20 20 20 .+.zerob:. .
0a30: 69 66 20 28 63 20 3d 3d 20 27 30 27 29 20 7b 0a if (c == '0') {.
0a40: 20 09 09 2b 2b 6e 75 6d 54 72 61 69 6c 5a 65 72 ..++numTrailZer
0a50: 6f 73 3b 0a 20 09 09 73 74 61 74 65 20 3d 20 42 os;. ..state = B
0a60: 49 4e 41 52 59 3b 0a 49 6e 64 65 78 3a 20 67 65 INARY;.Index: ge
0a70: 6e 65 72 69 63 2f 74 63 6c 53 74 72 69 6e 67 4f neric/tclStringO
0a80: 62 6a 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d bj.c.===========
0a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ac0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
0ad0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
0ae0: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 53 tcl/generic/tclS
0af0: 74 72 69 6e 67 4f 62 6a 2e 63 2c 76 0a 72 65 74 tringObj.c,v.ret
0b00: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
0b10: 20 31 2e 37 34 0a 64 69 66 66 20 2d 75 20 2d 72 1.74.diff -u -r
0b20: 31 2e 37 34 20 74 63 6c 53 74 72 69 6e 67 4f 62 1.74 tclStringOb
0b30: 6a 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f j.c.--- generic/
0b40: 74 63 6c 53 74 72 69 6e 67 4f 62 6a 2e 63 09 32 tclStringObj.c.2
0b50: 36 20 4f 63 74 20 32 30 30 38 20 31 38 3a 33 34 6 Oct 2008 18:34
0b60: 3a 30 34 20 2d 30 30 30 30 09 31 2e 37 34 0a 2b :04 -0000.1.74.+
0b70: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 ++ generic/tclSt
0b80: 72 69 6e 67 4f 62 6a 2e 63 09 38 20 44 65 63 20 ringObj.c.8 Dec
0b90: 32 30 30 38 20 32 31 3a 31 35 3a 34 32 20 2d 30 2008 21:15:42 -0
0ba0: 30 30 30 0a 40 40 20 2d 31 39 34 33 2c 37 20 2b 000.@@ -1943,7 +
0bb0: 31 39 34 33 2c 38 20 40 40 0a 20 09 63 61 73 65 1943,8 @@. .case
0bc0: 20 27 64 27 3a 0a 20 09 63 61 73 65 20 27 6f 27 'd':. .case 'o'
0bd0: 3a 0a 20 09 63 61 73 65 20 27 78 27 3a 0a 2d 09 :. .case 'x':.-.
0be0: 63 61 73 65 20 27 58 27 3a 20 7b 0a 2b 09 63 61 case 'X': {.+.ca
0bf0: 73 65 20 27 58 27 3a 0a 2b 09 63 61 73 65 20 27 se 'X':.+.case '
0c00: 62 27 3a 20 7b 0a 20 09 20 20 20 20 73 68 6f 72 b': {. . shor
0c10: 74 20 69 6e 74 20 73 20 3d 20 30 3b 09 2f 2a 20 t int s = 0;./*
0c20: 53 69 6c 65 6e 63 65 20 63 6f 6d 70 69 6c 65 72 Silence compiler
0c30: 20 77 61 72 6e 69 6e 67 3b 20 6f 6e 6c 79 20 64 warning; only d
0c40: 65 66 69 6e 65 64 20 61 6e 64 0a 20 09 09 09 09 efined and. ....
0c50: 20 2a 20 75 73 65 64 20 77 68 65 6e 20 75 73 65 * used when use
0c60: 53 68 6f 72 74 20 69 73 20 74 72 75 65 2e 20 2a Short is true. *
0c70: 2f 0a 20 09 20 20 20 20 6c 6f 6e 67 20 6c 3b 0a /. . long l;.
0c80: 40 40 20 2d 32 30 31 36 2c 36 20 2b 32 30 31 37 @@ -2016,6 +2017
0c90: 2c 39 20 40 40 0a 20 09 09 63 61 73 65 20 27 58 ,9 @@. ..case 'X
0ca0: 27 3a 0a 20 09 09 20 20 20 20 54 63 6c 5f 41 70 ':. .. Tcl_Ap
0cb0: 70 65 6e 64 54 6f 4f 62 6a 28 73 65 67 6d 65 6e pendToObj(segmen
0cc0: 74 2c 20 22 30 78 22 2c 20 32 29 3b 0a 20 09 09 t, "0x", 2);. ..
0cd0: 20 20 20 20 62 72 65 61 6b 3b 0a 2b 09 09 63 61 break;.+..ca
0ce0: 73 65 20 27 62 27 3a 0a 2b 09 09 20 20 20 20 54 se 'b':.+.. T
0cf0: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 73 cl_AppendToObj(s
0d00: 65 67 6d 65 6e 74 2c 20 22 30 62 22 2c 20 32 29 egment, "0b", 2)
0d10: 3b 0a 2b 09 09 20 20 20 20 62 72 65 61 6b 3b 0a ;.+.. break;.
0d20: 20 09 09 7d 0a 20 09 20 20 20 20 7d 0a 20 0a 40 ..}. . }. .@
0d30: 40 20 2d 32 30 37 34 2c 37 20 2b 32 30 37 38 2c @ -2074,7 +2078,
0d40: 38 20 40 40 0a 20 09 20 20 20 20 63 61 73 65 20 8 @@. . case
0d50: 27 75 27 3a 0a 20 09 20 20 20 20 63 61 73 65 20 'u':. . case
0d60: 27 6f 27 3a 0a 20 09 20 20 20 20 63 61 73 65 20 'o':. . case
0d70: 27 78 27 3a 0a 2d 09 20 20 20 20 63 61 73 65 20 'x':.-. case
0d80: 27 58 27 3a 20 7b 0a 2b 09 20 20 20 20 63 61 73 'X': {.+. cas
0d90: 65 20 27 58 27 3a 0a 2b 09 20 20 20 20 63 61 73 e 'X':.+. cas
0da0: 65 20 27 62 27 3a 20 7b 0a 20 09 09 54 63 6c 5f e 'b': {. ..Tcl_
0db0: 57 69 64 65 55 49 6e 74 20 62 69 74 73 20 3d 20 WideUInt bits =
0dc0: 28 54 63 6c 5f 57 69 64 65 55 49 6e 74 29 30 3b (Tcl_WideUInt)0;
0dd0: 0a 20 09 09 69 6e 74 20 6c 65 6e 67 74 68 2c 20 . ..int length,
0de0: 6e 75 6d 42 69 74 73 20 3d 20 34 2c 20 6e 75 6d numBits = 4, num
0df0: 44 69 67 69 74 73 20 3d 20 30 2c 20 62 61 73 65 Digits = 0, base
0e00: 20 3d 20 31 36 3b 0a 20 09 09 69 6e 74 20 69 6e = 16;. ..int in
0e10: 64 65 78 20 3d 20 30 2c 20 73 68 69 66 74 20 3d dex = 0, shift =
0e20: 20 30 3b 0a 40 40 20 2d 32 30 38 33 2c 31 30 20 0;.@@ -2083,10
0e30: 2b 32 30 38 38 2c 31 32 20 40 40 0a 20 0a 20 09 +2088,12 @@. . .
0e40: 09 69 66 20 28 63 68 20 3d 3d 20 27 75 27 29 20 .if (ch == 'u')
0e50: 7b 0a 20 09 09 20 20 20 20 62 61 73 65 20 3d 20 {. .. base =
0e60: 31 30 3b 0a 2d 09 09 7d 0a 2d 09 09 69 66 20 28 10;.-..}.-..if (
0e70: 63 68 20 3d 3d 20 27 6f 27 29 20 7b 0a 2b 09 09 ch == 'o') {.+..
0e80: 7d 20 65 6c 73 65 20 69 66 20 28 63 68 20 3d 3d } else if (ch ==
0e90: 20 27 6f 27 29 20 7b 0a 20 09 09 20 20 20 20 62 'o') {. .. b
0ea0: 61 73 65 20 3d 20 38 3b 0a 20 09 09 20 20 20 20 ase = 8;. ..
0eb0: 6e 75 6d 42 69 74 73 20 3d 20 33 3b 0a 2b 09 09 numBits = 3;.+..
0ec0: 7d 20 65 6c 73 65 20 69 66 20 28 63 68 3d 3d 27 } else if (ch=='
0ed0: 62 27 29 20 7b 0a 2b 09 09 20 20 20 20 62 61 73 b') {.+.. bas
0ee0: 65 20 3d 20 32 3b 0a 2b 09 09 20 20 20 20 6e 75 e = 2;.+.. nu
0ef0: 6d 42 69 74 73 20 3d 20 31 3b 0a 20 09 09 7d 0a mBits = 1;. ..}.
0f00: 20 09 09 69 66 20 28 75 73 65 53 68 6f 72 74 29 ..if (useShort)
0f10: 20 7b 0a 20 09 09 20 20 20 20 75 6e 73 69 67 6e {. .. unsign
0f20: 65 64 20 73 68 6f 72 74 20 69 6e 74 20 75 73 20 ed short int us
0f30: 3d 20 28 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 = (unsigned shor
0f40: 74 20 69 6e 74 29 20 73 3b 0a 49 6e 64 65 78 3a t int) s;.Index:
0f50: 20 74 65 73 74 73 2f 66 6f 72 6d 61 74 2e 74 65 tests/format.te
0f60: 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d st.=============
0f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0f80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0f90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0fa0: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0fb0: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0fc0: 6c 2f 74 65 73 74 73 2f 66 6f 72 6d 61 74 2e 74 l/tests/format.t
0fd0: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
0fe0: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 37 0a 64 revision 1.27.d
0ff0: 69 66 66 20 2d 75 20 2d 72 31 2e 32 37 20 66 6f iff -u -r1.27 fo
1000: 72 6d 61 74 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 rmat.test.--- te
1010: 73 74 73 2f 66 6f 72 6d 61 74 2e 74 65 73 74 09 sts/format.test.
1020: 31 39 20 4a 75 6c 20 32 30 30 38 20 32 32 3a 35 19 Jul 2008 22:5
1030: 30 3a 33 39 20 2d 30 30 30 30 09 31 2e 32 37 0a 0:39 -0000.1.27.
1040: 2b 2b 2b 20 74 65 73 74 73 2f 66 6f 72 6d 61 74 +++ tests/format
1050: 2e 74 65 73 74 09 38 20 44 65 63 20 32 30 30 38 .test.8 Dec 2008
1060: 20 32 31 3a 31 35 3a 34 33 20 2d 30 30 30 30 0a 21:15:43 -0000.
1070: 40 40 20 2d 37 37 2c 36 20 2b 37 37 2c 39 20 40 @@ -77,6 +77,9 @
1080: 40 0a 20 74 65 73 74 20 66 6f 72 6d 61 74 2d 31 @. test format-1
1090: 2e 31 31 2e 31 20 7b 69 6e 74 65 67 65 72 20 66 .11.1 {integer f
10a0: 6f 72 6d 61 74 74 69 6e 67 7d 20 6c 6f 6e 67 49 ormatting} longI
10b0: 73 36 34 62 69 74 20 7b 0a 20 20 20 20 20 66 6f s64bit {. fo
10c0: 72 6d 61 74 20 22 25 2d 23 32 30 6f 20 25 23 2d rmat "%-#20o %#-
10d0: 32 30 6f 20 25 23 2d 32 30 6f 20 25 23 2d 32 30 20o %#-20o %#-20
10e0: 6f 22 20 36 20 33 34 20 31 36 39 32 33 20 2d 31 o" 6 34 16923 -1
10f0: 32 20 2d 31 0a 20 7d 20 7b 30 36 20 20 20 20 20 2 -1. } {06
1100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 04
1110: 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2
1120: 20 20 20 30 34 31 30 33 33 20 20 20 20 20 20 20 041033
1130: 20 20 20 20 20 20 20 20 30 31 37 37 37 37 37 37 01777777
1140: 37 37 37 37 37 37 37 37 37 37 37 37 37 36 34 7d 777777777777764}
1150: 0a 2b 74 65 73 74 20 66 6f 72 6d 61 74 2d 31 2e .+test format-1.
1160: 31 32 20 7b 69 6e 74 65 67 65 72 20 66 6f 72 6d 12 {integer form
1170: 61 74 74 69 6e 67 7d 20 7b 0a 2b 20 20 20 20 66 atting} {.+ f
1180: 6f 72 6d 61 74 20 22 25 62 20 25 23 62 20 25 6c ormat "%b %#b %l
1190: 6c 62 22 20 35 20 35 20 5b 65 78 70 72 20 7b 32 lb" 5 5 [expr {2
11a0: 2a 2a 31 30 30 7d 5d 0a 2b 7d 20 7b 31 30 31 20 **100}].+} {101
11b0: 30 62 31 30 31 20 31 30 30 30 30 30 30 30 30 30 0b101 1000000000
11c0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
11d0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
11e0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
11f0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
1200: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
1210: 30 30 30 30 30 30 30 30 30 30 30 7d 0a 20 0a 20 00000000000}. .
1220: 74 65 73 74 20 66 6f 72 6d 61 74 2d 32 2e 31 20 test format-2.1
1230: 7b 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 74 69 {string formatti
1240: 6e 67 7d 20 7b 0a 20 20 20 20 20 66 6f 72 6d 61 ng} {. forma
1250: 74 20 22 25 73 20 25 73 20 25 63 20 25 73 22 20 t "%s %s %c %s"
1260: 61 62 63 64 20 7b 54 68 69 73 20 69 73 20 61 20 abcd {This is a
1270: 76 65 72 79 20 6c 6f 6e 67 20 74 65 73 74 20 73 very long test s
1280: 74 72 69 6e 67 2e 7d 20 31 32 30 20 78 0a 49 6e tring.} 120 x.In
1290: 64 65 78 3a 20 74 65 73 74 73 2f 73 63 61 6e 2e dex: tests/scan.
12a0: 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d test.===========
12b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
12c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
12d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
12e0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
12f0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
1300: 74 63 6c 2f 74 65 73 74 73 2f 73 63 61 6e 2e 74 tcl/tests/scan.t
1310: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
1320: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 32 0a 64 revision 1.22.d
1330: 69 66 66 20 2d 75 20 2d 72 31 2e 32 32 20 73 63 iff -u -r1.22 sc
1340: 61 6e 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 an.test.--- test
1350: 73 2f 73 63 61 6e 2e 74 65 73 74 09 31 39 20 4a s/scan.test.19 J
1360: 75 6c 20 32 30 30 38 20 32 32 3a 35 30 3a 33 39 ul 2008 22:50:39
1370: 20 2d 30 30 30 30 09 31 2e 32 32 0a 2b 2b 2b 20 -0000.1.22.+++
1380: 74 65 73 74 73 2f 73 63 61 6e 2e 74 65 73 74 09 tests/scan.test.
1390: 38 20 44 65 63 20 32 30 30 38 20 32 31 3a 31 35 8 Dec 2008 21:15
13a0: 3a 34 34 20 2d 30 30 30 30 0a 40 40 20 2d 31 39 :44 -0000.@@ -19
13b0: 2c 37 20 2b 31 39 2c 37 20 40 40 0a 20 7d 0a 20 ,7 +19,7 @@. }.
13c0: 0a 20 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 . testConstraint
13d0: 20 77 69 64 65 49 73 36 34 62 69 74 20 5c 0a 2d wideIs64bit \.-
13e0: 09 5b 65 78 70 72 20 7b 28 77 69 64 65 28 30 78 .[expr {(wide(0x
13f0: 38 30 30 30 30 30 30 30 29 20 3e 20 30 29 20 26 80000000) > 0) &
1400: 26 20 28 77 69 64 65 28 30 78 38 30 30 30 30 30 & (wide(0x800000
1410: 30 30 30 30 30 30 30 30 30 30 29 20 3c 20 30 29 0000000000) < 0)
1420: 7d 5d 0a 2b 20 20 20 20 20 20 20 20 5b 65 78 70 }].+ [exp
1430: 72 20 7b 28 77 69 64 65 28 30 78 38 30 30 30 30 r {(wide(0x80000
1440: 30 30 30 29 20 3e 20 30 29 20 26 26 20 28 77 69 000) > 0) && (wi
1450: 64 65 28 30 78 38 30 30 30 30 30 30 30 30 30 30 de(0x80000000000
1460: 30 30 30 30 30 29 20 3c 20 30 29 7d 5d 0a 20 0a 00000) < 0)}]. .
1470: 20 74 65 73 74 20 73 63 61 6e 2d 31 2e 31 20 7b test scan-1.1 {
1480: 42 75 69 6c 64 43 68 61 72 53 65 74 2c 20 43 68 BuildCharSet, Ch
1490: 61 72 49 6e 53 65 74 7d 20 7b 0a 20 20 20 20 20 arInSet} {.
14a0: 6c 69 73 74 20 5b 73 63 61 6e 20 66 6f 6f 20 7b list [scan foo {
14b0: 25 5b 5e 6f 5d 7d 20 78 5d 20 24 78 0a 40 40 20 %[^o]} x] $x.@@
14c0: 2d 32 34 38 2c 31 30 20 2b 32 34 38 2c 31 34 20 -248,10 +248,14
14d0: 40 40 0a 20 20 20 20 20 63 61 74 63 68 20 7b 75 @@. catch {u
14e0: 6e 73 65 74 20 78 7d 0a 20 20 20 20 20 6c 69 73 nset x}. lis
14f0: 74 20 5b 73 63 61 6e 20 7b 78 46 7d 20 7b 25 78 t [scan {xF} {%x
1500: 7d 20 78 5d 20 5b 69 6e 66 6f 20 65 78 69 73 74 } x] [info exist
1510: 73 20 78 5d 0a 20 7d 20 7b 30 20 30 7d 0a 2b 74 s x]. } {0 0}.+t
1520: 65 73 74 20 73 63 61 6e 2d 34 2e 34 30 2e 33 20 est scan-4.40.3
1530: 7b 54 63 6c 5f 53 63 61 6e 4f 62 6a 43 6d 64 2c {Tcl_ScanObjCmd,
1540: 20 62 61 73 65 2d 32 20 69 6e 74 65 67 65 72 20 base-2 integer
1550: 73 63 61 6e 6e 69 6e 67 7d 20 7b 0a 2b 20 20 20 scanning} {.+
1560: 20 73 65 74 20 78 20 7b 7d 0a 2b 20 20 20 20 6c set x {}.+ l
1570: 69 73 74 20 5b 73 63 61 6e 20 7b 31 30 30 31 20 ist [scan {1001
1580: 30 62 31 30 31 20 31 30 30 30 30 30 30 30 30 30 0b101 1000000000
1590: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15a0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15b0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15c0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15d0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15e0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
15f0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
1600: 30 30 30 30 30 30 30 7d 20 7b 25 62 20 25 62 20 0000000} {%b %b
1610: 25 6c 6c 62 7d 20 78 20 79 20 7a 5d 20 24 78 20 %llb} x y z] $x
1620: 24 79 20 24 7a 0a 2b 7d 20 7b 33 20 39 20 35 20 $y $z.+} {3 9 5
1630: 33 34 30 32 38 32 33 36 36 39 32 30 39 33 38 34 3402823669209384
1640: 36 33 34 36 33 33 37 34 36 30 37 34 33 31 37 36 6346337460743176
1650: 38 32 31 31 34 35 36 7d 0a 20 74 65 73 74 20 73 8211456}. test s
1660: 63 61 6e 2d 34 2e 34 31 20 7b 54 63 6c 5f 53 63 can-4.41 {Tcl_Sc
1670: 61 6e 4f 62 6a 43 6d 64 2c 20 62 61 73 65 2d 75 anObjCmd, base-u
1680: 6e 6b 6e 6f 77 6e 20 69 6e 74 65 67 65 72 20 73 nknown integer s
1690: 63 61 6e 6e 69 6e 67 7d 20 7b 0a 20 20 20 20 20 canning} {.
16a0: 73 65 74 20 78 20 7b 7d 0a 2d 20 20 20 20 6c 69 set x {}.- li
16b0: 73 74 20 5b 73 63 61 6e 20 7b 31 30 20 30 31 30 st [scan {10 010
16c0: 20 30 78 31 30 7d 20 7b 25 69 25 69 25 69 7d 20 0x10} {%i%i%i}
16d0: 78 20 79 20 7a 5d 20 24 78 20 24 79 20 24 7a 0a x y z] $x $y $z.
16e0: 2d 7d 20 7b 33 20 31 30 20 38 20 31 36 7d 0a 2b -} {3 10 8 16}.+
16f0: 20 20 20 20 6c 69 73 74 20 5b 73 63 61 6e 20 7b list [scan {
1700: 31 30 20 30 31 30 20 30 78 31 30 20 30 62 31 30 10 010 0x10 0b10
1710: 7d 20 7b 25 69 25 69 25 69 25 69 7d 20 78 20 79 } {%i%i%i%i} x y
1720: 20 7a 20 74 5d 20 24 78 20 24 79 20 24 7a 20 24 z t] $x $y $z $
1730: 74 0a 2b 7d 20 7b 34 20 31 30 20 38 20 31 36 20 t.+} {4 10 8 16
1740: 32 7d 0a 20 74 65 73 74 20 73 63 61 6e 2d 34 2e 2}. test scan-4.
1750: 34 32 20 7b 54 63 6c 5f 53 63 61 6e 4f 62 6a 43 42 {Tcl_ScanObjC
1760: 6d 64 2c 20 62 61 73 65 2d 75 6e 6b 6e 6f 77 6e md, base-unknown
1770: 20 69 6e 74 65 67 65 72 20 73 63 61 6e 6e 69 6e integer scannin
1780: 67 7d 20 7b 0a 20 20 20 20 20 73 65 74 20 78 20 g} {. set x
1790: 7b 7d 0a 20 20 20 20 20 6c 69 73 74 20 5b 73 63 {}. list [sc
17a0: 61 6e 20 7b 31 30 20 30 31 30 20 30 58 31 30 7d an {10 010 0X10}
17b0: 20 7b 25 69 25 69 25 69 7d 20 78 20 79 20 7a 5d {%i%i%i} x y z]
17c0: 20 24 78 20 24 79 20 24 7a 0a 49 6e 64 65 78 3a $x $y $z.Index:
17d0: 20 64 6f 63 2f 66 6f 72 6d 61 74 2e 6e 0a 3d 3d doc/format.n.==
17e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
17f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1820: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1830: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 64 6f 63 root/tcl/tcl/doc
1840: 2f 66 6f 72 6d 61 74 2e 6e 2c 76 0a 72 65 74 72 /format.n,v.retr
1850: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
1860: 31 2e 32 31 0a 64 69 66 66 20 2d 75 20 2d 72 31 1.21.diff -u -r1
1870: 2e 32 31 20 66 6f 72 6d 61 74 2e 6e 0a 2d 2d 2d .21 format.n.---
1880: 20 64 6f 63 2f 66 6f 72 6d 61 74 2e 6e 09 31 37 doc/format.n.17
1890: 20 4f 63 74 20 32 30 30 38 20 31 30 3a 32 32 3a Oct 2008 10:22:
18a0: 32 35 20 2d 30 30 30 30 09 31 2e 32 31 0a 2b 2b 25 -0000.1.21.++
18b0: 2b 20 64 6f 63 2f 66 6f 72 6d 61 74 2e 6e 09 38 + doc/format.n.8
18c0: 20 44 65 63 20 32 30 30 38 20 32 31 3a 31 35 3a Dec 2008 21:15:
18d0: 34 34 20 2d 30 30 30 30 0a 40 40 20 2d 38 37 2c 44 -0000.@@ -87,
18e0: 36 20 2b 38 37 2c 38 20 40 40 0a 20 63 6f 6e 76 6 +87,8 @@. conv
18f0: 65 72 73 69 6f 6e 73 20 69 74 20 67 75 61 72 61 ersions it guara
1900: 6e 74 65 65 73 20 74 68 61 74 20 74 68 65 20 66 ntees that the f
1910: 69 72 73 74 20 64 69 67 69 74 20 69 73 20 61 6c irst digit is al
1920: 77 61 79 73 20 5c 66 42 30 5c 66 52 2e 0a 20 46 ways \fB0\fR.. F
1930: 6f 72 20 5c 66 42 78 5c 66 52 20 6f 72 20 5c 66 or \fBx\fR or \f
1940: 42 58 5c 66 52 20 63 6f 6e 76 65 72 73 69 6f 6e BX\fR conversion
1950: 73 2c 20 5c 66 42 30 78 5c 66 52 20 6f 72 20 5c s, \fB0x\fR or \
1960: 66 42 30 58 5c 66 52 20 28 72 65 73 70 65 63 74 fB0X\fR (respect
1970: 69 76 65 6c 79 29 0a 20 77 69 6c 6c 20 62 65 20 ively). will be
1980: 61 64 64 65 64 20 74 6f 20 74 68 65 20 62 65 67 added to the beg
1990: 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 72 65 inning of the re
19a0: 73 75 6c 74 20 75 6e 6c 65 73 73 20 69 74 20 69 sult unless it i
19b0: 73 20 7a 65 72 6f 2e 0a 2b 46 6f 72 20 5c 66 42 s zero..+For \fB
19c0: 62 5c 66 52 20 63 6f 6e 76 65 72 73 69 6f 6e 73 b\fR conversions
19d0: 2c 20 5c 66 42 30 62 5c 66 52 0a 2b 77 69 6c 6c , \fB0b\fR.+will
19e0: 20 62 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 be added to the
19f0: 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 beginning of th
1a00: 65 20 72 65 73 75 6c 74 20 75 6e 6c 65 73 73 20 e result unless
1a10: 69 74 20 69 73 20 7a 65 72 6f 2e 0a 20 46 6f 72 it is zero.. For
1a20: 20 61 6c 6c 20 66 6c 6f 61 74 69 6e 67 2d 70 6f all floating-po
1a30: 69 6e 74 20 63 6f 6e 76 65 72 73 69 6f 6e 73 20 int conversions
1a40: 28 5c 66 42 65 5c 66 52 2c 20 5c 66 42 45 5c 66 (\fBe\fR, \fBE\f
1a50: 52 2c 20 5c 66 42 66 5c 66 52 2c 0a 20 5c 66 42 R, \fBf\fR,. \fB
1a60: 67 5c 66 52 2c 20 61 6e 64 20 5c 66 42 47 5c 66 g\fR, and \fBG\f
1a70: 52 29 20 69 74 20 67 75 61 72 61 6e 74 65 65 73 R) it guarantees
1a80: 20 74 68 61 74 20 74 68 65 20 72 65 73 75 6c 74 that the result
1a90: 20 61 6c 77 61 79 73 20 0a 20 68 61 73 20 61 20 always . has a
1aa0: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 2e 0a 40 decimal point..@
1ab0: 40 20 2d 31 36 31 2c 36 20 2b 31 36 33 2c 39 20 @ -161,6 +163,9
1ac0: 40 40 0a 20 2e 51 57 20 30 31 32 33 34 35 36 37 @@. .QW 01234567
1ad0: 38 39 41 42 43 44 45 46 0a 20 66 6f 72 20 5c 66 89ABCDEF. for \f
1ae0: 42 58 5c 66 52 29 2e 0a 20 2e 54 50 20 31 30 0a BX\fR).. .TP 10.
1af0: 2b 5c 66 42 62 5c 66 52 0a 2b 43 6f 6e 76 65 72 +\fBb\fR.+Conver
1b00: 74 20 69 6e 74 65 67 65 72 20 74 6f 20 62 69 6e t integer to bin
1b10: 61 72 79 20 73 74 72 69 6e 67 2c 20 75 73 69 6e ary string, usin
1b20: 67 20 64 69 67 69 74 73 20 30 20 61 6e 64 20 31 g digits 0 and 1
1b30: 2e 0a 2b 2e 54 50 20 31 30 0a 20 5c 66 42 63 5c ..+.TP 10. \fBc\
1b40: 66 52 0a 20 43 6f 6e 76 65 72 74 20 69 6e 74 65 fR. Convert inte
1b50: 67 65 72 20 74 6f 20 74 68 65 20 55 6e 69 63 6f ger to the Unico
1b60: 64 65 20 63 68 61 72 61 63 74 65 72 20 69 74 20 de character it
1b70: 72 65 70 72 65 73 65 6e 74 73 2e 0a 20 2e 54 50 represents.. .TP
1b80: 20 31 30 0a 40 40 20 2d 32 30 33 2c 36 20 2b 32 10.@@ -203,6 +2
1b90: 30 38 2c 37 20 40 40 0a 20 2e 49 50 20 5b 33 5d 08,7 @@. .IP [3]
1ba0: 0a 20 54 68 65 20 73 69 7a 65 20 6d 6f 64 69 66 . The size modif
1bb0: 69 65 72 73 20 61 72 65 20 69 67 6e 6f 72 65 64 iers are ignored
1bc0: 20 77 68 65 6e 20 66 6f 72 6d 61 74 74 69 6e 67 when formatting
1bd0: 20 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 20 floating-point
1be0: 76 61 6c 75 65 73 2e 0a 20 54 68 65 20 5c 66 42 values.. The \fB
1bf0: 6c 6c 5c 66 52 20 6d 6f 64 69 66 69 65 72 20 68 ll\fR modifier h
1c00: 61 73 20 6e 6f 20 5c 66 42 73 70 72 69 6e 74 66 as no \fBsprintf
1c10: 5c 66 52 20 63 6f 75 6e 74 65 72 70 61 72 74 2e \fR counterpart.
1c20: 0a 2b 54 68 65 20 5c 66 42 62 5c 66 52 20 73 70 .+The \fBb\fR sp
1c30: 65 63 69 66 69 65 72 20 68 61 73 20 6e 6f 20 5c ecifier has no \
1c40: 66 42 73 70 72 69 6e 74 66 5c 66 52 20 63 6f 75 fBsprintf\fR cou
1c50: 6e 74 65 72 70 61 72 74 2e 0a 20 2e 53 48 20 45 nterpart.. .SH E
1c60: 58 41 4d 50 4c 45 53 0a 20 2e 50 50 0a 20 43 6f XAMPLES. .PP. Co
1c70: 6e 76 65 72 74 20 74 68 65 20 6e 75 6d 65 72 69 nvert the numeri
1c80: 63 20 76 61 6c 75 65 20 6f 66 20 61 20 55 4e 49 c value of a UNI
1c90: 43 4f 44 45 20 63 68 61 72 61 63 74 65 72 20 74 CODE character t
1ca0: 6f 20 74 68 65 20 63 68 61 72 61 63 74 65 72 0a o the character.
1cb0: 49 6e 64 65 78 3a 20 64 6f 63 2f 73 63 61 6e 2e Index: doc/scan.
1cc0: 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d n.==============
1cd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ce0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1cf0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d00: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
1d10: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
1d20: 2f 64 6f 63 2f 73 63 61 6e 2e 6e 2c 76 0a 72 65 /doc/scan.n,v.re
1d30: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
1d40: 6e 20 31 2e 32 36 0a 64 69 66 66 20 2d 75 20 2d n 1.26.diff -u -
1d50: 72 31 2e 32 36 20 73 63 61 6e 2e 6e 0a 2d 2d 2d r1.26 scan.n.---
1d60: 20 64 6f 63 2f 73 63 61 6e 2e 6e 09 31 37 20 4f doc/scan.n.17 O
1d70: 63 74 20 32 30 30 38 20 31 30 3a 32 32 3a 32 35 ct 2008 10:22:25
1d80: 20 2d 30 30 30 30 09 31 2e 32 36 0a 2b 2b 2b 20 -0000.1.26.+++
1d90: 64 6f 63 2f 73 63 61 6e 2e 6e 09 38 20 44 65 63 doc/scan.n.8 Dec
1da0: 20 32 30 30 38 20 32 31 3a 31 35 3a 34 35 20 2d 2008 21:15:45 -
1db0: 30 30 30 30 0a 40 40 20 2d 31 30 34 2c 36 20 2b 0000.@@ -104,6 +
1dc0: 31 30 34 2c 31 32 20 40 40 0a 20 49 74 20 69 73 104,12 @@. It is
1dd0: 20 72 65 61 64 20 69 6e 20 61 6e 64 20 74 68 65 read in and the
1de0: 20 69 6e 74 65 67 65 72 20 76 61 6c 75 65 20 69 integer value i
1df0: 73 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 s stored in the
1e00: 76 61 72 69 61 62 6c 65 2c 0a 20 74 72 75 6e 63 variable,. trunc
1e10: 61 74 65 64 20 61 73 20 72 65 71 75 69 72 65 64 ated as required
1e20: 20 62 79 20 74 68 65 20 73 69 7a 65 20 6d 6f 64 by the size mod
1e30: 69 66 69 65 72 20 76 61 6c 75 65 2e 0a 20 2e 54 ifier value.. .T
1e40: 50 20 31 30 0a 2b 5c 66 42 62 5c 66 52 0a 2b 2e P 10.+\fBb\fR.+.
1e50: 0a 2b 54 68 65 20 69 6e 70 75 74 20 73 75 62 73 .+The input subs
1e60: 74 72 69 6e 67 20 6d 75 73 74 20 62 65 20 61 20 tring must be a
1e70: 62 69 6e 61 72 79 20 69 6e 74 65 67 65 72 2e 0a binary integer..
1e80: 2b 49 74 20 69 73 20 72 65 61 64 20 69 6e 20 61 +It is read in a
1e90: 6e 64 20 74 68 65 20 69 6e 74 65 67 65 72 20 76 nd the integer v
1ea0: 61 6c 75 65 20 69 73 20 73 74 6f 72 65 64 20 69 alue is stored i
1eb0: 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 2c 0a n the variable,.
1ec0: 2b 74 72 75 6e 63 61 74 65 64 20 61 73 20 72 65 +truncated as re
1ed0: 71 75 69 72 65 64 20 62 79 20 74 68 65 20 73 69 quired by the si
1ee0: 7a 65 20 6d 6f 64 69 66 69 65 72 20 76 61 6c 75 ze modifier valu
1ef0: 65 2e 0a 2b 2e 54 50 20 31 30 0a 20 5c 66 42 75 e..+.TP 10. \fBu
1f00: 5c 66 52 0a 20 2e 0a 20 54 68 65 20 69 6e 70 75 \fR. .. The inpu
1f10: 74 20 73 75 62 73 74 72 69 6e 67 20 6d 75 73 74 t substring must
1f20: 20 62 65 20 61 20 64 65 63 69 6d 61 6c 20 69 6e be a decimal in
1f30: 74 65 67 65 72 2e 0a teger..
