Attachment "errorstack11.patch" to
ticket [2868499fff]
added by
ferrieux
2010-03-19 06:07:50.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 63 61 74 63 68 Index: doc/catch
0010: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0060: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0070: 6c 2f 64 6f 63 2f 63 61 74 63 68 2e 6e 2c 76 0a l/doc/catch.n,v.
0080: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0090: 69 6f 6e 20 31 2e 32 33 0a 64 69 66 66 20 2d 75 ion 1.23.diff -u
00a0: 20 2d 70 20 2d 72 31 2e 32 33 20 63 61 74 63 68 -p -r1.23 catch
00b0: 2e 6e 0a 2d 2d 2d 20 64 6f 63 2f 63 61 74 63 68 .n.--- doc/catch
00c0: 2e 6e 09 31 33 20 4a 61 6e 20 32 30 31 30 20 31 .n.13 Jan 2010 1
00d0: 32 3a 30 38 3a 33 30 20 2d 30 30 30 30 09 31 2e 2:08:30 -0000.1.
00e0: 32 33 0a 2b 2b 2b 20 64 6f 63 2f 63 61 74 63 68 23.+++ doc/catch
00f0: 2e 6e 09 31 38 20 4d 61 72 20 32 30 31 30 20 32 .n.18 Mar 2010 2
0100: 33 3a 30 35 3a 30 30 20 2d 30 30 30 30 0a 40 40 3:05:00 -0000.@@
0110: 20 2d 35 34 2c 32 32 20 2b 35 34 2c 33 33 20 40 -54,22 +54,33 @
0120: 40 20 4f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 @ Only when the
0130: 72 65 74 75 72 6e 20 63 6f 64 65 20 69 73 20 5c return code is \
0140: 66 42 54 43 4c 5f 52 45 54 55 0a 20 74 68 65 20 fBTCL_RETU. the
0150: 5c 66 42 5c 2d 6c 65 76 65 6c 5c 66 52 20 61 6e \fB\-level\fR an
0160: 64 20 5c 66 42 5c 2d 63 6f 64 65 5c 66 52 20 65 d \fB\-code\fR e
0170: 6e 74 72 69 65 73 20 62 65 20 73 6f 6d 65 74 68 ntries be someth
0180: 69 6e 67 20 65 6c 73 65 2c 20 61 73 0a 20 66 75 ing else, as. fu
0190: 72 74 68 65 72 20 64 65 73 63 72 69 62 65 64 20 rther described
01a0: 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 in the documenta
01b0: 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 5c 66 42 tion for the \fB
01c0: 72 65 74 75 72 6e 5c 66 52 20 63 6f 6d 6d 61 6e return\fR comman
01d0: 64 2e 0a 20 2e 50 50 0a 2d 57 68 65 6e 20 74 68 d.. .PP.-When th
01e0: 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 e return code fr
01f0: 6f 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 om evaluation of
0200: 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 \fIscript\fR is
0210: 20 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 \fBTCL_ERROR\fR
0220: 2c 0a 2d 74 68 72 65 65 20 61 64 64 69 74 69 6f ,.-three additio
0230: 6e 61 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 nal entries are
0240: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 defined in the d
0250: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0260: 75 72 6e 20 6f 70 74 69 6f 6e 73 0a 2d 73 74 6f urn options.-sto
0270: 72 65 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e red in \fIoption
0280: 73 56 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 sVarName\fR: \fB
0290: 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 20 \-errorinfo\fR,
02a0: 5c 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 \fB\-errorcode\f
02b0: 52 2c 20 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 R, .-and \fB\-er
02c0: 72 6f 72 6c 69 6e 65 5c 66 52 2e 20 20 54 68 65 rorline\fR. The
02d0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
02e0: 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 20 B\-errorinfo\fR
02f0: 65 6e 74 72 79 0a 2d 69 73 20 61 20 66 6f 72 6d entry.-is a form
0300: 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 atted stack trac
0310: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 6f 72 e containing mor
0320: 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 e information ab
0330: 6f 75 74 0a 2d 74 68 65 20 63 6f 6e 74 65 78 74 out.-the context
0340: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 72 in which the er
0350: 72 6f 72 20 68 61 70 70 65 6e 65 64 2e 20 20 54 ror happened. T
0360: 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 he formatted sta
0370: 63 6b 0a 2d 74 72 61 63 65 20 69 73 20 6d 65 61 ck.-trace is mea
0380: 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 nt to be read by
0390: 20 61 20 70 65 72 73 6f 6e 2e 20 20 54 68 65 20 a person. The
03a0: 76 61 6c 75 65 20 6f 66 0a 2d 74 68 65 20 5c 66 value of.-the \f
03b0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
03c0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
03d0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 nal information
03e0: 61 62 6f 75 74 20 74 68 65 0a 2d 65 72 72 6f 72 about the.-error
03f0: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0400: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0410: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0420: 69 73 20 6d 65 61 6e 74 20 74 6f 0a 2d 62 65 20 is meant to.-be
0430: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0440: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0450: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0460: 72 74 69 63 75 6c 61 72 6c 79 0a 2d 72 65 61 64 rticularly.-read
0470: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0480: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
0490: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
04a0: 5c 66 52 20 65 6e 74 72 79 0a 2d 69 73 20 61 6e \fR entry.-is an
04b0: 20 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 integer indicat
04c0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
04d0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
04e0: 61 73 20 62 65 69 6e 67 0a 2d 65 76 61 6c 75 61 as being.-evalua
04f0: 74 65 64 20 77 68 65 6e 20 74 68 65 20 65 72 72 ted when the err
0500: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0510: 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 e values of the
0520: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0530: 52 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 72 6f R.-and \fB\-erro
0540: 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 65 73 rcode\fR entries
0550: 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 of the most rec
0560: 65 6e 74 20 65 72 72 6f 72 20 61 72 65 20 61 6c ent error are al
0570: 73 6f 0a 2d 61 76 61 69 6c 61 62 6c 65 20 61 73 so.-available as
0580: 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 67 values of the g
0590: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 lobal variables
05a0: 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 6f 5c 66 \fB::errorInfo\f
05b0: 52 0a 2d 61 6e 64 20 5c 66 42 3a 3a 65 72 72 6f R.-and \fB::erro
05c0: 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 63 74 rCode\fR respect
05d0: 69 76 65 6c 79 2e 0a 2b 57 68 65 6e 20 74 68 65 ively..+When the
05e0: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f return code fro
05f0: 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 m evaluation of
0600: 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 0a \fIscript\fR is.
0610: 2b 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 +\fBTCL_ERROR\fR
0620: 2c 20 66 6f 75 72 20 61 64 64 69 74 69 6f 6e 61 , four additiona
0630: 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 64 65 l entries are de
0640: 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 69 63 fined in the dic
0650: 74 69 6f 6e 61 72 79 0a 2b 6f 66 20 72 65 74 75 tionary.+of retu
0660: 72 6e 20 6f 70 74 69 6f 6e 73 20 73 74 6f 72 65 rn options store
0670: 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e 73 56 d in \fIoptionsV
0680: 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 5c 2d arName\fR: \fB\-
0690: 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 0a 2b 5c errorinfo\fR,.+\
06a0: 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 fB\-errorcode\fR
06b0: 2c 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 , \fB\-errorline
06c0: 5c 66 52 2c 20 61 6e 64 20 5c 66 42 5c 2d 65 72 \fR, and \fB\-er
06d0: 72 6f 72 73 74 61 63 6b 5c 66 52 2e 20 20 54 68 rorstack\fR. Th
06e0: 65 0a 2b 76 61 6c 75 65 20 6f 66 20 74 68 65 20 e.+value of the
06f0: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0700: 52 20 65 6e 74 72 79 20 69 73 20 61 20 66 6f 72 R entry is a for
0710: 6d 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 matted stack tra
0720: 63 65 0a 2b 63 6f 6e 74 61 69 6e 69 6e 67 20 6d ce.+containing m
0730: 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ore information
0740: 61 62 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 about the contex
0750: 74 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 t in which the e
0760: 72 72 6f 72 0a 2b 68 61 70 70 65 6e 65 64 2e 20 rror.+happened.
0770: 20 54 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 The formatted s
0780: 74 61 63 6b 20 74 72 61 63 65 20 69 73 20 6d 65 tack trace is me
0790: 61 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 ant to be read b
07a0: 79 20 61 20 70 65 72 73 6f 6e 2e 0a 2b 54 68 65 y a person..+The
07b0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
07c0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
07d0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
07e0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a nal information.
07f0: 2b 61 62 6f 75 74 20 74 68 65 20 65 72 72 6f 72 +about the error
0800: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0810: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0820: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0830: 69 73 0a 2b 6d 65 61 6e 74 20 74 6f 20 62 65 20 is.+meant to be
0840: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0850: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0860: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0870: 72 74 69 63 75 6c 61 72 6c 79 0a 2b 72 65 61 64 rticularly.+read
0880: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0890: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
08a0: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
08b0: 5c 66 52 20 65 6e 74 72 79 20 69 73 20 61 6e 0a \fR entry is an.
08c0: 2b 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 +integer indicat
08d0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
08e0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
08f0: 61 73 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 as being evaluat
0900: 65 64 20 77 68 65 6e 0a 2b 74 68 65 20 65 72 72 ed when.+the err
0910: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0920: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c e value of the \
0930: 66 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c 66 fB\-errorstack\f
0940: 52 20 65 6e 74 72 79 20 69 73 20 61 0a 2b 6c 69 R entry is a.+li
0950: 73 74 20 6f 66 20 6c 69 73 74 73 20 6d 61 64 65 st of lists made
0960: 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e of the function
0970: 20 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 6d names and argum
0980: 65 6e 74 73 20 61 74 20 65 61 63 68 20 6c 65 76 ents at each lev
0990: 65 6c 0a 2b 66 72 6f 6d 20 74 68 65 20 63 61 6c el.+from the cal
09a0: 6c 20 73 74 61 63 6b 20 77 68 65 6e 20 74 68 65 l stack when the
09b0: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e error occurred.
09c0: 20 49 74 20 64 69 66 66 65 72 73 20 66 72 6f 6d It differs from
09d0: 0a 2b 2d 65 72 72 6f 72 69 6e 66 6f 20 69 6e 20 .+-errorinfo in
09e0: 74 68 61 74 20 28 31 29 20 69 74 20 69 73 20 61 that (1) it is a
09f0: 20 74 72 75 65 20 6c 69 73 74 20 6f 66 20 6c 69 true list of li
0a00: 73 74 73 2c 20 66 6f 72 20 65 61 73 79 0a 2b 70 sts, for easy.+p
0a10: 72 6f 67 72 61 6d 6d 61 74 69 63 20 61 63 63 65 rogrammatic acce
0a20: 73 73 20 77 69 74 68 6f 75 74 20 70 61 72 73 69 ss without parsi
0a30: 6e 67 2c 20 28 32 29 20 69 74 20 63 6f 6e 74 61 ng, (2) it conta
0a40: 69 6e 73 20 74 68 65 20 74 72 75 65 0a 2b 28 73 ins the true.+(s
0a50: 75 62 73 74 69 74 75 74 65 64 29 20 76 61 6c 75 ubstituted) valu
0a60: 65 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 es passed to the
0a70: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 69 6e 73 74 functions, inst
0a80: 65 61 64 20 6f 66 20 74 68 65 20 73 74 61 74 69 ead of the stati
0a90: 63 0a 2b 74 65 78 74 20 6f 66 20 74 68 65 20 63 c.+text of the c
0aa0: 61 6c 6c 69 6e 67 20 73 69 74 65 73 2c 20 61 6e alling sites, an
0ab0: 64 20 28 33 29 20 69 74 20 69 73 20 63 6f 61 72 d (3) it is coar
0ac0: 73 65 72 2d 67 72 61 69 6e 65 64 2c 20 77 69 74 ser-grained, wit
0ad0: 68 20 6f 6e 6c 79 0a 2b 6f 6e 65 20 65 6c 65 6d h only.+one elem
0ae0: 65 6e 74 20 70 65 72 20 73 74 61 63 6b 20 66 72 ent per stack fr
0af0: 61 6d 65 20 28 6c 69 6b 65 20 70 72 6f 63 73 3b ame (like procs;
0b00: 20 6e 6f 20 73 65 70 61 72 61 74 65 20 65 6c 65 no separate ele
0b10: 6d 65 6e 74 73 20 66 6f 72 0a 2b 5b 66 6f 72 65 ments for.+[fore
0b20: 61 63 68 5d 20 63 6f 6e 73 74 72 75 63 74 73 20 ach] constructs
0b30: 66 6f 72 20 65 78 61 6d 70 6c 65 29 2e 0a 2b 0a for example)..+.
0b40: 2b 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 +The values of t
0b50: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 he \fB\-errorinf
0b60: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 5c 2d 65 72 o\fR and \fB\-er
0b70: 72 6f 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 rorcode\fR entri
0b80: 65 73 20 6f 66 0a 2b 74 68 65 20 6d 6f 73 74 20 es of.+the most
0b90: 72 65 63 65 6e 74 20 65 72 72 6f 72 20 61 72 65 recent error are
0ba0: 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 also available
0bb0: 61 73 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 as values of the
0bc0: 20 67 6c 6f 62 61 6c 0a 2b 76 61 72 69 61 62 6c global.+variabl
0bd0: 65 73 20 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 es \fB::errorInf
0be0: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 3a 3a 65 72 o\fR and \fB::er
0bf0: 72 6f 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 rorCode\fR respe
0c00: 63 74 69 76 65 6c 79 2e 20 54 68 65 0a 2b 76 61 ctively. The.+va
0c10: 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 42 5c 2d lue of the \fB\-
0c20: 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 20 65 6e errorstack\fR en
0c30: 74 72 79 20 73 75 72 66 61 63 65 73 20 61 73 20 try surfaces as
0c40: 5c 66 42 69 6e 66 6f 0a 2b 65 72 72 6f 72 73 74 \fBinfo.+errorst
0c50: 61 63 6b 5c 66 52 2e 0a 20 2e 50 50 0a 20 54 63 ack\fR.. .PP. Tc
0c60: 6c 20 70 61 63 6b 61 67 65 73 20 6d 61 79 20 70 l packages may p
0c70: 72 6f 76 69 64 65 20 63 6f 6d 6d 61 6e 64 73 20 rovide commands
0c80: 74 68 61 74 20 73 65 74 20 6f 74 68 65 72 20 65 that set other e
0c90: 6e 74 72 69 65 73 20 69 6e 20 74 68 65 0a 20 64 ntries in the. d
0ca0: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0cb0: 75 72 6e 20 6f 70 74 69 6f 6e 73 2c 20 61 6e 64 urn options, and
0cc0: 20 74 68 65 20 5c 66 42 72 65 74 75 72 6e 5c 66 the \fBreturn\f
0cd0: 52 20 63 6f 6d 6d 61 6e 64 20 6d 61 79 20 62 65 R command may be
0ce0: 0a 49 6e 64 65 78 3a 20 64 6f 63 2f 69 6e 66 6f .Index: doc/info
0cf0: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
0d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d30: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0d40: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0d50: 6c 2f 64 6f 63 2f 69 6e 66 6f 2e 6e 2c 76 0a 72 l/doc/info.n,v.r
0d60: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
0d70: 6f 6e 20 31 2e 33 35 0a 64 69 66 66 20 2d 75 20 on 1.35.diff -u
0d80: 2d 70 20 2d 72 31 2e 33 35 20 69 6e 66 6f 2e 6e -p -r1.35 info.n
0d90: 0a 2d 2d 2d 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 .--- doc/info.n.
0da0: 31 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 16 Nov 2009 18:0
0db0: 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 33 35 0a 0:11 -0000.1.35.
0dc0: 2b 2b 2b 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 31 +++ doc/info.n.1
0dd0: 38 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 35 8 Mar 2010 23:05
0de0: 3a 30 31 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 :01 -0000.@@ -94
0df0: 2c 36 20 2b 39 34 2c 31 36 20 40 40 20 64 6f 65 ,6 +94,16 @@ doe
0e00: 73 20 6e 6f 74 20 68 61 76 65 20 61 20 64 65 66 s not have a def
0e10: 61 75 6c 74 20 76 61 6c 75 65 20 74 68 65 6e 20 ault value then
0e20: 74 68 65 20 63 0a 20 4f 74 68 65 72 77 69 73 65 the c. Otherwise
0e30: 20 69 74 20 72 65 74 75 72 6e 73 20 5c 66 42 31 it returns \fB1
0e40: 5c 66 52 20 61 6e 64 20 70 6c 61 63 65 73 20 74 \fR and places t
0e50: 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 he default value
0e60: 20 6f 66 20 5c 66 49 61 72 67 5c 66 52 0a 20 69 of \fIarg\fR. i
0e70: 6e 74 6f 20 76 61 72 69 61 62 6c 65 20 5c 66 49 nto variable \fI
0e80: 76 61 72 6e 61 6d 65 5c 66 52 2e 0a 20 2e 54 50 varname\fR.. .TP
0e90: 0a 2b 5c 66 42 69 6e 66 6f 20 65 72 72 6f 72 73 .+\fBinfo errors
0ea0: 74 61 63 6b 20 5c 66 52 3f 5c 66 49 69 6e 74 65 tack \fR?\fIinte
0eb0: 72 70 5c 66 52 3f 0a 2b 2e 0a 2b 52 65 74 75 72 rp\fR?.+..+Retur
0ec0: 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 ns a list of lis
0ed0: 74 73 20 6d 61 64 65 20 6f 66 20 74 68 65 20 66 ts made of the f
0ee0: 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e unction names an
0ef0: 64 20 61 72 67 75 6d 65 6e 74 73 20 61 74 0a 2b d arguments at.+
0f00: 65 61 63 68 20 6c 65 76 65 6c 20 66 72 6f 6d 20 each level from
0f10: 74 68 65 20 63 61 6c 6c 20 73 74 61 63 6b 20 6f the call stack o
0f20: 66 20 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 f the last error
0f30: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 0a 2b 5c in the given.+\
0f40: 66 49 69 6e 74 65 72 70 5c 66 52 2c 20 6f 72 20 fIinterp\fR, or
0f50: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f in the current o
0f60: 6e 65 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 ne if not specif
0f70: 69 65 64 2e 20 20 54 68 69 73 0a 2b 69 6e 66 6f ied. This.+info
0f80: 72 6d 61 74 69 6f 6e 20 69 73 20 61 6c 73 6f 20 rmation is also
0f90: 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 2d present in the -
0fa0: 65 72 72 6f 72 73 74 61 63 6b 20 65 6e 74 72 79 errorstack entry
0fb0: 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 0a of the options.
0fc0: 2b 64 69 63 74 69 6f 6e 61 72 79 20 72 65 74 75 +dictionary retu
0fd0: 72 6e 65 64 20 62 79 20 33 2d 61 72 67 20 5c 66 rned by 3-arg \f
0fe0: 42 63 61 74 63 68 5c 66 52 3b 20 5c 66 42 69 6e Bcatch\fR; \fBin
0ff0: 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 fo errorstack\fR
1000: 20 69 73 20 61 0a 2b 63 6f 6e 76 65 6e 69 65 6e is a.+convenien
1010: 74 20 77 61 79 20 6f 66 20 72 65 74 72 69 65 76 t way of retriev
1020: 69 6e 67 20 69 74 20 66 6f 72 20 75 6e 63 61 75 ing it for uncau
1030: 67 68 74 20 65 72 72 6f 72 73 20 61 74 20 74 6f ght errors at to
1040: 70 6c 65 76 65 6c 20 69 6e 20 61 6e 0a 2b 69 6e plevel in an.+in
1050: 74 65 72 61 63 74 69 76 65 20 74 63 6c 73 68 2e teractive tclsh.
1060: 0a 2b 2e 54 50 0a 20 5c 66 42 69 6e 66 6f 20 65 .+.TP. \fBinfo e
1070: 78 69 73 74 73 20 5c 66 49 76 61 72 4e 61 6d 65 xists \fIvarName
1080: 5c 66 52 0a 20 2e 0a 20 52 65 74 75 72 6e 73 20 \fR. .. Returns
1090: 5c 66 42 31 5c 66 52 20 69 66 20 74 68 65 20 76 \fB1\fR if the v
10a0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 64 20 5c 66 ariable named \f
10b0: 49 76 61 72 4e 61 6d 65 5c 66 52 20 65 78 69 73 IvarName\fR exis
10c0: 74 73 20 69 6e 20 74 68 65 0a 49 6e 64 65 78 3a ts in the.Index:
10d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 generic/tclBasi
10e0: 63 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.c.============
10f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1120: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
1130: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
1140: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 cl/generic/tclBa
1150: 73 69 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 sic.c,v.retrievi
1160: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 34 ng revision 1.44
1170: 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 8.diff -u -p -r1
1180: 2e 34 34 38 20 74 63 6c 42 61 73 69 63 2e 63 0a .448 tclBasic.c.
1190: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 --- generic/tclB
11a0: 61 73 69 63 2e 63 09 35 20 4d 61 72 20 32 30 31 asic.c.5 Mar 201
11b0: 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 30 30 30 0 14:34:03 -0000
11c0: 09 31 2e 34 34 38 0a 2b 2b 2b 20 67 65 6e 65 72 .1.448.+++ gener
11d0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 31 38 ic/tclBasic.c.18
11e0: 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 35 3a Mar 2010 23:05:
11f0: 30 39 20 2d 30 30 30 30 0a 40 40 20 2d 35 32 39 09 -0000.@@ -529
1200: 2c 36 20 2b 35 32 39 2c 39 20 40 40 20 54 63 6c ,6 +529,9 @@ Tcl
1210: 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f _CreateInterp(vo
1220: 69 64 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 id). iPtr->e
1230: 72 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b rrorInfo = NULL;
1240: 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 . TclNewLite
1250: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 ralStringObj(iPt
1260: 72 2d 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 r->eiVar, "::err
1270: 6f 72 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 orInfo");. T
1280: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1290: 69 50 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 iPtr->eiVar);.+
12a0: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 iPtr->errorSt
12b0: 61 63 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 ack = Tcl_NewLis
12c0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b tObj(0, NULL);.+
12d0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
12e0: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
12f0: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 Stack);.+ iPt
1300: 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 r->resetErrorSta
1310: 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 ck = 1;. iPt
1320: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e r->errorCode = N
1330: 55 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 ULL;. TclNew
1340: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
1350: 28 69 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a (iPtr->ecVar, ":
1360: 3a 65 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 :errorCode");.
1370: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
1380: 75 6e 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 unt(iPtr->ecVar)
1390: 3b 0a 40 40 20 2d 31 34 36 37 2c 36 20 2b 31 34 ;.@@ -1467,6 +14
13a0: 37 30 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 70,7 @@ DeleteIn
13b0: 74 65 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f terpProc(. .Tcl_
13c0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 DecrRefCount(iPt
13d0: 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 r->errorInfo);.
13e0: 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f .iPtr->errorInfo
13f0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a = NULL;. }.
1400: 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 + Tcl_DecrRef
1410: 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f Count(iPtr->erro
1420: 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 rStack);. if
1430: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 (iPtr->returnOp
1440: 74 73 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 ts) {. .Tcl_Decr
1450: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 RefCount(iPtr->r
1460: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 eturnOpts);.
1470: 20 7d 0a 40 40 20 2d 38 39 34 33 2c 35 20 2b 38 }.@@ -8943,5 +8
1480: 39 34 37 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 947,7 @@ TclInfo
1490: 43 6f 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 CoroutineCmd(.
14a0: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
14b0: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
14c0: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
14d0: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
14e0: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
14f0: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
1500: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
1510: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 ex: generic/tclC
1520: 6d 64 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d mdIL.c.=========
1530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1560: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1570: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1580: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1590: 6c 43 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 lCmdIL.c,v.retri
15a0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
15b0: 2e 31 38 30 0a 64 69 66 66 20 2d 75 20 2d 70 20 .180.diff -u -p
15c0: 2d 72 31 2e 31 38 30 20 74 63 6c 43 6d 64 49 4c -r1.180 tclCmdIL
15d0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
15e0: 63 6c 43 6d 64 49 4c 2e 63 09 35 20 4d 61 72 20 clCmdIL.c.5 Mar
15f0: 32 30 31 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 2010 14:34:03 -0
1600: 30 30 30 09 31 2e 31 38 30 0a 2b 2b 2b 20 67 65 000.1.180.+++ ge
1610: 6e 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 neric/tclCmdIL.c
1620: 09 31 38 20 4d 61 72 20 32 30 31 30 20 32 33 3a .18 Mar 2010 23:
1630: 30 35 3a 31 33 20 2d 30 30 30 30 0a 40 40 20 2d 05:13 -0000.@@ -
1640: 31 31 38 2c 36 20 2b 31 31 38 2c 39 20 40 40 20 118,6 +118,9 @@
1650: 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e 66 6f static int..Info
1660: 43 6f 6d 70 6c 65 74 65 43 6d 64 28 43 6c 69 65 CompleteCmd(Clie
1670: 6e 74 44 61 74 61 20 64 0a 20 09 09 09 20 20 20 ntData d. ...
1680: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1690: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
16a0: 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 );. static int..
16b0: 49 6e 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 43 InfoDefaultCmd(C
16c0: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
16d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
16e0: 65 72 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 erp,. ... int
16f0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
1700: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 2b const objv[]);.+
1710: 2f 2a 20 54 49 50 20 23 33 34 38 20 2d 20 4e 65 /* TIP #348 - Ne
1720: 77 20 27 69 6e 66 6f 27 20 73 75 62 63 6f 6d 6d w 'info' subcomm
1730: 61 6e 64 20 27 65 72 72 6f 72 73 74 61 63 6b 27 and 'errorstack'
1740: 20 2a 2f 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 */.+static int.
1750: 09 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 .InfoErrorStackC
1760: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 md(ClientData du
1770: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
1780: 2a 69 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 *interp,.+...
1790: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
17a0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
17b0: 29 3b 0a 20 2f 2a 20 54 49 50 20 23 32 38 30 20 );. /* TIP #280
17c0: 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 62 - New 'info' sub
17d0: 63 6f 6d 6d 61 6e 64 20 27 66 72 61 6d 65 27 20 command 'frame'
17e0: 2a 2f 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 */. static int..
17f0: 49 6e 66 6f 46 72 61 6d 65 43 6d 64 28 43 6c 69 InfoFrameCmd(Cli
1800: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 entData dummy, T
1810: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1820: 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f p,. ... int o
1830: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
1840: 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 40 40 20 nst objv[]);.@@
1850: 2d 31 36 34 2c 36 20 2b 31 36 37 2c 37 20 40 40 -164,6 +167,7 @@
1860: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 45 6e static const En
1870: 73 65 6d 62 6c 65 49 6d 70 6c 4d 61 70 20 64 65 sembleImplMap de
1880: 66 61 75 6c 74 49 6e 66 6f 0a 20 20 20 20 20 7b faultInfo. {
1890: 22 63 6f 6d 70 6c 65 74 65 22 2c 09 20 20 20 49 "complete",. I
18a0: 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 2c 09 nfoCompleteCmd,.
18b0: 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 NULL, NULL,
18c0: 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 63 6f NULL},. {"co
18d0: 72 6f 75 74 69 6e 65 22 2c 09 20 20 20 54 63 6c routine",. Tcl
18e0: 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 6d 64 InfoCoroutineCmd
18f0: 2c 20 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c , NULL, NULL
1900: 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 , NULL},. {"
1910: 64 65 66 61 75 6c 74 22 2c 09 09 20 20 20 49 6e default",.. In
1920: 66 6f 44 65 66 61 75 6c 74 43 6d 64 2c 09 20 20 foDefaultCmd,.
1930: 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 NULL, NULL, NU
1940: 4c 4c 7d 2c 0a 2b 20 20 20 20 7b 22 65 72 72 6f LL},.+ {"erro
1950: 72 73 74 61 63 6b 22 2c 09 20 20 20 49 6e 66 6f rstack",. Info
1960: 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 2c 09 20 ErrorStackCmd,.
1970: 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e NULL, NULL, N
1980: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 65 78 69 ULL},. {"exi
1990: 73 74 73 22 2c 09 09 20 20 20 54 63 6c 49 6e 66 sts",.. TclInf
19a0: 6f 45 78 69 73 74 73 43 6d 64 2c 09 20 20 20 20 oExistsCmd,.
19b0: 54 63 6c 43 6f 6d 70 69 6c 65 49 6e 66 6f 45 78 TclCompileInfoEx
19c0: 69 73 74 73 43 6d 64 2c 20 4e 55 4c 4c 2c 20 4e istsCmd, NULL, N
19d0: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 66 72 61 ULL},. {"fra
19e0: 6d 65 22 2c 09 09 20 20 20 49 6e 66 6f 46 72 61 me",.. InfoFra
19f0: 6d 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c meCmd,. NULL,
1a00: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 NULL, NULL},.
1a10: 20 20 20 7b 22 66 75 6e 63 74 69 6f 6e 73 22 2c {"functions",
1a20: 09 20 20 20 49 6e 66 6f 46 75 6e 63 74 69 6f 6e . InfoFunction
1a30: 73 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 sCmd,. NULL,
1a40: 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 40 40 20 NULL, NULL},.@@
1a50: 2d 31 30 32 32 2c 36 20 2b 31 30 32 36 2c 35 35 -1022,6 +1026,55
1a60: 20 40 40 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 @@ InfoDefaultC
1a70: 6d 64 28 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d md(. /*. *-----
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 0a 20 20 2a 0a 2b 20 2a 20 49 6e 66 6f 45 72 -. *.+ * InfoEr
1ad0: 72 6f 72 53 74 61 63 6b 43 6d 64 20 2d 2d 0a 2b rorStackCmd --.+
1ae0: 20 2a 0a 2b 20 2a 09 43 61 6c 6c 65 64 20 74 6f *.+ *.Called to
1af0: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
1b00: 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 22 info errorstack"
1b10: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 72 65 command that re
1b20: 74 75 72 6e 73 20 69 6e 66 6f 72 6d 61 74 69 6f turns informatio
1b30: 6e 0a 2b 20 2a 09 61 62 6f 75 74 20 74 68 65 20 n.+ *.about the
1b40: 6c 61 73 74 20 65 72 72 6f 72 27 73 20 63 61 6c last error's cal
1b50: 6c 20 73 74 61 63 6b 2e 20 48 61 6e 64 6c 65 73 l stack. Handles
1b60: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
1b70: 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b 20 2a 09 20 yntax:.+ *.+ *.
1b80: 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 info errorsta
1b90: 63 6b 20 3f 69 6e 74 65 72 70 3f 0a 2b 20 2a 0a ck ?interp?.+ *.
1ba0: 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a + * Results:.+ *
1bb0: 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f 4b 20 .Returns TCL_OK
1bc0: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e if successful an
1bd0: 64 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 74 d TCL_ERROR if t
1be0: 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f 72 here is an error
1bf0: 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 ..+ *.+ * Side e
1c00: 66 66 65 63 74 73 3a 0a 2b 20 2a 09 52 65 74 75 ffects:.+ *.Retu
1c10: 72 6e 73 20 61 20 72 65 73 75 6c 74 20 69 6e 20 rns a result in
1c20: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 the interpreter'
1c30: 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 74 2e s result object.
1c40: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 0a If there is an.
1c50: 2b 20 2a 09 65 72 72 6f 72 2c 20 74 68 65 20 72 + *.error, the r
1c60: 65 73 75 6c 74 20 69 73 20 61 6e 20 65 72 72 6f esult is an erro
1c70: 72 20 6d 65 73 73 61 67 65 2e 0a 2b 20 2a 0a 2b r message..+ *.+
1c80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a --------.+ */.+.
1cd0: 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 49 6e 66 +static int.+Inf
1ce0: 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 28 0a oErrorStackCmd(.
1cf0: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 + ClientData
1d00: 64 75 6d 6d 79 2c 09 09 2f 2a 20 4e 6f 74 20 75 dummy,../* Not u
1d10: 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c sed. */.+ Tcl
1d20: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1d30: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ../* Current int
1d40: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 erpreter. */.+
1d50: 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 2f 2a int objc,.../*
1d60: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
1d70: 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 ents. */.+ Tc
1d80: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
1d90: 76 5b 5d 29 09 2f 2a 20 41 72 67 75 6d 65 6e 74 v[])./* Argument
1da0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a objects. */.+{.
1db0: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 + Tcl_Interp
1dc0: 2a 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 49 6e *target;.+ In
1dd0: 74 65 72 70 20 2a 69 50 74 72 3b 0a 2b 0a 2b 20 terp *iPtr;.+.+
1de0: 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 3d 20 if ((objc !=
1df0: 31 29 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 32 1) && (objc != 2
1e00: 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 )) {.+.Tcl_Wrong
1e10: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
1e20: 31 2c 20 6f 62 6a 76 2c 20 22 3f 69 6e 74 65 72 1, objv, "?inter
1e30: 70 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 p?");.+.return T
1e40: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
1e50: 0a 2b 20 20 20 20 0a 2b 20 20 20 20 74 61 72 67 .+ .+ targ
1e60: 65 74 20 3d 20 69 6e 74 65 72 70 3b 0a 2b 20 20 et = interp;.+
1e70: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 if (objc == 2)
1e80: 20 7b 0a 2b 20 20 20 20 20 20 20 20 74 61 72 67 {.+ targ
1e90: 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 6c 61 76 et = Tcl_GetSlav
1ea0: 65 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 e(interp, Tcl_Ge
1eb0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1ec0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 20 28 );.+ if (
1ed0: 74 61 72 67 65 74 20 3d 3d 20 4e 55 4c 4c 29 20 target == NULL)
1ee0: 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 72 {.+ r
1ef0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1f00: 0a 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 .+ }.+
1f10: 20 7d 0a 2b 0a 2b 20 20 20 20 69 50 74 72 20 3d }.+.+ iPtr =
1f20: 20 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67 (Interp *) targ
1f30: 65 74 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 65 74 et;.+ Tcl_Set
1f40: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1f50: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
1f60: 63 6b 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 ck);.+ .+
1f70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b return TCL_OK;.+
1f80: 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d }.+..+/*.+ *----
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 6c 49 6e --.+ *. * TclIn
1fe0: 66 6f 45 78 69 73 74 73 43 6d 64 20 2d 2d 0a 20 foExistsCmd --.
1ff0: 20 2a 0a 20 20 2a 09 43 61 6c 6c 65 64 20 74 6f *. *.Called to
2000: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
2010: 69 6e 66 6f 20 65 78 69 73 74 73 22 20 63 6f 6d info exists" com
2020: 6d 61 6e 64 20 74 68 61 74 20 64 65 74 65 72 6d mand that determ
2030: 69 6e 65 73 20 77 68 65 74 68 65 72 0a 40 40 20 ines whether.@@
2040: 2d 34 34 30 31 2c 35 20 2b 34 34 35 34 2c 37 20 -4401,5 +4454,7
2050: 40 40 20 53 65 6c 65 63 74 4f 62 6a 46 72 6f 6d @@ SelectObjFrom
2060: 53 75 62 6c 69 73 74 28 0a 20 20 2a 20 6d 6f 64 Sublist(. * mod
2070: 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 e: c. * c-basic
2080: 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 -offset: 4. * f
2090: 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b ill-column: 78.+
20a0: 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0a * tab-width: 8.
20b0: 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d + * indent-tabs-
20c0: 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e mode: nil. * En
20d0: 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 d:. */.Index: g
20e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
20f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2120: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2130: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2140: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2150: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
2160: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
2170: 69 73 69 6f 6e 20 31 2e 34 36 34 0a 64 69 66 66 ision 1.464.diff
2180: 20 2d 75 20 2d 70 20 2d 72 31 2e 34 36 34 20 74 -u -p -r1.464 t
2190: 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 clInt.h.--- gene
21a0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 35 20 4d ric/tclInt.h.5 M
21b0: 61 72 20 32 30 31 30 20 31 34 3a 33 34 3a 30 34 ar 2010 14:34:04
21c0: 20 2d 30 30 30 30 09 31 2e 34 36 34 0a 2b 2b 2b -0000.1.464.+++
21d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e generic/tclInt.
21e0: 68 09 31 38 20 4d 61 72 20 32 30 31 30 20 32 33 h.18 Mar 2010 23
21f0: 3a 30 35 3a 32 32 20 2d 30 30 30 30 0a 40 40 20 :05:22 -0000.@@
2200: 2d 31 39 38 34 2c 36 20 2b 31 39 38 34 2c 38 20 -1984,6 +1984,8
2210: 40 40 20 74 79 70 65 64 65 66 20 73 74 72 75 63 @@ typedef struc
2220: 74 20 49 6e 74 65 72 70 20 7b 0a 20 20 20 20 20 t Interp {.
2230: 54 63 6c 5f 4f 62 6a 20 2a 65 69 56 61 72 3b 09 Tcl_Obj *eiVar;.
2240: 09 2f 2a 20 63 61 63 68 65 64 20 72 65 66 20 74 ./* cached ref t
2250: 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 61 o ::errorInfo va
2260: 72 69 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 20 20 riable. */.
2270: 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 43 6f Tcl_Obj *errorCo
2280: 64 65 3b 09 09 2f 2a 20 65 72 72 6f 72 43 6f 64 de;../* errorCod
2290: 65 20 76 61 6c 75 65 20 28 6e 6f 77 20 61 73 20 e value (now as
22a0: 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f 0a 20 a Tcl_Obj). */.
22b0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 63 56 Tcl_Obj *ecV
22c0: 61 72 3b 09 09 2f 2a 20 63 61 63 68 65 64 20 72 ar;../* cached r
22d0: 65 66 20 74 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 ef to ::errorInf
22e0: 6f 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 2b o variable. */.+
22f0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 Tcl_Obj *err
2300: 6f 72 53 74 61 63 6b 3b 09 2f 2a 20 5b 69 6e 66 orStack;./* [inf
2310: 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 20 76 61 o errorstack] va
2320: 6c 75 65 20 28 61 73 20 61 20 54 63 6c 5f 4f 62 lue (as a Tcl_Ob
2330: 6a 29 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 j). */.+ int
2340: 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 3b resetErrorStack;
2350: 20 20 20 20 20 20 20 20 2f 2a 20 63 6f 6e 74 72 /* contr
2360: 6f 6c 73 20 63 6c 65 61 6e 69 6e 67 20 75 70 20 ols cleaning up
2370: 6f 66 20 3a 3a 65 72 72 6f 72 53 74 61 63 6b 20 of ::errorStack
2380: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 72 65 74 75 */. int retu
2390: 72 6e 4c 65 76 65 6c 3b 09 09 2f 2a 20 5b 72 65 rnLevel;../* [re
23a0: 74 75 72 6e 20 2d 6c 65 76 65 6c 5d 20 70 61 72 turn -level] par
23b0: 61 6d 65 74 65 72 2e 20 2a 2f 0a 20 0a 20 20 20 ameter. */. .
23c0: 20 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 /*.Index: gene
23d0: 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 0a ric/tclNamesp.c.
23e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2420: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2430: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2440: 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 eneric/tclNamesp
2450: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
2460: 72 65 76 69 73 69 6f 6e 20 31 2e 32 30 34 0a 64 revision 1.204.d
2470: 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 30 iff -u -p -r1.20
2480: 34 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 4 tclNamesp.c.--
2490: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d - generic/tclNam
24a0: 65 73 70 2e 63 09 35 20 4d 61 72 20 32 30 31 30 esp.c.5 Mar 2010
24b0: 20 31 34 3a 33 34 3a 30 34 20 2d 30 30 30 30 09 14:34:04 -0000.
24c0: 31 2e 32 30 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.204.+++ generi
24d0: 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 31 38 c/tclNamesp.c.18
24e0: 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 35 3a Mar 2010 23:05:
24f0: 32 33 20 2d 30 30 30 30 0a 40 40 20 2d 34 38 37 23 -0000.@@ -487
2500: 33 2c 37 20 2b 34 38 37 33 2c 37 20 40 40 20 54 3,7 +4873,7 @@ T
2510: 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 cl_LogCommandInf
2520: 6f 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 69 73 o(. {. regis
2530: 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ter const char *
2540: 70 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a p;. Interp *
2550: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a iPtr = (Interp *
2560: 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 69 ) interp;.- i
2570: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
2580: 69 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 20 69 it = 150;.+ i
2590: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
25a0: 69 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b 0a 20 it = 150, len;.
25b0: 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 72 2c Var *varPtr,
25c0: 20 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a 20 20 *arrayPtr;. .
25d0: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 66 6c 61 if (iPtr->fla
25e0: 67 73 20 26 20 45 52 52 5f 41 4c 52 45 41 44 59 gs & ERR_ALREADY
25f0: 5f 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 2d 34 _LOGGED) {.@@ -4
2600: 39 33 32 2c 36 20 2b 34 39 33 32 2c 33 32 20 40 932,6 +4932,32 @
2610: 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 @ Tcl_LogCommand
2620: 49 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 43 4c Info(. .. TCL
2630: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 _GLOBAL_ONLY);.
2640: 09 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 .}. }.+.+
2650: 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50 20 /*.+ * TIP
2660: 23 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a #348.+ */.+.
2670: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 + if (Tcl_IsS
2680: 68 61 72 65 64 28 69 50 74 72 2d 3e 65 72 72 6f hared(iPtr->erro
2690: 72 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 20 20 rStack)) {.+
26a0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 Tcl_Obj *new
26b0: 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 Obj;.+
26c0: 20 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 77 4f .+ newO
26d0: 62 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 bj = Tcl_Duplica
26e0: 74 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f teObj(iPtr->erro
26f0: 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 rStack);.+
2700: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
2710: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 nt(iPtr->errorSt
2720: 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 ack);.+ T
2730: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2740: 6e 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 20 newObj);.+
2750: 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 iPtr->errorSta
2760: 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 20 ck = newObj;.+
2770: 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 73 }.+ Tcl_Lis
2780: 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 65 72 tObjLength(inter
2790: 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 p, iPtr->errorSt
27a0: 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 20 ack, &len);.+
27b0: 20 69 66 20 28 69 50 74 72 2d 3e 72 65 73 65 74 if (iPtr->reset
27c0: 45 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a 2b 20 ErrorStack) {.+
27d0: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 65 73 iPtr->res
27e0: 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 30 etErrorStack = 0
27f0: 3b 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 72 65 ;.+ /* re
2800: 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 6e set while keepin
2810: 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 65 g the list intre
2820: 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 p as much as pos
2830: 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 20 sible */.+
2840: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 70 Tcl_ListObjRep
2850: 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 74 lace(interp, iPt
2860: 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 30 r->errorStack, 0
2870: 2c 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 29 3b , len, 0, NULL);
2880: 0a 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d 30 3b .+ len=0;
2890: 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 69 66 .+ } .+ if
28a0: 20 28 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 (iPtr->varFrame
28b0: 50 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 6f 6f Ptr != iPtr->roo
28c0: 74 46 72 61 6d 65 50 74 72 29 20 7b 0a 2b 20 20 tFramePtr) {.+
28d0: 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 Tcl_ListOb
28e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 4e jAppendElement(N
28f0: 55 4c 4c 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 ULL,.+
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72 iPtr->err
2920: 6f 72 53 74 61 63 6b 2c 0a 2b 20 20 20 20 20 20 orStack,.+
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2940: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e Tcl_N
2950: 65 77 4c 69 73 74 4f 62 6a 28 69 50 74 72 2d 3e ewListObj(iPtr->
2960: 76 61 72 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a varFramePtr->obj
2970: 63 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 c,.+
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
29a0: 20 20 20 20 69 50 74 72 2d 3e 76 61 72 46 72 61 iPtr->varFra
29b0: 6d 65 50 74 72 2d 3e 6f 62 6a 76 29 29 3b 0a 2b mePtr->objv));.+
29c0: 20 20 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a }. }. .. /*.
29d0: 40 40 20 2d 34 39 33 39 2c 35 20 2b 34 39 36 35 @@ -4939,5 +4965
29e0: 2c 37 20 40 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d ,7 @@ Tcl_LogCom
29f0: 6d 61 6e 64 49 6e 66 6f 28 0a 20 20 2a 20 6d 6f mandInfo(. * mo
2a00: 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 de: c. * c-basi
2a10: 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 c-offset: 4. *
2a20: 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a fill-column: 78.
2a30: 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 + * tab-width: 8
2a40: 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 .+ * indent-tabs
2a50: 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 -mode: nil. * E
2a60: 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 nd:. */.Index:
2a70: 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c generic/tclResul
2a80: 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.c.============
2a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ac0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
2ad0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
2ae0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 cl/generic/tclRe
2af0: 73 75 6c 74 2e 63 2c 76 0a 72 65 74 72 69 65 76 sult.c,v.retriev
2b00: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 35 ing revision 1.5
2b10: 37 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 7.diff -u -p -r1
2b20: 2e 35 37 20 74 63 6c 52 65 73 75 6c 74 2e 63 0a .57 tclResult.c.
2b30: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 --- generic/tclR
2b40: 65 73 75 6c 74 2e 63 09 32 34 20 46 65 62 20 32 esult.c.24 Feb 2
2b50: 30 31 30 20 31 30 3a 34 35 3a 30 34 20 2d 30 30 010 10:45:04 -00
2b60: 30 30 09 31 2e 35 37 0a 2b 2b 2b 20 67 65 6e 65 00.1.57.+++ gene
2b70: 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 ric/tclResult.c.
2b80: 31 38 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 18 Mar 2010 23:0
2b90: 35 3a 32 36 20 2d 30 30 30 30 0a 40 40 20 2d 31 5:26 -0000.@@ -1
2ba0: 39 2c 37 20 2b 31 39 2c 37 20 40 40 0a 20 0a 20 9,7 +19,7 @@. .
2bb0: 65 6e 75 6d 20 72 65 74 75 72 6e 4b 65 79 73 20 enum returnKeys
2bc0: 7b 0a 20 20 20 20 20 4b 45 59 5f 43 4f 44 45 2c {. KEY_CODE,
2bd0: 09 4b 45 59 5f 45 52 52 4f 52 43 4f 44 45 2c 09 .KEY_ERRORCODE,.
2be0: 4b 45 59 5f 45 52 52 4f 52 49 4e 46 4f 2c 09 4b KEY_ERRORINFO,.K
2bf0: 45 59 5f 45 52 52 4f 52 4c 49 4e 45 2c 0a 2d 20 EY_ERRORLINE,.-
2c00: 20 20 20 4b 45 59 5f 4c 45 56 45 4c 2c 09 4b 45 KEY_LEVEL,.KE
2c10: 59 5f 4f 50 54 49 4f 4e 53 2c 09 4b 45 59 5f 4c Y_OPTIONS,.KEY_L
2c20: 41 53 54 0a 2b 20 20 20 20 4b 45 59 5f 4c 45 56 AST.+ KEY_LEV
2c30: 45 4c 2c 09 4b 45 59 5f 4f 50 54 49 4f 4e 53 2c EL,.KEY_OPTIONS,
2c40: 09 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 2c .KEY_ERRORSTACK,
2c50: 09 4b 45 59 5f 4c 41 53 54 0a 20 7d 3b 0a 20 0a .KEY_LAST. };. .
2c60: 20 2f 2a 0a 40 40 20 2d 39 32 34 2c 36 20 2b 39 /*.@@ -924,6 +9
2c70: 32 34 2c 37 20 40 40 20 54 63 6c 5f 52 65 73 65 24,7 @@ Tcl_Rese
2c80: 74 52 65 73 75 6c 74 28 0a 20 09 54 63 6c 5f 44 tResult(. .Tcl_D
2c90: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 ecrRefCount(iPtr
2ca0: 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 09 ->errorInfo);. .
2cb0: 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 iPtr->errorInfo
2cc0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a 2b = NULL;. }.+
2cd0: 20 20 20 20 69 50 74 72 2d 3e 72 65 73 65 74 45 iPtr->resetE
2ce0: 72 72 6f 72 53 74 61 63 6b 20 3d 20 31 3b 0a 20 rrorStack = 1;.
2cf0: 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e iPtr->return
2d00: 4c 65 76 65 6c 20 3d 20 31 3b 0a 20 20 20 20 20 Level = 1;.
2d10: 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 iPtr->returnCode
2d20: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 = TCL_OK;.
2d30: 69 66 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e if (iPtr->return
2d40: 4f 70 74 73 29 20 7b 0a 40 40 20 2d 31 31 36 31 Opts) {.@@ -1161
2d50: 2c 36 20 2b 31 31 36 32 2c 37 20 40 40 20 47 65 ,6 +1162,7 @@ Ge
2d60: 74 4b 65 79 73 28 76 6f 69 64 29 0a 20 09 54 63 tKeys(void). .Tc
2d70: 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e lNewLiteralStrin
2d80: 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 gObj(keys[KEY_ER
2d90: 52 4f 52 43 4f 44 45 5d 2c 20 22 2d 65 72 72 6f RORCODE], "-erro
2da0: 72 63 6f 64 65 22 29 3b 0a 20 09 54 63 6c 4e 65 rcode");. .TclNe
2db0: 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 wLiteralStringOb
2dc0: 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 j(keys[KEY_ERROR
2dd0: 49 4e 46 4f 5d 2c 20 22 2d 65 72 72 6f 72 69 6e INFO], "-errorin
2de0: 66 6f 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 fo");. .TclNewLi
2df0: 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b teralStringObj(k
2e00: 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 4c 49 4e eys[KEY_ERRORLIN
2e10: 45 5d 2c 20 22 2d 65 72 72 6f 72 6c 69 6e 65 22 E], "-errorline"
2e20: 29 3b 0a 2b 09 54 63 6c 4e 65 77 4c 69 74 65 72 );.+.TclNewLiter
2e30: 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 alStringObj(keys
2e40: 5b 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d [KEY_ERRORSTACK]
2e50: 2c 22 2d 65 72 72 6f 72 73 74 61 63 6b 22 29 3b ,"-errorstack");
2e60: 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c . .TclNewLiteral
2e70: 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b StringObj(keys[K
2e80: 45 59 5f 4c 45 56 45 4c 5d 2c 09 20 20 20 20 22 EY_LEVEL],. "
2e90: 2d 6c 65 76 65 6c 22 29 3b 0a 20 09 54 63 6c 4e -level");. .TclN
2ea0: 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f ewLiteralStringO
2eb0: 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 4f 50 54 49 bj(keys[KEY_OPTI
2ec0: 4f 4e 53 5d 2c 20 20 20 22 2d 6f 70 74 69 6f 6e ONS], "-option
2ed0: 73 22 29 3b 0a 20 0a 40 40 20 2d 31 32 36 36 2c s");. .@@ -1266,
2ee0: 36 20 2b 31 32 36 38 2c 33 31 20 40 40 20 54 63 6 +1268,31 @@ Tc
2ef0: 6c 50 72 6f 63 65 73 73 52 65 74 75 72 6e 28 0a lProcessReturn(.
2f00: 20 09 09 69 50 74 72 2d 3e 66 6c 61 67 73 20 7c ..iPtr->flags |
2f10: 3d 20 45 52 52 5f 41 4c 52 45 41 44 59 5f 4c 4f = ERR_ALREADY_LO
2f20: 47 47 45 44 3b 0a 20 09 20 20 20 20 7d 0a 20 09 GGED;. . }. .
2f30: 7d 0a 2b 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 }.+.Tcl_DictObjG
2f40: 65 74 28 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 et(NULL, iPtr->r
2f50: 65 74 75 72 6e 4f 70 74 73 2c 20 6b 65 79 73 5b eturnOpts, keys[
2f60: 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d 2c KEY_ERRORSTACK],
2f70: 20 26 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09 69 &valuePtr);.+.i
2f80: 66 20 28 76 61 6c 75 65 50 74 72 20 21 3d 20 4e f (valuePtr != N
2f90: 55 4c 4c 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 ULL) {.+
2fa0: 20 20 20 20 69 6e 74 20 6c 65 6e 2c 20 76 61 6c int len, val
2fb0: 75 65 4f 62 6a 63 3b 0a 2b 20 20 20 20 20 20 20 ueObjc;.+
2fc0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 76 Tcl_Obj **v
2fd0: 61 6c 75 65 4f 62 6a 76 3b 0a 2b 0a 2b 20 20 20 alueObjv;.+.+
2fe0: 20 20 20 20 20 20 20 20 20 69 66 20 28 54 63 6c if (Tcl
2ff0: 5f 49 73 53 68 61 72 65 64 28 69 50 74 72 2d 3e _IsShared(iPtr->
3000: 65 72 72 6f 72 53 74 61 63 6b 29 29 20 7b 0a 2b errorStack)) {.+
3010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3020: 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 4f 62 6a 3b Tcl_Obj *newObj;
3030: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .+
3040: 20 20 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 .+
3050: 20 20 20 20 6e 65 77 4f 62 6a 20 3d 20 54 63 6c newObj = Tcl
3060: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 69 50 _DuplicateObj(iP
3070: 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 3b tr->errorStack);
3080: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .+
3090: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
30a0: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 nt(iPtr->errorSt
30b0: 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 20 ack);.+
30c0: 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 Tcl_IncrR
30d0: 65 66 43 6f 75 6e 74 28 6e 65 77 4f 62 6a 29 3b efCount(newObj);
30e0: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .+
30f0: 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 iPtr->errorSta
3100: 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 20 ck = newObj;.+
3110: 20 20 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 }.+
3120: 20 20 20 20 20 20 20 20 20 2f 2a 0a 2b 20 20 20 /*.+
3130: 20 20 20 20 20 20 20 20 20 20 2a 20 4c 69 73 74 * List
3140: 20 65 78 74 72 61 63 74 69 6f 6e 20 64 6f 6e 65 extraction done
3150: 20 61 66 74 65 72 20 64 75 70 6c 69 63 61 74 69 after duplicati
3160: 6f 6e 20 74 6f 20 61 76 6f 69 64 20 6d 6f 76 69 on to avoid movi
3170: 6e 67 20 74 68 65 20 72 75 67 0a 2b 20 20 20 20 ng the rug.+
3180: 20 20 20 20 20 20 20 20 20 2a 20 69 66 20 73 6f * if so
3190: 6d 65 6f 6e 65 20 64 6f 65 73 20 5b 72 65 74 75 meone does [retu
31a0: 72 6e 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 5b rn -errorstack [
31b0: 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d info errorstack]
31c0: 5d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 ].+
31d0: 2a 2f 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 */.+
31e0: 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 if (Tcl_ListObjG
31f0: 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 etElements(inter
3200: 70 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 76 61 p, valuePtr, &va
3210: 6c 75 65 4f 62 6a 63 2c 20 26 76 61 6c 75 65 4f lueObjc, &valueO
3220: 62 6a 76 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f bjv) == TCL_ERRO
3230: 52 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 R) {.+
3240: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
3250: 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 20 20 20 _ERROR;.+
3260: 20 20 20 20 20 7d 0a 2b 20 20 20 20 20 20 20 20 }.+
3270: 20 20 20 20 69 50 74 72 2d 3e 72 65 73 65 74 45 iPtr->resetE
3280: 72 72 6f 72 53 74 61 63 6b 20 3d 20 30 3b 0a 2b rrorStack = 0;.+
3290: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
32a0: 4c 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e ListObjLength(in
32b0: 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f terp, iPtr->erro
32c0: 72 53 74 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b rStack, &len);.+
32d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 72 /* r
32e0: 65 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 eset while keepi
32f0: 6e 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 ng the list intr
3300: 65 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f ep as much as po
3310: 73 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 ssible */.+
3320: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f Tcl_ListO
3330: 62 6a 52 65 70 6c 61 63 65 28 69 6e 74 65 72 70 bjReplace(interp
3340: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
3350: 63 6b 2c 20 30 2c 20 6c 65 6e 2c 20 76 61 6c 75 ck, 0, len, valu
3360: 65 4f 62 6a 63 2c 20 76 61 6c 75 65 4f 62 6a 76 eObjc, valueObjv
3370: 29 3b 0a 2b 20 09 7d 0a 20 09 54 63 6c 5f 44 69 );.+ .}. .Tcl_Di
3380: 63 74 4f 62 6a 47 65 74 28 4e 55 4c 4c 2c 20 69 ctObjGet(NULL, i
3390: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 2c Ptr->returnOpts,
33a0: 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 43 keys[KEY_ERRORC
33b0: 4f 44 45 5d 2c 20 26 76 61 6c 75 65 50 74 72 29 ODE], &valuePtr)
33c0: 3b 0a 20 09 69 66 20 28 76 61 6c 75 65 50 74 72 ;. .if (valuePtr
33d0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 20 20 != NULL) {. .
33e0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 45 72 72 6f Tcl_SetObjErro
33f0: 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 76 61 rCode(interp, va
3400: 6c 75 65 50 74 72 29 3b 0a 40 40 20 2d 31 34 32 luePtr);.@@ -142
3410: 35 2c 36 20 2b 31 34 35 32 2c 32 37 20 40 40 20 5,6 +1452,27 @@
3420: 54 63 6c 4d 65 72 67 65 52 65 74 75 72 6e 4f 70 TclMergeReturnOp
3430: 74 69 6f 6e 73 28 0a 20 20 20 20 20 7d 0a 20 0a tions(. }. .
3440: 20 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 /*.+ *
3450: 43 68 65 63 6b 20 66 6f 72 20 62 6f 67 75 73 20 Check for bogus
3460: 2d 65 72 72 6f 72 73 74 61 63 6b 20 76 61 6c 75 -errorstack valu
3470: 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 e..+ */.+.+
3480: 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 Tcl_DictObjGe
3490: 74 28 4e 55 4c 4c 2c 20 72 65 74 75 72 6e 4f 70 t(NULL, returnOp
34a0: 74 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 ts, keys[KEY_ERR
34b0: 4f 52 53 54 41 43 4b 5d 2c 20 26 76 61 6c 75 65 ORSTACK], &value
34c0: 50 74 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 76 Ptr);.+ if (v
34d0: 61 6c 75 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 aluePtr != NULL)
34e0: 20 7b 0a 2b 09 69 6e 74 20 6c 65 6e 67 74 68 3b {.+.int length;
34f0: 0a 2b 0a 2b 09 69 66 20 28 54 43 4c 5f 45 52 52 .+.+.if (TCL_ERR
3500: 4f 52 20 3d 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 OR == Tcl_ListOb
3510: 6a 4c 65 6e 67 74 68 28 4e 55 4c 4c 2c 20 76 61 jLength(NULL, va
3520: 6c 75 65 50 74 72 2c 20 26 6c 65 6e 67 74 68 20 luePtr, &length
3530: 29 29 20 7b 0a 2b 09 20 20 20 20 2f 2a 0a 2b 09 )) {.+. /*.+.
3540: 20 20 20 20 20 2a 20 56 61 6c 75 65 20 69 73 20 * Value is
3550: 6e 6f 74 20 61 20 6c 69 73 74 2c 20 77 68 69 63 not a list, whic
3560: 68 20 69 73 20 69 6c 6c 65 67 61 6c 20 66 6f 72 h is illegal for
3570: 20 2d 65 72 72 6f 72 73 74 61 63 6b 2e 0a 2b 09 -errorstack..+.
3580: 20 20 20 20 20 2a 2f 0a 2b 09 20 20 20 20 54 63 */.+. Tc
3590: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
35a0: 74 65 72 70 29 3b 0a 2b 09 20 20 20 20 54 63 6c terp);.+. Tcl
35b0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
35c0: 74 65 72 70 2c 20 22 62 61 64 20 2d 65 72 72 6f terp, "bad -erro
35d0: 72 73 74 61 63 6b 20 76 61 6c 75 65 3a 20 22 0a rstack value: ".
35e0: 2b 09 09 09 20 20 20 20 20 22 65 78 70 65 63 74 +... "expect
35f0: 65 64 20 61 20 6c 69 73 74 20 62 75 74 20 67 6f ed a list but go
3600: 74 20 5c 22 22 2c 0a 2b 09 09 09 20 20 20 20 20 t \"",.+...
3610: 54 63 6c 47 65 74 53 74 72 69 6e 67 28 76 61 6c TclGetString(val
3620: 75 65 50 74 72 29 2c 20 22 5c 22 22 2c 20 4e 55 uePtr), "\"", NU
3630: 4c 4c 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 53 LL);.+. Tcl_S
3640: 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 etErrorCode(inte
3650: 72 70 2c 20 22 54 43 4c 22 2c 20 22 52 45 53 55 rp, "TCL", "RESU
3660: 4c 54 22 2c 20 22 4e 4f 4e 4c 49 53 54 5f 45 52 LT", "NONLIST_ER
3670: 52 4f 52 53 54 41 43 4b 22 2c 20 4e 55 4c 4c 29 RORSTACK", NULL)
3680: 3b 0a 2b 09 20 20 20 20 67 6f 74 6f 20 65 72 72 ;.+. goto err
3690: 6f 72 3b 0a 2b 09 7d 0a 2b 20 20 20 20 7d 0a 2b or;.+.}.+ }.+
36a0: 0a 2b 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a .+ /*. *
36b0: 20 43 6f 6e 76 65 72 74 20 5b 72 65 74 75 72 6e Convert [return
36c0: 20 2d 63 6f 64 65 20 72 65 74 75 72 6e 20 2d 6c -code return -l
36d0: 65 76 65 6c 20 58 5d 20 74 6f 20 5b 72 65 74 75 evel X] to [retu
36e0: 72 6e 20 2d 63 6f 64 65 20 6f 6b 20 2d 6c 65 76 rn -code ok -lev
36f0: 65 6c 20 58 2b 31 5d 0a 20 20 20 20 20 20 2a 2f el X+1]. */
3700: 0a 20 0a 40 40 20 2d 31 35 30 31 2c 36 20 2b 31 . .@@ -1501,6 +1
3710: 35 34 39 2c 37 20 40 40 20 54 63 6c 5f 47 65 74 549,7 @@ Tcl_Get
3720: 52 65 74 75 72 6e 4f 70 74 69 6f 6e 73 28 0a 20 ReturnOptions(.
3730: 0a 20 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 . if (result
3740: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b == TCL_ERROR) {
3750: 0a 20 09 54 63 6c 5f 41 64 64 4f 62 6a 45 72 72 . .Tcl_AddObjErr
3760: 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 22 orInfo(interp, "
3770: 22 2c 20 2d 31 29 3b 0a 2b 20 20 20 20 20 20 20 ", -1);.+
3780: 20 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 Tcl_DictObjPut(
3790: 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 6b NULL, options, k
37a0: 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 54 41 eys[KEY_ERRORSTA
37b0: 43 4b 5d 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 CK], iPtr->error
37c0: 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 7d 0a 20 Stack);. }.
37d0: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65 72 if (iPtr->er
37e0: 72 6f 72 43 6f 64 65 29 20 7b 0a 20 09 54 63 6c rorCode) {. .Tcl
37f0: 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c _DictObjPut(NULL
3800: 2c 20 6f 70 74 69 6f 6e 73 2c 20 6b 65 79 73 5b , options, keys[
3810: 4b 45 59 5f 45 52 52 4f 52 43 4f 44 45 5d 2c 20 KEY_ERRORCODE],
3820: 69 50 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65 29 iPtr->errorCode)
3830: 3b 0a 40 40 20 2d 31 36 33 32 2c 35 20 2b 31 36 ;.@@ -1632,5 +16
3840: 38 31 2c 37 20 40 40 20 54 63 6c 5f 54 72 61 6e 81,7 @@ Tcl_Tran
3850: 73 66 65 72 52 65 73 75 6c 74 28 0a 20 20 2a 20 sferResult(. *
3860: 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 mode: c. * c-ba
3870: 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 sic-offset: 4.
3880: 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 * fill-column: 7
3890: 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 8.+ * tab-width:
38a0: 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 8.+ * indent-ta
38b0: 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a bs-mode: nil. *
38c0: 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 End:. */.Index
38d0: 3a 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 : tests/cmdMZ.te
38e0: 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d st.=============
38f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3900: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3910: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3920: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
3930: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
3940: 6c 2f 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 l/tests/cmdMZ.te
3950: 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 st,v.retrieving
3960: 72 65 76 69 73 69 6f 6e 20 31 2e 32 38 0a 64 69 revision 1.28.di
3970: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 38 20 ff -u -p -r1.28
3980: 63 6d 64 4d 5a 2e 74 65 73 74 0a 2d 2d 2d 20 74 cmdMZ.test.--- t
3990: 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 09 ests/cmdMZ.test.
39a0: 31 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 16 Nov 2009 18:0
39b0: 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 32 38 0a 0:11 -0000.1.28.
39c0: 2b 2b 2b 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e +++ tests/cmdMZ.
39d0: 74 65 73 74 09 31 38 20 4d 61 72 20 32 30 31 30 test.18 Mar 2010
39e0: 20 32 33 3a 30 35 3a 32 38 20 2d 30 30 30 30 0a 23:05:28 -0000.
39f0: 40 40 20 2d 31 34 39 2c 31 31 20 2b 31 34 39 2c @@ -149,11 +149,
3a00: 31 31 20 40 40 20 74 65 73 74 20 63 6d 64 4d 5a 11 @@ test cmdMZ
3a10: 2d 72 65 74 75 72 6e 2d 32 2e 38 20 7b 72 65 74 -return-2.8 {ret
3a20: 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 0a 20 urn option han.
3a30: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
3a40: 6e 2d 32 2e 39 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.9 {return op
3a50: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
3a60: 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 74 75 body {. retu
3a70: 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 rn -level 0 -cod
3a80: 65 20 31 30 0a 20 7d 20 2d 72 65 74 75 72 6e 43 e 10. } -returnC
3a90: 6f 64 65 73 20 31 30 20 2d 72 65 73 75 6c 74 20 odes 10 -result
3aa0: 7b 7d 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 {}.-test cmdMZ-r
3ab0: 65 74 75 72 6e 2d 32 2e 31 30 20 7b 72 65 74 75 eturn-2.10 {retu
3ac0: 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 rn option handli
3ad0: 6e 67 7d 20 7b 0a 2b 74 65 73 74 20 63 6d 64 4d ng} {.+test cmdM
3ae0: 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b 72 Z-return-2.10 {r
3af0: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
3b00: 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 dling} -body {.
3b10: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
3b20: 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 {return -level 0
3b30: 20 2d 63 6f 64 65 20 65 72 72 6f 72 7d 20 2d 3e -code error} ->
3b40: 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 foo] [dictSort
3b50: 24 66 6f 6f 5d 0a 2d 7d 20 7b 31 20 7b 2d 63 6f $foo].-} {1 {-co
3b60: 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 de 1 -errorcode
3b70: 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 NONE -errorinfo
3b80: 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 {.+} -match glob
3b90: 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b 2d 63 6f -result {1 {-co
3ba0: 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 de 1 -errorcode
3bb0: 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 NONE -errorinfo
3bc0: 7b 0a 20 20 20 20 20 77 68 69 6c 65 20 65 78 65 {. while exe
3bd0: 63 75 74 69 6e 67 0a 2d 22 72 65 74 75 72 6e 20 cuting.-"return
3be0: 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 65 -level 0 -code e
3bf0: 72 72 6f 72 22 7d 20 2d 65 72 72 6f 72 6c 69 6e rror"} -errorlin
3c00: 65 20 31 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a 2b e 1 -level 0}}.+
3c10: 22 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 "return -level 0
3c20: 20 2d 63 6f 64 65 20 65 72 72 6f 72 22 7d 20 2d -code error"} -
3c30: 65 72 72 6f 72 6c 69 6e 65 20 31 20 2d 65 72 72 errorline 1 -err
3c40: 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 65 6c orstack * -level
3c50: 20 30 7d 7d 0a 20 74 65 73 74 20 63 6d 64 4d 5a 0}}. test cmdMZ
3c60: 2d 72 65 74 75 72 6e 2d 32 2e 31 31 20 7b 72 65 -return-2.11 {re
3c70: 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 turn option hand
3c80: 6c 69 6e 67 7d 20 7b 0a 20 20 20 20 20 6c 69 73 ling} {. lis
3c90: 74 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e t [catch {return
3ca0: 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 -level 0 -code
3cb0: 62 72 65 61 6b 7d 20 2d 3e 20 66 6f 6f 5d 20 5b break} -> foo] [
3cc0: 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 20 dictSort $foo].
3cd0: 7d 20 7b 33 20 7b 2d 63 6f 64 65 20 33 20 2d 6c } {3 {-code 3 -l
3ce0: 65 76 65 6c 20 30 7d 7d 0a 40 40 20 2d 31 39 33 evel 0}}.@@ -193
3cf0: 2c 36 20 2b 31 39 33 2c 39 20 40 40 20 74 65 73 ,6 +193,9 @@ tes
3d00: 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 t cmdMZ-return-2
3d10: 2e 31 37 20 7b 72 65 74 75 72 6e 20 6f 70 74 6f .17 {return opto
3d20: 6e 20 68 61 6e 0a 20 7d 20 2d 63 6c 65 61 6e 75 n han. } -cleanu
3d30: 70 20 7b 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 p {. rename
3d40: 70 20 7b 7d 0a 20 7d 20 2d 72 65 73 75 6c 74 20 p {}. } -result
3d50: 7b 31 20 63 20 7b 61 20 62 7d 7d 0a 2b 74 65 73 {1 c {a b}}.+tes
3d60: 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 t cmdMZ-return-2
3d70: 2e 31 38 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 .18 {return opti
3d80: 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b on handling} {.+
3d90: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
3da0: 7b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 {return -code er
3db0: 72 6f 72 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 ror -errorstack
3dc0: 5b 6c 69 73 74 20 61 20 62 20 63 5d 20 79 6f 7d [list a b c] yo}
3dd0: 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f -> foo] [dictSo
3de0: 72 74 20 24 66 6f 6f 5d 20 5b 69 6e 66 6f 20 65 rt $foo] [info e
3df0: 72 72 6f 72 73 74 61 63 6b 5d 0a 2b 7d 20 7b 32 rrorstack].+} {2
3e00: 20 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 {-code 1 -error
3e10: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
3e20: 73 74 61 63 6b 20 7b 61 20 62 20 63 7d 20 2d 6c stack {a b c} -l
3e30: 65 76 65 6c 20 31 7d 20 7b 61 20 62 20 63 7d 7d evel 1} {a b c}}
3e40: 0a 20 0a 20 23 20 43 68 65 63 6b 20 74 68 61 74 . . # Check that
3e50: 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 the result of a
3e60: 20 5b 72 65 74 75 72 6e 20 2d 6f 70 74 69 6f 6e [return -option
3e70: 73 20 24 6f 70 74 73 20 24 72 65 73 75 6c 74 5d s $opts $result]
3e80: 20 69 73 0a 20 23 20 69 6e 64 69 73 74 69 6e 67 is. # indisting
3e90: 75 69 73 68 61 62 6c 65 20 66 72 6f 6d 20 74 68 uishable from th
3ea0: 61 74 20 6f 66 20 74 68 65 20 6f 72 69 67 69 6e at of the origin
3eb0: 61 6c 6c 79 20 63 61 75 67 68 74 20 73 63 72 69 ally caught scri
3ec0: 70 74 2c 20 6e 6f 20 6d 61 74 74 65 72 20 77 68 pt, no matter wh
3ed0: 61 74 0a 40 40 20 2d 32 31 31 2c 36 20 2b 32 31 at.@@ -211,6 +21
3ee0: 34 2c 37 20 40 40 20 66 6f 72 65 61 63 68 20 7b 4,7 @@ foreach {
3ef0: 74 65 73 74 69 64 20 73 63 72 69 70 74 7d 20 7b testid script} {
3f00: 0a 20 20 20 20 20 63 6d 64 4d 5a 2d 72 65 74 75 . cmdMZ-retu
3f10: 72 6e 2d 33 2e 31 30 20 7b 72 65 74 75 72 6e 20 rn-3.10 {return
3f20: 2d 63 6f 64 65 20 65 72 72 6f 72 20 2d 65 72 72 -code error -err
3f30: 6f 72 69 6e 66 6f 20 66 6f 6f 7d 0a 20 20 20 20 orinfo foo}.
3f40: 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e cmdMZ-return-3.
3f50: 31 31 20 7b 72 65 74 75 72 6e 20 2d 63 6f 64 65 11 {return -code
3f60: 20 65 72 72 6f 72 20 2d 65 72 72 6f 72 69 6e 66 error -errorinf
3f70: 6f 20 66 6f 6f 20 2d 65 72 72 6f 72 63 6f 64 65 o foo -errorcode
3f80: 20 62 61 72 7d 0a 20 20 20 20 20 63 6d 64 4d 5a bar}. cmdMZ
3f90: 2d 72 65 74 75 72 6e 2d 33 2e 31 32 20 7b 72 65 -return-3.12 {re
3fa0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
3fb0: 20 2d 65 72 72 6f 72 69 6e 66 6f 20 66 6f 6f 20 -errorinfo foo
3fc0: 2d 65 72 72 6f 72 63 6f 64 65 20 62 61 72 20 2d -errorcode bar -
3fd0: 65 72 72 6f 72 6c 69 6e 65 20 31 30 7d 0a 2b 20 errorline 10}.+
3fe0: 20 20 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d cmdMZ-return-
3ff0: 33 2e 31 32 2e 31 20 7b 72 65 74 75 72 6e 20 2d 3.12.1 {return -
4000: 63 6f 64 65 20 65 72 72 6f 72 20 2d 65 72 72 6f code error -erro
4010: 72 69 6e 66 6f 20 66 6f 6f 20 2d 65 72 72 6f 72 rinfo foo -error
4020: 63 6f 64 65 20 62 61 72 20 2d 65 72 72 6f 72 6c code bar -errorl
4030: 69 6e 65 20 31 30 20 2d 65 72 72 6f 72 73 74 61 ine 10 -errorsta
4040: 63 6b 20 62 61 7a 7d 0a 20 20 20 20 20 63 6d 64 ck baz}. cmd
4050: 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 33 20 7b MZ-return-3.13 {
4060: 72 65 74 75 72 6e 20 2d 6f 70 74 69 6f 6e 73 20 return -options
4070: 7b 78 20 79 20 7a 20 32 7d 7d 0a 20 20 20 20 20 {x y z 2}}.
4080: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 cmdMZ-return-3.1
4090: 34 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 4 {return -level
40a0: 20 33 20 2d 63 6f 64 65 20 62 72 65 61 6b 20 73 3 -code break s
40b0: 64 66 7d 0a 20 7d 20 7b 0a 49 6e 64 65 78 3a 20 df}. } {.Index:
40c0: 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 tests/error.test
40d0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
40e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4110: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
4120: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
4130: 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 tests/error.test
4140: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
4150: 76 69 73 69 6f 6e 20 31 2e 32 37 0a 64 69 66 66 vision 1.27.diff
4160: 20 2d 75 20 2d 70 20 2d 72 31 2e 32 37 20 65 72 -u -p -r1.27 er
4170: 72 6f 72 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 ror.test.--- tes
4180: 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 09 31 38 ts/error.test.18
4190: 20 4d 61 72 20 32 30 31 30 20 31 34 3a 33 35 3a Mar 2010 14:35:
41a0: 30 34 20 2d 30 30 30 30 09 31 2e 32 37 0a 2b 2b 04 -0000.1.27.++
41b0: 2b 20 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 + tests/error.te
41c0: 73 74 09 31 38 20 4d 61 72 20 32 30 31 30 20 32 st.18 Mar 2010 2
41d0: 33 3a 30 35 3a 32 39 20 2d 30 30 30 30 0a 40 40 3:05:29 -0000.@@
41e0: 20 2d 31 36 39 2c 36 20 2b 31 36 39 2c 31 39 20 -169,6 +169,19
41f0: 40 40 20 74 65 73 74 20 65 72 72 6f 72 2d 34 2e @@ test error-4.
4200: 35 20 7b 65 72 72 6f 72 49 6e 66 6f 20 61 6e 64 5 {errorInfo and
4210: 20 65 72 72 6f 72 43 6f 64 65 20 0a 20 20 20 20 errorCode .
4220: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 65 72 list [catch {er
4230: 72 6f 72 20 6d 73 67 31 20 6d 73 67 32 20 7b 7d ror msg1 msg2 {}
4240: 7d 20 6d 73 67 5d 20 24 6d 73 67 20 24 3a 3a 65 } msg] $msg $::e
4250: 72 72 6f 72 49 6e 66 6f 20 24 3a 3a 65 72 72 6f rrorInfo $::erro
4260: 72 43 6f 64 65 0a 20 7d 20 7b 31 20 6d 73 67 31 rCode. } {1 msg1
4270: 20 6d 73 67 32 20 7b 7d 7d 0a 20 0a 2b 74 65 73 msg2 {}}. .+tes
4280: 74 20 65 72 72 6f 72 2d 34 2e 36 20 7b 65 72 72 t error-4.6 {err
4290: 6f 72 73 74 61 63 6b 20 76 69 61 20 69 6e 66 6f orstack via info
42a0: 20 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 } -body {.+
42b0: 70 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 78 proc f x {g $x$x
42c0: 7d 0a 2b 20 20 20 20 70 72 6f 63 20 67 20 78 20 }.+ proc g x
42d0: 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 20 {error G:$x}.+
42e0: 20 20 63 61 74 63 68 20 7b 66 20 31 32 7d 0a 2b catch {f 12}.+
42f0: 20 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 info errorst
4300: 61 63 6b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c ack.+} -match gl
4310: 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b 67 20 31 ob -result {{g 1
4320: 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 212} {f 12} {nam
4330: 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 0a espace eval *}}.
4340: 2b 74 65 73 74 20 65 72 72 6f 72 2d 34 2e 37 20 +test error-4.7
4350: 7b 65 72 72 6f 72 73 74 61 63 6b 20 76 69 61 20 {errorstack via
4360: 6f 70 74 69 6f 6e 73 20 64 69 63 74 20 7d 20 2d options dict } -
4370: 62 6f 64 79 20 7b 0a 2b 20 20 20 20 70 72 6f 63 body {.+ proc
4380: 20 66 20 78 20 7b 67 20 24 78 24 78 7d 0a 2b 20 f x {g $x$x}.+
4390: 20 20 20 70 72 6f 63 20 67 20 78 20 7b 65 72 72 proc g x {err
43a0: 6f 72 20 47 3a 24 78 7d 0a 2b 20 20 20 20 63 61 or G:$x}.+ ca
43b0: 74 63 68 20 7b 66 20 31 32 7d 20 6d 20 64 0a 2b tch {f 12} m d.+
43c0: 20 20 20 20 64 69 63 74 20 67 65 74 20 24 64 20 dict get $d
43d0: 2d 65 72 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 2d -errorstack.+} -
43e0: 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 match glob -resu
43f0: 6c 74 20 7b 7b 67 20 31 32 31 32 7d 20 7b 66 20 lt {{g 1212} {f
4400: 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 12} {namespace e
4410: 76 61 6c 20 2a 7d 7d 0a 2b 0a 20 23 20 45 72 72 val *}}.+. # Err
4420: 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 63 6f 6d ors in error com
4430: 6d 61 6e 64 20 69 74 73 65 6c 66 0a 20 0a 20 74 mand itself. . t
4440: 65 73 74 20 65 72 72 6f 72 2d 35 2e 31 20 7b 65 est error-5.1 {e
4450: 72 72 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 63 rrors in error c
4460: 6f 6d 6d 61 6e 64 7d 20 7b 0a 40 40 20 2d 32 32 ommand} {.@@ -22
4470: 33 2c 36 20 2b 32 33 36 2c 31 35 20 40 40 20 74 3,6 +236,15 @@ t
4480: 65 73 74 20 65 72 72 6f 72 2d 36 2e 39 20 7b 63 est error-6.9 {c
4490: 61 74 63 68 20 6d 75 73 74 20 72 65 73 65 74 20 atch must reset
44a0: 65 72 72 6f 72 20 73 0a 20 20 20 20 20 63 61 74 error s. cat
44b0: 63 68 20 66 6f 6f 0a 20 20 20 20 20 6c 69 73 74 ch foo. list
44c0: 20 24 3a 3a 65 72 72 6f 72 43 6f 64 65 0a 20 7d $::errorCode. }
44d0: 20 7b 4e 4f 4e 45 7d 0a 2b 74 65 73 74 20 65 72 {NONE}.+test er
44e0: 72 6f 72 2d 36 2e 31 30 20 7b 63 61 74 63 68 20 ror-6.10 {catch
44f0: 6d 75 73 74 20 72 65 73 65 74 20 65 72 72 6f 72 must reset error
4500: 73 74 61 63 6b 7d 20 2d 62 6f 64 79 20 7b 0a 2b stack} -body {.+
4510: 09 70 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 .proc f x {g $x$
4520: 78 7d 0a 2b 09 70 72 6f 63 20 67 20 78 20 7b 65 x}.+.proc g x {e
4530: 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 09 63 61 74 rror G:$x}.+.cat
4540: 63 68 20 7b 66 20 31 32 7d 0a 2b 09 73 65 74 20 ch {f 12}.+.set
4550: 65 31 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 74 e1 [info errorst
4560: 61 63 6b 5d 0a 2b 09 63 61 74 63 68 20 7b 66 20 ack].+.catch {f
4570: 31 33 7d 0a 2b 09 73 65 74 20 65 32 20 5b 69 6e 13}.+.set e2 [in
4580: 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 0a 2b fo errorstack].+
4590: 09 6c 69 73 74 20 24 65 31 20 24 65 32 0a 2b 7d .list $e1 $e2.+}
45a0: 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 -match glob -re
45b0: 73 75 6c 74 20 7b 7b 7b 67 20 31 32 31 32 7d 20 sult {{{g 1212}
45c0: 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 {f 12} {namespac
45d0: 65 20 65 76 61 6c 20 2a 7d 7d 20 7b 7b 67 20 31 e eval *}} {{g 1
45e0: 33 31 33 7d 20 7b 66 20 31 33 7d 20 7b 6e 61 6d 313} {f 13} {nam
45f0: 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 7d espace eval *}}}
4600: 0a 20 0a 20 74 65 73 74 20 65 72 72 6f 72 2d 37 . . test error-7
4610: 2e 31 20 7b 42 75 67 20 31 33 39 37 38 34 33 7d .1 {Bug 1397843}
4620: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 76 61 -body {. va
4630: 72 69 61 62 6c 65 20 63 6d 64 73 0a 49 6e 64 65 riable cmds.Inde
4640: 78 3a 20 74 65 73 74 73 2f 65 78 65 63 75 74 65 x: tests/execute
4650: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
4660: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
46a0: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
46b0: 2f 74 63 6c 2f 74 65 73 74 73 2f 65 78 65 63 75 /tcl/tests/execu
46c0: 74 65 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 te.test,v.retrie
46d0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
46e0: 33 34 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 34.diff -u -p -r
46f0: 31 2e 33 34 20 65 78 65 63 75 74 65 2e 74 65 73 1.34 execute.tes
4700: 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 78 65 63 t.--- tests/exec
4710: 75 74 65 2e 74 65 73 74 09 31 36 20 4e 6f 76 20 ute.test.16 Nov
4720: 32 30 30 39 20 31 38 3a 30 30 3a 31 31 20 2d 30 2009 18:00:11 -0
4730: 30 30 30 09 31 2e 33 34 0a 2b 2b 2b 20 74 65 73 000.1.34.+++ tes
4740: 74 73 2f 65 78 65 63 75 74 65 2e 74 65 73 74 09 ts/execute.test.
4750: 31 38 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 18 Mar 2010 23:0
4760: 35 3a 33 31 20 2d 30 30 30 30 0a 40 40 20 2d 39 5:31 -0000.@@ -9
4770: 35 36 2c 31 31 20 2b 39 35 36 2c 31 31 20 40 40 56,11 +956,11 @@
4780: 20 74 65 73 74 20 65 78 65 63 75 74 65 2d 38 2e test execute-8.
4790: 35 20 7b 42 75 67 20 32 30 33 38 30 36 39 7d 20 5 {Bug 2038069}
47a0: 2d 73 65 74 75 70 20 7b 0a 20 20 20 20 20 64 65 -setup {. de
47b0: 6d 6f 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b mo. } -cleanup {
47c0: 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 64 65 6d . rename dem
47d0: 6f 20 7b 7d 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 o {}.-} -result
47e0: 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 {-code 1 -level
47f0: 30 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 0 -errorcode NON
4800: 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 7b 46 4f E -errorinfo {FO
4810: 4f 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 O.+} -match glob
4820: 20 2d 72 65 73 75 6c 74 20 7b 2d 63 6f 64 65 20 -result {-code
4830: 31 20 2d 6c 65 76 65 6c 20 30 20 2d 65 72 72 6f 1 -level 0 -erro
4840: 72 73 74 61 63 6b 20 2a 20 2d 65 72 72 6f 72 63 rstack * -errorc
4850: 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 ode NONE -errori
4860: 6e 66 6f 20 7b 46 4f 4f 0a 20 20 20 20 20 77 68 nfo {FOO. wh
4870: 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0a 20 22 ile executing. "
4880: 65 72 72 6f 72 20 46 4f 4f 22 0a 20 20 20 20 20 error FOO".
4890: 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 74 invoked from wit
48a0: 68 69 6e 0a 2d 22 63 61 74 63 68 20 5b 6c 69 73 hin.-"catch [lis
48b0: 74 20 65 72 72 6f 72 20 46 4f 4f 5d 20 6d 20 6f t error FOO] m o
48c0: 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 32 7d "} -errorline 2}
48d0: 0a 2b 22 63 61 74 63 68 20 5c 5b 6c 69 73 74 20 .+"catch \[list
48e0: 65 72 72 6f 72 20 46 4f 4f 5c 5d 20 6d 20 6f 22 error FOO\] m o"
48f0: 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 32 7d 0a } -errorline 2}.
4900: 20 0a 20 74 65 73 74 20 65 78 65 63 75 74 65 2d . test execute-
4910: 39 2e 31 20 7b 49 6e 74 65 72 70 20 72 65 73 75 9.1 {Interp resu
4920: 6c 74 20 72 65 73 65 74 74 69 6e 67 20 5b 42 75 lt resetting [Bu
4930: 67 20 31 35 32 32 38 30 33 5d 7d 20 7b 0a 20 20 g 1522803]} {.
4940: 20 20 20 73 65 74 20 63 20 30 0a 49 6e 64 65 78 set c 0.Index
4950: 3a 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 : tests/info.tes
4960: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
4970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
49a0: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
49b0: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
49c0: 2f 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 /tests/info.test
49d0: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
49e0: 76 69 73 69 6f 6e 20 31 2e 37 35 0a 64 69 66 66 vision 1.75.diff
49f0: 20 2d 75 20 2d 70 20 2d 72 31 2e 37 35 20 69 6e -u -p -r1.75 in
4a00: 66 6f 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 fo.test.--- test
4a10: 73 2f 69 6e 66 6f 2e 74 65 73 74 09 31 30 20 46 s/info.test.10 F
4a20: 65 62 20 32 30 31 30 20 32 33 3a 32 34 3a 32 35 eb 2010 23:24:25
4a30: 20 2d 30 30 30 30 09 31 2e 37 35 0a 2b 2b 2b 20 -0000.1.75.+++
4a40: 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 09 tests/info.test.
4a50: 31 38 20 4d 61 72 20 32 30 31 30 20 32 33 3a 30 18 Mar 2010 23:0
4a60: 35 3a 33 36 20 2d 30 30 30 30 0a 40 40 20 2d 36 5:36 -0000.@@ -6
4a70: 37 36 2c 31 36 20 2b 36 37 36 2c 31 36 20 40 40 76,16 +676,16 @@
4a80: 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 31 20 test info-21.1
4a90: 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 {miscellaneous e
4aa0: 72 72 6f 72 20 63 6f 6e 64 0a 20 7d 20 2d 72 65 rror cond. } -re
4ab0: 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 72 sult {wrong # ar
4ac0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 69 gs: should be "i
4ad0: 6e 66 6f 20 73 75 62 63 6f 6d 6d 61 6e 64 20 3f nfo subcommand ?
4ae0: 61 72 67 20 2e 2e 2e 3f 22 7d 0a 20 74 65 73 74 arg ...?"}. test
4af0: 20 69 6e 66 6f 2d 32 31 2e 32 20 7b 6d 69 73 63 info-21.2 {misc
4b00: 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 ellaneous error
4b10: 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 conditions} -ret
4b20: 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d urnCodes error -
4b30: 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f body {. info
4b40: 20 67 6f 72 70 0a 2d 7d 20 2d 72 65 73 75 6c 74 gorp.-} -result
4b50: 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 {unknown or amb
4b60: 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e iguous subcomman
4b70: 64 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 62 d "gorp": must b
4b80: 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c e args, body, cl
4b90: 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 ass, cmdcount, c
4ba0: 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 ommands, complet
4bb0: 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 e, coroutine, de
4bc0: 66 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 fault, exists, f
4bd0: 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c rame, functions,
4be0: 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 globals, hostna
4bf0: 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 me, level, libra
4c00: 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 ry, loaded, loca
4c10: 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 ls, nameofexecut
4c20: 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 able, object, pa
4c30: 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c tchlevel, procs,
4c40: 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c script, sharedl
4c50: 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c ibextension, tcl
4c60: 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 version, or vars
4c70: 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e }.+} -result {un
4c80: 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f known or ambiguo
4c90: 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 67 us subcommand "g
4ca0: 6f 72 70 22 3a 20 6d 75 73 74 20 62 65 20 61 72 orp": must be ar
4cb0: 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c gs, body, class,
4cc0: 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 cmdcount, comma
4cd0: 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 nds, complete, c
4ce0: 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c oroutine, defaul
4cf0: 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 t, errorstack, e
4d00: 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 xists, frame, fu
4d10: 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 nctions, globals
4d20: 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 , hostname, leve
4d30: 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 l, library, load
4d40: 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 ed, locals, name
4d50: 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 ofexecutable, ob
4d60: 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c ject, patchlevel
4d70: 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c , procs, script,
4d80: 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 sharedlibextens
4d90: 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c ion, tclversion,
4da0: 20 6f 72 20 76 61 72 73 7d 0a 20 74 65 73 74 20 or vars}. test
4db0: 69 6e 66 6f 2d 32 31 2e 33 20 7b 6d 69 73 63 65 info-21.3 {misce
4dc0: 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 llaneous error c
4dd0: 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 onditions} -retu
4de0: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 rnCodes error -b
4df0: 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 ody {. info
4e00: 63 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e c.-} -result {un
4e10: 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f known or ambiguo
4e20: 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 63 us subcommand "c
4e30: 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c ": must be args,
4e40: 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d body, class, cm
4e50: 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 dcount, commands
4e60: 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f , complete, coro
4e70: 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 utine, default,
4e80: 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 exists, frame, f
4e90: 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c unctions, global
4ea0: 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 s, hostname, lev
4eb0: 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 el, library, loa
4ec0: 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d ded, locals, nam
4ed0: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f eofexecutable, o
4ee0: 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 bject, patchleve
4ef0: 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 l, procs, script
4f00: 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e , sharedlibexten
4f10: 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e sion, tclversion
4f20: 2c 20 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 , or vars}.+} -r
4f30: 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f esult {unknown o
4f40: 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 r ambiguous subc
4f50: 6f 6d 6d 61 6e 64 20 22 63 22 3a 20 6d 75 73 74 ommand "c": must
4f60: 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 be args, body,
4f70: 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c class, cmdcount,
4f80: 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c commands, compl
4f90: 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 ete, coroutine,
4fa0: 64 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 default, errorst
4fb0: 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 61 ack, exists, fra
4fc0: 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 me, functions, g
4fd0: 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 lobals, hostname
4fe0: 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 , level, library
4ff0: 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 , loaded, locals
5000: 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 , nameofexecutab
5010: 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 le, object, patc
5020: 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 hlevel, procs, s
5030: 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 cript, sharedlib
5040: 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 extension, tclve
5050: 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a rsion, or vars}.
5060: 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 34 20 test info-21.4
5070: 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 {miscellaneous e
5080: 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d rror conditions}
5090: 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 -returnCodes er
50a0: 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 ror -body {.
50b0: 20 69 6e 66 6f 20 6c 0a 2d 7d 20 2d 72 65 73 75 info l.-} -resu
50c0: 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 lt {unknown or a
50d0: 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d mbiguous subcomm
50e0: 61 6e 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 65 and "l": must be
50f0: 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 args, body, cla
5100: 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f ss, cmdcount, co
5110: 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 mmands, complete
5120: 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 , coroutine, def
5130: 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 ault, exists, fr
5140: 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 ame, functions,
5150: 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d globals, hostnam
5160: 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 e, level, librar
5170: 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c y, loaded, local
5180: 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 s, nameofexecuta
5190: 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 ble, object, pat
51a0: 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 chlevel, procs,
51b0: 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 script, sharedli
51c0: 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 bextension, tclv
51d0: 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d ersion, or vars}
51e0: 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b .+} -result {unk
51f0: 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 nown or ambiguou
5200: 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 6c 22 s subcommand "l"
5210: 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 : must be args,
5220: 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 body, class, cmd
5230: 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c count, commands,
5240: 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 complete, corou
5250: 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 tine, default, e
5260: 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 74 rrorstack, exist
5270: 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 s, frame, functi
5280: 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f ons, globals, ho
5290: 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c stname, level, l
52a0: 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 ibrary, loaded,
52b0: 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 locals, nameofex
52c0: 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 ecutable, object
52d0: 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 , patchlevel, pr
52e0: 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 ocs, script, sha
52f0: 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c redlibextension,
5300: 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 tclversion, or
5310: 76 61 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 6f vars}. test info
5320: 2d 32 31 2e 35 20 7b 6d 69 73 63 65 6c 6c 61 6e -21.5 {miscellan
5330: 65 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 69 eous error condi
5340: 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 6f tions} -returnCo
5350: 64 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 des error -body
5360: 7b 0a 20 20 20 20 20 69 6e 66 6f 20 73 0a 2d 7d {. info s.-}
5370: 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 -result {unknow
5380: 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 n or ambiguous s
5390: 75 62 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 6d ubcommand "s": m
53a0: 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 ust be args, bod
53b0: 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 y, class, cmdcou
53c0: 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f nt, commands, co
53d0: 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e mplete, coroutin
53e0: 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 e, default, exis
53f0: 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 ts, frame, funct
5400: 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 ions, globals, h
5410: 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 ostname, level,
5420: 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c library, loaded,
5430: 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 locals, nameofe
5440: 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 xecutable, objec
5450: 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 t, patchlevel, p
5460: 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 rocs, script, sh
5470: 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e aredlibextension
5480: 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 , tclversion, or
5490: 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c vars}.+} -resul
54a0: 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d t {unknown or am
54b0: 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 biguous subcomma
54c0: 6e 64 20 22 73 22 3a 20 6d 75 73 74 20 62 65 20 nd "s": must be
54d0: 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 args, body, clas
54e0: 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d s, cmdcount, com
54f0: 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c mands, complete,
5500: 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 coroutine, defa
5510: 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c ult, errorstack,
5520: 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 exists, frame,
5530: 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 functions, globa
5540: 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 ls, hostname, le
5550: 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f vel, library, lo
5560: 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 aded, locals, na
5570: 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 meofexecutable,
5580: 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 object, patchlev
5590: 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 el, procs, scrip
55a0: 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 t, sharedlibexte
55b0: 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f nsion, tclversio
55c0: 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 0a 20 23 n, or vars}. . #
55d0: 23 0a 20 23 20 23 23 23 20 23 23 23 20 23 23 23 #. # ### ### ###
55e0: 20 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 ######### #####
55f0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 0a 49 #### #########.I
5600: 6e 64 65 78 3a 20 74 65 73 74 73 2f 69 6e 69 74 ndex: tests/init
5610: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
5620: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5630: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5640: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5650: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
5660: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
5670: 2f 74 63 6c 2f 74 65 73 74 73 2f 69 6e 69 74 2e /tcl/tests/init.
5680: 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e test,v.retrievin
5690: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 31 0a g revision 1.21.
56a0: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 diff -u -p -r1.2
56b0: 31 20 69 6e 69 74 2e 74 65 73 74 0a 2d 2d 2d 20 1 init.test.---
56c0: 74 65 73 74 73 2f 69 6e 69 74 2e 74 65 73 74 09 tests/init.test.
56d0: 31 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 16 Nov 2009 18:0
56e0: 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 32 31 0a 0:11 -0000.1.21.
56f0: 2b 2b 2b 20 74 65 73 74 73 2f 69 6e 69 74 2e 74 +++ tests/init.t
5700: 65 73 74 09 31 38 20 4d 61 72 20 32 30 31 30 20 est.18 Mar 2010
5710: 32 33 3a 30 35 3a 33 36 20 2d 30 30 30 30 0a 40 23:05:36 -0000.@
5720: 40 20 2d 31 38 31 2c 37 20 2b 31 38 31 2c 37 20 @ -181,7 +181,7
5730: 40 40 20 74 65 73 74 20 69 6e 69 74 2d 35 2e 30 @@ test init-5.0
5740: 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 {return options
5750: 20 70 61 73 73 65 64 20 74 68 72 0a 20 20 20 20 passed thr.
5760: 20 6c 69 73 74 20 24 63 6f 64 65 20 24 66 6f 6f list $code $foo
5770: 20 24 62 61 72 20 24 63 6f 64 65 32 20 24 66 6f $bar $code2 $fo
5780: 6f 32 20 24 62 61 72 32 0a 20 7d 20 2d 63 6c 65 o2 $bar2. } -cle
5790: 61 6e 75 70 20 7b 0a 20 20 20 20 20 75 6e 73 65 anup {. unse
57a0: 74 20 3a 3a 61 75 74 6f 5f 69 6e 64 65 78 28 3a t ::auto_index(:
57b0: 3a 78 78 78 29 0a 2d 7d 20 2d 72 65 73 75 6c 74 :xxx).-} -result
57c0: 20 7b 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 63 {2 xxx {-errorc
57d0: 6f 64 65 20 4e 4f 4e 45 20 2d 63 6f 64 65 20 31 ode NONE -code 1
57e0: 20 2d 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 -level 1} 2 xxx
57f0: 20 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c {-code 1 -level
5800: 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 1 -errorcode NO
5810: 4e 45 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 NE}}.+} -match g
5820: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 78 lob -result {2 x
5830: 78 78 20 7b 2d 65 72 72 6f 72 63 6f 64 65 20 4e xx {-errorcode N
5840: 4f 4e 45 20 2d 63 6f 64 65 20 31 20 2d 6c 65 76 ONE -code 1 -lev
5850: 65 6c 20 31 7d 20 32 20 78 78 78 20 7b 2d 63 6f el 1} 2 xxx {-co
5860: 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 20 2d 65 de 1 -level 1 -e
5870: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 7d 7d 0a rrorcode NONE}}.
5880: 20 0c 0a 20 63 6c 65 61 6e 75 70 54 65 73 74 73 .. cleanupTests
5890: 0a 20 7d 09 3b 23 20 20 45 6e 64 20 6f 66 20 5b . }.;# End of [
58a0: 69 6e 74 65 72 70 20 65 76 61 6c 20 24 74 65 73 interp eval $tes
58b0: 74 49 6e 74 65 72 70 5d 0a 49 6e 64 65 78 3a 20 tInterp].Index:
58c0: 74 65 73 74 73 2f 72 65 73 75 6c 74 2e 74 65 73 tests/result.tes
58d0: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
58e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
58f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5900: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5910: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
5920: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
5930: 2f 74 65 73 74 73 2f 72 65 73 75 6c 74 2e 74 65 /tests/result.te
5940: 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 st,v.retrieving
5950: 72 65 76 69 73 69 6f 6e 20 31 2e 31 35 0a 64 69 revision 1.15.di
5960: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 31 35 20 ff -u -p -r1.15
5970: 72 65 73 75 6c 74 2e 74 65 73 74 0a 2d 2d 2d 20 result.test.---
5980: 74 65 73 74 73 2f 72 65 73 75 6c 74 2e 74 65 73 tests/result.tes
5990: 74 09 32 33 20 41 70 72 20 32 30 30 38 20 31 35 t.23 Apr 2008 15
59a0: 3a 34 34 3a 33 37 20 2d 30 30 30 30 09 31 2e 31 :44:37 -0000.1.1
59b0: 35 0a 2b 2b 2b 20 74 65 73 74 73 2f 72 65 73 75 5.+++ tests/resu
59c0: 6c 74 2e 74 65 73 74 09 31 38 20 4d 61 72 20 32 lt.test.18 Mar 2
59d0: 30 31 30 20 32 33 3a 30 35 3a 33 36 20 2d 30 30 010 23:05:36 -00
59e0: 30 30 0a 40 40 20 2d 31 33 31 2c 37 20 2b 31 33 00.@@ -131,7 +13
59f0: 31 2c 31 30 20 40 40 20 74 65 73 74 20 72 65 73 1,10 @@ test res
5a00: 75 6c 74 2d 36 2e 32 20 7b 42 75 67 20 31 36 34 ult-6.2 {Bug 164
5a10: 39 30 36 32 7d 20 2d 73 65 74 75 70 20 7b 0a 20 9062} -setup {.
5a20: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 } -cleanup {.
5a30: 20 20 72 65 6e 61 6d 65 20 66 6f 6f 20 7b 7d 0a rename foo {}.
5a40: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 66 6f 6f 20 } -result {foo
5a50: 7b 7d 20 7b 7d 7d 0a 2d 0a 2b 74 65 73 74 20 72 {} {}}.-.+test r
5a60: 65 73 75 6c 74 2d 36 2e 33 20 7b 6e 6f 6e 2d 6c esult-6.3 {non-l
5a70: 69 73 74 20 2d 65 72 72 6f 72 73 74 61 63 6b 7d ist -errorstack}
5a80: 20 7b 0a 2b 20 20 20 20 20 63 61 74 63 68 20 7b {.+ catch {
5a90: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 return -code err
5aa0: 6f 72 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 7b or -errorstack {
5ab0: 7b 7d 61 7d 20 65 65 6b 7d 20 6d 20 6f 0a 2b 20 {}a} eek} m o.+
5ac0: 20 20 20 20 6c 69 73 74 20 24 6d 20 5b 64 69 63 list $m [dic
5ad0: 74 20 67 65 74 20 24 6f 20 2d 65 72 72 6f 72 63 t get $o -errorc
5ae0: 6f 64 65 5d 20 5b 64 69 63 74 20 67 65 74 20 24 ode] [dict get $
5af0: 6f 20 2d 65 72 72 6f 72 73 74 61 63 6b 5d 0a 2b o -errorstack].+
5b00: 7d 20 7b 7b 62 61 64 20 2d 65 72 72 6f 72 73 74 } {{bad -errorst
5b10: 61 63 6b 20 76 61 6c 75 65 3a 20 65 78 70 65 63 ack value: expec
5b20: 74 65 64 20 61 20 6c 69 73 74 20 62 75 74 20 67 ted a list but g
5b30: 6f 74 20 22 7b 7d 61 22 7d 20 7b 54 43 4c 20 52 ot "{}a"} {TCL R
5b40: 45 53 55 4c 54 20 4e 4f 4e 4c 49 53 54 5f 45 52 ESULT NONLIST_ER
5b50: 52 4f 52 53 54 41 43 4b 7d 20 7b 7d 7d 0a 20 23 RORSTACK} {}}. #
5b60: 20 63 6c 65 61 6e 75 70 0a 20 63 6c 65 61 6e 75 cleanup. cleanu
5b70: 70 54 65 73 74 73 0a 20 72 65 74 75 72 6e 0a pTests. return.
