Attachment "errorstack8.patch" to
ticket [2868499fff]
added by
ferrieux
2010-02-08 17:08:22.
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 75 20 2d 70 20 2d 72 31 2e 32 33 -p -u -p -r1.23
00b0: 20 63 61 74 63 68 2e 6e 0a 2d 2d 2d 20 64 6f 63 catch.n.--- doc
00c0: 2f 63 61 74 63 68 2e 6e 09 31 33 20 4a 61 6e 20 /catch.n.13 Jan
00d0: 32 30 31 30 20 31 32 3a 30 38 3a 33 30 20 2d 30 2010 12:08:30 -0
00e0: 30 30 30 09 31 2e 32 33 0a 2b 2b 2b 20 64 6f 63 000.1.23.+++ doc
00f0: 2f 63 61 74 63 68 2e 6e 09 38 20 46 65 62 20 32 /catch.n.8 Feb 2
0100: 30 31 30 20 31 30 3a 30 37 3a 30 33 20 2d 30 30 010 10:07:03 -00
0110: 30 30 0a 40 40 20 2d 35 34 2c 32 32 20 2b 35 34 00.@@ -54,22 +54
0120: 2c 33 33 20 40 40 20 4f 6e 6c 79 20 77 68 65 6e ,33 @@ Only when
0130: 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 the return code
0140: 20 69 73 20 5c 66 42 54 43 4c 5f 52 45 54 55 0a is \fBTCL_RETU.
0150: 20 74 68 65 20 5c 66 42 5c 2d 6c 65 76 65 6c 5c the \fB\-level\
0160: 66 52 20 61 6e 64 20 5c 66 42 5c 2d 63 6f 64 65 fR and \fB\-code
0170: 5c 66 52 20 65 6e 74 72 69 65 73 20 62 65 20 73 \fR entries be s
0180: 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 2c 20 61 omething else, a
0190: 73 0a 20 66 75 72 74 68 65 72 20 64 65 73 63 72 s. further descr
01a0: 69 62 65 64 20 69 6e 20 74 68 65 20 64 6f 63 75 ibed in the docu
01b0: 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 mentation for th
01c0: 65 20 5c 66 42 72 65 74 75 72 6e 5c 66 52 20 63 e \fBreturn\fR c
01d0: 6f 6d 6d 61 6e 64 2e 0a 20 2e 50 50 0a 2d 57 68 ommand.. .PP.-Wh
01e0: 65 6e 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f en the return co
01f0: 64 65 20 66 72 6f 6d 20 65 76 61 6c 75 61 74 69 de from evaluati
0200: 6f 6e 20 6f 66 20 5c 66 49 73 63 72 69 70 74 5c on of \fIscript\
0210: 66 52 20 69 73 20 5c 66 42 54 43 4c 5f 45 52 52 fR is \fBTCL_ERR
0220: 4f 52 5c 66 52 2c 0a 2d 74 68 72 65 65 20 61 64 OR\fR,.-three ad
0230: 64 69 74 69 6f 6e 61 6c 20 65 6e 74 72 69 65 73 ditional entries
0240: 20 61 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 are defined in
0250: 74 68 65 20 64 69 63 74 69 6f 6e 61 72 79 20 6f the dictionary o
0260: 66 20 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 f return options
0270: 0a 2d 73 74 6f 72 65 64 20 69 6e 20 5c 66 49 6f .-stored in \fIo
0280: 70 74 69 6f 6e 73 56 61 72 4e 61 6d 65 5c 66 52 ptionsVarName\fR
0290: 3a 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f : \fB\-errorinfo
02a0: 5c 66 52 2c 20 5c 66 42 5c 2d 65 72 72 6f 72 63 \fR, \fB\-errorc
02b0: 6f 64 65 5c 66 52 2c 20 0a 2d 61 6e 64 20 5c 66 ode\fR, .-and \f
02c0: 42 5c 2d 65 72 72 6f 72 6c 69 6e 65 5c 66 52 2e B\-errorline\fR.
02d0: 20 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 The value of t
02e0: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 he \fB\-errorinf
02f0: 6f 5c 66 52 20 65 6e 74 72 79 0a 2d 69 73 20 61 o\fR entry.-is a
0300: 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 63 6b formatted stack
0310: 20 74 72 61 63 65 20 63 6f 6e 74 61 69 6e 69 6e trace containin
0320: 67 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 g more informati
0330: 6f 6e 20 61 62 6f 75 74 0a 2d 74 68 65 20 63 6f on about.-the co
0340: 6e 74 65 78 74 20 69 6e 20 77 68 69 63 68 20 74 ntext in which t
0350: 68 65 20 65 72 72 6f 72 20 68 61 70 70 65 6e 65 he error happene
0360: 64 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 74 65 d. The formatte
0370: 64 20 73 74 61 63 6b 0a 2d 74 72 61 63 65 20 69 d stack.-trace i
0380: 73 20 6d 65 61 6e 74 20 74 6f 20 62 65 20 72 65 s meant to be re
0390: 61 64 20 62 79 20 61 20 70 65 72 73 6f 6e 2e 20 ad by a person.
03a0: 20 54 68 65 20 76 61 6c 75 65 20 6f 66 0a 2d 74 The value of.-t
03b0: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 63 6f 64 he \fB\-errorcod
03c0: 65 5c 66 52 20 65 6e 74 72 79 20 69 73 20 61 64 e\fR entry is ad
03d0: 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 ditional informa
03e0: 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 0a 2d tion about the.-
03f0: 65 72 72 6f 72 20 73 74 6f 72 65 64 20 61 73 20 error stored as
0400: 61 20 6c 69 73 74 2e 20 20 54 68 65 20 5c 66 42 a list. The \fB
0410: 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 76 \-errorcode\fR v
0420: 61 6c 75 65 20 69 73 20 6d 65 61 6e 74 20 74 6f alue is meant to
0430: 0a 2d 62 65 20 66 75 72 74 68 65 72 20 70 72 6f .-be further pro
0440: 63 65 73 73 65 64 20 62 79 20 70 72 6f 67 72 61 cessed by progra
0450: 6d 73 2c 20 61 6e 64 20 6d 61 79 20 6e 6f 74 20 ms, and may not
0460: 62 65 20 70 61 72 74 69 63 75 6c 61 72 6c 79 0a be particularly.
0470: 2d 72 65 61 64 61 62 6c 65 20 62 79 20 70 65 6f -readable by peo
0480: 70 6c 65 2e 20 20 54 68 65 20 76 61 6c 75 65 20 ple. The value
0490: 6f 66 20 74 68 65 20 5c 66 42 5c 2d 65 72 72 6f of the \fB\-erro
04a0: 72 6c 69 6e 65 5c 66 52 20 65 6e 74 72 79 0a 2d rline\fR entry.-
04b0: 69 73 20 61 6e 20 69 6e 74 65 67 65 72 20 69 6e is an integer in
04c0: 64 69 63 61 74 69 6e 67 20 77 68 69 63 68 20 6c dicating which l
04d0: 69 6e 65 20 6f 66 20 5c 66 49 73 63 72 69 70 74 ine of \fIscript
04e0: 5c 66 52 20 77 61 73 20 62 65 69 6e 67 0a 2d 65 \fR was being.-e
04f0: 76 61 6c 75 61 74 65 64 20 77 68 65 6e 20 74 68 valuated when th
0500: 65 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 e error occurred
0510: 2e 20 20 54 68 65 20 76 61 6c 75 65 73 20 6f 66 . The values of
0520: 20 74 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 the \fB\-errori
0530: 6e 66 6f 5c 66 52 0a 2d 61 6e 64 20 5c 66 42 5c nfo\fR.-and \fB\
0540: 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 65 6e -errorcode\fR en
0550: 74 72 69 65 73 20 6f 66 20 74 68 65 20 6d 6f 73 tries of the mos
0560: 74 20 72 65 63 65 6e 74 20 65 72 72 6f 72 20 61 t recent error a
0570: 72 65 20 61 6c 73 6f 0a 2d 61 76 61 69 6c 61 62 re also.-availab
0580: 6c 65 20 61 73 20 76 61 6c 75 65 73 20 6f 66 20 le as values of
0590: 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 the global varia
05a0: 62 6c 65 73 20 5c 66 42 3a 3a 65 72 72 6f 72 49 bles \fB::errorI
05b0: 6e 66 6f 5c 66 52 0a 2d 61 6e 64 20 5c 66 42 3a nfo\fR.-and \fB:
05c0: 3a 65 72 72 6f 72 43 6f 64 65 5c 66 52 20 72 65 :errorCode\fR re
05d0: 73 70 65 63 74 69 76 65 6c 79 2e 0a 2b 57 68 65 spectively..+Whe
05e0: 6e 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 n the return cod
05f0: 65 20 66 72 6f 6d 20 65 76 61 6c 75 61 74 69 6f e from evaluatio
0600: 6e 20 6f 66 20 5c 66 49 73 63 72 69 70 74 5c 66 n of \fIscript\f
0610: 52 20 69 73 0a 2b 5c 66 42 54 43 4c 5f 45 52 52 R is.+\fBTCL_ERR
0620: 4f 52 5c 66 52 2c 20 66 6f 75 72 20 61 64 64 69 OR\fR, four addi
0630: 74 69 6f 6e 61 6c 20 65 6e 74 72 69 65 73 20 61 tional entries a
0640: 72 65 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 re defined in th
0650: 65 20 64 69 63 74 69 6f 6e 61 72 79 0a 2b 6f 66 e dictionary.+of
0660: 20 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 20 return options
0670: 73 74 6f 72 65 64 20 69 6e 20 5c 66 49 6f 70 74 stored in \fIopt
0680: 69 6f 6e 73 56 61 72 4e 61 6d 65 5c 66 52 3a 20 ionsVarName\fR:
0690: 5c 66 42 5c 2d 65 72 72 6f 72 69 6e 66 6f 5c 66 \fB\-errorinfo\f
06a0: 52 2c 0a 2b 5c 66 42 5c 2d 65 72 72 6f 72 63 6f R,.+\fB\-errorco
06b0: 64 65 5c 66 52 2c 20 5c 66 42 5c 2d 65 72 72 6f de\fR, \fB\-erro
06c0: 72 6c 69 6e 65 5c 66 52 2c 20 61 6e 64 20 5c 66 rline\fR, and \f
06d0: 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c 66 52 B\-errorstack\fR
06e0: 2e 20 20 54 68 65 0a 2b 76 61 6c 75 65 20 6f 66 . The.+value of
06f0: 20 74 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 69 the \fB\-errori
0700: 6e 66 6f 5c 66 52 20 65 6e 74 72 79 20 69 73 20 nfo\fR entry is
0710: 61 20 66 6f 72 6d 61 74 74 65 64 20 73 74 61 63 a formatted stac
0720: 6b 20 74 72 61 63 65 0a 2b 63 6f 6e 74 61 69 6e k trace.+contain
0730: 69 6e 67 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 ing more informa
0740: 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 63 tion about the c
0750: 6f 6e 74 65 78 74 20 69 6e 20 77 68 69 63 68 20 ontext in which
0760: 74 68 65 20 65 72 72 6f 72 0a 2b 68 61 70 70 65 the error.+happe
0770: 6e 65 64 2e 20 20 54 68 65 20 66 6f 72 6d 61 74 ned. The format
0780: 74 65 64 20 73 74 61 63 6b 20 74 72 61 63 65 20 ted stack trace
0790: 69 73 20 6d 65 61 6e 74 20 74 6f 20 62 65 20 72 is meant to be r
07a0: 65 61 64 20 62 79 20 61 20 70 65 72 73 6f 6e 2e ead by a person.
07b0: 0a 2b 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 .+The value of t
07c0: 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 63 6f 64 he \fB\-errorcod
07d0: 65 5c 66 52 20 65 6e 74 72 79 20 69 73 20 61 64 e\fR entry is ad
07e0: 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 ditional informa
07f0: 74 69 6f 6e 0a 2b 61 62 6f 75 74 20 74 68 65 20 tion.+about the
0800: 65 72 72 6f 72 20 73 74 6f 72 65 64 20 61 73 20 error stored as
0810: 61 20 6c 69 73 74 2e 20 20 54 68 65 20 5c 66 42 a list. The \fB
0820: 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 76 \-errorcode\fR v
0830: 61 6c 75 65 20 69 73 0a 2b 6d 65 61 6e 74 20 74 alue is.+meant t
0840: 6f 20 62 65 20 66 75 72 74 68 65 72 20 70 72 6f o be further pro
0850: 63 65 73 73 65 64 20 62 79 20 70 72 6f 67 72 61 cessed by progra
0860: 6d 73 2c 20 61 6e 64 20 6d 61 79 20 6e 6f 74 20 ms, and may not
0870: 62 65 20 70 61 72 74 69 63 75 6c 61 72 6c 79 0a be particularly.
0880: 2b 72 65 61 64 61 62 6c 65 20 62 79 20 70 65 6f +readable by peo
0890: 70 6c 65 2e 20 20 54 68 65 20 76 61 6c 75 65 20 ple. The value
08a0: 6f 66 20 74 68 65 20 5c 66 42 5c 2d 65 72 72 6f of the \fB\-erro
08b0: 72 6c 69 6e 65 5c 66 52 20 65 6e 74 72 79 20 69 rline\fR entry i
08c0: 73 20 61 6e 0a 2b 69 6e 74 65 67 65 72 20 69 6e s an.+integer in
08d0: 64 69 63 61 74 69 6e 67 20 77 68 69 63 68 20 6c dicating which l
08e0: 69 6e 65 20 6f 66 20 5c 66 49 73 63 72 69 70 74 ine of \fIscript
08f0: 5c 66 52 20 77 61 73 20 62 65 69 6e 67 20 65 76 \fR was being ev
0900: 61 6c 75 61 74 65 64 20 77 68 65 6e 0a 2b 74 68 aluated when.+th
0910: 65 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 e error occurred
0920: 2e 20 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 . The value of
0930: 74 68 65 20 5c 66 42 5c 2d 65 72 72 6f 72 73 74 the \fB\-errorst
0940: 61 63 6b 5c 66 52 20 65 6e 74 72 79 20 69 73 20 ack\fR entry is
0950: 61 0a 2b 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 a.+list of lists
0960: 20 6d 61 64 65 20 6f 66 20 74 68 65 20 66 75 6e made of the fun
0970: 63 74 69 6f 6e 20 6e 61 6d 65 73 20 61 6e 64 20 ction names and
0980: 61 72 67 75 6d 65 6e 74 73 20 61 74 20 65 61 63 arguments at eac
0990: 68 20 6c 65 76 65 6c 0a 2b 66 72 6f 6d 20 74 68 h level.+from th
09a0: 65 20 63 61 6c 6c 20 73 74 61 63 6b 20 77 68 65 e call stack whe
09b0: 6e 20 74 68 65 20 65 72 72 6f 72 20 6f 63 63 75 n the error occu
09c0: 72 72 65 64 2e 20 49 74 20 64 69 66 66 65 72 73 rred. It differs
09d0: 20 66 72 6f 6d 0a 2b 2d 65 72 72 6f 72 69 6e 66 from.+-errorinf
09e0: 6f 20 69 6e 20 74 68 61 74 20 28 31 29 20 69 74 o in that (1) it
09f0: 20 69 73 20 61 20 74 72 75 65 20 6c 69 73 74 20 is a true list
0a00: 6f 66 20 6c 69 73 74 73 2c 20 66 6f 72 20 65 61 of lists, for ea
0a10: 73 79 0a 2b 70 72 6f 67 72 61 6d 6d 61 74 69 63 sy.+programmatic
0a20: 20 61 63 63 65 73 73 20 77 69 74 68 6f 75 74 20 access without
0a30: 70 61 72 73 69 6e 67 2c 20 28 32 29 20 69 74 20 parsing, (2) it
0a40: 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 74 72 75 contains the tru
0a50: 65 0a 2b 28 73 75 62 73 74 69 74 75 74 65 64 29 e.+(substituted)
0a60: 20 76 61 6c 75 65 73 20 70 61 73 73 65 64 20 74 values passed t
0a70: 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 2c o the functions,
0a80: 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 instead of the
0a90: 73 74 61 74 69 63 0a 2b 74 65 78 74 20 6f 66 20 static.+text of
0aa0: 74 68 65 20 63 61 6c 6c 69 6e 67 20 73 69 74 65 the calling site
0ab0: 73 2c 20 61 6e 64 20 28 33 29 20 69 74 20 69 73 s, and (3) it is
0ac0: 20 63 6f 61 72 73 65 72 2d 67 72 61 69 6e 65 64 coarser-grained
0ad0: 2c 20 77 69 74 68 20 6f 6e 6c 79 0a 2b 6f 6e 65 , with only.+one
0ae0: 20 65 6c 65 6d 65 6e 74 20 70 65 72 20 73 74 61 element per sta
0af0: 63 6b 20 66 72 61 6d 65 20 28 6c 69 6b 65 20 70 ck frame (like p
0b00: 72 6f 63 73 3b 20 6e 6f 20 73 65 70 61 72 61 74 rocs; no separat
0b10: 65 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 0a 2b e elements for.+
0b20: 5b 66 6f 72 65 61 63 68 5d 20 63 6f 6e 73 74 72 [foreach] constr
0b30: 75 63 74 73 20 66 6f 72 20 65 78 61 6d 70 6c 65 ucts for example
0b40: 29 2e 0a 2b 0a 2b 54 68 65 20 76 61 6c 75 65 73 )..+.+The values
0b50: 20 6f 66 20 74 68 65 20 5c 66 42 5c 2d 65 72 72 of the \fB\-err
0b60: 6f 72 69 6e 66 6f 5c 66 52 20 61 6e 64 20 5c 66 orinfo\fR and \f
0b70: 42 5c 2d 65 72 72 6f 72 63 6f 64 65 5c 66 52 20 B\-errorcode\fR
0b80: 65 6e 74 72 69 65 73 20 6f 66 0a 2b 74 68 65 20 entries of.+the
0b90: 6d 6f 73 74 20 72 65 63 65 6e 74 20 65 72 72 6f most recent erro
0ba0: 72 20 61 72 65 20 61 6c 73 6f 20 61 76 61 69 6c r are also avail
0bb0: 61 62 6c 65 20 61 73 20 76 61 6c 75 65 73 20 6f able as values o
0bc0: 66 20 74 68 65 20 67 6c 6f 62 61 6c 0a 2b 76 61 f the global.+va
0bd0: 72 69 61 62 6c 65 73 20 5c 66 42 3a 3a 65 72 72 riables \fB::err
0be0: 6f 72 49 6e 66 6f 5c 66 52 20 61 6e 64 20 5c 66 orInfo\fR and \f
0bf0: 42 3a 3a 65 72 72 6f 72 43 6f 64 65 5c 66 52 20 B::errorCode\fR
0c00: 72 65 73 70 65 63 74 69 76 65 6c 79 2e 20 54 68 respectively. Th
0c10: 65 0a 2b 76 61 6c 75 65 20 6f 66 20 74 68 65 20 e.+value of the
0c20: 5c 66 42 5c 2d 65 72 72 6f 72 73 74 61 63 6b 5c \fB\-errorstack\
0c30: 66 52 20 65 6e 74 72 79 20 73 75 72 66 61 63 65 fR entry surface
0c40: 73 20 61 73 20 5c 66 42 69 6e 66 6f 0a 2b 65 72 s as \fBinfo.+er
0c50: 72 6f 72 73 74 61 63 6b 5c 66 52 2e 0a 20 2e 50 rorstack\fR.. .P
0c60: 50 0a 20 54 63 6c 20 70 61 63 6b 61 67 65 73 20 P. Tcl packages
0c70: 6d 61 79 20 70 72 6f 76 69 64 65 20 63 6f 6d 6d may provide comm
0c80: 61 6e 64 73 20 74 68 61 74 20 73 65 74 20 6f 74 ands that set ot
0c90: 68 65 72 20 65 6e 74 72 69 65 73 20 69 6e 20 74 her entries in t
0ca0: 68 65 0a 20 64 69 63 74 69 6f 6e 61 72 79 20 6f he. dictionary o
0cb0: 66 20 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 f return options
0cc0: 2c 20 61 6e 64 20 74 68 65 20 5c 66 42 72 65 74 , and the \fBret
0cd0: 75 72 6e 5c 66 52 20 63 6f 6d 6d 61 6e 64 20 6d urn\fR command m
0ce0: 61 79 20 62 65 0a 49 6e 64 65 78 3a 20 64 6f 63 ay be.Index: doc
0cf0: 2f 69 6e 66 6f 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d /info.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 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
0d40: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0d50: 63 6c 2f 74 63 6c 2f 64 6f 63 2f 69 6e 66 6f 2e cl/tcl/doc/info.
0d60: 6e 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 n,v.retrieving r
0d70: 65 76 69 73 69 6f 6e 20 31 2e 33 35 0a 64 69 66 evision 1.35.dif
0d80: 66 20 2d 75 20 2d 70 20 2d 75 20 2d 70 20 2d 72 f -u -p -u -p -r
0d90: 31 2e 33 35 20 69 6e 66 6f 2e 6e 0a 2d 2d 2d 20 1.35 info.n.---
0da0: 64 6f 63 2f 69 6e 66 6f 2e 6e 09 31 36 20 4e 6f doc/info.n.16 No
0db0: 76 20 32 30 30 39 20 31 38 3a 30 30 3a 31 31 20 v 2009 18:00:11
0dc0: 2d 30 30 30 30 09 31 2e 33 35 0a 2b 2b 2b 20 64 -0000.1.35.+++ d
0dd0: 6f 63 2f 69 6e 66 6f 2e 6e 09 38 20 46 65 62 20 oc/info.n.8 Feb
0de0: 32 30 31 30 20 31 30 3a 30 37 3a 30 33 20 2d 30 2010 10:07:03 -0
0df0: 30 30 30 0a 40 40 20 2d 39 34 2c 36 20 2b 39 34 000.@@ -94,6 +94
0e00: 2c 31 36 20 40 40 20 64 6f 65 73 20 6e 6f 74 20 ,16 @@ does not
0e10: 68 61 76 65 20 61 20 64 65 66 61 75 6c 74 20 76 have a default v
0e20: 61 6c 75 65 20 74 68 65 6e 20 74 68 65 20 63 0a alue then the c.
0e30: 20 4f 74 68 65 72 77 69 73 65 20 69 74 20 72 65 Otherwise it re
0e40: 74 75 72 6e 73 20 5c 66 42 31 5c 66 52 20 61 6e turns \fB1\fR an
0e50: 64 20 70 6c 61 63 65 73 20 74 68 65 20 64 65 66 d places the def
0e60: 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 5c 66 ault value of \f
0e70: 49 61 72 67 5c 66 52 0a 20 69 6e 74 6f 20 76 61 Iarg\fR. into va
0e80: 72 69 61 62 6c 65 20 5c 66 49 76 61 72 6e 61 6d riable \fIvarnam
0e90: 65 5c 66 52 2e 0a 20 2e 54 50 0a 2b 5c 66 42 69 e\fR.. .TP.+\fBi
0ea0: 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 20 5c nfo errorstack \
0eb0: 66 52 3f 5c 66 49 69 6e 74 65 72 70 5c 66 52 3f fR?\fIinterp\fR?
0ec0: 0a 2b 2e 0a 2b 52 65 74 75 72 6e 73 20 61 20 6c .+..+Returns a l
0ed0: 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6d 61 64 ist of lists mad
0ee0: 65 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f e of the functio
0ef0: 6e 20 6e 61 6d 65 73 20 61 6e 64 20 61 72 67 75 n names and argu
0f00: 6d 65 6e 74 73 20 61 74 0a 2b 65 61 63 68 20 6c ments at.+each l
0f10: 65 76 65 6c 20 66 72 6f 6d 20 74 68 65 20 63 61 evel from the ca
0f20: 6c 6c 20 73 74 61 63 6b 20 6f 66 20 74 68 65 20 ll stack of the
0f30: 6c 61 73 74 20 65 72 72 6f 72 20 69 6e 20 74 68 last error in th
0f40: 65 20 67 69 76 65 6e 0a 2b 5c 66 49 69 6e 74 65 e given.+\fIinte
0f50: 72 70 5c 66 52 2c 20 6f 72 20 69 6e 20 74 68 65 rp\fR, or in the
0f60: 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 69 66 20 current one if
0f70: 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2e 20 20 not specified.
0f80: 54 68 69 73 0a 2b 69 6e 66 6f 72 6d 61 74 69 6f This.+informatio
0f90: 6e 20 69 73 20 61 6c 73 6f 20 70 72 65 73 65 6e n is also presen
0fa0: 74 20 69 6e 20 74 68 65 20 2d 65 72 72 6f 72 73 t in the -errors
0fb0: 74 61 63 6b 20 65 6e 74 72 79 20 6f 66 20 74 68 tack entry of th
0fc0: 65 20 6f 70 74 69 6f 6e 73 0a 2b 64 69 63 74 69 e options.+dicti
0fd0: 6f 6e 61 72 79 20 72 65 74 75 72 6e 65 64 20 62 onary returned b
0fe0: 79 20 33 2d 61 72 67 20 5c 66 42 63 61 74 63 68 y 3-arg \fBcatch
0ff0: 5c 66 52 3b 20 5c 66 42 69 6e 66 6f 20 65 72 72 \fR; \fBinfo err
1000: 6f 72 73 74 61 63 6b 5c 66 52 20 69 73 20 61 0a orstack\fR is a.
1010: 2b 63 6f 6e 76 65 6e 69 65 6e 74 20 77 61 79 20 +convenient way
1020: 6f 66 20 72 65 74 72 69 65 76 69 6e 67 20 69 74 of retrieving it
1030: 20 66 6f 72 20 75 6e 63 61 75 67 68 74 20 65 72 for uncaught er
1040: 72 6f 72 73 20 61 74 20 74 6f 70 6c 65 76 65 6c rors at toplevel
1050: 20 69 6e 20 61 6e 0a 2b 69 6e 74 65 72 61 63 74 in an.+interact
1060: 69 76 65 20 74 63 6c 73 68 2e 0a 2b 2e 54 50 0a ive tclsh..+.TP.
1070: 20 5c 66 42 69 6e 66 6f 20 65 78 69 73 74 73 20 \fBinfo exists
1080: 5c 66 49 76 61 72 4e 61 6d 65 5c 66 52 0a 20 2e \fIvarName\fR. .
1090: 0a 20 52 65 74 75 72 6e 73 20 5c 66 42 31 5c 66 . Returns \fB1\f
10a0: 52 20 69 66 20 74 68 65 20 76 61 72 69 61 62 6c R if the variabl
10b0: 65 20 6e 61 6d 65 64 20 5c 66 49 76 61 72 4e 61 e named \fIvarNa
10c0: 6d 65 5c 66 52 20 65 78 69 73 74 73 20 69 6e 20 me\fR exists in
10d0: 74 68 65 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 the.Index: gener
10e0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 0a 3d 3d ic/tclBasic.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 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1130: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1140: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e root/tcl/tcl/gen
1150: 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 2c eric/tclBasic.c,
1160: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
1170: 69 73 69 6f 6e 20 31 2e 34 34 32 0a 64 69 66 66 ision 1.442.diff
1180: 20 2d 75 20 2d 70 20 2d 75 20 2d 70 20 2d 72 31 -u -p -u -p -r1
1190: 2e 34 34 32 20 74 63 6c 42 61 73 69 63 2e 63 0a .442 tclBasic.c.
11a0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 --- generic/tclB
11b0: 61 73 69 63 2e 63 09 35 20 46 65 62 20 32 30 31 asic.c.5 Feb 201
11c0: 30 20 32 32 3a 33 39 3a 34 34 20 2d 30 30 30 30 0 22:39:44 -0000
11d0: 09 31 2e 34 34 32 0a 2b 2b 2b 20 67 65 6e 65 72 .1.442.+++ gener
11e0: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 38 20 ic/tclBasic.c.8
11f0: 46 65 62 20 32 30 31 30 20 31 30 3a 30 37 3a 30 Feb 2010 10:07:0
1200: 33 20 2d 30 30 30 30 0a 40 40 20 2d 35 32 39 2c 3 -0000.@@ -529,
1210: 36 20 2b 35 32 39 2c 39 20 40 40 20 54 63 6c 5f 6 +529,9 @@ Tcl_
1220: 43 72 65 61 74 65 49 6e 74 65 72 70 28 76 6f 69 CreateInterp(voi
1230: 64 29 0a 20 20 20 20 20 69 50 74 72 2d 3e 65 72 d). iPtr->er
1240: 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a rorInfo = NULL;.
1250: 20 20 20 20 20 54 63 6c 4e 65 77 4c 69 74 65 72 TclNewLiter
1260: 61 6c 53 74 72 69 6e 67 4f 62 6a 28 69 50 74 72 alStringObj(iPtr
1270: 2d 3e 65 69 56 61 72 2c 20 22 3a 3a 65 72 72 6f ->eiVar, "::erro
1280: 72 49 6e 66 6f 22 29 3b 0a 20 20 20 20 20 54 63 rInfo");. Tc
1290: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 l_IncrRefCount(i
12a0: 50 74 72 2d 3e 65 69 56 61 72 29 3b 0a 2b 20 20 Ptr->eiVar);.+
12b0: 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 iPtr->errorSta
12c0: 63 6b 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 ck = Tcl_NewList
12d0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 Obj(0, NULL);.+
12e0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
12f0: 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 unt(iPtr->errorS
1300: 74 61 63 6b 29 3b 0a 2b 20 20 20 20 69 50 74 72 tack);.+ iPtr
1310: 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 ->resetErrorStac
1320: 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 72 k = 1;. iPtr
1330: 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20 4e 55 ->errorCode = NU
1340: 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e 65 77 4c LL;. TclNewL
1350: 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 iteralStringObj(
1360: 69 50 74 72 2d 3e 65 63 56 61 72 2c 20 22 3a 3a iPtr->ecVar, "::
1370: 65 72 72 6f 72 43 6f 64 65 22 29 3b 0a 20 20 20 errorCode");.
1380: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
1390: 6e 74 28 69 50 74 72 2d 3e 65 63 56 61 72 29 3b nt(iPtr->ecVar);
13a0: 0a 40 40 20 2d 31 34 36 36 2c 36 20 2b 31 34 36 .@@ -1466,6 +146
13b0: 39 2c 37 20 40 40 20 44 65 6c 65 74 65 49 6e 74 9,7 @@ DeleteInt
13c0: 65 72 70 50 72 6f 63 28 0a 20 09 54 63 6c 5f 44 erpProc(. .Tcl_D
13d0: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 ecrRefCount(iPtr
13e0: 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 09 ->errorInfo);. .
13f0: 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 iPtr->errorInfo
1400: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a 2b = NULL;. }.+
1410: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
1420: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
1430: 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 69 66 20 Stack);. if
1440: 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 (iPtr->returnOpt
1450: 73 29 20 7b 0a 20 09 54 63 6c 5f 44 65 63 72 52 s) {. .Tcl_DecrR
1460: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65 efCount(iPtr->re
1470: 74 75 72 6e 4f 70 74 73 29 3b 0a 20 20 20 20 20 turnOpts);.
1480: 7d 0a 40 40 20 2d 38 39 32 30 2c 35 20 2b 38 39 }.@@ -8920,5 +89
1490: 32 34 2c 37 20 40 40 20 54 63 6c 49 6e 66 6f 43 24,7 @@ TclInfoC
14a0: 6f 72 6f 75 74 69 6e 65 43 6d 64 28 0a 20 20 2a oroutineCmd(. *
14b0: 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 mode: c. * c-b
14c0: 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 asic-offset: 4.
14d0: 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 * fill-column:
14e0: 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 78.+ * tab-width
14f0: 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 : 8.+ * indent-t
1500: 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 abs-mode: nil.
1510: 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 * End:. */.Inde
1520: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d x: generic/tclCm
1530: 64 49 4c 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d dIL.c.==========
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 3d 3d 3d 3d 3d 3d ================
1570: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
1580: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
1590: 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c /tcl/generic/tcl
15a0: 43 6d 64 49 4c 2e 63 2c 76 0a 72 65 74 72 69 65 CmdIL.c,v.retrie
15b0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
15c0: 31 37 36 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 176.diff -u -p -
15d0: 75 20 2d 70 20 2d 72 31 2e 31 37 36 20 74 63 6c u -p -r1.176 tcl
15e0: 43 6d 64 49 4c 2e 63 0a 2d 2d 2d 20 67 65 6e 65 CmdIL.c.--- gene
15f0: 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 09 32 ric/tclCmdIL.c.2
1600: 32 20 44 65 63 20 32 30 30 39 20 31 39 3a 34 39 2 Dec 2009 19:49
1610: 3a 32 39 20 2d 30 30 30 30 09 31 2e 31 37 36 0a :29 -0000.1.176.
1620: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 +++ generic/tclC
1630: 6d 64 49 4c 2e 63 09 38 20 46 65 62 20 32 30 31 mdIL.c.8 Feb 201
1640: 30 20 31 30 3a 30 37 3a 30 34 20 2d 30 30 30 30 0 10:07:04 -0000
1650: 0a 40 40 20 2d 31 31 38 2c 36 20 2b 31 31 38 2c .@@ -118,6 +118,
1660: 39 20 40 40 20 73 74 61 74 69 63 20 69 6e 74 09 9 @@ static int.
1670: 09 49 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d 64 .InfoCompleteCmd
1680: 28 43 6c 69 65 6e 74 44 61 74 61 20 64 0a 20 09 (ClientData d. .
1690: 09 09 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 .. int objc,
16a0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
16b0: 62 6a 76 5b 5d 29 3b 0a 20 73 74 61 74 69 63 20 bjv[]);. static
16c0: 69 6e 74 09 09 49 6e 66 6f 44 65 66 61 75 6c 74 int..InfoDefault
16d0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 Cmd(ClientData d
16e0: 75 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 ummy, Tcl_Interp
16f0: 20 2a 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 *interp,. ...
1700: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f int objc, Tcl_
1710: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
1720: 5d 29 3b 0a 2b 2f 2a 20 54 49 50 20 23 33 34 38 ]);.+/* TIP #348
1730: 20 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 75 - New 'info' su
1740: 62 63 6f 6d 6d 61 6e 64 20 27 65 72 72 6f 72 73 bcommand 'errors
1750: 74 61 63 6b 27 20 2a 2f 0a 2b 73 74 61 74 69 63 tack' */.+static
1760: 20 69 6e 74 09 09 49 6e 66 6f 45 72 72 6f 72 53 int..InfoErrorS
1770: 74 61 63 6b 43 6d 64 28 43 6c 69 65 6e 74 44 61 tackCmd(ClientDa
1780: 74 61 20 64 75 6d 6d 79 2c 20 54 63 6c 5f 49 6e ta dummy, Tcl_In
1790: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 2b 09 terp *interp,.+.
17a0: 09 09 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 .. int objc,
17b0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
17c0: 62 6a 76 5b 5d 29 3b 0a 20 2f 2a 20 54 49 50 20 bjv[]);. /* TIP
17d0: 23 32 38 30 20 2d 20 4e 65 77 20 27 69 6e 66 6f #280 - New 'info
17e0: 27 20 73 75 62 63 6f 6d 6d 61 6e 64 20 27 66 72 ' subcommand 'fr
17f0: 61 6d 65 27 20 2a 2f 0a 20 73 74 61 74 69 63 20 ame' */. static
1800: 69 6e 74 09 09 49 6e 66 6f 46 72 61 6d 65 43 6d int..InfoFrameCm
1810: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 6d d(ClientData dum
1820: 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a my, Tcl_Interp *
1830: 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20 20 interp,. ...
1840: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
1850: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
1860: 3b 0a 40 40 20 2d 31 36 34 2c 36 20 2b 31 36 37 ;.@@ -164,6 +167
1870: 2c 37 20 40 40 20 73 74 61 74 69 63 20 63 6f 6e ,7 @@ static con
1880: 73 74 20 45 6e 73 65 6d 62 6c 65 49 6d 70 6c 4d st EnsembleImplM
1890: 61 70 20 64 65 66 61 75 6c 74 49 6e 66 6f 0a 20 ap defaultInfo.
18a0: 20 20 20 20 7b 22 63 6f 6d 70 6c 65 74 65 22 2c {"complete",
18b0: 09 20 20 20 49 6e 66 6f 43 6f 6d 70 6c 65 74 65 . InfoComplete
18c0: 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 4e Cmd,. NULL, N
18d0: 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 ULL, NULL},.
18e0: 20 7b 22 63 6f 72 6f 75 74 69 6e 65 22 2c 09 20 {"coroutine",.
18f0: 20 20 54 63 6c 49 6e 66 6f 43 6f 72 6f 75 74 69 TclInfoCorouti
1900: 6e 65 43 6d 64 2c 20 20 20 20 20 4e 55 4c 4c 2c neCmd, NULL,
1910: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 NULL, NULL},.
1920: 20 20 20 7b 22 64 65 66 61 75 6c 74 22 2c 09 09 {"default",..
1930: 20 20 20 49 6e 66 6f 44 65 66 61 75 6c 74 43 6d InfoDefaultCm
1940: 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 4c d,. NULL, NUL
1950: 4c 2c 20 4e 55 4c 4c 7d 2c 0a 2b 20 20 20 20 7b L, NULL},.+ {
1960: 22 65 72 72 6f 72 73 74 61 63 6b 22 2c 09 20 20 "errorstack",.
1970: 20 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 InfoErrorStackC
1980: 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 2c 20 4e 55 md,. NULL, NU
1990: 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 LL, NULL},.
19a0: 7b 22 65 78 69 73 74 73 22 2c 09 09 20 20 20 54 {"exists",.. T
19b0: 63 6c 49 6e 66 6f 45 78 69 73 74 73 43 6d 64 2c clInfoExistsCmd,
19c0: 09 20 20 20 20 54 63 6c 43 6f 6d 70 69 6c 65 49 . TclCompileI
19d0: 6e 66 6f 45 78 69 73 74 73 43 6d 64 2c 20 4e 55 nfoExistsCmd, NU
19e0: 4c 4c 2c 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 LL, NULL},.
19f0: 7b 22 66 72 61 6d 65 22 2c 09 09 20 20 20 49 6e {"frame",.. In
1a00: 66 6f 46 72 61 6d 65 43 6d 64 2c 09 20 20 20 20 foFrameCmd,.
1a10: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
1a20: 7d 2c 0a 20 20 20 20 20 7b 22 66 75 6e 63 74 69 },. {"functi
1a30: 6f 6e 73 22 2c 09 20 20 20 49 6e 66 6f 46 75 6e ons",. InfoFun
1a40: 63 74 69 6f 6e 73 43 6d 64 2c 09 20 20 20 20 4e ctionsCmd,. N
1a50: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 7d ULL, NULL, NULL}
1a60: 2c 0a 40 40 20 2d 31 30 31 37 2c 36 20 2b 31 30 ,.@@ -1017,6 +10
1a70: 32 31 2c 35 35 20 40 40 20 49 6e 66 6f 44 65 66 21,55 @@ InfoDef
1a80: 61 75 6c 74 43 6d 64 28 0a 20 2f 2a 0a 20 20 2a aultCmd(. /*. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 2b 20 2a 20 49 ------. *.+ * I
1ae0: 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 nfoErrorStackCmd
1af0: 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 43 61 6c 6c --.+ *.+ *.Call
1b00: 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 ed to implement
1b10: 74 68 65 20 22 69 6e 66 6f 20 65 72 72 6f 72 73 the "info errors
1b20: 74 61 63 6b 22 20 63 6f 6d 6d 61 6e 64 20 74 68 tack" command th
1b30: 61 74 20 72 65 74 75 72 6e 73 20 69 6e 66 6f 72 at returns infor
1b40: 6d 61 74 69 6f 6e 0a 2b 20 2a 09 61 62 6f 75 74 mation.+ *.about
1b50: 20 74 68 65 20 6c 61 73 74 20 65 72 72 6f 72 27 the last error'
1b60: 73 20 63 61 6c 6c 20 73 74 61 63 6b 2e 20 48 61 s call stack. Ha
1b70: 6e 64 6c 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 ndles the follow
1b80: 69 6e 67 20 73 79 6e 74 61 78 3a 0a 2b 20 2a 0a ing syntax:.+ *.
1b90: 2b 20 2a 09 20 20 20 20 69 6e 66 6f 20 65 72 72 + *. info err
1ba0: 6f 72 73 74 61 63 6b 20 3f 69 6e 74 65 72 70 3f orstack ?interp?
1bb0: 0a 2b 20 2a 0a 2b 20 2a 20 52 65 73 75 6c 74 73 .+ *.+ * Results
1bc0: 3a 0a 2b 20 2a 09 52 65 74 75 72 6e 73 20 54 43 :.+ *.Returns TC
1bd0: 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 L_OK if successf
1be0: 75 6c 20 61 6e 64 20 54 43 4c 5f 45 52 52 4f 52 ul and TCL_ERROR
1bf0: 20 69 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 if there is an
1c00: 65 72 72 6f 72 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 error..+ *.+ * S
1c10: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a ide effects:.+ *
1c20: 09 52 65 74 75 72 6e 73 20 61 20 72 65 73 75 6c .Returns a resul
1c30: 74 20 69 6e 20 74 68 65 20 69 6e 74 65 72 70 72 t in the interpr
1c40: 65 74 65 72 27 73 20 72 65 73 75 6c 74 20 6f 62 eter's result ob
1c50: 6a 65 63 74 2e 20 49 66 20 74 68 65 72 65 20 69 ject. If there i
1c60: 73 20 61 6e 0a 2b 20 2a 09 65 72 72 6f 72 2c 20 s an.+ *.error,
1c70: 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 6e the result is an
1c80: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a error message..
1c90: 2b 20 2a 0a 2b 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 -------------.+
1ce0: 2a 2f 0a 2b 0a 2b 73 74 61 74 69 63 20 69 6e 74 */.+.+static int
1cf0: 0a 2b 49 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b .+InfoErrorStack
1d00: 43 6d 64 28 0a 2b 20 20 20 20 43 6c 69 65 6e 74 Cmd(.+ Client
1d10: 44 61 74 61 20 64 75 6d 6d 79 2c 09 09 2f 2a 20 Data dummy,../*
1d20: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 2b 20 20 Not used. */.+
1d30: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
1d40: 74 65 72 70 2c 09 09 2f 2a 20 43 75 72 72 65 6e terp,../* Curren
1d50: 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 2a t interpreter. *
1d60: 2f 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c /.+ int objc,
1d70: 09 09 09 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 .../* Number of
1d80: 61 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 2b 20 arguments. */.+
1d90: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 Tcl_Obj *cons
1da0: 74 20 6f 62 6a 76 5b 5d 29 09 2f 2a 20 41 72 67 t objv[])./* Arg
1db0: 75 6d 65 6e 74 20 6f 62 6a 65 63 74 73 2e 20 2a ument objects. *
1dc0: 2f 0a 2b 7b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e /.+{.+ Tcl_In
1dd0: 74 65 72 70 20 2a 74 61 72 67 65 74 3b 0a 2b 20 terp *target;.+
1de0: 20 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 3b Interp *iPtr;
1df0: 0a 2b 0a 2b 20 20 20 20 69 66 20 28 28 6f 62 6a .+.+ if ((obj
1e00: 63 20 21 3d 20 31 29 20 26 26 20 28 6f 62 6a 63 c != 1) && (objc
1e10: 20 21 3d 20 32 29 29 20 7b 0a 2b 09 54 63 6c 5f != 2)) {.+.Tcl_
1e20: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
1e30: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
1e40: 69 6e 74 65 72 70 3f 22 29 3b 0a 2b 09 72 65 74 interp?");.+.ret
1e50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b urn TCL_ERROR;.+
1e60: 20 20 20 20 7d 0a 2b 20 20 20 20 0a 2b 20 20 20 }.+ .+
1e70: 20 74 61 72 67 65 74 20 3d 20 69 6e 74 65 72 70 target = interp
1e80: 3b 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 20 ;.+ if (objc
1e90: 3d 3d 20 32 29 20 7b 0a 2b 20 20 20 20 20 20 20 == 2) {.+
1ea0: 20 74 61 72 67 65 74 20 3d 20 54 63 6c 5f 47 65 target = Tcl_Ge
1eb0: 74 53 6c 61 76 65 28 69 6e 74 65 72 70 2c 20 54 tSlave(interp, T
1ec0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
1ed0: 76 5b 31 5d 29 29 3b 0a 2b 20 20 20 20 20 20 20 v[1]));.+
1ee0: 20 69 66 20 28 74 61 72 67 65 74 20 3d 3d 20 4e if (target == N
1ef0: 55 4c 4c 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 ULL) {.+
1f00: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1f10: 52 52 4f 52 3b 0a 2b 20 20 20 20 20 20 20 20 7d RROR;.+ }
1f20: 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 .+ }.+.+ i
1f30: 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 Ptr = (Interp *)
1f40: 20 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 54 63 target;.+ Tc
1f50: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
1f60: 6e 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 nterp, iPtr->err
1f70: 6f 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 0a orStack);.+ .
1f80: 2b 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f + return TCL_
1f90: 4f 4b 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 OK;.+}.+..+/*.+
1fa0: 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 -------.+ *. *
1ff0: 54 63 6c 49 6e 66 6f 45 78 69 73 74 73 43 6d 64 TclInfoExistsCmd
2000: 20 2d 2d 0a 20 20 2a 0a 20 20 2a 09 43 61 6c 6c --. *. *.Call
2010: 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 ed to implement
2020: 74 68 65 20 22 69 6e 66 6f 20 65 78 69 73 74 73 the "info exists
2030: 22 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 64 " command that d
2040: 65 74 65 72 6d 69 6e 65 73 20 77 68 65 74 68 65 etermines whethe
2050: 72 0a 40 40 20 2d 34 33 39 32 2c 35 20 2b 34 34 r.@@ -4392,5 +44
2060: 34 35 2c 37 20 40 40 20 53 65 6c 65 63 74 4f 62 45,7 @@ SelectOb
2070: 6a 46 72 6f 6d 53 75 62 6c 69 73 74 28 0a 20 20 jFromSublist(.
2080: 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d * mode: c. * c-
2090: 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a basic-offset: 4.
20a0: 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a * fill-column:
20b0: 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 78.+ * tab-widt
20c0: 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d h: 8.+ * indent-
20d0: 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 tabs-mode: nil.
20e0: 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 * End:. */.Ind
20f0: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 ex: generic/tclI
2100: 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d nt.h.===========
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 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2140: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
2150: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
2160: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 tcl/generic/tclI
2170: 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e nt.h,v.retrievin
2180: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 35 39 g revision 1.459
2190: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 75 20 2d .diff -u -p -u -
21a0: 70 20 2d 72 31 2e 34 35 39 20 74 63 6c 49 6e 74 p -r1.459 tclInt
21b0: 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .h.--- generic/t
21c0: 63 6c 49 6e 74 2e 68 09 35 20 46 65 62 20 32 30 clInt.h.5 Feb 20
21d0: 31 30 20 32 32 3a 33 39 3a 34 34 20 2d 30 30 30 10 22:39:44 -000
21e0: 30 09 31 2e 34 35 39 0a 2b 2b 2b 20 67 65 6e 65 0.1.459.+++ gene
21f0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 38 20 46 ric/tclInt.h.8 F
2200: 65 62 20 32 30 31 30 20 31 30 3a 30 37 3a 30 34 eb 2010 10:07:04
2210: 20 2d 30 30 30 30 0a 40 40 20 2d 31 39 30 33 2c -0000.@@ -1903,
2220: 36 20 2b 31 39 30 33 2c 38 20 40 40 20 74 79 70 6 +1903,8 @@ typ
2230: 65 64 65 66 20 73 74 72 75 63 74 20 49 6e 74 65 edef struct Inte
2240: 72 70 20 7b 0a 20 20 20 20 20 54 63 6c 5f 4f 62 rp {. Tcl_Ob
2250: 6a 20 2a 65 69 56 61 72 3b 09 09 2f 2a 20 63 61 j *eiVar;../* ca
2260: 63 68 65 64 20 72 65 66 20 74 6f 20 3a 3a 65 72 ched ref to ::er
2270: 72 6f 72 49 6e 66 6f 20 76 61 72 69 61 62 6c 65 rorInfo variable
2280: 2e 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 . */. Tcl_Ob
2290: 6a 20 2a 65 72 72 6f 72 43 6f 64 65 3b 09 09 2f j *errorCode;../
22a0: 2a 20 65 72 72 6f 72 43 6f 64 65 20 76 61 6c 75 * errorCode valu
22b0: 65 20 28 6e 6f 77 20 61 73 20 61 20 54 63 6c 5f e (now as a Tcl_
22c0: 4f 62 6a 29 2e 20 2a 2f 0a 20 20 20 20 20 54 63 Obj). */. Tc
22d0: 6c 5f 4f 62 6a 20 2a 65 63 56 61 72 3b 09 09 2f l_Obj *ecVar;../
22e0: 2a 20 63 61 63 68 65 64 20 72 65 66 20 74 6f 20 * cached ref to
22f0: 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 76 61 72 69 ::errorInfo vari
2300: 61 62 6c 65 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 able. */.+ Tc
2310: 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 53 74 61 63 l_Obj *errorStac
2320: 6b 3b 09 2f 2a 20 5b 69 6e 66 6f 20 65 72 72 6f k;./* [info erro
2330: 72 73 74 61 63 6b 5d 20 76 61 6c 75 65 20 28 61 rstack] value (a
2340: 73 20 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f s a Tcl_Obj). */
2350: 0a 2b 20 20 20 20 69 6e 74 20 72 65 73 65 74 45 .+ int resetE
2360: 72 72 6f 72 53 74 61 63 6b 3b 20 20 20 20 20 20 rrorStack;
2370: 20 20 2f 2a 20 63 6f 6e 74 72 6f 6c 73 20 63 6c /* controls cl
2380: 65 61 6e 69 6e 67 20 75 70 20 6f 66 20 3a 3a 65 eaning up of ::e
2390: 72 72 6f 72 53 74 61 63 6b 20 2a 2f 0a 20 20 20 rrorStack */.
23a0: 20 20 69 6e 74 20 72 65 74 75 72 6e 4c 65 76 65 int returnLeve
23b0: 6c 3b 09 09 2f 2a 20 5b 72 65 74 75 72 6e 20 2d l;../* [return -
23c0: 6c 65 76 65 6c 5d 20 70 61 72 61 6d 65 74 65 72 level] parameter
23d0: 2e 20 2a 2f 0a 20 0a 20 20 20 20 20 2f 2a 0a 49 . */. . /*.I
23e0: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
23f0: 6c 4e 61 6d 65 73 70 2e 63 0a 3d 3d 3d 3d 3d 3d lNamesp.c.======
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 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
2440: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
2450: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
2460: 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 2c 76 0a 72 /tclNamesp.c,v.r
2470: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
2480: 6f 6e 20 31 2e 31 39 39 0a 64 69 66 66 20 2d 75 on 1.199.diff -u
2490: 20 2d 70 20 2d 75 20 2d 70 20 2d 72 31 2e 31 39 -p -u -p -r1.19
24a0: 39 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 9 tclNamesp.c.--
24b0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d - generic/tclNam
24c0: 65 73 70 2e 63 09 33 20 4a 61 6e 20 32 30 31 30 esp.c.3 Jan 2010
24d0: 20 32 30 3a 32 39 3a 31 31 20 2d 30 30 30 30 09 20:29:11 -0000.
24e0: 31 2e 31 39 39 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.199.+++ generi
24f0: 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 09 38 20 c/tclNamesp.c.8
2500: 46 65 62 20 32 30 31 30 20 31 30 3a 30 37 3a 30 Feb 2010 10:07:0
2510: 34 20 2d 30 30 30 30 0a 40 40 20 2d 37 35 37 33 4 -0000.@@ -7573
2520: 2c 37 20 2b 37 35 37 33 2c 37 20 40 40 20 54 63 ,7 +7573,7 @@ Tc
2530: 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 6f l_LogCommandInfo
2540: 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 69 73 74 (. {. regist
2550: 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 er const char *p
2560: 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a 69 ;. Interp *i
2570: 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 Ptr = (Interp *)
2580: 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 69 6e interp;.- in
2590: 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d 69 t overflow, limi
25a0: 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 20 69 6e t = 150;.+ in
25b0: 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c 69 6d 69 t overflow, limi
25c0: 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b 0a 20 20 t = 150, len;.
25d0: 20 20 20 56 61 72 20 2a 76 61 72 50 74 72 2c 20 Var *varPtr,
25e0: 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a 20 20 20 *arrayPtr;. .
25f0: 20 20 69 66 20 28 69 50 74 72 2d 3e 66 6c 61 67 if (iPtr->flag
2600: 73 20 26 20 45 52 52 5f 41 4c 52 45 41 44 59 5f s & ERR_ALREADY_
2610: 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 2d 37 36 LOGGED) {.@@ -76
2620: 33 32 2c 36 20 2b 37 36 33 32 2c 33 36 20 40 40 32,6 +7632,36 @@
2630: 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 Tcl_LogCommandI
2640: 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 43 4c 5f nfo(. .. TCL_
2650: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 09 GLOBAL_ONLY);. .
2660: 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 }. }.+.+
2670: 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50 20 23 /*.+ * TIP #
2680: 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 348.+ */.+.+
2690: 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 if (Tcl_IsSh
26a0: 61 72 65 64 28 69 50 74 72 2d 3e 65 72 72 6f 72 ared(iPtr->error
26b0: 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 20 20 20 Stack)) {.+
26c0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 4f Tcl_Obj *newO
26d0: 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 bj;.+
26e0: 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 77 4f 62 .+ newOb
26f0: 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 j = Tcl_Duplicat
2700: 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f 72 eObj(iPtr->error
2710: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 Stack);.+
2720: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
2730: 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 t(iPtr->errorSta
2740: 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 20 54 63 ck);.+ Tc
2750: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6e l_IncrRefCount(n
2760: 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 20 20 20 ewObj);.+
2770: 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 iPtr->errorStac
2780: 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b 20 20 20 k = newObj;.+
2790: 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 73 74 }.+ Tcl_List
27a0: 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 65 72 70 ObjLength(interp
27b0: 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 , iPtr->errorSta
27c0: 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 20 20 20 ck, &len);.+
27d0: 69 66 20 28 69 50 74 72 2d 3e 72 65 73 65 74 45 if (iPtr->resetE
27e0: 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a 2b 20 20 rrorStack) {.+
27f0: 20 20 20 20 20 20 69 50 74 72 2d 3e 72 65 73 65 iPtr->rese
2800: 74 45 72 72 6f 72 53 74 61 63 6b 20 3d 20 30 3b tErrorStack = 0;
2810: 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 72 65 73 .+ /* res
2820: 65 74 20 77 68 69 6c 65 20 6b 65 65 70 69 6e 67 et while keeping
2830: 20 74 68 65 20 6c 69 73 74 20 69 6e 74 72 65 70 the list intrep
2840: 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 73 as much as poss
2850: 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 20 20 20 ible */.+
2860: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 70 6c Tcl_ListObjRepl
2870: 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 74 72 ace(interp, iPtr
2880: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 30 2c ->errorStack, 0,
2890: 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 29 3b 0a len, 0, NULL);.
28a0: 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d 30 3b 0a + len=0;.
28b0: 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 69 66 20 + } .+ if
28c0: 28 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 (iPtr->varFrameP
28d0: 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 6f 6f 74 tr != iPtr->root
28e0: 46 72 61 6d 65 50 74 72 29 20 7b 0a 2b 20 20 20 FramePtr) {.+
28f0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6c 69 Tcl_Obj *li
2900: 73 74 50 74 72 3b 0a 2b 20 20 20 20 20 20 20 20 stPtr;.+
2910: 69 6e 74 20 72 65 73 75 6c 74 3b 0a 2b 20 20 20 int result;.+
2920: 20 20 20 20 20 6c 69 73 74 50 74 72 3d 54 63 6c listPtr=Tcl
2930: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 69 50 74 72 _NewListObj(iPtr
2940: 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 2d 3e 6f ->varFramePtr->o
2950: 62 6a 63 2c 0a 2b 20 20 20 20 20 20 20 20 20 20 bjc,.+
2960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2970: 20 20 20 20 20 69 50 74 72 2d 3e 76 61 72 46 72 iPtr->varFr
2980: 61 6d 65 50 74 72 2d 3e 6f 62 6a 76 29 3b 0a 2b amePtr->objv);.+
2990: 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 20 3d result =
29a0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 65 70 6c Tcl_ListObjRepl
29b0: 61 63 65 28 69 6e 74 65 72 70 2c 20 69 50 74 72 ace(interp, iPtr
29c0: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c 20 6c 65 ->errorStack, le
29d0: 6e 2c 20 30 2c 20 31 2c 20 26 6c 69 73 74 50 74 n, 0, 1, &listPt
29e0: 72 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 20 r);.+ if
29f0: 28 72 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f (result != TCL_O
2a00: 4b 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 K) {.+
2a10: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
2a20: 6e 74 28 6c 69 73 74 50 74 72 29 3b 0a 2b 20 20 nt(listPtr);.+
2a30: 20 20 20 20 20 20 7d 0a 2b 20 20 20 20 7d 0a 20 }.+ }.
2a40: 7d 0a 20 0c 0a 20 2f 2a 0a 40 40 20 2d 37 36 33 }. .. /*.@@ -763
2a50: 39 2c 35 20 2b 37 36 36 39 2c 37 20 40 40 20 54 9,5 +7669,7 @@ T
2a60: 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 6e 66 cl_LogCommandInf
2a70: 6f 28 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 o(. * mode: c.
2a80: 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 * c-basic-offse
2a90: 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f t: 4. * fill-co
2aa0: 6c 75 6d 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 62 lumn: 78.+ * tab
2ab0: 2d 77 69 64 74 68 3a 20 38 0a 2b 20 2a 20 69 6e -width: 8.+ * in
2ac0: 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 dent-tabs-mode:
2ad0: 6e 69 6c 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 2a nil. * End:. *
2ae0: 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 /.Index: generic
2af0: 2f 74 63 6c 52 65 73 75 6c 74 2e 63 0a 3d 3d 3d /tclResult.c.===
2b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b40: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
2b50: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 oot/tcl/tcl/gene
2b60: 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 2c ric/tclResult.c,
2b70: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
2b80: 69 73 69 6f 6e 20 31 2e 35 36 0a 64 69 66 66 20 ision 1.56.diff
2b90: 2d 75 20 2d 70 20 2d 75 20 2d 70 20 2d 72 31 2e -u -p -u -p -r1.
2ba0: 35 36 20 74 63 6c 52 65 73 75 6c 74 2e 63 0a 2d 56 tclResult.c.-
2bb0: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 -- generic/tclRe
2bc0: 73 75 6c 74 2e 63 09 31 36 20 4e 6f 76 20 32 30 sult.c.16 Nov 20
2bd0: 30 39 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 09 18:00:11 -000
2be0: 30 09 31 2e 35 36 0a 2b 2b 2b 20 67 65 6e 65 72 0.1.56.+++ gener
2bf0: 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 38 ic/tclResult.c.8
2c00: 20 46 65 62 20 32 30 31 30 20 31 30 3a 30 37 3a Feb 2010 10:07:
2c10: 30 34 20 2d 30 30 30 30 0a 40 40 20 2d 31 39 2c 04 -0000.@@ -19,
2c20: 37 20 2b 31 39 2c 37 20 40 40 0a 20 0a 20 65 6e 7 +19,7 @@. . en
2c30: 75 6d 20 72 65 74 75 72 6e 4b 65 79 73 20 7b 0a um returnKeys {.
2c40: 20 20 20 20 20 4b 45 59 5f 43 4f 44 45 2c 09 4b KEY_CODE,.K
2c50: 45 59 5f 45 52 52 4f 52 43 4f 44 45 2c 09 4b 45 EY_ERRORCODE,.KE
2c60: 59 5f 45 52 52 4f 52 49 4e 46 4f 2c 09 4b 45 59 Y_ERRORINFO,.KEY
2c70: 5f 45 52 52 4f 52 4c 49 4e 45 2c 0a 2d 20 20 20 _ERRORLINE,.-
2c80: 20 4b 45 59 5f 4c 45 56 45 4c 2c 09 4b 45 59 5f KEY_LEVEL,.KEY_
2c90: 4f 50 54 49 4f 4e 53 2c 09 4b 45 59 5f 4c 41 53 OPTIONS,.KEY_LAS
2ca0: 54 0a 2b 20 20 20 20 4b 45 59 5f 4c 45 56 45 4c T.+ KEY_LEVEL
2cb0: 2c 09 4b 45 59 5f 4f 50 54 49 4f 4e 53 2c 09 4b ,.KEY_OPTIONS,.K
2cc0: 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 2c 09 4b EY_ERRORSTACK,.K
2cd0: 45 59 5f 4c 41 53 54 0a 20 7d 3b 0a 20 0a 20 2f EY_LAST. };. . /
2ce0: 2a 0a 40 40 20 2d 39 32 32 2c 36 20 2b 39 32 32 *.@@ -922,6 +922
2cf0: 2c 37 20 40 40 20 54 63 6c 5f 52 65 73 65 74 52 ,7 @@ Tcl_ResetR
2d00: 65 73 75 6c 74 28 0a 20 09 54 63 6c 5f 44 65 63 esult(. .Tcl_Dec
2d10: 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e rRefCount(iPtr->
2d20: 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 20 09 69 50 errorInfo);. .iP
2d30: 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 3d 20 tr->errorInfo =
2d40: 4e 55 4c 4c 3b 0a 20 20 20 20 20 7d 0a 2b 20 20 NULL;. }.+
2d50: 20 20 69 50 74 72 2d 3e 72 65 73 65 74 45 72 72 iPtr->resetErr
2d60: 6f 72 53 74 61 63 6b 20 3d 20 31 3b 0a 20 20 20 orStack = 1;.
2d70: 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4c 65 iPtr->returnLe
2d80: 76 65 6c 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 vel = 1;. iP
2d90: 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 20 3d tr->returnCode =
2da0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 69 66 TCL_OK;. if
2db0: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 (iPtr->returnOp
2dc0: 74 73 29 20 7b 0a 40 40 20 2d 31 31 35 38 2c 36 ts) {.@@ -1158,6
2dd0: 20 2b 31 31 35 39 2c 37 20 40 40 20 47 65 74 4b +1159,7 @@ GetK
2de0: 65 79 73 28 76 6f 69 64 29 0a 20 09 54 63 6c 4e eys(void). .TclN
2df0: 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f ewLiteralStringO
2e00: 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f bj(keys[KEY_ERRO
2e10: 52 43 4f 44 45 5d 2c 20 22 2d 65 72 72 6f 72 63 RCODE], "-errorc
2e20: 6f 64 65 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c ode");. .TclNewL
2e30: 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 iteralStringObj(
2e40: 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 49 4e keys[KEY_ERRORIN
2e50: 46 4f 5d 2c 20 22 2d 65 72 72 6f 72 69 6e 66 6f FO], "-errorinfo
2e60: 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 ");. .TclNewLite
2e70: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 ralStringObj(key
2e80: 73 5b 4b 45 59 5f 45 52 52 4f 52 4c 49 4e 45 5d s[KEY_ERRORLINE]
2e90: 2c 20 22 2d 65 72 72 6f 72 6c 69 6e 65 22 29 3b , "-errorline");
2ea0: 0a 2b 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c .+.TclNewLiteral
2eb0: 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b StringObj(keys[K
2ec0: 45 59 5f 45 52 52 4f 52 53 54 41 43 4b 5d 2c 22 EY_ERRORSTACK],"
2ed0: 2d 65 72 72 6f 72 73 74 61 63 6b 22 29 3b 0a 20 -errorstack");.
2ee0: 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 .TclNewLiteralSt
2ef0: 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 ringObj(keys[KEY
2f00: 5f 4c 45 56 45 4c 5d 2c 09 20 20 20 20 22 2d 6c _LEVEL],. "-l
2f10: 65 76 65 6c 22 29 3b 0a 20 09 54 63 6c 4e 65 77 evel");. .TclNew
2f20: 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a LiteralStringObj
2f30: 28 6b 65 79 73 5b 4b 45 59 5f 4f 50 54 49 4f 4e (keys[KEY_OPTION
2f40: 53 5d 2c 20 20 20 22 2d 6f 70 74 69 6f 6e 73 22 S], "-options"
2f50: 29 3b 0a 20 0a 40 40 20 2d 31 35 30 33 2c 36 20 );. .@@ -1503,6
2f60: 2b 31 35 30 35 2c 37 20 40 40 20 54 63 6c 5f 47 +1505,7 @@ Tcl_G
2f70: 65 74 52 65 74 75 72 6e 4f 70 74 69 6f 6e 73 28 etReturnOptions(
2f80: 0a 20 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 . .Tcl_DictObjPu
2f90: 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c t(NULL, options,
2fa0: 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 4c keys[KEY_ERRORL
2fb0: 49 4e 45 5d 2c 0a 20 09 09 54 63 6c 5f 4e 65 77 INE],. ..Tcl_New
2fc0: 49 6e 74 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 IntObj(iPtr->err
2fd0: 6f 72 4c 69 6e 65 29 29 3b 0a 20 20 20 20 20 7d orLine));. }
2fe0: 0a 2b 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 .+ Tcl_DictOb
2ff0: 6a 50 75 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f jPut(NULL, optio
3000: 6e 73 2c 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 ns, keys[KEY_ERR
3010: 4f 52 53 54 41 43 4b 5d 2c 20 69 50 74 72 2d 3e ORSTACK], iPtr->
3020: 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a 20 20 20 errorStack);.
3030: 20 20 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 return options
3040: 3b 0a 20 7d 0a 20 0c 0a 40 40 20 2d 31 36 32 34 ;. }. ..@@ -1624
3050: 2c 35 20 2b 31 36 32 37 2c 37 20 40 40 20 54 63 ,5 +1627,7 @@ Tc
3060: 6c 5f 54 72 61 6e 73 66 65 72 52 65 73 75 6c 74 l_TransferResult
3070: 28 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 (. * mode: c.
3080: 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 * c-basic-offset
3090: 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c : 4. * fill-col
30a0: 75 6d 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 62 2d umn: 78.+ * tab-
30b0: 77 69 64 74 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 width: 8.+ * ind
30c0: 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e ent-tabs-mode: n
30d0: 69 6c 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f il. * End:. */
30e0: 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 63 6d .Index: tests/cm
30f0: 64 4d 5a 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d dMZ.test.=======
3100: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3120: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3130: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
3140: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
3150: 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 63 6d tcl/tcl/tests/cm
3160: 64 4d 5a 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 dMZ.test,v.retri
3170: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
3180: 2e 32 38 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d .28.diff -u -p -
3190: 75 20 2d 70 20 2d 72 31 2e 32 38 20 63 6d 64 4d u -p -r1.28 cmdM
31a0: 5a 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 Z.test.--- tests
31b0: 2f 63 6d 64 4d 5a 2e 74 65 73 74 09 31 36 20 4e /cmdMZ.test.16 N
31c0: 6f 76 20 32 30 30 39 20 31 38 3a 30 30 3a 31 31 ov 2009 18:00:11
31d0: 20 2d 30 30 30 30 09 31 2e 32 38 0a 2b 2b 2b 20 -0000.1.28.+++
31e0: 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 73 74 tests/cmdMZ.test
31f0: 09 38 20 46 65 62 20 32 30 31 30 20 31 30 3a 30 .8 Feb 2010 10:0
3200: 37 3a 30 34 20 2d 30 30 30 30 0a 40 40 20 2d 31 7:04 -0000.@@ -1
3210: 31 39 2c 31 38 20 2b 31 31 39 2c 31 38 20 40 40 19,18 +119,18 @@
3220: 20 70 72 6f 63 20 64 69 63 74 53 6f 72 74 20 7b proc dictSort {
3230: 64 7d 20 7b 0a 20 20 20 20 20 72 65 74 75 72 6e d} {. return
3240: 20 24 72 65 73 75 6c 74 0a 20 7d 0a 20 0a 2d 74 $result. }. .-t
3250: 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e est cmdMZ-return
3260: 2d 32 2e 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 -2.0 {return opt
3270: 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a ion handling} {.
3280: 2b 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 +test cmdMZ-retu
3290: 72 6e 2d 32 2e 30 20 7b 72 65 74 75 72 6e 20 6f rn-2.0 {return o
32a0: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
32b0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 -body {. lis
32c0: 74 20 5b 63 61 74 63 68 20 72 65 74 75 72 6e 20 t [catch return
32d0: 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 -> foo] [dictSor
32e0: 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d t $foo].-} {2 {-
32f0: 63 6f 64 65 20 30 20 2d 6c 65 76 65 6c 20 31 7d code 0 -level 1}
3300: 7d 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 }.-test cmdMZ-re
3310: 74 75 72 6e 2d 32 2e 31 20 7b 72 65 74 75 72 6e turn-2.1 {return
3320: 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 option handling
3330: 7d 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c } {.+} -match gl
3340: 6f 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d ob -result {2 {-
3350: 63 6f 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 code 0 -errorsta
3360: 63 6b 20 2a 20 2d 6c 65 76 65 6c 20 31 7d 7d 0a ck * -level 1}}.
3370: 2b 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 +test cmdMZ-retu
3380: 72 6e 2d 32 2e 31 20 7b 72 65 74 75 72 6e 20 6f rn-2.1 {return o
3390: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
33a0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 -body {. lis
33b0: 74 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e t [catch {return
33c0: 20 2d 62 61 72 20 73 6f 6f 6d 7d 20 2d 3e 20 66 -bar soom} -> f
33d0: 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 20 24 66 oo] [dictSort $f
33e0: 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 62 61 72 20 oo].-} {2 {-bar
33f0: 73 6f 6f 6d 20 2d 63 6f 64 65 20 30 20 2d 6c 65 soom -code 0 -le
3400: 76 65 6c 20 31 7d 7d 0a 2d 74 65 73 74 20 63 6d vel 1}}.-test cm
3410: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 32 20 7b dMZ-return-2.2 {
3420: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
3430: 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 7d 20 2d 6d 61 ndling} {.+} -ma
3440: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
3450: 20 7b 32 20 7b 2d 62 61 72 20 73 6f 6f 6d 20 2d {2 {-bar soom -
3460: 63 6f 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 code 0 -errorsta
3470: 63 6b 20 2a 20 2d 6c 65 76 65 6c 20 31 7d 7d 0a ck * -level 1}}.
3480: 2b 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 +test cmdMZ-retu
3490: 72 6e 2d 32 2e 32 20 7b 72 65 74 75 72 6e 20 6f rn-2.2 {return o
34a0: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
34b0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 -body {. lis
34c0: 74 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e t [catch {return
34d0: 20 2d 63 6f 64 65 20 72 65 74 75 72 6e 7d 20 2d -code return} -
34e0: 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 > foo] [dictSort
34f0: 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 63 $foo].-} {2 {-c
3500: 6f 64 65 20 30 20 2d 6c 65 76 65 6c 20 32 7d 7d ode 0 -level 2}}
3510: 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 .-test cmdMZ-ret
3520: 75 72 6e 2d 32 2e 33 20 7b 72 65 74 75 72 6e 20 urn-2.3 {return
3530: 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d option handling}
3540: 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f {.+} -match glo
3550: 62 20 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d 63 b -result {2 {-c
3560: 6f 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 63 ode 0 -errorstac
3570: 6b 20 2a 20 2d 6c 65 76 65 6c 20 32 7d 7d 0a 2b k * -level 2}}.+
3580: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
3590: 6e 2d 32 2e 33 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.3 {return op
35a0: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
35b0: 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 74 body {. list
35c0: 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e 20 [catch {return
35d0: 2d 63 6f 64 65 20 72 65 74 75 72 6e 20 2d 6c 65 -code return -le
35e0: 76 65 6c 20 31 30 7d 20 2d 3e 20 66 6f 6f 5d 20 vel 10} -> foo]
35f0: 5b 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a [dictSort $foo].
3600: 2d 7d 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d -} {2 {-code 0 -
3610: 6c 65 76 65 6c 20 31 31 7d 7d 0a 2b 7d 20 2d 6d level 11}}.+} -m
3620: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
3630: 74 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 65 t {2 {-code 0 -e
3640: 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 rrorstack * -lev
3650: 65 6c 20 31 31 7d 7d 0a 20 74 65 73 74 20 63 6d el 11}}. test cm
3660: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 34 20 7b dMZ-return-2.4 {
3670: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
3680: 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a ndling} -body {.
3690: 20 20 20 20 20 72 65 74 75 72 6e 20 2d 6c 65 76 return -lev
36a0: 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 el 0 -code error
36b0: 0a 20 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 . } -returnCodes
36c0: 20 65 72 72 6f 72 20 2d 72 65 73 75 6c 74 20 7b error -result {
36d0: 7d 0a 40 40 20 2d 31 34 39 2c 31 34 20 2b 31 34 }.@@ -149,14 +14
36e0: 39 2c 31 34 20 40 40 20 74 65 73 74 20 63 6d 64 9,14 @@ test cmd
36f0: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 38 20 7b 72 MZ-return-2.8 {r
3700: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
3710: 0a 20 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 . test cmdMZ-ret
3720: 75 72 6e 2d 32 2e 39 20 7b 72 65 74 75 72 6e 20 urn-2.9 {return
3730: 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d option handling}
3740: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 -body {. re
3750: 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 turn -level 0 -c
3760: 6f 64 65 20 31 30 0a 20 7d 20 2d 72 65 74 75 72 ode 10. } -retur
3770: 6e 43 6f 64 65 73 20 31 30 20 2d 72 65 73 75 6c nCodes 10 -resul
3780: 74 20 7b 7d 0a 2d 74 65 73 74 20 63 6d 64 4d 5a t {}.-test cmdMZ
3790: 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 7b 72 65 -return-2.10 {re
37a0: 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 turn option hand
37b0: 6c 69 6e 67 7d 20 7b 0a 2b 74 65 73 74 20 63 6d ling} {.+test cm
37c0: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 30 20 dMZ-return-2.10
37d0: 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 {return option h
37e0: 61 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b andling} -body {
37f0: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
3800: 68 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c h {return -level
3810: 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 7d 20 0 -code error}
3820: 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 -> foo] [dictSor
3830: 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 31 20 7b 2d t $foo].-} {1 {-
3840: 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 code 1 -errorcod
3850: 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 e NONE -errorinf
3860: 6f 20 7b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c o {.+} -match gl
3870: 6f 62 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b 2d ob -result {1 {-
3880: 63 6f 64 65 20 31 20 2d 65 72 72 6f 72 63 6f 64 code 1 -errorcod
3890: 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 e NONE -errorinf
38a0: 6f 20 7b 0a 20 20 20 20 20 77 68 69 6c 65 20 65 o {. while e
38b0: 78 65 63 75 74 69 6e 67 0a 2d 22 72 65 74 75 72 xecuting.-"retur
38c0: 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 n -level 0 -code
38d0: 20 65 72 72 6f 72 22 7d 20 2d 65 72 72 6f 72 6c error"} -errorl
38e0: 69 6e 65 20 31 20 2d 6c 65 76 65 6c 20 30 7d 7d ine 1 -level 0}}
38f0: 0a 2d 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 .-test cmdMZ-ret
3900: 75 72 6e 2d 32 2e 31 31 20 7b 72 65 74 75 72 6e urn-2.11 {return
3910: 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 option handling
3920: 7d 20 7b 0a 2b 22 72 65 74 75 72 6e 20 2d 6c 65 } {.+"return -le
3930: 76 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f vel 0 -code erro
3940: 72 22 7d 20 2d 65 72 72 6f 72 6c 69 6e 65 20 31 r"} -errorline 1
3950: 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d -errorstack * -
3960: 6c 65 76 65 6c 20 30 7d 7d 0a 2b 74 65 73 74 20 level 0}}.+test
3970: 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 cmdMZ-return-2.1
3980: 31 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 1 {return option
3990: 20 68 61 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 handling} -body
39a0: 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 {. list [ca
39b0: 74 63 68 20 7b 72 65 74 75 72 6e 20 2d 6c 65 76 tch {return -lev
39c0: 65 6c 20 30 20 2d 63 6f 64 65 20 62 72 65 61 6b el 0 -code break
39d0: 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 } -> foo] [dictS
39e0: 6f 72 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 33 20 ort $foo].-} {3
39f0: 7b 2d 63 6f 64 65 20 33 20 2d 6c 65 76 65 6c 20 {-code 3 -level
3a00: 30 7d 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 0}}.+} -match gl
3a10: 6f 62 20 2d 72 65 73 75 6c 74 20 7b 33 20 7b 2d ob -result {3 {-
3a20: 63 6f 64 65 20 33 20 2d 65 72 72 6f 72 73 74 61 code 3 -errorsta
3a30: 63 6b 20 2a 20 2d 6c 65 76 65 6c 20 30 7d 7d 0a ck * -level 0}}.
3a40: 20 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 test cmdMZ-retu
3a50: 72 6e 2d 32 2e 31 32 20 7b 72 65 74 75 72 6e 20 rn-2.12 {return
3a60: 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d option handling}
3a70: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 -body {. re
3a80: 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 turn -level 0 -c
3a90: 6f 64 65 20 65 72 72 6f 72 20 2d 6f 70 74 69 6f ode error -optio
3aa0: 6e 73 20 7b 2d 63 6f 64 65 20 6f 6b 7d 0a 20 7d ns {-code ok}. }
3ab0: 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 6f 6b -returnCodes ok
3ac0: 20 2d 72 65 73 75 6c 74 20 7b 7d 0a 49 6e 64 65 -result {}.Inde
3ad0: 78 3a 20 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 x: tests/error.t
3ae0: 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d est.============
3af0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b20: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
3b30: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
3b40: 63 6c 2f 74 65 73 74 73 2f 65 72 72 6f 72 2e 74 cl/tests/error.t
3b50: 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 est,v.retrieving
3b60: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 35 0a 64 revision 1.25.d
3b70: 69 66 66 20 2d 75 20 2d 70 20 2d 75 20 2d 70 20 iff -u -p -u -p
3b80: 2d 72 31 2e 32 35 20 65 72 72 6f 72 2e 74 65 73 -r1.25 error.tes
3b90: 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 72 72 6f t.--- tests/erro
3ba0: 72 2e 74 65 73 74 09 37 20 44 65 63 20 32 30 30 r.test.7 Dec 200
3bb0: 39 20 31 35 3a 30 38 3a 34 37 20 2d 30 30 30 30 9 15:08:47 -0000
3bc0: 09 31 2e 32 35 0a 2b 2b 2b 20 74 65 73 74 73 2f .1.25.+++ tests/
3bd0: 65 72 72 6f 72 2e 74 65 73 74 09 38 20 46 65 62 error.test.8 Feb
3be0: 20 32 30 31 30 20 31 30 3a 30 37 3a 30 34 20 2d 2010 10:07:04 -
3bf0: 30 30 30 30 0a 40 40 20 2d 31 36 39 2c 36 20 2b 0000.@@ -169,6 +
3c00: 31 36 39 2c 31 39 20 40 40 20 74 65 73 74 20 65 169,19 @@ test e
3c10: 72 72 6f 72 2d 34 2e 35 20 7b 65 72 72 6f 72 49 rror-4.5 {errorI
3c20: 6e 66 6f 20 61 6e 64 20 65 72 72 6f 72 43 6f 64 nfo and errorCod
3c30: 65 20 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 e . list [ca
3c40: 74 63 68 20 7b 65 72 72 6f 72 20 6d 73 67 31 20 tch {error msg1
3c50: 6d 73 67 32 20 7b 7d 7d 20 6d 73 67 5d 20 24 6d msg2 {}} msg] $m
3c60: 73 67 20 24 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 sg $::errorInfo
3c70: 24 3a 3a 65 72 72 6f 72 43 6f 64 65 0a 20 7d 20 $::errorCode. }
3c80: 7b 31 20 6d 73 67 31 20 6d 73 67 32 20 7b 7d 7d {1 msg1 msg2 {}}
3c90: 0a 20 0a 2b 74 65 73 74 20 65 72 72 6f 72 2d 34 . .+test error-4
3ca0: 2e 36 20 7b 65 72 72 6f 72 73 74 61 63 6b 20 76 .6 {errorstack v
3cb0: 69 61 20 69 6e 66 6f 20 7d 20 2d 62 6f 64 79 20 ia info } -body
3cc0: 7b 0a 2b 20 20 20 20 70 72 6f 63 20 66 20 78 20 {.+ proc f x
3cd0: 7b 67 20 24 78 24 78 7d 0a 2b 20 20 20 20 70 72 {g $x$x}.+ pr
3ce0: 6f 63 20 67 20 78 20 7b 65 72 72 6f 72 20 47 3a oc g x {error G:
3cf0: 24 78 7d 0a 2b 20 20 20 20 63 61 74 63 68 20 7b $x}.+ catch {
3d00: 66 20 31 32 7d 0a 2b 20 20 20 20 69 6e 66 6f 20 f 12}.+ info
3d10: 65 72 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 2d 6d errorstack.+} -m
3d20: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
3d30: 74 20 7b 7b 67 20 31 32 31 32 7d 20 7b 66 20 31 t {{g 1212} {f 1
3d40: 32 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 2} {namespace ev
3d50: 61 6c 20 2a 7d 7d 0a 2b 74 65 73 74 20 65 72 72 al *}}.+test err
3d60: 6f 72 2d 34 2e 37 20 7b 65 72 72 6f 72 73 74 61 or-4.7 {errorsta
3d70: 63 6b 20 76 69 61 20 6f 70 74 69 6f 6e 73 20 64 ck via options d
3d80: 69 63 74 20 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 ict } -body {.+
3d90: 20 20 20 70 72 6f 63 20 66 20 78 20 7b 67 20 24 proc f x {g $
3da0: 78 24 78 7d 0a 2b 20 20 20 20 70 72 6f 63 20 67 x$x}.+ proc g
3db0: 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 7d 0a x {error G:$x}.
3dc0: 2b 20 20 20 20 63 61 74 63 68 20 7b 66 20 31 32 + catch {f 12
3dd0: 7d 20 6d 20 64 0a 2b 20 20 20 20 64 69 63 74 20 } m d.+ dict
3de0: 67 65 74 20 24 64 20 2d 65 72 72 6f 72 73 74 61 get $d -errorsta
3df0: 63 6b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f ck.+} -match glo
3e00: 62 20 2d 72 65 73 75 6c 74 20 7b 7b 67 20 31 32 b -result {{g 12
3e10: 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 6d 65 12} {f 12} {name
3e20: 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d 0a 2b space eval *}}.+
3e30: 0a 20 23 20 45 72 72 6f 72 73 20 69 6e 20 65 72 . # Errors in er
3e40: 72 6f 72 20 63 6f 6d 6d 61 6e 64 20 69 74 73 65 ror command itse
3e50: 6c 66 0a 20 0a 20 74 65 73 74 20 65 72 72 6f 72 lf. . test error
3e60: 2d 35 2e 31 20 7b 65 72 72 6f 72 73 20 69 6e 20 -5.1 {errors in
3e70: 65 72 72 6f 72 20 63 6f 6d 6d 61 6e 64 7d 20 7b error command} {
3e80: 0a 40 40 20 2d 32 32 33 2c 36 20 2b 32 33 36 2c .@@ -223,6 +236,
3e90: 31 35 20 40 40 20 74 65 73 74 20 65 72 72 6f 72 15 @@ test error
3ea0: 2d 36 2e 39 20 7b 63 61 74 63 68 20 6d 75 73 74 -6.9 {catch must
3eb0: 20 72 65 73 65 74 20 65 72 72 6f 72 20 73 0a 20 reset error s.
3ec0: 20 20 20 20 63 61 74 63 68 20 66 6f 6f 0a 20 20 catch foo.
3ed0: 20 20 20 6c 69 73 74 20 24 3a 3a 65 72 72 6f 72 list $::error
3ee0: 43 6f 64 65 0a 20 7d 20 7b 4e 4f 4e 45 7d 0a 2b Code. } {NONE}.+
3ef0: 74 65 73 74 20 65 72 72 6f 72 2d 36 2e 31 30 20 test error-6.10
3f00: 7b 63 61 74 63 68 20 6d 75 73 74 20 72 65 73 65 {catch must rese
3f10: 74 20 65 72 72 6f 72 73 74 61 63 6b 7d 20 2d 62 t errorstack} -b
3f20: 6f 64 79 20 7b 0a 2b 09 70 72 6f 63 20 66 20 78 ody {.+.proc f x
3f30: 20 7b 67 20 24 78 24 78 7d 0a 2b 09 70 72 6f 63 {g $x$x}.+.proc
3f40: 20 67 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 g x {error G:$x
3f50: 7d 0a 2b 09 63 61 74 63 68 20 7b 66 20 31 32 7d }.+.catch {f 12}
3f60: 0a 2b 09 73 65 74 20 65 31 20 5b 69 6e 66 6f 20 .+.set e1 [info
3f70: 65 72 72 6f 72 73 74 61 63 6b 5d 0a 2b 09 63 61 errorstack].+.ca
3f80: 74 63 68 20 7b 66 20 31 33 7d 0a 2b 09 73 65 74 tch {f 13}.+.set
3f90: 20 65 32 20 5b 69 6e 66 6f 20 65 72 72 6f 72 73 e2 [info errors
3fa0: 74 61 63 6b 5d 0a 2b 09 6c 69 73 74 20 24 65 31 tack].+.list $e1
3fb0: 20 24 65 32 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 $e2.+} -match g
3fc0: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b 7b 67 lob -result {{{g
3fd0: 20 31 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 1212} {f 12} {n
3fe0: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d amespace eval *}
3ff0: 7d 20 7b 7b 67 20 31 33 31 33 7d 20 7b 66 20 31 } {{g 1313} {f 1
4000: 33 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 3} {namespace ev
4010: 61 6c 20 2a 7d 7d 7d 0a 20 0a 20 74 65 73 74 20 al *}}}. . test
4020: 65 72 72 6f 72 2d 37 2e 31 20 7b 42 75 67 20 31 error-7.1 {Bug 1
4030: 33 39 37 38 34 33 7d 20 2d 62 6f 64 79 20 7b 0a 397843} -body {.
4040: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 63 6d variable cm
4050: 64 73 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f ds.Index: tests/
4060: 65 78 65 63 75 74 65 2e 74 65 73 74 0a 3d 3d 3d execute.test.===
4070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
40b0: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
40c0: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 oot/tcl/tcl/test
40d0: 73 2f 65 78 65 63 75 74 65 2e 74 65 73 74 2c 76 s/execute.test,v
40e0: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
40f0: 73 69 6f 6e 20 31 2e 33 34 0a 64 69 66 66 20 2d sion 1.34.diff -
4100: 75 20 2d 70 20 2d 75 20 2d 70 20 2d 72 31 2e 33 u -p -u -p -r1.3
4110: 34 20 65 78 65 63 75 74 65 2e 74 65 73 74 0a 2d 4 execute.test.-
4120: 2d 2d 20 74 65 73 74 73 2f 65 78 65 63 75 74 65 -- tests/execute
4130: 2e 74 65 73 74 09 31 36 20 4e 6f 76 20 32 30 30 .test.16 Nov 200
4140: 39 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 30 9 18:00:11 -0000
4150: 09 31 2e 33 34 0a 2b 2b 2b 20 74 65 73 74 73 2f .1.34.+++ tests/
4160: 65 78 65 63 75 74 65 2e 74 65 73 74 09 38 20 46 execute.test.8 F
4170: 65 62 20 32 30 31 30 20 31 30 3a 30 37 3a 30 34 eb 2010 10:07:04
4180: 20 2d 30 30 30 30 0a 40 40 20 2d 39 35 36 2c 31 -0000.@@ -956,1
4190: 31 20 2b 39 35 36 2c 31 31 20 40 40 20 74 65 73 1 +956,11 @@ tes
41a0: 74 20 65 78 65 63 75 74 65 2d 38 2e 35 20 7b 42 t execute-8.5 {B
41b0: 75 67 20 32 30 33 38 30 36 39 7d 20 2d 73 65 74 ug 2038069} -set
41c0: 75 70 20 7b 0a 20 20 20 20 20 64 65 6d 6f 0a 20 up {. demo.
41d0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 } -cleanup {.
41e0: 20 20 72 65 6e 61 6d 65 20 64 65 6d 6f 20 7b 7d rename demo {}
41f0: 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 2d 63 6f .-} -result {-co
4200: 64 65 20 31 20 2d 6c 65 76 65 6c 20 30 20 2d 65 de 1 -level 0 -e
4210: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 rrorcode NONE -e
4220: 72 72 6f 72 69 6e 66 6f 20 7b 46 4f 4f 0a 2b 7d rrorinfo {FOO.+}
4230: 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 -match glob -re
4240: 73 75 6c 74 20 7b 2d 63 6f 64 65 20 31 20 2d 6c sult {-code 1 -l
4250: 65 76 65 6c 20 30 20 2d 65 72 72 6f 72 63 6f 64 evel 0 -errorcod
4260: 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 69 6e 66 e NONE -errorinf
4270: 6f 20 7b 46 4f 4f 0a 20 20 20 20 20 77 68 69 6c o {FOO. whil
4280: 65 20 65 78 65 63 75 74 69 6e 67 0a 20 22 65 72 e executing. "er
4290: 72 6f 72 20 46 4f 4f 22 0a 20 20 20 20 20 69 6e ror FOO". in
42a0: 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 74 68 69 voked from withi
42b0: 6e 0a 2d 22 63 61 74 63 68 20 5b 6c 69 73 74 20 n.-"catch [list
42c0: 65 72 72 6f 72 20 46 4f 4f 5d 20 6d 20 6f 22 7d error FOO] m o"}
42d0: 20 2d 65 72 72 6f 72 6c 69 6e 65 20 32 7d 0a 2b -errorline 2}.+
42e0: 22 63 61 74 63 68 20 5c 5b 6c 69 73 74 20 65 72 "catch \[list er
42f0: 72 6f 72 20 46 4f 4f 5c 5d 20 6d 20 6f 22 7d 20 ror FOO\] m o"}
4300: 2d 65 72 72 6f 72 6c 69 6e 65 20 32 20 2d 65 72 -errorline 2 -er
4310: 72 6f 72 73 74 61 63 6b 20 2a 7d 0a 20 0a 20 74 rorstack *}. . t
4320: 65 73 74 20 65 78 65 63 75 74 65 2d 39 2e 31 20 est execute-9.1
4330: 7b 49 6e 74 65 72 70 20 72 65 73 75 6c 74 20 72 {Interp result r
4340: 65 73 65 74 74 69 6e 67 20 5b 42 75 67 20 31 35 esetting [Bug 15
4350: 32 32 38 30 33 5d 7d 20 7b 0a 20 20 20 20 20 73 22803]} {. s
4360: 65 74 20 63 20 30 0a 49 6e 64 65 78 3a 20 74 65 et c 0.Index: te
4370: 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 0a 3d 3d sts/info.test.==
4380: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
43a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
43b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
43c0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
43d0: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 root/tcl/tcl/tes
43e0: 74 73 2f 69 6e 66 6f 2e 74 65 73 74 2c 76 0a 72 ts/info.test,v.r
43f0: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
4400: 6f 6e 20 31 2e 37 34 0a 64 69 66 66 20 2d 75 20 on 1.74.diff -u
4410: 2d 70 20 2d 75 20 2d 70 20 2d 72 31 2e 37 34 20 -p -u -p -r1.74
4420: 69 6e 66 6f 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 info.test.--- te
4430: 73 74 73 2f 69 6e 66 6f 2e 74 65 73 74 09 31 30 sts/info.test.10
4440: 20 4a 61 6e 20 32 30 31 30 20 32 32 3a 35 38 3a Jan 2010 22:58:
4450: 34 31 20 2d 30 30 30 30 09 31 2e 37 34 0a 2b 2b 41 -0000.1.74.++
4460: 2b 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 65 73 + tests/info.tes
4470: 74 09 38 20 46 65 62 20 32 30 31 30 20 31 30 3a t.8 Feb 2010 10:
4480: 30 37 3a 30 35 20 2d 30 30 30 30 0a 40 40 20 2d 07:05 -0000.@@ -
4490: 36 37 36 2c 31 36 20 2b 36 37 36 2c 31 36 20 40 676,16 +676,16 @
44a0: 40 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 31 @ test info-21.1
44b0: 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 {miscellaneous
44c0: 65 72 72 6f 72 20 63 6f 6e 64 0a 20 7d 20 2d 72 error cond. } -r
44d0: 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 esult {wrong # a
44e0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
44f0: 69 6e 66 6f 20 73 75 62 63 6f 6d 6d 61 6e 64 20 info subcommand
4500: 3f 61 72 67 20 2e 2e 2e 3f 22 7d 0a 20 74 65 73 ?arg ...?"}. tes
4510: 74 20 69 6e 66 6f 2d 32 31 2e 32 20 7b 6d 69 73 t info-21.2 {mis
4520: 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 cellaneous error
4530: 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 conditions} -re
4540: 74 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 turnCodes error
4550: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 -body {. inf
4560: 6f 20 67 6f 72 70 0a 2d 7d 20 2d 72 65 73 75 6c o gorp.-} -resul
4570: 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d t {unknown or am
4580: 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 biguous subcomma
4590: 6e 64 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 nd "gorp": must
45a0: 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 be args, body, c
45b0: 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 lass, cmdcount,
45c0: 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 commands, comple
45d0: 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 te, coroutine, d
45e0: 65 66 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 efault, exists,
45f0: 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 frame, functions
4600: 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e , globals, hostn
4610: 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 ame, level, libr
4620: 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 ary, loaded, loc
4630: 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 als, nameofexecu
4640: 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 table, object, p
4650: 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 atchlevel, procs
4660: 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 , script, shared
4670: 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 libextension, tc
4680: 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 lversion, or var
4690: 73 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 s}.+} -result {u
46a0: 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 nknown or ambigu
46b0: 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 ous subcommand "
46c0: 67 6f 72 70 22 3a 20 6d 75 73 74 20 62 65 20 61 gorp": must be a
46d0: 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 rgs, body, class
46e0: 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d , cmdcount, comm
46f0: 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 ands, complete,
4700: 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 coroutine, defau
4710: 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b 2c 20 lt, errorstack,
4720: 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 exists, frame, f
4730: 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c unctions, global
4740: 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 s, hostname, lev
4750: 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 el, library, loa
4760: 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d ded, locals, nam
4770: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f eofexecutable, o
4780: 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 bject, patchleve
4790: 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 l, procs, script
47a0: 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e , sharedlibexten
47b0: 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e sion, tclversion
47c0: 2c 20 6f 72 20 76 61 72 73 7d 0a 20 74 65 73 74 , or vars}. test
47d0: 20 69 6e 66 6f 2d 32 31 2e 33 20 7b 6d 69 73 63 info-21.3 {misc
47e0: 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f 72 20 ellaneous error
47f0: 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 65 74 conditions} -ret
4800: 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d urnCodes error -
4810: 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e 66 6f body {. info
4820: 20 63 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 75 c.-} -result {u
4830: 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 nknown or ambigu
4840: 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 ous subcommand "
4850: 63 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 c": must be args
4860: 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 , body, class, c
4870: 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 mdcount, command
4880: 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 s, complete, cor
4890: 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c outine, default,
48a0: 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 exists, frame,
48b0: 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 functions, globa
48c0: 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 ls, hostname, le
48d0: 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f vel, library, lo
48e0: 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 aded, locals, na
48f0: 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c 20 meofexecutable,
4900: 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 76 object, patchlev
4910: 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 70 el, procs, scrip
4920: 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 65 t, sharedlibexte
4930: 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f nsion, tclversio
4940: 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d n, or vars}.+} -
4950: 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 result {unknown
4960: 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 62 or ambiguous sub
4970: 63 6f 6d 6d 61 6e 64 20 22 63 22 3a 20 6d 75 73 command "c": mus
4980: 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c t be args, body,
4990: 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 class, cmdcount
49a0: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 , commands, comp
49b0: 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c lete, coroutine,
49c0: 20 64 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 default, errors
49d0: 74 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 tack, exists, fr
49e0: 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 ame, functions,
49f0: 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d globals, hostnam
4a00: 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 e, level, librar
4a10: 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c y, loaded, local
4a20: 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 s, nameofexecuta
4a30: 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 ble, object, pat
4a40: 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 chlevel, procs,
4a50: 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 script, sharedli
4a60: 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 bextension, tclv
4a70: 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d ersion, or vars}
4a80: 0a 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 34 . test info-21.4
4a90: 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 {miscellaneous
4aa0: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
4ab0: 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 } -returnCodes e
4ac0: 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 rror -body {.
4ad0: 20 20 69 6e 66 6f 20 6c 0a 2d 7d 20 2d 72 65 73 info l.-} -res
4ae0: 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 ult {unknown or
4af0: 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d ambiguous subcom
4b00: 6d 61 6e 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 mand "l": must b
4b10: 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c e args, body, cl
4b20: 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 ass, cmdcount, c
4b30: 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 ommands, complet
4b40: 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 e, coroutine, de
4b50: 66 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 fault, exists, f
4b60: 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c rame, functions,
4b70: 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 globals, hostna
4b80: 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 me, level, libra
4b90: 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 ry, loaded, loca
4ba0: 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 ls, nameofexecut
4bb0: 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 able, object, pa
4bc0: 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c tchlevel, procs,
4bd0: 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c script, sharedl
4be0: 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c ibextension, tcl
4bf0: 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 version, or vars
4c00: 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e }.+} -result {un
4c10: 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f known or ambiguo
4c20: 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 6c us subcommand "l
4c30: 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c ": must be args,
4c40: 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d body, class, cm
4c50: 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 dcount, commands
4c60: 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f , complete, coro
4c70: 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 utine, default,
4c80: 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 errorstack, exis
4c90: 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 ts, frame, funct
4ca0: 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 ions, globals, h
4cb0: 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 ostname, level,
4cc0: 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c library, loaded,
4cd0: 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 locals, nameofe
4ce0: 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 xecutable, objec
4cf0: 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 t, patchlevel, p
4d00: 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 rocs, script, sh
4d10: 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e aredlibextension
4d20: 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 , tclversion, or
4d30: 20 76 61 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 vars}. test inf
4d40: 6f 2d 32 31 2e 35 20 7b 6d 69 73 63 65 6c 6c 61 o-21.5 {miscella
4d50: 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 neous error cond
4d60: 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 itions} -returnC
4d70: 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 odes error -body
4d80: 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 73 0a 2d {. info s.-
4d90: 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f } -result {unkno
4da0: 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 wn or ambiguous
4db0: 73 75 62 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 subcommand "s":
4dc0: 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f must be args, bo
4dd0: 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f dy, class, cmdco
4de0: 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 unt, commands, c
4df0: 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 omplete, corouti
4e00: 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 ne, default, exi
4e10: 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 sts, frame, func
4e20: 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 tions, globals,
4e30: 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c hostname, level,
4e40: 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 library, loaded
4e50: 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 , locals, nameof
4e60: 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 executable, obje
4e70: 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 ct, patchlevel,
4e80: 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 procs, script, s
4e90: 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f haredlibextensio
4ea0: 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f n, tclversion, o
4eb0: 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 r vars}.+} -resu
4ec0: 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 lt {unknown or a
4ed0: 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d mbiguous subcomm
4ee0: 61 6e 64 20 22 73 22 3a 20 6d 75 73 74 20 62 65 and "s": must be
4ef0: 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 args, body, cla
4f00: 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f ss, cmdcount, co
4f10: 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 mmands, complete
4f20: 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 , coroutine, def
4f30: 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b ault, errorstack
4f40: 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c , exists, frame,
4f50: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 functions, glob
4f60: 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c als, hostname, l
4f70: 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c evel, library, l
4f80: 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e oaded, locals, n
4f90: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c ameofexecutable,
4fa0: 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 object, patchle
4fb0: 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 vel, procs, scri
4fc0: 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 pt, sharedlibext
4fd0: 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 ension, tclversi
4fe0: 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 0a 20 on, or vars}. .
4ff0: 23 23 0a 20 23 20 23 23 23 20 23 23 23 20 23 23 ##. # ### ### ##
5000: 23 20 23 23 23 23 23 23 23 23 23 20 23 23 23 23 # ######### ####
5010: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 0a ##### #########.
5020: 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 69 6e 69 Index: tests/ini
5030: 74 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d t.test.=========
5040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
5080: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
5090: 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 69 6e 69 74 l/tcl/tests/init
50a0: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
50b0: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 31 ng revision 1.21
50c0: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 75 20 2d .diff -u -p -u -
50d0: 70 20 2d 72 31 2e 32 31 20 69 6e 69 74 2e 74 65 p -r1.21 init.te
50e0: 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 69 st.--- tests/ini
50f0: 74 2e 74 65 73 74 09 31 36 20 4e 6f 76 20 32 30 t.test.16 Nov 20
5100: 30 39 20 31 38 3a 30 30 3a 31 31 20 2d 30 30 30 09 18:00:11 -000
5110: 30 09 31 2e 32 31 0a 2b 2b 2b 20 74 65 73 74 73 0.1.21.+++ tests
5120: 2f 69 6e 69 74 2e 74 65 73 74 09 38 20 46 65 62 /init.test.8 Feb
5130: 20 32 30 31 30 20 31 30 3a 30 37 3a 30 35 20 2d 2010 10:07:05 -
5140: 30 30 30 30 0a 40 40 20 2d 31 38 31 2c 37 20 2b 0000.@@ -181,7 +
5150: 31 38 31 2c 37 20 40 40 20 74 65 73 74 20 69 6e 181,7 @@ test in
5160: 69 74 2d 35 2e 30 20 7b 72 65 74 75 72 6e 20 6f it-5.0 {return o
5170: 70 74 69 6f 6e 73 20 70 61 73 73 65 64 20 74 68 ptions passed th
5180: 72 0a 20 20 20 20 20 6c 69 73 74 20 24 63 6f 64 r. list $cod
5190: 65 20 24 66 6f 6f 20 24 62 61 72 20 24 63 6f 64 e $foo $bar $cod
51a0: 65 32 20 24 66 6f 6f 32 20 24 62 61 72 32 0a 20 e2 $foo2 $bar2.
51b0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 } -cleanup {.
51c0: 20 20 75 6e 73 65 74 20 3a 3a 61 75 74 6f 5f 69 unset ::auto_i
51d0: 6e 64 65 78 28 3a 3a 78 78 78 29 0a 2d 7d 20 2d ndex(::xxx).-} -
51e0: 72 65 73 75 6c 74 20 7b 32 20 78 78 78 20 7b 2d result {2 xxx {-
51f0: 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d errorcode NONE -
5200: 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 7d code 1 -level 1}
5210: 20 32 20 78 78 78 20 7b 2d 63 6f 64 65 20 31 20 2 xxx {-code 1
5220: 2d 6c 65 76 65 6c 20 31 20 2d 65 72 72 6f 72 63 -level 1 -errorc
5230: 6f 64 65 20 4e 4f 4e 45 7d 7d 0a 2b 7d 20 2d 6d ode NONE}}.+} -m
5240: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
5250: 74 20 7b 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 t {2 xxx {-error
5260: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
5270: 73 74 61 63 6b 20 2a 20 2d 63 6f 64 65 20 31 20 stack * -code 1
5280: 2d 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 20 -level 1} 2 xxx
5290: 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 {-code 1 -level
52a0: 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 1 -errorcode NON
52b0: 45 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 7d E -errorstack *}
52c0: 7d 0a 20 0c 0a 20 63 6c 65 61 6e 75 70 54 65 73 }. .. cleanupTes
52d0: 74 73 0a 20 7d 09 3b 23 20 20 45 6e 64 20 6f 66 ts. }.;# End of
52e0: 20 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 24 74 [interp eval $t
52f0: 65 73 74 49 6e 74 65 72 70 5d 0a estInterp].
