Attachment "errorstack12.patch" to
ticket [2868499fff]
added by
ferrieux
2010-03-24 04:24:04.
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 32 33 20 4d 61 72 20 32 30 31 30 20 32 .n.23 Mar 2010 2
0100: 31 3a 31 39 3a 33 33 20 2d 30 30 30 30 0a 40 40 1:19:33 -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 32 +++ doc/info.n.2
0dd0: 33 20 4d 61 72 20 32 30 31 30 20 32 31 3a 31 39 3 Mar 2010 21:19
0de0: 3a 33 34 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 :34 -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 64 6f 63 2f 72 65 74 75 72 6e 2e 6e 0a 3d 3d doc/return.n.==
10e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
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 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1130: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 64 6f 63 root/tcl/tcl/doc
1140: 2f 72 65 74 75 72 6e 2e 6e 2c 76 0a 72 65 74 72 /return.n,v.retr
1150: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
1160: 31 2e 32 35 0a 64 69 66 66 20 2d 75 20 2d 70 20 1.25.diff -u -p
1170: 2d 72 31 2e 32 35 20 72 65 74 75 72 6e 2e 6e 0a -r1.25 return.n.
1180: 2d 2d 2d 20 64 6f 63 2f 72 65 74 75 72 6e 2e 6e --- doc/return.n
1190: 09 32 30 20 4a 61 6e 20 32 30 31 30 20 31 33 3a .20 Jan 2010 13:
11a0: 34 32 3a 31 37 20 2d 30 30 30 30 09 31 2e 32 35 42:17 -0000.1.25
11b0: 0a 2b 2b 2b 20 64 6f 63 2f 72 65 74 75 72 6e 2e .+++ doc/return.
11c0: 6e 09 32 33 20 4d 61 72 20 32 30 31 30 20 32 31 n.23 Mar 2010 21
11d0: 3a 31 39 3a 33 35 20 2d 30 30 30 30 0a 40 40 20 :19:35 -0000.@@
11e0: 2d 31 33 38 2c 36 20 2b 31 33 38 2c 32 32 20 40 -138,6 +138,22 @
11f0: 40 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 5c @ the value of \
1200: 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 fB\-errorinfo\fR
1210: 20 69 6e 20 61 20 72 65 74 75 0a 20 62 79 20 74 in a retu. by t
1220: 68 65 20 5c 66 42 63 61 74 63 68 5c 66 52 20 63 he \fBcatch\fR c
1230: 6f 6d 6d 61 6e 64 20 28 6f 72 20 66 72 6f 6d 20 ommand (or from
1240: 74 68 65 20 63 6f 70 79 20 6f 66 20 74 68 61 74 the copy of that
1250: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 73 74 information. st
1260: 6f 72 65 64 20 69 6e 20 74 68 65 20 67 6c 6f 62 ored in the glob
1270: 61 6c 20 76 61 72 69 61 62 6c 65 20 5c 66 42 65 al variable \fBe
1280: 72 72 6f 72 49 6e 66 6f 5c 66 52 29 2e 0a 20 2e rrorInfo\fR).. .
1290: 54 50 0a 2b 5c 66 42 5c 2d 65 72 72 6f 72 73 74 TP.+\fB\-errorst
12a0: 61 63 6b 20 5c 66 49 6c 69 73 74 5c 66 52 0a 2b ack \fIlist\fR.+
12b0: 2e 0a 2b 54 68 65 20 5c 66 42 5c 2d 65 72 72 6f ..+The \fB\-erro
12c0: 72 73 74 61 63 6b 5c 66 52 20 6f 70 74 69 6f 6e rstack\fR option
12d0: 20 72 65 63 65 69 76 65 73 20 73 70 65 63 69 61 receives specia
12e0: 6c 20 74 72 65 61 74 6d 65 6e 74 20 6f 6e 6c 79 l treatment only
12f0: 20 77 68 65 6e 20 74 68 65 20 76 61 6c 75 65 0a when the value.
1300: 2b 6f 66 20 74 68 65 20 5c 66 42 5c 2d 63 6f 64 +of the \fB\-cod
1310: 65 5c 66 52 20 6f 70 74 69 6f 6e 20 69 73 20 5c e\fR option is \
1320: 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 2e 20 fBTCL_ERROR\fR.
1330: 20 54 68 65 6e 20 5c 66 49 6c 69 73 74 5c 66 52 Then \fIlist\fR
1340: 20 69 73 20 74 68 65 20 69 6e 69 74 69 61 6c 0a is the initial.
1350: 2b 65 72 72 6f 72 20 73 74 61 63 6b 2c 20 72 65 +error stack, re
1360: 63 6f 72 64 69 6e 67 20 61 63 74 75 61 6c 20 61 cording actual a
1370: 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 73 20 70 rgument values p
1380: 61 73 73 65 64 20 74 6f 20 65 61 63 68 20 70 72 assed to each pr
1390: 6f 63 20 6c 65 76 65 6c 2e 20 20 54 68 65 20 65 oc level. The e
13a0: 72 72 6f 72 20 73 74 61 63 6b 20 77 69 6c 6c 0a rror stack will.
13b0: 2b 61 6c 73 6f 20 62 65 20 72 65 61 63 68 61 62 +also be reachab
13c0: 6c 65 20 74 68 72 6f 75 67 68 20 5b 69 6e 66 6f le through [info
13d0: 20 65 72 72 6f 72 73 74 61 63 6b 5d 2e 0a 2b 49 errorstack]..+I
13e0: 66 20 6e 6f 20 5c 66 42 5c 2d 65 72 72 6f 72 73 f no \fB\-errors
13f0: 74 61 63 6b 5c 66 52 20 6f 70 74 69 6f 6e 20 69 tack\fR option i
1400: 73 20 70 72 6f 76 69 64 65 64 20 74 6f 20 5c 66 s provided to \f
1410: 42 72 65 74 75 72 6e 5c 66 52 20 77 68 65 6e 0a Breturn\fR when.
1420: 2b 74 68 65 20 5c 66 42 5c 2d 63 6f 64 65 20 65 +the \fB\-code e
1430: 72 72 6f 72 5c 66 52 20 6f 70 74 69 6f 6e 20 69 rror\fR option i
1440: 73 20 70 72 6f 76 69 64 65 64 2c 20 54 63 6c 20 s provided, Tcl
1450: 77 69 6c 6c 20 70 72 6f 76 69 64 65 20 69 74 73 will provide its
1460: 20 6f 77 6e 0a 2b 69 6e 69 74 69 61 6c 20 65 72 own.+initial er
1470: 72 6f 72 20 73 74 61 63 6b 20 69 6e 20 74 68 65 ror stack in the
1480: 20 65 6e 74 72 79 20 66 6f 72 20 5c 66 42 5c 2d entry for \fB\-
1490: 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 2e 20 20 errorstack\fR.
14a0: 54 63 6c 27 73 0a 2b 69 6e 69 74 69 61 6c 20 65 Tcl's.+initial e
14b0: 72 72 6f 72 20 73 74 61 63 6b 20 77 69 6c 6c 20 rror stack will
14c0: 69 6e 63 6c 75 64 65 20 6f 6e 6c 79 20 74 68 65 include only the
14d0: 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 70 72 6f call to the pro
14e0: 63 65 64 75 72 65 2c 20 61 6e 64 0a 2b 73 74 61 cedure, and.+sta
14f0: 63 6b 20 75 6e 77 69 6e 64 69 6e 67 20 77 69 6c ck unwinding wil
1500: 6c 20 61 70 70 65 6e 64 20 69 6e 66 6f 72 6d 61 l append informa
1510: 74 69 6f 6e 20 61 62 6f 75 74 20 68 69 67 68 65 tion about highe
1520: 72 20 73 74 61 63 6b 20 6c 65 76 65 6c 73 2c 20 r stack levels,
1530: 62 75 74 0a 2b 74 68 65 72 65 20 77 69 6c 6c 20 but.+there will
1540: 62 65 20 6e 6f 20 69 6e 66 6f 72 6d 61 74 69 6f be no informatio
1550: 6e 20 61 62 6f 75 74 20 74 68 65 20 63 6f 6e 74 n about the cont
1560: 65 78 74 20 6f 66 20 74 68 65 20 65 72 72 6f 72 ext of the error
1570: 20 77 69 74 68 69 6e 0a 2b 74 68 65 20 70 72 6f within.+the pro
1580: 63 65 64 75 72 65 2e 20 20 54 79 70 69 63 61 6c cedure. Typical
1590: 6c 79 20 74 68 65 20 5c 66 49 6c 69 73 74 5c 66 ly the \fIlist\f
15a0: 52 20 76 61 6c 75 65 20 69 73 20 73 75 70 70 6c R value is suppl
15b0: 69 65 64 20 66 72 6f 6d 0a 2b 74 68 65 20 76 61 ied from.+the va
15c0: 6c 75 65 20 6f 66 20 5c 66 42 5c 2d 65 72 72 6f lue of \fB\-erro
15d0: 72 73 74 61 63 6b 5c 66 52 20 69 6e 20 61 20 72 rstack\fR in a r
15e0: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 20 64 69 eturn options di
15f0: 63 74 69 6f 6e 61 72 79 20 63 61 70 74 75 72 65 ctionary capture
1600: 64 0a 2b 62 79 20 74 68 65 20 5c 66 42 63 61 74 d.+by the \fBcat
1610: 63 68 5c 66 52 20 63 6f 6d 6d 61 6e 64 20 28 6f ch\fR command (o
1620: 72 20 66 72 6f 6d 20 74 68 65 20 63 6f 70 79 20 r from the copy
1630: 6f 66 20 74 68 61 74 20 69 6e 66 6f 72 6d 61 74 of that informat
1640: 69 6f 6e 20 66 72 6f 6d 20 5b 69 6e 66 6f 20 65 ion from [info e
1650: 72 72 6f 72 73 74 61 63 6b 5d 29 2e 0a 2b 2e 54 rrorstack])..+.T
1660: 50 0a 20 5c 66 42 5c 2d 6c 65 76 65 6c 20 5c 66 P. \fB\-level \f
1670: 49 6c 65 76 65 6c 5c 66 52 0a 20 2e 0a 20 54 68 Ilevel\fR. .. Th
1680: 65 20 5c 66 42 5c 2d 6c 65 76 65 6c 5c 66 52 20 e \fB\-level\fR
1690: 61 6e 64 20 5c 66 42 5c 2d 63 6f 64 65 5c 66 52 and \fB\-code\fR
16a0: 20 6f 70 74 69 6f 6e 73 20 77 6f 72 6b 20 74 6f options work to
16b0: 67 65 74 68 65 72 20 74 6f 20 73 65 74 20 74 68 gether to set th
16c0: 65 20 72 65 74 75 72 6e 0a 49 6e 64 65 78 3a 20 e return.Index:
16d0: 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 generic/tclBasic
16e0: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .c.=============
16f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1720: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
1730: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
1740: 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 l/generic/tclBas
1750: 69 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e ic.c,v.retrievin
1760: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 34 39 g revision 1.449
1770: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
1780: 34 34 39 20 74 63 6c 42 61 73 69 63 2e 63 0a 2d 449 tclBasic.c.-
1790: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 -- generic/tclBa
17a0: 73 69 63 2e 63 09 31 39 20 4d 61 72 20 32 30 31 sic.c.19 Mar 201
17b0: 30 20 31 31 3a 35 34 3a 30 36 20 2d 30 30 30 30 0 11:54:06 -0000
17c0: 09 31 2e 34 34 39 0a 2b 2b 2b 20 67 65 6e 65 72 .1.449.+++ gener
17d0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 32 33 ic/tclBasic.c.23
17e0: 20 4d 61 72 20 32 30 31 30 20 32 31 3a 31 39 3a Mar 2010 21:19:
17f0: 34 32 20 2d 30 30 30 30 0a 40 40 20 2d 35 32 39 42 -0000.@@ -529
1800: 2c 36 20 2b 35 32 39 2c 39 20 40 40 20 54 63 6c ,6 +529,9 @@ Tcl
1810: 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f _CreateInterp(vo
1820: 69 64 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 id). iPtr->e
1830: 72 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b rrorInfo = NULL;
1840: 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 . TclNewLite
1850: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 ralStringObj(iPt
1860: 72 2d 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 r->eiVar, "::err
1870: 6f 72 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 orInfo");. T
1880: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1890: 69 50 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 iPtr->eiVar);.+
18a0: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 iPtr->errorSt
18b0: 61 63 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 ack = Tcl_NewLis
18c0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b tObj(0, NULL);.+
18d0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
18e0: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
18f0: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 Stack);.+ iPt
1900: 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 r->resetErrorSta
1910: 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 ck = 1;. iPt
1920: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e r->errorCode = N
1930: 55 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 ULL;. TclNew
1940: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
1950: 28 69 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a (iPtr->ecVar, ":
1960: 3a 65 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 :errorCode");.
1970: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
1980: 75 6e 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 unt(iPtr->ecVar)
1990: 3b 0a 40 40 20 2d 31 34 36 37 2c 36 20 2b 31 34 ;.@@ -1467,6 +14
19a0: 37 30 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 70,7 @@ DeleteIn
19b0: 74 65 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f terpProc(. .Tcl_
19c0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 DecrRefCount(iPt
19d0: 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 r->errorInfo);.
19e0: 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f .iPtr->errorInfo
19f0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a = NULL;. }.
1a00: 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 + Tcl_DecrRef
1a10: 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f Count(iPtr->erro
1a20: 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 rStack);. if
1a30: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 (iPtr->returnOp
1a40: 74 73 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 ts) {. .Tcl_Decr
1a50: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 RefCount(iPtr->r
1a60: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 eturnOpts);.
1a70: 20 7d 0a 40 40 20 2d 38 39 34 33 2c 35 20 2b 38 }.@@ -8943,5 +8
1a80: 39 34 37 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 947,7 @@ TclInfo
1a90: 43 6f 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 CoroutineCmd(.
1aa0: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
1ab0: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
1ac0: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
1ad0: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
1ae0: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
1af0: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
1b00: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
1b10: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 ex: generic/tclC
1b20: 6d 64 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d mdIL.c.=========
1b30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1b70: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1b80: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1b90: 6c 43 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 lCmdIL.c,v.retri
1ba0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
1bb0: 2e 31 38 30 0a 64 69 66 66 20 2d 75 20 2d 70 20 .180.diff -u -p
1bc0: 2d 72 31 2e 31 38 30 20 74 63 6c 43 6d 64 49 4c -r1.180 tclCmdIL
1bd0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
1be0: 63 6c 43 6d 64 49 4c 2e 63 09 35 20 4d 61 72 20 clCmdIL.c.5 Mar
1bf0: 32 30 31 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 2010 14:34:03 -0
1c00: 30 30 30 09 31 2e 31 38 30 0a 2b 2b 2b 20 67 65 000.1.180.+++ ge
1c10: 6e 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 neric/tclCmdIL.c
1c20: 09 32 33 20 4d 61 72 20 32 30 31 30 20 32 31 3a .23 Mar 2010 21:
1c30: 31 39 3a 34 36 20 2d 30 30 30 30 0a 40 40 20 2d 19:46 -0000.@@ -
1c40: 31 31 38 2c 36 20 2b 31 31 38 2c 39 20 40 40 20 118,6 +118,9 @@
1c50: 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e 66 6f static int..Info
1c60: 43 6f 6d 70 6c 65 74 65 43 6d 64 28 43 6c 69 65 CompleteCmd(Clie
1c70: 6e 74 44 61 74 61 20 64 0a 20 09 09 09 20 20 20 ntData d. ...
1c80: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1c90: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
1ca0: 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 );. static int..
1cb0: 49 6e 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 43 InfoDefaultCmd(C
1cc0: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
1cd0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1ce0: 65 72 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 erp,. ... int
1cf0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
1d00: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 2b const objv[]);.+
1d10: 2f 2a 20 54 49 50 20 23 33 34 38 20 2d 20 4e 65 /* TIP #348 - Ne
1d20: 77 20 27 69 6e 66 6f 27 20 73 75 62 63 6f 6d 6d w 'info' subcomm
1d30: 61 6e 64 20 27 65 72 72 6f 72 73 74 61 63 6b 27 and 'errorstack'
1d40: 20 2a 2f 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 */.+static int.
1d50: 09 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 .InfoErrorStackC
1d60: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 md(ClientData du
1d70: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
1d80: 2a 69 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 *interp,.+...
1d90: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1da0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
1db0: 29 3b 0a 20 2f 2a 20 54 49 50 20 23 32 38 30 20 );. /* TIP #280
1dc0: 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 62 - New 'info' sub
1dd0: 63 6f 6d 6d 61 6e 64 20 27 66 72 61 6d 65 27 20 command 'frame'
1de0: 2a 2f 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 */. static int..
1df0: 49 6e 66 6f 46 72 61 6d 65 43 6d 64 28 43 6c 69 InfoFrameCmd(Cli
1e00: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 entData dummy, T
1e10: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1e20: 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f p,. ... int o
1e30: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
1e40: 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 40 40 20 nst objv[]);.@@
1e50: 2d 31 36 34 2c 36 20 2b 31 36 37 2c 37 20 40 40 -164,6 +167,7 @@
1e60: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 45 6e static const En
1e70: 73 65 6d 62 6c 65 49 6d 70 6c 4d 61 70 20 64 65 sembleImplMap de
1e80: 66 61 75 6c 74 49 6e 66 6f 0a 20 20 20 20 20 7b faultInfo. {
1e90: 22 63 6f 6d 70 6c 65 74 65 22 2c 09 20 20 20 49 "complete",. I
1ea0: 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 2c 09 nfoCompleteCmd,.
1eb0: 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 NULL, NULL,
1ec0: 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 63 6f NULL},. {"co
1ed0: 72 6f 75 74 69 6e 65 22 2c 09 20 20 20 54 63 6c routine",. Tcl
1ee0: 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 6d 64 InfoCoroutineCmd
1ef0: 2c 20 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c , NULL, NULL
1f00: 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 , NULL},. {"
1f10: 64 65 66 61 75 6c 74 22 2c 09 09 20 20 20 49 6e default",.. In
1f20: 66 6f 44 65 66 61 75 6c 74 43 6d 64 2c 09 20 20 foDefaultCmd,.
1f30: 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 NULL, NULL, NU
1f40: 4c 4c 7d 2c 0a 2b 20 20 20 20 7b 22 65 72 72 6f LL},.+ {"erro
1f50: 72 73 74 61 63 6b 22 2c 09 20 20 20 49 6e 66 6f rstack",. Info
1f60: 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 2c 09 20 ErrorStackCmd,.
1f70: 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e NULL, NULL, N
1f80: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 65 78 69 ULL},. {"exi
1f90: 73 74 73 22 2c 09 09 20 20 20 54 63 6c 49 6e 66 sts",.. TclInf
1fa0: 6f 45 78 69 73 74 73 43 6d 64 2c 09 20 20 20 20 oExistsCmd,.
1fb0: 54 63 6c 43 6f 6d 70 69 6c 65 49 6e 66 6f 45 78 TclCompileInfoEx
1fc0: 69 73 74 73 43 6d 64 2c 20 4e 55 4c 4c 2c 20 4e istsCmd, NULL, N
1fd0: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 66 72 61 ULL},. {"fra
1fe0: 6d 65 22 2c 09 09 20 20 20 49 6e 66 6f 46 72 61 me",.. InfoFra
1ff0: 6d 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c meCmd,. NULL,
2000: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 NULL, NULL},.
2010: 20 20 20 7b 22 66 75 6e 63 74 69 6f 6e 73 22 2c {"functions",
2020: 09 20 20 20 49 6e 66 6f 46 75 6e 63 74 69 6f 6e . InfoFunction
2030: 73 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 sCmd,. NULL,
2040: 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 40 40 20 NULL, NULL},.@@
2050: 2d 31 30 32 32 2c 36 20 2b 31 30 32 36 2c 35 35 -1022,6 +1026,55
2060: 20 40 40 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 @@ InfoDefaultC
2070: 6d 64 28 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d md(. /*. *-----
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 0a 20 20 2a 0a 2b 20 2a 20 49 6e 66 6f 45 72 -. *.+ * InfoEr
20d0: 72 6f 72 53 74 61 63 6b 43 6d 64 20 2d 2d 0a 2b rorStackCmd --.+
20e0: 20 2a 0a 2b 20 2a 09 43 61 6c 6c 65 64 20 74 6f *.+ *.Called to
20f0: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
2100: 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 22 info errorstack"
2110: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 72 65 command that re
2120: 74 75 72 6e 73 20 69 6e 66 6f 72 6d 61 74 69 6f turns informatio
2130: 6e 0a 2b 20 2a 09 61 62 6f 75 74 20 74 68 65 20 n.+ *.about the
2140: 6c 61 73 74 20 65 72 72 6f 72 27 73 20 63 61 6c last error's cal
2150: 6c 20 73 74 61 63 6b 2e 20 48 61 6e 64 6c 65 73 l stack. Handles
2160: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
2170: 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b 20 2a 09 20 yntax:.+ *.+ *.
2180: 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 info errorsta
2190: 63 6b 20 3f 69 6e 74 65 72 70 3f 0a 2b 20 2a 0a ck ?interp?.+ *.
21a0: 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a + * Results:.+ *
21b0: 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f 4b 20 .Returns TCL_OK
21c0: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e if successful an
21d0: 64 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 74 d TCL_ERROR if t
21e0: 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f 72 here is an error
21f0: 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 ..+ *.+ * Side e
2200: 66 66 65 63 74 73 3a 0a 2b 20 2a 09 52 65 74 75 ffects:.+ *.Retu
2210: 72 6e 73 20 61 20 72 65 73 75 6c 74 20 69 6e 20 rns a result in
2220: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 the interpreter'
2230: 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 74 2e s result object.
2240: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 0a If there is an.
2250: 2b 20 2a 09 65 72 72 6f 72 2c 20 74 68 65 20 72 + *.error, the r
2260: 65 73 75 6c 74 20 69 73 20 61 6e 20 65 72 72 6f esult is an erro
2270: 72 20 6d 65 73 73 61 67 65 2e 0a 2b 20 2a 0a 2b r message..+ *.+
2280: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22c0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a --------.+ */.+.
22d0: 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 49 6e 66 +static int.+Inf
22e0: 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 28 0a oErrorStackCmd(.
22f0: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 + ClientData
2300: 64 75 6d 6d 79 2c 09 09 2f 2a 20 4e 6f 74 20 75 dummy,../* Not u
2310: 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c sed. */.+ Tcl
2320: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2330: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ../* Current int
2340: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 erpreter. */.+
2350: 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 2f 2a int objc,.../*
2360: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
2370: 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 ents. */.+ Tc
2380: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
2390: 76 5b 5d 29 09 2f 2a 20 41 72 67 75 6d 65 6e 74 v[])./* Argument
23a0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a objects. */.+{.
23b0: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 + Tcl_Interp
23c0: 2a 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 49 6e *target;.+ In
23d0: 74 65 72 70 20 2a 69 50 74 72 3b 0a 2b 0a 2b 20 terp *iPtr;.+.+
23e0: 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 3d 20 if ((objc !=
23f0: 31 29 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 32 1) && (objc != 2
2400: 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 )) {.+.Tcl_Wrong
2410: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
2420: 31 2c 20 6f 62 6a 76 2c 20 22 3f 69 6e 74 65 72 1, objv, "?inter
2430: 70 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 p?");.+.return T
2440: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
2450: 0a 2b 20 20 20 20 0a 2b 20 20 20 20 74 61 72 67 .+ .+ targ
2460: 65 74 20 3d 20 69 6e 74 65 72 70 3b 0a 2b 20 20 et = interp;.+
2470: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 if (objc == 2)
2480: 20 7b 0a 2b 20 20 20 20 20 20 20 20 74 61 72 67 {.+ targ
2490: 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 6c 61 76 et = Tcl_GetSlav
24a0: 65 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 e(interp, Tcl_Ge
24b0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
24c0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 20 28 );.+ if (
24d0: 74 61 72 67 65 74 20 3d 3d 20 4e 55 4c 4c 29 20 target == NULL)
24e0: 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 72 {.+ r
24f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2500: 0a 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 .+ }.+
2510: 20 7d 0a 2b 0a 2b 20 20 20 20 69 50 74 72 20 3d }.+.+ iPtr =
2520: 20 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67 (Interp *) targ
2530: 65 74 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 65 74 et;.+ Tcl_Set
2540: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
2550: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
2560: 63 6b 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 ck);.+ .+
2570: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b return TCL_OK;.+
2580: 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d }.+..+/*.+ *----
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25d0: 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 6c 49 6e --.+ *. * TclIn
25e0: 66 6f 45 78 69 73 74 73 43 6d 64 20 2d 2d 0a 20 foExistsCmd --.
25f0: 20 2a 0a 20 20 2a 09 43 61 6c 6c 65 64 20 74 6f *. *.Called to
2600: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
2610: 69 6e 66 6f 20 65 78 69 73 74 73 22 20 63 6f 6d info exists" com
2620: 6d 61 6e 64 20 74 68 61 74 20 64 65 74 65 72 6d mand that determ
2630: 69 6e 65 73 20 77 68 65 74 68 65 72 0a 40 40 20 ines whether.@@
2640: 2d 34 34 30 31 2c 35 20 2b 34 34 35 34 2c 37 20 -4401,5 +4454,7
2650: 40 40 20 53 65 6c 65 63 74 4f 62 6a 46 72 6f 6d @@ SelectObjFrom
2660: 53 75 62 6c 69 73 74 28 0a 20 20 2a 20 6d 6f 64 Sublist(. * mod
2670: 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 e: c. * c-basic
2680: 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 -offset: 4. * f
2690: 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b ill-column: 78.+
26a0: 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0a * tab-width: 8.
26b0: 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d + * indent-tabs-
26c0: 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e mode: nil. * En
26d0: 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 d:. */.Index: g
26e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
26f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2730: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2740: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2750: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
2760: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
2770: 69 73 69 6f 6e 20 31 2e 34 36 35 0a 64 69 66 66 ision 1.465.diff
2780: 20 2d 75 20 2d 70 20 2d 72 31 2e 34 36 35 20 74 -u -p -r1.465 t
2790: 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 clInt.h.--- gene
27a0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 31 39 20 ric/tclInt.h.19
27b0: 4d 61 72 20 32 30 31 30 20 31 31 3a 35 34 3a 30 Mar 2010 11:54:0
27c0: 37 20 2d 30 30 30 30 09 31 2e 34 36 35 0a 2b 2b 7 -0000.1.465.++
27d0: 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 + generic/tclInt
27e0: 2e 68 09 32 33 20 4d 61 72 20 32 30 31 30 20 32 .h.23 Mar 2010 2
27f0: 31 3a 31 39 3a 35 31 20 2d 30 30 30 30 0a 40 40 1:19:51 -0000.@@
2800: 20 2d 31 39 38 34 2c 36 20 2b 31 39 38 34 2c 38 -1984,6 +1984,8
2810: 20 40 40 20 74 79 70 65 64 65 66 20 73 74 72 75 @@ typedef stru
2820: 63 74 20 49 6e 74 65 72 70 20 7b 0a 20 20 20 20 ct Interp {.
2830: 20 54 63 6c 5f 4f 62 6a 20 2a 65 69 56 61 72 3b Tcl_Obj *eiVar;
2840: 09 09 2f 2a 20 63 61 63 68 65 64 20 72 65 66 20 ../* cached ref
2850: 74 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 to ::errorInfo v
2860: 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 20 ariable. */.
2870: 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 43 Tcl_Obj *errorC
2880: 6f 64 65 3b 09 09 2f 2a 20 65 72 72 6f 72 43 6f ode;../* errorCo
2890: 64 65 20 76 61 6c 75 65 20 28 6e 6f 77 20 61 73 de value (now as
28a0: 20 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f 0a a Tcl_Obj). */.
28b0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 63 Tcl_Obj *ec
28c0: 56 61 72 3b 09 09 2f 2a 20 63 61 63 68 65 64 20 Var;../* cached
28d0: 72 65 66 20 74 6f 20 3a 3a 65 72 72 6f 72 49 6e ref to ::errorIn
28e0: 66 6f 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a fo variable. */.
28f0: 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 + Tcl_Obj *er
2900: 72 6f 72 53 74 61 63 6b 3b 09 2f 2a 20 5b 69 6e rorStack;./* [in
2910: 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 20 76 fo errorstack] v
2920: 61 6c 75 65 20 28 61 73 20 61 20 54 63 6c 5f 4f alue (as a Tcl_O
2930: 62 6a 29 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 bj). */.+ int
2940: 20 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b resetErrorStack
2950: 3b 20 20 20 20 20 20 20 20 2f 2a 20 63 6f 6e 74 ; /* cont
2960: 72 6f 6c 73 20 63 6c 65 61 6e 69 6e 67 20 75 70 rols cleaning up
2970: 20 6f 66 20 3a 3a 65 72 72 6f 72 53 74 61 63 6b of ::errorStack
2980: 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 72 65 74 */. int ret
2990: 75 72 6e 4c 65 76 65 6c 3b 09 09 2f 2a 20 5b 72 urnLevel;../* [r
29a0: 65 74 75 72 6e 20 2d 6c 65 76 65 6c 5d 20 70 61 eturn -level] pa
29b0: 72 61 6d 65 74 65 72 2e 20 2a 2f 0a 20 0a 20 20 rameter. */. .
29c0: 20 20 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e /*.Index: gen
29d0: 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 eric/tclNamesp.c
29e0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
29f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a20: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
2a30: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
2a40: 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 generic/tclNames
2a50: 70 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 p.c,v.retrieving
2a60: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 30 34 0a revision 1.204.
2a70: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 diff -u -p -r1.2
2a80: 30 34 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 04 tclNamesp.c.-
2a90: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 -- generic/tclNa
2aa0: 6d 65 73 70 2e 63 09 35 20 4d 61 72 20 32 30 31 mesp.c.5 Mar 201
2ab0: 30 20 31 34 3a 33 34 3a 30 34 20 2d 30 30 30 30 0 14:34:04 -0000
2ac0: 09 31 2e 32 30 34 0a 2b 2b 2b 20 67 65 6e 65 72 .1.204.+++ gener
2ad0: 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 32 ic/tclNamesp.c.2
2ae0: 33 20 4d 61 72 20 32 30 31 30 20 32 31 3a 31 39 3 Mar 2010 21:19
2af0: 3a 35 36 20 2d 30 30 30 30 0a 40 40 20 2d 34 38 :56 -0000.@@ -48
2b00: 37 33 2c 37 20 2b 34 38 37 33 2c 37 20 40 40 20 73,7 +4873,7 @@
2b10: 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e Tcl_LogCommandIn
2b20: 66 6f 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 69 fo(. {. regi
2b30: 73 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 ster const char
2b40: 2a 70 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 *p;. Interp
2b50: 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 *iPtr = (Interp
2b60: 2a 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 *) interp;.-
2b70: 69 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 int overflow, li
2b80: 6d 69 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 20 mit = 150;.+
2b90: 69 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 int overflow, li
2ba0: 6d 69 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b 0a mit = 150, len;.
2bb0: 20 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 72 Var *varPtr
2bc0: 2c 20 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a 20 , *arrayPtr;. .
2bd0: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 66 6c if (iPtr->fl
2be0: 61 67 73 20 26 20 45 52 52 5f 41 4c 52 45 41 44 ags & ERR_ALREAD
2bf0: 59 5f 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 2d Y_LOGGED) {.@@ -
2c00: 34 39 33 32 2c 36 20 2b 34 39 33 32 2c 33 33 20 4932,6 +4932,33
2c10: 40 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e @@ Tcl_LogComman
2c20: 64 49 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 43 dInfo(. .. TC
2c30: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a L_GLOBAL_ONLY);.
2c40: 20 09 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 .}. }.+.+
2c50: 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50 /*.+ * TIP
2c60: 20 23 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a 2b #348.+ */.+
2c70: 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 .+ if (Tcl_Is
2c80: 53 68 61 72 65 64 28 69 50 74 72 2d 3e 65 72 72 Shared(iPtr->err
2c90: 6f 72 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 20 orStack)) {.+
2ca0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 Tcl_Obj *ne
2cb0: 77 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 wObj;.+
2cc0: 20 20 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 77 .+ new
2cd0: 4f 62 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Obj = Tcl_Duplic
2ce0: 61 74 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 ateObj(iPtr->err
2cf0: 6f 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 orStack);.+
2d00: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f Tcl_DecrRefCo
2d10: 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 unt(iPtr->errorS
2d20: 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 tack);.+
2d30: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
2d40: 28 6e 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 (newObj);.+
2d50: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 iPtr->errorSt
2d60: 61 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 ack = newObj;.+
2d70: 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 }.+ Tcl_Li
2d80: 73 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 65 stObjLength(inte
2d90: 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 rp, iPtr->errorS
2da0: 74 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 tack, &len);.+
2db0: 20 20 69 66 20 28 69 50 74 72 2d 3e 72 65 73 65 if (iPtr->rese
2dc0: 74 45 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a 2b tErrorStack) {.+
2dd0: 20 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 65 iPtr->re
2de0: 73 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 setErrorStack =
2df0: 30 3b 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 72 0;.+ /* r
2e00: 65 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 eset while keepi
2e10: 6e 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 ng the list intr
2e20: 65 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f ep as much as po
2e30: 73 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 ssible */.+
2e40: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 Tcl_ListObjRe
2e50: 70 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 place(interp, iP
2e60: 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 tr->errorStack,
2e70: 30 2c 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 29 0, len, 0, NULL)
2e80: 3b 0a 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d 30 ;.+ len=0
2e90: 3b 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 69 ;.+ } .+ i
2ea0: 66 20 28 28 69 50 74 72 2d 3e 76 61 72 46 72 61 f ((iPtr->varFra
2eb0: 6d 65 50 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 mePtr != iPtr->r
2ec0: 6f 6f 74 46 72 61 6d 65 50 74 72 29 0a 2b 20 20 ootFramePtr).+
2ed0: 20 20 20 20 20 20 26 26 20 28 69 50 74 72 2d 3e && (iPtr->
2ee0: 76 61 72 46 72 61 6d 65 50 74 72 20 3d 3d 20 69 varFramePtr == i
2ef0: 50 74 72 2d 3e 66 72 61 6d 65 50 74 72 29 29 20 Ptr->framePtr))
2f00: 7b 0a 2b 20 20 20 20 20 20 20 20 54 63 6c 5f 4c {.+ Tcl_L
2f10: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
2f20: 65 6e 74 28 4e 55 4c 4c 2c 0a 2b 20 20 20 20 20 ent(NULL,.+
2f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 69 50 74 72 iPtr
2f50: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 0a 2b 20 ->errorStack,.+
2f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f80: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 69 Tcl_NewListObj(i
2f90: 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 Ptr->varFramePtr
2fa0: 2d 3e 6f 62 6a 63 2c 0a 2b 20 20 20 20 20 20 20 ->objc,.+
2fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fd0: 20 20 20 20 20 20 20 20 20 69 50 74 72 2d 3e 76 iPtr->v
2fe0: 61 72 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a 76 arFramePtr->objv
2ff0: 29 29 3b 0a 2b 20 20 20 20 7d 0a 20 7d 0a 20 0c ));.+ }. }. .
3000: 0a 20 2f 2a 0a 40 40 20 2d 34 39 33 39 2c 35 20 . /*.@@ -4939,5
3010: 2b 34 39 36 36 2c 37 20 40 40 20 54 63 6c 5f 4c +4966,7 @@ Tcl_L
3020: 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 0a 20 ogCommandInfo(.
3030: 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 * mode: c. * c
3040: 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 -basic-offset: 4
3050: 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e . * fill-column
3060: 3a 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 : 78.+ * tab-wid
3070: 74 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 th: 8.+ * indent
3080: 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a -tabs-mode: nil.
3090: 20 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e * End:. */.In
30a0: 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c dex: generic/tcl
30b0: 52 65 73 75 6c 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d Result.c.=======
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 3d 3d 0a 52 43 53 ============.RCS
3100: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
3110: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
3120: 74 63 6c 52 65 73 75 6c 74 2e 63 2c 76 0a 72 65 tclResult.c,v.re
3130: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
3140: 6e 20 31 2e 35 37 0a 64 69 66 66 20 2d 75 20 2d n 1.57.diff -u -
3150: 70 20 2d 72 31 2e 35 37 20 74 63 6c 52 65 73 75 p -r1.57 tclResu
3160: 6c 74 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 lt.c.--- generic
3170: 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 32 34 20 /tclResult.c.24
3180: 46 65 62 20 32 30 31 30 20 31 30 3a 34 35 3a 30 Feb 2010 10:45:0
3190: 34 20 2d 30 30 30 30 09 31 2e 35 37 0a 2b 2b 2b 4 -0000.1.57.+++
31a0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 generic/tclResu
31b0: 6c 74 2e 63 09 32 33 20 4d 61 72 20 32 30 31 30 lt.c.23 Mar 2010
31c0: 20 32 31 3a 32 30 3a 30 33 20 2d 30 30 30 30 0a 21:20:03 -0000.
31d0: 40 40 20 2d 31 39 2c 37 20 2b 31 39 2c 37 20 40 @@ -19,7 +19,7 @
31e0: 40 0a 20 0a 20 65 6e 75 6d 20 72 65 74 75 72 6e @. . enum return
31f0: 4b 65 79 73 20 7b 0a 20 20 20 20 20 4b 45 59 5f Keys {. KEY_
3200: 43 4f 44 45 2c 09 4b 45 59 5f 45 52 52 4f 52 43 CODE,.KEY_ERRORC
3210: 4f 44 45 2c 09 4b 45 59 5f 45 52 52 4f 52 49 4e ODE,.KEY_ERRORIN
3220: 46 4f 2c 09 4b 45 59 5f 45 52 52 4f 52 4c 49 4e FO,.KEY_ERRORLIN
3230: 45 2c 0a 2d 20 20 20 20 4b 45 59 5f 4c 45 56 45 E,.- KEY_LEVE
3240: 4c 2c 09 4b 45 59 5f 4f 50 54 49 4f 4e 53 2c 09 L,.KEY_OPTIONS,.
3250: 4b 45 59 5f 4c 41 53 54 0a 2b 20 20 20 20 4b 45 KEY_LAST.+ KE
3260: 59 5f 4c 45 56 45 4c 2c 09 4b 45 59 5f 4f 50 54 Y_LEVEL,.KEY_OPT
3270: 49 4f 4e 53 2c 09 4b 45 59 5f 45 52 52 4f 52 53 IONS,.KEY_ERRORS
3280: 54 41 43 4b 2c 09 4b 45 59 5f 4c 41 53 54 0a 20 TACK,.KEY_LAST.
3290: 7d 3b 0a 20 0a 20 2f 2a 0a 40 40 20 2d 39 32 34 };. . /*.@@ -924
32a0: 2c 36 20 2b 39 32 34 2c 37 20 40 40 20 54 63 6c ,6 +924,7 @@ Tcl
32b0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 0a 20 09 _ResetResult(. .
32c0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
32d0: 28 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f (iPtr->errorInfo
32e0: 29 3b 0a 20 09 69 50 74 72 2d 3e 65 72 72 6f 72 );. .iPtr->error
32f0: 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 Info = NULL;.
3300: 20 20 7d 0a 2b 20 20 20 20 69 50 74 72 2d 3e 72 }.+ iPtr->r
3310: 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d esetErrorStack =
3320: 20 31 3b 0a 20 20 20 20 20 69 50 74 72 2d 3e 72 1;. iPtr->r
3330: 65 74 75 72 6e 4c 65 76 65 6c 20 3d 20 31 3b 0a eturnLevel = 1;.
3340: 20 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 iPtr->retur
3350: 6e 43 6f 64 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a nCode = TCL_OK;.
3360: 20 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 72 if (iPtr->r
3370: 65 74 75 72 6e 4f 70 74 73 29 20 7b 0a 40 40 20 eturnOpts) {.@@
3380: 2d 31 31 36 31 2c 36 20 2b 31 31 36 32 2c 37 20 -1161,6 +1162,7
3390: 40 40 20 47 65 74 4b 65 79 73 28 76 6f 69 64 29 @@ GetKeys(void)
33a0: 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c . .TclNewLiteral
33b0: 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b StringObj(keys[K
33c0: 45 59 5f 45 52 52 4f 52 43 4f 44 45 5d 2c 20 22 EY_ERRORCODE], "
33d0: 2d 65 72 72 6f 72 63 6f 64 65 22 29 3b 0a 20 09 -errorcode");. .
33e0: 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 TclNewLiteralStr
33f0: 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f ingObj(keys[KEY_
3400: 45 52 52 4f 52 49 4e 46 4f 5d 2c 20 22 2d 65 72 ERRORINFO], "-er
3410: 72 6f 72 69 6e 66 6f 22 29 3b 0a 20 09 54 63 6c rorinfo");. .Tcl
3420: 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 NewLiteralString
3430: 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 Obj(keys[KEY_ERR
3440: 4f 52 4c 49 4e 45 5d 2c 20 22 2d 65 72 72 6f 72 ORLINE], "-error
3450: 6c 69 6e 65 22 29 3b 0a 2b 09 54 63 6c 4e 65 77 line");.+.TclNew
3460: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
3470: 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 (keys[KEY_ERRORS
3480: 54 41 43 4b 5d 2c 22 2d 65 72 72 6f 72 73 74 61 TACK],"-errorsta
3490: 63 6b 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 ck");. .TclNewLi
34a0: 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b teralStringObj(k
34b0: 65 79 73 5b 4b 45 59 5f 4c 45 56 45 4c 5d 2c 09 eys[KEY_LEVEL],.
34c0: 20 20 20 20 22 2d 6c 65 76 65 6c 22 29 3b 0a 20 "-level");.
34d0: 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 .TclNewLiteralSt
34e0: 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 ringObj(keys[KEY
34f0: 5f 4f 50 54 49 4f 4e 53 5d 2c 20 20 20 22 2d 6f _OPTIONS], "-o
3500: 70 74 69 6f 6e 73 22 29 3b 0a 20 0a 40 40 20 2d ptions");. .@@ -
3510: 31 32 36 36 2c 36 20 2b 31 32 36 38 2c 33 31 20 1266,6 +1268,31
3520: 40 40 20 54 63 6c 50 72 6f 63 65 73 73 52 65 74 @@ TclProcessRet
3530: 75 72 6e 28 0a 20 09 09 69 50 74 72 2d 3e 66 6c urn(. ..iPtr->fl
3540: 61 67 73 20 7c 3d 20 45 52 52 5f 41 4c 52 45 41 ags |= ERR_ALREA
3550: 44 59 5f 4c 4f 47 47 45 44 3b 0a 20 09 20 20 20 DY_LOGGED;. .
3560: 20 7d 0a 20 09 7d 0a 2b 09 54 63 6c 5f 44 69 63 }. .}.+.Tcl_Dic
3570: 74 4f 62 6a 47 65 74 28 4e 55 4c 4c 2c 20 69 50 tObjGet(NULL, iP
3580: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 2c 20 tr->returnOpts,
3590: 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 54 keys[KEY_ERRORST
35a0: 41 43 4b 5d 2c 20 26 76 61 6c 75 65 50 74 72 29 ACK], &valuePtr)
35b0: 3b 0a 2b 09 69 66 20 28 76 61 6c 75 65 50 74 72 ;.+.if (valuePtr
35c0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 20 20 20 != NULL) {.+
35d0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 6c 65 6e int len
35e0: 2c 20 76 61 6c 75 65 4f 62 6a 63 3b 0a 2b 20 20 , valueObjc;.+
35f0: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 Tcl_Ob
3600: 6a 20 2a 2a 76 61 6c 75 65 4f 62 6a 76 3b 0a 2b j **valueObjv;.+
3610: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 69 66 .+ if
3620: 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 69 (Tcl_IsShared(i
3630: 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 Ptr->errorStack)
3640: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ) {.+
3650: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 Tcl_Obj *ne
3660: 77 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 wObj;.+
3670: 20 20 20 20 20 20 20 0a 2b 20 20 20 20 20 20 20 .+
3680: 20 20 20 20 20 20 20 20 20 6e 65 77 4f 62 6a 20 newObj
3690: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
36a0: 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 bj(iPtr->errorSt
36b0: 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 20 ack);.+
36c0: 20 20 20 20 20 20 20 54 63 6c 5f 44 65 63 72 52 Tcl_DecrR
36d0: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 efCount(iPtr->er
36e0: 72 6f 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 rorStack);.+
36f0: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
3700: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6e 65 77 IncrRefCount(new
3710: 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 20 20 20 20 Obj);.+
3720: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72 iPtr->err
3730: 6f 72 53 74 61 63 6b 20 3d 20 6e 65 77 4f 62 6a orStack = newObj
3740: 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 7d ;.+ }
3750: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a .+ /*
3760: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a .+ *
3770: 20 4c 69 73 74 20 65 78 74 72 61 63 74 69 6f 6e List extraction
3780: 20 64 6f 6e 65 20 61 66 74 65 72 20 64 75 70 6c done after dupl
3790: 69 63 61 74 69 6f 6e 20 74 6f 20 61 76 6f 69 64 ication to avoid
37a0: 20 6d 6f 76 69 6e 67 20 74 68 65 20 72 75 67 0a moving the rug.
37b0: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 + *
37c0: 69 66 20 73 6f 6d 65 6f 6e 65 20 64 6f 65 73 20 if someone does
37d0: 5b 72 65 74 75 72 6e 20 2d 65 72 72 6f 72 73 74 [return -errorst
37e0: 61 63 6b 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 ack [info errors
37f0: 74 61 63 6b 5d 5d 0a 2b 20 20 20 20 20 20 20 20 tack]].+
3800: 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 20 20 20 */.+
3810: 20 20 20 20 20 69 66 20 28 54 63 6c 5f 4c 69 73 if (Tcl_Lis
3820: 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 tObjGetElements(
3830: 69 6e 74 65 72 70 2c 20 76 61 6c 75 65 50 74 72 interp, valuePtr
3840: 2c 20 26 76 61 6c 75 65 4f 62 6a 63 2c 20 26 76 , &valueObjc, &v
3850: 61 6c 75 65 4f 62 6a 76 29 20 3d 3d 20 54 43 4c alueObjv) == TCL
3860: 5f 45 52 52 4f 52 29 20 7b 0a 2b 20 20 20 20 20 _ERROR) {.+
3870: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
3880: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 n TCL_ERROR;.+
3890: 20 20 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 }.+
38a0: 20 20 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 iPtr->r
38b0: 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d esetErrorStack =
38c0: 20 30 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 0;.+
38d0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c 65 6e 67 Tcl_ListObjLeng
38e0: 74 68 28 69 6e 74 65 72 70 2c 20 69 50 74 72 2d th(interp, iPtr-
38f0: 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 26 6c 65 >errorStack, &le
3900: 6e 29 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 n);.+
3910: 20 2f 2a 20 72 65 73 65 74 20 77 68 69 6c 65 20 /* reset while
3920: 6b 65 65 70 69 6e 67 20 74 68 65 20 6c 69 73 74 keeping the list
3930: 20 69 6e 74 72 65 70 20 61 73 20 6d 75 63 68 20 intrep as much
3940: 61 73 20 70 6f 73 73 69 62 6c 65 20 2a 2f 0a 2b as possible */.+
3950: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
3960: 4c 69 73 74 4f 62 6a 52 65 70 6c 61 63 65 28 69 ListObjReplace(i
3970: 6e 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 nterp, iPtr->err
3980: 6f 72 53 74 61 63 6b 2c 20 30 2c 20 6c 65 6e 2c orStack, 0, len,
3990: 20 76 61 6c 75 65 4f 62 6a 63 2c 20 76 61 6c 75 valueObjc, valu
39a0: 65 4f 62 6a 76 29 3b 0a 2b 20 09 7d 0a 20 09 54 eObjv);.+ .}. .T
39b0: 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 4e 55 cl_DictObjGet(NU
39c0: 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e LL, iPtr->return
39d0: 4f 70 74 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 Opts, keys[KEY_E
39e0: 52 52 4f 52 43 4f 44 45 5d 2c 20 26 76 61 6c 75 RRORCODE], &valu
39f0: 65 50 74 72 29 3b 0a 20 09 69 66 20 28 76 61 6c ePtr);. .if (val
3a00: 75 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b uePtr != NULL) {
3a10: 0a 20 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 . . Tcl_SetOb
3a20: 6a 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 72 jErrorCode(inter
3a30: 70 2c 20 76 61 6c 75 65 50 74 72 29 3b 0a 40 40 p, valuePtr);.@@
3a40: 20 2d 31 34 32 35 2c 36 20 2b 31 34 35 32 2c 32 -1425,6 +1452,2
3a50: 37 20 40 40 20 54 63 6c 4d 65 72 67 65 52 65 74 7 @@ TclMergeRet
3a60: 75 72 6e 4f 70 74 69 6f 6e 73 28 0a 20 20 20 20 urnOptions(.
3a70: 20 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 2b 20 20 }. . /*.+
3a80: 20 20 20 2a 20 43 68 65 63 6b 20 66 6f 72 20 62 * Check for b
3a90: 6f 67 75 73 20 2d 65 72 72 6f 72 73 74 61 63 6b ogus -errorstack
3aa0: 20 76 61 6c 75 65 2e 0a 2b 20 20 20 20 20 2a 2f value..+ */
3ab0: 0a 2b 0a 2b 20 20 20 20 54 63 6c 5f 44 69 63 74 .+.+ Tcl_Dict
3ac0: 4f 62 6a 47 65 74 28 4e 55 4c 4c 2c 20 72 65 74 ObjGet(NULL, ret
3ad0: 75 72 6e 4f 70 74 73 2c 20 6b 65 79 73 5b 4b 45 urnOpts, keys[KE
3ae0: 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d 2c 20 26 Y_ERRORSTACK], &
3af0: 76 61 6c 75 65 50 74 72 29 3b 0a 2b 20 20 20 20 valuePtr);.+
3b00: 69 66 20 28 76 61 6c 75 65 50 74 72 20 21 3d 20 if (valuePtr !=
3b10: 4e 55 4c 4c 29 20 7b 0a 2b 09 69 6e 74 20 6c 65 NULL) {.+.int le
3b20: 6e 67 74 68 3b 0a 2b 0a 2b 09 69 66 20 28 54 43 ngth;.+.+.if (TC
3b30: 4c 5f 45 52 52 4f 52 20 3d 3d 20 54 63 6c 5f 4c L_ERROR == Tcl_L
3b40: 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28 4e 55 4c istObjLength(NUL
3b50: 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 6c 65 L, valuePtr, &le
3b60: 6e 67 74 68 20 29 29 20 7b 0a 2b 09 20 20 20 20 ngth )) {.+.
3b70: 2f 2a 0a 2b 09 20 20 20 20 20 2a 20 56 61 6c 75 /*.+. * Valu
3b80: 65 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c e is not a list,
3b90: 20 77 68 69 63 68 20 69 73 20 69 6c 6c 65 67 61 which is illega
3ba0: 6c 20 66 6f 72 20 2d 65 72 72 6f 72 73 74 61 63 l for -errorstac
3bb0: 6b 2e 0a 2b 09 20 20 20 20 20 2a 2f 0a 2b 09 20 k..+. */.+.
3bc0: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
3bd0: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2b 09 20 20 lt(interp);.+.
3be0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
3bf0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 lt(interp, "bad
3c00: 2d 65 72 72 6f 72 73 74 61 63 6b 20 76 61 6c 75 -errorstack valu
3c10: 65 3a 20 22 0a 2b 09 09 09 20 20 20 20 20 22 65 e: ".+... "e
3c20: 78 70 65 63 74 65 64 20 61 20 6c 69 73 74 20 62 xpected a list b
3c30: 75 74 20 67 6f 74 20 5c 22 22 2c 0a 2b 09 09 09 ut got \"",.+...
3c40: 20 20 20 20 20 54 63 6c 47 65 74 53 74 72 69 6e TclGetStrin
3c50: 67 28 76 61 6c 75 65 50 74 72 29 2c 20 22 5c 22 g(valuePtr), "\"
3c60: 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 ", NULL);.+.
3c70: 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 Tcl_SetErrorCode
3c80: 28 69 6e 74 65 72 70 2c 20 22 54 43 4c 22 2c 20 (interp, "TCL",
3c90: 22 52 45 53 55 4c 54 22 2c 20 22 4e 4f 4e 4c 49 "RESULT", "NONLI
3ca0: 53 54 5f 45 52 52 4f 52 53 54 41 43 4b 22 2c 20 ST_ERRORSTACK",
3cb0: 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 67 6f 74 NULL);.+. got
3cc0: 6f 20 65 72 72 6f 72 3b 0a 2b 09 7d 0a 2b 20 20 o error;.+.}.+
3cd0: 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 20 20 }.+.+ /*.
3ce0: 20 20 20 20 2a 20 43 6f 6e 76 65 72 74 20 5b 72 * Convert [r
3cf0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 72 65 74 75 eturn -code retu
3d00: 72 6e 20 2d 6c 65 76 65 6c 20 58 5d 20 74 6f 20 rn -level X] to
3d10: 5b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 6f 6b [return -code ok
3d20: 20 2d 6c 65 76 65 6c 20 58 2b 31 5d 0a 20 20 20 -level X+1].
3d30: 20 20 20 2a 2f 0a 20 0a 40 40 20 2d 31 35 30 31 */. .@@ -1501
3d40: 2c 36 20 2b 31 35 34 39 2c 37 20 40 40 20 54 63 ,6 +1549,7 @@ Tc
3d50: 6c 5f 47 65 74 52 65 74 75 72 6e 4f 70 74 69 6f l_GetReturnOptio
3d60: 6e 73 28 0a 20 0a 20 20 20 20 20 69 66 20 28 72 ns(. . if (r
3d70: 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 45 52 52 esult == TCL_ERR
3d80: 4f 52 29 20 7b 0a 20 09 54 63 6c 5f 41 64 64 4f OR) {. .Tcl_AddO
3d90: 62 6a 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 bjErrorInfo(inte
3da0: 72 70 2c 20 22 22 2c 20 2d 31 29 3b 0a 2b 20 20 rp, "", -1);.+
3db0: 20 20 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 Tcl_DictOb
3dc0: 6a 50 75 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f jPut(NULL, optio
3dd0: 6e 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 ns, keys[KEY_ERR
3de0: 4f 52 53 54 41 43 4b 5d 2c 20 69 50 74 72 2d 3e ORSTACK], iPtr->
3df0: 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a 20 20 20 errorStack);.
3e00: 20 20 7d 0a 20 20 20 20 20 69 66 20 28 69 50 74 }. if (iPt
3e10: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 29 20 7b 0a r->errorCode) {.
3e20: 20 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 .Tcl_DictObjPut
3e30: 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 (NULL, options,
3e40: 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 43 4f keys[KEY_ERRORCO
3e50: 44 45 5d 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 DE], iPtr->error
3e60: 43 6f 64 65 29 3b 0a 40 40 20 2d 31 36 33 32 2c Code);.@@ -1632,
3e70: 35 20 2b 31 36 38 31 2c 37 20 40 40 20 54 63 6c 5 +1681,7 @@ Tcl
3e80: 5f 54 72 61 6e 73 66 65 72 52 65 73 75 6c 74 28 _TransferResult(
3e90: 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a . * mode: c. *
3ea0: 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 3a c-basic-offset:
3eb0: 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 4. * fill-colu
3ec0: 6d 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 mn: 78.+ * tab-w
3ed0: 69 64 74 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 idth: 8.+ * inde
3ee0: 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 nt-tabs-mode: ni
3ef0: 6c 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a l. * End:. */.
3f00: 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 63 6d 64 Index: tests/cmd
3f10: 4d 5a 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d MZ.test.========
3f20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
3f60: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
3f70: 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 63 6d 64 cl/tcl/tests/cmd
3f80: 4d 5a 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 MZ.test,v.retrie
3f90: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
3fa0: 32 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 28.diff -u -p -r
3fb0: 31 2e 32 38 20 63 6d 64 4d 5a 2e 74 65 73 74 0a 1.28 cmdMZ.test.
3fc0: 2d 2d 2d 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e --- tests/cmdMZ.
3fd0: 74 65 73 74 09 31 36 20 4e 6f 76 20 32 30 30 39 test.16 Nov 2009
3fe0: 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 30 09 18:00:11 -0000.
3ff0: 31 2e 32 38 0a 2b 2b 2b 20 74 65 73 74 73 2f 63 1.28.+++ tests/c
4000: 6d 64 4d 5a 2e 74 65 73 74 09 32 33 20 4d 61 72 mdMZ.test.23 Mar
4010: 20 32 30 31 30 20 32 31 3a 32 30 3a 30 33 20 2d 2010 21:20:03 -
4020: 30 30 30 30 0a 40 40 20 2d 31 34 39 2c 31 31 20 0000.@@ -149,11
4030: 2b 31 34 39 2c 31 31 20 40 40 20 74 65 73 74 20 +149,11 @@ test
4040: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 38 cmdMZ-return-2.8
4050: 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 {return option
4060: 68 61 6e 0a 20 74 65 73 74 20 63 6d 64 4d 5a 2d han. test cmdMZ-
4070: 72 65 74 75 72 6e 2d 32 2e 39 20 7b 72 65 74 75 return-2.9 {retu
4080: 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 rn option handli
4090: 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 ng} -body {.
40a0: 20 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 return -level 0
40b0: 20 2d 63 6f 64 65 20 31 30 0a 20 7d 20 2d 72 65 -code 10. } -re
40c0: 74 75 72 6e 43 6f 64 65 73 20 31 30 20 2d 72 65 turnCodes 10 -re
40d0: 73 75 6c 74 20 7b 7d 0a 2d 74 65 73 74 20 63 6d sult {}.-test cm
40e0: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 dMZ-return-2.10
40f0: 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 {return option h
4100: 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 74 65 73 74 andling} {.+test
4110: 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e cmdMZ-return-2.
4120: 31 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 10 {return optio
4130: 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 n handling} -bod
4140: 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 y {. list [c
4150: 61 74 63 68 20 7b 72 65 74 75 72 6e 20 2d 6c 65 atch {return -le
4160: 76 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f vel 0 -code erro
4170: 72 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 r} -> foo] [dict
4180: 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 31 Sort $foo].-} {1
4190: 20 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 {-code 1 -error
41a0: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
41b0: 69 6e 66 6f 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 info {.+} -match
41c0: 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 31 glob -result {1
41d0: 20 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 {-code 1 -error
41e0: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
41f0: 69 6e 66 6f 20 7b 0a 20 20 20 20 20 77 68 69 6c info {. whil
4200: 65 20 65 78 65 63 75 74 69 6e 67 0a 2d 22 72 65 e executing.-"re
4210: 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 turn -level 0 -c
4220: 6f 64 65 20 65 72 72 6f 72 22 7d 20 2d 65 72 72 ode error"} -err
4230: 6f 72 6c 69 6e 65 20 31 20 2d 6c 65 76 65 6c 20 orline 1 -level
4240: 30 7d 7d 0a 2b 22 72 65 74 75 72 6e 20 2d 6c 65 0}}.+"return -le
4250: 76 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f vel 0 -code erro
4260: 72 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 31 r"} -errorline 1
4270: 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d -errorstack * -
4280: 6c 65 76 65 6c 20 30 7d 7d 0a 20 74 65 73 74 20 level 0}}. test
4290: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 cmdMZ-return-2.1
42a0: 31 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 1 {return option
42b0: 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 20 20 20 handling} {.
42c0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 72 list [catch {r
42d0: 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d eturn -level 0 -
42e0: 63 6f 64 65 20 62 72 65 61 6b 7d 20 2d 3e 20 66 code break} -> f
42f0: 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 24 66 oo] [dictSort $f
4300: 6f 6f 5d 0a 20 7d 20 7b 33 20 7b 2d 63 6f 64 65 oo]. } {3 {-code
4310: 20 33 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a 40 40 3 -level 0}}.@@
4320: 20 2d 31 39 33 2c 36 20 2b 31 39 33 2c 39 20 40 -193,6 +193,9 @
4330: 40 20 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 @ test cmdMZ-ret
4340: 75 72 6e 2d 32 2e 31 37 20 7b 72 65 74 75 72 6e urn-2.17 {return
4350: 20 6f 70 74 6f 6e 20 68 61 6e 0a 20 7d 20 2d 63 opton han. } -c
4360: 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 20 72 65 leanup {. re
4370: 6e 61 6d 65 20 70 20 7b 7d 0a 20 7d 20 2d 72 65 name p {}. } -re
4380: 73 75 6c 74 20 7b 31 20 63 20 7b 61 20 62 7d 7d sult {1 c {a b}}
4390: 0a 2b 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 .+test cmdMZ-ret
43a0: 75 72 6e 2d 32 2e 31 38 20 7b 72 65 74 75 72 6e urn-2.18 {return
43b0: 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 option handling
43c0: 7d 20 7b 0a 2b 20 20 20 20 6c 69 73 74 20 5b 63 } {.+ list [c
43d0: 61 74 63 68 20 7b 72 65 74 75 72 6e 20 2d 63 6f atch {return -co
43e0: 64 65 20 65 72 72 6f 72 20 2d 65 72 72 6f 72 73 de error -errors
43f0: 74 61 63 6b 20 5b 6c 69 73 74 20 61 20 62 20 63 tack [list a b c
4400: 5d 20 79 6f 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 ] yo} -> foo] [d
4410: 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 20 5b 69 ictSort $foo] [i
4420: 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 0a nfo errorstack].
4430: 2b 7d 20 7b 32 20 7b 2d 63 6f 64 65 20 31 20 2d +} {2 {-code 1 -
4440: 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d errorcode NONE -
4450: 65 72 72 6f 72 73 74 61 63 6b 20 7b 61 20 62 20 errorstack {a b
4460: 63 7d 20 2d 6c 65 76 65 6c 20 31 7d 20 7b 61 20 c} -level 1} {a
4470: 62 20 63 7d 7d 0a 20 0a 20 23 20 43 68 65 63 6b b c}}. . # Check
4480: 20 74 68 61 74 20 74 68 65 20 72 65 73 75 6c 74 that the result
4490: 20 6f 66 20 61 20 5b 72 65 74 75 72 6e 20 2d 6f of a [return -o
44a0: 70 74 69 6f 6e 73 20 24 6f 70 74 73 20 24 72 65 ptions $opts $re
44b0: 73 75 6c 74 5d 20 69 73 0a 20 23 20 69 6e 64 69 sult] is. # indi
44c0: 73 74 69 6e 67 75 69 73 68 61 62 6c 65 20 66 72 stinguishable fr
44d0: 6f 6d 20 74 68 61 74 20 6f 66 20 74 68 65 20 6f om that of the o
44e0: 72 69 67 69 6e 61 6c 6c 79 20 63 61 75 67 68 74 riginally caught
44f0: 20 73 63 72 69 70 74 2c 20 6e 6f 20 6d 61 74 74 script, no matt
4500: 65 72 20 77 68 61 74 0a 40 40 20 2d 32 31 31 2c er what.@@ -211,
4510: 36 20 2b 32 31 34 2c 37 20 40 40 20 66 6f 72 65 6 +214,7 @@ fore
4520: 61 63 68 20 7b 74 65 73 74 69 64 20 73 63 72 69 ach {testid scri
4530: 70 74 7d 20 7b 0a 20 20 20 20 20 63 6d 64 4d 5a pt} {. cmdMZ
4540: 2d 72 65 74 75 72 6e 2d 33 2e 31 30 20 7b 72 65 -return-3.10 {re
4550: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
4560: 20 2d 65 72 72 6f 72 69 6e 66 6f 20 66 6f 6f 7d -errorinfo foo}
4570: 0a 20 20 20 20 20 63 6d 64 4d 5a 2d 72 65 74 75 . cmdMZ-retu
4580: 72 6e 2d 33 2e 31 31 20 7b 72 65 74 75 72 6e 20 rn-3.11 {return
4590: 2d 63 6f 64 65 20 65 72 72 6f 72 20 2d 65 72 72 -code error -err
45a0: 6f 72 69 6e 66 6f 20 66 6f 6f 20 2d 65 72 72 6f orinfo foo -erro
45b0: 72 63 6f 64 65 20 62 61 72 7d 0a 20 20 20 20 20 rcode bar}.
45c0: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 cmdMZ-return-3.1
45d0: 32 20 7b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 2 {return -code
45e0: 65 72 72 6f 72 20 2d 65 72 72 6f 72 69 6e 66 6f error -errorinfo
45f0: 20 66 6f 6f 20 2d 65 72 72 6f 72 63 6f 64 65 20 foo -errorcode
4600: 62 61 72 20 2d 65 72 72 6f 72 6c 69 6e 65 20 31 bar -errorline 1
4610: 30 7d 0a 2b 20 20 20 20 63 6d 64 4d 5a 2d 72 65 0}.+ cmdMZ-re
4620: 74 75 72 6e 2d 33 2e 31 32 2e 31 20 7b 72 65 74 turn-3.12.1 {ret
4630: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
4640: 2d 65 72 72 6f 72 69 6e 66 6f 20 66 6f 6f 20 2d -errorinfo foo -
4650: 65 72 72 6f 72 63 6f 64 65 20 62 61 72 20 2d 65 errorcode bar -e
4660: 72 72 6f 72 6c 69 6e 65 20 31 30 20 2d 65 72 72 rrorline 10 -err
4670: 6f 72 73 74 61 63 6b 20 62 61 7a 7d 0a 20 20 20 orstack baz}.
4680: 20 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 cmdMZ-return-3
4690: 2e 31 33 20 7b 72 65 74 75 72 6e 20 2d 6f 70 74 .13 {return -opt
46a0: 69 6f 6e 73 20 7b 78 20 79 20 7a 20 32 7d 7d 0a ions {x y z 2}}.
46b0: 20 20 20 20 20 63 6d 64 4d 5a 2d 72 65 74 75 72 cmdMZ-retur
46c0: 6e 2d 33 2e 31 34 20 7b 72 65 74 75 72 6e 20 2d n-3.14 {return -
46d0: 6c 65 76 65 6c 20 33 20 2d 63 6f 64 65 20 62 72 level 3 -code br
46e0: 65 61 6b 20 73 64 66 7d 0a 20 7d 20 7b 0a 49 6e eak sdf}. } {.In
46f0: 64 65 78 3a 20 74 65 73 74 73 2f 65 72 72 6f 72 dex: tests/error
4700: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
4710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
4750: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
4760: 2f 74 63 6c 2f 74 65 73 74 73 2f 65 72 72 6f 72 /tcl/tests/error
4770: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
4780: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 38 ng revision 1.28
4790: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
47a0: 32 38 20 65 72 72 6f 72 2e 74 65 73 74 0a 2d 2d 28 error.test.--
47b0: 2d 20 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 - tests/error.te
47c0: 73 74 09 32 33 20 4d 61 72 20 32 30 31 30 20 31 st.23 Mar 2010 1
47d0: 32 3a 35 38 3a 33 39 20 2d 30 30 30 30 09 31 2e 2:58:39 -0000.1.
47e0: 32 38 0a 2b 2b 2b 20 74 65 73 74 73 2f 65 72 72 28.+++ tests/err
47f0: 6f 72 2e 74 65 73 74 09 32 33 20 4d 61 72 20 32 or.test.23 Mar 2
4800: 30 31 30 20 32 31 3a 32 30 3a 30 33 20 2d 30 30 010 21:20:03 -00
4810: 30 30 0a 40 40 20 2d 31 36 39 2c 36 20 2b 31 36 00.@@ -169,6 +16
4820: 39 2c 31 39 20 40 40 20 74 65 73 74 20 65 72 72 9,19 @@ test err
4830: 6f 72 2d 34 2e 35 20 7b 65 72 72 6f 72 49 6e 66 or-4.5 {errorInf
4840: 6f 20 61 6e 64 20 65 72 72 6f 72 43 6f 64 65 20 o and errorCode
4850: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
4860: 68 20 7b 65 72 72 6f 72 20 6d 73 67 31 20 6d 73 h {error msg1 ms
4870: 67 32 20 7b 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 g2 {}} msg] $msg
4880: 20 24 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 24 3a $::errorInfo $:
4890: 3a 65 72 72 6f 72 43 6f 64 65 0a 20 7d 20 7b 31 :errorCode. } {1
48a0: 20 6d 73 67 31 20 6d 73 67 32 20 7b 7d 7d 0a 20 msg1 msg2 {}}.
48b0: 0a 2b 74 65 73 74 20 65 72 72 6f 72 2d 34 2e 36 .+test error-4.6
48c0: 20 7b 65 72 72 6f 72 73 74 61 63 6b 20 76 69 61 {errorstack via
48d0: 20 69 6e 66 6f 20 7d 20 2d 62 6f 64 79 20 7b 0a info } -body {.
48e0: 2b 20 20 20 20 70 72 6f 63 20 66 20 78 20 7b 67 + proc f x {g
48f0: 20 24 78 24 78 7d 0a 2b 20 20 20 20 70 72 6f 63 $x$x}.+ proc
4900: 20 67 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 g x {error G:$x
4910: 7d 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 66 20 }.+ catch {f
4920: 31 32 7d 0a 2b 20 20 20 20 69 6e 66 6f 20 65 72 12}.+ info er
4930: 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 2d 6d 61 74 rorstack.+} -mat
4940: 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 ch glob -result
4950: 7b 7b 67 20 31 32 31 32 7d 20 7b 66 20 31 32 7d {{g 1212} {f 12}
4960: 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c {namespace eval
4970: 20 2a 7d 7d 0a 2b 74 65 73 74 20 65 72 72 6f 72 *}}.+test error
4980: 2d 34 2e 37 20 7b 65 72 72 6f 72 73 74 61 63 6b -4.7 {errorstack
4990: 20 76 69 61 20 6f 70 74 69 6f 6e 73 20 64 69 63 via options dic
49a0: 74 20 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 t } -body {.+
49b0: 20 70 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 proc f x {g $x$
49c0: 78 7d 0a 2b 20 20 20 20 70 72 6f 63 20 67 20 78 x}.+ proc g x
49d0: 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 {error G:$x}.+
49e0: 20 20 20 63 61 74 63 68 20 7b 66 20 31 32 7d 20 catch {f 12}
49f0: 6d 20 64 0a 2b 20 20 20 20 64 69 63 74 20 67 65 m d.+ dict ge
4a00: 74 20 24 64 20 2d 65 72 72 6f 72 73 74 61 63 6b t $d -errorstack
4a10: 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 .+} -match glob
4a20: 2d 72 65 73 75 6c 74 20 7b 7b 67 20 31 32 31 32 -result {{g 1212
4a30: 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 70 } {f 12} {namesp
4a40: 61 63 65 20 65 76 61 6c 20 2a 7d 7d 0a 2b 0a 20 ace eval *}}.+.
4a50: 23 20 45 72 72 6f 72 73 20 69 6e 20 65 72 72 6f # Errors in erro
4a60: 72 20 63 6f 6d 6d 61 6e 64 20 69 74 73 65 6c 66 r command itself
4a70: 0a 20 0a 20 74 65 73 74 20 65 72 72 6f 72 2d 35 . . test error-5
4a80: 2e 31 20 7b 65 72 72 6f 72 73 20 69 6e 20 65 72 .1 {errors in er
4a90: 72 6f 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 40 ror command} {.@
4aa0: 40 20 2d 32 32 33 2c 36 20 2b 32 33 36 2c 31 35 @ -223,6 +236,15
4ab0: 20 40 40 20 74 65 73 74 20 65 72 72 6f 72 2d 36 @@ test error-6
4ac0: 2e 39 20 7b 63 61 74 63 68 20 6d 75 73 74 20 72 .9 {catch must r
4ad0: 65 73 65 74 20 65 72 72 6f 72 20 73 0a 20 20 20 eset error s.
4ae0: 20 20 63 61 74 63 68 20 66 6f 6f 0a 20 20 20 20 catch foo.
4af0: 20 6c 69 73 74 20 24 3a 3a 65 72 72 6f 72 43 6f list $::errorCo
4b00: 64 65 0a 20 7d 20 7b 4e 4f 4e 45 7d 0a 2b 74 65 de. } {NONE}.+te
4b10: 73 74 20 65 72 72 6f 72 2d 36 2e 31 30 20 7b 63 st error-6.10 {c
4b20: 61 74 63 68 20 6d 75 73 74 20 72 65 73 65 74 20 atch must reset
4b30: 65 72 72 6f 72 73 74 61 63 6b 7d 20 2d 62 6f 64 errorstack} -bod
4b40: 79 20 7b 0a 2b 09 70 72 6f 63 20 66 20 78 20 7b y {.+.proc f x {
4b50: 67 20 24 78 24 78 7d 0a 2b 09 70 72 6f 63 20 67 g $x$x}.+.proc g
4b60: 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a x {error G:$x}.
4b70: 2b 09 63 61 74 63 68 20 7b 66 20 31 32 7d 0a 2b +.catch {f 12}.+
4b80: 09 73 65 74 20 65 31 20 5b 69 6e 66 6f 20 65 72 .set e1 [info er
4b90: 72 6f 72 73 74 61 63 6b 5d 0a 2b 09 63 61 74 63 rorstack].+.catc
4ba0: 68 20 7b 66 20 31 33 7d 0a 2b 09 73 65 74 20 65 h {f 13}.+.set e
4bb0: 32 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 2 [info errorsta
4bc0: 63 6b 5d 0a 2b 09 6c 69 73 74 20 24 65 31 20 24 ck].+.list $e1 $
4bd0: 65 32 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f e2.+} -match glo
4be0: 62 20 2d 72 65 73 75 6c 74 20 7b 7b 7b 67 20 31 b -result {{{g 1
4bf0: 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 212} {f 12} {nam
4c00: 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 20 espace eval *}}
4c10: 7b 7b 67 20 31 33 31 33 7d 20 7b 66 20 31 33 7d {{g 1313} {f 13}
4c20: 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c {namespace eval
4c30: 20 2a 7d 7d 7d 0a 20 0a 20 74 65 73 74 20 65 72 *}}}. . test er
4c40: 72 6f 72 2d 37 2e 31 20 7b 42 75 67 20 31 33 39 ror-7.1 {Bug 139
4c50: 37 38 34 33 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 7843} -body {.
4c60: 20 20 20 76 61 72 69 61 62 6c 65 20 63 6d 64 73 variable cmds
4c70: 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 65 78 .Index: tests/ex
4c80: 65 63 75 74 65 2e 74 65 73 74 0a 3d 3d 3d 3d 3d ecute.test.=====
4c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
4cd0: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
4ce0: 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f t/tcl/tcl/tests/
4cf0: 65 78 65 63 75 74 65 2e 74 65 73 74 2c 76 0a 72 execute.test,v.r
4d00: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
4d10: 6f 6e 20 31 2e 33 34 0a 64 69 66 66 20 2d 75 20 on 1.34.diff -u
4d20: 2d 70 20 2d 72 31 2e 33 34 20 65 78 65 63 75 74 -p -r1.34 execut
4d30: 65 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 e.test.--- tests
4d40: 2f 65 78 65 63 75 74 65 2e 74 65 73 74 09 31 36 /execute.test.16
4d50: 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 30 3a Nov 2009 18:00:
4d60: 31 31 20 2d 30 30 30 30 09 31 2e 33 34 0a 2b 2b 11 -0000.1.34.++
4d70: 2b 20 74 65 73 74 73 2f 65 78 65 63 75 74 65 2e + tests/execute.
4d80: 74 65 73 74 09 32 33 20 4d 61 72 20 32 30 31 30 test.23 Mar 2010
4d90: 20 32 31 3a 32 30 3a 30 33 20 2d 30 30 30 30 0a 21:20:03 -0000.
4da0: 40 40 20 2d 39 35 36 2c 31 31 20 2b 39 35 36 2c @@ -956,11 +956,
4db0: 31 31 20 40 40 20 74 65 73 74 20 65 78 65 63 75 11 @@ test execu
4dc0: 74 65 2d 38 2e 35 20 7b 42 75 67 20 32 30 33 38 te-8.5 {Bug 2038
4dd0: 30 36 39 7d 20 2d 73 65 74 75 70 20 7b 0a 20 20 069} -setup {.
4de0: 20 20 20 64 65 6d 6f 0a 20 7d 20 2d 63 6c 65 61 demo. } -clea
4df0: 6e 75 70 20 7b 0a 20 20 20 20 20 72 65 6e 61 6d nup {. renam
4e00: 65 20 64 65 6d 6f 20 7b 7d 0a 2d 7d 20 2d 72 65 e demo {}.-} -re
4e10: 73 75 6c 74 20 7b 2d 63 6f 64 65 20 31 20 2d 6c sult {-code 1 -l
4e20: 65 76 65 6c 20 30 20 2d 65 72 72 6f 72 63 6f 64 evel 0 -errorcod
4e30: 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 e NONE -errorinf
4e40: 6f 20 7b 46 4f 4f 0a 2b 7d 20 2d 6d 61 74 63 68 o {FOO.+} -match
4e50: 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 2d glob -result {-
4e60: 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 30 20 code 1 -level 0
4e70: 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 65 -errorstack * -e
4e80: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 rrorcode NONE -e
4e90: 72 72 6f 72 69 6e 66 6f 20 7b 46 4f 4f 0a 20 20 rrorinfo {FOO.
4ea0: 20 20 20 77 68 69 6c 65 20 65 78 65 63 75 74 69 while executi
4eb0: 6e 67 0a 20 22 65 72 72 6f 72 20 46 4f 4f 22 0a ng. "error FOO".
4ec0: 20 20 20 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f invoked fro
4ed0: 6d 20 77 69 74 68 69 6e 0a 2d 22 63 61 74 63 68 m within.-"catch
4ee0: 20 5b 6c 69 73 74 20 65 72 72 6f 72 20 46 4f 4f [list error FOO
4ef0: 5d 20 6d 20 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 ] m o"} -errorli
4f00: 6e 65 20 32 7d 0a 2b 22 63 61 74 63 68 20 5c 5b ne 2}.+"catch \[
4f10: 6c 69 73 74 20 65 72 72 6f 72 20 46 4f 4f 5c 5d list error FOO\]
4f20: 20 6d 20 6f 22 7d 20 2d 65 72 72 6f 72 6c 69 6e m o"} -errorlin
4f30: 65 20 32 7d 0a 20 0a 20 74 65 73 74 20 65 78 65 e 2}. . test exe
4f40: 63 75 74 65 2d 39 2e 31 20 7b 49 6e 74 65 72 70 cute-9.1 {Interp
4f50: 20 72 65 73 75 6c 74 20 72 65 73 65 74 74 69 6e result resettin
4f60: 67 20 5b 42 75 67 20 31 35 32 32 38 30 33 5d 7d g [Bug 1522803]}
4f70: 20 7b 0a 20 20 20 20 20 73 65 74 20 63 20 30 0a {. set c 0.
4f80: 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 69 6e 66 Index: tests/inf
4f90: 6f 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d o.test.=========
4fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
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 0a 52 43 53 20 66 ==========.RCS f
4fe0: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
4ff0: 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 69 6e 66 6f l/tcl/tests/info
5000: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
5010: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 37 35 ng revision 1.75
5020: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
5030: 37 35 20 69 6e 66 6f 2e 74 65 73 74 0a 2d 2d 2d 75 info.test.---
5040: 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 tests/info.test
5050: 09 31 30 20 46 65 62 20 32 30 31 30 20 32 33 3a .10 Feb 2010 23:
5060: 32 34 3a 32 35 20 2d 30 30 30 30 09 31 2e 37 35 24:25 -0000.1.75
5070: 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 6e 66 6f 2e .+++ tests/info.
5080: 74 65 73 74 09 32 33 20 4d 61 72 20 32 30 31 30 test.23 Mar 2010
5090: 20 32 31 3a 32 30 3a 30 35 20 2d 30 30 30 30 0a 21:20:05 -0000.
50a0: 40 40 20 2d 36 37 36 2c 31 36 20 2b 36 37 36 2c @@ -676,16 +676,
50b0: 31 36 20 40 40 20 74 65 73 74 20 69 6e 66 6f 2d 16 @@ test info-
50c0: 32 31 2e 31 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 21.1 {miscellane
50d0: 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 0a 20 ous error cond.
50e0: 7d 20 2d 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 } -result {wrong
50f0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
5100: 62 65 20 22 69 6e 66 6f 20 73 75 62 63 6f 6d 6d be "info subcomm
5110: 61 6e 64 20 3f 61 72 67 20 2e 2e 2e 3f 22 7d 0a and ?arg ...?"}.
5120: 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 32 20 test info-21.2
5130: 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 {miscellaneous e
5140: 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d rror conditions}
5150: 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 -returnCodes er
5160: 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 ror -body {.
5170: 20 69 6e 66 6f 20 67 6f 72 70 0a 2d 7d 20 2d 72 info gorp.-} -r
5180: 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f esult {unknown o
5190: 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 r ambiguous subc
51a0: 6f 6d 6d 61 6e 64 20 22 67 6f 72 70 22 3a 20 6d ommand "gorp": m
51b0: 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 ust be args, bod
51c0: 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 y, class, cmdcou
51d0: 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f nt, commands, co
51e0: 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e mplete, coroutin
51f0: 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 e, default, exis
5200: 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 ts, frame, funct
5210: 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 ions, globals, h
5220: 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 ostname, level,
5230: 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c library, loaded,
5240: 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 locals, nameofe
5250: 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 xecutable, objec
5260: 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 t, patchlevel, p
5270: 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 rocs, script, sh
5280: 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e aredlibextension
5290: 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 , tclversion, or
52a0: 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c vars}.+} -resul
52b0: 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d t {unknown or am
52c0: 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 biguous subcomma
52d0: 6e 64 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 nd "gorp": must
52e0: 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 be args, body, c
52f0: 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 lass, cmdcount,
5300: 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 commands, comple
5310: 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 te, coroutine, d
5320: 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 efault, errorsta
5330: 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d ck, exists, fram
5340: 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c e, functions, gl
5350: 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c obals, hostname,
5360: 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c level, library,
5370: 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c loaded, locals,
5380: 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c nameofexecutabl
5390: 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 e, object, patch
53a0: 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 level, procs, sc
53b0: 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 ript, sharedlibe
53c0: 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 xtension, tclver
53d0: 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 sion, or vars}.
53e0: 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 33 20 7b test info-21.3 {
53f0: 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 miscellaneous er
5400: 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 ror conditions}
5410: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 -returnCodes err
5420: 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 or -body {.
5430: 69 6e 66 6f 20 63 0a 2d 7d 20 2d 72 65 73 75 6c info c.-} -resul
5440: 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d t {unknown or am
5450: 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 biguous subcomma
5460: 6e 64 20 22 63 22 3a 20 6d 75 73 74 20 62 65 20 nd "c": must be
5470: 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 args, body, clas
5480: 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d s, cmdcount, com
5490: 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c mands, complete,
54a0: 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 coroutine, defa
54b0: 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 ult, exists, fra
54c0: 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 me, functions, g
54d0: 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 lobals, hostname
54e0: 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 , level, library
54f0: 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 , loaded, locals
5500: 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 , nameofexecutab
5510: 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 le, object, patc
5520: 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 hlevel, procs, s
5530: 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 cript, sharedlib
5540: 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 extension, tclve
5550: 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a rsion, or vars}.
5560: 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e +} -result {unkn
5570: 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 own or ambiguous
5580: 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 63 22 3a subcommand "c":
5590: 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 must be args, b
55a0: 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 ody, class, cmdc
55b0: 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 ount, commands,
55c0: 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 complete, corout
55d0: 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 72 ine, default, er
55e0: 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 74 73 rorstack, exists
55f0: 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f , frame, functio
5600: 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 ns, globals, hos
5610: 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 tname, level, li
5620: 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c brary, loaded, l
5630: 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 ocals, nameofexe
5640: 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c cutable, object,
5650: 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f patchlevel, pro
5660: 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 cs, script, shar
5670: 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 edlibextension,
5680: 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 tclversion, or v
5690: 61 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 6f 2d ars}. test info-
56a0: 32 31 2e 34 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 21.4 {miscellane
56b0: 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 ous error condit
56c0: 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 ions} -returnCod
56d0: 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b es error -body {
56e0: 0a 20 20 20 20 20 69 6e 66 6f 20 6c 0a 2d 7d 20 . info l.-}
56f0: 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e -result {unknown
5700: 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 or ambiguous su
5710: 62 63 6f 6d 6d 61 6e 64 20 22 6c 22 3a 20 6d 75 bcommand "l": mu
5720: 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 st be args, body
5730: 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e , class, cmdcoun
5740: 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d t, commands, com
5750: 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 plete, coroutine
5760: 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 74 , default, exist
5770: 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 s, frame, functi
5780: 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f ons, globals, ho
5790: 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c stname, level, l
57a0: 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 ibrary, loaded,
57b0: 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 locals, nameofex
57c0: 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 ecutable, object
57d0: 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 , patchlevel, pr
57e0: 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 ocs, script, sha
57f0: 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c redlibextension,
5800: 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 tclversion, or
5810: 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 vars}.+} -result
5820: 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 {unknown or amb
5830: 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e iguous subcomman
5840: 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 65 20 61 d "l": must be a
5850: 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 rgs, body, class
5860: 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d , cmdcount, comm
5870: 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 ands, complete,
5880: 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 coroutine, defau
5890: 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 lt, errorstack,
58a0: 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 exists, frame, f
58b0: 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c unctions, global
58c0: 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 s, hostname, lev
58d0: 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 el, library, loa
58e0: 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d ded, locals, nam
58f0: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f eofexecutable, o
5900: 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 bject, patchleve
5910: 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 l, procs, script
5920: 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e , sharedlibexten
5930: 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e sion, tclversion
5940: 2c 20 6f 72 20 76 61 72 73 7d 0a 20 74 65 73 74 , or vars}. test
5950: 20 69 6e 66 6f 2d 32 31 2e 35 20 7b 6d 69 73 63 info-21.5 {misc
5960: 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 ellaneous error
5970: 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 conditions} -ret
5980: 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d urnCodes error -
5990: 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f body {. info
59a0: 20 73 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 s.-} -result {u
59b0: 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 nknown or ambigu
59c0: 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 ous subcommand "
59d0: 73 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 s": must be args
59e0: 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 , body, class, c
59f0: 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 mdcount, command
5a00: 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 s, complete, cor
5a10: 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c outine, default,
5a20: 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 exists, frame,
5a30: 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 functions, globa
5a40: 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 ls, hostname, le
5a50: 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f vel, library, lo
5a60: 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 aded, locals, na
5a70: 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 meofexecutable,
5a80: 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 object, patchlev
5a90: 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 el, procs, scrip
5aa0: 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 t, sharedlibexte
5ab0: 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f nsion, tclversio
5ac0: 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d n, or vars}.+} -
5ad0: 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 result {unknown
5ae0: 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 or ambiguous sub
5af0: 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 6d 75 73 command "s": mus
5b00: 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c t be args, body,
5b10: 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 class, cmdcount
5b20: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 , commands, comp
5b30: 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c lete, coroutine,
5b40: 20 64 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 default, errors
5b50: 74 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 tack, exists, fr
5b60: 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 ame, functions,
5b70: 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d globals, hostnam
5b80: 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 e, level, librar
5b90: 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c y, loaded, local
5ba0: 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 s, nameofexecuta
5bb0: 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 ble, object, pat
5bc0: 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 chlevel, procs,
5bd0: 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 script, sharedli
5be0: 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 bextension, tclv
5bf0: 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d ersion, or vars}
5c00: 0a 20 0a 20 23 23 0a 20 23 20 23 23 23 20 23 23 . . ##. # ### ##
5c10: 23 20 23 23 23 20 23 23 23 23 23 23 23 23 23 20 # ### #########
5c20: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
5c30: 23 23 23 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 ###.Index: tests
5c40: 2f 69 6e 69 74 2e 74 65 73 74 0a 3d 3d 3d 3d 3d /init.test.=====
5c50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5c60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5c70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
5c90: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
5ca0: 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f t/tcl/tcl/tests/
5cb0: 69 6e 69 74 2e 74 65 73 74 2c 76 0a 72 65 74 72 init.test,v.retr
5cc0: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
5cd0: 31 2e 32 31 0a 64 69 66 66 20 2d 75 20 2d 70 20 1.21.diff -u -p
5ce0: 2d 72 31 2e 32 31 20 69 6e 69 74 2e 74 65 73 74 -r1.21 init.test
5cf0: 0a 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 69 74 2e .--- tests/init.
5d00: 74 65 73 74 09 31 36 20 4e 6f 76 20 32 30 30 39 test.16 Nov 2009
5d10: 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 30 09 18:00:11 -0000.
5d20: 31 2e 32 31 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 1.21.+++ tests/i
5d30: 6e 69 74 2e 74 65 73 74 09 32 33 20 4d 61 72 20 nit.test.23 Mar
5d40: 32 30 31 30 20 32 31 3a 32 30 3a 30 35 20 2d 30 2010 21:20:05 -0
5d50: 30 30 30 0a 40 40 20 2d 31 38 31 2c 37 20 2b 31 000.@@ -181,7 +1
5d60: 38 31 2c 37 20 40 40 20 74 65 73 74 20 69 6e 69 81,7 @@ test ini
5d70: 74 2d 35 2e 30 20 7b 72 65 74 75 72 6e 20 6f 70 t-5.0 {return op
5d80: 74 69 6f 6e 73 20 70 61 73 73 65 64 20 74 68 72 tions passed thr
5d90: 0a 20 20 20 20 20 6c 69 73 74 20 24 63 6f 64 65 . list $code
5da0: 20 24 66 6f 6f 20 24 62 61 72 20 24 63 6f 64 65 $foo $bar $code
5db0: 32 20 24 66 6f 6f 32 20 24 62 61 72 32 0a 20 7d 2 $foo2 $bar2. }
5dc0: 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 -cleanup {.
5dd0: 20 75 6e 73 65 74 20 3a 3a 61 75 74 6f 5f 69 6e unset ::auto_in
5de0: 64 65 78 28 3a 3a 78 78 78 29 0a 2d 7d 20 2d 72 dex(::xxx).-} -r
5df0: 65 73 75 6c 74 20 7b 32 20 78 78 78 20 7b 2d 65 esult {2 xxx {-e
5e00: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 63 rrorcode NONE -c
5e10: 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 7d 20 ode 1 -level 1}
5e20: 32 20 78 78 78 20 7b 2d 63 6f 64 65 20 31 20 2d 2 xxx {-code 1 -
5e30: 6c 65 76 65 6c 20 31 20 2d 65 72 72 6f 72 63 6f level 1 -errorco
5e40: 64 65 20 4e 4f 4e 45 7d 7d 0a 2b 7d 20 2d 6d 61 de NONE}}.+} -ma
5e50: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
5e60: 20 7b 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 63 {2 xxx {-errorc
5e70: 6f 64 65 20 4e 4f 4e 45 20 2d 63 6f 64 65 20 31 ode NONE -code 1
5e80: 20 2d 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 -level 1} 2 xxx
5e90: 20 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c {-code 1 -level
5ea0: 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 1 -errorcode NO
5eb0: 4e 45 7d 7d 0a 20 0c 0a 20 63 6c 65 61 6e 75 70 NE}}. .. cleanup
5ec0: 54 65 73 74 73 0a 20 7d 09 3b 23 20 20 45 6e 64 Tests. }.;# End
5ed0: 20 6f 66 20 5b 69 6e 74 65 72 70 20 65 76 61 6c of [interp eval
5ee0: 20 24 74 65 73 74 49 6e 74 65 72 70 5d 0a 49 6e $testInterp].In
5ef0: 64 65 78 3a 20 74 65 73 74 73 2f 72 65 73 75 6c dex: tests/resul
5f00: 74 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d t.test.=========
5f10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5f20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5f30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
5f50: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
5f60: 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 72 65 73 75 l/tcl/tests/resu
5f70: 6c 74 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 lt.test,v.retrie
5f80: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
5f90: 31 35 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 15.diff -u -p -r
5fa0: 31 2e 31 35 20 72 65 73 75 6c 74 2e 74 65 73 74 1.15 result.test
5fb0: 0a 2d 2d 2d 20 74 65 73 74 73 2f 72 65 73 75 6c .--- tests/resul
5fc0: 74 2e 74 65 73 74 09 32 33 20 41 70 72 20 32 30 t.test.23 Apr 20
5fd0: 30 38 20 31 35 3a 34 34 3a 33 37 20 2d 30 30 30 08 15:44:37 -000
5fe0: 30 09 31 2e 31 35 0a 2b 2b 2b 20 74 65 73 74 73 0.1.15.+++ tests
5ff0: 2f 72 65 73 75 6c 74 2e 74 65 73 74 09 32 33 20 /result.test.23
6000: 4d 61 72 20 32 30 31 30 20 32 31 3a 32 30 3a 30 Mar 2010 21:20:0
6010: 35 20 2d 30 30 30 30 0a 40 40 20 2d 31 33 31 2c 5 -0000.@@ -131,
6020: 37 20 2b 31 33 31 2c 31 30 20 40 40 20 74 65 73 7 +131,10 @@ tes
6030: 74 20 72 65 73 75 6c 74 2d 36 2e 32 20 7b 42 75 t result-6.2 {Bu
6040: 67 20 31 36 34 39 30 36 32 7d 20 2d 73 65 74 75 g 1649062} -setu
6050: 70 20 7b 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 20 p {. } -cleanup
6060: 7b 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 66 6f {. rename fo
6070: 6f 20 7b 7d 0a 20 7d 20 2d 72 65 73 75 6c 74 20 o {}. } -result
6080: 7b 66 6f 6f 20 7b 7d 20 7b 7d 7d 0a 2d 0a 2b 74 {foo {} {}}.-.+t
6090: 65 73 74 20 72 65 73 75 6c 74 2d 36 2e 33 20 7b est result-6.3 {
60a0: 6e 6f 6e 2d 6c 69 73 74 20 2d 65 72 72 6f 72 73 non-list -errors
60b0: 74 61 63 6b 7d 20 7b 0a 2b 20 20 20 20 20 63 61 tack} {.+ ca
60c0: 74 63 68 20 7b 72 65 74 75 72 6e 20 2d 63 6f 64 tch {return -cod
60d0: 65 20 65 72 72 6f 72 20 2d 65 72 72 6f 72 73 74 e error -errorst
60e0: 61 63 6b 20 7b 7b 7d 61 7d 20 65 65 6b 7d 20 6d ack {{}a} eek} m
60f0: 20 6f 0a 2b 20 20 20 20 20 6c 69 73 74 20 24 6d o.+ list $m
6100: 20 5b 64 69 63 74 20 67 65 74 20 24 6f 20 2d 65 [dict get $o -e
6110: 72 72 6f 72 63 6f 64 65 5d 20 5b 64 69 63 74 20 rrorcode] [dict
6120: 67 65 74 20 24 6f 20 2d 65 72 72 6f 72 73 74 61 get $o -errorsta
6130: 63 6b 5d 0a 2b 7d 20 7b 7b 62 61 64 20 2d 65 72 ck].+} {{bad -er
6140: 72 6f 72 73 74 61 63 6b 20 76 61 6c 75 65 3a 20 rorstack value:
6150: 65 78 70 65 63 74 65 64 20 61 20 6c 69 73 74 20 expected a list
6160: 62 75 74 20 67 6f 74 20 22 7b 7d 61 22 7d 20 7b but got "{}a"} {
6170: 54 43 4c 20 52 45 53 55 4c 54 20 4e 4f 4e 4c 49 TCL RESULT NONLI
6180: 53 54 5f 45 52 52 4f 52 53 54 41 43 4b 7d 20 7b ST_ERRORSTACK} {
6190: 7d 7d 0a 20 23 20 63 6c 65 61 6e 75 70 0a 20 63 }}. # cleanup. c
61a0: 6c 65 61 6e 75 70 54 65 73 74 73 0a 20 72 65 74 leanupTests. ret
61b0: 75 72 6e 0a urn.
