Attachment "errorstack9.patch" to
ticket [2868499fff]
added by
ferrieux
2010-03-17 07:57:34.
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 33 0a 64 69 66 66 20 2d 75 ion 1.23.diff -u
00a0: 20 2d 70 20 2d 72 31 2e 32 33 20 63 61 74 63 68 -p -r1.23 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 33 20 4a 61 6e 20 32 30 31 30 20 31 .n.13 Jan 2010 1
00d0: 32 3a 30 38 3a 33 30 20 2d 30 30 30 30 09 31 2e 2:08:30 -0000.1.
00e0: 32 33 0a 2b 2b 2b 20 64 6f 63 2f 63 61 74 63 68 23.+++ doc/catch
00f0: 2e 6e 09 31 37 20 4d 61 72 20 32 30 31 30 20 30 .n.17 Mar 2010 0
0100: 30 3a 35 34 3a 32 35 20 2d 30 30 30 30 0a 40 40 0:54:25 -0000.@@
0110: 20 2d 35 34 2c 32 32 20 2b 35 34 2c 33 33 20 40 -54,22 +54,33 @
0120: 40 20 4f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 @ Only when the
0130: 72 65 74 75 72 6e 20 63 6f 64 65 20 69 73 20 5c return code is \
0140: 66 42 54 43 4c 5f 52 45 54 55 0a 20 74 68 65 20 fBTCL_RETU. the
0150: 5c 66 42 5c 2d 6c 65 76 65 6c 5c 66 52 20 61 6e \fB\-level\fR an
0160: 64 20 5c 66 42 5c 2d 63 6f 64 65 5c 66 52 20 65 d \fB\-code\fR e
0170: 6e 74 72 69 65 73 20 62 65 20 73 6f 6d 65 74 68 ntries be someth
0180: 69 6e 67 20 65 6c 73 65 2c 20 61 73 0a 20 66 75 ing else, as. fu
0190: 72 74 68 65 72 20 64 65 73 63 72 69 62 65 64 20 rther described
01a0: 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 in the documenta
01b0: 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 5c 66 42 tion for the \fB
01c0: 72 65 74 75 72 6e 5c 66 52 20 63 6f 6d 6d 61 6e return\fR comman
01d0: 64 2e 0a 20 2e 50 50 0a 2d 57 68 65 6e 20 74 68 d.. .PP.-When th
01e0: 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 e return code fr
01f0: 6f 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 om evaluation of
0200: 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 \fIscript\fR is
0210: 20 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 \fBTCL_ERROR\fR
0220: 2c 0a 2d 74 68 72 65 65 20 61 64 64 69 74 69 6f ,.-three additio
0230: 6e 61 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 nal entries are
0240: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 defined in the d
0250: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0260: 75 72 6e 20 6f 70 74 69 6f 6e 73 0a 2d 73 74 6f urn options.-sto
0270: 72 65 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e red in \fIoption
0280: 73 56 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 sVarName\fR: \fB
0290: 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 20 \-errorinfo\fR,
02a0: 5c 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 \fB\-errorcode\f
02b0: 52 2c 20 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 R, .-and \fB\-er
02c0: 72 6f 72 6c 69 6e 65 5c 66 52 2e 20 20 54 68 65 rorline\fR. The
02d0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
02e0: 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 20 B\-errorinfo\fR
02f0: 65 6e 74 72 79 0a 2d 69 73 20 61 20 66 6f 72 6d entry.-is a form
0300: 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 atted stack trac
0310: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 6f 72 e containing mor
0320: 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 e information ab
0330: 6f 75 74 0a 2d 74 68 65 20 63 6f 6e 74 65 78 74 out.-the context
0340: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 72 in which the er
0350: 72 6f 72 20 68 61 70 70 65 6e 65 64 2e 20 20 54 ror happened. T
0360: 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 he formatted sta
0370: 63 6b 0a 2d 74 72 61 63 65 20 69 73 20 6d 65 61 ck.-trace is mea
0380: 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 nt to be read by
0390: 20 61 20 70 65 72 73 6f 6e 2e 20 20 54 68 65 20 a person. The
03a0: 76 61 6c 75 65 20 6f 66 0a 2d 74 68 65 20 5c 66 value of.-the \f
03b0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
03c0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
03d0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 nal information
03e0: 61 62 6f 75 74 20 74 68 65 0a 2d 65 72 72 6f 72 about the.-error
03f0: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0400: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0410: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0420: 69 73 20 6d 65 61 6e 74 20 74 6f 0a 2d 62 65 20 is meant to.-be
0430: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0440: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0450: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0460: 72 74 69 63 75 6c 61 72 6c 79 0a 2d 72 65 61 64 rticularly.-read
0470: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0480: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
0490: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
04a0: 5c 66 52 20 65 6e 74 72 79 0a 2d 69 73 20 61 6e \fR entry.-is an
04b0: 20 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 integer indicat
04c0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
04d0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
04e0: 61 73 20 62 65 69 6e 67 0a 2d 65 76 61 6c 75 61 as being.-evalua
04f0: 74 65 64 20 77 68 65 6e 20 74 68 65 20 65 72 72 ted when the err
0500: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0510: 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 e values of the
0520: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0530: 52 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 72 6f R.-and \fB\-erro
0540: 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 65 73 rcode\fR entries
0550: 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 of the most rec
0560: 65 6e 74 20 65 72 72 6f 72 20 61 72 65 20 61 6c ent error are al
0570: 73 6f 0a 2d 61 76 61 69 6c 61 62 6c 65 20 61 73 so.-available as
0580: 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 67 values of the g
0590: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 lobal variables
05a0: 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 6f 5c 66 \fB::errorInfo\f
05b0: 52 0a 2d 61 6e 64 20 5c 66 42 3a 3a 65 72 72 6f R.-and \fB::erro
05c0: 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 63 74 rCode\fR respect
05d0: 69 76 65 6c 79 2e 0a 2b 57 68 65 6e 20 74 68 65 ively..+When the
05e0: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f return code fro
05f0: 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 m evaluation of
0600: 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 0a \fIscript\fR is.
0610: 2b 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 +\fBTCL_ERROR\fR
0620: 2c 20 66 6f 75 72 20 61 64 64 69 74 69 6f 6e 61 , four additiona
0630: 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 64 65 l entries are de
0640: 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 69 63 fined in the dic
0650: 74 69 6f 6e 61 72 79 0a 2b 6f 66 20 72 65 74 75 tionary.+of retu
0660: 72 6e 20 6f 70 74 69 6f 6e 73 20 73 74 6f 72 65 rn options store
0670: 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e 73 56 d in \fIoptionsV
0680: 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 5c 2d arName\fR: \fB\-
0690: 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 0a 2b 5c errorinfo\fR,.+\
06a0: 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 fB\-errorcode\fR
06b0: 2c 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 , \fB\-errorline
06c0: 5c 66 52 2c 20 61 6e 64 20 5c 66 42 5c 2d 65 72 \fR, and \fB\-er
06d0: 72 6f 72 73 74 61 63 6b 5c 66 52 2e 20 20 54 68 rorstack\fR. Th
06e0: 65 0a 2b 76 61 6c 75 65 20 6f 66 20 74 68 65 20 e.+value of the
06f0: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0700: 52 20 65 6e 74 72 79 20 69 73 20 61 20 66 6f 72 R entry is a for
0710: 6d 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 matted stack tra
0720: 63 65 0a 2b 63 6f 6e 74 61 69 6e 69 6e 67 20 6d ce.+containing m
0730: 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ore information
0740: 61 62 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 about the contex
0750: 74 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 t in which the e
0760: 72 72 6f 72 0a 2b 68 61 70 70 65 6e 65 64 2e 20 rror.+happened.
0770: 20 54 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 The formatted s
0780: 74 61 63 6b 20 74 72 61 63 65 20 69 73 20 6d 65 tack trace is me
0790: 61 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 ant to be read b
07a0: 79 20 61 20 70 65 72 73 6f 6e 2e 0a 2b 54 68 65 y a person..+The
07b0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
07c0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
07d0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
07e0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a nal information.
07f0: 2b 61 62 6f 75 74 20 74 68 65 20 65 72 72 6f 72 +about the error
0800: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0810: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0820: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0830: 69 73 0a 2b 6d 65 61 6e 74 20 74 6f 20 62 65 20 is.+meant to be
0840: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0850: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0860: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0870: 72 74 69 63 75 6c 61 72 6c 79 0a 2b 72 65 61 64 rticularly.+read
0880: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0890: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
08a0: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
08b0: 5c 66 52 20 65 6e 74 72 79 20 69 73 20 61 6e 0a \fR entry is an.
08c0: 2b 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 +integer indicat
08d0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
08e0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
08f0: 61 73 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 as being evaluat
0900: 65 64 20 77 68 65 6e 0a 2b 74 68 65 20 65 72 72 ed when.+the err
0910: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0920: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c e value of the \
0930: 66 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c 66 fB\-errorstack\f
0940: 52 20 65 6e 74 72 79 20 69 73 20 61 0a 2b 6c 69 R entry is a.+li
0950: 73 74 20 6f 66 20 6c 69 73 74 73 20 6d 61 64 65 st of lists made
0960: 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e of the function
0970: 20 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 6d names and argum
0980: 65 6e 74 73 20 61 74 20 65 61 63 68 20 6c 65 76 ents at each lev
0990: 65 6c 0a 2b 66 72 6f 6d 20 74 68 65 20 63 61 6c el.+from the cal
09a0: 6c 20 73 74 61 63 6b 20 77 68 65 6e 20 74 68 65 l stack when the
09b0: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e error occurred.
09c0: 20 49 74 20 64 69 66 66 65 72 73 20 66 72 6f 6d It differs from
09d0: 0a 2b 2d 65 72 72 6f 72 69 6e 66 6f 20 69 6e 20 .+-errorinfo in
09e0: 74 68 61 74 20 28 31 29 20 69 74 20 69 73 20 61 that (1) it is a
09f0: 20 74 72 75 65 20 6c 69 73 74 20 6f 66 20 6c 69 true list of li
0a00: 73 74 73 2c 20 66 6f 72 20 65 61 73 79 0a 2b 70 sts, for easy.+p
0a10: 72 6f 67 72 61 6d 6d 61 74 69 63 20 61 63 63 65 rogrammatic acce
0a20: 73 73 20 77 69 74 68 6f 75 74 20 70 61 72 73 69 ss without parsi
0a30: 6e 67 2c 20 28 32 29 20 69 74 20 63 6f 6e 74 61 ng, (2) it conta
0a40: 69 6e 73 20 74 68 65 20 74 72 75 65 0a 2b 28 73 ins the true.+(s
0a50: 75 62 73 74 69 74 75 74 65 64 29 20 76 61 6c 75 ubstituted) valu
0a60: 65 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 es passed to the
0a70: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 69 6e 73 74 functions, inst
0a80: 65 61 64 20 6f 66 20 74 68 65 20 73 74 61 74 69 ead of the stati
0a90: 63 0a 2b 74 65 78 74 20 6f 66 20 74 68 65 20 63 c.+text of the c
0aa0: 61 6c 6c 69 6e 67 20 73 69 74 65 73 2c 20 61 6e alling sites, an
0ab0: 64 20 28 33 29 20 69 74 20 69 73 20 63 6f 61 72 d (3) it is coar
0ac0: 73 65 72 2d 67 72 61 69 6e 65 64 2c 20 77 69 74 ser-grained, wit
0ad0: 68 20 6f 6e 6c 79 0a 2b 6f 6e 65 20 65 6c 65 6d h only.+one elem
0ae0: 65 6e 74 20 70 65 72 20 73 74 61 63 6b 20 66 72 ent per stack fr
0af0: 61 6d 65 20 28 6c 69 6b 65 20 70 72 6f 63 73 3b ame (like procs;
0b00: 20 6e 6f 20 73 65 70 61 72 61 74 65 20 65 6c 65 no separate ele
0b10: 6d 65 6e 74 73 20 66 6f 72 0a 2b 5b 66 6f 72 65 ments for.+[fore
0b20: 61 63 68 5d 20 63 6f 6e 73 74 72 75 63 74 73 20 ach] constructs
0b30: 66 6f 72 20 65 78 61 6d 70 6c 65 29 2e 0a 2b 0a for example)..+.
0b40: 2b 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 +The values of t
0b50: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 he \fB\-errorinf
0b60: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 5c 2d 65 72 o\fR and \fB\-er
0b70: 72 6f 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 rorcode\fR entri
0b80: 65 73 20 6f 66 0a 2b 74 68 65 20 6d 6f 73 74 20 es of.+the most
0b90: 72 65 63 65 6e 74 20 65 72 72 6f 72 20 61 72 65 recent error are
0ba0: 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 also available
0bb0: 61 73 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 as values of the
0bc0: 20 67 6c 6f 62 61 6c 0a 2b 76 61 72 69 61 62 6c global.+variabl
0bd0: 65 73 20 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 es \fB::errorInf
0be0: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 3a 3a 65 72 o\fR and \fB::er
0bf0: 72 6f 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 rorCode\fR respe
0c00: 63 74 69 76 65 6c 79 2e 20 54 68 65 0a 2b 76 61 ctively. The.+va
0c10: 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 42 5c 2d lue of the \fB\-
0c20: 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 20 65 6e errorstack\fR en
0c30: 74 72 79 20 73 75 72 66 61 63 65 73 20 61 73 20 try surfaces as
0c40: 5c 66 42 69 6e 66 6f 0a 2b 65 72 72 6f 72 73 74 \fBinfo.+errorst
0c50: 61 63 6b 5c 66 52 2e 0a 20 2e 50 50 0a 20 54 63 ack\fR.. .PP. Tc
0c60: 6c 20 70 61 63 6b 61 67 65 73 20 6d 61 79 20 70 l packages may p
0c70: 72 6f 76 69 64 65 20 63 6f 6d 6d 61 6e 64 73 20 rovide commands
0c80: 74 68 61 74 20 73 65 74 20 6f 74 68 65 72 20 65 that set other e
0c90: 6e 74 72 69 65 73 20 69 6e 20 74 68 65 0a 20 64 ntries in the. d
0ca0: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0cb0: 75 72 6e 20 6f 70 74 69 6f 6e 73 2c 20 61 6e 64 urn options, and
0cc0: 20 74 68 65 20 5c 66 42 72 65 74 75 72 6e 5c 66 the \fBreturn\f
0cd0: 52 20 63 6f 6d 6d 61 6e 64 20 6d 61 79 20 62 65 R command may be
0ce0: 0a 49 6e 64 65 78 3a 20 64 6f 63 2f 69 6e 66 6f .Index: doc/info
0cf0: 2e 6e 0a 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 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0d40: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0d50: 6c 2f 64 6f 63 2f 69 6e 66 6f 2e 6e 2c 76 0a 72 l/doc/info.n,v.r
0d60: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
0d70: 6f 6e 20 31 2e 33 35 0a 64 69 66 66 20 2d 75 20 on 1.35.diff -u
0d80: 2d 70 20 2d 72 31 2e 33 35 20 69 6e 66 6f 2e 6e -p -r1.35 info.n
0d90: 0a 2d 2d 2d 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 .--- doc/info.n.
0da0: 31 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 16 Nov 2009 18:0
0db0: 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 33 35 0a 0:11 -0000.1.35.
0dc0: 2b 2b 2b 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 31 +++ doc/info.n.1
0dd0: 37 20 4d 61 72 20 32 30 31 30 20 30 30 3a 35 34 7 Mar 2010 00:54
0de0: 3a 32 36 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 :26 -0000.@@ -94
0df0: 2c 36 20 2b 39 34 2c 31 36 20 40 40 20 64 6f 65 ,6 +94,16 @@ doe
0e00: 73 20 6e 6f 74 20 68 61 76 65 20 61 20 64 65 66 s not have a def
0e10: 61 75 6c 74 20 76 61 6c 75 65 20 74 68 65 6e 20 ault value then
0e20: 74 68 65 20 63 0a 20 4f 74 68 65 72 77 69 73 65 the c. Otherwise
0e30: 20 69 74 20 72 65 74 75 72 6e 73 20 5c 66 42 31 it returns \fB1
0e40: 5c 66 52 20 61 6e 64 20 70 6c 61 63 65 73 20 74 \fR and places t
0e50: 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 he default value
0e60: 20 6f 66 20 5c 66 49 61 72 67 5c 66 52 0a 20 69 of \fIarg\fR. i
0e70: 6e 74 6f 20 76 61 72 69 61 62 6c 65 20 5c 66 49 nto variable \fI
0e80: 76 61 72 6e 61 6d 65 5c 66 52 2e 0a 20 2e 54 50 varname\fR.. .TP
0e90: 0a 2b 5c 66 42 69 6e 66 6f 20 65 72 72 6f 72 73 .+\fBinfo errors
0ea0: 74 61 63 6b 20 5c 66 52 3f 5c 66 49 69 6e 74 65 tack \fR?\fIinte
0eb0: 72 70 5c 66 52 3f 0a 2b 2e 0a 2b 52 65 74 75 72 rp\fR?.+..+Retur
0ec0: 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 ns a list of lis
0ed0: 74 73 20 6d 61 64 65 20 6f 66 20 74 68 65 20 66 ts made of the f
0ee0: 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e unction names an
0ef0: 64 20 61 72 67 75 6d 65 6e 74 73 20 61 74 0a 2b d arguments at.+
0f00: 65 61 63 68 20 6c 65 76 65 6c 20 66 72 6f 6d 20 each level from
0f10: 74 68 65 20 63 61 6c 6c 20 73 74 61 63 6b 20 6f the call stack o
0f20: 66 20 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 f the last error
0f30: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 0a 2b 5c in the given.+\
0f40: 66 49 69 6e 74 65 72 70 5c 66 52 2c 20 6f 72 20 fIinterp\fR, or
0f50: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f in the current o
0f60: 6e 65 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 ne if not specif
0f70: 69 65 64 2e 20 20 54 68 69 73 0a 2b 69 6e 66 6f ied. This.+info
0f80: 72 6d 61 74 69 6f 6e 20 69 73 20 61 6c 73 6f 20 rmation is also
0f90: 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 2d present in the -
0fa0: 65 72 72 6f 72 73 74 61 63 6b 20 65 6e 74 72 79 errorstack entry
0fb0: 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 0a of the options.
0fc0: 2b 64 69 63 74 69 6f 6e 61 72 79 20 72 65 74 75 +dictionary retu
0fd0: 72 6e 65 64 20 62 79 20 33 2d 61 72 67 20 5c 66 rned by 3-arg \f
0fe0: 42 63 61 74 63 68 5c 66 52 3b 20 5c 66 42 69 6e Bcatch\fR; \fBin
0ff0: 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 fo errorstack\fR
1000: 20 69 73 20 61 0a 2b 63 6f 6e 76 65 6e 69 65 6e is a.+convenien
1010: 74 20 77 61 79 20 6f 66 20 72 65 74 72 69 65 76 t way of retriev
1020: 69 6e 67 20 69 74 20 66 6f 72 20 75 6e 63 61 75 ing it for uncau
1030: 67 68 74 20 65 72 72 6f 72 73 20 61 74 20 74 6f ght errors at to
1040: 70 6c 65 76 65 6c 20 69 6e 20 61 6e 0a 2b 69 6e plevel in an.+in
1050: 74 65 72 61 63 74 69 76 65 20 74 63 6c 73 68 2e teractive tclsh.
1060: 0a 2b 2e 54 50 0a 20 5c 66 42 69 6e 66 6f 20 65 .+.TP. \fBinfo e
1070: 78 69 73 74 73 20 5c 66 49 76 61 72 4e 61 6d 65 xists \fIvarName
1080: 5c 66 52 0a 20 2e 0a 20 52 65 74 75 72 6e 73 20 \fR. .. Returns
1090: 5c 66 42 31 5c 66 52 20 69 66 20 74 68 65 20 76 \fB1\fR if the v
10a0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 64 20 5c 66 ariable named \f
10b0: 49 76 61 72 4e 61 6d 65 5c 66 52 20 65 78 69 73 IvarName\fR exis
10c0: 74 73 20 69 6e 20 74 68 65 0a 49 6e 64 65 78 3a ts in the.Index:
10d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 generic/tclBasi
10e0: 63 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.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 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
1130: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
1140: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 cl/generic/tclBa
1150: 73 69 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 sic.c,v.retrievi
1160: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 34 ng revision 1.44
1170: 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 8.diff -u -p -r1
1180: 2e 34 34 38 20 74 63 6c 42 61 73 69 63 2e 63 0a .448 tclBasic.c.
1190: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 --- generic/tclB
11a0: 61 73 69 63 2e 63 09 35 20 4d 61 72 20 32 30 31 asic.c.5 Mar 201
11b0: 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 30 30 30 0 14:34:03 -0000
11c0: 09 31 2e 34 34 38 0a 2b 2b 2b 20 67 65 6e 65 72 .1.448.+++ gener
11d0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 31 37 ic/tclBasic.c.17
11e0: 20 4d 61 72 20 32 30 31 30 20 30 30 3a 35 34 3a Mar 2010 00:54:
11f0: 33 34 20 2d 30 30 30 30 0a 40 40 20 2d 35 32 39 34 -0000.@@ -529
1200: 2c 36 20 2b 35 32 39 2c 39 20 40 40 20 54 63 6c ,6 +529,9 @@ Tcl
1210: 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f _CreateInterp(vo
1220: 69 64 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 id). iPtr->e
1230: 72 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b rrorInfo = NULL;
1240: 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 . TclNewLite
1250: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 ralStringObj(iPt
1260: 72 2d 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 r->eiVar, "::err
1270: 6f 72 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 orInfo");. T
1280: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1290: 69 50 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 iPtr->eiVar);.+
12a0: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 iPtr->errorSt
12b0: 61 63 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 ack = Tcl_NewLis
12c0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b tObj(0, NULL);.+
12d0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
12e0: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
12f0: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 Stack);.+ iPt
1300: 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 r->resetErrorSta
1310: 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 ck = 1;. iPt
1320: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e r->errorCode = N
1330: 55 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 ULL;. TclNew
1340: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
1350: 28 69 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a (iPtr->ecVar, ":
1360: 3a 65 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 :errorCode");.
1370: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
1380: 75 6e 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 unt(iPtr->ecVar)
1390: 3b 0a 40 40 20 2d 31 34 36 37 2c 36 20 2b 31 34 ;.@@ -1467,6 +14
13a0: 37 30 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 70,7 @@ DeleteIn
13b0: 74 65 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f terpProc(. .Tcl_
13c0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 DecrRefCount(iPt
13d0: 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 r->errorInfo);.
13e0: 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f .iPtr->errorInfo
13f0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a = NULL;. }.
1400: 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 + Tcl_DecrRef
1410: 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f Count(iPtr->erro
1420: 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 rStack);. if
1430: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 (iPtr->returnOp
1440: 74 73 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 ts) {. .Tcl_Decr
1450: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 RefCount(iPtr->r
1460: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 eturnOpts);.
1470: 20 7d 0a 40 40 20 2d 38 39 34 33 2c 35 20 2b 38 }.@@ -8943,5 +8
1480: 39 34 37 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 947,7 @@ TclInfo
1490: 43 6f 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 CoroutineCmd(.
14a0: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
14b0: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
14c0: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
14d0: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
14e0: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
14f0: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
1500: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
1510: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 ex: generic/tclC
1520: 6d 64 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d mdIL.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 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1570: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1580: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1590: 6c 43 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 lCmdIL.c,v.retri
15a0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
15b0: 2e 31 38 30 0a 64 69 66 66 20 2d 75 20 2d 70 20 .180.diff -u -p
15c0: 2d 72 31 2e 31 38 30 20 74 63 6c 43 6d 64 49 4c -r1.180 tclCmdIL
15d0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
15e0: 63 6c 43 6d 64 49 4c 2e 63 09 35 20 4d 61 72 20 clCmdIL.c.5 Mar
15f0: 32 30 31 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 2010 14:34:03 -0
1600: 30 30 30 09 31 2e 31 38 30 0a 2b 2b 2b 20 67 65 000.1.180.+++ ge
1610: 6e 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 neric/tclCmdIL.c
1620: 09 31 37 20 4d 61 72 20 32 30 31 30 20 30 30 3a .17 Mar 2010 00:
1630: 35 34 3a 33 37 20 2d 30 30 30 30 0a 40 40 20 2d 54:37 -0000.@@ -
1640: 31 31 38 2c 36 20 2b 31 31 38 2c 39 20 40 40 20 118,6 +118,9 @@
1650: 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e 66 6f static int..Info
1660: 43 6f 6d 70 6c 65 74 65 43 6d 64 28 43 6c 69 65 CompleteCmd(Clie
1670: 6e 74 44 61 74 61 20 64 0a 20 09 09 09 20 20 20 ntData d. ...
1680: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1690: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
16a0: 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 );. static int..
16b0: 49 6e 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 43 InfoDefaultCmd(C
16c0: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
16d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
16e0: 65 72 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 erp,. ... int
16f0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
1700: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 2b const objv[]);.+
1710: 2f 2a 20 54 49 50 20 23 33 34 38 20 2d 20 4e 65 /* TIP #348 - Ne
1720: 77 20 27 69 6e 66 6f 27 20 73 75 62 63 6f 6d 6d w 'info' subcomm
1730: 61 6e 64 20 27 65 72 72 6f 72 73 74 61 63 6b 27 and 'errorstack'
1740: 20 2a 2f 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 */.+static int.
1750: 09 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 .InfoErrorStackC
1760: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 md(ClientData du
1770: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
1780: 2a 69 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 *interp,.+...
1790: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
17a0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
17b0: 29 3b 0a 20 2f 2a 20 54 49 50 20 23 32 38 30 20 );. /* TIP #280
17c0: 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 62 - New 'info' sub
17d0: 63 6f 6d 6d 61 6e 64 20 27 66 72 61 6d 65 27 20 command 'frame'
17e0: 2a 2f 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 */. static int..
17f0: 49 6e 66 6f 46 72 61 6d 65 43 6d 64 28 43 6c 69 InfoFrameCmd(Cli
1800: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 entData dummy, T
1810: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1820: 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f p,. ... int o
1830: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
1840: 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 40 40 20 nst objv[]);.@@
1850: 2d 31 36 34 2c 36 20 2b 31 36 37 2c 37 20 40 40 -164,6 +167,7 @@
1860: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 45 6e static const En
1870: 73 65 6d 62 6c 65 49 6d 70 6c 4d 61 70 20 64 65 sembleImplMap de
1880: 66 61 75 6c 74 49 6e 66 6f 0a 20 20 20 20 20 7b faultInfo. {
1890: 22 63 6f 6d 70 6c 65 74 65 22 2c 09 20 20 20 49 "complete",. I
18a0: 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 2c 09 nfoCompleteCmd,.
18b0: 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 NULL, NULL,
18c0: 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 63 6f NULL},. {"co
18d0: 72 6f 75 74 69 6e 65 22 2c 09 20 20 20 54 63 6c routine",. Tcl
18e0: 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 6d 64 InfoCoroutineCmd
18f0: 2c 20 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c , NULL, NULL
1900: 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 , NULL},. {"
1910: 64 65 66 61 75 6c 74 22 2c 09 09 20 20 20 49 6e default",.. In
1920: 66 6f 44 65 66 61 75 6c 74 43 6d 64 2c 09 20 20 foDefaultCmd,.
1930: 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 NULL, NULL, NU
1940: 4c 4c 7d 2c 0a 2b 20 20 20 20 7b 22 65 72 72 6f LL},.+ {"erro
1950: 72 73 74 61 63 6b 22 2c 09 20 20 20 49 6e 66 6f rstack",. Info
1960: 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 2c 09 20 ErrorStackCmd,.
1970: 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e NULL, NULL, N
1980: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 65 78 69 ULL},. {"exi
1990: 73 74 73 22 2c 09 09 20 20 20 54 63 6c 49 6e 66 sts",.. TclInf
19a0: 6f 45 78 69 73 74 73 43 6d 64 2c 09 20 20 20 20 oExistsCmd,.
19b0: 54 63 6c 43 6f 6d 70 69 6c 65 49 6e 66 6f 45 78 TclCompileInfoEx
19c0: 69 73 74 73 43 6d 64 2c 20 4e 55 4c 4c 2c 20 4e istsCmd, NULL, N
19d0: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 66 72 61 ULL},. {"fra
19e0: 6d 65 22 2c 09 09 20 20 20 49 6e 66 6f 46 72 61 me",.. InfoFra
19f0: 6d 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c meCmd,. NULL,
1a00: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 NULL, NULL},.
1a10: 20 20 20 7b 22 66 75 6e 63 74 69 6f 6e 73 22 2c {"functions",
1a20: 09 20 20 20 49 6e 66 6f 46 75 6e 63 74 69 6f 6e . InfoFunction
1a30: 73 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 sCmd,. NULL,
1a40: 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 40 40 20 NULL, NULL},.@@
1a50: 2d 31 30 32 32 2c 36 20 2b 31 30 32 36 2c 35 35 -1022,6 +1026,55
1a60: 20 40 40 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 @@ InfoDefaultC
1a70: 6d 64 28 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d md(. /*. *-----
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 0a 20 20 2a 0a 2b 20 2a 20 49 6e 66 6f 45 72 -. *.+ * InfoEr
1ad0: 72 6f 72 53 74 61 63 6b 43 6d 64 20 2d 2d 0a 2b rorStackCmd --.+
1ae0: 20 2a 0a 2b 20 2a 09 43 61 6c 6c 65 64 20 74 6f *.+ *.Called to
1af0: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
1b00: 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 22 info errorstack"
1b10: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 72 65 command that re
1b20: 74 75 72 6e 73 20 69 6e 66 6f 72 6d 61 74 69 6f turns informatio
1b30: 6e 0a 2b 20 2a 09 61 62 6f 75 74 20 74 68 65 20 n.+ *.about the
1b40: 6c 61 73 74 20 65 72 72 6f 72 27 73 20 63 61 6c last error's cal
1b50: 6c 20 73 74 61 63 6b 2e 20 48 61 6e 64 6c 65 73 l stack. Handles
1b60: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
1b70: 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b 20 2a 09 20 yntax:.+ *.+ *.
1b80: 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 info errorsta
1b90: 63 6b 20 3f 69 6e 74 65 72 70 3f 0a 2b 20 2a 0a ck ?interp?.+ *.
1ba0: 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a + * Results:.+ *
1bb0: 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f 4b 20 .Returns TCL_OK
1bc0: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e if successful an
1bd0: 64 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 74 d TCL_ERROR if t
1be0: 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f 72 here is an error
1bf0: 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 ..+ *.+ * Side e
1c00: 66 66 65 63 74 73 3a 0a 2b 20 2a 09 52 65 74 75 ffects:.+ *.Retu
1c10: 72 6e 73 20 61 20 72 65 73 75 6c 74 20 69 6e 20 rns a result in
1c20: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 the interpreter'
1c30: 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 74 2e s result object.
1c40: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 0a If there is an.
1c50: 2b 20 2a 09 65 72 72 6f 72 2c 20 74 68 65 20 72 + *.error, the r
1c60: 65 73 75 6c 74 20 69 73 20 61 6e 20 65 72 72 6f esult is an erro
1c70: 72 20 6d 65 73 73 61 67 65 2e 0a 2b 20 2a 0a 2b r message..+ *.+
1c80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a --------.+ */.+.
1cd0: 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 49 6e 66 +static int.+Inf
1ce0: 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 28 0a oErrorStackCmd(.
1cf0: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 + ClientData
1d00: 64 75 6d 6d 79 2c 09 09 2f 2a 20 4e 6f 74 20 75 dummy,../* Not u
1d10: 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c sed. */.+ Tcl
1d20: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1d30: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ../* Current int
1d40: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 erpreter. */.+
1d50: 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 2f 2a int objc,.../*
1d60: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
1d70: 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 ents. */.+ Tc
1d80: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
1d90: 76 5b 5d 29 09 2f 2a 20 41 72 67 75 6d 65 6e 74 v[])./* Argument
1da0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a objects. */.+{.
1db0: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 + Tcl_Interp
1dc0: 2a 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 49 6e *target;.+ In
1dd0: 74 65 72 70 20 2a 69 50 74 72 3b 0a 2b 0a 2b 20 terp *iPtr;.+.+
1de0: 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 3d 20 if ((objc !=
1df0: 31 29 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 32 1) && (objc != 2
1e00: 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 )) {.+.Tcl_Wrong
1e10: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
1e20: 31 2c 20 6f 62 6a 76 2c 20 22 3f 69 6e 74 65 72 1, objv, "?inter
1e30: 70 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 p?");.+.return T
1e40: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
1e50: 0a 2b 20 20 20 20 0a 2b 20 20 20 20 74 61 72 67 .+ .+ targ
1e60: 65 74 20 3d 20 69 6e 74 65 72 70 3b 0a 2b 20 20 et = interp;.+
1e70: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 if (objc == 2)
1e80: 20 7b 0a 2b 20 20 20 20 20 20 20 20 74 61 72 67 {.+ targ
1e90: 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 6c 61 76 et = Tcl_GetSlav
1ea0: 65 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 e(interp, Tcl_Ge
1eb0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1ec0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 20 28 );.+ if (
1ed0: 74 61 72 67 65 74 20 3d 3d 20 4e 55 4c 4c 29 20 target == NULL)
1ee0: 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 72 {.+ r
1ef0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1f00: 0a 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 .+ }.+
1f10: 20 7d 0a 2b 0a 2b 20 20 20 20 69 50 74 72 20 3d }.+.+ iPtr =
1f20: 20 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67 (Interp *) targ
1f30: 65 74 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 65 74 et;.+ Tcl_Set
1f40: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1f50: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
1f60: 63 6b 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 ck);.+ .+
1f70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b return TCL_OK;.+
1f80: 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d }.+..+/*.+ *----
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 6c 49 6e --.+ *. * TclIn
1fe0: 66 6f 45 78 69 73 74 73 43 6d 64 20 2d 2d 0a 20 foExistsCmd --.
1ff0: 20 2a 0a 20 20 2a 09 43 61 6c 6c 65 64 20 74 6f *. *.Called to
2000: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
2010: 69 6e 66 6f 20 65 78 69 73 74 73 22 20 63 6f 6d info exists" com
2020: 6d 61 6e 64 20 74 68 61 74 20 64 65 74 65 72 6d mand that determ
2030: 69 6e 65 73 20 77 68 65 74 68 65 72 0a 40 40 20 ines whether.@@
2040: 2d 34 34 30 31 2c 35 20 2b 34 34 35 34 2c 37 20 -4401,5 +4454,7
2050: 40 40 20 53 65 6c 65 63 74 4f 62 6a 46 72 6f 6d @@ SelectObjFrom
2060: 53 75 62 6c 69 73 74 28 0a 20 20 2a 20 6d 6f 64 Sublist(. * mod
2070: 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 e: c. * c-basic
2080: 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 -offset: 4. * f
2090: 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b ill-column: 78.+
20a0: 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0a * tab-width: 8.
20b0: 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d + * indent-tabs-
20c0: 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e mode: nil. * En
20d0: 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 d:. */.Index: g
20e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
20f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2120: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2130: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2140: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2150: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
2160: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
2170: 69 73 69 6f 6e 20 31 2e 34 36 34 0a 64 69 66 66 ision 1.464.diff
2180: 20 2d 75 20 2d 70 20 2d 72 31 2e 34 36 34 20 74 -u -p -r1.464 t
2190: 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 clInt.h.--- gene
21a0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 35 20 4d ric/tclInt.h.5 M
21b0: 61 72 20 32 30 31 30 20 31 34 3a 33 34 3a 30 34 ar 2010 14:34:04
21c0: 20 2d 30 30 30 30 09 31 2e 34 36 34 0a 2b 2b 2b -0000.1.464.+++
21d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e generic/tclInt.
21e0: 68 09 31 37 20 4d 61 72 20 32 30 31 30 20 30 30 h.17 Mar 2010 00
21f0: 3a 35 34 3a 34 36 20 2d 30 30 30 30 0a 40 40 20 :54:46 -0000.@@
2200: 2d 31 39 38 34 2c 36 20 2b 31 39 38 34 2c 38 20 -1984,6 +1984,8
2210: 40 40 20 74 79 70 65 64 65 66 20 73 74 72 75 63 @@ typedef struc
2220: 74 20 49 6e 74 65 72 70 20 7b 0a 20 20 20 20 20 t Interp {.
2230: 54 63 6c 5f 4f 62 6a 20 2a 65 69 56 61 72 3b 09 Tcl_Obj *eiVar;.
2240: 09 2f 2a 20 63 61 63 68 65 64 20 72 65 66 20 74 ./* cached ref t
2250: 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 61 o ::errorInfo va
2260: 72 69 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 20 20 riable. */.
2270: 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 43 6f Tcl_Obj *errorCo
2280: 64 65 3b 09 09 2f 2a 20 65 72 72 6f 72 43 6f 64 de;../* errorCod
2290: 65 20 76 61 6c 75 65 20 28 6e 6f 77 20 61 73 20 e value (now as
22a0: 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f 0a 20 a Tcl_Obj). */.
22b0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 63 56 Tcl_Obj *ecV
22c0: 61 72 3b 09 09 2f 2a 20 63 61 63 68 65 64 20 72 ar;../* cached r
22d0: 65 66 20 74 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 ef to ::errorInf
22e0: 6f 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 2b o variable. */.+
22f0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 Tcl_Obj *err
2300: 6f 72 53 74 61 63 6b 3b 09 2f 2a 20 5b 69 6e 66 orStack;./* [inf
2310: 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 20 76 61 o errorstack] va
2320: 6c 75 65 20 28 61 73 20 61 20 54 63 6c 5f 4f 62 lue (as a Tcl_Ob
2330: 6a 29 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 j). */.+ int
2340: 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 3b resetErrorStack;
2350: 20 20 20 20 20 20 20 20 2f 2a 20 63 6f 6e 74 72 /* contr
2360: 6f 6c 73 20 63 6c 65 61 6e 69 6e 67 20 75 70 20 ols cleaning up
2370: 6f 66 20 3a 3a 65 72 72 6f 72 53 74 61 63 6b 20 of ::errorStack
2380: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 72 65 74 75 */. int retu
2390: 72 6e 4c 65 76 65 6c 3b 09 09 2f 2a 20 5b 72 65 rnLevel;../* [re
23a0: 74 75 72 6e 20 2d 6c 65 76 65 6c 5d 20 70 61 72 turn -level] par
23b0: 61 6d 65 74 65 72 2e 20 2a 2f 0a 20 0a 20 20 20 ameter. */. .
23c0: 20 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 /*.Index: gene
23d0: 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 0a ric/tclNamesp.c.
23e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2420: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2430: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2440: 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 eneric/tclNamesp
2450: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
2460: 72 65 76 69 73 69 6f 6e 20 31 2e 32 30 34 0a 64 revision 1.204.d
2470: 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 30 iff -u -p -r1.20
2480: 34 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 4 tclNamesp.c.--
2490: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d - generic/tclNam
24a0: 65 73 70 2e 63 09 35 20 4d 61 72 20 32 30 31 30 esp.c.5 Mar 2010
24b0: 20 31 34 3a 33 34 3a 30 34 20 2d 30 30 30 30 09 14:34:04 -0000.
24c0: 31 2e 32 30 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.204.+++ generi
24d0: 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 31 37 c/tclNamesp.c.17
24e0: 20 4d 61 72 20 32 30 31 30 20 30 30 3a 35 34 3a Mar 2010 00:54:
24f0: 34 37 20 2d 30 30 30 30 0a 40 40 20 2d 34 38 37 47 -0000.@@ -487
2500: 33 2c 37 20 2b 34 38 37 33 2c 37 20 40 40 20 54 3,7 +4873,7 @@ T
2510: 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 cl_LogCommandInf
2520: 6f 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 69 73 o(. {. regis
2530: 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ter const char *
2540: 70 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a p;. Interp *
2550: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a iPtr = (Interp *
2560: 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 69 ) interp;.- i
2570: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
2580: 69 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 20 69 it = 150;.+ i
2590: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
25a0: 69 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b 0a 20 it = 150, len;.
25b0: 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 72 2c Var *varPtr,
25c0: 20 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a 20 20 *arrayPtr;. .
25d0: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 66 6c 61 if (iPtr->fla
25e0: 67 73 20 26 20 45 52 52 5f 41 4c 52 45 41 44 59 gs & ERR_ALREADY
25f0: 5f 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 2d 34 _LOGGED) {.@@ -4
2600: 39 33 32 2c 36 20 2b 34 39 33 32 2c 33 32 20 40 932,6 +4932,32 @
2610: 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 @ Tcl_LogCommand
2620: 49 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 43 4c Info(. .. TCL
2630: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 _GLOBAL_ONLY);.
2640: 09 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 .}. }.+.+
2650: 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50 20 /*.+ * TIP
2660: 23 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a #348.+ */.+.
2670: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 + if (Tcl_IsS
2680: 68 61 72 65 64 28 69 50 74 72 2d 3e 65 72 72 6f hared(iPtr->erro
2690: 72 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 20 20 rStack)) {.+
26a0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 Tcl_Obj *new
26b0: 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 Obj;.+
26c0: 20 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 77 4f .+ newO
26d0: 62 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 bj = Tcl_Duplica
26e0: 74 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f teObj(iPtr->erro
26f0: 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 rStack);.+
2700: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
2710: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 nt(iPtr->errorSt
2720: 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 ack);.+ T
2730: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2740: 6e 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 20 newObj);.+
2750: 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 iPtr->errorSta
2760: 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 20 ck = newObj;.+
2770: 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 73 }.+ Tcl_Lis
2780: 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 65 72 tObjLength(inter
2790: 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 p, iPtr->errorSt
27a0: 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 20 ack, &len);.+
27b0: 20 69 66 20 28 69 50 74 72 2d 3e 72 65 73 65 74 if (iPtr->reset
27c0: 45 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a 2b 20 ErrorStack) {.+
27d0: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 65 73 iPtr->res
27e0: 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 30 etErrorStack = 0
27f0: 3b 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 72 65 ;.+ /* re
2800: 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 6e set while keepin
2810: 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 65 g the list intre
2820: 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 p as much as pos
2830: 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 20 sible */.+
2840: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 70 Tcl_ListObjRep
2850: 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 74 lace(interp, iPt
2860: 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 30 r->errorStack, 0
2870: 2c 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 29 3b , len, 0, NULL);
2880: 0a 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d 30 3b .+ len=0;
2890: 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 69 66 .+ } .+ if
28a0: 20 28 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 (iPtr->varFrame
28b0: 50 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 6f 6f Ptr != iPtr->roo
28c0: 74 46 72 61 6d 65 50 74 72 29 20 7b 0a 2b 20 20 tFramePtr) {.+
28d0: 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 Tcl_ListOb
28e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 4e jAppendElement(N
28f0: 55 4c 4c 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 ULL,.+
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72 iPtr->err
2920: 6f 72 53 74 61 63 6b 2c 0a 2b 20 20 20 20 20 20 orStack,.+
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2940: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e Tcl_N
2950: 65 77 4c 69 73 74 4f 62 6a 28 69 50 74 72 2d 3e ewListObj(iPtr->
2960: 76 61 72 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a varFramePtr->obj
2970: 63 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 c,.+
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
29a0: 20 20 20 20 69 50 74 72 2d 3e 76 61 72 46 72 61 iPtr->varFra
29b0: 6d 65 50 74 72 2d 3e 6f 62 6a 76 29 29 3b 0a 2b mePtr->objv));.+
29c0: 20 20 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a }. }. .. /*.
29d0: 40 40 20 2d 34 39 33 39 2c 35 20 2b 34 39 36 35 @@ -4939,5 +4965
29e0: 2c 37 20 40 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d ,7 @@ Tcl_LogCom
29f0: 6d 61 6e 64 49 6e 66 6f 28 0a 20 20 2a 20 6d 6f mandInfo(. * mo
2a00: 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 de: c. * c-basi
2a10: 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 c-offset: 4. *
2a20: 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a fill-column: 78.
2a30: 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 + * tab-width: 8
2a40: 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 .+ * indent-tabs
2a50: 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 -mode: nil. * E
2a60: 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 nd:. */.Index:
2a70: 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c generic/tclResul
2a80: 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.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 0a 52 43 53 20 66 69 6c 65 =======.RCS file
2ad0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
2ae0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 cl/generic/tclRe
2af0: 73 75 6c 74 2e 63 2c 76 0a 72 65 74 72 69 65 76 sult.c,v.retriev
2b00: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 35 ing revision 1.5
2b10: 37 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 7.diff -u -p -r1
2b20: 2e 35 37 20 74 63 6c 52 65 73 75 6c 74 2e 63 0a .57 tclResult.c.
2b30: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 --- generic/tclR
2b40: 65 73 75 6c 74 2e 63 09 32 34 20 46 65 62 20 32 esult.c.24 Feb 2
2b50: 30 31 30 20 31 30 3a 34 35 3a 30 34 20 2d 30 30 010 10:45:04 -00
2b60: 30 30 09 31 2e 35 37 0a 2b 2b 2b 20 67 65 6e 65 00.1.57.+++ gene
2b70: 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 ric/tclResult.c.
2b80: 31 37 20 4d 61 72 20 32 30 31 30 20 30 30 3a 35 17 Mar 2010 00:5
2b90: 34 3a 34 39 20 2d 30 30 30 30 0a 40 40 20 2d 31 4:49 -0000.@@ -1
2ba0: 39 2c 37 20 2b 31 39 2c 37 20 40 40 0a 20 0a 20 9,7 +19,7 @@. .
2bb0: 65 6e 75 6d 20 72 65 74 75 72 6e 4b 65 79 73 20 enum returnKeys
2bc0: 7b 0a 20 20 20 20 20 4b 45 59 5f 43 4f 44 45 2c {. KEY_CODE,
2bd0: 09 4b 45 59 5f 45 52 52 4f 52 43 4f 44 45 2c 09 .KEY_ERRORCODE,.
2be0: 4b 45 59 5f 45 52 52 4f 52 49 4e 46 4f 2c 09 4b KEY_ERRORINFO,.K
2bf0: 45 59 5f 45 52 52 4f 52 4c 49 4e 45 2c 0a 2d 20 EY_ERRORLINE,.-
2c00: 20 20 20 4b 45 59 5f 4c 45 56 45 4c 2c 09 4b 45 KEY_LEVEL,.KE
2c10: 59 5f 4f 50 54 49 4f 4e 53 2c 09 4b 45 59 5f 4c Y_OPTIONS,.KEY_L
2c20: 41 53 54 0a 2b 20 20 20 20 4b 45 59 5f 4c 45 56 AST.+ KEY_LEV
2c30: 45 4c 2c 09 4b 45 59 5f 4f 50 54 49 4f 4e 53 2c EL,.KEY_OPTIONS,
2c40: 09 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 2c .KEY_ERRORSTACK,
2c50: 09 4b 45 59 5f 4c 41 53 54 0a 20 7d 3b 0a 20 0a .KEY_LAST. };. .
2c60: 20 2f 2a 0a 40 40 20 2d 39 32 34 2c 36 20 2b 39 /*.@@ -924,6 +9
2c70: 32 34 2c 37 20 40 40 20 54 63 6c 5f 52 65 73 65 24,7 @@ Tcl_Rese
2c80: 74 52 65 73 75 6c 74 28 0a 20 09 54 63 6c 5f 44 tResult(. .Tcl_D
2c90: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 ecrRefCount(iPtr
2ca0: 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 09 ->errorInfo);. .
2cb0: 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 iPtr->errorInfo
2cc0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a 2b = NULL;. }.+
2cd0: 20 20 20 20 69 50 74 72 2d 3e 72 65 73 65 74 45 iPtr->resetE
2ce0: 72 72 6f 72 53 74 61 63 6b 20 3d 20 31 3b 0a 20 rrorStack = 1;.
2cf0: 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e iPtr->return
2d00: 4c 65 76 65 6c 20 3d 20 31 3b 0a 20 20 20 20 20 Level = 1;.
2d10: 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 iPtr->returnCode
2d20: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 = TCL_OK;.
2d30: 69 66 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e if (iPtr->return
2d40: 4f 70 74 73 29 20 7b 0a 40 40 20 2d 31 31 36 31 Opts) {.@@ -1161
2d50: 2c 36 20 2b 31 31 36 32 2c 37 20 40 40 20 47 65 ,6 +1162,7 @@ Ge
2d60: 74 4b 65 79 73 28 76 6f 69 64 29 0a 20 09 54 63 tKeys(void). .Tc
2d70: 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e lNewLiteralStrin
2d80: 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 gObj(keys[KEY_ER
2d90: 52 4f 52 43 4f 44 45 5d 2c 20 22 2d 65 72 72 6f RORCODE], "-erro
2da0: 72 63 6f 64 65 22 29 3b 0a 20 09 54 63 6c 4e 65 rcode");. .TclNe
2db0: 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 wLiteralStringOb
2dc0: 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 j(keys[KEY_ERROR
2dd0: 49 4e 46 4f 5d 2c 20 22 2d 65 72 72 6f 72 69 6e INFO], "-errorin
2de0: 66 6f 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 fo");. .TclNewLi
2df0: 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b teralStringObj(k
2e00: 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 4c 49 4e eys[KEY_ERRORLIN
2e10: 45 5d 2c 20 22 2d 65 72 72 6f 72 6c 69 6e 65 22 E], "-errorline"
2e20: 29 3b 0a 2b 09 54 63 6c 4e 65 77 4c 69 74 65 72 );.+.TclNewLiter
2e30: 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 alStringObj(keys
2e40: 5b 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d [KEY_ERRORSTACK]
2e50: 2c 22 2d 65 72 72 6f 72 73 74 61 63 6b 22 29 3b ,"-errorstack");
2e60: 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c . .TclNewLiteral
2e70: 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b StringObj(keys[K
2e80: 45 59 5f 4c 45 56 45 4c 5d 2c 09 20 20 20 20 22 EY_LEVEL],. "
2e90: 2d 6c 65 76 65 6c 22 29 3b 0a 20 09 54 63 6c 4e -level");. .TclN
2ea0: 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f ewLiteralStringO
2eb0: 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 4f 50 54 49 bj(keys[KEY_OPTI
2ec0: 4f 4e 53 5d 2c 20 20 20 22 2d 6f 70 74 69 6f 6e ONS], "-option
2ed0: 73 22 29 3b 0a 20 0a 40 40 20 2d 31 35 30 31 2c s");. .@@ -1501,
2ee0: 36 20 2b 31 35 30 33 2c 37 20 40 40 20 54 63 6c 6 +1503,7 @@ Tcl
2ef0: 5f 47 65 74 52 65 74 75 72 6e 4f 70 74 69 6f 6e _GetReturnOption
2f00: 73 28 0a 20 0a 20 20 20 20 20 69 66 20 28 72 65 s(. . if (re
2f10: 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 45 52 52 4f sult == TCL_ERRO
2f20: 52 29 20 7b 0a 20 09 54 63 6c 5f 41 64 64 4f 62 R) {. .Tcl_AddOb
2f30: 6a 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 jErrorInfo(inter
2f40: 70 2c 20 22 22 2c 20 2d 31 29 3b 0a 2b 20 20 20 p, "", -1);.+
2f50: 20 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a Tcl_DictObj
2f60: 50 75 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e Put(NULL, option
2f70: 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f s, keys[KEY_ERRO
2f80: 52 53 54 41 43 4b 5d 2c 20 69 50 74 72 2d 3e 65 RSTACK], iPtr->e
2f90: 72 72 6f 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 rrorStack);.
2fa0: 20 7d 0a 20 20 20 20 20 69 66 20 28 69 50 74 72 }. if (iPtr
2fb0: 2d 3e 65 72 72 6f 72 43 6f 64 65 29 20 7b 0a 20 ->errorCode) {.
2fc0: 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 .Tcl_DictObjPut(
2fd0: 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 6b NULL, options, k
2fe0: 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 43 4f 44 eys[KEY_ERRORCOD
2ff0: 45 5d 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 43 E], iPtr->errorC
3000: 6f 64 65 29 3b 0a 40 40 20 2d 31 36 33 32 2c 35 ode);.@@ -1632,5
3010: 20 2b 31 36 33 35 2c 37 20 40 40 20 54 63 6c 5f +1635,7 @@ Tcl_
3020: 54 72 61 6e 73 66 65 72 52 65 73 75 6c 74 28 0a TransferResult(.
3030: 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 * mode: c. *
3040: 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 c-basic-offset:
3050: 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 4. * fill-colum
3060: 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 n: 78.+ * tab-wi
3070: 64 74 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e dth: 8.+ * inden
3080: 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c t-tabs-mode: nil
3090: 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 . * End:. */.I
30a0: 6e 64 65 78 3a 20 74 65 73 74 73 2f 63 6d 64 4d ndex: tests/cmdM
30b0: 5a 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d Z.test.=========
30c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
3100: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
3110: 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 63 6d 64 4d l/tcl/tests/cmdM
3120: 5a 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 Z.test,v.retriev
3130: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 ing revision 1.2
3140: 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 8.diff -u -p -r1
3150: 2e 32 38 20 63 6d 64 4d 5a 2e 74 65 73 74 0a 2d .28 cmdMZ.test.-
3160: 2d 2d 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 -- tests/cmdMZ.t
3170: 65 73 74 09 31 36 20 4e 6f 76 20 32 30 30 39 20 est.16 Nov 2009
3180: 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 30 09 31 18:00:11 -0000.1
3190: 2e 32 38 0a 2b 2b 2b 20 74 65 73 74 73 2f 63 6d .28.+++ tests/cm
31a0: 64 4d 5a 2e 74 65 73 74 09 31 37 20 4d 61 72 20 dMZ.test.17 Mar
31b0: 32 30 31 30 20 30 30 3a 35 34 3a 35 31 20 2d 30 2010 00:54:51 -0
31c0: 30 30 30 0a 40 40 20 2d 31 34 39 2c 31 31 20 2b 000.@@ -149,11 +
31d0: 31 34 39 2c 31 31 20 40 40 20 74 65 73 74 20 63 149,11 @@ test c
31e0: 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 38 20 mdMZ-return-2.8
31f0: 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 {return option h
3200: 61 6e 0a 20 74 65 73 74 20 63 6d 64 4d 5a 2d 72 an. test cmdMZ-r
3210: 65 74 75 72 6e 2d 32 2e 39 20 7b 72 65 74 75 72 eturn-2.9 {retur
3220: 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e n option handlin
3230: 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 g} -body {.
3240: 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 return -level 0
3250: 2d 63 6f 64 65 20 31 30 0a 20 7d 20 2d 72 65 74 -code 10. } -ret
3260: 75 72 6e 43 6f 64 65 73 20 31 30 20 2d 72 65 73 urnCodes 10 -res
3270: 75 6c 74 20 7b 7d 0a 2d 74 65 73 74 20 63 6d 64 ult {}.-test cmd
3280: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b MZ-return-2.10 {
3290: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
32a0: 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 74 65 73 74 20 ndling} {.+test
32b0: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 cmdMZ-return-2.1
32c0: 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 0 {return option
32d0: 20 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 handling} -body
32e0: 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 {. list [ca
32f0: 74 63 68 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 tch {return -lev
3300: 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 el 0 -code error
3310: 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 } -> foo] [dictS
3320: 6f 72 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 31 20 ort $foo].-} {1
3330: 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 {-code 1 -errorc
3340: 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 ode NONE -errori
3350: 6e 66 6f 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 nfo {.+} -match
3360: 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 31 20 glob -result {1
3370: 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 {-code 1 -errorc
3380: 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 ode NONE -errori
3390: 6e 66 6f 20 7b 0a 20 20 20 20 20 77 68 69 6c 65 nfo {. while
33a0: 20 65 78 65 63 75 74 69 6e 67 0a 2d 22 72 65 74 executing.-"ret
33b0: 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f urn -level 0 -co
33c0: 64 65 20 65 72 72 6f 72 22 7d 20 2d 65 72 72 6f de error"} -erro
33d0: 72 6c 69 6e 65 20 31 20 2d 6c 65 76 65 6c 20 30 rline 1 -level 0
33e0: 7d 7d 0a 2b 22 72 65 74 75 72 6e 20 2d 6c 65 76 }}.+"return -lev
33f0: 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 el 0 -code error
3400: 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 31 20 "} -errorline 1
3410: 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c -errorstack * -l
3420: 65 76 65 6c 20 30 7d 7d 0a 20 74 65 73 74 20 63 evel 0}}. test c
3430: 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 31 mdMZ-return-2.11
3440: 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 {return option
3450: 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 20 20 20 20 handling} {.
3460: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 72 65 list [catch {re
3470: 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 turn -level 0 -c
3480: 6f 64 65 20 62 72 65 61 6b 7d 20 2d 3e 20 66 6f ode break} -> fo
3490: 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 24 66 6f o] [dictSort $fo
34a0: 6f 5d 0a 20 7d 20 7b 33 20 7b 2d 63 6f 64 65 20 o]. } {3 {-code
34b0: 33 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a 49 6e 64 3 -level 0}}.Ind
34c0: 65 78 3a 20 74 65 73 74 73 2f 65 72 72 6f 72 2e ex: tests/error.
34d0: 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d test.===========
34e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
34f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3510: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
3520: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
3530: 74 63 6c 2f 74 65 73 74 73 2f 65 72 72 6f 72 2e tcl/tests/error.
3540: 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e test,v.retrievin
3550: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 35 0a g revision 1.25.
3560: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 diff -u -p -r1.2
3570: 35 20 65 72 72 6f 72 2e 74 65 73 74 0a 2d 2d 2d 5 error.test.---
3580: 20 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 tests/error.tes
3590: 74 09 37 20 44 65 63 20 32 30 30 39 20 31 35 3a t.7 Dec 2009 15:
35a0: 30 38 3a 34 37 20 2d 30 30 30 30 09 31 2e 32 35 08:47 -0000.1.25
35b0: 0a 2b 2b 2b 20 74 65 73 74 73 2f 65 72 72 6f 72 .+++ tests/error
35c0: 2e 74 65 73 74 09 31 37 20 4d 61 72 20 32 30 31 .test.17 Mar 201
35d0: 30 20 30 30 3a 35 34 3a 35 32 20 2d 30 30 30 30 0 00:54:52 -0000
35e0: 0a 40 40 20 2d 31 36 39 2c 36 20 2b 31 36 39 2c .@@ -169,6 +169,
35f0: 31 39 20 40 40 20 74 65 73 74 20 65 72 72 6f 72 19 @@ test error
3600: 2d 34 2e 35 20 7b 65 72 72 6f 72 49 6e 66 6f 20 -4.5 {errorInfo
3610: 61 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 0a 20 and errorCode .
3620: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
3630: 7b 65 72 72 6f 72 20 6d 73 67 31 20 6d 73 67 32 {error msg1 msg2
3640: 20 7b 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 20 24 {}} msg] $msg $
3650: 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 24 3a 3a 65 ::errorInfo $::e
3660: 72 72 6f 72 43 6f 64 65 0a 20 7d 20 7b 31 20 6d rrorCode. } {1 m
3670: 73 67 31 20 6d 73 67 32 20 7b 7d 7d 0a 20 0a 2b sg1 msg2 {}}. .+
3680: 74 65 73 74 20 65 72 72 6f 72 2d 34 2e 36 20 7b test error-4.6 {
3690: 65 72 72 6f 72 73 74 61 63 6b 20 76 69 61 20 69 errorstack via i
36a0: 6e 66 6f 20 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 nfo } -body {.+
36b0: 20 20 20 70 72 6f 63 20 66 20 78 20 7b 67 20 24 proc f x {g $
36c0: 78 24 78 7d 0a 2b 20 20 20 20 70 72 6f 63 20 67 x$x}.+ proc g
36d0: 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a x {error G:$x}.
36e0: 2b 20 20 20 20 63 61 74 63 68 20 7b 66 20 31 32 + catch {f 12
36f0: 7d 0a 2b 20 20 20 20 69 6e 66 6f 20 65 72 72 6f }.+ info erro
3700: 72 73 74 61 63 6b 0a 2b 7d 20 2d 6d 61 74 63 68 rstack.+} -match
3710: 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b glob -result {{
3720: 67 20 31 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b g 1212} {f 12} {
3730: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a namespace eval *
3740: 7d 7d 0a 2b 74 65 73 74 20 65 72 72 6f 72 2d 34 }}.+test error-4
3750: 2e 37 20 7b 65 72 72 6f 72 73 74 61 63 6b 20 76 .7 {errorstack v
3760: 69 61 20 6f 70 74 69 6f 6e 73 20 64 69 63 74 20 ia options dict
3770: 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 70 } -body {.+ p
3780: 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 78 7d roc f x {g $x$x}
3790: 0a 2b 20 20 20 20 70 72 6f 63 20 67 20 78 20 7b .+ proc g x {
37a0: 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 20 20 error G:$x}.+
37b0: 20 63 61 74 63 68 20 7b 66 20 31 32 7d 20 6d 20 catch {f 12} m
37c0: 64 0a 2b 20 20 20 20 64 69 63 74 20 67 65 74 20 d.+ dict get
37d0: 24 64 20 2d 65 72 72 6f 72 73 74 61 63 6b 0a 2b $d -errorstack.+
37e0: 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 } -match glob -r
37f0: 65 73 75 6c 74 20 7b 7b 67 20 31 32 31 32 7d 20 esult {{g 1212}
3800: 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 {f 12} {namespac
3810: 65 20 65 76 61 6c 20 2a 7d 7d 0a 2b 0a 20 23 20 e eval *}}.+. #
3820: 45 72 72 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 Errors in error
3830: 63 6f 6d 6d 61 6e 64 20 69 74 73 65 6c 66 0a 20 command itself.
3840: 0a 20 74 65 73 74 20 65 72 72 6f 72 2d 35 2e 31 . test error-5.1
3850: 20 7b 65 72 72 6f 72 73 20 69 6e 20 65 72 72 6f {errors in erro
3860: 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 40 40 20 r command} {.@@
3870: 2d 32 32 33 2c 36 20 2b 32 33 36 2c 31 35 20 40 -223,6 +236,15 @
3880: 40 20 74 65 73 74 20 65 72 72 6f 72 2d 36 2e 39 @ test error-6.9
3890: 20 7b 63 61 74 63 68 20 6d 75 73 74 20 72 65 73 {catch must res
38a0: 65 74 20 65 72 72 6f 72 20 73 0a 20 20 20 20 20 et error s.
38b0: 63 61 74 63 68 20 66 6f 6f 0a 20 20 20 20 20 6c catch foo. l
38c0: 69 73 74 20 24 3a 3a 65 72 72 6f 72 43 6f 64 65 ist $::errorCode
38d0: 0a 20 7d 20 7b 4e 4f 4e 45 7d 0a 2b 74 65 73 74 . } {NONE}.+test
38e0: 20 65 72 72 6f 72 2d 36 2e 31 30 20 7b 63 61 74 error-6.10 {cat
38f0: 63 68 20 6d 75 73 74 20 72 65 73 65 74 20 65 72 ch must reset er
3900: 72 6f 72 73 74 61 63 6b 7d 20 2d 62 6f 64 79 20 rorstack} -body
3910: 7b 0a 2b 09 70 72 6f 63 20 66 20 78 20 7b 67 20 {.+.proc f x {g
3920: 24 78 24 78 7d 0a 2b 09 70 72 6f 63 20 67 20 78 $x$x}.+.proc g x
3930: 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 09 {error G:$x}.+.
3940: 63 61 74 63 68 20 7b 66 20 31 32 7d 0a 2b 09 73 catch {f 12}.+.s
3950: 65 74 20 65 31 20 5b 69 6e 66 6f 20 65 72 72 6f et e1 [info erro
3960: 72 73 74 61 63 6b 5d 0a 2b 09 63 61 74 63 68 20 rstack].+.catch
3970: 7b 66 20 31 33 7d 0a 2b 09 73 65 74 20 65 32 20 {f 13}.+.set e2
3980: 5b 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b [info errorstack
3990: 5d 0a 2b 09 6c 69 73 74 20 24 65 31 20 24 65 32 ].+.list $e1 $e2
39a0: 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 .+} -match glob
39b0: 2d 72 65 73 75 6c 74 20 7b 7b 7b 67 20 31 32 31 -result {{{g 121
39c0: 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 2} {f 12} {names
39d0: 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 20 7b 7b pace eval *}} {{
39e0: 67 20 31 33 31 33 7d 20 7b 66 20 31 33 7d 20 7b g 1313} {f 13} {
39f0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a namespace eval *
3a00: 7d 7d 7d 0a 20 0a 20 74 65 73 74 20 65 72 72 6f }}}. . test erro
3a10: 72 2d 37 2e 31 20 7b 42 75 67 20 31 33 39 37 38 r-7.1 {Bug 13978
3a20: 34 33 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 43} -body {.
3a30: 20 76 61 72 69 61 62 6c 65 20 63 6d 64 73 0a 49 variable cmds.I
3a40: 6e 64 65 78 3a 20 74 65 73 74 73 2f 65 78 65 63 ndex: tests/exec
3a50: 75 74 65 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d ute.test.=======
3a60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
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 0a 52 43 53 ============.RCS
3aa0: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
3ab0: 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 65 78 tcl/tcl/tests/ex
3ac0: 65 63 75 74 65 2e 74 65 73 74 2c 76 0a 72 65 74 ecute.test,v.ret
3ad0: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
3ae0: 20 31 2e 33 34 0a 64 69 66 66 20 2d 75 20 2d 70 1.34.diff -u -p
3af0: 20 2d 72 31 2e 33 34 20 65 78 65 63 75 74 65 2e -r1.34 execute.
3b00: 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 test.--- tests/e
3b10: 78 65 63 75 74 65 2e 74 65 73 74 09 31 36 20 4e xecute.test.16 N
3b20: 6f 76 20 32 30 30 39 20 31 38 3a 30 30 3a 31 31 ov 2009 18:00:11
3b30: 20 2d 30 30 30 30 09 31 2e 33 34 0a 2b 2b 2b 20 -0000.1.34.+++
3b40: 74 65 73 74 73 2f 65 78 65 63 75 74 65 2e 74 65 tests/execute.te
3b50: 73 74 09 31 37 20 4d 61 72 20 32 30 31 30 20 30 st.17 Mar 2010 0
3b60: 30 3a 35 34 3a 35 33 20 2d 30 30 30 30 0a 40 40 0:54:53 -0000.@@
3b70: 20 2d 39 35 36 2c 31 31 20 2b 39 35 36 2c 31 31 -956,11 +956,11
3b80: 20 40 40 20 74 65 73 74 20 65 78 65 63 75 74 65 @@ test execute
3b90: 2d 38 2e 35 20 7b 42 75 67 20 32 30 33 38 30 36 -8.5 {Bug 203806
3ba0: 39 7d 20 2d 73 65 74 75 70 20 7b 0a 20 20 20 20 9} -setup {.
3bb0: 20 64 65 6d 6f 0a 20 7d 20 2d 63 6c 65 61 6e 75 demo. } -cleanu
3bc0: 70 20 7b 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 p {. rename
3bd0: 64 65 6d 6f 20 7b 7d 0a 2d 7d 20 2d 72 65 73 75 demo {}.-} -resu
3be0: 6c 74 20 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 lt {-code 1 -lev
3bf0: 65 6c 20 30 20 2d 65 72 72 6f 72 63 6f 64 65 20 el 0 -errorcode
3c00: 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 NONE -errorinfo
3c10: 7b 46 4f 4f 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 {FOO.+} -match g
3c20: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 2d 63 6f lob -result {-co
3c30: 64 65 20 31 20 2d 6c 65 76 65 6c 20 30 20 2d 65 de 1 -level 0 -e
3c40: 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 65 72 72 rrorstack * -err
3c50: 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 orcode NONE -err
3c60: 6f 72 69 6e 66 6f 20 7b 46 4f 4f 0a 20 20 20 20 orinfo {FOO.
3c70: 20 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 while executing
3c80: 0a 20 22 65 72 72 6f 72 20 46 4f 4f 22 0a 20 20 . "error FOO".
3c90: 20 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 invoked from
3ca0: 77 69 74 68 69 6e 0a 2d 22 63 61 74 63 68 20 5b within.-"catch [
3cb0: 6c 69 73 74 20 65 72 72 6f 72 20 46 4f 4f 5d 20 list error FOO]
3cc0: 6d 20 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 m o"} -errorline
3cd0: 20 32 7d 0a 2b 22 63 61 74 63 68 20 5c 5b 6c 69 2}.+"catch \[li
3ce0: 73 74 20 65 72 72 6f 72 20 46 4f 4f 5c 5d 20 6d st error FOO\] m
3cf0: 20 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 o"} -errorline
3d00: 32 7d 0a 20 0a 20 74 65 73 74 20 65 78 65 63 75 2}. . test execu
3d10: 74 65 2d 39 2e 31 20 7b 49 6e 74 65 72 70 20 72 te-9.1 {Interp r
3d20: 65 73 75 6c 74 20 72 65 73 65 74 74 69 6e 67 20 esult resetting
3d30: 5b 42 75 67 20 31 35 32 32 38 30 33 5d 7d 20 7b [Bug 1522803]} {
3d40: 0a 20 20 20 20 20 73 65 74 20 63 20 30 0a 49 6e . set c 0.In
3d50: 64 65 78 3a 20 74 65 73 74 73 2f 69 6e 66 6f 2e dex: tests/info.
3d60: 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d test.===========
3d70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3da0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
3db0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
3dc0: 74 63 6c 2f 74 65 73 74 73 2f 69 6e 66 6f 2e 74 tcl/tests/info.t
3dd0: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
3de0: 20 72 65 76 69 73 69 6f 6e 20 31 2e 37 35 0a 64 revision 1.75.d
3df0: 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 37 35 iff -u -p -r1.75
3e00: 20 69 6e 66 6f 2e 74 65 73 74 0a 2d 2d 2d 20 74 info.test.--- t
3e10: 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 09 31 ests/info.test.1
3e20: 30 20 46 65 62 20 32 30 31 30 20 32 33 3a 32 34 0 Feb 2010 23:24
3e30: 3a 32 35 20 2d 30 30 30 30 09 31 2e 37 35 0a 2b :25 -0000.1.75.+
3e40: 2b 2b 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 ++ tests/info.te
3e50: 73 74 09 31 37 20 4d 61 72 20 32 30 31 30 20 30 st.17 Mar 2010 0
3e60: 30 3a 35 34 3a 35 35 20 2d 30 30 30 30 0a 40 40 0:54:55 -0000.@@
3e70: 20 2d 36 37 36 2c 31 36 20 2b 36 37 36 2c 31 36 -676,16 +676,16
3e80: 20 40 40 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 @@ test info-21
3e90: 2e 31 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 .1 {miscellaneou
3ea0: 73 20 65 72 72 6f 72 20 63 6f 6e 64 0a 20 7d 20 s error cond. }
3eb0: 2d 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 -result {wrong #
3ec0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
3ed0: 20 22 69 6e 66 6f 20 73 75 62 63 6f 6d 6d 61 6e "info subcomman
3ee0: 64 20 3f 61 72 67 20 2e 2e 2e 3f 22 7d 0a 20 74 d ?arg ...?"}. t
3ef0: 65 73 74 20 69 6e 66 6f 2d 32 31 2e 32 20 7b 6d est info-21.2 {m
3f00: 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 iscellaneous err
3f10: 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d or conditions} -
3f20: 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 6f returnCodes erro
3f30: 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 r -body {. i
3f40: 6e 66 6f 20 67 6f 72 70 0a 2d 7d 20 2d 72 65 73 nfo gorp.-} -res
3f50: 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 ult {unknown or
3f60: 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d ambiguous subcom
3f70: 6d 61 6e 64 20 22 67 6f 72 70 22 3a 20 6d 75 73 mand "gorp": mus
3f80: 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c t be args, body,
3f90: 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 class, cmdcount
3fa0: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 , commands, comp
3fb0: 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c lete, coroutine,
3fc0: 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 74 73 default, exists
3fd0: 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f , frame, functio
3fe0: 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 ns, globals, hos
3ff0: 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 tname, level, li
4000: 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c brary, loaded, l
4010: 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 ocals, nameofexe
4020: 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c cutable, object,
4030: 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f patchlevel, pro
4040: 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 cs, script, shar
4050: 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 edlibextension,
4060: 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 tclversion, or v
4070: 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 ars}.+} -result
4080: 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 {unknown or ambi
4090: 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 guous subcommand
40a0: 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 62 65 "gorp": must be
40b0: 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 args, body, cla
40c0: 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f ss, cmdcount, co
40d0: 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 mmands, complete
40e0: 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 , coroutine, def
40f0: 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b ault, errorstack
4100: 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c , exists, frame,
4110: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 functions, glob
4120: 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c als, hostname, l
4130: 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c evel, library, l
4140: 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e oaded, locals, n
4150: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c ameofexecutable,
4160: 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 object, patchle
4170: 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 vel, procs, scri
4180: 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 pt, sharedlibext
4190: 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 ension, tclversi
41a0: 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 74 65 on, or vars}. te
41b0: 73 74 20 69 6e 66 6f 2d 32 31 2e 33 20 7b 6d 69 st info-21.3 {mi
41c0: 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f scellaneous erro
41d0: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 r conditions} -r
41e0: 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 eturnCodes error
41f0: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e -body {. in
4200: 66 6f 20 63 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 fo c.-} -result
4210: 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 {unknown or ambi
4220: 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 guous subcommand
4230: 20 22 63 22 3a 20 6d 75 73 74 20 62 65 20 61 72 "c": must be ar
4240: 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c gs, body, class,
4250: 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 cmdcount, comma
4260: 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 nds, complete, c
4270: 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c oroutine, defaul
4280: 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 t, exists, frame
4290: 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f , functions, glo
42a0: 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 bals, hostname,
42b0: 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 level, library,
42c0: 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 loaded, locals,
42d0: 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 nameofexecutable
42e0: 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c , object, patchl
42f0: 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 evel, procs, scr
4300: 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 ipt, sharedlibex
4310: 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 tension, tclvers
4320: 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 2b 7d ion, or vars}.+}
4330: 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 -result {unknow
4340: 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 n or ambiguous s
4350: 75 62 63 6f 6d 6d 61 6e 64 20 22 63 22 3a 20 6d ubcommand "c": m
4360: 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 ust be args, bod
4370: 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 y, class, cmdcou
4380: 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f nt, commands, co
4390: 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e mplete, coroutin
43a0: 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 72 72 6f e, default, erro
43b0: 72 73 74 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 rstack, exists,
43c0: 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 frame, functions
43d0: 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e , globals, hostn
43e0: 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 ame, level, libr
43f0: 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 ary, loaded, loc
4400: 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 als, nameofexecu
4410: 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 table, object, p
4420: 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 atchlevel, procs
4430: 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 , script, shared
4440: 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 libextension, tc
4450: 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 lversion, or var
4460: 73 7d 0a 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 s}. test info-21
4470: 2e 34 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 .4 {miscellaneou
4480: 73 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f s error conditio
4490: 6e 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 ns} -returnCodes
44a0: 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 error -body {.
44b0: 20 20 20 20 69 6e 66 6f 20 6c 0a 2d 7d 20 2d 72 info l.-} -r
44c0: 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f esult {unknown o
44d0: 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 r ambiguous subc
44e0: 6f 6d 6d 61 6e 64 20 22 6c 22 3a 20 6d 75 73 74 ommand "l": must
44f0: 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 be args, body,
4500: 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c class, cmdcount,
4510: 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c commands, compl
4520: 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 ete, coroutine,
4530: 64 65 66 61 75 6c 74 2c 20 65 78 69 73 74 73 2c default, exists,
4540: 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e frame, function
4550: 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 s, globals, host
4560: 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 name, level, lib
4570: 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f rary, loaded, lo
4580: 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 cals, nameofexec
4590: 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 utable, object,
45a0: 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 patchlevel, proc
45b0: 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 s, script, share
45c0: 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 dlibextension, t
45d0: 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 clversion, or va
45e0: 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b rs}.+} -result {
45f0: 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 unknown or ambig
4600: 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 uous subcommand
4610: 22 6c 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 "l": must be arg
4620: 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 s, body, class,
4630: 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e cmdcount, comman
4640: 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f ds, complete, co
4650: 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 routine, default
4660: 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 , errorstack, ex
4670: 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e ists, frame, fun
4680: 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c ctions, globals,
4690: 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c hostname, level
46a0: 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 , library, loade
46b0: 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f d, locals, nameo
46c0: 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a fexecutable, obj
46d0: 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c ect, patchlevel,
46e0: 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 procs, script,
46f0: 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 sharedlibextensi
4700: 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 on, tclversion,
4710: 6f 72 20 76 61 72 73 7d 0a 20 74 65 73 74 20 69 or vars}. test i
4720: 6e 66 6f 2d 32 31 2e 35 20 7b 6d 69 73 63 65 6c nfo-21.5 {miscel
4730: 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f laneous error co
4740: 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 nditions} -retur
4750: 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f nCodes error -bo
4760: 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 73 dy {. info s
4770: 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b .-} -result {unk
4780: 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 nown or ambiguou
4790: 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 73 22 s subcommand "s"
47a0: 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 : must be args,
47b0: 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 body, class, cmd
47c0: 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c count, commands,
47d0: 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 complete, corou
47e0: 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 tine, default, e
47f0: 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 xists, frame, fu
4800: 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 nctions, globals
4810: 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 , hostname, leve
4820: 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 l, library, load
4830: 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 ed, locals, name
4840: 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 ofexecutable, ob
4850: 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c ject, patchlevel
4860: 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c , procs, script,
4870: 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 sharedlibextens
4880: 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c ion, tclversion,
4890: 20 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 or vars}.+} -re
48a0: 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 sult {unknown or
48b0: 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f ambiguous subco
48c0: 6d 6d 61 6e 64 20 22 73 22 3a 20 6d 75 73 74 20 mmand "s": must
48d0: 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 be args, body, c
48e0: 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 lass, cmdcount,
48f0: 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 commands, comple
4900: 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 te, coroutine, d
4910: 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 efault, errorsta
4920: 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d ck, exists, fram
4930: 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c e, functions, gl
4940: 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c obals, hostname,
4950: 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c level, library,
4960: 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c loaded, locals,
4970: 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c nameofexecutabl
4980: 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 e, object, patch
4990: 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 level, procs, sc
49a0: 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 ript, sharedlibe
49b0: 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 xtension, tclver
49c0: 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 sion, or vars}.
49d0: 0a 20 23 23 0a 20 23 20 23 23 23 20 23 23 23 20 . ##. # ### ###
49e0: 23 23 23 20 23 23 23 23 23 23 23 23 23 20 23 23 ### ######### ##
49f0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
4a00: 23 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 69 #.Index: tests/i
4a10: 6e 69 74 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d nit.test.=======
4a20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4a30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4a40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
4a60: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
4a70: 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 69 6e tcl/tcl/tests/in
4a80: 69 74 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 it.test,v.retrie
4a90: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
4aa0: 32 31 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 21.diff -u -p -r
4ab0: 31 2e 32 31 20 69 6e 69 74 2e 74 65 73 74 0a 2d 1.21 init.test.-
4ac0: 2d 2d 20 74 65 73 74 73 2f 69 6e 69 74 2e 74 65 -- tests/init.te
4ad0: 73 74 09 31 36 20 4e 6f 76 20 32 30 30 39 20 31 st.16 Nov 2009 1
4ae0: 38 3a 30 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 8:00:11 -0000.1.
4af0: 32 31 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 6e 69 21.+++ tests/ini
4b00: 74 2e 74 65 73 74 09 31 37 20 4d 61 72 20 32 30 t.test.17 Mar 20
4b10: 31 30 20 30 30 3a 35 34 3a 35 35 20 2d 30 30 30 10 00:54:55 -000
4b20: 30 0a 40 40 20 2d 31 38 31 2c 37 20 2b 31 38 31 0.@@ -181,7 +181
4b30: 2c 37 20 40 40 20 74 65 73 74 20 69 6e 69 74 2d ,7 @@ test init-
4b40: 35 2e 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 5.0 {return opti
4b50: 6f 6e 73 20 70 61 73 73 65 64 20 74 68 72 0a 20 ons passed thr.
4b60: 20 20 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 list $code $
4b70: 66 6f 6f 20 24 62 61 72 20 24 63 6f 64 65 32 20 foo $bar $code2
4b80: 24 66 6f 6f 32 20 24 62 61 72 32 0a 20 7d 20 2d $foo2 $bar2. } -
4b90: 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 20 75 cleanup {. u
4ba0: 6e 73 65 74 20 3a 3a 61 75 74 6f 5f 69 6e 64 65 nset ::auto_inde
4bb0: 78 28 3a 3a 78 78 78 29 0a 2d 7d 20 2d 72 65 73 x(::xxx).-} -res
4bc0: 75 6c 74 20 7b 32 20 78 78 78 20 7b 2d 65 72 72 ult {2 xxx {-err
4bd0: 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 63 6f 64 orcode NONE -cod
4be0: 65 20 31 20 2d 6c 65 76 65 6c 20 31 7d 20 32 20 e 1 -level 1} 2
4bf0: 78 78 78 20 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 xxx {-code 1 -le
4c00: 76 65 6c 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 vel 1 -errorcode
4c10: 20 4e 4f 4e 45 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 NONE}}.+} -matc
4c20: 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b h glob -result {
4c30: 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 63 6f 64 2 xxx {-errorcod
4c40: 65 20 4e 4f 4e 45 20 2d 63 6f 64 65 20 31 20 2d e NONE -code 1 -
4c50: 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 20 7b level 1} 2 xxx {
4c60: 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 -code 1 -level 1
4c70: 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 -errorcode NONE
4c80: 7d 7d 0a 20 0c 0a 20 63 6c 65 61 6e 75 70 54 65 }}. .. cleanupTe
4c90: 73 74 73 0a 20 7d 09 3b 23 20 20 45 6e 64 20 6f sts. }.;# End o
4ca0: 66 20 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 24 f [interp eval $
4cb0: 74 65 73 74 49 6e 74 65 72 70 5d 0a testInterp].
