Attachment "errorstack6.patch" to
ticket [2868499fff]
added by
ferrieux
2009-11-04 00:20:26.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 42 61 73 69 63 2e 63 0a 3d 3d 3d 3d 3d 3d clBasic.c.======
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 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0060: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0070: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0080: 2f 74 63 6c 42 61 73 69 63 2e 63 2c 76 0a 72 65 /tclBasic.c,v.re
0090: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
00a0: 6e 20 31 2e 34 30 35 0a 64 69 66 66 20 2d 75 20 n 1.405.diff -u
00b0: 2d 70 20 2d 72 31 2e 34 30 35 20 74 63 6c 42 61 -p -r1.405 tclBa
00c0: 73 69 63 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 sic.c.--- generi
00d0: 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 33 31 20 c/tclBasic.c.31
00e0: 4f 63 74 20 32 30 30 39 20 32 30 3a 31 38 3a 34 Oct 2009 20:18:4
00f0: 33 20 2d 30 30 30 30 09 31 2e 34 30 35 0a 2b 2b 3 -0000.1.405.++
0100: 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 + generic/tclBas
0110: 69 63 2e 63 09 33 20 4e 6f 76 20 32 30 30 39 20 ic.c.3 Nov 2009
0120: 31 37 3a 31 36 3a 31 39 20 2d 30 30 30 30 0a 40 17:16:19 -0000.@
0130: 40 20 2d 35 33 30 2c 36 20 2b 35 33 30 2c 39 20 @ -530,6 +530,9
0140: 40 40 20 54 63 6c 5f 43 72 65 61 74 65 49 6e 74 @@ Tcl_CreateInt
0150: 65 72 70 28 76 6f 69 64 29 0a 20 20 20 20 20 69 erp(void). i
0160: 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 3d Ptr->errorInfo =
0170: 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 4e NULL;. TclN
0180: 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e 67 4f ewLiteralStringO
0190: 62 6a 28 69 50 74 72 2d 3e 65 69 56 61 72 2c 20 bj(iPtr->eiVar,
01a0: 22 3a 3a 65 72 72 6f 72 49 6e 66 6f 22 29 3b 0a "::errorInfo");.
01b0: 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 Tcl_IncrRef
01c0: 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 69 56 61 Count(iPtr->eiVa
01d0: 72 29 3b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 65 r);.+ iPtr->e
01e0: 72 72 6f 72 53 74 61 63 6b 20 3d 20 54 63 6c 5f rrorStack = Tcl_
01f0: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 NewListObj(0, NU
0200: 4c 4c 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e LL);.+ Tcl_In
0210: 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d crRefCount(iPtr-
0220: 3e 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a 2b 20 >errorStack);.+
0230: 20 20 20 69 50 74 72 2d 3e 72 65 73 65 74 45 72 iPtr->resetEr
0240: 72 6f 72 53 74 61 63 6b 20 3d 20 31 3b 0a 20 20 rorStack = 1;.
0250: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 43 6f iPtr->errorCo
0260: 64 65 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 de = NULL;.
0270: 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 TclNewLiteralStr
0280: 69 6e 67 4f 62 6a 28 69 50 74 72 2d 3e 65 63 56 ingObj(iPtr->ecV
0290: 61 72 2c 20 22 3a 3a 65 72 72 6f 72 43 6f 64 65 ar, "::errorCode
02a0: 22 29 3b 0a 20 20 20 20 20 54 63 6c 5f 49 6e 63 ");. Tcl_Inc
02b0: 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e rRefCount(iPtr->
02c0: 65 63 56 61 72 29 3b 0a 40 40 20 2d 31 34 37 30 ecVar);.@@ -1470
02d0: 2c 36 20 2b 31 34 37 33 2c 37 20 40 40 20 44 65 ,6 +1473,7 @@ De
02e0: 6c 65 74 65 49 6e 74 65 72 70 50 72 6f 63 28 0a leteInterpProc(.
02f0: 20 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 .Tcl_DecrRefCou
0300: 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e nt(iPtr->errorIn
0310: 66 6f 29 3b 0a 20 09 69 50 74 72 2d 3e 65 72 72 fo);. .iPtr->err
0320: 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 orInfo = NULL;.
0330: 20 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 44 }.+ Tcl_D
0340: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 ecrRefCount(iPtr
0350: 2d 3e 65 72 72 6f 72 53 74 61 63 6b 29 3b 0a 20 ->errorStack);.
0360: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 72 65 if (iPtr->re
0370: 74 75 72 6e 4f 70 74 73 29 20 7b 0a 20 09 54 63 turnOpts) {. .Tc
0380: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 l_DecrRefCount(i
0390: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 Ptr->returnOpts)
03a0: 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d 38 38 32 ;. }.@@ -882
03b0: 31 2c 35 20 2b 38 38 32 35 2c 37 20 40 40 20 54 1,5 +8825,7 @@ T
03c0: 63 6c 49 6e 66 6f 43 6f 72 6f 75 74 69 6e 65 43 clInfoCoroutineC
03d0: 6d 64 28 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a md(. * mode: c.
03e0: 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 * c-basic-offs
03f0: 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d 63 et: 4. * fill-c
0400: 6f 6c 75 6d 6e 3a 20 37 38 0a 2b 20 2a 20 74 61 olumn: 78.+ * ta
0410: 62 2d 77 69 64 74 68 3a 20 38 0a 2b 20 2a 20 69 b-width: 8.+ * i
0420: 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a ndent-tabs-mode:
0430: 20 6e 69 6c 0a 20 20 2a 20 45 6e 64 3a 0a 20 20 nil. * End:.
0440: 2a 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 */.Index: generi
0450: 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 0a 3d 3d 3d c/tclCmdIL.c.===
0460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0470: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0490: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
04a0: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
04b0: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 oot/tcl/tcl/gene
04c0: 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 2c 76 ric/tclCmdIL.c,v
04d0: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
04e0: 73 69 6f 6e 20 31 2e 31 37 31 0a 64 69 66 66 20 sion 1.171.diff
04f0: 2d 75 20 2d 70 20 2d 72 31 2e 31 37 31 20 74 63 -u -p -r1.171 tc
0500: 6c 43 6d 64 49 4c 2e 63 0a 2d 2d 2d 20 67 65 6e lCmdIL.c.--- gen
0510: 65 72 69 63 2f 74 63 6c 43 6d 64 49 4c 2e 63 09 eric/tclCmdIL.c.
0520: 32 30 20 41 75 67 20 32 30 30 39 20 31 30 3a 35 20 Aug 2009 10:5
0530: 36 3a 35 35 20 2d 30 30 30 30 09 31 2e 31 37 31 6:55 -0000.1.171
0540: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c .+++ generic/tcl
0550: 43 6d 64 49 4c 2e 63 09 33 20 4e 6f 76 20 32 30 CmdIL.c.3 Nov 20
0560: 30 39 20 31 37 3a 31 36 3a 31 39 20 2d 30 30 30 09 17:16:19 -000
0570: 30 0a 40 40 20 2d 31 31 38 2c 36 20 2b 31 31 38 0.@@ -118,6 +118
0580: 2c 39 20 40 40 20 73 74 61 74 69 63 20 69 6e 74 ,9 @@ static int
0590: 09 09 49 6e 66 6f 43 6f 6d 70 6c 65 74 65 43 6d ..InfoCompleteCm
05a0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 0a 20 d(ClientData d.
05b0: 09 09 09 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c ... int objc,
05c0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
05d0: 6f 62 6a 76 5b 5d 29 3b 0a 20 73 74 61 74 69 63 objv[]);. static
05e0: 20 69 6e 74 09 09 49 6e 66 6f 44 65 66 61 75 6c int..InfoDefaul
05f0: 74 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 tCmd(ClientData
0600: 64 75 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 dummy, Tcl_Inter
0610: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 p *interp,. ...
0620: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c int objc, Tcl
0630: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
0640: 5b 5d 29 3b 0a 2b 2f 2a 20 54 49 50 20 23 33 34 []);.+/* TIP #34
0650: 38 20 2d 20 4e 65 77 20 27 69 6e 66 6f 27 20 73 8 - New 'info' s
0660: 75 62 63 6f 6d 6d 61 6e 64 20 27 65 72 72 6f 72 ubcommand 'error
0670: 73 74 61 63 6b 27 20 2a 2f 0a 2b 73 74 61 74 69 stack' */.+stati
0680: 63 20 69 6e 74 09 09 49 6e 66 6f 45 72 72 6f 72 c int..InfoError
0690: 53 74 61 63 6b 43 6d 64 28 43 6c 69 65 6e 74 44 StackCmd(ClientD
06a0: 61 74 61 20 64 75 6d 6d 79 2c 20 54 63 6c 5f 49 ata dummy, Tcl_I
06b0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 2b nterp *interp,.+
06c0: 09 09 09 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c ... int objc,
06d0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
06e0: 6f 62 6a 76 5b 5d 29 3b 0a 20 2f 2a 20 54 49 50 objv[]);. /* TIP
06f0: 20 23 32 38 30 20 2d 20 4e 65 77 20 27 69 6e 66 #280 - New 'inf
0700: 6f 27 20 73 75 62 63 6f 6d 6d 61 6e 64 20 27 66 o' subcommand 'f
0710: 72 61 6d 65 27 20 2a 2f 0a 20 73 74 61 74 69 63 rame' */. static
0720: 20 69 6e 74 09 09 49 6e 66 6f 46 72 61 6d 65 43 int..InfoFrameC
0730: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 64 75 md(ClientData du
0740: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
0750: 2a 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20 *interp,. ...
0760: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
0770: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
0780: 29 3b 0a 40 40 20 2d 31 36 34 2c 36 20 2b 31 36 );.@@ -164,6 +16
0790: 37 2c 37 20 40 40 20 73 74 61 74 69 63 20 63 6f 7,7 @@ static co
07a0: 6e 73 74 20 45 6e 73 65 6d 62 6c 65 49 6d 70 6c nst EnsembleImpl
07b0: 4d 61 70 20 64 65 66 61 75 6c 74 49 6e 66 6f 0a Map defaultInfo.
07c0: 20 20 20 20 20 7b 22 63 6f 6d 70 6c 65 74 65 22 {"complete"
07d0: 2c 09 20 20 20 49 6e 66 6f 43 6f 6d 70 6c 65 74 ,. InfoComplet
07e0: 65 43 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 7d 2c eCmd,. NULL},
07f0: 0a 20 20 20 20 20 7b 22 63 6f 72 6f 75 74 69 6e . {"coroutin
0800: 65 22 2c 09 20 20 20 54 63 6c 49 6e 66 6f 43 6f e",. TclInfoCo
0810: 72 6f 75 74 69 6e 65 43 6d 64 2c 20 20 20 20 20 routineCmd,
0820: 4e 55 4c 4c 7d 2c 0a 20 20 20 20 20 7b 22 64 65 NULL},. {"de
0830: 66 61 75 6c 74 22 2c 09 09 20 20 20 49 6e 66 6f fault",.. Info
0840: 44 65 66 61 75 6c 74 43 6d 64 2c 09 20 20 20 20 DefaultCmd,.
0850: 4e 55 4c 4c 7d 2c 0a 2b 20 20 20 20 7b 22 65 72 NULL},.+ {"er
0860: 72 6f 72 73 74 61 63 6b 22 2c 09 20 20 20 49 6e rorstack",. In
0870: 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 2c foErrorStackCmd,
0880: 09 20 20 20 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 . NULL},.
0890: 20 7b 22 65 78 69 73 74 73 22 2c 09 09 20 20 20 {"exists",..
08a0: 54 63 6c 49 6e 66 6f 45 78 69 73 74 73 43 6d 64 TclInfoExistsCmd
08b0: 2c 09 20 20 20 20 54 63 6c 43 6f 6d 70 69 6c 65 ,. TclCompile
08c0: 49 6e 66 6f 45 78 69 73 74 73 43 6d 64 7d 2c 0a InfoExistsCmd},.
08d0: 20 20 20 20 20 7b 22 66 72 61 6d 65 22 2c 09 09 {"frame",..
08e0: 20 20 20 49 6e 66 6f 46 72 61 6d 65 43 6d 64 2c InfoFrameCmd,
08f0: 09 20 20 20 20 4e 55 4c 4c 7d 2c 0a 20 20 20 20 . NULL},.
0900: 20 7b 22 66 75 6e 63 74 69 6f 6e 73 22 2c 09 20 {"functions",.
0910: 20 20 49 6e 66 6f 46 75 6e 63 74 69 6f 6e 73 43 InfoFunctionsC
0920: 6d 64 2c 09 20 20 20 20 4e 55 4c 4c 7d 2c 0a 40 md,. NULL},.@
0930: 40 20 2d 31 30 31 37 2c 36 20 2b 31 30 32 31 2c @ -1017,6 +1021,
0940: 35 35 20 40 40 20 49 6e 66 6f 44 65 66 61 75 6c 55 @@ InfoDefaul
0950: 74 43 6d 64 28 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d tCmd(. /*. *---
0960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09a0: 2d 2d 2d 0a 20 20 2a 0a 2b 20 2a 20 49 6e 66 6f ---. *.+ * Info
09b0: 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 20 2d 2d ErrorStackCmd --
09c0: 0a 2b 20 2a 0a 2b 20 2a 09 43 61 6c 6c 65 64 20 .+ *.+ *.Called
09d0: 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 to implement the
09e0: 20 22 69 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 "info errorstac
09f0: 6b 22 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 k" command that
0a00: 72 65 74 75 72 6e 73 20 69 6e 66 6f 72 6d 61 74 returns informat
0a10: 69 6f 6e 0a 2b 20 2a 09 61 62 6f 75 74 20 74 68 ion.+ *.about th
0a20: 65 20 6c 61 73 74 20 65 72 72 6f 72 27 73 20 63 e last error's c
0a30: 61 6c 6c 20 73 74 61 63 6b 2e 20 48 61 6e 64 6c all stack. Handl
0a40: 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 es the following
0a50: 20 73 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b 20 2a syntax:.+ *.+ *
0a60: 09 20 20 20 20 69 6e 66 6f 20 65 72 72 6f 72 73 . info errors
0a70: 74 61 63 6b 20 3f 69 6e 74 65 72 70 3f 0a 2b 20 tack ?interp?.+
0a80: 2a 0a 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b *.+ * Results:.+
0a90: 20 2a 09 52 65 74 75 72 6e 73 20 54 43 4c 5f 4f *.Returns TCL_O
0aa0: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ab0: 61 6e 64 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 and TCL_ERROR if
0ac0: 20 74 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 there is an err
0ad0: 6f 72 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 69 64 65 or..+ *.+ * Side
0ae0: 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a 09 52 65 effects:.+ *.Re
0af0: 74 75 72 6e 73 20 61 20 72 65 73 75 6c 74 20 69 turns a result i
0b00: 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 n the interprete
0b10: 72 27 73 20 72 65 73 75 6c 74 20 6f 62 6a 65 63 r's result objec
0b20: 74 2e 20 49 66 20 74 68 65 72 65 20 69 73 20 61 t. If there is a
0b30: 6e 0a 2b 20 2a 09 65 72 72 6f 72 2c 20 74 68 65 n.+ *.error, the
0b40: 20 72 65 73 75 6c 74 20 69 73 20 61 6e 20 65 72 result is an er
0b50: 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 2b 20 2a ror message..+ *
0b60: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a ----------.+ */.
0bb0: 2b 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 49 +.+static int.+I
0bc0: 6e 66 6f 45 72 72 6f 72 53 74 61 63 6b 43 6d 64 nfoErrorStackCmd
0bd0: 28 0a 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 (.+ ClientDat
0be0: 61 20 64 75 6d 6d 79 2c 09 09 2f 2a 20 4e 6f 74 a dummy,../* Not
0bf0: 20 75 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 used. */.+ T
0c00: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0c10: 70 2c 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 p,../* Current i
0c20: 6e 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b nterpreter. */.+
0c30: 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 int objc,...
0c40: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
0c50: 75 6d 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 uments. */.+
0c60: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
0c70: 62 6a 76 5b 5d 29 09 2f 2a 20 41 72 67 75 6d 65 bjv[])./* Argume
0c80: 6e 74 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b nt objects. */.+
0c90: 7b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 {.+ Tcl_Inter
0ca0: 70 20 2a 74 61 72 67 65 74 3b 0a 2b 20 20 20 20 p *target;.+
0cb0: 49 6e 74 65 72 70 20 2a 69 50 74 72 3b 0a 2b 0a Interp *iPtr;.+.
0cc0: 2b 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 21 + if ((objc !
0cd0: 3d 20 31 29 20 26 26 20 28 6f 62 6a 63 20 21 3d = 1) && (objc !=
0ce0: 20 32 29 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 2)) {.+.Tcl_Wro
0cf0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
0d00: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 69 6e 74 , 1, objv, "?int
0d10: 65 72 70 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e erp?");.+.return
0d20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 TCL_ERROR;.+
0d30: 20 7d 0a 2b 20 20 20 20 0a 2b 20 20 20 20 74 61 }.+ .+ ta
0d40: 72 67 65 74 20 3d 20 69 6e 74 65 72 70 3b 0a 2b rget = interp;.+
0d50: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 if (objc ==
0d60: 32 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 74 61 2) {.+ ta
0d70: 72 67 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 6c rget = Tcl_GetSl
0d80: 61 76 65 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ave(interp, Tcl_
0d90: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
0da0: 5d 29 29 3b 0a 2b 20 20 20 20 20 20 20 20 69 66 ]));.+ if
0db0: 20 28 74 61 72 67 65 74 20 3d 3d 20 4e 55 4c 4c (target == NULL
0dc0: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ) {.+
0dd0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
0de0: 52 3b 0a 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 R;.+ }.+
0df0: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 50 74 72 }.+.+ iPtr
0e00: 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 20 74 61 = (Interp *) ta
0e10: 72 67 65 74 3b 0a 2b 20 20 20 20 54 63 6c 5f 53 rget;.+ Tcl_S
0e20: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
0e30: 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 rp, iPtr->errorS
0e40: 74 61 63 6b 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 tack);.+ .+
0e50: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
0e60: 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d .+}.+..+/*.+ *--
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 0a 2b 20 2a 0a 20 20 2a 20 54 63 6c ----.+ *. * Tcl
0ec0: 49 6e 66 6f 45 78 69 73 74 73 43 6d 64 20 2d 2d InfoExistsCmd --
0ed0: 0a 20 20 2a 0a 20 20 2a 09 43 61 6c 6c 65 64 20 . *. *.Called
0ee0: 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 to implement the
0ef0: 20 22 69 6e 66 6f 20 65 78 69 73 74 73 22 20 63 "info exists" c
0f00: 6f 6d 6d 61 6e 64 20 74 68 61 74 20 64 65 74 65 ommand that dete
0f10: 72 6d 69 6e 65 73 20 77 68 65 74 68 65 72 0a 40 rmines whether.@
0f20: 40 20 2d 34 33 38 38 2c 35 20 2b 34 34 34 31 2c @ -4388,5 +4441,
0f30: 37 20 40 40 20 53 65 6c 65 63 74 4f 62 6a 46 72 7 @@ SelectObjFr
0f40: 6f 6d 53 75 62 6c 69 73 74 28 0a 20 20 2a 20 6d omSublist(. * m
0f50: 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 ode: c. * c-bas
0f60: 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 20 20 2a ic-offset: 4. *
0f70: 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 fill-column: 78
0f80: 0a 2b 20 2a 20 74 61 62 2d 77 69 64 74 68 3a 20 .+ * tab-width:
0f90: 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62 8.+ * indent-tab
0fa0: 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 20 20 2a 20 s-mode: nil. *
0fb0: 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e 64 65 78 3a End:. */.Index:
0fc0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e generic/tclInt.
0fd0: 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d h.==============
0fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1010: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
1020: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
1030: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e /generic/tclInt.
1040: 68 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 h,v.retrieving r
1050: 65 76 69 73 69 6f 6e 20 31 2e 34 34 35 0a 64 69 evision 1.445.di
1060: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 34 34 35 ff -u -p -r1.445
1070: 20 74 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 tclInt.h.--- ge
1080: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 33 neric/tclInt.h.3
1090: 30 20 53 65 70 20 32 30 30 39 20 30 33 3a 31 31 0 Sep 2009 03:11
10a0: 3a 32 36 20 2d 30 30 30 30 09 31 2e 34 34 35 0a :26 -0000.1.445.
10b0: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 +++ generic/tclI
10c0: 6e 74 2e 68 09 33 20 4e 6f 76 20 32 30 30 39 20 nt.h.3 Nov 2009
10d0: 31 37 3a 31 36 3a 32 31 20 2d 30 30 30 30 0a 40 17:16:21 -0000.@
10e0: 40 20 2d 31 38 39 35 2c 36 20 2b 31 38 39 35 2c @ -1895,6 +1895,
10f0: 38 20 40 40 20 74 79 70 65 64 65 66 20 73 74 72 8 @@ typedef str
1100: 75 63 74 20 49 6e 74 65 72 70 20 7b 0a 20 20 20 uct Interp {.
1110: 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 69 56 61 72 Tcl_Obj *eiVar
1120: 3b 09 09 2f 2a 20 63 61 63 68 65 64 20 72 65 66 ;../* cached ref
1130: 20 74 6f 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 to ::errorInfo
1140: 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 variable. */.
1150: 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 Tcl_Obj *error
1160: 43 6f 64 65 3b 09 09 2f 2a 20 65 72 72 6f 72 43 Code;../* errorC
1170: 6f 64 65 20 76 61 6c 75 65 20 28 6e 6f 77 20 61 ode value (now a
1180: 73 20 61 20 54 63 6c 5f 4f 62 6a 29 2e 20 2a 2f s a Tcl_Obj). */
1190: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 . Tcl_Obj *e
11a0: 63 56 61 72 3b 09 09 2f 2a 20 63 61 63 68 65 64 cVar;../* cached
11b0: 20 72 65 66 20 74 6f 20 3a 3a 65 72 72 6f 72 49 ref to ::errorI
11c0: 6e 66 6f 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f nfo variable. */
11d0: 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 .+ Tcl_Obj *e
11e0: 72 72 6f 72 53 74 61 63 6b 3b 09 2f 2a 20 5b 69 rrorStack;./* [i
11f0: 6e 66 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 20 nfo errorstack]
1200: 76 61 6c 75 65 20 28 61 73 20 61 20 54 63 6c 5f value (as a Tcl_
1210: 4f 62 6a 29 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e Obj). */.+ in
1220: 74 20 72 65 73 65 74 45 72 72 6f 72 53 74 61 63 t resetErrorStac
1230: 6b 3b 20 20 20 20 20 20 20 20 2f 2a 20 63 6f 6e k; /* con
1240: 74 72 6f 6c 73 20 63 6c 65 61 6e 69 6e 67 20 75 trols cleaning u
1250: 70 20 6f 66 20 3a 3a 65 72 72 6f 72 53 74 61 63 p of ::errorStac
1260: 6b 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 72 65 k */. int re
1270: 74 75 72 6e 4c 65 76 65 6c 3b 09 09 2f 2a 20 5b turnLevel;../* [
1280: 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 5d 20 70 return -level] p
1290: 61 72 61 6d 65 74 65 72 2e 20 2a 2f 0a 20 0a 20 arameter. */. .
12a0: 20 20 20 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 /*.Index: ge
12b0: 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e neric/tclNamesp.
12c0: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
12d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
12e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
12f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1300: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
1310: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
1320: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 /generic/tclName
1330: 73 70 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e sp.c,v.retrievin
1340: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 39 33 g revision 1.193
1350: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
1360: 31 39 33 20 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 193 tclNamesp.c.
1370: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4e --- generic/tclN
1380: 61 6d 65 73 70 2e 63 09 33 30 20 53 65 70 20 32 amesp.c.30 Sep 2
1390: 30 30 39 20 30 33 3a 31 31 3a 32 36 20 2d 30 30 009 03:11:26 -00
13a0: 30 30 09 31 2e 31 39 33 0a 2b 2b 2b 20 67 65 6e 00.1.193.+++ gen
13b0: 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 eric/tclNamesp.c
13c0: 09 33 20 4e 6f 76 20 32 30 30 39 20 31 37 3a 31 .3 Nov 2009 17:1
13d0: 36 3a 32 32 20 2d 30 30 30 30 0a 40 40 20 2d 37 6:22 -0000.@@ -7
13e0: 35 37 34 2c 37 20 2b 37 35 37 34 2c 37 20 40 40 574,7 +7574,7 @@
13f0: 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 49 Tcl_LogCommandI
1400: 6e 66 6f 28 0a 20 7b 0a 20 20 20 20 20 72 65 67 nfo(. {. reg
1410: 69 73 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 ister const char
1420: 20 2a 70 3b 0a 20 20 20 20 20 49 6e 74 65 72 70 *p;. Interp
1430: 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 *iPtr = (Interp
1440: 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 *) interp;.-
1450: 20 69 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c int overflow, l
1460: 69 6d 69 74 20 3d 20 31 35 30 3b 0a 2b 20 20 20 imit = 150;.+
1470: 20 69 6e 74 20 6f 76 65 72 66 6c 6f 77 2c 20 6c int overflow, l
1480: 69 6d 69 74 20 3d 20 31 35 30 2c 20 6c 65 6e 3b imit = 150, len;
1490: 0a 20 20 20 20 20 56 61 72 20 2a 76 61 72 50 74 . Var *varPt
14a0: 72 2c 20 2a 61 72 72 61 79 50 74 72 3b 0a 20 0a r, *arrayPtr;. .
14b0: 20 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 66 if (iPtr->f
14c0: 6c 61 67 73 20 26 20 45 52 52 5f 41 4c 52 45 41 lags & ERR_ALREA
14d0: 44 59 5f 4c 4f 47 47 45 44 29 20 7b 0a 40 40 20 DY_LOGGED) {.@@
14e0: 2d 37 36 33 33 2c 36 20 2b 37 36 33 33 2c 33 36 -7633,6 +7633,36
14f0: 20 40 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 @@ Tcl_LogComma
1500: 6e 64 49 6e 66 6f 28 0a 20 09 09 20 20 20 20 54 ndInfo(. .. T
1510: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
1520: 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 . .}. }.+.+
1530: 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 /*.+ * TI
1540: 50 20 23 33 34 38 0a 2b 20 20 20 20 20 2a 2f 0a P #348.+ */.
1550: 2b 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 +.+ if (Tcl_I
1560: 73 53 68 61 72 65 64 28 69 50 74 72 2d 3e 65 72 sShared(iPtr->er
1570: 72 6f 72 53 74 61 63 6b 29 29 20 7b 0a 2b 20 20 rorStack)) {.+
1580: 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e Tcl_Obj *n
1590: 65 77 4f 62 6a 3b 0a 2b 20 20 20 20 20 20 20 20 ewObj;.+
15a0: 20 20 20 20 0a 2b 20 20 20 20 20 20 20 20 6e 65 .+ ne
15b0: 77 4f 62 6a 20 3d 20 54 63 6c 5f 44 75 70 6c 69 wObj = Tcl_Dupli
15c0: 63 61 74 65 4f 62 6a 28 69 50 74 72 2d 3e 65 72 cateObj(iPtr->er
15d0: 72 6f 72 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 rorStack);.+
15e0: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
15f0: 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 6f 72 ount(iPtr->error
1600: 53 74 61 63 6b 29 3b 0a 2b 20 20 20 20 20 20 20 Stack);.+
1610: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
1620: 74 28 6e 65 77 4f 62 6a 29 3b 0a 2b 20 20 20 20 t(newObj);.+
1630: 20 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 53 iPtr->errorS
1640: 74 61 63 6b 20 3d 20 6e 65 77 4f 62 6a 3b 0a 2b tack = newObj;.+
1650: 20 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 4c }.+ Tcl_L
1660: 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28 69 6e 74 istObjLength(int
1670: 65 72 70 2c 20 69 50 74 72 2d 3e 65 72 72 6f 72 erp, iPtr->error
1680: 53 74 61 63 6b 2c 20 26 6c 65 6e 29 3b 0a 2b 20 Stack, &len);.+
1690: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 72 65 73 if (iPtr->res
16a0: 65 74 45 72 72 6f 72 53 74 61 63 6b 29 20 7b 0a etErrorStack) {.
16b0: 2b 20 20 20 20 20 20 20 20 69 50 74 72 2d 3e 72 + iPtr->r
16c0: 65 73 65 74 45 72 72 6f 72 53 74 61 63 6b 20 3d esetErrorStack =
16d0: 20 30 3b 0a 2b 20 20 20 20 20 20 20 20 2f 2a 20 0;.+ /*
16e0: 72 65 73 65 74 20 77 68 69 6c 65 20 6b 65 65 70 reset while keep
16f0: 69 6e 67 20 74 68 65 20 6c 69 73 74 20 69 6e 74 ing the list int
1700: 72 65 70 20 61 73 20 6d 75 63 68 20 61 73 20 70 rep as much as p
1710: 6f 73 73 69 62 6c 65 20 2a 2f 0a 2b 20 20 20 20 ossible */.+
1720: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 Tcl_ListObjR
1730: 65 70 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 eplace(interp, i
1740: 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c Ptr->errorStack,
1750: 20 30 2c 20 6c 65 6e 2c 20 30 2c 20 4e 55 4c 4c 0, len, 0, NULL
1760: 29 3b 0a 2b 20 20 20 20 20 20 20 20 6c 65 6e 3d );.+ len=
1770: 30 3b 0a 2b 20 20 20 20 7d 20 0a 2b 20 20 20 20 0;.+ } .+
1780: 69 66 20 28 69 50 74 72 2d 3e 76 61 72 46 72 61 if (iPtr->varFra
1790: 6d 65 50 74 72 20 21 3d 20 69 50 74 72 2d 3e 72 mePtr != iPtr->r
17a0: 6f 6f 74 46 72 61 6d 65 50 74 72 29 20 7b 0a 2b ootFramePtr) {.+
17b0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 Tcl_Obj
17c0: 2a 6c 69 73 74 50 74 72 3b 0a 2b 20 20 20 20 20 *listPtr;.+
17d0: 20 20 20 69 6e 74 20 72 65 73 75 6c 74 3b 0a 2b int result;.+
17e0: 20 20 20 20 20 20 20 20 6c 69 73 74 50 74 72 3d listPtr=
17f0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 69 Tcl_NewListObj(i
1800: 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 Ptr->varFramePtr
1810: 2d 3e 6f 62 6a 63 2c 0a 2b 20 20 20 20 20 20 20 ->objc,.+
1820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1830: 20 20 20 20 20 20 20 20 69 50 74 72 2d 3e 76 61 iPtr->va
1840: 72 46 72 61 6d 65 50 74 72 2d 3e 6f 62 6a 76 29 rFramePtr->objv)
1850: 3b 0a 2b 20 20 20 20 20 20 20 20 72 65 73 75 6c ;.+ resul
1860: 74 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 52 t = Tcl_ListObjR
1870: 65 70 6c 61 63 65 28 69 6e 74 65 72 70 2c 20 69 eplace(interp, i
1880: 50 74 72 2d 3e 65 72 72 6f 72 53 74 61 63 6b 2c Ptr->errorStack,
1890: 20 6c 65 6e 2c 20 30 2c 20 31 2c 20 26 6c 69 73 len, 0, 1, &lis
18a0: 74 50 74 72 29 3b 0a 2b 20 20 20 20 20 20 20 20 tPtr);.+
18b0: 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 43 if (result != TC
18c0: 4c 5f 4f 4b 29 20 7b 0a 2b 20 20 20 20 20 20 20 L_OK) {.+
18d0: 20 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 Tcl_DecrRef
18e0: 43 6f 75 6e 74 28 6c 69 73 74 50 74 72 29 3b 0a Count(listPtr);.
18f0: 2b 20 20 20 20 20 20 20 20 7d 0a 2b 20 20 20 20 + }.+
1900: 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 40 40 20 2d }. }. .. /*.@@ -
1910: 37 36 34 30 2c 35 20 2b 37 36 37 30 2c 37 20 40 7640,5 +7670,7 @
1920: 40 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e 64 @ Tcl_LogCommand
1930: 49 6e 66 6f 28 0a 20 20 2a 20 6d 6f 64 65 3a 20 Info(. * mode:
1940: 63 0a 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 c. * c-basic-of
1950: 66 73 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c fset: 4. * fill
1960: 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 2b 20 2a 20 -column: 78.+ *
1970: 74 61 62 2d 77 69 64 74 68 3a 20 38 0a 2b 20 2a tab-width: 8.+ *
1980: 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 indent-tabs-mod
1990: 65 3a 20 6e 69 6c 0a 20 20 2a 20 45 6e 64 3a 0a e: nil. * End:.
19a0: 20 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 */.Index: gene
19b0: 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 0a ric/tclResult.c.
19c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
19d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
19e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
19f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1a00: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
1a10: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
1a20: 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 eneric/tclResult
1a30: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
1a40: 72 65 76 69 73 69 6f 6e 20 31 2e 35 34 0a 64 69 revision 1.54.di
1a50: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 35 34 20 ff -u -p -r1.54
1a60: 74 63 6c 52 65 73 75 6c 74 2e 63 0a 2d 2d 2d 20 tclResult.c.---
1a70: 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c generic/tclResul
1a80: 74 2e 63 09 31 37 20 44 65 63 20 32 30 30 38 20 t.c.17 Dec 2008
1a90: 31 36 3a 34 37 3a 33 38 20 2d 30 30 30 30 09 31 16:47:38 -0000.1
1aa0: 2e 35 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f .54.+++ generic/
1ab0: 74 63 6c 52 65 73 75 6c 74 2e 63 09 33 20 4e 6f tclResult.c.3 No
1ac0: 76 20 32 30 30 39 20 31 37 3a 31 36 3a 32 32 20 v 2009 17:16:22
1ad0: 2d 30 30 30 30 0a 40 40 20 2d 31 39 2c 37 20 2b -0000.@@ -19,7 +
1ae0: 31 39 2c 37 20 40 40 0a 20 0a 20 65 6e 75 6d 20 19,7 @@. . enum
1af0: 72 65 74 75 72 6e 4b 65 79 73 20 7b 0a 20 20 20 returnKeys {.
1b00: 20 20 4b 45 59 5f 43 4f 44 45 2c 09 4b 45 59 5f KEY_CODE,.KEY_
1b10: 45 52 52 4f 52 43 4f 44 45 2c 09 4b 45 59 5f 45 ERRORCODE,.KEY_E
1b20: 52 52 4f 52 49 4e 46 4f 2c 09 4b 45 59 5f 45 52 RRORINFO,.KEY_ER
1b30: 52 4f 52 4c 49 4e 45 2c 0a 2d 20 20 20 20 4b 45 RORLINE,.- KE
1b40: 59 5f 4c 45 56 45 4c 2c 09 4b 45 59 5f 4f 50 54 Y_LEVEL,.KEY_OPT
1b50: 49 4f 4e 53 2c 09 4b 45 59 5f 4c 41 53 54 0a 2b IONS,.KEY_LAST.+
1b60: 20 20 20 20 4b 45 59 5f 4c 45 56 45 4c 2c 09 4b KEY_LEVEL,.K
1b70: 45 59 5f 4f 50 54 49 4f 4e 53 2c 09 4b 45 59 5f EY_OPTIONS,.KEY_
1b80: 45 52 52 4f 52 53 54 41 43 4b 2c 09 4b 45 59 5f ERRORSTACK,.KEY_
1b90: 4c 41 53 54 0a 20 7d 3b 0a 20 0a 20 2f 2a 0a 40 LAST. };. . /*.@
1ba0: 40 20 2d 39 32 32 2c 36 20 2b 39 32 32 2c 37 20 @ -922,6 +922,7
1bb0: 40 40 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 @@ Tcl_ResetResu
1bc0: 6c 74 28 0a 20 09 54 63 6c 5f 44 65 63 72 52 65 lt(. .Tcl_DecrRe
1bd0: 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 65 72 72 fCount(iPtr->err
1be0: 6f 72 49 6e 66 6f 29 3b 0a 20 09 69 50 74 72 2d orInfo);. .iPtr-
1bf0: 3e 65 72 72 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c >errorInfo = NUL
1c00: 4c 3b 0a 20 20 20 20 20 7d 0a 2b 20 20 20 20 69 L;. }.+ i
1c10: 50 74 72 2d 3e 72 65 73 65 74 45 72 72 6f 72 53 Ptr->resetErrorS
1c20: 74 61 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 69 tack = 1;. i
1c30: 50 74 72 2d 3e 72 65 74 75 72 6e 4c 65 76 65 6c Ptr->returnLevel
1c40: 20 3d 20 31 3b 0a 20 20 20 20 20 69 50 74 72 2d = 1;. iPtr-
1c50: 3e 72 65 74 75 72 6e 43 6f 64 65 20 3d 20 54 43 >returnCode = TC
1c60: 4c 5f 4f 4b 3b 0a 20 20 20 20 20 69 66 20 28 69 L_OK;. if (i
1c70: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 Ptr->returnOpts)
1c80: 20 7b 0a 40 40 20 2d 31 31 35 38 2c 36 20 2b 31 {.@@ -1158,6 +1
1c90: 31 35 39 2c 37 20 40 40 20 47 65 74 4b 65 79 73 159,7 @@ GetKeys
1ca0: 28 76 6f 69 64 29 0a 20 09 54 63 6c 4e 65 77 4c (void). .TclNewL
1cb0: 69 74 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 iteralStringObj(
1cc0: 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 43 4f keys[KEY_ERRORCO
1cd0: 44 45 5d 2c 20 22 2d 65 72 72 6f 72 63 6f 64 65 DE], "-errorcode
1ce0: 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 ");. .TclNewLite
1cf0: 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 ralStringObj(key
1d00: 73 5b 4b 45 59 5f 45 52 52 4f 52 49 4e 46 4f 5d s[KEY_ERRORINFO]
1d10: 2c 20 22 2d 65 72 72 6f 72 69 6e 66 6f 22 29 3b , "-errorinfo");
1d20: 0a 20 09 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c . .TclNewLiteral
1d30: 53 74 72 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b StringObj(keys[K
1d40: 45 59 5f 45 52 52 4f 52 4c 49 4e 45 5d 2c 20 22 EY_ERRORLINE], "
1d50: 2d 65 72 72 6f 72 6c 69 6e 65 22 29 3b 0a 2b 09 -errorline");.+.
1d60: 54 63 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 TclNewLiteralStr
1d70: 69 6e 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f ingObj(keys[KEY_
1d80: 45 52 52 4f 52 53 54 41 43 4b 5d 2c 22 2d 65 72 ERRORSTACK],"-er
1d90: 72 6f 72 73 74 61 63 6b 22 29 3b 0a 20 09 54 63 rorstack");. .Tc
1da0: 6c 4e 65 77 4c 69 74 65 72 61 6c 53 74 72 69 6e lNewLiteralStrin
1db0: 67 4f 62 6a 28 6b 65 79 73 5b 4b 45 59 5f 4c 45 gObj(keys[KEY_LE
1dc0: 56 45 4c 5d 2c 09 20 20 20 20 22 2d 6c 65 76 65 VEL],. "-leve
1dd0: 6c 22 29 3b 0a 20 09 54 63 6c 4e 65 77 4c 69 74 l");. .TclNewLit
1de0: 65 72 61 6c 53 74 72 69 6e 67 4f 62 6a 28 6b 65 eralStringObj(ke
1df0: 79 73 5b 4b 45 59 5f 4f 50 54 49 4f 4e 53 5d 2c ys[KEY_OPTIONS],
1e00: 20 20 20 22 2d 6f 70 74 69 6f 6e 73 22 29 3b 0a "-options");.
1e10: 20 0a 40 40 20 2d 31 35 30 33 2c 36 20 2b 31 35 .@@ -1503,6 +15
1e20: 30 35 2c 37 20 40 40 20 54 63 6c 5f 47 65 74 52 05,7 @@ Tcl_GetR
1e30: 65 74 75 72 6e 4f 70 74 69 6f 6e 73 28 0a 20 09 eturnOptions(. .
1e40: 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e Tcl_DictObjPut(N
1e50: 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 6b 65 ULL, options, ke
1e60: 79 73 5b 4b 45 59 5f 45 52 52 4f 52 4c 49 4e 45 ys[KEY_ERRORLINE
1e70: 5d 2c 0a 20 09 09 54 63 6c 5f 4e 65 77 49 6e 74 ],. ..Tcl_NewInt
1e80: 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f 72 4c Obj(iPtr->errorL
1e90: 69 6e 65 29 29 3b 0a 20 20 20 20 20 7d 0a 2b 20 ine));. }.+
1ea0: 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 Tcl_DictObjPu
1eb0: 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c t(NULL, options,
1ec0: 20 6b 65 79 73 5b 4b 45 59 5f 45 52 52 4f 52 53 keys[KEY_ERRORS
1ed0: 54 41 43 4b 5d 2c 20 69 50 74 72 2d 3e 65 72 72 TACK], iPtr->err
1ee0: 6f 72 53 74 61 63 6b 29 3b 0a 20 20 20 20 20 72 orStack);. r
1ef0: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 73 3b 0a 20 eturn options;.
1f00: 7d 0a 20 0c 0a 40 40 20 2d 31 36 32 34 2c 35 20 }. ..@@ -1624,5
1f10: 2b 31 36 32 37 2c 37 20 40 40 20 54 63 6c 5f 54 +1627,7 @@ Tcl_T
1f20: 72 61 6e 73 66 65 72 52 65 73 75 6c 74 28 0a 20 ransferResult(.
1f30: 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 * mode: c. * c
1f40: 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 -basic-offset: 4
1f50: 0a 20 20 2a 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e . * fill-column
1f60: 3a 20 37 38 0a 2b 20 2a 20 74 61 62 2d 77 69 64 : 78.+ * tab-wid
1f70: 74 68 3a 20 38 0a 2b 20 2a 20 69 6e 64 65 6e 74 th: 8.+ * indent
1f80: 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a -tabs-mode: nil.
1f90: 20 20 2a 20 45 6e 64 3a 0a 20 20 2a 2f 0a 49 6e * End:. */.In
1fa0: 64 65 78 3a 20 74 65 73 74 73 2f 63 6d 64 4d 5a dex: tests/cmdMZ
1fb0: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
1fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
2000: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
2010: 2f 74 63 6c 2f 74 65 73 74 73 2f 63 6d 64 4d 5a /tcl/tests/cmdMZ
2020: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
2030: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 36 ng revision 1.26
2040: 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e .diff -u -p -r1.
2050: 32 36 20 63 6d 64 4d 5a 2e 74 65 73 74 0a 2d 2d 26 cmdMZ.test.--
2060: 2d 20 74 65 73 74 73 2f 63 6d 64 4d 5a 2e 74 65 - tests/cmdMZ.te
2070: 73 74 09 31 30 20 53 65 70 20 32 30 30 38 20 31 st.10 Sep 2008 1
2080: 33 3a 35 30 3a 30 35 20 2d 30 30 30 30 09 31 2e 3:50:05 -0000.1.
2090: 32 36 0a 2b 2b 2b 20 74 65 73 74 73 2f 63 6d 64 26.+++ tests/cmd
20a0: 4d 5a 2e 74 65 73 74 09 33 20 4e 6f 76 20 32 30 MZ.test.3 Nov 20
20b0: 30 39 20 31 37 3a 31 36 3a 32 33 20 2d 30 30 30 09 17:16:23 -000
20c0: 30 0a 40 40 20 2d 31 31 39 2c 31 38 20 2b 31 31 0.@@ -119,18 +11
20d0: 39 2c 31 38 20 40 40 20 70 72 6f 63 20 64 69 63 9,18 @@ proc dic
20e0: 74 53 6f 72 74 20 7b 64 7d 20 7b 0a 20 20 20 20 tSort {d} {.
20f0: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0a return $result.
2100: 20 7d 0a 20 0a 2d 74 65 73 74 20 63 6d 64 4d 5a }. .-test cmdMZ
2110: 2d 72 65 74 75 72 6e 2d 32 2e 30 20 7b 72 65 74 -return-2.0 {ret
2120: 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c urn option handl
2130: 69 6e 67 7d 20 7b 0a 2b 74 65 73 74 20 63 6d 64 ing} {.+test cmd
2140: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 30 20 7b 72 MZ-return-2.0 {r
2150: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
2160: 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 dling} -body {.
2170: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
2180: 72 65 74 75 72 6e 20 2d 3e 20 66 6f 6f 5d 20 5b return -> foo] [
2190: 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d dictSort $foo].-
21a0: 7d 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 6c } {2 {-code 0 -l
21b0: 65 76 65 6c 20 31 7d 7d 0a 2d 74 65 73 74 20 63 evel 1}}.-test c
21c0: 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 20 mdMZ-return-2.1
21d0: 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 {return option h
21e0: 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 7d 20 2d 6d andling} {.+} -m
21f0: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
2200: 74 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 65 t {2 {-code 0 -e
2210: 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 rrorstack * -lev
2220: 65 6c 20 31 7d 7d 0a 2b 74 65 73 74 20 63 6d 64 el 1}}.+test cmd
2230: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 20 7b 72 MZ-return-2.1 {r
2240: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
2250: 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 dling} -body {.
2260: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
2270: 7b 72 65 74 75 72 6e 20 2d 62 61 72 20 73 6f 6f {return -bar soo
2280: 6d 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 m} -> foo] [dict
2290: 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 Sort $foo].-} {2
22a0: 20 7b 2d 62 61 72 20 73 6f 6f 6d 20 2d 63 6f 64 {-bar soom -cod
22b0: 65 20 30 20 2d 6c 65 76 65 6c 20 31 7d 7d 0a 2d e 0 -level 1}}.-
22c0: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
22d0: 6e 2d 32 2e 32 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.2 {return op
22e0: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b tion handling} {
22f0: 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 20 .+} -match glob
2300: 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d 62 61 72 -result {2 {-bar
2310: 20 73 6f 6f 6d 20 2d 63 6f 64 65 20 30 20 2d 65 soom -code 0 -e
2320: 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 rrorstack * -lev
2330: 65 6c 20 31 7d 7d 0a 2b 74 65 73 74 20 63 6d 64 el 1}}.+test cmd
2340: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 32 20 7b 72 MZ-return-2.2 {r
2350: 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e eturn option han
2360: 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 dling} -body {.
2370: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
2380: 7b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 72 65 {return -code re
2390: 74 75 72 6e 7d 20 2d 3e 20 66 6f 6f 5d 20 5b 64 turn} -> foo] [d
23a0: 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d 7d ictSort $foo].-}
23b0: 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 6c 65 {2 {-code 0 -le
23c0: 76 65 6c 20 32 7d 7d 0a 2d 74 65 73 74 20 63 6d vel 2}}.-test cm
23d0: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 33 20 7b dMZ-return-2.3 {
23e0: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
23f0: 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 7d 20 2d 6d 61 ndling} {.+} -ma
2400: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
2410: 20 7b 32 20 7b 2d 63 6f 64 65 20 30 20 2d 65 72 {2 {-code 0 -er
2420: 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 65 rorstack * -leve
2430: 6c 20 32 7d 7d 0a 2b 74 65 73 74 20 63 6d 64 4d l 2}}.+test cmdM
2440: 5a 2d 72 65 74 75 72 6e 2d 32 2e 33 20 7b 72 65 Z-return-2.3 {re
2450: 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 6e 64 turn option hand
2460: 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 ling} -body {.
2470: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b list [catch {
2480: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 72 65 74 return -code ret
2490: 75 72 6e 20 2d 6c 65 76 65 6c 20 31 30 7d 20 2d urn -level 10} -
24a0: 3e 20 66 6f 6f 5d 20 5b 64 69 63 74 53 6f 72 74 > foo] [dictSort
24b0: 20 24 66 6f 6f 5d 0a 2d 7d 20 7b 32 20 7b 2d 63 $foo].-} {2 {-c
24c0: 6f 64 65 20 30 20 2d 6c 65 76 65 6c 20 31 31 7d ode 0 -level 11}
24d0: 7d 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 6c 6f 62 }.+} -match glob
24e0: 20 2d 72 65 73 75 6c 74 20 7b 32 20 7b 2d 63 6f -result {2 {-co
24f0: 64 65 20 30 20 2d 65 72 72 6f 72 73 74 61 63 6b de 0 -errorstack
2500: 20 2a 20 2d 6c 65 76 65 6c 20 31 31 7d 7d 0a 20 * -level 11}}.
2510: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
2520: 6e 2d 32 2e 34 20 7b 72 65 74 75 72 6e 20 6f 70 n-2.4 {return op
2530: 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 2d tion handling} -
2540: 62 6f 64 79 20 7b 0a 20 20 20 20 20 72 65 74 75 body {. retu
2550: 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 rn -level 0 -cod
2560: 65 20 65 72 72 6f 72 0a 20 7d 20 2d 72 65 74 75 e error. } -retu
2570: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 72 rnCodes error -r
2580: 65 73 75 6c 74 20 7b 7d 0a 40 40 20 2d 31 34 39 esult {}.@@ -149
2590: 2c 31 34 20 2b 31 34 39 2c 31 34 20 40 40 20 74 ,14 +149,14 @@ t
25a0: 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e est cmdMZ-return
25b0: 2d 32 2e 38 20 7b 72 65 74 75 72 6e 20 6f 70 74 -2.8 {return opt
25c0: 69 6f 6e 20 68 61 6e 0a 20 74 65 73 74 20 63 6d ion han. test cm
25d0: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 39 20 7b dMZ-return-2.9 {
25e0: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
25f0: 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a ndling} -body {.
2600: 20 20 20 20 20 72 65 74 75 72 6e 20 2d 6c 65 76 return -lev
2610: 65 6c 20 30 20 2d 63 6f 64 65 20 31 30 0a 20 7d el 0 -code 10. }
2620: 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 31 30 -returnCodes 10
2630: 20 2d 72 65 73 75 6c 74 20 7b 7d 0a 2d 74 65 73 -result {}.-tes
2640: 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 t cmdMZ-return-2
2650: 2e 31 30 20 7b 72 65 74 75 72 6e 20 6f 70 74 69 .10 {return opti
2660: 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b on handling} {.+
2670: 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 75 72 test cmdMZ-retur
2680: 6e 2d 32 2e 31 30 20 7b 72 65 74 75 72 6e 20 6f n-2.10 {return o
2690: 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 7d 20 ption handling}
26a0: 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c 69 73 -body {. lis
26b0: 74 20 5b 63 61 74 63 68 20 7b 72 65 74 75 72 6e t [catch {return
26c0: 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 65 20 -level 0 -code
26d0: 65 72 72 6f 72 7d 20 2d 3e 20 66 6f 6f 5d 20 5b error} -> foo] [
26e0: 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d 0a 2d dictSort $foo].-
26f0: 7d 20 7b 31 20 7b 2d 63 6f 64 65 20 31 20 2d 65 } {1 {-code 1 -e
2700: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 rrorcode NONE -e
2710: 72 72 6f 72 69 6e 66 6f 20 7b 0a 2b 7d 20 2d 6d rrorinfo {.+} -m
2720: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
2730: 74 20 7b 31 20 7b 2d 63 6f 64 65 20 31 20 2d 65 t {1 {-code 1 -e
2740: 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 rrorcode NONE -e
2750: 72 72 6f 72 69 6e 66 6f 20 7b 0a 20 20 20 20 20 rrorinfo {.
2760: 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0a while executing.
2770: 2d 22 72 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 -"return -level
2780: 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 22 7d 20 0 -code error"}
2790: 2d 65 72 72 6f 72 6c 69 6e 65 20 31 20 2d 6c 65 -errorline 1 -le
27a0: 76 65 6c 20 30 7d 7d 0a 2d 74 65 73 74 20 63 6d vel 0}}.-test cm
27b0: 64 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 31 20 dMZ-return-2.11
27c0: 7b 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 {return option h
27d0: 61 6e 64 6c 69 6e 67 7d 20 7b 0a 2b 22 72 65 74 andling} {.+"ret
27e0: 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f urn -level 0 -co
27f0: 64 65 20 65 72 72 6f 72 22 7d 20 2d 65 72 72 6f de error"} -erro
2800: 72 6c 69 6e 65 20 31 20 2d 65 72 72 6f 72 73 74 rline 1 -errorst
2810: 61 63 6b 20 2a 20 2d 6c 65 76 65 6c 20 30 7d 7d ack * -level 0}}
2820: 0a 2b 74 65 73 74 20 63 6d 64 4d 5a 2d 72 65 74 .+test cmdMZ-ret
2830: 75 72 6e 2d 32 2e 31 31 20 7b 72 65 74 75 72 6e urn-2.11 {return
2840: 20 6f 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 option handling
2850: 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 6c } -body {. l
2860: 69 73 74 20 5b 63 61 74 63 68 20 7b 72 65 74 75 ist [catch {retu
2870: 72 6e 20 2d 6c 65 76 65 6c 20 30 20 2d 63 6f 64 rn -level 0 -cod
2880: 65 20 62 72 65 61 6b 7d 20 2d 3e 20 66 6f 6f 5d e break} -> foo]
2890: 20 5b 64 69 63 74 53 6f 72 74 20 24 66 6f 6f 5d [dictSort $foo]
28a0: 0a 2d 7d 20 7b 33 20 7b 2d 63 6f 64 65 20 33 20 .-} {3 {-code 3
28b0: 2d 6c 65 76 65 6c 20 30 7d 7d 0a 2b 7d 20 2d 6d -level 0}}.+} -m
28c0: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
28d0: 74 20 7b 33 20 7b 2d 63 6f 64 65 20 33 20 2d 65 t {3 {-code 3 -e
28e0: 72 72 6f 72 73 74 61 63 6b 20 2a 20 2d 6c 65 76 rrorstack * -lev
28f0: 65 6c 20 30 7d 7d 0a 20 74 65 73 74 20 63 6d 64 el 0}}. test cmd
2900: 4d 5a 2d 72 65 74 75 72 6e 2d 32 2e 31 32 20 7b MZ-return-2.12 {
2910: 72 65 74 75 72 6e 20 6f 70 74 69 6f 6e 20 68 61 return option ha
2920: 6e 64 6c 69 6e 67 7d 20 2d 62 6f 64 79 20 7b 0a ndling} -body {.
2930: 20 20 20 20 20 72 65 74 75 72 6e 20 2d 6c 65 76 return -lev
2940: 65 6c 20 30 20 2d 63 6f 64 65 20 65 72 72 6f 72 el 0 -code error
2950: 20 2d 6f 70 74 69 6f 6e 73 20 7b 2d 63 6f 64 65 -options {-code
2960: 20 6f 6b 7d 0a 20 7d 20 2d 72 65 74 75 72 6e 43 ok}. } -returnC
2970: 6f 64 65 73 20 6f 6b 20 2d 72 65 73 75 6c 74 20 odes ok -result
2980: 7b 7d 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f {}.Index: tests/
2990: 65 72 72 6f 72 2e 74 65 73 74 0a 3d 3d 3d 3d 3d error.test.=====
29a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
29b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
29c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
29d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
29e0: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
29f0: 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f t/tcl/tcl/tests/
2a00: 65 72 72 6f 72 2e 74 65 73 74 2c 76 0a 72 65 74 error.test,v.ret
2a10: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
2a20: 20 31 2e 32 32 0a 64 69 66 66 20 2d 75 20 2d 70 1.22.diff -u -p
2a30: 20 2d 72 31 2e 32 32 20 65 72 72 6f 72 2e 74 65 -r1.22 error.te
2a40: 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 65 72 72 st.--- tests/err
2a50: 6f 72 2e 74 65 73 74 09 32 38 20 53 65 70 20 32 or.test.28 Sep 2
2a60: 30 30 39 20 31 38 3a 30 32 3a 32 30 20 2d 30 30 009 18:02:20 -00
2a70: 30 30 09 31 2e 32 32 0a 2b 2b 2b 20 74 65 73 74 00.1.22.+++ test
2a80: 73 2f 65 72 72 6f 72 2e 74 65 73 74 09 33 20 4e s/error.test.3 N
2a90: 6f 76 20 32 30 30 39 20 31 37 3a 31 36 3a 32 33 ov 2009 17:16:23
2aa0: 20 2d 30 30 30 30 0a 40 40 20 2d 31 35 33 2c 36 -0000.@@ -153,6
2ab0: 20 2b 31 35 33 2c 31 39 20 40 40 20 74 65 73 74 +153,19 @@ test
2ac0: 20 65 72 72 6f 72 2d 34 2e 35 20 7b 65 72 72 6f error-4.5 {erro
2ad0: 72 49 6e 66 6f 20 61 6e 64 20 65 72 72 6f 72 43 rInfo and errorC
2ae0: 6f 64 65 20 0a 20 20 20 20 20 6c 69 73 74 20 5b ode . list [
2af0: 63 61 74 63 68 20 7b 65 72 72 6f 72 20 6d 73 67 catch {error msg
2b00: 31 20 6d 73 67 32 20 7b 7d 7d 20 6d 73 67 5d 20 1 msg2 {}} msg]
2b10: 24 6d 73 67 20 24 3a 3a 65 72 72 6f 72 49 6e 66 $msg $::errorInf
2b20: 6f 20 24 3a 3a 65 72 72 6f 72 43 6f 64 65 0a 20 o $::errorCode.
2b30: 7d 20 7b 31 20 6d 73 67 31 20 6d 73 67 32 20 7b } {1 msg1 msg2 {
2b40: 7d 7d 0a 20 0a 2b 74 65 73 74 20 65 72 72 6f 72 }}. .+test error
2b50: 2d 34 2e 36 20 7b 65 72 72 6f 72 73 74 61 63 6b -4.6 {errorstack
2b60: 20 76 69 61 20 69 6e 66 6f 20 7d 20 2d 62 6f 64 via info } -bod
2b70: 79 20 7b 0a 2b 20 20 20 20 70 72 6f 63 20 66 20 y {.+ proc f
2b80: 78 20 7b 67 20 24 78 24 78 7d 0a 2b 20 20 20 20 x {g $x$x}.+
2b90: 70 72 6f 63 20 67 20 78 20 7b 65 72 72 6f 72 20 proc g x {error
2ba0: 47 3a 24 78 7d 0a 2b 20 20 20 20 63 61 74 63 68 G:$x}.+ catch
2bb0: 20 7b 66 20 31 32 7d 0a 2b 20 20 20 20 69 6e 66 {f 12}.+ inf
2bc0: 6f 20 65 72 72 6f 72 73 74 61 63 6b 0a 2b 7d 20 o errorstack.+}
2bd0: 2d 6d 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 -match glob -res
2be0: 75 6c 74 20 7b 7b 67 20 31 32 31 32 7d 20 7b 66 ult {{g 1212} {f
2bf0: 20 31 32 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 12} {namespace
2c00: 65 76 61 6c 20 2a 7d 7d 0a 2b 74 65 73 74 20 65 eval *}}.+test e
2c10: 72 72 6f 72 2d 34 2e 37 20 7b 65 72 72 6f 72 73 rror-4.7 {errors
2c20: 74 61 63 6b 20 76 69 61 20 6f 70 74 69 6f 6e 73 tack via options
2c30: 20 64 69 63 74 20 7d 20 2d 62 6f 64 79 20 7b 0a dict } -body {.
2c40: 2b 20 20 20 20 70 72 6f 63 20 66 20 78 20 7b 67 + proc f x {g
2c50: 20 24 78 24 78 7d 0a 2b 20 20 20 20 70 72 6f 63 $x$x}.+ proc
2c60: 20 67 20 78 20 7b 65 72 72 6f 72 20 47 3a 24 78 g x {error G:$x
2c70: 7d 0a 2b 20 20 20 20 63 61 74 63 68 20 7b 66 20 }.+ catch {f
2c80: 31 32 7d 20 6d 20 64 0a 2b 20 20 20 20 64 69 63 12} m d.+ dic
2c90: 74 20 67 65 74 20 24 64 20 2d 65 72 72 6f 72 73 t get $d -errors
2ca0: 74 61 63 6b 0a 2b 7d 20 2d 6d 61 74 63 68 20 67 tack.+} -match g
2cb0: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b 67 20 lob -result {{g
2cc0: 31 32 31 32 7d 20 7b 66 20 31 32 7d 20 7b 6e 61 1212} {f 12} {na
2cd0: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 2a 7d 7d mespace eval *}}
2ce0: 0a 2b 0a 20 23 20 45 72 72 6f 72 73 20 69 6e 20 .+. # Errors in
2cf0: 65 72 72 6f 72 20 63 6f 6d 6d 61 6e 64 20 69 74 error command it
2d00: 73 65 6c 66 0a 20 0a 20 74 65 73 74 20 65 72 72 self. . test err
2d10: 6f 72 2d 35 2e 31 20 7b 65 72 72 6f 72 73 20 69 or-5.1 {errors i
2d20: 6e 20 65 72 72 6f 72 20 63 6f 6d 6d 61 6e 64 7d n error command}
2d30: 20 7b 0a 40 40 20 2d 32 30 37 2c 36 20 2b 32 32 {.@@ -207,6 +22
2d40: 30 2c 31 35 20 40 40 20 74 65 73 74 20 65 72 72 0,15 @@ test err
2d50: 6f 72 2d 36 2e 39 20 7b 63 61 74 63 68 20 6d 75 or-6.9 {catch mu
2d60: 73 74 20 72 65 73 65 74 20 65 72 72 6f 72 20 73 st reset error s
2d70: 0a 20 20 20 20 20 63 61 74 63 68 20 66 6f 6f 0a . catch foo.
2d80: 20 20 20 20 20 6c 69 73 74 20 24 3a 3a 65 72 72 list $::err
2d90: 6f 72 43 6f 64 65 0a 20 7d 20 7b 4e 4f 4e 45 7d orCode. } {NONE}
2da0: 0a 2b 74 65 73 74 20 65 72 72 6f 72 2d 36 2e 31 .+test error-6.1
2db0: 30 20 7b 63 61 74 63 68 20 6d 75 73 74 20 72 65 0 {catch must re
2dc0: 73 65 74 20 65 72 72 6f 72 73 74 61 63 6b 7d 20 set errorstack}
2dd0: 2d 62 6f 64 79 20 7b 0a 2b 09 70 72 6f 63 20 66 -body {.+.proc f
2de0: 20 78 20 7b 67 20 24 78 24 78 7d 0a 2b 09 70 72 x {g $x$x}.+.pr
2df0: 6f 63 20 67 20 78 20 7b 65 72 72 6f 72 20 47 3a oc g x {error G:
2e00: 24 78 7d 0a 2b 09 63 61 74 63 68 20 7b 66 20 31 $x}.+.catch {f 1
2e10: 32 7d 0a 2b 09 73 65 74 20 65 31 20 5b 69 6e 66 2}.+.set e1 [inf
2e20: 6f 20 65 72 72 6f 72 73 74 61 63 6b 5d 0a 2b 09 o errorstack].+.
2e30: 63 61 74 63 68 20 7b 66 20 31 33 7d 0a 2b 09 73 catch {f 13}.+.s
2e40: 65 74 20 65 32 20 5b 69 6e 66 6f 20 65 72 72 6f et e2 [info erro
2e50: 72 73 74 61 63 6b 5d 0a 2b 09 6c 69 73 74 20 24 rstack].+.list $
2e60: 65 31 20 24 65 32 0a 2b 7d 20 2d 6d 61 74 63 68 e1 $e2.+} -match
2e70: 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 7b 7b glob -result {{
2e80: 7b 67 20 31 32 31 32 7d 20 7b 66 20 31 32 7d 20 {g 1212} {f 12}
2e90: 7b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 {namespace eval
2ea0: 2a 7d 7d 20 7b 7b 67 20 31 33 31 33 7d 20 7b 66 *}} {{g 1313} {f
2eb0: 20 31 33 7d 20 7b 6e 61 6d 65 73 70 61 63 65 20 13} {namespace
2ec0: 65 76 61 6c 20 2a 7d 7d 7d 0a 20 0a 20 74 65 73 eval *}}}. . tes
2ed0: 74 20 65 72 72 6f 72 2d 37 2e 31 20 7b 42 75 67 t error-7.1 {Bug
2ee0: 20 31 33 39 37 38 34 33 7d 20 2d 62 6f 64 79 20 1397843} -body
2ef0: 7b 0a 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 {. variable
2f00: 63 6d 64 73 0a 49 6e 64 65 78 3a 20 74 65 73 74 cmds.Index: test
2f10: 73 2f 65 78 65 63 75 74 65 2e 74 65 73 74 0a 3d s/execute.test.=
2f20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2f60: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
2f70: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 sroot/tcl/tcl/te
2f80: 73 74 73 2f 65 78 65 63 75 74 65 2e 74 65 73 74 sts/execute.test
2f90: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
2fa0: 76 69 73 69 6f 6e 20 31 2e 33 32 0a 64 69 66 66 vision 1.32.diff
2fb0: 20 2d 75 20 2d 70 20 2d 72 31 2e 33 32 20 65 78 -u -p -r1.32 ex
2fc0: 65 63 75 74 65 2e 74 65 73 74 0a 2d 2d 2d 20 74 ecute.test.--- t
2fd0: 65 73 74 73 2f 65 78 65 63 75 74 65 2e 74 65 73 ests/execute.tes
2fe0: 74 09 32 34 20 4a 75 6e 20 32 30 30 39 20 31 33 t.24 Jun 2009 13
2ff0: 3a 35 31 3a 33 36 20 2d 30 30 30 30 09 31 2e 33 :51:36 -0000.1.3
3000: 32 0a 2b 2b 2b 20 74 65 73 74 73 2f 65 78 65 63 2.+++ tests/exec
3010: 75 74 65 2e 74 65 73 74 09 33 20 4e 6f 76 20 32 ute.test.3 Nov 2
3020: 30 30 39 20 31 37 3a 31 36 3a 32 33 20 2d 30 30 009 17:16:23 -00
3030: 30 30 0a 40 40 20 2d 39 35 36 2c 31 31 20 2b 39 00.@@ -956,11 +9
3040: 35 36 2c 31 31 20 40 40 20 74 65 73 74 20 65 78 56,11 @@ test ex
3050: 65 63 75 74 65 2d 38 2e 35 20 7b 42 75 67 20 32 ecute-8.5 {Bug 2
3060: 30 33 38 30 36 39 7d 20 2d 73 65 74 75 70 20 7b 038069} -setup {
3070: 0a 20 20 20 20 20 64 65 6d 6f 0a 20 7d 20 2d 63 . demo. } -c
3080: 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 20 72 65 leanup {. re
3090: 6e 61 6d 65 20 64 65 6d 6f 20 7b 7d 0a 2d 7d 20 name demo {}.-}
30a0: 2d 72 65 73 75 6c 74 20 7b 2d 63 6f 64 65 20 31 -result {-code 1
30b0: 20 2d 6c 65 76 65 6c 20 30 20 2d 65 72 72 6f 72 -level 0 -error
30c0: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
30d0: 69 6e 66 6f 20 7b 46 4f 4f 0a 2b 7d 20 2d 6d 61 info {FOO.+} -ma
30e0: 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c 74 tch glob -result
30f0: 20 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c {-code 1 -level
3100: 20 30 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 0 -errorcode NO
3110: 4e 45 20 2d 65 72 72 6f 72 69 6e 66 6f 20 7b 46 NE -errorinfo {F
3120: 4f 4f 0a 20 20 20 20 20 77 68 69 6c 65 20 65 78 OO. while ex
3130: 65 63 75 74 69 6e 67 0a 20 22 65 72 72 6f 72 20 ecuting. "error
3140: 46 4f 4f 22 0a 20 20 20 20 20 69 6e 76 6f 6b 65 FOO". invoke
3150: 64 20 66 72 6f 6d 20 77 69 74 68 69 6e 0a 2d 22 d from within.-"
3160: 63 61 74 63 68 20 5b 6c 69 73 74 20 65 72 72 6f catch [list erro
3170: 72 20 46 4f 4f 5d 20 6d 20 6f 22 7d 20 2d 65 72 r FOO] m o"} -er
3180: 72 6f 72 6c 69 6e 65 20 32 7d 0a 2b 22 63 61 74 rorline 2}.+"cat
3190: 63 68 20 5c 5b 6c 69 73 74 20 65 72 72 6f 72 20 ch \[list error
31a0: 46 4f 4f 5c 5d 20 6d 20 6f 22 7d 20 2d 65 72 72 FOO\] m o"} -err
31b0: 6f 72 6c 69 6e 65 20 32 20 2d 65 72 72 6f 72 73 orline 2 -errors
31c0: 74 61 63 6b 20 2a 7d 0a 20 0a 20 74 65 73 74 20 tack *}. . test
31d0: 65 78 65 63 75 74 65 2d 39 2e 31 20 7b 49 6e 74 execute-9.1 {Int
31e0: 65 72 70 20 72 65 73 75 6c 74 20 72 65 73 65 74 erp result reset
31f0: 74 69 6e 67 20 5b 42 75 67 20 31 35 32 32 38 30 ting [Bug 152280
3200: 33 5d 7d 20 7b 0a 20 20 20 20 20 73 65 74 20 63 3]} {. set c
3210: 20 30 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 0.Index: tests/
3220: 69 6e 66 6f 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d info.test.======
3230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3240: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
3270: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
3280: 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 69 /tcl/tcl/tests/i
3290: 6e 66 6f 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 nfo.test,v.retri
32a0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
32b0: 2e 36 39 0a 64 69 66 66 20 2d 75 20 2d 70 20 2d .69.diff -u -p -
32c0: 72 31 2e 36 39 20 69 6e 66 6f 2e 74 65 73 74 0a r1.69 info.test.
32d0: 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 66 6f 2e 74 --- tests/info.t
32e0: 65 73 74 09 32 39 20 4f 63 74 20 32 30 30 39 20 est.29 Oct 2009
32f0: 32 32 3a 32 30 3a 31 32 20 2d 30 30 30 30 09 31 22:20:12 -0000.1
3300: 2e 36 39 0a 2b 2b 2b 20 74 65 73 74 73 2f 69 6e .69.+++ tests/in
3310: 66 6f 2e 74 65 73 74 09 33 20 4e 6f 76 20 32 30 fo.test.3 Nov 20
3320: 30 39 20 31 37 3a 31 36 3a 32 33 20 2d 30 30 30 09 17:16:23 -000
3330: 30 0a 40 40 20 2d 36 37 36 2c 31 36 20 2b 36 37 0.@@ -676,16 +67
3340: 36 2c 31 36 20 40 40 20 74 65 73 74 20 69 6e 66 6,16 @@ test inf
3350: 6f 2d 32 31 2e 31 20 7b 6d 69 73 63 65 6c 6c 61 o-21.1 {miscella
3360: 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 neous error cond
3370: 0a 20 7d 20 2d 72 65 73 75 6c 74 20 7b 77 72 6f . } -result {wro
3380: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
3390: 64 20 62 65 20 22 69 6e 66 6f 20 73 75 62 63 6f d be "info subco
33a0: 6d 6d 61 6e 64 20 3f 61 72 67 20 2e 2e 2e 3f 22 mmand ?arg ...?"
33b0: 7d 0a 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e }. test info-21.
33c0: 32 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 2 {miscellaneous
33d0: 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e error condition
33e0: 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 s} -returnCodes
33f0: 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 error -body {.
3400: 20 20 20 69 6e 66 6f 20 67 6f 72 70 0a 2d 7d 20 info gorp.-}
3410: 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e -result {unknown
3420: 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 75 or ambiguous su
3430: 62 63 6f 6d 6d 61 6e 64 20 22 67 6f 72 70 22 3a bcommand "gorp":
3440: 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 must be args, b
3450: 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 ody, class, cmdc
3460: 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 ount, commands,
3470: 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 complete, corout
3480: 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 ine, default, ex
3490: 69 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e ists, frame, fun
34a0: 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c ctions, globals,
34b0: 20 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c hostname, level
34c0: 2c 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 , library, loade
34d0: 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f d, locals, nameo
34e0: 66 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a fexecutable, obj
34f0: 65 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c ect, patchlevel,
3500: 20 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 procs, script,
3510: 73 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 sharedlibextensi
3520: 6f 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 on, tclversion,
3530: 6f 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 or vars}.+} -res
3540: 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 ult {unknown or
3550: 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d ambiguous subcom
3560: 6d 61 6e 64 20 22 67 6f 72 70 22 3a 20 6d 75 73 mand "gorp": mus
3570: 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 79 2c t be args, body,
3580: 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 class, cmdcount
3590: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 , commands, comp
35a0: 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c lete, coroutine,
35b0: 20 64 65 66 61 75 6c 74 2c 20 65 72 72 6f 72 73 default, errors
35c0: 74 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 66 72 tack, exists, fr
35d0: 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 ame, functions,
35e0: 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d globals, hostnam
35f0: 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 e, level, librar
3600: 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c y, loaded, local
3610: 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 s, nameofexecuta
3620: 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 ble, object, pat
3630: 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 chlevel, procs,
3640: 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c 69 script, sharedli
3650: 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 bextension, tclv
3660: 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d ersion, or vars}
3670: 0a 20 74 65 73 74 20 69 6e 66 6f 2d 32 31 2e 33 . test info-21.3
3680: 20 7b 6d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 {miscellaneous
3690: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
36a0: 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 } -returnCodes e
36b0: 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 20 20 20 rror -body {.
36c0: 20 20 69 6e 66 6f 20 63 0a 2d 7d 20 2d 72 65 73 info c.-} -res
36d0: 75 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 ult {unknown or
36e0: 61 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d ambiguous subcom
36f0: 6d 61 6e 64 20 22 63 22 3a 20 6d 75 73 74 20 62 mand "c": must b
3700: 65 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c e args, body, cl
3710: 61 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 ass, cmdcount, c
3720: 6f 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 ommands, complet
3730: 65 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 e, coroutine, de
3740: 66 61 75 6c 74 2c 20 65 78 69 73 74 73 2c 20 66 fault, exists, f
3750: 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 2c rame, functions,
3760: 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e 61 globals, hostna
3770: 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 61 me, level, libra
3780: 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 ry, loaded, loca
3790: 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 ls, nameofexecut
37a0: 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 61 able, object, pa
37b0: 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 2c tchlevel, procs,
37c0: 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 6c script, sharedl
37d0: 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 6c ibextension, tcl
37e0: 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 73 version, or vars
37f0: 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e }.+} -result {un
3800: 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f known or ambiguo
3810: 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 20 22 63 us subcommand "c
3820: 22 3a 20 6d 75 73 74 20 62 65 20 61 72 67 73 2c ": must be args,
3830: 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d body, class, cm
3840: 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 dcount, commands
3850: 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f , complete, coro
3860: 75 74 69 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 utine, default,
3870: 65 72 72 6f 72 73 74 61 63 6b 2c 20 65 78 69 73 errorstack, exis
3880: 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 74 ts, frame, funct
3890: 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 ions, globals, h
38a0: 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 ostname, level,
38b0: 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 2c library, loaded,
38c0: 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 locals, nameofe
38d0: 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 63 xecutable, objec
38e0: 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 70 t, patchlevel, p
38f0: 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 68 rocs, script, sh
3900: 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f 6e aredlibextension
3910: 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 , tclversion, or
3920: 20 76 61 72 73 7d 0a 20 74 65 73 74 20 69 6e 66 vars}. test inf
3930: 6f 2d 32 31 2e 34 20 7b 6d 69 73 63 65 6c 6c 61 o-21.4 {miscella
3940: 6e 65 6f 75 73 20 65 72 72 6f 72 20 63 6f 6e 64 neous error cond
3950: 69 74 69 6f 6e 73 7d 20 2d 72 65 74 75 72 6e 43 itions} -returnC
3960: 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 odes error -body
3970: 20 7b 0a 20 20 20 20 20 69 6e 66 6f 20 6c 0a 2d {. info l.-
3980: 7d 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f } -result {unkno
3990: 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 wn or ambiguous
39a0: 73 75 62 63 6f 6d 6d 61 6e 64 20 22 6c 22 3a 20 subcommand "l":
39b0: 6d 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f must be args, bo
39c0: 64 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f dy, class, cmdco
39d0: 75 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 unt, commands, c
39e0: 6f 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 omplete, corouti
39f0: 6e 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 78 69 ne, default, exi
3a00: 73 74 73 2c 20 66 72 61 6d 65 2c 20 66 75 6e 63 sts, frame, func
3a10: 74 69 6f 6e 73 2c 20 67 6c 6f 62 61 6c 73 2c 20 tions, globals,
3a20: 68 6f 73 74 6e 61 6d 65 2c 20 6c 65 76 65 6c 2c hostname, level,
3a30: 20 6c 69 62 72 61 72 79 2c 20 6c 6f 61 64 65 64 library, loaded
3a40: 2c 20 6c 6f 63 61 6c 73 2c 20 6e 61 6d 65 6f 66 , locals, nameof
3a50: 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 62 6a 65 executable, obje
3a60: 63 74 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 ct, patchlevel,
3a70: 70 72 6f 63 73 2c 20 73 63 72 69 70 74 2c 20 73 procs, script, s
3a80: 68 61 72 65 64 6c 69 62 65 78 74 65 6e 73 69 6f haredlibextensio
3a90: 6e 2c 20 74 63 6c 76 65 72 73 69 6f 6e 2c 20 6f n, tclversion, o
3aa0: 72 20 76 61 72 73 7d 0a 2b 7d 20 2d 72 65 73 75 r vars}.+} -resu
3ab0: 6c 74 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 lt {unknown or a
3ac0: 6d 62 69 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d mbiguous subcomm
3ad0: 61 6e 64 20 22 6c 22 3a 20 6d 75 73 74 20 62 65 and "l": must be
3ae0: 20 61 72 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 args, body, cla
3af0: 73 73 2c 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f ss, cmdcount, co
3b00: 6d 6d 61 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 mmands, complete
3b10: 2c 20 63 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 , coroutine, def
3b20: 61 75 6c 74 2c 20 65 72 72 6f 72 73 74 61 63 6b ault, errorstack
3b30: 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 2c , exists, frame,
3b40: 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f 62 functions, glob
3b50: 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 6c als, hostname, l
3b60: 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 6c evel, library, l
3b70: 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 6e oaded, locals, n
3b80: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 2c ameofexecutable,
3b90: 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c 65 object, patchle
3ba0: 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 69 vel, procs, scri
3bb0: 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 74 pt, sharedlibext
3bc0: 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 69 ension, tclversi
3bd0: 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 20 74 65 on, or vars}. te
3be0: 73 74 20 69 6e 66 6f 2d 32 31 2e 35 20 7b 6d 69 st info-21.5 {mi
3bf0: 73 63 65 6c 6c 61 6e 65 6f 75 73 20 65 72 72 6f scellaneous erro
3c00: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 2d 72 r conditions} -r
3c10: 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 eturnCodes error
3c20: 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20 20 69 6e -body {. in
3c30: 66 6f 20 73 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 fo s.-} -result
3c40: 7b 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62 69 {unknown or ambi
3c50: 67 75 6f 75 73 20 73 75 62 63 6f 6d 6d 61 6e 64 guous subcommand
3c60: 20 22 73 22 3a 20 6d 75 73 74 20 62 65 20 61 72 "s": must be ar
3c70: 67 73 2c 20 62 6f 64 79 2c 20 63 6c 61 73 73 2c gs, body, class,
3c80: 20 63 6d 64 63 6f 75 6e 74 2c 20 63 6f 6d 6d 61 cmdcount, comma
3c90: 6e 64 73 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 nds, complete, c
3ca0: 6f 72 6f 75 74 69 6e 65 2c 20 64 65 66 61 75 6c oroutine, defaul
3cb0: 74 2c 20 65 78 69 73 74 73 2c 20 66 72 61 6d 65 t, exists, frame
3cc0: 2c 20 66 75 6e 63 74 69 6f 6e 73 2c 20 67 6c 6f , functions, glo
3cd0: 62 61 6c 73 2c 20 68 6f 73 74 6e 61 6d 65 2c 20 bals, hostname,
3ce0: 6c 65 76 65 6c 2c 20 6c 69 62 72 61 72 79 2c 20 level, library,
3cf0: 6c 6f 61 64 65 64 2c 20 6c 6f 63 61 6c 73 2c 20 loaded, locals,
3d00: 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 nameofexecutable
3d10: 2c 20 6f 62 6a 65 63 74 2c 20 70 61 74 63 68 6c , object, patchl
3d20: 65 76 65 6c 2c 20 70 72 6f 63 73 2c 20 73 63 72 evel, procs, scr
3d30: 69 70 74 2c 20 73 68 61 72 65 64 6c 69 62 65 78 ipt, sharedlibex
3d40: 74 65 6e 73 69 6f 6e 2c 20 74 63 6c 76 65 72 73 tension, tclvers
3d50: 69 6f 6e 2c 20 6f 72 20 76 61 72 73 7d 0a 2b 7d ion, or vars}.+}
3d60: 20 2d 72 65 73 75 6c 74 20 7b 75 6e 6b 6e 6f 77 -result {unknow
3d70: 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20 73 n or ambiguous s
3d80: 75 62 63 6f 6d 6d 61 6e 64 20 22 73 22 3a 20 6d ubcommand "s": m
3d90: 75 73 74 20 62 65 20 61 72 67 73 2c 20 62 6f 64 ust be args, bod
3da0: 79 2c 20 63 6c 61 73 73 2c 20 63 6d 64 63 6f 75 y, class, cmdcou
3db0: 6e 74 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 63 6f nt, commands, co
3dc0: 6d 70 6c 65 74 65 2c 20 63 6f 72 6f 75 74 69 6e mplete, coroutin
3dd0: 65 2c 20 64 65 66 61 75 6c 74 2c 20 65 72 72 6f e, default, erro
3de0: 72 73 74 61 63 6b 2c 20 65 78 69 73 74 73 2c 20 rstack, exists,
3df0: 66 72 61 6d 65 2c 20 66 75 6e 63 74 69 6f 6e 73 frame, functions
3e00: 2c 20 67 6c 6f 62 61 6c 73 2c 20 68 6f 73 74 6e , globals, hostn
3e10: 61 6d 65 2c 20 6c 65 76 65 6c 2c 20 6c 69 62 72 ame, level, libr
3e20: 61 72 79 2c 20 6c 6f 61 64 65 64 2c 20 6c 6f 63 ary, loaded, loc
3e30: 61 6c 73 2c 20 6e 61 6d 65 6f 66 65 78 65 63 75 als, nameofexecu
3e40: 74 61 62 6c 65 2c 20 6f 62 6a 65 63 74 2c 20 70 table, object, p
3e50: 61 74 63 68 6c 65 76 65 6c 2c 20 70 72 6f 63 73 atchlevel, procs
3e60: 2c 20 73 63 72 69 70 74 2c 20 73 68 61 72 65 64 , script, shared
3e70: 6c 69 62 65 78 74 65 6e 73 69 6f 6e 2c 20 74 63 libextension, tc
3e80: 6c 76 65 72 73 69 6f 6e 2c 20 6f 72 20 76 61 72 lversion, or var
3e90: 73 7d 0a 20 0a 20 23 23 0a 20 23 20 23 23 23 20 s}. . ##. # ###
3ea0: 23 23 23 20 23 23 23 20 23 23 23 23 23 23 23 23 ### ### ########
3eb0: 23 20 23 23 23 23 23 23 23 23 23 20 23 23 23 23 # ######### ####
3ec0: 23 23 23 23 23 0a 49 6e 64 65 78 3a 20 74 65 73 #####.Index: tes
3ed0: 74 73 2f 69 6e 69 74 2e 74 65 73 74 0a 3d 3d 3d ts/init.test.===
3ee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f20: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
3f30: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 oot/tcl/tcl/test
3f40: 73 2f 69 6e 69 74 2e 74 65 73 74 2c 76 0a 72 65 s/init.test,v.re
3f50: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
3f60: 6e 20 31 2e 31 39 0a 64 69 66 66 20 2d 75 20 2d n 1.19.diff -u -
3f70: 70 20 2d 72 31 2e 31 39 20 69 6e 69 74 2e 74 65 p -r1.19 init.te
3f80: 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 69 6e 69 st.--- tests/ini
3f90: 74 2e 74 65 73 74 09 32 35 20 4a 75 6c 20 32 30 t.test.25 Jul 20
3fa0: 30 39 20 32 32 3a 30 30 3a 31 30 20 2d 30 30 30 09 22:00:10 -000
3fb0: 30 09 31 2e 31 39 0a 2b 2b 2b 20 74 65 73 74 73 0.1.19.+++ tests
3fc0: 2f 69 6e 69 74 2e 74 65 73 74 09 33 20 4e 6f 76 /init.test.3 Nov
3fd0: 20 32 30 30 39 20 31 37 3a 31 36 3a 32 33 20 2d 2009 17:16:23 -
3fe0: 30 30 30 30 0a 40 40 20 2d 31 38 31 2c 37 20 2b 0000.@@ -181,7 +
3ff0: 31 38 31 2c 37 20 40 40 20 74 65 73 74 20 69 6e 181,7 @@ test in
4000: 69 74 2d 35 2e 30 20 7b 72 65 74 75 72 6e 20 6f it-5.0 {return o
4010: 70 74 69 6f 6e 73 20 70 61 73 73 65 64 20 74 68 ptions passed th
4020: 72 0a 20 20 20 20 20 6c 69 73 74 20 24 63 6f 64 r. list $cod
4030: 65 20 24 66 6f 6f 20 24 62 61 72 20 24 63 6f 64 e $foo $bar $cod
4040: 65 32 20 24 66 6f 6f 32 20 24 62 61 72 32 0a 20 e2 $foo2 $bar2.
4050: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 } -cleanup {.
4060: 20 20 75 6e 73 65 74 20 3a 3a 61 75 74 6f 5f 69 unset ::auto_i
4070: 6e 64 65 78 28 3a 3a 78 78 78 29 0a 2d 7d 20 2d ndex(::xxx).-} -
4080: 72 65 73 75 6c 74 20 7b 32 20 78 78 78 20 7b 2d result {2 xxx {-
4090: 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 45 20 2d errorcode NONE -
40a0: 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 31 7d code 1 -level 1}
40b0: 20 32 20 78 78 78 20 7b 2d 63 6f 64 65 20 31 20 2 xxx {-code 1
40c0: 2d 6c 65 76 65 6c 20 31 20 2d 65 72 72 6f 72 63 -level 1 -errorc
40d0: 6f 64 65 20 4e 4f 4e 45 7d 7d 0a 2b 7d 20 2d 6d ode NONE}}.+} -m
40e0: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
40f0: 74 20 7b 32 20 78 78 78 20 7b 2d 65 72 72 6f 72 t {2 xxx {-error
4100: 63 6f 64 65 20 4e 4f 4e 45 20 2d 65 72 72 6f 72 code NONE -error
4110: 73 74 61 63 6b 20 2a 20 2d 63 6f 64 65 20 31 20 stack * -code 1
4120: 2d 6c 65 76 65 6c 20 31 7d 20 32 20 78 78 78 20 -level 1} 2 xxx
4130: 7b 2d 63 6f 64 65 20 31 20 2d 6c 65 76 65 6c 20 {-code 1 -level
4140: 31 20 2d 65 72 72 6f 72 63 6f 64 65 20 4e 4f 4e 1 -errorcode NON
4150: 45 20 2d 65 72 72 6f 72 73 74 61 63 6b 20 2a 7d E -errorstack *}
4160: 7d 0a 20 0c 0a 20 63 6c 65 61 6e 75 70 54 65 73 }. .. cleanupTes
4170: 74 73 0a 20 7d 09 3b 23 20 20 45 6e 64 20 6f 66 ts. }.;# End of
4180: 20 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 24 74 [interp eval $t
4190: 65 73 74 49 6e 74 65 72 70 5d 0a estInterp].
