Attachment "errorstack7.patch" to
ticket [2868499fff]
added by
ferrieux
2009-11-09 20:26:18.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 63 61 74 63 68 Index: doc/catch
0010: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
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 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0060: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0070: 6c 2f 64 6f 63 2f 63 61 74 63 68 2e 6e 2c 76 0a l/doc/catch.n,v.
0080: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0090: 69 6f 6e 20 31 2e 32 30 0a 64 69 66 66 20 2d 75 ion 1.20.diff -u
00a0: 20 2d 70 20 2d 72 31 2e 32 30 20 63 61 74 63 68 -p -r1.20 catch
00b0: 2e 6e 0a 2d 2d 2d 20 64 6f 63 2f 63 61 74 63 68 .n.--- doc/catch
00c0: 2e 6e 09 31 37 20 4f 63 74 20 32 30 30 38 20 31 .n.17 Oct 2008 1
00d0: 30 3a 32 32 3a 32 35 20 2d 30 30 30 30 09 31 2e 0:22:25 -0000.1.
00e0: 32 30 0a 2b 2b 2b 20 64 6f 63 2f 63 61 74 63 68 20.+++ doc/catch
00f0: 2e 6e 09 39 20 4e 6f 76 20 32 30 30 39 20 31 33 .n.9 Nov 2009 13
0100: 3a 31 35 3a 35 36 20 2d 30 30 30 30 0a 40 40 20 :15:56 -0000.@@
0110: 2d 35 34 2c 32 32 20 2b 35 34 2c 33 33 20 40 40 -54,22 +54,33 @@
0120: 20 4f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 72 Only when the r
0130: 65 74 75 72 6e 20 63 6f 64 65 20 69 73 20 5c 66 eturn code is \f
0140: 42 54 43 4c 5f 52 45 54 55 0a 20 74 68 65 20 5c BTCL_RETU. the \
0150: 66 42 5c 2d 6c 65 76 65 6c 5c 66 52 20 61 6e 64 fB\-level\fR and
0160: 20 5c 66 42 5c 2d 63 6f 64 65 5c 66 52 20 65 6e \fB\-code\fR en
0170: 74 72 69 65 73 20 62 65 20 73 6f 6d 65 74 68 69 tries be somethi
0180: 6e 67 20 65 6c 73 65 2c 20 61 73 0a 20 66 75 72 ng else, as. fur
0190: 74 68 65 72 20 64 65 73 63 72 69 62 65 64 20 69 ther described i
01a0: 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 n the documentat
01b0: 69 6f 6e 20 66 6f 72 20 74 68 65 20 5c 66 42 72 ion for the \fBr
01c0: 65 74 75 72 6e 5c 66 52 20 63 6f 6d 6d 61 6e 64 eturn\fR command
01d0: 2e 0a 20 2e 50 50 0a 2d 57 68 65 6e 20 74 68 65 .. .PP.-When the
01e0: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f return code fro
01f0: 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 m evaluation of
0200: 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 20 \fIscript\fR is
0210: 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 2c \fBTCL_ERROR\fR,
0220: 0a 2d 74 68 72 65 65 20 61 64 64 69 74 69 6f 6e .-three addition
0230: 61 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 64 al entries are d
0240: 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 69 efined in the di
0250: 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 75 ctionary of retu
0260: 72 6e 20 6f 70 74 69 6f 6e 73 0a 2d 73 74 6f 72 rn options.-stor
0270: 65 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e 73 ed in \fIoptions
0280: 56 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 5c VarName\fR: \fB\
0290: 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 20 5c -errorinfo\fR, \
02a0: 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 fB\-errorcode\fR
02b0: 2c 20 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 72 , .-and \fB\-err
02c0: 6f 72 6c 69 6e 65 5c 66 52 2e 20 20 54 68 65 20 orline\fR. The
02d0: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 42 value of the \fB
02e0: 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 20 65 \-errorinfo\fR e
02f0: 6e 74 72 79 0a 2d 69 73 20 61 20 66 6f 72 6d 61 ntry.-is a forma
0300: 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 65 tted stack trace
0310: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 6f 72 65 containing more
0320: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f information abo
0330: 75 74 0a 2d 74 68 65 20 63 6f 6e 74 65 78 74 20 ut.-the context
0340: 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 72 72 in which the err
0350: 6f 72 20 68 61 70 70 65 6e 65 64 2e 20 20 54 68 or happened. Th
0360: 65 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 63 e formatted stac
0370: 6b 0a 2d 74 72 61 63 65 20 69 73 20 6d 65 61 6e k.-trace is mean
0380: 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 20 t to be read by
0390: 61 20 70 65 72 73 6f 6e 2e 20 20 54 68 65 20 76 a person. The v
03a0: 61 6c 75 65 20 6f 66 0a 2d 74 68 65 20 5c 66 42 alue of.-the \fB
03b0: 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 65 \-errorcode\fR e
03c0: 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f 6e ntry is addition
03d0: 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 al information a
03e0: 62 6f 75 74 20 74 68 65 0a 2d 65 72 72 6f 72 20 bout the.-error
03f0: 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 74 stored as a list
0400: 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 6f . The \fB\-erro
0410: 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 69 rcode\fR value i
0420: 73 20 6d 65 61 6e 74 20 74 6f 0a 2d 62 65 20 66 s meant to.-be f
0430: 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 64 urther processed
0440: 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 6e by programs, an
0450: 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 72 d may not be par
0460: 74 69 63 75 6c 61 72 6c 79 0a 2d 72 65 61 64 61 ticularly.-reada
0470: 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 20 ble by people.
0480: 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 The value of the
0490: 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 5c \fB\-errorline\
04a0: 66 52 20 65 6e 74 72 79 0a 2d 69 73 20 61 6e 20 fR entry.-is an
04b0: 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 69 integer indicati
04c0: 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f 66 ng which line of
04d0: 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 61 \fIscript\fR wa
04e0: 73 20 62 65 69 6e 67 0a 2d 65 76 61 6c 75 61 74 s being.-evaluat
04f0: 65 64 20 77 68 65 6e 20 74 68 65 20 65 72 72 6f ed when the erro
0500: 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 65 r occurred. The
0510: 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 5c values of the \
0520: 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 fB\-errorinfo\fR
0530: 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 72 6f 72 .-and \fB\-error
0540: 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 65 73 20 code\fR entries
0550: 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 of the most rece
0560: 6e 74 20 65 72 72 6f 72 20 61 72 65 20 61 6c 73 nt error are als
0570: 6f 0a 2d 61 76 61 69 6c 61 62 6c 65 20 61 73 20 o.-available as
0580: 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 67 6c values of the gl
0590: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 5c obal variables \
05a0: 66 42 3a 3a 65 72 72 6f 72 49 6e 66 6f 5c 66 52 fB::errorInfo\fR
05b0: 0a 2d 61 6e 64 20 5c 66 42 3a 3a 65 72 72 6f 72 .-and \fB::error
05c0: 43 6f 64 65 5c 66 52 20 72 65 73 70 65 63 74 69 Code\fR respecti
05d0: 76 65 6c 79 2e 0a 2b 57 68 65 6e 20 74 68 65 20 vely..+When the
05e0: 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f 6d return code from
05f0: 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 5c evaluation of \
0600: 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 0a 2b fIscript\fR is.+
0610: 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 2c \fBTCL_ERROR\fR,
0620: 20 66 6f 75 72 20 61 64 64 69 74 69 6f 6e 61 6c four additional
0630: 20 65 6e 74 72 69 65 73 20 61 72 65 20 64 65 66 entries are def
0640: 69 6e 65 64 20 69 6e 20 74 68 65 20 64 69 63 74 ined in the dict
0650: 69 6f 6e 61 72 79 0a 2b 6f 66 20 72 65 74 75 72 ionary.+of retur
0660: 6e 20 6f 70 74 69 6f 6e 73 20 73 74 6f 72 65 64 n options stored
0670: 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e 73 56 61 in \fIoptionsVa
0680: 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 5c 2d 65 rName\fR: \fB\-e
0690: 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 0a 2b 5c 66 rrorinfo\fR,.+\f
06a0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 2c B\-errorcode\fR,
06b0: 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 5c \fB\-errorline\
06c0: 66 52 2c 20 61 6e 64 20 5c 66 42 5c 2d 65 72 72 fR, and \fB\-err
06d0: 6f 72 73 74 61 63 6b 5c 66 52 2e 20 20 54 68 65 orstack\fR. The
06e0: 0a 2b 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c .+value of the \
06f0: 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 fB\-errorinfo\fR
0700: 20 65 6e 74 72 79 20 69 73 20 61 20 66 6f 72 6d entry is a form
0710: 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 atted stack trac
0720: 65 0a 2b 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 6f e.+containing mo
0730: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 re information a
0740: 62 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 74 bout the context
0750: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 72 in which the er
0760: 72 6f 72 0a 2b 68 61 70 70 65 6e 65 64 2e 20 20 ror.+happened.
0770: 54 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 74 The formatted st
0780: 61 63 6b 20 74 72 61 63 65 20 69 73 20 6d 65 61 ack trace is mea
0790: 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 nt to be read by
07a0: 20 61 20 70 65 72 73 6f 6e 2e 0a 2b 54 68 65 20 a person..+The
07b0: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 42 value of the \fB
07c0: 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 65 \-errorcode\fR e
07d0: 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f 6e ntry is addition
07e0: 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 2b al information.+
07f0: 61 62 6f 75 74 20 74 68 65 20 65 72 72 6f 72 20 about the error
0800: 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 74 stored as a list
0810: 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 6f . The \fB\-erro
0820: 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 69 rcode\fR value i
0830: 73 0a 2b 6d 65 61 6e 74 20 74 6f 20 62 65 20 66 s.+meant to be f
0840: 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 64 urther processed
0850: 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 6e by programs, an
0860: 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 72 d may not be par
0870: 74 69 63 75 6c 61 72 6c 79 0a 2b 72 65 61 64 61 ticularly.+reada
0880: 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 20 ble by people.
0890: 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 The value of the
08a0: 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 5c \fB\-errorline\
08b0: 66 52 20 65 6e 74 72 79 20 69 73 20 61 6e 0a 2b fR entry is an.+
08c0: 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 69 integer indicati
08d0: 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f 66 ng which line of
08e0: 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 61 \fIscript\fR wa
08f0: 73 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 s being evaluate
0900: 64 20 77 68 65 6e 0a 2b 74 68 65 20 65 72 72 6f d when.+the erro
0910: 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 65 r occurred. The
0920: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
0930: 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 B\-errorstack\fR
0940: 20 65 6e 74 72 79 20 69 73 20 61 0a 2b 6c 69 73 entry is a.+lis
0950: 74 20 6f 66 20 6c 69 73 74 73 20 6d 61 64 65 20 t of lists made
0960: 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 of the function
0970: 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 6d 65 names and argume
0980: 6e 74 73 20 61 74 20 65 61 63 68 20 6c 65 76 65 nts at each leve
0990: 6c 0a 2b 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c l.+from the call
09a0: 20 73 74 61 63 6b 20 77 68 65 6e 20 74 68 65 20 stack when the
09b0: 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 error occurred.
09c0: 49 74 20 64 69 66 66 65 72 73 20 66 72 6f 6d 0a It differs from.
09d0: 2b 2d 65 72 72 6f 72 69 6e 66 6f 20 69 6e 20 74 +-errorinfo in t
09e0: 68 61 74 20 28 31 29 20 69 74 20 69 73 20 61 20 hat (1) it is a
09f0: 74 72 75 65 20 6c 69 73 74 20 6f 66 20 6c 69 73 true list of lis
0a00: 74 73 2c 20 66 6f 72 20 65 61 73 79 0a 2b 70 72 ts, for easy.+pr
0a10: 6f 67 72 61 6d 6d 61 74 69 63 20 61 63 63 65 73 ogrammatic acces
0a20: 73 20 77 69 74 68 6f 75 74 20 70 61 72 73 69 6e s without parsin
0a30: 67 2c 20 28 32 29 20 69 74 20 63 6f 6e 74 61 69 g, (2) it contai
0a40: 6e 73 20 74 68 65 20 74 72 75 65 0a 2b 28 73 75 ns the true.+(su
0a50: 62 73 74 69 74 75 74 65 64 29 20 76 61 6c 75 65 bstituted) value
0a60: 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 20 s passed to the
0a70: 66 75 6e 63 74 69 6f 6e 73 2c 20 69 6e 73 74 65 functions, inste
0a80: 61 64 20 6f 66 20 74 68 65 20 73 74 61 74 69 63 ad of the static
0a90: 0a 2b 74 65 78 74 20 6f 66 20 74 68 65 20 63 61 .+text of the ca
0aa0: 6c 6c 69 6e 67 20 73 69 74 65 73 2c 20 61 6e 64 lling sites, and
0ab0: 20 28 33 29 20 69 74 20 69 73 20 63 6f 61 72 73 (3) it is coars
0ac0: 65 72 2d 67 72 61 69 6e 65 64 2c 20 77 69 74 68 er-grained, with
0ad0: 20 6f 6e 6c 79 0a 2b 6f 6e 65 20 65 6c 65 6d 65 only.+one eleme
0ae0: 6e 74 20 70 65 72 20 73 74 61 63 6b 20 66 72 61 nt per stack fra
0af0: 6d 65 20 28 6c 69 6b 65 20 70 72 6f 63 73 3b 20 me (like procs;
0b00: 6e 6f 20 73 65 70 61 72 61 74 65 20 65 6c 65 6d no separate elem
0b10: 65 6e 74 73 20 66 6f 72 0a 2b 5b 66 6f 72 65 61 ents for.+[forea
0b20: 63 68 5d 20 63 6f 6e 73 74 72 75 63 74 73 20 66 ch] constructs f
0b30: 6f 72 20 65 78 61 6d 70 6c 65 29 2e 0a 2b 0a 2b or example)..+.+
0b40: 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 The values of th
0b50: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f e \fB\-errorinfo
0b60: 5c 66 52 20 61 6e 64 20 5c 66 42 5c 2d 65 72 72 \fR and \fB\-err
0b70: 6f 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 65 orcode\fR entrie
0b80: 73 20 6f 66 0a 2b 74 68 65 20 6d 6f 73 74 20 72 s of.+the most r
0b90: 65 63 65 6e 74 20 65 72 72 6f 72 20 61 72 65 20 ecent error are
0ba0: 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 61 also available a
0bb0: 73 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 s values of the
0bc0: 67 6c 6f 62 61 6c 0a 2b 76 61 72 69 61 62 6c 65 global.+variable
0bd0: 73 20 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 6f s \fB::errorInfo
0be0: 5c 66 52 20 61 6e 64 20 5c 66 42 3a 3a 65 72 72 \fR and \fB::err
0bf0: 6f 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 63 orCode\fR respec
0c00: 74 69 76 65 6c 79 2e 20 54 68 65 0a 2b 76 61 6c tively. The.+val
0c10: 75 65 20 6f 66 20 74 68 65 20 5c 66 42 5c 2d 65 ue of the \fB\-e
0c20: 72 72 6f 72 73 74 61 63 6b 5c 66 52 20 65 6e 74 rrorstack\fR ent
0c30: 72 79 20 73 75 72 66 61 63 65 73 20 61 73 20 5c ry surfaces as \
0c40: 66 42 69 6e 66 6f 0a 2b 65 72 72 6f 72 73 74 61 fBinfo.+errorsta
0c50: 63 6b 5c 66 52 2e 0a 20 2e 50 50 0a 20 54 63 6c ck\fR.. .PP. Tcl
0c60: 20 70 61 63 6b 61 67 65 73 20 6d 61 79 20 70 72 packages may pr
0c70: 6f 76 69 64 65 20 63 6f 6d 6d 61 6e 64 73 20 74 ovide commands t
0c80: 68 61 74 20 73 65 74 20 6f 74 68 65 72 20 65 6e hat set other en
0c90: 74 72 69 65 73 20 69 6e 20 74 68 65 0a 20 64 69 tries in the. di
0ca0: 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 75 ctionary of retu
0cb0: 72 6e 20 6f 70 74 69 6f 6e 73 2c 20 61 6e 64 20 rn options, and
0cc0: 74 68 65 20 5c 66 42 72 65 74 75 72 6e 5c 66 52 the \fBreturn\fR
0cd0: 20 63 6f 6d 6d 61 6e 64 20 6d 61 79 20 62 65 0a command may be.
0ce0: 49 6e 64 65 78 3a 20 64 6f 63 2f 69 6e 66 6f 2e Index: doc/info.
0cf0: 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d n.==============
0d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d30: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0d40: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0d50: 2f 64 6f 63 2f 69 6e 66 6f 2e 6e 2c 76 0a 72 65 /doc/info.n,v.re
0d60: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0d70: 6e 20 31 2e 33 33 0a 64 69 66 66 20 2d 75 20 2d n 1.33.diff -u -
0d80: 70 20 2d 72 31 2e 33 33 20 69 6e 66 6f 2e 6e 0a p -r1.33 info.n.
0d90: 2d 2d 2d 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 31 --- doc/info.n.1
0da0: 35 20 4d 61 79 20 32 30 30 39 20 31 30 3a 30 38 5 May 2009 10:08
0db0: 3a 30 32 20 2d 30 30 30 30 09 31 2e 33 33 0a 2b :02 -0000.1.33.+
0dc0: 2b 2b 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 39 20 ++ doc/info.n.9
0dd0: 4e 6f 76 20 32 30 30 39 20 31 33 3a 31 35 3a 35 Nov 2009 13:15:5
0de0: 36 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 2c 36 6 -0000.@@ -94,6
0df0: 20 2b 39 34 2c 31 36 20 40 40 20 64 6f 65 73 20 +94,16 @@ does
0e00: 6e 6f 74 20 68 61 76 65 20 61 20 64 65 66 61 75 not have a defau
0e10: 6c 74 20 76 61 6c 75 65 20 74 68 65 6e 20 74 68 lt value then th
0e20: 65 20 63 0a 20 4f 74 68 65 72 77 69 73 65 20 69 e c. Otherwise i
0e30: 74 20 72 65 74 75 72 6e 73 20 5c 66 42 31 5c 66 t returns \fB1\f
0e40: 52 20 61 6e 64 20 70 6c 61 63 65 73 20 74 68 65 R and places the
0e50: 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f default value o
0e60: 66 20 5c 66 49 61 72 67 5c 66 52 0a 20 69 6e 74 f \fIarg\fR. int
0e70: 6f 20 76 61 72 69 61 62 6c 65 20 5c 66 49 76 61 o variable \fIva
0e80: 72 6e 61 6d 65 5c 66 52 2e 0a 20 2e 54 50 0a 2b rname\fR.. .TP.+
0e90: 5c 66 42 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 \fBinfo errorsta
0ea0: 63 6b 20 5c 66 52 3f 5c 66 49 69 6e 74 65 72 70 ck \fR?\fIinterp
0eb0: 5c 66 52 3f 0a 2b 2e 0a 2b 52 65 74 75 72 6e 73 \fR?.+..+Returns
0ec0: 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 a list of lists
0ed0: 20 6d 61 64 65 20 6f 66 20 74 68 65 20 66 75 6e made of the fun
0ee0: 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e 64 20 ction names and
0ef0: 61 72 67 75 6d 65 6e 74 73 20 61 74 0a 2b 65 61 arguments at.+ea
0f00: 63 68 20 6c 65 76 65 6c 20 66 72 6f 6d 20 74 68 ch level from th
0f10: 65 20 63 61 6c 6c 20 73 74 61 63 6b 20 6f 66 20 e call stack of
0f20: 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 20 69 the last error i
0f30: 6e 20 74 68 65 20 67 69 76 65 6e 0a 2b 5c 66 49 n the given.+\fI
0f40: 69 6e 74 65 72 70 5c 66 52 2c 20 6f 72 20 69 6e interp\fR, or in
0f50: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 the current one
0f60: 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 69 65 if not specifie
0f70: 64 2e 20 20 54 68 69 73 0a 2b 69 6e 66 6f 72 6d d. This.+inform
0f80: 61 74 69 6f 6e 20 69 73 20 61 6c 73 6f 20 70 72 ation is also pr
0f90: 65 73 65 6e 74 20 69 6e 20 74 68 65 20 2d 65 72 esent in the -er
0fa0: 72 6f 72 73 74 61 63 6b 20 65 6e 74 72 79 20 6f rorstack entry o
0fb0: 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 0a 2b 64 f the options.+d
0fc0: 69 63 74 69 6f 6e 61 72 79 20 72 65 74 75 72 6e ictionary return
0fd0: 65 64 20 62 79 20 33 2d 61 72 67 20 5c 66 42 63 ed by 3-arg \fBc
0fe0: 61 74 63 68 5c 66 52 3b 20 5c 66 42 69 6e 66 6f atch\fR; \fBinfo
0ff0: 20 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 20 69 errorstack\fR i
1000: 73 20 61 0a 2b 63 6f 6e 76 65 6e 69 65 6e 74 20 s a.+convenient
1010: 77 61 79 20 6f 66 20 72 65 74 72 69 65 76 69 6e way of retrievin
1020: 67 20 69 74 20 66 6f 72 20 75 6e 63 61 75 67 68 g it for uncaugh
1030: 74 20 65 72 72 6f 72 73 20 61 74 20 74 6f 70 6c t errors at topl
1040: 65 76 65 6c 20 69 6e 20 61 6e 0a 2b 69 6e 74 65 evel in an.+inte
1050: 72 61 63 74 69 76 65 20 74 63 6c 73 68 2e 0a 2b ractive tclsh..+
1060: 2e 54 50 0a 20 5c 66 42 69 6e 66 6f 20 65 78 69 .TP. \fBinfo exi
1070: 73 74 73 20 5c 66 49 76 61 72 4e 61 6d 65 5c 66 sts \fIvarName\f
1080: 52 0a 20 2e 0a 20 52 65 74 75 72 6e 73 20 5c 66 R. .. Returns \f
1090: 42 31 5c 66 52 20 69 66 20 74 68 65 20 76 61 72 B1\fR if the var
10a0: 69 61 62 6c 65 20 6e 61 6d 65 64 20 5c 66 49 76 iable named \fIv
10b0: 61 72 4e 61 6d 65 5c 66 52 20 65 78 69 73 74 73 arName\fR exists
10c0: 20 69 6e 20 74 68 65 0a 49 6e 64 65 78 3a 20 67 in the.Index: g
10d0: 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e eneric/tclBasic.
10e0: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
10f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1120: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
1130: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
1140: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 /generic/tclBasi
1150: 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 c.c,v.retrieving
1160: 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 30 35 0a revision 1.405.
1170: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 34 diff -u -p -r1.4
1180: 30 35 20 74 63 6c 42 61 73 69 63 2e 63 0a 2d 2d 05 tclBasic.c.--
1190: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 - generic/tclBas
11a0: 69 63 2e 63 09 33 31 20 4f 63 74 20 32 30 30 39 ic.c.31 Oct 2009
11b0: 20 32 30 3a 31 38 3a 34 33 20 2d 30 30 30 30 09 20:18:43 -0000.
11c0: 31 2e 34 30 35 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.405.+++ generi
11d0: 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 39 20 4e c/tclBasic.c.9 N
11e0: 6f 76 20 32 30 30 39 20 31 33 3a 31 35 3a 35 38 ov 2009 13:15:58
11f0: 20 2d 30 30 30 30 0a 40 40 20 2d 35 33 30 2c 36 -0000.@@ -530,6
1200: 20 2b 35 33 30 2c 39 20 40 40 20 54 63 6c 5f 43 +530,9 @@ Tcl_C
1210: 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f 69 64 reateInterp(void
1220: 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72 ). iPtr->err
1230: 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 orInfo = NULL;.
1240: 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 72 61 TclNewLitera
1250: 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 72 2d lStringObj(iPtr-
1260: 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 6f 72 >eiVar, "::error
1270: 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 63 6c Info");. Tcl
1280: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 _IncrRefCount(iP
1290: 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 20 20 tr->eiVar);.+
12a0: 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 iPtr->errorStac
12b0: 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f k = Tcl_NewListO
12c0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 20 bj(0, NULL);.+
12d0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
12e0: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 nt(iPtr->errorSt
12f0: 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 72 2d ack);.+ iPtr-
1300: 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b >resetErrorStack
1310: 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 72 2d = 1;. iPtr-
1320: 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e 55 4c >errorCode = NUL
1330: 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 L;. TclNewLi
1340: 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 teralStringObj(i
1350: 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a 3a 65 Ptr->ecVar, "::e
1360: 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 20 20 rrorCode");.
1370: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
1380: 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 3b 0a t(iPtr->ecVar);.
1390: 40 40 20 2d 31 34 37 30 2c 36 20 2b 31 34 37 33 @@ -1470,6 +1473
13a0: 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 74 65 ,7 @@ DeleteInte
13b0: 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f 44 65 rpProc(. .Tcl_De
13c0: 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d crRefCount(iPtr-
13d0: 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 09 69 >errorInfo);. .i
13e0: 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 3d Ptr->errorInfo =
13f0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a 2b 20 NULL;. }.+
1400: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f Tcl_DecrRefCo
1410: 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 unt(iPtr->errorS
1420: 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 20 28 tack);. if (
1430: 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 iPtr->returnOpts
1440: 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 52 65 ) {. .Tcl_DecrRe
1450: 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 fCount(iPtr->ret
1460: 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 20 7d urnOpts);. }
1470: 0a 40 40 20 2d 38 38 32 31 2c 35 20 2b 38 38 32 .@@ -8821,5 +882
1480: 35 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 43 6f 5,7 @@ TclInfoCo
1490: 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 2a 20 routineCmd(. *
14a0: 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 mode: c. * c-ba
14b0: 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 sic-offset: 4.
14c0: 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 * fill-column: 7
14d0: 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 8.+ * tab-width:
14e0: 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 8.+ * indent-ta
14f0: 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a bs-mode: nil. *
1500: 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 End:. */.Index
1510: 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 : generic/tclCmd
1520: 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d IL.c.===========
1530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1560: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
1570: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
1580: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 tcl/generic/tclC
1590: 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 65 76 mdIL.c,v.retriev
15a0: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 ing revision 1.1
15b0: 37 31 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 71.diff -u -p -r
15c0: 31 2e 31 37 31 20 74 63 6c 43 6d 64 49 4c 2e 63 1.171 tclCmdIL.c
15d0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c .--- generic/tcl
15e0: 43 6d 64 49 4c 2e 63 09 32 30 20 41 75 67 20 32 CmdIL.c.20 Aug 2
15f0: 30 30 39 20 31 30 3a 35 36 3a 35 35 20 2d 30 30 009 10:56:55 -00
1600: 30 30 09 31 2e 31 37 31 0a 2b 2b 2b 20 67 65 6e 00.1.171.+++ gen
1610: 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 09 eric/tclCmdIL.c.
1620: 39 20 4e 6f 76 20 32 30 30 39 20 31 33 3a 31 35 9 Nov 2009 13:15
1630: 3a 35 39 20 2d 30 30 30 30 0a 40 40 20 2d 31 31 :59 -0000.@@ -11
1640: 38 2c 36 20 2b 31 31 38 2c 39 20 40 40 20 73 74 8,6 +118,9 @@ st
1650: 61 74 69 63 20 69 6e 74 09 09 49 6e 66 6f 43 6f atic int..InfoCo
1660: 6d 70 6c 65 74 65 43 6d 64 28 43 6c 69 65 6e 74 mpleteCmd(Client
1670: 44 61 74 61 20 64 0a 20 09 09 09 20 20 20 20 69 Data d. ... i
1680: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
1690: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b *const objv[]);
16a0: 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e . static int..In
16b0: 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 43 6c 69 foDefaultCmd(Cli
16c0: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 entData dummy, T
16d0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
16e0: 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f p,. ... int o
16f0: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
1700: 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 2b 2f 2a nst objv[]);.+/*
1710: 20 54 49 50 20 23 33 34 38 20 2d 20 4e 65 77 20 TIP #348 - New
1720: 27 69 6e 66 6f 27 20 73 75 62 63 6f 6d 6d 61 6e 'info' subcomman
1730: 64 20 27 65 72 72 6f 72 73 74 61 63 6b 27 20 2a d 'errorstack' *
1740: 2f 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 09 49 /.+static int..I
1750: 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 nfoErrorStackCmd
1760: 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d (ClientData dumm
1770: 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 y, Tcl_Interp *i
1780: 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 69 nterp,.+... i
1790: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
17a0: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b *const objv[]);
17b0: 0a 20 2f 2a 20 54 49 50 20 23 32 38 30 20 2d 20 . /* TIP #280 -
17c0: 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 62 63 6f New 'info' subco
17d0: 6d 6d 61 6e 64 20 27 66 72 61 6d 65 27 20 2a 2f mmand 'frame' */
17e0: 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e . static int..In
17f0: 66 6f 46 72 61 6d 65 43 6d 64 28 43 6c 69 65 6e foFrameCmd(Clien
1800: 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 63 6c tData dummy, Tcl
1810: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1820: 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f 62 6a . ... int obj
1830: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
1840: 74 20 6f 62 6a 76 5b 5d 29 3b 0a 40 40 20 2d 31 t objv[]);.@@ -1
1850: 36 34 2c 36 20 2b 31 36 37 2c 37 20 40 40 20 73 64,6 +167,7 @@ s
1860: 74 61 74 69 63 20 63 6f 6e 73 74 20 45 6e 73 65 tatic const Ense
1870: 6d 62 6c 65 49 6d 70 6c 4d 61 70 20 64 65 66 61 mbleImplMap defa
1880: 75 6c 74 49 6e 66 6f 0a 20 20 20 20 20 7b 22 63 ultInfo. {"c
1890: 6f 6d 70 6c 65 74 65 22 2c 09 20 20 20 49 6e 66 omplete",. Inf
18a0: 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 2c 09 20 20 oCompleteCmd,.
18b0: 20 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 NULL},. {"
18c0: 63 6f 72 6f 75 74 69 6e 65 22 2c 09 20 20 20 54 coroutine",. T
18d0: 63 6c 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 clInfoCoroutineC
18e0: 6d 64 2c 20 20 20 20 20 4e 55 4c 4c 7d 2c 0a 20 md, NULL},.
18f0: 20 20 20 20 7b 22 64 65 66 61 75 6c 74 22 2c 09 {"default",.
1900: 09 20 20 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 . InfoDefaultC
1910: 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 7d 2c 0a 2b md,. NULL},.+
1920: 20 20 20 20 7b 22 65 72 72 6f 72 73 74 61 63 6b {"errorstack
1930: 22 2c 09 20 20 20 49 6e 66 6f 45 72 72 6f 72 53 ",. InfoErrorS
1940: 74 61 63 6b 43 6d 64 2c 09 20 20 20 20 4e 55 4c tackCmd,. NUL
1950: 4c 7d 2c 0a 20 20 20 20 20 7b 22 65 78 69 73 74 L},. {"exist
1960: 73 22 2c 09 09 20 20 20 54 63 6c 49 6e 66 6f 45 s",.. TclInfoE
1970: 78 69 73 74 73 43 6d 64 2c 09 20 20 20 20 54 63 xistsCmd,. Tc
1980: 6c 43 6f 6d 70 69 6c 65 49 6e 66 6f 45 78 69 73 lCompileInfoExis
1990: 74 73 43 6d 64 7d 2c 0a 20 20 20 20 20 7b 22 66 tsCmd},. {"f
19a0: 72 61 6d 65 22 2c 09 09 20 20 20 49 6e 66 6f 46 rame",.. InfoF
19b0: 72 61 6d 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c rameCmd,. NUL
19c0: 4c 7d 2c 0a 20 20 20 20 20 7b 22 66 75 6e 63 74 L},. {"funct
19d0: 69 6f 6e 73 22 2c 09 20 20 20 49 6e 66 6f 46 75 ions",. InfoFu
19e0: 6e 63 74 69 6f 6e 73 43 6d 64 2c 09 20 20 20 20 nctionsCmd,.
19f0: 4e 55 4c 4c 7d 2c 0a 40 40 20 2d 31 30 31 37 2c NULL},.@@ -1017,
1a00: 36 20 2b 31 30 32 31 2c 35 35 20 40 40 20 49 6e 6 +1021,55 @@ In
1a10: 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 0a 20 2f foDefaultCmd(. /
1a20: 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
1a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a -----------. *.
1a70: 2b 20 2a 20 49 6e 66 6f 45 72 72 6f 72 53 74 61 + * InfoErrorSta
1a80: 63 6b 43 6d 64 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a ckCmd --.+ *.+ *
1a90: 09 43 61 6c 6c 65 64 20 74 6f 20 69 6d 70 6c 65 .Called to imple
1aa0: 6d 65 6e 74 20 74 68 65 20 22 69 6e 66 6f 20 65 ment the "info e
1ab0: 72 72 6f 72 73 74 61 63 6b 22 20 63 6f 6d 6d 61 rrorstack" comma
1ac0: 6e 64 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 nd that returns
1ad0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 2b 20 2a 09 information.+ *.
1ae0: 61 62 6f 75 74 20 74 68 65 20 6c 61 73 74 20 65 about the last e
1af0: 72 72 6f 72 27 73 20 63 61 6c 6c 20 73 74 61 63 rror's call stac
1b00: 6b 2e 20 48 61 6e 64 6c 65 73 20 74 68 65 20 66 k. Handles the f
1b10: 6f 6c 6c 6f 77 69 6e 67 20 73 79 6e 74 61 78 3a ollowing syntax:
1b20: 0a 2b 20 2a 0a 2b 20 2a 09 20 20 20 20 69 6e 66 .+ *.+ *. inf
1b30: 6f 20 65 72 72 6f 72 73 74 61 63 6b 20 3f 69 6e o errorstack ?in
1b40: 74 65 72 70 3f 0a 2b 20 2a 0a 2b 20 2a 20 52 65 terp?.+ *.+ * Re
1b50: 73 75 6c 74 73 3a 0a 2b 20 2a 09 52 65 74 75 72 sults:.+ *.Retur
1b60: 6e 73 20 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 ns TCL_OK if suc
1b70: 63 65 73 73 66 75 6c 20 61 6e 64 20 54 43 4c 5f cessful and TCL_
1b80: 45 52 52 4f 52 20 69 66 20 74 68 65 72 65 20 69 ERROR if there i
1b90: 73 20 61 6e 20 65 72 72 6f 72 2e 0a 2b 20 2a 0a s an error..+ *.
1ba0: 2b 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 + * Side effects
1bb0: 3a 0a 2b 20 2a 09 52 65 74 75 72 6e 73 20 61 20 :.+ *.Returns a
1bc0: 72 65 73 75 6c 74 20 69 6e 20 74 68 65 20 69 6e result in the in
1bd0: 74 65 72 70 72 65 74 65 72 27 73 20 72 65 73 75 terpreter's resu
1be0: 6c 74 20 6f 62 6a 65 63 74 2e 20 49 66 20 74 68 lt object. If th
1bf0: 65 72 65 20 69 73 20 61 6e 0a 2b 20 2a 09 65 72 ere is an.+ *.er
1c00: 72 6f 72 2c 20 74 68 65 20 72 65 73 75 6c 74 20 ror, the result
1c10: 69 73 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 is an error mess
1c20: 61 67 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d 2d age..+ *.+ *----
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c70: 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 61 74 69 --.+ */.+.+stati
1c80: 63 20 69 6e 74 0a 2b 49 6e 66 6f 45 72 72 6f 72 c int.+InfoError
1c90: 53 74 61 63 6b 43 6d 64 28 0a 2b 20 20 20 20 43 StackCmd(.+ C
1ca0: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
1cb0: 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ../* Not used. *
1cc0: 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 /.+ Tcl_Inter
1cd0: 70 20 2a 69 6e 74 65 72 70 2c 09 09 2f 2a 20 43 p *interp,../* C
1ce0: 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74 urrent interpret
1cf0: 65 72 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 er. */.+ int
1d00: 6f 62 6a 63 2c 09 09 09 2f 2a 20 4e 75 6d 62 65 objc,.../* Numbe
1d10: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 r of arguments.
1d20: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */.+ Tcl_Obj
1d30: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 09 2f *const objv[])./
1d40: 2a 20 41 72 67 75 6d 65 6e 74 20 6f 62 6a 65 63 * Argument objec
1d50: 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 54 ts. */.+{.+ T
1d60: 63 6c 5f 49 6e 74 65 72 70 20 2a 74 61 72 67 65 cl_Interp *targe
1d70: 74 3b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a t;.+ Interp *
1d80: 69 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 iPtr;.+.+ if
1d90: 28 28 6f 62 6a 63 20 21 3d 20 31 29 20 26 26 20 ((objc != 1) &&
1da0: 28 6f 62 6a 63 20 21 3d 20 32 29 29 20 7b 0a 2b (objc != 2)) {.+
1db0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
1dc0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
1dd0: 76 2c 20 22 3f 69 6e 74 65 72 70 3f 22 29 3b 0a v, "?interp?");.
1de0: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 +.return TCL_ERR
1df0: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 OR;.+ }.+
1e00: 0a 2b 20 20 20 20 74 61 72 67 65 74 20 3d 20 69 .+ target = i
1e10: 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69 66 20 28 nterp;.+ if (
1e20: 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 2b 20 20 objc == 2) {.+
1e30: 20 20 20 20 20 20 74 61 72 67 65 74 20 3d 20 54 target = T
1e40: 63 6c 5f 47 65 74 53 6c 61 76 65 28 69 6e 74 65 cl_GetSlave(inte
1e50: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
1e60: 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 2b 20 20 g(objv[1]));.+
1e70: 20 20 20 20 20 20 69 66 20 28 74 61 72 67 65 74 if (target
1e80: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 20 20 20 == NULL) {.+
1e90: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
1ea0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 TCL_ERROR;.+
1eb0: 20 20 20 20 7d 0a 2b 20 20 20 20 7d 0a 2b 0a 2b }.+ }.+.+
1ec0: 20 20 20 20 69 50 74 72 20 3d 20 28 49 6e 74 65 iPtr = (Inte
1ed0: 72 70 20 2a 29 20 74 61 72 67 65 74 3b 0a 2b 20 rp *) target;.+
1ee0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
1ef0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 69 50 74 72 ult(interp, iPtr
1f00: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a 2b ->errorStack);.+
1f10: 20 20 20 20 0a 2b 20 20 20 20 72 65 74 75 72 6e .+ return
1f20: 20 54 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0c 0a 2b TCL_OK;.+}.+..+
1f30: 2f 2a 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*.+ *----------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a ------------.+ *
1f80: 0a 20 20 2a 20 54 63 6c 49 6e 66 6f 45 78 69 73 . * TclInfoExis
1f90: 74 73 43 6d 64 20 2d 2d 0a 20 20 2a 0a 20 20 2a tsCmd --. *. *
1fa0: 09 43 61 6c 6c 65 64 20 74 6f 20 69 6d 70 6c 65 .Called to imple
1fb0: 6d 65 6e 74 20 74 68 65 20 22 69 6e 66 6f 20 65 ment the "info e
1fc0: 78 69 73 74 73 22 20 63 6f 6d 6d 61 6e 64 20 74 xists" command t
1fd0: 68 61 74 20 64 65 74 65 72 6d 69 6e 65 73 20 77 hat determines w
1fe0: 68 65 74 68 65 72 0a 40 40 20 2d 34 33 38 38 2c hether.@@ -4388,
1ff0: 35 20 2b 34 34 34 31 2c 37 20 40 40 20 53 65 6c 5 +4441,7 @@ Sel
2000: 65 63 74 4f 62 6a 46 72 6f 6d 53 75 62 6c 69 73 ectObjFromSublis
2010: 74 28 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 t(. * mode: c.
2020: 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 * c-basic-offse
2030: 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f t: 4. * fill-co
2040: 6c 75 6d 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 62 lumn: 78.+ * tab
2050: 2d 77 69 64 74 68 3a 20 38 0a 2b 20 2a 20 69 6e -width: 8.+ * in
2060: 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 dent-tabs-mode:
2070: 6e 69 6c 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 2a nil. * End:. *
2080: 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 /.Index: generic
2090: 2f 74 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d /tclInt.h.======
20a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
20b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
20c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
20d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
20e0: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
20f0: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
2100: 2f 74 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 /tclInt.h,v.retr
2110: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
2120: 31 2e 34 34 35 0a 64 69 66 66 20 2d 75 20 2d 70 1.445.diff -u -p
2130: 20 2d 72 31 2e 34 34 35 20 74 63 6c 49 6e 74 2e -r1.445 tclInt.
2140: 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 h.--- generic/tc
2150: 6c 49 6e 74 2e 68 09 33 30 20 53 65 70 20 32 30 lInt.h.30 Sep 20
2160: 30 39 20 30 33 3a 31 31 3a 32 36 20 2d 30 30 30 09 03:11:26 -000
2170: 30 09 31 2e 34 34 35 0a 2b 2b 2b 20 67 65 6e 65 0.1.445.+++ gene
2180: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 39 20 4e ric/tclInt.h.9 N
2190: 6f 76 20 32 30 30 39 20 31 33 3a 31 36 3a 30 30 ov 2009 13:16:00
21a0: 20 2d 30 30 30 30 0a 40 40 20 2d 31 38 39 35 2c -0000.@@ -1895,
21b0: 36 20 2b 31 38 39 35 2c 38 20 40 40 20 74 79 70 6 +1895,8 @@ typ
21c0: 65 64 65 66 20 73 74 72 75 63 74 20 49 6e 74 65 edef struct Inte
21d0: 72 70 20 7b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 rp {. Tcl_Ob
21e0: 6a 20 2a 65 69 56 61 72 3b 09 09 2f 2a 20 63 61 j *eiVar;../* ca
21f0: 63 68 65 64 20 72 65 66 20 74 6f 20 3a 3a 65 72 ched ref to ::er
2200: 72 6f 72 49 6e 66 6f 20 76 61 72 69 61 62 6c 65 rorInfo variable
2210: 2e 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 . */. Tcl_Ob
2220: 6a 20 2a 65 72 72 6f 72 43 6f 64 65 3b 09 09 2f j *errorCode;../
2230: 2a 20 65 72 72 6f 72 43 6f 64 65 20 76 61 6c 75 * errorCode valu
2240: 65 20 28 6e 6f 77 20 61 73 20 61 20 54 63 6c 5f e (now as a Tcl_
2250: 4f 62 6a 29 2e 20 2a 2f 0a 20 20 20 20 20 54 63 Obj). */. Tc
2260: 6c 5f 4f 62 6a 20 2a 65 63 56 61 72 3b 09 09 2f l_Obj *ecVar;../
2270: 2a 20 63 61 63 68 65 64 20 72 65 66 20 74 6f 20 * cached ref to
2280: 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 61 72 69 ::errorInfo vari
2290: 61 62 6c 65 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 able. */.+ Tc
22a0: 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 53 74 61 63 l_Obj *errorStac
22b0: 6b 3b 09 2f 2a 20 5b 69 6e 66 6f 20 65 72 72 6f k;./* [info erro
22c0: 72 73 74 61 63 6b 5d 20 76 61 6c 75 65 20 28 61 rstack] value (a
22d0: 73 20 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f s a Tcl_Obj). */
22e0: 0a 2b 20 20 20 20 69 6e 74 20 72 65 73 65 74 45 .+ int resetE
22f0: 72 72 6f 72 53 74 61 63 6b 3b 20 20 20 20 20 20 rrorStack;
2300: 20 20 2f 2a 20 63 6f 6e 74 72 6f 6c 73 20 63 6c /* controls cl
2310: 65 61 6e 69 6e 67 20 75 70 20 6f 66 20 3a 3a 65 eaning up of ::e
2320: 72 72 6f 72 53 74 61 63 6b 20 2a 2f 0a 20 20 20 rrorStack */.
2330: 20 20 69 6e 74 20 72 65 74 75 72 6e 4c 65 76 65 int returnLeve
2340: 6c 3b 09 09 2f 2a 20 5b 72 65 74 75 72 6e 20 2d l;../* [return -
2350: 6c 65 76 65 6c 5d 20 70 61 72 61 6d 65 74 65 72 level] parameter
2360: 2e 20 2a 2f 0a 20 0a 20 20 20 20 20 2f 2a 0a 49 . */. . /*.I
2370: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
2380: 6c 4e 61 6d 65 73 70 2e 63 0a 3d 3d 3d 3d 3d 3d lNamesp.c.======
2390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
23d0: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
23e0: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
23f0: 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 2c 76 0a 72 /tclNamesp.c,v.r
2400: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
2410: 6f 6e 20 31 2e 31 39 33 0a 64 69 66 66 20 2d 75 on 1.193.diff -u
2420: 20 2d 70 20 2d 72 31 2e 31 39 33 20 74 63 6c 4e -p -r1.193 tclN
2430: 61 6d 65 73 70 2e 63 0a 2d 2d 2d 20 67 65 6e 65 amesp.c.--- gene
2440: 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 ric/tclNamesp.c.
2450: 33 30 20 53 65 70 20 32 30 30 39 20 30 33 3a 31 30 Sep 2009 03:1
2460: 31 3a 32 36 20 2d 30 30 30 30 09 31 2e 31 39 33 1:26 -0000.1.193
2470: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c .+++ generic/tcl
2480: 4e 61 6d 65 73 70 2e 63 09 39 20 4e 6f 76 20 32 Namesp.c.9 Nov 2
2490: 30 30 39 20 31 33 3a 31 36 3a 30 31 20 2d 30 30 009 13:16:01 -00
24a0: 30 30 0a 40 40 20 2d 37 35 37 34 2c 37 20 2b 37 00.@@ -7574,7 +7
24b0: 35 37 34 2c 37 20 40 40 20 54 63 6c 5f 4c 6f 67 574,7 @@ Tcl_Log
24c0: 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 0a 20 7b 0a CommandInfo(. {.
24d0: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 63 6f register co
24e0: 6e 73 74 20 63 68 61 72 20 2a 70 3b 0a 20 20 20 nst char *p;.
24f0: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d Interp *iPtr =
2500: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
2510: 72 70 3b 0a 2d 20 20 20 20 69 6e 74 20 6f 76 65 rp;.- int ove
2520: 72 66 6c 6f 77 2c 20 6c 69 6d 69 74 20 3d 20 31 rflow, limit = 1
2530: 35 30 3b 0a 2b 20 20 20 20 69 6e 74 20 6f 76 65 50;.+ int ove
2540: 72 66 6c 6f 77 2c 20 6c 69 6d 69 74 20 3d 20 31 rflow, limit = 1
2550: 35 30 2c 20 6c 65 6e 3b 0a 20 20 20 20 20 56 61 50, len;. Va
2560: 72 20 2a 76 61 72 50 74 72 2c 20 2a 61 72 72 61 r *varPtr, *arra
2570: 79 50 74 72 3b 0a 20 0a 20 20 20 20 20 69 66 20 yPtr;. . if
2580: 28 69 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 45 (iPtr->flags & E
2590: 52 52 5f 41 4c 52 45 41 44 59 5f 4c 4f 47 47 45 RR_ALREADY_LOGGE
25a0: 44 29 20 7b 0a 40 40 20 2d 37 36 33 33 2c 36 20 D) {.@@ -7633,6
25b0: 2b 37 36 33 33 2c 33 36 20 40 40 20 54 63 6c 5f +7633,36 @@ Tcl_
25c0: 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 0a LogCommandInfo(.
25d0: 20 09 09 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 .. TCL_GLOBA
25e0: 4c 5f 4f 4e 4c 59 29 3b 0a 20 09 7d 0a 20 20 20 L_ONLY);. .}.
25f0: 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 }.+.+ /*.+
2600: 20 20 20 20 2a 20 54 49 50 20 23 33 34 38 0a 2b * TIP #348.+
2610: 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 69 */.+.+ i
2620: 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 f (Tcl_IsShared(
2630: 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b iPtr->errorStack
2640: 29 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 54 63 )) {.+ Tc
2650: 6c 5f 4f 62 6a 20 2a 6e 65 77 4f 62 6a 3b 0a 2b l_Obj *newObj;.+
2660: 20 20 20 20 20 20 20 20 20 20 20 20 0a 2b 20 20 .+
2670: 20 20 20 20 20 20 6e 65 77 4f 62 6a 20 3d 20 54 newObj = T
2680: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 cl_DuplicateObj(
2690: 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b iPtr->errorStack
26a0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 63 6c 5f );.+ Tcl_
26b0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 DecrRefCount(iPt
26c0: 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a r->errorStack);.
26d0: 2b 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 63 + Tcl_Inc
26e0: 72 52 65 66 43 6f 75 6e 74 28 6e 65 77 4f 62 6a rRefCount(newObj
26f0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 50 74 72 );.+ iPtr
2700: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 20 3d 20 6e ->errorStack = n
2710: 65 77 4f 62 6a 3b 0a 2b 20 20 20 20 7d 0a 2b 20 ewObj;.+ }.+
2720: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c 65 Tcl_ListObjLe
2730: 6e 67 74 68 28 69 6e 74 65 72 70 2c 20 69 50 74 ngth(interp, iPt
2740: 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 26 r->errorStack, &
2750: 6c 65 6e 29 3b 0a 2b 20 20 20 20 69 66 20 28 69 len);.+ if (i
2760: 50 74 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 Ptr->resetErrorS
2770: 74 61 63 6b 29 20 7b 0a 2b 20 20 20 20 20 20 20 tack) {.+
2780: 20 69 50 74 72 2d 3e 72 65 73 65 74 45 72 72 6f iPtr->resetErro
2790: 72 53 74 61 63 6b 20 3d 20 30 3b 0a 2b 20 20 20 rStack = 0;.+
27a0: 20 20 20 20 20 2f 2a 20 72 65 73 65 74 20 77 68 /* reset wh
27b0: 69 6c 65 20 6b 65 65 70 69 6e 67 20 74 68 65 20 ile keeping the
27c0: 6c 69 73 74 20 69 6e 74 72 65 70 20 61 73 20 6d list intrep as m
27d0: 75 63 68 20 61 73 20 70 6f 73 73 69 62 6c 65 20 uch as possible
27e0: 2a 2f 0a 2b 20 20 20 20 20 20 20 20 54 63 6c 5f */.+ Tcl_
27f0: 4c 69 73 74 4f 62 6a 52 65 70 6c 61 63 65 28 69 ListObjReplace(i
2800: 6e 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 nterp, iPtr->err
2810: 6f 72 53 74 61 63 6b 2c 20 30 2c 20 6c 65 6e 2c orStack, 0, len,
2820: 20 30 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 20 20 20 0, NULL);.+
2830: 20 20 20 20 6c 65 6e 3d 30 3b 0a 2b 20 20 20 20 len=0;.+
2840: 7d 20 0a 2b 20 20 20 20 69 66 20 28 69 50 74 72 } .+ if (iPtr
2850: 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 20 21 3d ->varFramePtr !=
2860: 20 69 50 74 72 2d 3e 72 6f 6f 74 46 72 61 6d 65 iPtr->rootFrame
2870: 50 74 72 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 Ptr) {.+
2880: 54 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 50 74 72 Tcl_Obj *listPtr
2890: 3b 0a 2b 20 20 20 20 20 20 20 20 69 6e 74 20 72 ;.+ int r
28a0: 65 73 75 6c 74 3b 0a 2b 20 20 20 20 20 20 20 20 esult;.+
28b0: 6c 69 73 74 50 74 72 3d 54 63 6c 5f 4e 65 77 4c listPtr=Tcl_NewL
28c0: 69 73 74 4f 62 6a 28 69 50 74 72 2d 3e 76 61 72 istObj(iPtr->var
28d0: 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a 63 2c 0a FramePtr->objc,.
28e0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 +
28f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2900: 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 iPtr->varFramePt
2910: 72 2d 3e 6f 62 6a 76 29 3b 0a 2b 20 20 20 20 20 r->objv);.+
2920: 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f result = Tcl_
2930: 4c 69 73 74 4f 62 6a 52 65 70 6c 61 63 65 28 69 ListObjReplace(i
2940: 6e 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 nterp, iPtr->err
2950: 6f 72 53 74 61 63 6b 2c 20 6c 65 6e 2c 20 30 2c orStack, len, 0,
2960: 20 31 2c 20 26 6c 69 73 74 50 74 72 29 3b 0a 2b 1, &listPtr);.+
2970: 20 20 20 20 20 20 20 20 69 66 20 28 72 65 73 75 if (resu
2980: 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a lt != TCL_OK) {.
2990: 2b 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c + Tcl
29a0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6c 69 _DecrRefCount(li
29b0: 73 74 50 74 72 29 3b 0a 2b 20 20 20 20 20 20 20 stPtr);.+
29c0: 20 7d 0a 2b 20 20 20 20 7d 0a 20 7d 0a 20 0c 0a }.+ }. }. ..
29d0: 20 2f 2a 0a 40 40 20 2d 37 36 34 30 2c 35 20 2b /*.@@ -7640,5 +
29e0: 37 36 37 30 2c 37 20 40 40 20 54 63 6c 5f 4c 6f 7670,7 @@ Tcl_Lo
29f0: 67 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 0a 20 20 gCommandInfo(.
2a00: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
2a10: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
2a20: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
2a30: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
2a40: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
2a50: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
2a60: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
2a70: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 ex: generic/tclR
2a80: 65 73 75 6c 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d esult.c.========
2a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
2ad0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
2ae0: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
2af0: 63 6c 52 65 73 75 6c 74 2e 63 2c 76 0a 72 65 74 clResult.c,v.ret
2b00: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
2b10: 20 31 2e 35 34 0a 64 69 66 66 20 2d 75 20 2d 70 1.54.diff -u -p
2b20: 20 2d 72 31 2e 35 34 20 74 63 6c 52 65 73 75 6c -r1.54 tclResul
2b30: 74 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f t.c.--- generic/
2b40: 74 63 6c 52 65 73 75 6c 74 2e 63 09 31 37 20 44 tclResult.c.17 D
2b50: 65 63 20 32 30 30 38 20 31 36 3a 34 37 3a 33 38 ec 2008 16:47:38
2b60: 20 2d 30 30 30 30 09 31 2e 35 34 0a 2b 2b 2b 20 -0000.1.54.+++
2b70: 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c generic/tclResul
2b80: 74 2e 63 09 39 20 4e 6f 76 20 32 30 30 39 20 31 t.c.9 Nov 2009 1
2b90: 33 3a 31 36 3a 30 31 20 2d 30 30 30 30 0a 40 40 3:16:01 -0000.@@
2ba0: 20 2d 31 39 2c 37 20 2b 31 39 2c 37 20 40 40 0a -19,7 +19,7 @@.
2bb0: 20 0a 20 65 6e 75 6d 20 72 65 74 75 72 6e 4b 65 . enum returnKe
2bc0: 79 73 20 7b 0a 20 20 20 20 20 4b 45 59 5f 43 4f ys {. KEY_CO
2bd0: 44 45 2c 09 4b 45 59 5f 45 52 52 4f 52 43 4f 44 DE,.KEY_ERRORCOD
2be0: 45 2c 09 4b 45 59 5f 45 52 52 4f 52 49 4e 46 4f E,.KEY_ERRORINFO
2bf0: 2c 09 4b 45 59 5f 45 52 52 4f 52 4c 49 4e 45 2c ,.KEY_ERRORLINE,
2c00: 0a 2d 20 20 20 20 4b 45 59 5f 4c 45 56 45 4c 2c .- KEY_LEVEL,
2c10: 09 4b 45 59 5f 4f 50 54 49 4f 4e 53 2c 09 4b 45 .KEY_OPTIONS,.KE
2c20: 59 5f 4c 41 53 54 0a 2b 20 20 20 20 4b 45 59 5f Y_LAST.+ KEY_
2c30: 4c 45 56 45 4c 2c 09 4b 45 59 5f 4f 50 54 49 4f LEVEL,.KEY_OPTIO
2c40: 4e 53 2c 09 4b 45 59 5f 45 52 52 4f 52 53 54 41 NS,.KEY_ERRORSTA
2c50: 43 4b 2c 09 4b 45 59 5f 4c 41 53 54 0a 20 7d 3b CK,.KEY_LAST. };
2c60: 0a 20 0a 20 2f 2a 0a 40 40 20 2d 39 32 32 2c 36 . . /*.@@ -922,6
2c70: 20 2b 39 32 32 2c 37 20 40 40 20 54 63 6c 5f 52 +922,7 @@ Tcl_R
2c80: 65 73 65 74 52 65 73 75 6c 74 28 0a 20 09 54 63 esetResult(. .Tc
2c90: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 l_DecrRefCount(i
2ca0: 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b Ptr->errorInfo);
2cb0: 0a 20 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e . .iPtr->errorIn
2cc0: 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 fo = NULL;.
2cd0: 7d 0a 2b 20 20 20 20 69 50 74 72 2d 3e 72 65 73 }.+ iPtr->res
2ce0: 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 31 etErrorStack = 1
2cf0: 3b 0a 20 20 20 20 20 69 50 74 72 2d 3e 72 65 74 ;. iPtr->ret
2d00: 75 72 6e 4c 65 76 65 6c 20 3d 20 31 3b 0a 20 20 urnLevel = 1;.
2d10: 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 iPtr->returnC
2d20: 6f 64 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 ode = TCL_OK;.
2d30: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 72 65 74 if (iPtr->ret
2d40: 75 72 6e 4f 70 74 73 29 20 7b 0a 40 40 20 2d 31 urnOpts) {.@@ -1
2d50: 31 35 38 2c 36 20 2b 31 31 35 39 2c 37 20 40 40 158,6 +1159,7 @@
2d60: 20 47 65 74 4b 65 79 73 28 76 6f 69 64 29 0a 20 GetKeys(void).
2d70: 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 .TclNewLiteralSt
2d80: 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 ringObj(keys[KEY
2d90: 5f 45 52 52 4f 52 43 4f 44 45 5d 2c 20 22 2d 65 _ERRORCODE], "-e
2da0: 72 72 6f 72 63 6f 64 65 22 29 3b 0a 20 09 54 63 rrorcode");. .Tc
2db0: 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e lNewLiteralStrin
2dc0: 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 gObj(keys[KEY_ER
2dd0: 52 4f 52 49 4e 46 4f 5d 2c 20 22 2d 65 72 72 6f RORINFO], "-erro
2de0: 72 69 6e 66 6f 22 29 3b 0a 20 09 54 63 6c 4e 65 rinfo");. .TclNe
2df0: 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 wLiteralStringOb
2e00: 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 j(keys[KEY_ERROR
2e10: 4c 49 4e 45 5d 2c 20 22 2d 65 72 72 6f 72 6c 69 LINE], "-errorli
2e20: 6e 65 22 29 3b 0a 2b 09 54 63 6c 4e 65 77 4c 69 ne");.+.TclNewLi
2e30: 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b teralStringObj(k
2e40: 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 54 41 eys[KEY_ERRORSTA
2e50: 43 4b 5d 2c 22 2d 65 72 72 6f 72 73 74 61 63 6b CK],"-errorstack
2e60: 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 ");. .TclNewLite
2e70: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 ralStringObj(key
2e80: 73 5b 4b 45 59 5f 4c 45 56 45 4c 5d 2c 09 20 20 s[KEY_LEVEL],.
2e90: 20 20 22 2d 6c 65 76 65 6c 22 29 3b 0a 20 09 54 "-level");. .T
2ea0: 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 clNewLiteralStri
2eb0: 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 4f ngObj(keys[KEY_O
2ec0: 50 54 49 4f 4e 53 5d 2c 20 20 20 22 2d 6f 70 74 PTIONS], "-opt
2ed0: 69 6f 6e 73 22 29 3b 0a 20 0a 40 40 20 2d 31 35 ions");. .@@ -15
2ee0: 30 33 2c 36 20 2b 31 35 30 35 2c 37 20 40 40 20 03,6 +1505,7 @@
2ef0: 54 63 6c 5f 47 65 74 52 65 74 75 72 6e 4f 70 74 Tcl_GetReturnOpt
2f00: 69 6f 6e 73 28 0a 20 09 54 63 6c 5f 44 69 63 74 ions(. .Tcl_Dict
2f10: 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 6f 70 74 ObjPut(NULL, opt
2f20: 69 6f 6e 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 ions, keys[KEY_E
2f30: 52 52 4f 52 4c 49 4e 45 5d 2c 0a 20 09 09 54 63 RRORLINE],. ..Tc
2f40: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 50 74 72 l_NewIntObj(iPtr
2f50: 2d 3e 65 72 72 6f 72 4c 69 6e 65 29 29 3b 0a 20 ->errorLine));.
2f60: 20 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 44 }.+ Tcl_D
2f70: 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 ictObjPut(NULL,
2f80: 6f 70 74 69 6f 6e 73 2c 20 6b 65 79 73 5b 4b 45 options, keys[KE
2f90: 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d 2c 20 69 Y_ERRORSTACK], i
2fa0: 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 Ptr->errorStack)
2fb0: 3b 0a 20 20 20 20 20 72 65 74 75 72 6e 20 6f 70 ;. return op
2fc0: 74 69 6f 6e 73 3b 0a 20 7d 0a 20 0c 0a 40 40 20 tions;. }. ..@@
2fd0: 2d 31 36 32 34 2c 35 20 2b 31 36 32 37 2c 37 20 -1624,5 +1627,7
2fe0: 40 40 20 54 63 6c 5f 54 72 61 6e 73 66 65 72 52 @@ Tcl_TransferR
2ff0: 65 73 75 6c 74 28 0a 20 20 2a 20 6d 6f 64 65 3a esult(. * mode:
3000: 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f c. * c-basic-o
3010: 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c ffset: 4. * fil
3020: 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b 20 2a l-column: 78.+ *
3030: 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0a 2b 20 tab-width: 8.+
3040: 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f * indent-tabs-mo
3050: 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e 64 3a de: nil. * End:
3060: 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 74 65 73 . */.Index: tes
3070: 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 0a 3d 3d ts/cmdMZ.test.==
3080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30c0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
30d0: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 root/tcl/tcl/tes
30e0: 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 2c 76 0a ts/cmdMZ.test,v.
30f0: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
3100: 69 6f 6e 20 31 2e 32 36 0a 64 69 66 66 20 2d 75 ion 1.26.diff -u
3110: 20 2d 70 20 2d 72 31 2e 32 36 20 63 6d 64 4d 5a -p -r1.26 cmdMZ
3120: 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f .test.--- tests/
3130: 63 6d 64 4d 5a 2e 74 65 73 74 09 31 30 20 53 65 cmdMZ.test.10 Se
3140: 70 20 32 30 30 38 20 31 33 3a 35 30 3a 30 35 20 p 2008 13:50:05
3150: 2d 30 30 30 30 09 31 2e 32 36 0a 2b 2b 2b 20 74 -0000.1.26.+++ t
3160: 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 09 ests/cmdMZ.test.
3170: 39 20 4e 6f 76 20 32 30 30 39 20 31 33 3a 31 36 9 Nov 2009 13:16
3180: 3a 30 32 20 2d 30 30 30 30 0a 40 40 20 2d 31 31 :02 -0000.@@ -11
3190: 39 2c 31 38 20 2b 31 31 39 2c 31 38 20 40 40 20 9,18 +119,18 @@
31a0: 70 72 6f 63 20 64 69 63 74 53 6f 72 74 20 7b 64 proc dictSort {d
31b0: 7d 20 7b 0a 20 20 20 20 20 72 65 74 75 72 6e 20 } {. return
31c0: 24 72 65 73 75 6c 74 0a 20 7d 0a 20 0a 2d 74 65 $result. }. .-te
31d0: 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d st cmdMZ-return-
31e0: 32 2e 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 2.0 {return opti
31f0: 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b on handling} {.+
3200: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
3210: 6e 2d 32 2e 30 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.0 {return op
3220: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
3230: 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 body {. list
3240: 20 5b 63 61 74 63 68 20 72 65 74 75 72 6e 20 2d [catch return -
3250: 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 > foo] [dictSort
3260: 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 63 $foo].-} {2 {-c
3270: 6f 64 65 20 30 20 2d 6c 65 76 65 6c 20 31 7d 7d ode 0 -level 1}}
3280: 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 .-test cmdMZ-ret
3290: 75 72 6e 2d 32 2e 31 20 7b 72 65 74 75 72 6e 20 urn-2.1 {return
32a0: 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d option handling}
32b0: 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f {.+} -match glo
32c0: 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d 63 b -result {2 {-c
32d0: 6f 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 63 ode 0 -errorstac
32e0: 6b 20 2a 20 2d 6c 65 76 65 6c 20 31 7d 7d 0a 2b k * -level 1}}.+
32f0: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
3300: 6e 2d 32 2e 31 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.1 {return op
3310: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
3320: 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 body {. list
3330: 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e 20 [catch {return
3340: 2d 62 61 72 20 73 6f 6f 6d 7d 20 2d 3e 20 66 6f -bar soom} -> fo
3350: 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 24 66 6f o] [dictSort $fo
3360: 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 62 61 72 20 73 o].-} {2 {-bar s
3370: 6f 6f 6d 20 2d 63 6f 64 65 20 30 20 2d 6c 65 76 oom -code 0 -lev
3380: 65 6c 20 31 7d 7d 0a 2d 74 65 73 74 20 63 6d 64 el 1}}.-test cmd
3390: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 32 20 7b 72 MZ-return-2.2 {r
33a0: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
33b0: 64 6c 69 6e 67 7d 20 7b 0a 2b 7d 20 2d 6d 61 74 dling} {.+} -mat
33c0: 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 ch glob -result
33d0: 7b 32 20 7b 2d 62 61 72 20 73 6f 6f 6d 20 2d 63 {2 {-bar soom -c
33e0: 6f 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 63 ode 0 -errorstac
33f0: 6b 20 2a 20 2d 6c 65 76 65 6c 20 31 7d 7d 0a 2b k * -level 1}}.+
3400: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
3410: 6e 2d 32 2e 32 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.2 {return op
3420: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
3430: 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 body {. list
3440: 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e 20 [catch {return
3450: 2d 63 6f 64 65 20 72 65 74 75 72 6e 7d 20 2d 3e -code return} ->
3460: 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 foo] [dictSort
3470: 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 63 6f $foo].-} {2 {-co
3480: 64 65 20 30 20 2d 6c 65 76 65 6c 20 32 7d 7d 0a de 0 -level 2}}.
3490: 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 -test cmdMZ-retu
34a0: 72 6e 2d 32 2e 33 20 7b 72 65 74 75 72 6e 20 6f rn-2.3 {return o
34b0: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
34c0: 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 {.+} -match glob
34d0: 20 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d 63 6f -result {2 {-co
34e0: 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 63 6b de 0 -errorstack
34f0: 20 2a 20 2d 6c 65 76 65 6c 20 32 7d 7d 0a 2b 74 * -level 2}}.+t
3500: 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e est cmdMZ-return
3510: 2d 32 2e 33 20 7b 72 65 74 75 72 6e 20 6f 70 74 -2.3 {return opt
3520: 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 ion handling} -b
3530: 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 ody {. list
3540: 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e 20 2d [catch {return -
3550: 63 6f 64 65 20 72 65 74 75 72 6e 20 2d 6c 65 76 code return -lev
3560: 65 6c 20 31 30 7d 20 2d 3e 20 66 6f 6f 5d 20 5b el 10} -> foo] [
3570: 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d dictSort $foo].-
3580: 7d 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 6c } {2 {-code 0 -l
3590: 65 76 65 6c 20 31 31 7d 7d 0a 2b 7d 20 2d 6d 61 evel 11}}.+} -ma
35a0: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
35b0: 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 65 72 {2 {-code 0 -er
35c0: 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 65 rorstack * -leve
35d0: 6c 20 31 31 7d 7d 0a 20 74 65 73 74 20 63 6d 64 l 11}}. test cmd
35e0: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 34 20 7b 72 MZ-return-2.4 {r
35f0: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
3600: 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 dling} -body {.
3610: 20 20 20 20 72 65 74 75 72 6e 20 2d 6c 65 76 65 return -leve
3620: 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 0a l 0 -code error.
3630: 20 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 } -returnCodes
3640: 65 72 72 6f 72 20 2d 72 65 73 75 6c 74 20 7b 7d error -result {}
3650: 0a 40 40 20 2d 31 34 39 2c 31 34 20 2b 31 34 39 .@@ -149,14 +149
3660: 2c 31 34 20 40 40 20 74 65 73 74 20 63 6d 64 4d ,14 @@ test cmdM
3670: 5a 2d 72 65 74 75 72 6e 2d 32 2e 38 20 7b 72 65 Z-return-2.8 {re
3680: 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 0a turn option han.
3690: 20 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 test cmdMZ-retu
36a0: 72 6e 2d 32 2e 39 20 7b 72 65 74 75 72 6e 20 6f rn-2.9 {return o
36b0: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
36c0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 74 -body {. ret
36d0: 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f urn -level 0 -co
36e0: 64 65 20 31 30 0a 20 7d 20 2d 72 65 74 75 72 6e de 10. } -return
36f0: 43 6f 64 65 73 20 31 30 20 2d 72 65 73 75 6c 74 Codes 10 -result
3700: 20 7b 7d 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d {}.-test cmdMZ-
3710: 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b 72 65 74 return-2.10 {ret
3720: 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c urn option handl
3730: 69 6e 67 7d 20 7b 0a 2b 74 65 73 74 20 63 6d 64 ing} {.+test cmd
3740: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b MZ-return-2.10 {
3750: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
3760: 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a ndling} -body {.
3770: 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 list [catch
3780: 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 {return -level
3790: 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 7d 20 2d 0 -code error} -
37a0: 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 > foo] [dictSort
37b0: 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 31 20 7b 2d 63 $foo].-} {1 {-c
37c0: 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 ode 1 -errorcode
37d0: 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f NONE -errorinfo
37e0: 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f {.+} -match glo
37f0: 62 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b 2d 63 b -result {1 {-c
3800: 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 ode 1 -errorcode
3810: 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f NONE -errorinfo
3820: 20 7b 0a 20 20 20 20 20 77 68 69 6c 65 20 65 78 {. while ex
3830: 65 63 75 74 69 6e 67 0a 2d 22 72 65 74 75 72 6e ecuting.-"return
3840: 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 -level 0 -code
3850: 65 72 72 6f 72 22 7d 20 2d 65 72 72 6f 72 6c 69 error"} -errorli
3860: 6e 65 20 31 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a ne 1 -level 0}}.
3870: 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 -test cmdMZ-retu
3880: 72 6e 2d 32 2e 31 31 20 7b 72 65 74 75 72 6e 20 rn-2.11 {return
3890: 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d option handling}
38a0: 20 7b 0a 2b 22 72 65 74 75 72 6e 20 2d 6c 65 76 {.+"return -lev
38b0: 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 el 0 -code error
38c0: 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 31 20 "} -errorline 1
38d0: 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c -errorstack * -l
38e0: 65 76 65 6c 20 30 7d 7d 0a 2b 74 65 73 74 20 63 evel 0}}.+test c
38f0: 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 31 mdMZ-return-2.11
3900: 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 {return option
3910: 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 handling} -body
3920: 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 {. list [cat
3930: 63 68 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 ch {return -leve
3940: 6c 20 30 20 2d 63 6f 64 65 20 62 72 65 61 6b 7d l 0 -code break}
3950: 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f -> foo] [dictSo
3960: 72 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 33 20 7b rt $foo].-} {3 {
3970: 2d 63 6f 64 65 20 33 20 2d 6c 65 76 65 6c 20 30 -code 3 -level 0
3980: 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f }}.+} -match glo
3990: 62 20 2d 72 65 73 75 6c 74 20 7b 33 20 7b 2d 63 b -result {3 {-c
39a0: 6f 64 65 20 33 20 2d 65 72 72 6f 72 73 74 61 63 ode 3 -errorstac
39b0: 6b 20 2a 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a 20 k * -level 0}}.
39c0: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
39d0: 6e 2d 32 2e 31 32 20 7b 72 65 74 75 72 6e 20 6f n-2.12 {return o
39e0: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
39f0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 74 -body {. ret
3a00: 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f urn -level 0 -co
3a10: 64 65 20 65 72 72 6f 72 20 2d 6f 70 74 69 6f 6e de error -option
3a20: 73 20 7b 2d 63 6f 64 65 20 6f 6b 7d 0a 20 7d 20 s {-code ok}. }
3a30: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 6f 6b 20 -returnCodes ok
3a40: 2d 72 65 73 75 6c 74 20 7b 7d 0a 49 6e 64 65 78 -result {}.Index
3a50: 3a 20 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 : tests/error.te
3a60: 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d st.=============
3a70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3aa0: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
3ab0: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
3ac0: 6c 2f 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 l/tests/error.te
3ad0: 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 st,v.retrieving
3ae0: 72 65 76 69 73 69 6f 6e 20 31 2e 32 32 0a 64 69 revision 1.22.di
3af0: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 32 20 ff -u -p -r1.22
3b00: 65 72 72 6f 72 2e 74 65 73 74 0a 2d 2d 2d 20 74 error.test.--- t
3b10: 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 09 ests/error.test.
3b20: 32 38 20 53 65 70 20 32 30 30 39 20 31 38 3a 30 28 Sep 2009 18:0
3b30: 32 3a 32 30 20 2d 30 30 30 30 09 31 2e 32 32 0a 2:20 -0000.1.22.
3b40: 2b 2b 2b 20 74 65 73 74 73 2f 65 72 72 6f 72 2e +++ tests/error.
3b50: 74 65 73 74 09 39 20 4e 6f 76 20 32 30 30 39 20 test.9 Nov 2009
3b60: 31 33 3a 31 36 3a 30 32 20 2d 30 30 30 30 0a 40 13:16:02 -0000.@
3b70: 40 20 2d 31 35 33 2c 36 20 2b 31 35 33 2c 31 39 @ -153,6 +153,19
3b80: 20 40 40 20 74 65 73 74 20 65 72 72 6f 72 2d 34 @@ test error-4
3b90: 2e 35 20 7b 65 72 72 6f 72 49 6e 66 6f 20 61 6e .5 {errorInfo an
3ba0: 64 20 65 72 72 6f 72 43 6f 64 65 20 0a 20 20 20 d errorCode .
3bb0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 65 list [catch {e
3bc0: 72 72 6f 72 20 6d 73 67 31 20 6d 73 67 32 20 7b rror msg1 msg2 {
3bd0: 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 20 24 3a 3a }} msg] $msg $::
3be0: 65 72 72 6f 72 49 6e 66 6f 20 24 3a 3a 65 72 72 errorInfo $::err
3bf0: 6f 72 43 6f 64 65 0a 20 7d 20 7b 31 20 6d 73 67 orCode. } {1 msg
3c00: 31 20 6d 73 67 32 20 7b 7d 7d 0a 20 0a 2b 74 65 1 msg2 {}}. .+te
3c10: 73 74 20 65 72 72 6f 72 2d 34 2e 36 20 7b 65 72 st error-4.6 {er
3c20: 72 6f 72 73 74 61 63 6b 20 76 69 61 20 69 6e 66 rorstack via inf
3c30: 6f 20 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 o } -body {.+
3c40: 20 70 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 proc f x {g $x$
3c50: 78 7d 0a 2b 20 20 20 20 70 72 6f 63 20 67 20 78 x}.+ proc g x
3c60: 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 {error G:$x}.+
3c70: 20 20 20 63 61 74 63 68 20 7b 66 20 31 32 7d 0a catch {f 12}.
3c80: 2b 20 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 + info errors
3c90: 74 61 63 6b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 tack.+} -match g
3ca0: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b 67 20 lob -result {{g
3cb0: 31 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 1212} {f 12} {na
3cc0: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d mespace eval *}}
3cd0: 0a 2b 74 65 73 74 20 65 72 72 6f 72 2d 34 2e 37 .+test error-4.7
3ce0: 20 7b 65 72 72 6f 72 73 74 61 63 6b 20 76 69 61 {errorstack via
3cf0: 20 6f 70 74 69 6f 6e 73 20 64 69 63 74 20 7d 20 options dict }
3d00: 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 70 72 6f -body {.+ pro
3d10: 63 20 66 20 78 20 7b 67 20 24 78 24 78 7d 0a 2b c f x {g $x$x}.+
3d20: 20 20 20 20 70 72 6f 63 20 67 20 78 20 7b 65 72 proc g x {er
3d30: 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 20 20 20 63 ror G:$x}.+ c
3d40: 61 74 63 68 20 7b 66 20 31 32 7d 20 6d 20 64 0a atch {f 12} m d.
3d50: 2b 20 20 20 20 64 69 63 74 20 67 65 74 20 24 64 + dict get $d
3d60: 20 2d 65 72 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 -errorstack.+}
3d70: 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 -match glob -res
3d80: 75 6c 74 20 7b 7b 67 20 31 32 31 32 7d 20 7b 66 ult {{g 1212} {f
3d90: 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 12} {namespace
3da0: 65 76 61 6c 20 2a 7d 7d 0a 2b 0a 20 23 20 45 72 eval *}}.+. # Er
3db0: 72 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 63 6f rors in error co
3dc0: 6d 6d 61 6e 64 20 69 74 73 65 6c 66 0a 20 0a 20 mmand itself. .
3dd0: 74 65 73 74 20 65 72 72 6f 72 2d 35 2e 31 20 7b test error-5.1 {
3de0: 65 72 72 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 errors in error
3df0: 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 40 40 20 2d 32 command} {.@@ -2
3e00: 30 37 2c 36 20 2b 32 32 30 2c 31 35 20 40 40 20 07,6 +220,15 @@
3e10: 74 65 73 74 20 65 72 72 6f 72 2d 36 2e 39 20 7b test error-6.9 {
3e20: 63 61 74 63 68 20 6d 75 73 74 20 72 65 73 65 74 catch must reset
3e30: 20 65 72 72 6f 72 20 73 0a 20 20 20 20 20 63 61 error s. ca
3e40: 74 63 68 20 66 6f 6f 0a 20 20 20 20 20 6c 69 73 tch foo. lis
3e50: 74 20 24 3a 3a 65 72 72 6f 72 43 6f 64 65 0a 20 t $::errorCode.
3e60: 7d 20 7b 4e 4f 4e 45 7d 0a 2b 74 65 73 74 20 65 } {NONE}.+test e
3e70: 72 72 6f 72 2d 36 2e 31 30 20 7b 63 61 74 63 68 rror-6.10 {catch
3e80: 20 6d 75 73 74 20 72 65 73 65 74 20 65 72 72 6f must reset erro
3e90: 72 73 74 61 63 6b 7d 20 2d 62 6f 64 79 20 7b 0a rstack} -body {.
3ea0: 2b 09 70 72 6f 63 20 66 20 78 20 7b 67 20 24 78 +.proc f x {g $x
3eb0: 24 78 7d 0a 2b 09 70 72 6f 63 20 67 20 78 20 7b $x}.+.proc g x {
3ec0: 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 09 63 61 error G:$x}.+.ca
3ed0: 74 63 68 20 7b 66 20 31 32 7d 0a 2b 09 73 65 74 tch {f 12}.+.set
3ee0: 20 65 31 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 e1 [info errors
3ef0: 74 61 63 6b 5d 0a 2b 09 63 61 74 63 68 20 7b 66 tack].+.catch {f
3f00: 20 31 33 7d 0a 2b 09 73 65 74 20 65 32 20 5b 69 13}.+.set e2 [i
3f10: 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 0a nfo errorstack].
3f20: 2b 09 6c 69 73 74 20 24 65 31 20 24 65 32 0a 2b +.list $e1 $e2.+
3f30: 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 } -match glob -r
3f40: 65 73 75 6c 74 20 7b 7b 7b 67 20 31 32 31 32 7d esult {{{g 1212}
3f50: 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 {f 12} {namespa
3f60: 63 65 20 65 76 61 6c 20 2a 7d 7d 20 7b 7b 67 20 ce eval *}} {{g
3f70: 31 33 31 33 7d 20 7b 66 20 31 33 7d 20 7b 6e 61 1313} {f 13} {na
3f80: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d mespace eval *}}
3f90: 7d 0a 20 0a 20 74 65 73 74 20 65 72 72 6f 72 2d }. . test error-
3fa0: 37 2e 31 20 7b 42 75 67 20 31 33 39 37 38 34 33 7.1 {Bug 1397843
3fb0: 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 76 } -body {. v
3fc0: 61 72 69 61 62 6c 65 20 63 6d 64 73 0a 49 6e 64 ariable cmds.Ind
3fd0: 65 78 3a 20 74 65 73 74 73 2f 65 78 65 63 75 74 ex: tests/execut
3fe0: 65 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d e.test.=========
3ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
4030: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
4040: 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 65 78 65 63 l/tcl/tests/exec
4050: 75 74 65 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 ute.test,v.retri
4060: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
4070: 2e 33 32 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d .32.diff -u -p -
4080: 72 31 2e 33 32 20 65 78 65 63 75 74 65 2e 74 65 r1.32 execute.te
4090: 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 78 65 st.--- tests/exe
40a0: 63 75 74 65 2e 74 65 73 74 09 32 34 20 4a 75 6e cute.test.24 Jun
40b0: 20 32 30 30 39 20 31 33 3a 35 31 3a 33 36 20 2d 2009 13:51:36 -
40c0: 30 30 30 30 09 31 2e 33 32 0a 2b 2b 2b 20 74 65 0000.1.32.+++ te
40d0: 73 74 73 2f 65 78 65 63 75 74 65 2e 74 65 73 74 sts/execute.test
40e0: 09 39 20 4e 6f 76 20 32 30 30 39 20 31 33 3a 31 .9 Nov 2009 13:1
40f0: 36 3a 30 32 20 2d 30 30 30 30 0a 40 40 20 2d 39 6:02 -0000.@@ -9
4100: 35 36 2c 31 31 20 2b 39 35 36 2c 31 31 20 40 40 56,11 +956,11 @@
4110: 20 74 65 73 74 20 65 78 65 63 75 74 65 2d 38 2e test execute-8.
4120: 35 20 7b 42 75 67 20 32 30 33 38 30 36 39 7d 20 5 {Bug 2038069}
4130: 2d 73 65 74 75 70 20 7b 0a 20 20 20 20 20 64 65 -setup {. de
4140: 6d 6f 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b mo. } -cleanup {
4150: 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 64 65 6d . rename dem
4160: 6f 20 7b 7d 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 o {}.-} -result
4170: 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 {-code 1 -level
4180: 30 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 0 -errorcode NON
4190: 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 7b 46 4f E -errorinfo {FO
41a0: 4f 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 O.+} -match glob
41b0: 20 2d 72 65 73 75 6c 74 20 7b 2d 63 6f 64 65 20 -result {-code
41c0: 31 20 2d 6c 65 76 65 6c 20 30 20 2d 65 72 72 6f 1 -level 0 -erro
41d0: 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f rcode NONE -erro
41e0: 72 69 6e 66 6f 20 7b 46 4f 4f 0a 20 20 20 20 20 rinfo {FOO.
41f0: 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0a while executing.
4200: 20 22 65 72 72 6f 72 20 46 4f 4f 22 0a 20 20 20 "error FOO".
4210: 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 77 invoked from w
4220: 69 74 68 69 6e 0a 2d 22 63 61 74 63 68 20 5b 6c ithin.-"catch [l
4230: 69 73 74 20 65 72 72 6f 72 20 46 4f 4f 5d 20 6d ist error FOO] m
4240: 20 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 o"} -errorline
4250: 32 7d 0a 2b 22 63 61 74 63 68 20 5c 5b 6c 69 73 2}.+"catch \[lis
4260: 74 20 65 72 72 6f 72 20 46 4f 4f 5c 5d 20 6d 20 t error FOO\] m
4270: 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 32 o"} -errorline 2
4280: 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 7d 0a -errorstack *}.
4290: 20 0a 20 74 65 73 74 20 65 78 65 63 75 74 65 2d . test execute-
42a0: 39 2e 31 20 7b 49 6e 74 65 72 70 20 72 65 73 75 9.1 {Interp resu
42b0: 6c 74 20 72 65 73 65 74 74 69 6e 67 20 5b 42 75 lt resetting [Bu
42c0: 67 20 31 35 32 32 38 30 33 5d 7d 20 7b 0a 20 20 g 1522803]} {.
42d0: 20 20 20 73 65 74 20 63 20 30 0a 49 6e 64 65 78 set c 0.Index
42e0: 3a 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 : tests/info.tes
42f0: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
4300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4320: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4330: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
4340: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
4350: 2f 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 /tests/info.test
4360: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
4370: 76 69 73 69 6f 6e 20 31 2e 36 39 0a 64 69 66 66 vision 1.69.diff
4380: 20 2d 75 20 2d 70 20 2d 72 31 2e 36 39 20 69 6e -u -p -r1.69 in
4390: 66 6f 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 fo.test.--- test
43a0: 73 2f 69 6e 66 6f 2e 74 65 73 74 09 32 39 20 4f s/info.test.29 O
43b0: 63 74 20 32 30 30 39 20 32 32 3a 32 30 3a 31 32 ct 2009 22:20:12
43c0: 20 2d 30 30 30 30 09 31 2e 36 39 0a 2b 2b 2b 20 -0000.1.69.+++
43d0: 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 09 tests/info.test.
43e0: 39 20 4e 6f 76 20 32 30 30 39 20 31 33 3a 31 36 9 Nov 2009 13:16
43f0: 3a 30 33 20 2d 30 30 30 30 0a 40 40 20 2d 36 37 :03 -0000.@@ -67
4400: 36 2c 31 36 20 2b 36 37 36 2c 31 36 20 40 40 20 6,16 +676,16 @@
4410: 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 31 20 7b test info-21.1 {
4420: 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 miscellaneous er
4430: 72 6f 72 20 63 6f 6e 64 0a 20 7d 20 2d 72 65 73 ror cond. } -res
4440: 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 ult {wrong # arg
4450: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 69 6e s: should be "in
4460: 66 6f 20 73 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 fo subcommand ?a
4470: 72 67 20 2e 2e 2e 3f 22 7d 0a 20 74 65 73 74 20 rg ...?"}. test
4480: 69 6e 66 6f 2d 32 31 2e 32 20 7b 6d 69 73 63 65 info-21.2 {misce
4490: 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 llaneous error c
44a0: 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 onditions} -retu
44b0: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 rnCodes error -b
44c0: 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 ody {. info
44d0: 67 6f 72 70 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 gorp.-} -result
44e0: 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 {unknown or ambi
44f0: 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 guous subcommand
4500: 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 62 65 "gorp": must be
4510: 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 args, body, cla
4520: 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f ss, cmdcount, co
4530: 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 mmands, complete
4540: 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 , coroutine, def
4550: 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 ault, exists, fr
4560: 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 ame, functions,
4570: 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d globals, hostnam
4580: 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 e, level, librar
4590: 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c y, loaded, local
45a0: 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 s, nameofexecuta
45b0: 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 ble, object, pat
45c0: 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 chlevel, procs,
45d0: 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 script, sharedli
45e0: 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 bextension, tclv
45f0: 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d ersion, or vars}
4600: 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b .+} -result {unk
4610: 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 nown or ambiguou
4620: 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 67 6f s subcommand "go
4630: 72 70 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 rp": must be arg
4640: 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 s, body, class,
4650: 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e cmdcount, comman
4660: 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f ds, complete, co
4670: 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 routine, default
4680: 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 , errorstack, ex
4690: 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e ists, frame, fun
46a0: 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c ctions, globals,
46b0: 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c hostname, level
46c0: 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 , library, loade
46d0: 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f d, locals, nameo
46e0: 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a fexecutable, obj
46f0: 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c ect, patchlevel,
4700: 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 procs, script,
4710: 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 sharedlibextensi
4720: 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 on, tclversion,
4730: 6f 72 20 76 61 72 73 7d 0a 20 74 65 73 74 20 69 or vars}. test i
4740: 6e 66 6f 2d 32 31 2e 33 20 7b 6d 69 73 63 65 6c nfo-21.3 {miscel
4750: 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f laneous error co
4760: 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 nditions} -retur
4770: 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f nCodes error -bo
4780: 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 63 dy {. info c
4790: 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b .-} -result {unk
47a0: 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 nown or ambiguou
47b0: 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 63 22 s subcommand "c"
47c0: 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 : must be args,
47d0: 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 body, class, cmd
47e0: 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c count, commands,
47f0: 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 complete, corou
4800: 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 tine, default, e
4810: 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 xists, frame, fu
4820: 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 nctions, globals
4830: 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 , hostname, leve
4840: 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 l, library, load
4850: 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 ed, locals, name
4860: 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 ofexecutable, ob
4870: 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c ject, patchlevel
4880: 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c , procs, script,
4890: 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 sharedlibextens
48a0: 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c ion, tclversion,
48b0: 20 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 or vars}.+} -re
48c0: 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 sult {unknown or
48d0: 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f ambiguous subco
48e0: 6d 6d 61 6e 64 20 22 63 22 3a 20 6d 75 73 74 20 mmand "c": must
48f0: 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 be args, body, c
4900: 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 lass, cmdcount,
4910: 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 commands, comple
4920: 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 te, coroutine, d
4930: 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 efault, errorsta
4940: 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d ck, exists, fram
4950: 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c e, functions, gl
4960: 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c obals, hostname,
4970: 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c level, library,
4980: 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c loaded, locals,
4990: 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c nameofexecutabl
49a0: 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 e, object, patch
49b0: 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 level, procs, sc
49c0: 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 ript, sharedlibe
49d0: 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 xtension, tclver
49e0: 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 sion, or vars}.
49f0: 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 34 20 7b test info-21.4 {
4a00: 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 miscellaneous er
4a10: 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 ror conditions}
4a20: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 -returnCodes err
4a30: 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 or -body {.
4a40: 69 6e 66 6f 20 6c 0a 2d 7d 20 2d 72 65 73 75 6c info l.-} -resul
4a50: 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d t {unknown or am
4a60: 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 biguous subcomma
4a70: 6e 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 65 20 nd "l": must be
4a80: 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 args, body, clas
4a90: 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d s, cmdcount, com
4aa0: 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c mands, complete,
4ab0: 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 coroutine, defa
4ac0: 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 ult, exists, fra
4ad0: 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 me, functions, g
4ae0: 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 lobals, hostname
4af0: 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 , level, library
4b00: 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 , loaded, locals
4b10: 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 , nameofexecutab
4b20: 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 le, object, patc
4b30: 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 hlevel, procs, s
4b40: 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 cript, sharedlib
4b50: 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 extension, tclve
4b60: 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a rsion, or vars}.
4b70: 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e +} -result {unkn
4b80: 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 own or ambiguous
4b90: 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 6c 22 3a subcommand "l":
4ba0: 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 must be args, b
4bb0: 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 ody, class, cmdc
4bc0: 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 ount, commands,
4bd0: 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 complete, corout
4be0: 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 72 ine, default, er
4bf0: 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 74 73 rorstack, exists
4c00: 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f , frame, functio
4c10: 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 ns, globals, hos
4c20: 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 tname, level, li
4c30: 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c brary, loaded, l
4c40: 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 ocals, nameofexe
4c50: 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c cutable, object,
4c60: 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f patchlevel, pro
4c70: 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 cs, script, shar
4c80: 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 edlibextension,
4c90: 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 tclversion, or v
4ca0: 61 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 6f 2d ars}. test info-
4cb0: 32 31 2e 35 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 21.5 {miscellane
4cc0: 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 ous error condit
4cd0: 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 ions} -returnCod
4ce0: 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b es error -body {
4cf0: 0a 20 20 20 20 20 69 6e 66 6f 20 73 0a 2d 7d 20 . info s.-}
4d00: 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e -result {unknown
4d10: 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 or ambiguous su
4d20: 62 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 6d 75 bcommand "s": mu
4d30: 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 st be args, body
4d40: 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e , class, cmdcoun
4d50: 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d t, commands, com
4d60: 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 plete, coroutine
4d70: 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 74 , default, exist
4d80: 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 s, frame, functi
4d90: 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f ons, globals, ho
4da0: 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c stname, level, l
4db0: 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 ibrary, loaded,
4dc0: 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 locals, nameofex
4dd0: 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 ecutable, object
4de0: 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 , patchlevel, pr
4df0: 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 ocs, script, sha
4e00: 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c redlibextension,
4e10: 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 tclversion, or
4e20: 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 vars}.+} -result
4e30: 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 {unknown or amb
4e40: 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e iguous subcomman
4e50: 64 20 22 73 22 3a 20 6d 75 73 74 20 62 65 20 61 d "s": must be a
4e60: 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 rgs, body, class
4e70: 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d , cmdcount, comm
4e80: 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 ands, complete,
4e90: 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 coroutine, defau
4ea0: 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 lt, errorstack,
4eb0: 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 exists, frame, f
4ec0: 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c unctions, global
4ed0: 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 s, hostname, lev
4ee0: 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 el, library, loa
4ef0: 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d ded, locals, nam
4f00: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f eofexecutable, o
4f10: 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 bject, patchleve
4f20: 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 l, procs, script
4f30: 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e , sharedlibexten
4f40: 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e sion, tclversion
4f50: 2c 20 6f 72 20 76 61 72 73 7d 0a 20 0a 20 23 23 , or vars}. . ##
4f60: 0a 20 23 20 23 23 23 20 23 23 23 20 23 23 23 20 . # ### ### ###
4f70: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
4f80: 23 23 23 20 23 23 23 23 23 23 23 23 23 0a 49 6e ### #########.In
4f90: 64 65 78 3a 20 74 65 73 74 73 2f 69 6e 69 74 2e dex: tests/init.
4fa0: 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d test.===========
4fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fe0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
4ff0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
5000: 74 63 6c 2f 74 65 73 74 73 2f 69 6e 69 74 2e 74 tcl/tests/init.t
5010: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
5020: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 39 0a 64 revision 1.19.d
5030: 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 31 39 iff -u -p -r1.19
5040: 20 69 6e 69 74 2e 74 65 73 74 0a 2d 2d 2d 20 74 init.test.--- t
5050: 65 73 74 73 2f 69 6e 69 74 2e 74 65 73 74 09 32 ests/init.test.2
5060: 35 20 4a 75 6c 20 32 30 30 39 20 32 32 3a 30 30 5 Jul 2009 22:00
5070: 3a 31 30 20 2d 30 30 30 30 09 31 2e 31 39 0a 2b :10 -0000.1.19.+
5080: 2b 2b 20 74 65 73 74 73 2f 69 6e 69 74 2e 74 65 ++ tests/init.te
5090: 73 74 09 39 20 4e 6f 76 20 32 30 30 39 20 31 33 st.9 Nov 2009 13
50a0: 3a 31 36 3a 30 33 20 2d 30 30 30 30 0a 40 40 20 :16:03 -0000.@@
50b0: 2d 31 38 31 2c 37 20 2b 31 38 31 2c 37 20 40 40 -181,7 +181,7 @@
50c0: 20 74 65 73 74 20 69 6e 69 74 2d 35 2e 30 20 7b test init-5.0 {
50d0: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 20 70 return options p
50e0: 61 73 73 65 64 20 74 68 72 0a 20 20 20 20 20 6c assed thr. l
50f0: 69 73 74 20 24 63 6f 64 65 20 24 66 6f 6f 20 24 ist $code $foo $
5100: 62 61 72 20 24 63 6f 64 65 32 20 24 66 6f 6f 32 bar $code2 $foo2
5110: 20 24 62 61 72 32 0a 20 7d 20 2d 63 6c 65 61 6e $bar2. } -clean
5120: 75 70 20 7b 0a 20 20 20 20 20 75 6e 73 65 74 20 up {. unset
5130: 3a 3a 61 75 74 6f 5f 69 6e 64 65 78 28 3a 3a 78 ::auto_index(::x
5140: 78 78 29 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b xx).-} -result {
5150: 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 63 6f 64 2 xxx {-errorcod
5160: 65 20 4e 4f 4e 45 20 2d 63 6f 64 65 20 31 20 2d e NONE -code 1 -
5170: 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 20 7b level 1} 2 xxx {
5180: 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 -code 1 -level 1
5190: 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 -errorcode NONE
51a0: 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f }}.+} -match glo
51b0: 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 78 78 78 b -result {2 xxx
51c0: 20 7b 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e {-errorcode NON
51d0: 45 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 E -errorstack *
51e0: 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 -code 1 -level 1
51f0: 7d 20 32 20 78 78 78 20 7b 2d 63 6f 64 65 20 31 } 2 xxx {-code 1
5200: 20 2d 6c 65 76 65 6c 20 31 20 2d 65 72 72 6f 72 -level 1 -error
5210: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
5220: 73 74 61 63 6b 20 2a 7d 7d 0a 20 0c 0a 20 63 6c stack *}}. .. cl
5230: 65 61 6e 75 70 54 65 73 74 73 0a 20 7d 09 3b 23 eanupTests. }.;#
5240: 20 20 45 6e 64 20 6f 66 20 5b 69 6e 74 65 72 70 End of [interp
5250: 20 65 76 61 6c 20 24 74 65 73 74 49 6e 74 65 72 eval $testInter
5260: 70 5d 0a p].
