Attachment "errorstack10.patch" to
ticket [2868499fff]
added by
ferrieux
2010-03-18 05:30:17.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 63 61 74 63 68 Index: doc/catch
0010: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0060: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0070: 6c 2f 64 6f 63 2f 63 61 74 63 68 2e 6e 2c 76 0a l/doc/catch.n,v.
0080: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0090: 69 6f 6e 20 31 2e 32 33 0a 64 69 66 66 20 2d 75 ion 1.23.diff -u
00a0: 20 2d 70 20 2d 72 31 2e 32 33 20 63 61 74 63 68 -p -r1.23 catch
00b0: 2e 6e 0a 2d 2d 2d 20 64 6f 63 2f 63 61 74 63 68 .n.--- doc/catch
00c0: 2e 6e 09 31 33 20 4a 61 6e 20 32 30 31 30 20 31 .n.13 Jan 2010 1
00d0: 32 3a 30 38 3a 33 30 20 2d 30 30 30 30 09 31 2e 2:08:30 -0000.1.
00e0: 32 33 0a 2b 2b 2b 20 64 6f 63 2f 63 61 74 63 68 23.+++ doc/catch
00f0: 2e 6e 09 31 37 20 4d 61 72 20 32 30 31 30 20 32 .n.17 Mar 2010 2
0100: 32 3a 32 35 3a 34 38 20 2d 30 30 30 30 0a 40 40 2:25:48 -0000.@@
0110: 20 2d 35 34 2c 32 32 20 2b 35 34 2c 33 33 20 40 -54,22 +54,33 @
0120: 40 20 4f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 @ Only when the
0130: 72 65 74 75 72 6e 20 63 6f 64 65 20 69 73 20 5c return code is \
0140: 66 42 54 43 4c 5f 52 45 54 55 0a 20 74 68 65 20 fBTCL_RETU. the
0150: 5c 66 42 5c 2d 6c 65 76 65 6c 5c 66 52 20 61 6e \fB\-level\fR an
0160: 64 20 5c 66 42 5c 2d 63 6f 64 65 5c 66 52 20 65 d \fB\-code\fR e
0170: 6e 74 72 69 65 73 20 62 65 20 73 6f 6d 65 74 68 ntries be someth
0180: 69 6e 67 20 65 6c 73 65 2c 20 61 73 0a 20 66 75 ing else, as. fu
0190: 72 74 68 65 72 20 64 65 73 63 72 69 62 65 64 20 rther described
01a0: 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 in the documenta
01b0: 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 5c 66 42 tion for the \fB
01c0: 72 65 74 75 72 6e 5c 66 52 20 63 6f 6d 6d 61 6e return\fR comman
01d0: 64 2e 0a 20 2e 50 50 0a 2d 57 68 65 6e 20 74 68 d.. .PP.-When th
01e0: 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 e return code fr
01f0: 6f 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 om evaluation of
0200: 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 \fIscript\fR is
0210: 20 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 \fBTCL_ERROR\fR
0220: 2c 0a 2d 74 68 72 65 65 20 61 64 64 69 74 69 6f ,.-three additio
0230: 6e 61 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 nal entries are
0240: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 defined in the d
0250: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0260: 75 72 6e 20 6f 70 74 69 6f 6e 73 0a 2d 73 74 6f urn options.-sto
0270: 72 65 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e red in \fIoption
0280: 73 56 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 sVarName\fR: \fB
0290: 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 20 \-errorinfo\fR,
02a0: 5c 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 \fB\-errorcode\f
02b0: 52 2c 20 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 R, .-and \fB\-er
02c0: 72 6f 72 6c 69 6e 65 5c 66 52 2e 20 20 54 68 65 rorline\fR. The
02d0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
02e0: 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 52 20 B\-errorinfo\fR
02f0: 65 6e 74 72 79 0a 2d 69 73 20 61 20 66 6f 72 6d entry.-is a form
0300: 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 atted stack trac
0310: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 6f 72 e containing mor
0320: 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 e information ab
0330: 6f 75 74 0a 2d 74 68 65 20 63 6f 6e 74 65 78 74 out.-the context
0340: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 72 in which the er
0350: 72 6f 72 20 68 61 70 70 65 6e 65 64 2e 20 20 54 ror happened. T
0360: 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 he formatted sta
0370: 63 6b 0a 2d 74 72 61 63 65 20 69 73 20 6d 65 61 ck.-trace is mea
0380: 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 nt to be read by
0390: 20 61 20 70 65 72 73 6f 6e 2e 20 20 54 68 65 20 a person. The
03a0: 76 61 6c 75 65 20 6f 66 0a 2d 74 68 65 20 5c 66 value of.-the \f
03b0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
03c0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
03d0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 nal information
03e0: 61 62 6f 75 74 20 74 68 65 0a 2d 65 72 72 6f 72 about the.-error
03f0: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0400: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0410: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0420: 69 73 20 6d 65 61 6e 74 20 74 6f 0a 2d 62 65 20 is meant to.-be
0430: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0440: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0450: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0460: 72 74 69 63 75 6c 61 72 6c 79 0a 2d 72 65 61 64 rticularly.-read
0470: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0480: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
0490: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
04a0: 5c 66 52 20 65 6e 74 72 79 0a 2d 69 73 20 61 6e \fR entry.-is an
04b0: 20 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 integer indicat
04c0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
04d0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
04e0: 61 73 20 62 65 69 6e 67 0a 2d 65 76 61 6c 75 61 as being.-evalua
04f0: 74 65 64 20 77 68 65 6e 20 74 68 65 20 65 72 72 ted when the err
0500: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0510: 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 e values of the
0520: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0530: 52 0a 2d 61 6e 64 20 5c 66 42 5c 2d 65 72 72 6f R.-and \fB\-erro
0540: 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 65 73 rcode\fR entries
0550: 20 6f 66 20 74 68 65 20 6d 6f 73 74 20 72 65 63 of the most rec
0560: 65 6e 74 20 65 72 72 6f 72 20 61 72 65 20 61 6c ent error are al
0570: 73 6f 0a 2d 61 76 61 69 6c 61 62 6c 65 20 61 73 so.-available as
0580: 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 67 values of the g
0590: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 lobal variables
05a0: 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 6f 5c 66 \fB::errorInfo\f
05b0: 52 0a 2d 61 6e 64 20 5c 66 42 3a 3a 65 72 72 6f R.-and \fB::erro
05c0: 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 63 74 rCode\fR respect
05d0: 69 76 65 6c 79 2e 0a 2b 57 68 65 6e 20 74 68 65 ively..+When the
05e0: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f return code fro
05f0: 6d 20 65 76 61 6c 75 61 74 69 6f 6e 20 6f 66 20 m evaluation of
0600: 5c 66 49 73 63 72 69 70 74 5c 66 52 20 69 73 0a \fIscript\fR is.
0610: 2b 5c 66 42 54 43 4c 5f 45 52 52 4f 52 5c 66 52 +\fBTCL_ERROR\fR
0620: 2c 20 66 6f 75 72 20 61 64 64 69 74 69 6f 6e 61 , four additiona
0630: 6c 20 65 6e 74 72 69 65 73 20 61 72 65 20 64 65 l entries are de
0640: 66 69 6e 65 64 20 69 6e 20 74 68 65 20 64 69 63 fined in the dic
0650: 74 69 6f 6e 61 72 79 0a 2b 6f 66 20 72 65 74 75 tionary.+of retu
0660: 72 6e 20 6f 70 74 69 6f 6e 73 20 73 74 6f 72 65 rn options store
0670: 64 20 69 6e 20 5c 66 49 6f 70 74 69 6f 6e 73 56 d in \fIoptionsV
0680: 61 72 4e 61 6d 65 5c 66 52 3a 20 5c 66 42 5c 2d arName\fR: \fB\-
0690: 65 72 72 6f 72 69 6e 66 6f 5c 66 52 2c 0a 2b 5c errorinfo\fR,.+\
06a0: 66 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 fB\-errorcode\fR
06b0: 2c 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 , \fB\-errorline
06c0: 5c 66 52 2c 20 61 6e 64 20 5c 66 42 5c 2d 65 72 \fR, and \fB\-er
06d0: 72 6f 72 73 74 61 63 6b 5c 66 52 2e 20 20 54 68 rorstack\fR. Th
06e0: 65 0a 2b 76 61 6c 75 65 20 6f 66 20 74 68 65 20 e.+value of the
06f0: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
0700: 52 20 65 6e 74 72 79 20 69 73 20 61 20 66 6f 72 R entry is a for
0710: 6d 61 74 74 65 64 20 73 74 61 63 6b 20 74 72 61 matted stack tra
0720: 63 65 0a 2b 63 6f 6e 74 61 69 6e 69 6e 67 20 6d ce.+containing m
0730: 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ore information
0740: 61 62 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 about the contex
0750: 74 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 t in which the e
0760: 72 72 6f 72 0a 2b 68 61 70 70 65 6e 65 64 2e 20 rror.+happened.
0770: 20 54 68 65 20 66 6f 72 6d 61 74 74 65 64 20 73 The formatted s
0780: 74 61 63 6b 20 74 72 61 63 65 20 69 73 20 6d 65 tack trace is me
0790: 61 6e 74 20 74 6f 20 62 65 20 72 65 61 64 20 62 ant to be read b
07a0: 79 20 61 20 70 65 72 73 6f 6e 2e 0a 2b 54 68 65 y a person..+The
07b0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 value of the \f
07c0: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
07d0: 65 6e 74 72 79 20 69 73 20 61 64 64 69 74 69 6f entry is additio
07e0: 6e 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a nal information.
07f0: 2b 61 62 6f 75 74 20 74 68 65 20 65 72 72 6f 72 +about the error
0800: 20 73 74 6f 72 65 64 20 61 73 20 61 20 6c 69 73 stored as a lis
0810: 74 2e 20 20 54 68 65 20 5c 66 42 5c 2d 65 72 72 t. The \fB\-err
0820: 6f 72 63 6f 64 65 5c 66 52 20 76 61 6c 75 65 20 orcode\fR value
0830: 69 73 0a 2b 6d 65 61 6e 74 20 74 6f 20 62 65 20 is.+meant to be
0840: 66 75 72 74 68 65 72 20 70 72 6f 63 65 73 73 65 further processe
0850: 64 20 62 79 20 70 72 6f 67 72 61 6d 73 2c 20 61 d by programs, a
0860: 6e 64 20 6d 61 79 20 6e 6f 74 20 62 65 20 70 61 nd may not be pa
0870: 72 74 69 63 75 6c 61 72 6c 79 0a 2b 72 65 61 64 rticularly.+read
0880: 61 62 6c 65 20 62 79 20 70 65 6f 70 6c 65 2e 20 able by people.
0890: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 The value of th
08a0: 65 20 5c 66 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 e \fB\-errorline
08b0: 5c 66 52 20 65 6e 74 72 79 20 69 73 20 61 6e 0a \fR entry is an.
08c0: 2b 69 6e 74 65 67 65 72 20 69 6e 64 69 63 61 74 +integer indicat
08d0: 69 6e 67 20 77 68 69 63 68 20 6c 69 6e 65 20 6f ing which line o
08e0: 66 20 5c 66 49 73 63 72 69 70 74 5c 66 52 20 77 f \fIscript\fR w
08f0: 61 73 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 as being evaluat
0900: 65 64 20 77 68 65 6e 0a 2b 74 68 65 20 65 72 72 ed when.+the err
0910: 6f 72 20 6f 63 63 75 72 72 65 64 2e 20 20 54 68 or occurred. Th
0920: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 5c e value of the \
0930: 66 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c 66 fB\-errorstack\f
0940: 52 20 65 6e 74 72 79 20 69 73 20 61 0a 2b 6c 69 R entry is a.+li
0950: 73 74 20 6f 66 20 6c 69 73 74 73 20 6d 61 64 65 st of lists made
0960: 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e of the function
0970: 20 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 6d names and argum
0980: 65 6e 74 73 20 61 74 20 65 61 63 68 20 6c 65 76 ents at each lev
0990: 65 6c 0a 2b 66 72 6f 6d 20 74 68 65 20 63 61 6c el.+from the cal
09a0: 6c 20 73 74 61 63 6b 20 77 68 65 6e 20 74 68 65 l stack when the
09b0: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2e error occurred.
09c0: 20 49 74 20 64 69 66 66 65 72 73 20 66 72 6f 6d It differs from
09d0: 0a 2b 2d 65 72 72 6f 72 69 6e 66 6f 20 69 6e 20 .+-errorinfo in
09e0: 74 68 61 74 20 28 31 29 20 69 74 20 69 73 20 61 that (1) it is a
09f0: 20 74 72 75 65 20 6c 69 73 74 20 6f 66 20 6c 69 true list of li
0a00: 73 74 73 2c 20 66 6f 72 20 65 61 73 79 0a 2b 70 sts, for easy.+p
0a10: 72 6f 67 72 61 6d 6d 61 74 69 63 20 61 63 63 65 rogrammatic acce
0a20: 73 73 20 77 69 74 68 6f 75 74 20 70 61 72 73 69 ss without parsi
0a30: 6e 67 2c 20 28 32 29 20 69 74 20 63 6f 6e 74 61 ng, (2) it conta
0a40: 69 6e 73 20 74 68 65 20 74 72 75 65 0a 2b 28 73 ins the true.+(s
0a50: 75 62 73 74 69 74 75 74 65 64 29 20 76 61 6c 75 ubstituted) valu
0a60: 65 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 65 es passed to the
0a70: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 69 6e 73 74 functions, inst
0a80: 65 61 64 20 6f 66 20 74 68 65 20 73 74 61 74 69 ead of the stati
0a90: 63 0a 2b 74 65 78 74 20 6f 66 20 74 68 65 20 63 c.+text of the c
0aa0: 61 6c 6c 69 6e 67 20 73 69 74 65 73 2c 20 61 6e alling sites, an
0ab0: 64 20 28 33 29 20 69 74 20 69 73 20 63 6f 61 72 d (3) it is coar
0ac0: 73 65 72 2d 67 72 61 69 6e 65 64 2c 20 77 69 74 ser-grained, wit
0ad0: 68 20 6f 6e 6c 79 0a 2b 6f 6e 65 20 65 6c 65 6d h only.+one elem
0ae0: 65 6e 74 20 70 65 72 20 73 74 61 63 6b 20 66 72 ent per stack fr
0af0: 61 6d 65 20 28 6c 69 6b 65 20 70 72 6f 63 73 3b ame (like procs;
0b00: 20 6e 6f 20 73 65 70 61 72 61 74 65 20 65 6c 65 no separate ele
0b10: 6d 65 6e 74 73 20 66 6f 72 0a 2b 5b 66 6f 72 65 ments for.+[fore
0b20: 61 63 68 5d 20 63 6f 6e 73 74 72 75 63 74 73 20 ach] constructs
0b30: 66 6f 72 20 65 78 61 6d 70 6c 65 29 2e 0a 2b 0a for example)..+.
0b40: 2b 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 +The values of t
0b50: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 he \fB\-errorinf
0b60: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 5c 2d 65 72 o\fR and \fB\-er
0b70: 72 6f 72 63 6f 64 65 5c 66 52 20 65 6e 74 72 69 rorcode\fR entri
0b80: 65 73 20 6f 66 0a 2b 74 68 65 20 6d 6f 73 74 20 es of.+the most
0b90: 72 65 63 65 6e 74 20 65 72 72 6f 72 20 61 72 65 recent error are
0ba0: 20 61 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 also available
0bb0: 61 73 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 as values of the
0bc0: 20 67 6c 6f 62 61 6c 0a 2b 76 61 72 69 61 62 6c global.+variabl
0bd0: 65 73 20 5c 66 42 3a 3a 65 72 72 6f 72 49 6e 66 es \fB::errorInf
0be0: 6f 5c 66 52 20 61 6e 64 20 5c 66 42 3a 3a 65 72 o\fR and \fB::er
0bf0: 72 6f 72 43 6f 64 65 5c 66 52 20 72 65 73 70 65 rorCode\fR respe
0c00: 63 74 69 76 65 6c 79 2e 20 54 68 65 0a 2b 76 61 ctively. The.+va
0c10: 6c 75 65 20 6f 66 20 74 68 65 20 5c 66 42 5c 2d lue of the \fB\-
0c20: 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 20 65 6e errorstack\fR en
0c30: 74 72 79 20 73 75 72 66 61 63 65 73 20 61 73 20 try surfaces as
0c40: 5c 66 42 69 6e 66 6f 0a 2b 65 72 72 6f 72 73 74 \fBinfo.+errorst
0c50: 61 63 6b 5c 66 52 2e 0a 20 2e 50 50 0a 20 54 63 ack\fR.. .PP. Tc
0c60: 6c 20 70 61 63 6b 61 67 65 73 20 6d 61 79 20 70 l packages may p
0c70: 72 6f 76 69 64 65 20 63 6f 6d 6d 61 6e 64 73 20 rovide commands
0c80: 74 68 61 74 20 73 65 74 20 6f 74 68 65 72 20 65 that set other e
0c90: 6e 74 72 69 65 73 20 69 6e 20 74 68 65 0a 20 64 ntries in the. d
0ca0: 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 72 65 74 ictionary of ret
0cb0: 75 72 6e 20 6f 70 74 69 6f 6e 73 2c 20 61 6e 64 urn options, and
0cc0: 20 74 68 65 20 5c 66 42 72 65 74 75 72 6e 5c 66 the \fBreturn\f
0cd0: 52 20 63 6f 6d 6d 61 6e 64 20 6d 61 79 20 62 65 R command may be
0ce0: 0a 49 6e 64 65 78 3a 20 64 6f 63 2f 69 6e 66 6f .Index: doc/info
0cf0: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
0d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d30: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
0d40: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0d50: 6c 2f 64 6f 63 2f 69 6e 66 6f 2e 6e 2c 76 0a 72 l/doc/info.n,v.r
0d60: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
0d70: 6f 6e 20 31 2e 33 35 0a 64 69 66 66 20 2d 75 20 on 1.35.diff -u
0d80: 2d 70 20 2d 72 31 2e 33 35 20 69 6e 66 6f 2e 6e -p -r1.35 info.n
0d90: 0a 2d 2d 2d 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 .--- doc/info.n.
0da0: 31 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 16 Nov 2009 18:0
0db0: 30 3a 31 31 20 2d 30 30 30 30 09 31 2e 33 35 0a 0:11 -0000.1.35.
0dc0: 2b 2b 2b 20 64 6f 63 2f 69 6e 66 6f 2e 6e 09 31 +++ doc/info.n.1
0dd0: 37 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 35 7 Mar 2010 22:25
0de0: 3a 34 39 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 :49 -0000.@@ -94
0df0: 2c 36 20 2b 39 34 2c 31 36 20 40 40 20 64 6f 65 ,6 +94,16 @@ doe
0e00: 73 20 6e 6f 74 20 68 61 76 65 20 61 20 64 65 66 s not have a def
0e10: 61 75 6c 74 20 76 61 6c 75 65 20 74 68 65 6e 20 ault value then
0e20: 74 68 65 20 63 0a 20 4f 74 68 65 72 77 69 73 65 the c. Otherwise
0e30: 20 69 74 20 72 65 74 75 72 6e 73 20 5c 66 42 31 it returns \fB1
0e40: 5c 66 52 20 61 6e 64 20 70 6c 61 63 65 73 20 74 \fR and places t
0e50: 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 he default value
0e60: 20 6f 66 20 5c 66 49 61 72 67 5c 66 52 0a 20 69 of \fIarg\fR. i
0e70: 6e 74 6f 20 76 61 72 69 61 62 6c 65 20 5c 66 49 nto variable \fI
0e80: 76 61 72 6e 61 6d 65 5c 66 52 2e 0a 20 2e 54 50 varname\fR.. .TP
0e90: 0a 2b 5c 66 42 69 6e 66 6f 20 65 72 72 6f 72 73 .+\fBinfo errors
0ea0: 74 61 63 6b 20 5c 66 52 3f 5c 66 49 69 6e 74 65 tack \fR?\fIinte
0eb0: 72 70 5c 66 52 3f 0a 2b 2e 0a 2b 52 65 74 75 72 rp\fR?.+..+Retur
0ec0: 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 ns a list of lis
0ed0: 74 73 20 6d 61 64 65 20 6f 66 20 74 68 65 20 66 ts made of the f
0ee0: 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e unction names an
0ef0: 64 20 61 72 67 75 6d 65 6e 74 73 20 61 74 0a 2b d arguments at.+
0f00: 65 61 63 68 20 6c 65 76 65 6c 20 66 72 6f 6d 20 each level from
0f10: 74 68 65 20 63 61 6c 6c 20 73 74 61 63 6b 20 6f the call stack o
0f20: 66 20 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 f the last error
0f30: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 0a 2b 5c in the given.+\
0f40: 66 49 69 6e 74 65 72 70 5c 66 52 2c 20 6f 72 20 fIinterp\fR, or
0f50: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f in the current o
0f60: 6e 65 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 ne if not specif
0f70: 69 65 64 2e 20 20 54 68 69 73 0a 2b 69 6e 66 6f ied. This.+info
0f80: 72 6d 61 74 69 6f 6e 20 69 73 20 61 6c 73 6f 20 rmation is also
0f90: 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 2d present in the -
0fa0: 65 72 72 6f 72 73 74 61 63 6b 20 65 6e 74 72 79 errorstack entry
0fb0: 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 73 0a of the options.
0fc0: 2b 64 69 63 74 69 6f 6e 61 72 79 20 72 65 74 75 +dictionary retu
0fd0: 72 6e 65 64 20 62 79 20 33 2d 61 72 67 20 5c 66 rned by 3-arg \f
0fe0: 42 63 61 74 63 68 5c 66 52 3b 20 5c 66 42 69 6e Bcatch\fR; \fBin
0ff0: 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 fo errorstack\fR
1000: 20 69 73 20 61 0a 2b 63 6f 6e 76 65 6e 69 65 6e is a.+convenien
1010: 74 20 77 61 79 20 6f 66 20 72 65 74 72 69 65 76 t way of retriev
1020: 69 6e 67 20 69 74 20 66 6f 72 20 75 6e 63 61 75 ing it for uncau
1030: 67 68 74 20 65 72 72 6f 72 73 20 61 74 20 74 6f ght errors at to
1040: 70 6c 65 76 65 6c 20 69 6e 20 61 6e 0a 2b 69 6e plevel in an.+in
1050: 74 65 72 61 63 74 69 76 65 20 74 63 6c 73 68 2e teractive tclsh.
1060: 0a 2b 2e 54 50 0a 20 5c 66 42 69 6e 66 6f 20 65 .+.TP. \fBinfo e
1070: 78 69 73 74 73 20 5c 66 49 76 61 72 4e 61 6d 65 xists \fIvarName
1080: 5c 66 52 0a 20 2e 0a 20 52 65 74 75 72 6e 73 20 \fR. .. Returns
1090: 5c 66 42 31 5c 66 52 20 69 66 20 74 68 65 20 76 \fB1\fR if the v
10a0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 64 20 5c 66 ariable named \f
10b0: 49 76 61 72 4e 61 6d 65 5c 66 52 20 65 78 69 73 IvarName\fR exis
10c0: 74 73 20 69 6e 20 74 68 65 0a 49 6e 64 65 78 3a ts in the.Index:
10d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 generic/tclBasi
10e0: 63 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.c.============
10f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1120: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
1130: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
1140: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 cl/generic/tclBa
1150: 73 69 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 sic.c,v.retrievi
1160: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 34 ng revision 1.44
1170: 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 8.diff -u -p -r1
1180: 2e 34 34 38 20 74 63 6c 42 61 73 69 63 2e 63 0a .448 tclBasic.c.
1190: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 --- generic/tclB
11a0: 61 73 69 63 2e 63 09 35 20 4d 61 72 20 32 30 31 asic.c.5 Mar 201
11b0: 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 30 30 30 0 14:34:03 -0000
11c0: 09 31 2e 34 34 38 0a 2b 2b 2b 20 67 65 6e 65 72 .1.448.+++ gener
11d0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 31 37 ic/tclBasic.c.17
11e0: 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 35 3a Mar 2010 22:25:
11f0: 35 36 20 2d 30 30 30 30 0a 40 40 20 2d 35 32 39 56 -0000.@@ -529
1200: 2c 36 20 2b 35 32 39 2c 39 20 40 40 20 54 63 6c ,6 +529,9 @@ Tcl
1210: 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f _CreateInterp(vo
1220: 69 64 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 id). iPtr->e
1230: 72 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b rrorInfo = NULL;
1240: 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 . TclNewLite
1250: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 ralStringObj(iPt
1260: 72 2d 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 r->eiVar, "::err
1270: 6f 72 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 orInfo");. T
1280: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1290: 69 50 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 iPtr->eiVar);.+
12a0: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 iPtr->errorSt
12b0: 61 63 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 ack = Tcl_NewLis
12c0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b tObj(0, NULL);.+
12d0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
12e0: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
12f0: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 Stack);.+ iPt
1300: 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 r->resetErrorSta
1310: 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 ck = 1;. iPt
1320: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e r->errorCode = N
1330: 55 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 ULL;. TclNew
1340: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
1350: 28 69 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a (iPtr->ecVar, ":
1360: 3a 65 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 :errorCode");.
1370: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
1380: 75 6e 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 unt(iPtr->ecVar)
1390: 3b 0a 40 40 20 2d 31 34 36 37 2c 36 20 2b 31 34 ;.@@ -1467,6 +14
13a0: 37 30 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 70,7 @@ DeleteIn
13b0: 74 65 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f terpProc(. .Tcl_
13c0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 DecrRefCount(iPt
13d0: 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 r->errorInfo);.
13e0: 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f .iPtr->errorInfo
13f0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a = NULL;. }.
1400: 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 + Tcl_DecrRef
1410: 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f Count(iPtr->erro
1420: 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 rStack);. if
1430: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 (iPtr->returnOp
1440: 74 73 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 ts) {. .Tcl_Decr
1450: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 RefCount(iPtr->r
1460: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 eturnOpts);.
1470: 20 7d 0a 40 40 20 2d 38 39 34 33 2c 35 20 2b 38 }.@@ -8943,5 +8
1480: 39 34 37 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 947,7 @@ TclInfo
1490: 43 6f 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 CoroutineCmd(.
14a0: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
14b0: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
14c0: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
14d0: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
14e0: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
14f0: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
1500: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
1510: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 ex: generic/tclC
1520: 6d 64 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d mdIL.c.=========
1530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1560: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1570: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1580: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1590: 6c 43 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 lCmdIL.c,v.retri
15a0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
15b0: 2e 31 38 30 0a 64 69 66 66 20 2d 75 20 2d 70 20 .180.diff -u -p
15c0: 2d 72 31 2e 31 38 30 20 74 63 6c 43 6d 64 49 4c -r1.180 tclCmdIL
15d0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
15e0: 63 6c 43 6d 64 49 4c 2e 63 09 35 20 4d 61 72 20 clCmdIL.c.5 Mar
15f0: 32 30 31 30 20 31 34 3a 33 34 3a 30 33 20 2d 30 2010 14:34:03 -0
1600: 30 30 30 09 31 2e 31 38 30 0a 2b 2b 2b 20 67 65 000.1.180.+++ ge
1610: 6e 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 neric/tclCmdIL.c
1620: 09 31 37 20 4d 61 72 20 32 30 31 30 20 32 32 3a .17 Mar 2010 22:
1630: 32 36 3a 30 30 20 2d 30 30 30 30 0a 40 40 20 2d 26:00 -0000.@@ -
1640: 31 31 38 2c 36 20 2b 31 31 38 2c 39 20 40 40 20 118,6 +118,9 @@
1650: 73 74 61 74 69 63 20 69 6e 74 09 09 49 6e 66 6f static int..Info
1660: 43 6f 6d 70 6c 65 74 65 43 6d 64 28 43 6c 69 65 CompleteCmd(Clie
1670: 6e 74 44 61 74 61 20 64 0a 20 09 09 09 20 20 20 ntData d. ...
1680: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1690: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
16a0: 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 );. static int..
16b0: 49 6e 66 6f 44 65 66 61 75 6c 74 43 6d 64 28 43 InfoDefaultCmd(C
16c0: 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c lientData dummy,
16d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
16e0: 65 72 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 erp,. ... int
16f0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
1700: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 2b const objv[]);.+
1710: 2f 2a 20 54 49 50 20 23 33 34 38 20 2d 20 4e 65 /* TIP #348 - Ne
1720: 77 20 27 69 6e 66 6f 27 20 73 75 62 63 6f 6d 6d w 'info' subcomm
1730: 61 6e 64 20 27 65 72 72 6f 72 73 74 61 63 6b 27 and 'errorstack'
1740: 20 2a 2f 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 */.+static int.
1750: 09 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 .InfoErrorStackC
1760: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 md(ClientData du
1770: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
1780: 2a 69 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 *interp,.+...
1790: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
17a0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
17b0: 29 3b 0a 20 2f 2a 20 54 49 50 20 23 32 38 30 20 );. /* TIP #280
17c0: 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 62 - New 'info' sub
17d0: 63 6f 6d 6d 61 6e 64 20 27 66 72 61 6d 65 27 20 command 'frame'
17e0: 2a 2f 0a 20 73 74 61 74 69 63 20 69 6e 74 09 09 */. static int..
17f0: 49 6e 66 6f 46 72 61 6d 65 43 6d 64 28 43 6c 69 InfoFrameCmd(Cli
1800: 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 entData dummy, T
1810: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1820: 70 2c 0a 20 09 09 09 20 20 20 20 69 6e 74 20 6f p,. ... int o
1830: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
1840: 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 40 40 20 nst objv[]);.@@
1850: 2d 31 36 34 2c 36 20 2b 31 36 37 2c 37 20 40 40 -164,6 +167,7 @@
1860: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 45 6e static const En
1870: 73 65 6d 62 6c 65 49 6d 70 6c 4d 61 70 20 64 65 sembleImplMap de
1880: 66 61 75 6c 74 49 6e 66 6f 0a 20 20 20 20 20 7b faultInfo. {
1890: 22 63 6f 6d 70 6c 65 74 65 22 2c 09 20 20 20 49 "complete",. I
18a0: 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 2c 09 nfoCompleteCmd,.
18b0: 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 NULL, NULL,
18c0: 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 63 6f NULL},. {"co
18d0: 72 6f 75 74 69 6e 65 22 2c 09 20 20 20 54 63 6c routine",. Tcl
18e0: 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 6d 64 InfoCoroutineCmd
18f0: 2c 20 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c , NULL, NULL
1900: 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 , NULL},. {"
1910: 64 65 66 61 75 6c 74 22 2c 09 09 20 20 20 49 6e default",.. In
1920: 66 6f 44 65 66 61 75 6c 74 43 6d 64 2c 09 20 20 foDefaultCmd,.
1930: 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 NULL, NULL, NU
1940: 4c 4c 7d 2c 0a 2b 20 20 20 20 7b 22 65 72 72 6f LL},.+ {"erro
1950: 72 73 74 61 63 6b 22 2c 09 20 20 20 49 6e 66 6f rstack",. Info
1960: 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 2c 09 20 ErrorStackCmd,.
1970: 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e NULL, NULL, N
1980: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 65 78 69 ULL},. {"exi
1990: 73 74 73 22 2c 09 09 20 20 20 54 63 6c 49 6e 66 sts",.. TclInf
19a0: 6f 45 78 69 73 74 73 43 6d 64 2c 09 20 20 20 20 oExistsCmd,.
19b0: 54 63 6c 43 6f 6d 70 69 6c 65 49 6e 66 6f 45 78 TclCompileInfoEx
19c0: 69 73 74 73 43 6d 64 2c 20 4e 55 4c 4c 2c 20 4e istsCmd, NULL, N
19d0: 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 66 72 61 ULL},. {"fra
19e0: 6d 65 22 2c 09 09 20 20 20 49 6e 66 6f 46 72 61 me",.. InfoFra
19f0: 6d 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c meCmd,. NULL,
1a00: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 NULL, NULL},.
1a10: 20 20 20 7b 22 66 75 6e 63 74 69 6f 6e 73 22 2c {"functions",
1a20: 09 20 20 20 49 6e 66 6f 46 75 6e 63 74 69 6f 6e . InfoFunction
1a30: 73 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 sCmd,. NULL,
1a40: 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 40 40 20 NULL, NULL},.@@
1a50: 2d 31 30 32 32 2c 36 20 2b 31 30 32 36 2c 35 35 -1022,6 +1026,55
1a60: 20 40 40 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 @@ InfoDefaultC
1a70: 6d 64 28 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d md(. /*. *-----
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 0a 20 20 2a 0a 2b 20 2a 20 49 6e 66 6f 45 72 -. *.+ * InfoEr
1ad0: 72 6f 72 53 74 61 63 6b 43 6d 64 20 2d 2d 0a 2b rorStackCmd --.+
1ae0: 20 2a 0a 2b 20 2a 09 43 61 6c 6c 65 64 20 74 6f *.+ *.Called to
1af0: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
1b00: 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 22 info errorstack"
1b10: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 72 65 command that re
1b20: 74 75 72 6e 73 20 69 6e 66 6f 72 6d 61 74 69 6f turns informatio
1b30: 6e 0a 2b 20 2a 09 61 62 6f 75 74 20 74 68 65 20 n.+ *.about the
1b40: 6c 61 73 74 20 65 72 72 6f 72 27 73 20 63 61 6c last error's cal
1b50: 6c 20 73 74 61 63 6b 2e 20 48 61 6e 64 6c 65 73 l stack. Handles
1b60: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
1b70: 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b 20 2a 09 20 yntax:.+ *.+ *.
1b80: 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 info errorsta
1b90: 63 6b 20 3f 69 6e 74 65 72 70 3f 0a 2b 20 2a 0a ck ?interp?.+ *.
1ba0: 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a + * Results:.+ *
1bb0: 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f 4b 20 .Returns TCL_OK
1bc0: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 61 6e if successful an
1bd0: 64 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 74 d TCL_ERROR if t
1be0: 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f 72 here is an error
1bf0: 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 20 65 ..+ *.+ * Side e
1c00: 66 66 65 63 74 73 3a 0a 2b 20 2a 09 52 65 74 75 ffects:.+ *.Retu
1c10: 72 6e 73 20 61 20 72 65 73 75 6c 74 20 69 6e 20 rns a result in
1c20: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 27 the interpreter'
1c30: 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 74 2e s result object.
1c40: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 0a If there is an.
1c50: 2b 20 2a 09 65 72 72 6f 72 2c 20 74 68 65 20 72 + *.error, the r
1c60: 65 73 75 6c 74 20 69 73 20 61 6e 20 65 72 72 6f esult is an erro
1c70: 72 20 6d 65 73 73 61 67 65 2e 0a 2b 20 2a 0a 2b r message..+ *.+
1c80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a --------.+ */.+.
1cd0: 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 49 6e 66 +static int.+Inf
1ce0: 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 28 0a oErrorStackCmd(.
1cf0: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 + ClientData
1d00: 64 75 6d 6d 79 2c 09 09 2f 2a 20 4e 6f 74 20 75 dummy,../* Not u
1d10: 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c sed. */.+ Tcl
1d20: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1d30: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ../* Current int
1d40: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 erpreter. */.+
1d50: 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 2f 2a int objc,.../*
1d60: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
1d70: 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 ents. */.+ Tc
1d80: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
1d90: 76 5b 5d 29 09 2f 2a 20 41 72 67 75 6d 65 6e 74 v[])./* Argument
1da0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a objects. */.+{.
1db0: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 + Tcl_Interp
1dc0: 2a 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 49 6e *target;.+ In
1dd0: 74 65 72 70 20 2a 69 50 74 72 3b 0a 2b 0a 2b 20 terp *iPtr;.+.+
1de0: 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 3d 20 if ((objc !=
1df0: 31 29 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 32 1) && (objc != 2
1e00: 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 )) {.+.Tcl_Wrong
1e10: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
1e20: 31 2c 20 6f 62 6a 76 2c 20 22 3f 69 6e 74 65 72 1, objv, "?inter
1e30: 70 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 p?");.+.return T
1e40: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
1e50: 0a 2b 20 20 20 20 0a 2b 20 20 20 20 74 61 72 67 .+ .+ targ
1e60: 65 74 20 3d 20 69 6e 74 65 72 70 3b 0a 2b 20 20 et = interp;.+
1e70: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 if (objc == 2)
1e80: 20 7b 0a 2b 20 20 20 20 20 20 20 20 74 61 72 67 {.+ targ
1e90: 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 6c 61 76 et = Tcl_GetSlav
1ea0: 65 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 e(interp, Tcl_Ge
1eb0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
1ec0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 20 28 );.+ if (
1ed0: 74 61 72 67 65 74 20 3d 3d 20 4e 55 4c 4c 29 20 target == NULL)
1ee0: 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 72 {.+ r
1ef0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1f00: 0a 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 .+ }.+
1f10: 20 7d 0a 2b 0a 2b 20 20 20 20 69 50 74 72 20 3d }.+.+ iPtr =
1f20: 20 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67 (Interp *) targ
1f30: 65 74 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 65 74 et;.+ Tcl_Set
1f40: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1f50: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
1f60: 63 6b 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 ck);.+ .+
1f70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b return TCL_OK;.+
1f80: 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d 2d 2d }.+..+/*.+ *----
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 6c 49 6e --.+ *. * TclIn
1fe0: 66 6f 45 78 69 73 74 73 43 6d 64 20 2d 2d 0a 20 foExistsCmd --.
1ff0: 20 2a 0a 20 20 2a 09 43 61 6c 6c 65 64 20 74 6f *. *.Called to
2000: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 22 implement the "
2010: 69 6e 66 6f 20 65 78 69 73 74 73 22 20 63 6f 6d info exists" com
2020: 6d 61 6e 64 20 74 68 61 74 20 64 65 74 65 72 6d mand that determ
2030: 69 6e 65 73 20 77 68 65 74 68 65 72 0a 40 40 20 ines whether.@@
2040: 2d 34 34 30 31 2c 35 20 2b 34 34 35 34 2c 37 20 -4401,5 +4454,7
2050: 40 40 20 53 65 6c 65 63 74 4f 62 6a 46 72 6f 6d @@ SelectObjFrom
2060: 53 75 62 6c 69 73 74 28 0a 20 20 2a 20 6d 6f 64 Sublist(. * mod
2070: 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 e: c. * c-basic
2080: 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 -offset: 4. * f
2090: 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b ill-column: 78.+
20a0: 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0a * tab-width: 8.
20b0: 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d + * indent-tabs-
20c0: 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e mode: nil. * En
20d0: 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 d:. */.Index: g
20e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
20f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2120: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2130: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2140: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2150: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
2160: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
2170: 69 73 69 6f 6e 20 31 2e 34 36 34 0a 64 69 66 66 ision 1.464.diff
2180: 20 2d 75 20 2d 70 20 2d 72 31 2e 34 36 34 20 74 -u -p -r1.464 t
2190: 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 clInt.h.--- gene
21a0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 35 20 4d ric/tclInt.h.5 M
21b0: 61 72 20 32 30 31 30 20 31 34 3a 33 34 3a 30 34 ar 2010 14:34:04
21c0: 20 2d 30 30 30 30 09 31 2e 34 36 34 0a 2b 2b 2b -0000.1.464.+++
21d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e generic/tclInt.
21e0: 68 09 31 37 20 4d 61 72 20 32 30 31 30 20 32 32 h.17 Mar 2010 22
21f0: 3a 32 36 3a 30 35 20 2d 30 30 30 30 0a 40 40 20 :26:05 -0000.@@
2200: 2d 31 39 38 34 2c 36 20 2b 31 39 38 34 2c 38 20 -1984,6 +1984,8
2210: 40 40 20 74 79 70 65 64 65 66 20 73 74 72 75 63 @@ typedef struc
2220: 74 20 49 6e 74 65 72 70 20 7b 0a 20 20 20 20 20 t Interp {.
2230: 54 63 6c 5f 4f 62 6a 20 2a 65 69 56 61 72 3b 09 Tcl_Obj *eiVar;.
2240: 09 2f 2a 20 63 61 63 68 65 64 20 72 65 66 20 74 ./* cached ref t
2250: 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 61 o ::errorInfo va
2260: 72 69 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 20 20 riable. */.
2270: 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 43 6f Tcl_Obj *errorCo
2280: 64 65 3b 09 09 2f 2a 20 65 72 72 6f 72 43 6f 64 de;../* errorCod
2290: 65 20 76 61 6c 75 65 20 28 6e 6f 77 20 61 73 20 e value (now as
22a0: 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f 0a 20 a Tcl_Obj). */.
22b0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 63 56 Tcl_Obj *ecV
22c0: 61 72 3b 09 09 2f 2a 20 63 61 63 68 65 64 20 72 ar;../* cached r
22d0: 65 66 20 74 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 ef to ::errorInf
22e0: 6f 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 2b o variable. */.+
22f0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 Tcl_Obj *err
2300: 6f 72 53 74 61 63 6b 3b 09 2f 2a 20 5b 69 6e 66 orStack;./* [inf
2310: 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 20 76 61 o errorstack] va
2320: 6c 75 65 20 28 61 73 20 61 20 54 63 6c 5f 4f 62 lue (as a Tcl_Ob
2330: 6a 29 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 j). */.+ int
2340: 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 3b resetErrorStack;
2350: 20 20 20 20 20 20 20 20 2f 2a 20 63 6f 6e 74 72 /* contr
2360: 6f 6c 73 20 63 6c 65 61 6e 69 6e 67 20 75 70 20 ols cleaning up
2370: 6f 66 20 3a 3a 65 72 72 6f 72 53 74 61 63 6b 20 of ::errorStack
2380: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 72 65 74 75 */. int retu
2390: 72 6e 4c 65 76 65 6c 3b 09 09 2f 2a 20 5b 72 65 rnLevel;../* [re
23a0: 74 75 72 6e 20 2d 6c 65 76 65 6c 5d 20 70 61 72 turn -level] par
23b0: 61 6d 65 74 65 72 2e 20 2a 2f 0a 20 0a 20 20 20 ameter. */. .
23c0: 20 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 /*.Index: gene
23d0: 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 0a ric/tclNamesp.c.
23e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
23f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2420: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
2430: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
2440: 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 eneric/tclNamesp
2450: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
2460: 72 65 76 69 73 69 6f 6e 20 31 2e 32 30 34 0a 64 revision 1.204.d
2470: 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 30 iff -u -p -r1.20
2480: 34 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 4 tclNamesp.c.--
2490: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d - generic/tclNam
24a0: 65 73 70 2e 63 09 35 20 4d 61 72 20 32 30 31 30 esp.c.5 Mar 2010
24b0: 20 31 34 3a 33 34 3a 30 34 20 2d 30 30 30 30 09 14:34:04 -0000.
24c0: 31 2e 32 30 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.204.+++ generi
24d0: 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 31 37 c/tclNamesp.c.17
24e0: 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 36 3a Mar 2010 22:26:
24f0: 31 30 20 2d 30 30 30 30 0a 40 40 20 2d 34 38 37 10 -0000.@@ -487
2500: 33 2c 37 20 2b 34 38 37 33 2c 37 20 40 40 20 54 3,7 +4873,7 @@ T
2510: 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 cl_LogCommandInf
2520: 6f 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 69 73 o(. {. regis
2530: 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ter const char *
2540: 70 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a p;. Interp *
2550: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a iPtr = (Interp *
2560: 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 69 ) interp;.- i
2570: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
2580: 69 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 20 69 it = 150;.+ i
2590: 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d nt overflow, lim
25a0: 69 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b 0a 20 it = 150, len;.
25b0: 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 72 2c Var *varPtr,
25c0: 20 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a 20 20 *arrayPtr;. .
25d0: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 66 6c 61 if (iPtr->fla
25e0: 67 73 20 26 20 45 52 52 5f 41 4c 52 45 41 44 59 gs & ERR_ALREADY
25f0: 5f 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 2d 34 _LOGGED) {.@@ -4
2600: 39 33 32 2c 36 20 2b 34 39 33 32 2c 33 32 20 40 932,6 +4932,32 @
2610: 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 @ Tcl_LogCommand
2620: 49 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 43 4c Info(. .. TCL
2630: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 _GLOBAL_ONLY);.
2640: 09 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 .}. }.+.+
2650: 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50 20 /*.+ * TIP
2660: 23 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a #348.+ */.+.
2670: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 + if (Tcl_IsS
2680: 68 61 72 65 64 28 69 50 74 72 2d 3e 65 72 72 6f hared(iPtr->erro
2690: 72 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 20 20 rStack)) {.+
26a0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 Tcl_Obj *new
26b0: 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 Obj;.+
26c0: 20 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 77 4f .+ newO
26d0: 62 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 bj = Tcl_Duplica
26e0: 74 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f teObj(iPtr->erro
26f0: 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 rStack);.+
2700: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
2710: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 nt(iPtr->errorSt
2720: 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 ack);.+ T
2730: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2740: 6e 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 20 newObj);.+
2750: 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 iPtr->errorSta
2760: 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 20 ck = newObj;.+
2770: 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 73 }.+ Tcl_Lis
2780: 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 65 72 tObjLength(inter
2790: 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 p, iPtr->errorSt
27a0: 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 20 ack, &len);.+
27b0: 20 69 66 20 28 69 50 74 72 2d 3e 72 65 73 65 74 if (iPtr->reset
27c0: 45 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a 2b 20 ErrorStack) {.+
27d0: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 65 73 iPtr->res
27e0: 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 30 etErrorStack = 0
27f0: 3b 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 72 65 ;.+ /* re
2800: 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 6e set while keepin
2810: 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 65 g the list intre
2820: 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 p as much as pos
2830: 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 20 sible */.+
2840: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 70 Tcl_ListObjRep
2850: 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 74 lace(interp, iPt
2860: 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 30 r->errorStack, 0
2870: 2c 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 29 3b , len, 0, NULL);
2880: 0a 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d 30 3b .+ len=0;
2890: 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 69 66 .+ } .+ if
28a0: 20 28 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 (iPtr->varFrame
28b0: 50 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 6f 6f Ptr != iPtr->roo
28c0: 74 46 72 61 6d 65 50 74 72 29 20 7b 0a 2b 20 20 tFramePtr) {.+
28d0: 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 Tcl_ListOb
28e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 4e jAppendElement(N
28f0: 55 4c 4c 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 ULL,.+
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72 iPtr->err
2920: 6f 72 53 74 61 63 6b 2c 0a 2b 20 20 20 20 20 20 orStack,.+
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2940: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e Tcl_N
2950: 65 77 4c 69 73 74 4f 62 6a 28 69 50 74 72 2d 3e ewListObj(iPtr->
2960: 76 61 72 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a varFramePtr->obj
2970: 63 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 c,.+
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
29a0: 20 20 20 20 69 50 74 72 2d 3e 76 61 72 46 72 61 iPtr->varFra
29b0: 6d 65 50 74 72 2d 3e 6f 62 6a 76 29 29 3b 0a 2b mePtr->objv));.+
29c0: 20 20 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a }. }. .. /*.
29d0: 40 40 20 2d 34 39 33 39 2c 35 20 2b 34 39 36 35 @@ -4939,5 +4965
29e0: 2c 37 20 40 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d ,7 @@ Tcl_LogCom
29f0: 6d 61 6e 64 49 6e 66 6f 28 0a 20 20 2a 20 6d 6f mandInfo(. * mo
2a00: 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 de: c. * c-basi
2a10: 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a 20 c-offset: 4. *
2a20: 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a fill-column: 78.
2a30: 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 38 + * tab-width: 8
2a40: 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 73 .+ * indent-tabs
2a50: 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 -mode: nil. * E
2a60: 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 nd:. */.Index:
2a70: 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c generic/tclResul
2a80: 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.c.============
2a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ac0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
2ad0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
2ae0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 cl/generic/tclRe
2af0: 73 75 6c 74 2e 63 2c 76 0a 72 65 74 72 69 65 76 sult.c,v.retriev
2b00: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 35 ing revision 1.5
2b10: 37 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 7.diff -u -p -r1
2b20: 2e 35 37 20 74 63 6c 52 65 73 75 6c 74 2e 63 0a .57 tclResult.c.
2b30: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 --- generic/tclR
2b40: 65 73 75 6c 74 2e 63 09 32 34 20 46 65 62 20 32 esult.c.24 Feb 2
2b50: 30 31 30 20 31 30 3a 34 35 3a 30 34 20 2d 30 30 010 10:45:04 -00
2b60: 30 30 09 31 2e 35 37 0a 2b 2b 2b 20 67 65 6e 65 00.1.57.+++ gene
2b70: 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 ric/tclResult.c.
2b80: 31 37 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 17 Mar 2010 22:2
2b90: 36 3a 31 37 20 2d 30 30 30 30 0a 40 40 20 2d 31 6:17 -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: 38 20 2b 31 32 36 38 2c 34 30 20 40 40 20 54 63 8 +1268,40 @@ 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 2b 20 20 20 != NULL) {.+
33e0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 76 61 6c int val
33f0: 75 65 4c 65 6e 3b 0a 2b 20 20 20 20 20 20 20 20 ueLen;.+
3400: 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 20 20 20 /*.+
3410: 20 20 20 20 20 2a 20 5b 72 65 74 75 72 6e 20 2d * [return -
3420: 65 72 72 6f 72 63 6f 64 65 5d 20 69 73 20 64 6f errorcode] is do
3430: 63 75 6d 65 6e 74 65 64 20 74 6f 20 74 61 6b 65 cumented to take
3440: 20 61 20 6c 69 73 74 2e 0a 2b 20 20 20 20 20 20 a list..+
3450: 20 20 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 20 */.+
3460: 20 20 20 20 20 20 20 69 66 20 28 54 63 6c 5f 4c if (Tcl_L
3470: 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 istObjLength(int
3480: 65 72 70 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 erp, valuePtr, &
3490: 76 61 6c 75 65 4c 65 6e 29 20 3d 3d 20 54 43 4c valueLen) == TCL
34a0: 5f 45 52 52 4f 52 29 20 7b 0a 2b 20 20 20 20 20 _ERROR) {.+
34b0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
34c0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 n TCL_ERROR;.+
34d0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 09 20 20 }. .
34e0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 45 72 72 6f Tcl_SetObjErro
34f0: 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 76 61 rCode(interp, va
3500: 6c 75 65 50 74 72 29 3b 0a 20 09 7d 20 65 6c 73 luePtr);. .} els
3510: 65 20 7b 0a 20 09 20 20 20 20 54 63 6c 5f 53 65 e {. . Tcl_Se
3520: 74 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 72 tErrorCode(inter
3530: 70 2c 20 22 4e 4f 4e 45 22 2c 20 4e 55 4c 4c 29 p, "NONE", NULL)
3540: 3b 0a 40 40 20 2d 31 35 30 31 2c 36 20 2b 31 35 ;.@@ -1501,6 +15
3550: 33 35 2c 37 20 40 40 20 54 63 6c 5f 47 65 74 52 35,7 @@ Tcl_GetR
3560: 65 74 75 72 6e 4f 70 74 69 6f 6e 73 28 0a 20 0a eturnOptions(. .
3570: 20 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 if (result
3580: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a == TCL_ERROR) {.
3590: 20 09 54 63 6c 5f 41 64 64 4f 62 6a 45 72 72 6f .Tcl_AddObjErro
35a0: 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 22 22 rInfo(interp, ""
35b0: 2c 20 2d 31 29 3b 0a 2b 20 20 20 20 20 20 20 20 , -1);.+
35c0: 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e Tcl_DictObjPut(N
35d0: 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 6b 65 ULL, options, ke
35e0: 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 54 41 43 ys[KEY_ERRORSTAC
35f0: 4b 5d 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 K], iPtr->errorS
3600: 74 61 63 6b 29 3b 0a 20 20 20 20 20 7d 0a 20 20 tack);. }.
3610: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65 72 72 if (iPtr->err
3620: 6f 72 43 6f 64 65 29 20 7b 0a 20 09 54 63 6c 5f orCode) {. .Tcl_
3630: 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c DictObjPut(NULL,
3640: 20 6f 70 74 69 6f 6e 73 2c 20 6b 65 79 73 5b 4b options, keys[K
3650: 45 59 5f 45 52 52 4f 52 43 4f 44 45 5d 2c 20 69 EY_ERRORCODE], i
3660: 50 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65 29 3b Ptr->errorCode);
3670: 0a 40 40 20 2d 31 36 33 32 2c 35 20 2b 31 36 36 .@@ -1632,5 +166
3680: 37 2c 37 20 40 40 20 54 63 6c 5f 54 72 61 6e 73 7,7 @@ Tcl_Trans
3690: 66 65 72 52 65 73 75 6c 74 28 0a 20 20 2a 20 6d ferResult(. * m
36a0: 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 ode: c. * c-bas
36b0: 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a ic-offset: 4. *
36c0: 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 fill-column: 78
36d0: 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 .+ * tab-width:
36e0: 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 8.+ * indent-tab
36f0: 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 s-mode: nil. *
3700: 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a End:. */.Index:
3710: 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 tests/cmdMZ.tes
3720: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
3730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3750: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3760: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
3770: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
3780: 2f 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 /tests/cmdMZ.tes
3790: 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 t,v.retrieving r
37a0: 65 76 69 73 69 6f 6e 20 31 2e 32 38 0a 64 69 66 evision 1.28.dif
37b0: 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 38 20 63 f -u -p -r1.28 c
37c0: 6d 64 4d 5a 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 mdMZ.test.--- te
37d0: 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 09 31 sts/cmdMZ.test.1
37e0: 36 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 30 6 Nov 2009 18:00
37f0: 3a 31 31 20 2d 30 30 30 30 09 31 2e 32 38 0a 2b :11 -0000.1.28.+
3800: 2b 2b 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 ++ tests/cmdMZ.t
3810: 65 73 74 09 31 37 20 4d 61 72 20 32 30 31 30 20 est.17 Mar 2010
3820: 32 32 3a 32 36 3a 31 37 20 2d 30 30 30 30 0a 40 22:26:17 -0000.@
3830: 40 20 2d 31 34 39 2c 31 31 20 2b 31 34 39 2c 31 @ -149,11 +149,1
3840: 31 20 40 40 20 74 65 73 74 20 63 6d 64 4d 5a 2d 1 @@ test cmdMZ-
3850: 72 65 74 75 72 6e 2d 32 2e 38 20 7b 72 65 74 75 return-2.8 {retu
3860: 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 0a 20 74 rn option han. t
3870: 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e est cmdMZ-return
3880: 2d 32 2e 39 20 7b 72 65 74 75 72 6e 20 6f 70 74 -2.9 {return opt
3890: 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 ion handling} -b
38a0: 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 74 75 72 ody {. retur
38b0: 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 n -level 0 -code
38c0: 20 31 30 0a 20 7d 20 2d 72 65 74 75 72 6e 43 6f 10. } -returnCo
38d0: 64 65 73 20 31 30 20 2d 72 65 73 75 6c 74 20 7b des 10 -result {
38e0: 7d 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 }.-test cmdMZ-re
38f0: 74 75 72 6e 2d 32 2e 31 30 20 7b 72 65 74 75 72 turn-2.10 {retur
3900: 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e n option handlin
3910: 67 7d 20 7b 0a 2b 74 65 73 74 20 63 6d 64 4d 5a g} {.+test cmdMZ
3920: 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b 72 65 -return-2.10 {re
3930: 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 turn option hand
3940: 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 ling} -body {.
3950: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b list [catch {
3960: 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 return -level 0
3970: 2d 63 6f 64 65 20 65 72 72 6f 72 7d 20 2d 3e 20 -code error} ->
3980: 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 24 foo] [dictSort $
3990: 66 6f 6f 5d 0a 2d 7d 20 7b 31 20 7b 2d 63 6f 64 foo].-} {1 {-cod
39a0: 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e e 1 -errorcode N
39b0: 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 7b ONE -errorinfo {
39c0: 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 .+} -match glob
39d0: 2d 72 65 73 75 6c 74 20 7b 31 20 7b 2d 63 6f 64 -result {1 {-cod
39e0: 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e e 1 -errorcode N
39f0: 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 7b ONE -errorinfo {
3a00: 0a 20 20 20 20 20 77 68 69 6c 65 20 65 78 65 63 . while exec
3a10: 75 74 69 6e 67 0a 2d 22 72 65 74 75 72 6e 20 2d uting.-"return -
3a20: 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 level 0 -code er
3a30: 72 6f 72 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 ror"} -errorline
3a40: 20 31 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a 2b 22 1 -level 0}}.+"
3a50: 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 return -level 0
3a60: 2d 63 6f 64 65 20 65 72 72 6f 72 22 7d 20 2d 65 -code error"} -e
3a70: 72 72 6f 72 6c 69 6e 65 20 31 20 2d 65 72 72 6f rrorline 1 -erro
3a80: 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 65 6c 20 rstack * -level
3a90: 30 7d 7d 0a 20 74 65 73 74 20 63 6d 64 4d 5a 2d 0}}. test cmdMZ-
3aa0: 72 65 74 75 72 6e 2d 32 2e 31 31 20 7b 72 65 74 return-2.11 {ret
3ab0: 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c urn option handl
3ac0: 69 6e 67 7d 20 7b 0a 20 20 20 20 20 6c 69 73 74 ing} {. list
3ad0: 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e 20 [catch {return
3ae0: 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 62 -level 0 -code b
3af0: 72 65 61 6b 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 reak} -> foo] [d
3b00: 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 20 7d ictSort $foo]. }
3b10: 20 7b 33 20 7b 2d 63 6f 64 65 20 33 20 2d 6c 65 {3 {-code 3 -le
3b20: 76 65 6c 20 30 7d 7d 0a 40 40 20 2d 31 39 33 2c vel 0}}.@@ -193,
3b30: 36 20 2b 31 39 33 2c 39 20 40 40 20 74 65 73 74 6 +193,9 @@ test
3b40: 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e cmdMZ-return-2.
3b50: 31 37 20 7b 72 65 74 75 72 6e 20 6f 70 74 6f 6e 17 {return opton
3b60: 20 68 61 6e 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 han. } -cleanup
3b70: 20 7b 0a 20 20 20 20 20 72 65 6e 61 6d 65 20 70 {. rename p
3b80: 20 7b 7d 0a 20 7d 20 2d 72 65 73 75 6c 74 20 7b {}. } -result {
3b90: 31 20 63 20 7b 61 20 62 7d 7d 0a 2b 74 65 73 74 1 c {a b}}.+test
3ba0: 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e cmdMZ-return-2.
3bb0: 31 38 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 18 {return optio
3bc0: 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 20 n handling} {.+
3bd0: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b list [catch {
3be0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 return -code err
3bf0: 6f 72 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 5b or -errorstack [
3c00: 6c 69 73 74 20 61 20 62 20 63 5d 20 79 6f 7d 20 list a b c] yo}
3c10: 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 -> foo] [dictSor
3c20: 74 20 24 66 6f 6f 5d 20 5b 69 6e 66 6f 20 65 72 t $foo] [info er
3c30: 72 6f 72 73 74 61 63 6b 5d 0a 2b 7d 20 7b 32 20 rorstack].+} {2
3c40: 7b 2d 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 {-code 1 -errorc
3c50: 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 73 ode NONE -errors
3c60: 74 61 63 6b 20 7b 61 20 62 20 63 7d 20 2d 6c 65 tack {a b c} -le
3c70: 76 65 6c 20 31 7d 20 7b 61 20 62 20 63 7d 7d 0a vel 1} {a b c}}.
3c80: 20 0a 20 23 20 43 68 65 63 6b 20 74 68 61 74 20 . # Check that
3c90: 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 20 the result of a
3ca0: 5b 72 65 74 75 72 6e 20 2d 6f 70 74 69 6f 6e 73 [return -options
3cb0: 20 24 6f 70 74 73 20 24 72 65 73 75 6c 74 5d 20 $opts $result]
3cc0: 69 73 0a 20 23 20 69 6e 64 69 73 74 69 6e 67 75 is. # indistingu
3cd0: 69 73 68 61 62 6c 65 20 66 72 6f 6d 20 74 68 61 ishable from tha
3ce0: 74 20 6f 66 20 74 68 65 20 6f 72 69 67 69 6e 61 t of the origina
3cf0: 6c 6c 79 20 63 61 75 67 68 74 20 73 63 72 69 70 lly caught scrip
3d00: 74 2c 20 6e 6f 20 6d 61 74 74 65 72 20 77 68 61 t, no matter wha
3d10: 74 0a 40 40 20 2d 32 31 31 2c 36 20 2b 32 31 34 t.@@ -211,6 +214
3d20: 2c 37 20 40 40 20 66 6f 72 65 61 63 68 20 7b 74 ,7 @@ foreach {t
3d30: 65 73 74 69 64 20 73 63 72 69 70 74 7d 20 7b 0a estid script} {.
3d40: 20 20 20 20 20 63 6d 64 4d 5a 2d 72 65 74 75 72 cmdMZ-retur
3d50: 6e 2d 33 2e 31 30 20 7b 72 65 74 75 72 6e 20 2d n-3.10 {return -
3d60: 63 6f 64 65 20 65 72 72 6f 72 20 2d 65 72 72 6f code error -erro
3d70: 72 69 6e 66 6f 20 66 6f 6f 7d 0a 20 20 20 20 20 rinfo foo}.
3d80: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 cmdMZ-return-3.1
3d90: 31 20 7b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 1 {return -code
3da0: 65 72 72 6f 72 20 2d 65 72 72 6f 72 69 6e 66 6f error -errorinfo
3db0: 20 66 6f 6f 20 2d 65 72 72 6f 72 63 6f 64 65 20 foo -errorcode
3dc0: 62 61 72 7d 0a 20 20 20 20 20 63 6d 64 4d 5a 2d bar}. cmdMZ-
3dd0: 72 65 74 75 72 6e 2d 33 2e 31 32 20 7b 72 65 74 return-3.12 {ret
3de0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
3df0: 2d 65 72 72 6f 72 69 6e 66 6f 20 66 6f 6f 20 2d -errorinfo foo -
3e00: 65 72 72 6f 72 63 6f 64 65 20 62 61 72 20 2d 65 errorcode bar -e
3e10: 72 72 6f 72 6c 69 6e 65 20 31 30 7d 0a 2b 20 20 rrorline 10}.+
3e20: 20 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 cmdMZ-return-3
3e30: 2e 31 32 2e 31 20 7b 72 65 74 75 72 6e 20 2d 63 .12.1 {return -c
3e40: 6f 64 65 20 65 72 72 6f 72 20 2d 65 72 72 6f 72 ode error -error
3e50: 69 6e 66 6f 20 66 6f 6f 20 2d 65 72 72 6f 72 63 info foo -errorc
3e60: 6f 64 65 20 62 61 72 20 2d 65 72 72 6f 72 6c 69 ode bar -errorli
3e70: 6e 65 20 31 30 20 2d 65 72 72 6f 72 73 74 61 63 ne 10 -errorstac
3e80: 6b 20 62 61 7a 7d 0a 20 20 20 20 20 63 6d 64 4d k baz}. cmdM
3e90: 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 33 20 7b 72 Z-return-3.13 {r
3ea0: 65 74 75 72 6e 20 2d 6f 70 74 69 6f 6e 73 20 7b eturn -options {
3eb0: 78 20 79 20 7a 20 32 7d 7d 0a 20 20 20 20 20 63 x y z 2}}. c
3ec0: 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 33 2e 31 34 mdMZ-return-3.14
3ed0: 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 {return -level
3ee0: 33 20 2d 63 6f 64 65 20 62 72 65 61 6b 20 73 64 3 -code break sd
3ef0: 66 7d 0a 20 7d 20 7b 0a 49 6e 64 65 78 3a 20 74 f}. } {.Index: t
3f00: 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 0a ests/error.test.
3f10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f50: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
3f60: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 vsroot/tcl/tcl/t
3f70: 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 2c ests/error.test,
3f80: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
3f90: 69 73 69 6f 6e 20 31 2e 32 35 0a 64 69 66 66 20 ision 1.25.diff
3fa0: 2d 75 20 2d 70 20 2d 72 31 2e 32 35 20 65 72 72 -u -p -r1.25 err
3fb0: 6f 72 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 or.test.--- test
3fc0: 73 2f 65 72 72 6f 72 2e 74 65 73 74 09 37 20 44 s/error.test.7 D
3fd0: 65 63 20 32 30 30 39 20 31 35 3a 30 38 3a 34 37 ec 2009 15:08:47
3fe0: 20 2d 30 30 30 30 09 31 2e 32 35 0a 2b 2b 2b 20 -0000.1.25.+++
3ff0: 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 65 73 74 tests/error.test
4000: 09 31 37 20 4d 61 72 20 32 30 31 30 20 32 32 3a .17 Mar 2010 22:
4010: 32 36 3a 31 37 20 2d 30 30 30 30 0a 40 40 20 2d 26:17 -0000.@@ -
4020: 31 36 39 2c 36 20 2b 31 36 39 2c 31 39 20 40 40 169,6 +169,19 @@
4030: 20 74 65 73 74 20 65 72 72 6f 72 2d 34 2e 35 20 test error-4.5
4040: 7b 65 72 72 6f 72 49 6e 66 6f 20 61 6e 64 20 65 {errorInfo and e
4050: 72 72 6f 72 43 6f 64 65 20 0a 20 20 20 20 20 6c rrorCode . l
4060: 69 73 74 20 5b 63 61 74 63 68 20 7b 65 72 72 6f ist [catch {erro
4070: 72 20 6d 73 67 31 20 6d 73 67 32 20 7b 7d 7d 20 r msg1 msg2 {}}
4080: 6d 73 67 5d 20 24 6d 73 67 20 24 3a 3a 65 72 72 msg] $msg $::err
4090: 6f 72 49 6e 66 6f 20 24 3a 3a 65 72 72 6f 72 43 orInfo $::errorC
40a0: 6f 64 65 0a 20 7d 20 7b 31 20 6d 73 67 31 20 6d ode. } {1 msg1 m
40b0: 73 67 32 20 7b 7d 7d 0a 20 0a 2b 74 65 73 74 20 sg2 {}}. .+test
40c0: 65 72 72 6f 72 2d 34 2e 36 20 7b 65 72 72 6f 72 error-4.6 {error
40d0: 73 74 61 63 6b 20 76 69 61 20 69 6e 66 6f 20 7d stack via info }
40e0: 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 70 72 -body {.+ pr
40f0: 6f 63 20 66 20 78 20 7b 67 20 24 78 24 78 7d 0a oc f x {g $x$x}.
4100: 2b 20 20 20 20 70 72 6f 63 20 67 20 78 20 7b 65 + proc g x {e
4110: 72 72 6f 72 20 47 3a 24 78 7d 0a 2b 20 20 20 20 rror G:$x}.+
4120: 63 61 74 63 68 20 7b 66 20 31 32 7d 0a 2b 20 20 catch {f 12}.+
4130: 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 info errorstac
4140: 6b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 k.+} -match glob
4150: 20 2d 72 65 73 75 6c 74 20 7b 7b 67 20 31 32 31 -result {{g 121
4160: 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 73 2} {f 12} {names
4170: 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 0a 2b 74 pace eval *}}.+t
4180: 65 73 74 20 65 72 72 6f 72 2d 34 2e 37 20 7b 65 est error-4.7 {e
4190: 72 72 6f 72 73 74 61 63 6b 20 76 69 61 20 6f 70 rrorstack via op
41a0: 74 69 6f 6e 73 20 64 69 63 74 20 7d 20 2d 62 6f tions dict } -bo
41b0: 64 79 20 7b 0a 2b 20 20 20 20 70 72 6f 63 20 66 dy {.+ proc f
41c0: 20 78 20 7b 67 20 24 78 24 78 7d 0a 2b 20 20 20 x {g $x$x}.+
41d0: 20 70 72 6f 63 20 67 20 78 20 7b 65 72 72 6f 72 proc g x {error
41e0: 20 47 3a 24 78 7d 0a 2b 20 20 20 20 63 61 74 63 G:$x}.+ catc
41f0: 68 20 7b 66 20 31 32 7d 20 6d 20 64 0a 2b 20 20 h {f 12} m d.+
4200: 20 20 64 69 63 74 20 67 65 74 20 24 64 20 2d 65 dict get $d -e
4210: 72 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 2d 6d 61 rrorstack.+} -ma
4220: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
4230: 20 7b 7b 67 20 31 32 31 32 7d 20 7b 66 20 31 32 {{g 1212} {f 12
4240: 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 } {namespace eva
4250: 6c 20 2a 7d 7d 0a 2b 0a 20 23 20 45 72 72 6f 72 l *}}.+. # Error
4260: 73 20 69 6e 20 65 72 72 6f 72 20 63 6f 6d 6d 61 s in error comma
4270: 6e 64 20 69 74 73 65 6c 66 0a 20 0a 20 74 65 73 nd itself. . tes
4280: 74 20 65 72 72 6f 72 2d 35 2e 31 20 7b 65 72 72 t error-5.1 {err
4290: 6f 72 73 20 69 6e 20 65 72 72 6f 72 20 63 6f 6d ors in error com
42a0: 6d 61 6e 64 7d 20 7b 0a 40 40 20 2d 32 32 33 2c mand} {.@@ -223,
42b0: 36 20 2b 32 33 36 2c 31 35 20 40 40 20 74 65 73 6 +236,15 @@ tes
42c0: 74 20 65 72 72 6f 72 2d 36 2e 39 20 7b 63 61 74 t error-6.9 {cat
42d0: 63 68 20 6d 75 73 74 20 72 65 73 65 74 20 65 72 ch must reset er
42e0: 72 6f 72 20 73 0a 20 20 20 20 20 63 61 74 63 68 ror s. catch
42f0: 20 66 6f 6f 0a 20 20 20 20 20 6c 69 73 74 20 24 foo. list $
4300: 3a 3a 65 72 72 6f 72 43 6f 64 65 0a 20 7d 20 7b ::errorCode. } {
4310: 4e 4f 4e 45 7d 0a 2b 74 65 73 74 20 65 72 72 6f NONE}.+test erro
4320: 72 2d 36 2e 31 30 20 7b 63 61 74 63 68 20 6d 75 r-6.10 {catch mu
4330: 73 74 20 72 65 73 65 74 20 65 72 72 6f 72 73 74 st reset errorst
4340: 61 63 6b 7d 20 2d 62 6f 64 79 20 7b 0a 2b 09 70 ack} -body {.+.p
4350: 72 6f 63 20 66 20 78 20 7b 67 20 24 78 24 78 7d roc f x {g $x$x}
4360: 0a 2b 09 70 72 6f 63 20 67 20 78 20 7b 65 72 72 .+.proc g x {err
4370: 6f 72 20 47 3a 24 78 7d 0a 2b 09 63 61 74 63 68 or G:$x}.+.catch
4380: 20 7b 66 20 31 32 7d 0a 2b 09 73 65 74 20 65 31 {f 12}.+.set e1
4390: 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 [info errorstac
43a0: 6b 5d 0a 2b 09 63 61 74 63 68 20 7b 66 20 31 33 k].+.catch {f 13
43b0: 7d 0a 2b 09 73 65 74 20 65 32 20 5b 69 6e 66 6f }.+.set e2 [info
43c0: 20 65 72 72 6f 72 73 74 61 63 6b 5d 0a 2b 09 6c errorstack].+.l
43d0: 69 73 74 20 24 65 31 20 24 65 32 0a 2b 7d 20 2d ist $e1 $e2.+} -
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 7b 67 20 31 32 31 32 7d 20 7b 66 lt {{{g 1212} {f
4400: 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 12} {namespace
4410: 65 76 61 6c 20 2a 7d 7d 20 7b 7b 67 20 31 33 31 eval *}} {{g 131
4420: 33 7d 20 7b 66 20 31 33 7d 20 7b 6e 61 6d 65 73 3} {f 13} {names
4430: 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 7d 0a 20 pace eval *}}}.
4440: 0a 20 74 65 73 74 20 65 72 72 6f 72 2d 37 2e 31 . test error-7.1
4450: 20 7b 42 75 67 20 31 33 39 37 38 34 33 7d 20 2d {Bug 1397843} -
4460: 62 6f 64 79 20 7b 0a 20 20 20 20 20 76 61 72 69 body {. vari
4470: 61 62 6c 65 20 63 6d 64 73 0a 49 6e 64 65 78 3a able cmds.Index:
4480: 20 74 65 73 74 73 2f 65 78 65 63 75 74 65 2e 74 tests/execute.t
4490: 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d est.============
44a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44d0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
44e0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
44f0: 63 6c 2f 74 65 73 74 73 2f 65 78 65 63 75 74 65 cl/tests/execute
4500: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
4510: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 33 34 ng revision 1.34
4520: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
4530: 33 34 20 65 78 65 63 75 74 65 2e 74 65 73 74 0a 34 execute.test.
4540: 2d 2d 2d 20 74 65 73 74 73 2f 65 78 65 63 75 74 --- tests/execut
4550: 65 2e 74 65 73 74 09 31 36 20 4e 6f 76 20 32 30 e.test.16 Nov 20
4560: 30 39 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 09 18:00:11 -000
4570: 30 09 31 2e 33 34 0a 2b 2b 2b 20 74 65 73 74 73 0.1.34.+++ tests
4580: 2f 65 78 65 63 75 74 65 2e 74 65 73 74 09 31 37 /execute.test.17
4590: 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 36 3a Mar 2010 22:26:
45a0: 31 37 20 2d 30 30 30 30 0a 40 40 20 2d 39 35 36 17 -0000.@@ -956
45b0: 2c 31 31 20 2b 39 35 36 2c 31 31 20 40 40 20 74 ,11 +956,11 @@ t
45c0: 65 73 74 20 65 78 65 63 75 74 65 2d 38 2e 35 20 est execute-8.5
45d0: 7b 42 75 67 20 32 30 33 38 30 36 39 7d 20 2d 73 {Bug 2038069} -s
45e0: 65 74 75 70 20 7b 0a 20 20 20 20 20 64 65 6d 6f etup {. demo
45f0: 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 . } -cleanup {.
4600: 20 20 20 20 72 65 6e 61 6d 65 20 64 65 6d 6f 20 rename demo
4610: 7b 7d 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 2d {}.-} -result {-
4620: 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 30 20 code 1 -level 0
4630: 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 -errorcode NONE
4640: 2d 65 72 72 6f 72 69 6e 66 6f 20 7b 46 4f 4f 0a -errorinfo {FOO.
4650: 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d +} -match glob -
4660: 72 65 73 75 6c 74 20 7b 2d 63 6f 64 65 20 31 20 result {-code 1
4670: 2d 6c 65 76 65 6c 20 30 20 2d 65 72 72 6f 72 73 -level 0 -errors
4680: 74 61 63 6b 20 2a 20 2d 65 72 72 6f 72 63 6f 64 tack * -errorcod
4690: 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 e NONE -errorinf
46a0: 6f 20 7b 46 4f 4f 0a 20 20 20 20 20 77 68 69 6c o {FOO. whil
46b0: 65 20 65 78 65 63 75 74 69 6e 67 0a 20 22 65 72 e executing. "er
46c0: 72 6f 72 20 46 4f 4f 22 0a 20 20 20 20 20 69 6e ror FOO". in
46d0: 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 74 68 69 voked from withi
46e0: 6e 0a 2d 22 63 61 74 63 68 20 5b 6c 69 73 74 20 n.-"catch [list
46f0: 65 72 72 6f 72 20 46 4f 4f 5d 20 6d 20 6f 22 7d error FOO] m o"}
4700: 20 2d 65 72 72 6f 72 6c 69 6e 65 20 32 7d 0a 2b -errorline 2}.+
4710: 22 63 61 74 63 68 20 5c 5b 6c 69 73 74 20 65 72 "catch \[list er
4720: 72 6f 72 20 46 4f 4f 5c 5d 20 6d 20 6f 22 7d 20 ror FOO\] m o"}
4730: 2d 65 72 72 6f 72 6c 69 6e 65 20 32 7d 0a 20 0a -errorline 2}. .
4740: 20 74 65 73 74 20 65 78 65 63 75 74 65 2d 39 2e test execute-9.
4750: 31 20 7b 49 6e 74 65 72 70 20 72 65 73 75 6c 74 1 {Interp result
4760: 20 72 65 73 65 74 74 69 6e 67 20 5b 42 75 67 20 resetting [Bug
4770: 31 35 32 32 38 30 33 5d 7d 20 7b 0a 20 20 20 20 1522803]} {.
4780: 20 73 65 74 20 63 20 30 0a 49 6e 64 65 78 3a 20 set c 0.Index:
4790: 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 0a tests/info.test.
47a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
47e0: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
47f0: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 vsroot/tcl/tcl/t
4800: 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 2c 76 ests/info.test,v
4810: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
4820: 73 69 6f 6e 20 31 2e 37 35 0a 64 69 66 66 20 2d sion 1.75.diff -
4830: 75 20 2d 70 20 2d 72 31 2e 37 35 20 69 6e 66 6f u -p -r1.75 info
4840: 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f .test.--- tests/
4850: 69 6e 66 6f 2e 74 65 73 74 09 31 30 20 46 65 62 info.test.10 Feb
4860: 20 32 30 31 30 20 32 33 3a 32 34 3a 32 35 20 2d 2010 23:24:25 -
4870: 30 30 30 30 09 31 2e 37 35 0a 2b 2b 2b 20 74 65 0000.1.75.+++ te
4880: 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 09 31 37 sts/info.test.17
4890: 20 4d 61 72 20 32 30 31 30 20 32 32 3a 32 36 3a Mar 2010 22:26:
48a0: 31 37 20 2d 30 30 30 30 0a 40 40 20 2d 36 37 36 17 -0000.@@ -676
48b0: 2c 31 36 20 2b 36 37 36 2c 31 36 20 40 40 20 74 ,16 +676,16 @@ t
48c0: 65 73 74 20 69 6e 66 6f 2d 32 31 2e 31 20 7b 6d est info-21.1 {m
48d0: 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 iscellaneous err
48e0: 6f 72 20 63 6f 6e 64 0a 20 7d 20 2d 72 65 73 75 or cond. } -resu
48f0: 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 lt {wrong # args
4900: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 69 6e 66 : should be "inf
4910: 6f 20 73 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 o subcommand ?ar
4920: 67 20 2e 2e 2e 3f 22 7d 0a 20 74 65 73 74 20 69 g ...?"}. test i
4930: 6e 66 6f 2d 32 31 2e 32 20 7b 6d 69 73 63 65 6c nfo-21.2 {miscel
4940: 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f laneous error co
4950: 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 nditions} -retur
4960: 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f nCodes error -bo
4970: 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 67 dy {. info g
4980: 6f 72 70 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b orp.-} -result {
4990: 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 unknown or ambig
49a0: 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 uous subcommand
49b0: 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 62 65 20 "gorp": must be
49c0: 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 args, body, clas
49d0: 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d s, cmdcount, com
49e0: 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c mands, complete,
49f0: 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 coroutine, defa
4a00: 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 ult, exists, fra
4a10: 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 me, functions, g
4a20: 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 lobals, hostname
4a30: 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 , level, library
4a40: 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 , loaded, locals
4a50: 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 , nameofexecutab
4a60: 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 le, object, patc
4a70: 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 hlevel, procs, s
4a80: 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 cript, sharedlib
4a90: 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 extension, tclve
4aa0: 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a rsion, or vars}.
4ab0: 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e +} -result {unkn
4ac0: 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 own or ambiguous
4ad0: 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 67 6f 72 subcommand "gor
4ae0: 70 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 p": must be args
4af0: 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 , body, class, c
4b00: 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 mdcount, command
4b10: 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 s, complete, cor
4b20: 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c outine, default,
4b30: 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 errorstack, exi
4b40: 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 sts, frame, func
4b50: 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 tions, globals,
4b60: 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c hostname, level,
4b70: 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 library, loaded
4b80: 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 , locals, nameof
4b90: 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 executable, obje
4ba0: 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 ct, patchlevel,
4bb0: 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 procs, script, s
4bc0: 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f haredlibextensio
4bd0: 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f n, tclversion, o
4be0: 72 20 76 61 72 73 7d 0a 20 74 65 73 74 20 69 6e r vars}. test in
4bf0: 66 6f 2d 32 31 2e 33 20 7b 6d 69 73 63 65 6c 6c fo-21.3 {miscell
4c00: 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e aneous error con
4c10: 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e ditions} -return
4c20: 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 Codes error -bod
4c30: 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 63 0a y {. info c.
4c40: 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e -} -result {unkn
4c50: 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 own or ambiguous
4c60: 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 63 22 3a subcommand "c":
4c70: 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 must be args, b
4c80: 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 ody, class, cmdc
4c90: 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 ount, commands,
4ca0: 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 complete, corout
4cb0: 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 ine, default, ex
4cc0: 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e ists, frame, fun
4cd0: 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c ctions, globals,
4ce0: 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c hostname, level
4cf0: 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 , library, loade
4d00: 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f d, locals, nameo
4d10: 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a fexecutable, obj
4d20: 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c ect, patchlevel,
4d30: 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 procs, script,
4d40: 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 sharedlibextensi
4d50: 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 on, tclversion,
4d60: 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 or vars}.+} -res
4d70: 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 ult {unknown or
4d80: 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d ambiguous subcom
4d90: 6d 61 6e 64 20 22 63 22 3a 20 6d 75 73 74 20 62 mand "c": must b
4da0: 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c e args, body, cl
4db0: 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 ass, cmdcount, c
4dc0: 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 ommands, complet
4dd0: 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 e, coroutine, de
4de0: 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 fault, errorstac
4df0: 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 k, exists, frame
4e00: 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f , functions, glo
4e10: 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 bals, hostname,
4e20: 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 level, library,
4e30: 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 loaded, locals,
4e40: 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 nameofexecutable
4e50: 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c , object, patchl
4e60: 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 evel, procs, scr
4e70: 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 ipt, sharedlibex
4e80: 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 tension, tclvers
4e90: 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 74 ion, or vars}. t
4ea0: 65 73 74 20 69 6e 66 6f 2d 32 31 2e 34 20 7b 6d est info-21.4 {m
4eb0: 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 iscellaneous err
4ec0: 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d or conditions} -
4ed0: 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 6f returnCodes erro
4ee0: 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 r -body {. i
4ef0: 6e 66 6f 20 6c 0a 2d 7d 20 2d 72 65 73 75 6c 74 nfo l.-} -result
4f00: 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 {unknown or amb
4f10: 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e iguous subcomman
4f20: 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 65 20 61 d "l": must be a
4f30: 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 rgs, body, class
4f40: 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d , cmdcount, comm
4f50: 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 ands, complete,
4f60: 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 coroutine, defau
4f70: 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d lt, exists, fram
4f80: 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c e, functions, gl
4f90: 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c obals, hostname,
4fa0: 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c level, library,
4fb0: 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c loaded, locals,
4fc0: 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c nameofexecutabl
4fd0: 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 e, object, patch
4fe0: 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 level, procs, sc
4ff0: 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 ript, sharedlibe
5000: 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 xtension, tclver
5010: 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 2b sion, or vars}.+
5020: 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f } -result {unkno
5030: 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 wn or ambiguous
5040: 73 75 62 63 6f 6d 6d 61 6e 64 20 22 6c 22 3a 20 subcommand "l":
5050: 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f must be args, bo
5060: 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f dy, class, cmdco
5070: 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 unt, commands, c
5080: 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 omplete, corouti
5090: 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 72 72 ne, default, err
50a0: 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 74 73 2c orstack, exists,
50b0: 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e frame, function
50c0: 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 s, globals, host
50d0: 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 name, level, lib
50e0: 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f rary, loaded, lo
50f0: 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 cals, nameofexec
5100: 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 utable, object,
5110: 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 patchlevel, proc
5120: 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 s, script, share
5130: 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 dlibextension, t
5140: 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 clversion, or va
5150: 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 6f 2d 32 rs}. test info-2
5160: 31 2e 35 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 1.5 {miscellaneo
5170: 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 us error conditi
5180: 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 ons} -returnCode
5190: 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a s error -body {.
51a0: 20 20 20 20 20 69 6e 66 6f 20 73 0a 2d 7d 20 2d info s.-} -
51b0: 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 result {unknown
51c0: 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 or ambiguous sub
51d0: 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 6d 75 73 command "s": mus
51e0: 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c t be args, body,
51f0: 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 class, cmdcount
5200: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 , commands, comp
5210: 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c lete, coroutine,
5220: 20 64 65 66 61 75 6c 74 2c 20 65 78 69 73 74 73 default, exists
5230: 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f , frame, functio
5240: 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 ns, globals, hos
5250: 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 tname, level, li
5260: 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c brary, loaded, l
5270: 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 ocals, nameofexe
5280: 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c cutable, object,
5290: 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f patchlevel, pro
52a0: 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 cs, script, shar
52b0: 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 edlibextension,
52c0: 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 tclversion, or v
52d0: 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 ars}.+} -result
52e0: 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 {unknown or ambi
52f0: 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 guous subcommand
5300: 20 22 73 22 3a 20 6d 75 73 74 20 62 65 20 61 72 "s": must be ar
5310: 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c gs, body, class,
5320: 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 cmdcount, comma
5330: 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 nds, complete, c
5340: 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c oroutine, defaul
5350: 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 t, errorstack, e
5360: 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 xists, frame, fu
5370: 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 nctions, globals
5380: 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 , hostname, leve
5390: 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 l, library, load
53a0: 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 ed, locals, name
53b0: 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 ofexecutable, ob
53c0: 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c ject, patchlevel
53d0: 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c , procs, script,
53e0: 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 sharedlibextens
53f0: 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c ion, tclversion,
5400: 20 6f 72 20 76 61 72 73 7d 0a 20 0a 20 23 23 0a or vars}. . ##.
5410: 20 23 20 23 23 23 20 23 23 23 20 23 23 23 20 23 # ### ### ### #
5420: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
5430: 23 23 20 23 23 23 23 23 23 23 23 23 0a 49 6e 64 ## #########.Ind
5440: 65 78 3a 20 74 65 73 74 73 2f 69 6e 69 74 2e 74 ex: tests/init.t
5450: 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d est.============
5460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5470: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5490: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
54a0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
54b0: 63 6c 2f 74 65 73 74 73 2f 69 6e 69 74 2e 74 65 cl/tests/init.te
54c0: 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 st,v.retrieving
54d0: 72 65 76 69 73 69 6f 6e 20 31 2e 32 31 0a 64 69 revision 1.21.di
54e0: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 31 20 ff -u -p -r1.21
54f0: 69 6e 69 74 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 init.test.--- te
5500: 73 74 73 2f 69 6e 69 74 2e 74 65 73 74 09 31 36 sts/init.test.16
5510: 20 4e 6f 76 20 32 30 30 39 20 31 38 3a 30 30 3a Nov 2009 18:00:
5520: 31 31 20 2d 30 30 30 30 09 31 2e 32 31 0a 2b 2b 11 -0000.1.21.++
5530: 2b 20 74 65 73 74 73 2f 69 6e 69 74 2e 74 65 73 + tests/init.tes
5540: 74 09 31 37 20 4d 61 72 20 32 30 31 30 20 32 32 t.17 Mar 2010 22
5550: 3a 32 36 3a 31 37 20 2d 30 30 30 30 0a 40 40 20 :26:17 -0000.@@
5560: 2d 31 38 31 2c 37 20 2b 31 38 31 2c 37 20 40 40 -181,7 +181,7 @@
5570: 20 74 65 73 74 20 69 6e 69 74 2d 35 2e 30 20 7b test init-5.0 {
5580: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 20 70 return options p
5590: 61 73 73 65 64 20 74 68 72 0a 20 20 20 20 20 6c assed thr. l
55a0: 69 73 74 20 24 63 6f 64 65 20 24 66 6f 6f 20 24 ist $code $foo $
55b0: 62 61 72 20 24 63 6f 64 65 32 20 24 66 6f 6f 32 bar $code2 $foo2
55c0: 20 24 62 61 72 32 0a 20 7d 20 2d 63 6c 65 61 6e $bar2. } -clean
55d0: 75 70 20 7b 0a 20 20 20 20 20 75 6e 73 65 74 20 up {. unset
55e0: 3a 3a 61 75 74 6f 5f 69 6e 64 65 78 28 3a 3a 78 ::auto_index(::x
55f0: 78 78 29 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b xx).-} -result {
5600: 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 63 6f 64 2 xxx {-errorcod
5610: 65 20 4e 4f 4e 45 20 2d 63 6f 64 65 20 31 20 2d e NONE -code 1 -
5620: 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 20 7b level 1} 2 xxx {
5630: 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 -code 1 -level 1
5640: 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 -errorcode NONE
5650: 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f }}.+} -match glo
5660: 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 78 78 78 b -result {2 xxx
5670: 20 7b 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e {-errorcode NON
5680: 45 20 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c E -code 1 -level
5690: 20 31 7d 20 32 20 78 78 78 20 7b 2d 63 6f 64 65 1} 2 xxx {-code
56a0: 20 31 20 2d 6c 65 76 65 6c 20 31 20 2d 65 72 72 1 -level 1 -err
56b0: 6f 72 63 6f 64 65 20 4e 4f 4e 45 7d 7d 0a 20 0c orcode NONE}}. .
56c0: 0a 20 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 20 . cleanupTests.
56d0: 7d 09 3b 23 20 20 45 6e 64 20 6f 66 20 5b 69 6e }.;# End of [in
56e0: 74 65 72 70 20 65 76 61 6c 20 24 74 65 73 74 49 terp eval $testI
56f0: 6e 74 65 72 70 5d 0a nterp].
