Attachment "tip181-2.patch" to
ticket [958222ffff]
added by
nobody
2004-05-22 03:59:12.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 6e 61 6d 65 73 Index: doc/names
0010: 70 61 63 65 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d pace.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 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
0060: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
0070: 6c 2f 74 63 6c 2f 64 6f 63 2f 6e 61 6d 65 73 70 l/tcl/doc/namesp
0080: 61 63 65 2e 6e 2c 76 0a 72 65 74 72 69 65 76 69 ace.n,v.retrievi
0090: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 33 ng revision 1.13
00a0: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 33 20 .diff -u -r1.13
00b0: 6e 61 6d 65 73 70 61 63 65 2e 6e 0a 2d 2d 2d 20 namespace.n.---
00c0: 64 6f 63 2f 6e 61 6d 65 73 70 61 63 65 2e 6e 09 doc/namespace.n.
00d0: 39 20 4d 61 72 20 32 30 30 34 20 31 32 3a 35 39 9 Mar 2004 12:59
00e0: 3a 30 34 20 2d 30 30 30 30 09 31 2e 31 33 0a 2b :04 -0000.1.13.+
00f0: 2b 2b 20 64 6f 63 2f 6e 61 6d 65 73 70 61 63 65 ++ doc/namespace
0100: 2e 6e 09 32 31 20 4d 61 79 20 32 30 30 34 20 32 .n.21 May 2004 2
0110: 30 3a 31 31 3a 35 39 20 2d 30 30 30 30 0a 40 40 0:11:59 -0000.@@
0120: 20 2d 32 33 37 2c 36 20 2b 32 33 37 2c 31 37 20 -237,6 +237,17
0130: 40 40 0a 20 49 74 20 64 6f 65 73 20 6e 6f 74 20 @@. It does not
0140: 63 68 65 63 6b 20 77 68 65 74 68 65 72 20 74 68 check whether th
0150: 65 20 6e 61 6d 65 73 70 61 63 65 20 6e 61 6d 65 e namespace name
0160: 73 20 61 72 65 2c 20 69 6e 20 66 61 63 74 2c 0a s are, in fact,.
0170: 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 63 75 the names of cu
0180: 72 72 65 6e 74 6c 79 20 64 65 66 69 6e 65 64 20 rrently defined
0190: 6e 61 6d 65 73 70 61 63 65 73 2e 0a 20 2e 54 50 namespaces.. .TP
01a0: 0a 2b 5c 66 42 6e 61 6d 65 73 70 61 63 65 20 75 .+\fBnamespace u
01b0: 6e 6b 6e 6f 77 6e 5c 66 52 20 3f 5c 66 49 73 63 nknown\fR ?\fIsc
01c0: 72 69 70 74 5c 66 52 3f 0a 2b 53 65 74 73 20 6f ript\fR?.+Sets o
01d0: 72 20 72 65 74 75 72 6e 73 20 74 68 65 20 75 6e r returns the un
01e0: 6b 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 20 68 61 known command ha
01f0: 6e 64 6c 65 72 20 66 6f 72 20 74 68 65 20 63 75 ndler for the cu
0200: 72 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 2e rrent namespace.
0210: 0a 2b 54 68 65 20 68 61 6e 64 6c 65 72 20 69 73 .+The handler is
0220: 20 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20 61 20 invoked when a
0230: 63 6f 6d 6d 61 6e 64 20 63 61 6c 6c 65 64 20 66 command called f
0240: 72 6f 6d 20 77 69 74 68 69 6e 20 74 68 65 20 6e rom within the n
0250: 61 6d 65 73 70 61 63 65 0a 2b 63 61 6e 6e 6f 74 amespace.+cannot
0260: 20 62 65 20 66 6f 75 6e 64 20 28 69 6e 20 65 69 be found (in ei
0270: 74 68 65 72 20 74 68 65 20 63 75 72 72 65 6e 74 ther the current
0280: 20 6e 61 6d 65 73 70 61 63 65 20 6f 72 20 74 68 namespace or th
0290: 65 20 67 6c 6f 62 61 6c 20 6e 61 6d 65 73 70 61 e global namespa
02a0: 63 65 29 2e 20 0a 2b 54 68 65 20 5c 66 49 73 63 ce). .+The \fIsc
02b0: 72 69 70 74 5c 66 52 20 61 72 67 75 6d 65 6e 74 ript\fR argument
02c0: 2c 20 69 66 20 67 69 76 65 6e 2c 20 73 68 6f 75 , if given, shou
02d0: 6c 64 20 62 65 20 61 20 77 65 6c 6c 0a 2b 66 6f ld be a well.+fo
02e0: 72 6d 65 64 20 6c 69 73 74 20 72 65 70 72 65 73 rmed list repres
02f0: 65 6e 74 69 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 enting a command
0300: 20 6e 61 6d 65 20 61 6e 64 20 6f 70 74 69 6f 6e name and option
0310: 61 6c 20 61 72 67 75 6d 65 6e 74 73 2e 20 57 68 al arguments. Wh
0320: 65 6e 0a 2b 74 68 65 20 68 61 6e 64 6c 65 72 20 en.+the handler
0330: 69 73 20 69 6e 76 6f 6b 65 64 2c 20 74 68 65 20 is invoked, the
0340: 66 75 6c 6c 20 69 6e 76 6f 63 61 74 69 6f 6e 20 full invocation
0350: 6c 69 6e 65 20 77 69 6c 6c 20 62 65 20 61 70 70 line will be app
0360: 65 6e 64 65 64 20 74 6f 20 74 68 65 0a 2b 73 63 ended to the.+sc
0370: 72 69 70 74 20 61 6e 64 20 74 68 65 20 72 65 73 ript and the res
0380: 75 6c 74 20 65 76 61 6c 75 61 74 65 64 20 69 6e ult evaluated in
0390: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
03a0: 74 68 65 20 6e 61 6d 65 73 70 61 63 65 2e 20 54 the namespace. T
03b0: 68 65 20 0a 2b 64 65 66 61 75 6c 74 20 68 61 6e he .+default han
03c0: 64 6c 65 72 20 66 6f 72 20 61 6c 6c 20 6e 61 6d dler for all nam
03d0: 65 73 70 61 63 65 73 20 69 73 20 5c 66 42 3a 3a espaces is \fB::
03e0: 75 6e 6b 6e 6f 77 6e 5c 66 52 2e 20 49 66 20 6e unknown\fR. If n
03f0: 6f 20 61 72 67 75 6d 65 6e 74 0a 2b 69 73 20 67 o argument.+is g
0400: 69 76 65 6e 2c 20 69 74 20 72 65 74 75 72 6e 73 iven, it returns
0410: 20 74 68 65 20 68 61 6e 64 6c 65 72 20 66 6f 72 the handler for
0420: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6e 61 6d the current nam
0430: 65 73 70 61 63 65 2e 0a 2b 2e 54 50 0a 20 5c 66 espace..+.TP. \f
0440: 42 6e 61 6d 65 73 70 61 63 65 20 77 68 69 63 68 Bnamespace which
0450: 5c 66 52 20 3f 5c 2d 5c 66 42 63 6f 6d 6d 61 6e \fR ?\-\fBcomman
0460: 64 5c 66 52 3f 20 3f 5c 2d 5c 66 42 76 61 72 69 d\fR? ?\-\fBvari
0470: 61 62 6c 65 5c 66 52 3f 20 5c 66 49 6e 61 6d 65 able\fR? \fIname
0480: 5c 66 52 0a 20 4c 6f 6f 6b 73 20 75 70 20 5c 66 \fR. Looks up \f
0490: 49 6e 61 6d 65 5c 66 52 20 61 73 20 65 69 74 68 Iname\fR as eith
04a0: 65 72 20 61 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 er a command or
04b0: 76 61 72 69 61 62 6c 65 0a 20 61 6e 64 20 72 65 variable. and re
04c0: 74 75 72 6e 73 20 69 74 73 20 66 75 6c 6c 79 2d turns its fully-
04d0: 71 75 61 6c 69 66 69 65 64 20 6e 61 6d 65 2e 0a qualified name..
04e0: 49 6e 64 65 78 3a 20 64 6f 63 2f 75 6e 6b 6e 6f Index: doc/unkno
04f0: 77 6e 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d wn.n.===========
0500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0530: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
0540: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
0550: 74 63 6c 2f 64 6f 63 2f 75 6e 6b 6e 6f 77 6e 2e tcl/doc/unknown.
0560: 6e 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 n,v.retrieving r
0570: 65 76 69 73 69 6f 6e 20 31 2e 34 0a 64 69 66 66 evision 1.4.diff
0580: 20 2d 75 20 2d 72 31 2e 34 20 75 6e 6b 6e 6f 77 -u -r1.4 unknow
0590: 6e 2e 6e 0a 2d 2d 2d 20 64 6f 63 2f 75 6e 6b 6e n.n.--- doc/unkn
05a0: 6f 77 6e 2e 6e 09 32 37 20 4a 75 6e 20 32 30 30 own.n.27 Jun 200
05b0: 31 20 32 31 3a 30 30 3a 34 35 20 2d 30 30 30 30 1 21:00:45 -0000
05c0: 09 31 2e 34 0a 2b 2b 2b 20 64 6f 63 2f 75 6e 6b .1.4.+++ doc/unk
05d0: 6e 6f 77 6e 2e 6e 09 32 31 20 4d 61 79 20 32 30 nown.n.21 May 20
05e0: 30 34 20 32 30 3a 31 32 3a 30 30 20 2d 30 30 30 04 20:12:00 -000
05f0: 30 0a 40 40 20 2d 32 33 2c 31 35 20 2b 32 33 2c 0.@@ -23,15 +23,
0600: 31 38 20 40 40 0a 20 74 72 69 65 73 20 74 6f 20 18 @@. tries to
0610: 69 6e 76 6f 6b 65 20 61 20 63 6f 6d 6d 61 6e 64 invoke a command
0620: 20 74 68 61 74 20 64 6f 65 73 6e 27 74 20 65 78 that doesn't ex
0630: 69 73 74 2e 20 20 54 68 65 20 64 65 66 61 75 6c ist. The defaul
0640: 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e t implementation
0650: 0a 20 6f 66 20 5c 66 42 75 6e 6b 6e 6f 77 6e 5c . of \fBunknown\
0660: 66 52 20 69 73 20 61 20 6c 69 62 72 61 72 79 20 fR is a library
0670: 70 72 6f 63 65 64 75 72 65 20 64 65 66 69 6e 65 procedure define
0680: 64 20 77 68 65 6e 20 54 63 6c 20 69 6e 69 74 69 d when Tcl initi
0690: 61 6c 69 7a 65 73 20 61 6e 0a 20 69 6e 74 65 72 alizes an. inter
06a0: 70 72 65 74 65 72 2e 20 20 59 6f 75 20 63 61 6e preter. You can
06b0: 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 64 65 override the de
06c0: 66 61 75 6c 74 20 5c 66 42 75 6e 6b 6e 6f 77 6e fault \fBunknown
06d0: 5c 66 52 20 74 6f 20 63 68 61 6e 67 65 20 69 74 \fR to change it
06e0: 73 0a 2d 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 s.-functionality
06f0: 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 . Note that the
0700: 72 65 20 69 73 20 6e 6f 20 64 65 66 61 75 6c 74 re is no default
0710: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 implementation
0720: 6f 66 0a 2d 5c 66 42 75 6e 6b 6e 6f 77 6e 5c 66 of.-\fBunknown\f
0730: 52 20 69 6e 20 61 20 73 61 66 65 20 69 6e 74 65 R in a safe inte
0740: 72 70 72 65 74 65 72 2e 0a 2b 66 75 6e 63 74 69 rpreter..+functi
0750: 6f 6e 61 6c 69 74 79 2c 20 6f 72 20 79 6f 75 20 onality, or you
0760: 63 61 6e 20 72 65 67 69 73 74 65 72 20 61 20 6e can register a n
0770: 65 77 20 68 61 6e 64 6c 65 72 20 66 6f 72 20 69 ew handler for i
0780: 6e 64 69 76 69 64 75 61 6c 20 6e 61 6d 65 73 70 ndividual namesp
0790: 61 63 65 73 0a 2b 75 73 69 6e 67 20 74 68 65 20 aces.+using the
07a0: 5c 66 42 6e 61 6d 65 73 70 61 63 65 20 75 6e 6b \fBnamespace unk
07b0: 6e 6f 77 6e 5c 66 52 20 63 6f 6d 6d 61 6e 64 2e nown\fR command.
07c0: 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 72 Note that ther
07d0: 65 20 69 73 20 6e 6f 20 64 65 66 61 75 6c 74 20 e is no default
07e0: 0a 2b 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e .+implementation
07f0: 20 6f 66 20 5c 66 42 75 6e 6b 6e 6f 77 6e 5c 66 of \fBunknown\f
0800: 52 20 69 6e 20 61 20 73 61 66 65 20 69 6e 74 65 R in a safe inte
0810: 72 70 72 65 74 65 72 2e 0a 20 2e 50 50 0a 20 49 rpreter.. .PP. I
0820: 66 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 70 f the Tcl interp
0830: 72 65 74 65 72 20 65 6e 63 6f 75 6e 74 65 72 73 reter encounters
0840: 20 61 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 a command name
0850: 66 6f 72 20 77 68 69 63 68 20 74 68 65 72 65 0a for which there.
0860: 2d 69 73 20 6e 6f 74 20 61 20 64 65 66 69 6e 65 -is not a define
0870: 64 20 63 6f 6d 6d 61 6e 64 2c 20 74 68 65 6e 20 d command, then
0880: 54 63 6c 20 63 68 65 63 6b 73 20 66 6f 72 20 74 Tcl checks for t
0890: 68 65 20 65 78 69 73 74 65 6e 63 65 20 6f 66 0a he existence of.
08a0: 2d 61 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 64 -a command named
08b0: 20 5c 66 42 75 6e 6b 6e 6f 77 6e 5c 66 52 2e 0a \fBunknown\fR..
08c0: 2d 49 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 -If there is no
08d0: 73 75 63 68 20 63 6f 6d 6d 61 6e 64 2c 20 74 68 such command, th
08e0: 65 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 en the interpret
08f0: 65 72 20 72 65 74 75 72 6e 73 20 61 6e 0a 2d 65 er returns an.-e
0900: 72 72 6f 72 2e 0a 2d 49 66 20 74 68 65 20 5c 66 rror..-If the \f
0910: 42 75 6e 6b 6e 6f 77 6e 5c 66 52 20 63 6f 6d 6d Bunknown\fR comm
0920: 61 6e 64 20 65 78 69 73 74 73 2c 20 74 68 65 6e and exists, then
0930: 20 69 74 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 it is invoked w
0940: 69 74 68 0a 2b 69 73 20 6e 6f 74 20 61 20 64 65 ith.+is not a de
0950: 66 69 6e 65 64 20 63 6f 6d 6d 61 6e 64 20 28 69 fined command (i
0960: 6e 20 65 69 74 68 65 72 20 74 68 65 20 63 75 72 n either the cur
0970: 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 2c 20 rent namespace,
0980: 6f 72 20 74 68 65 20 0a 2b 67 6c 6f 62 61 6c 20 or the .+global
0990: 6e 61 6d 65 73 70 61 63 65 29 2c 20 74 68 65 6e namespace), then
09a0: 20 54 63 6c 20 63 68 65 63 6b 73 20 66 6f 72 20 Tcl checks for
09b0: 74 68 65 20 65 78 69 73 74 65 6e 63 65 20 6f 66 the existence of
09c0: 0a 2b 61 6e 20 75 6e 6b 6e 6f 77 6e 20 68 61 6e .+an unknown han
09d0: 64 6c 65 72 20 66 6f 72 20 74 68 65 20 63 75 72 dler for the cur
09e0: 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 2e 20 rent namespace.
09f0: 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 By default, this
0a00: 0a 2b 68 61 6e 64 6c 65 72 20 69 73 20 61 20 63 .+handler is a c
0a10: 6f 6d 6d 61 6e 64 20 6e 61 6d 65 64 20 5c 66 42 ommand named \fB
0a20: 3a 3a 75 6e 6b 6e 6f 77 6e 5c 66 52 2e 20 20 49 ::unknown\fR. I
0a30: 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 f there is no su
0a40: 63 68 20 0a 2b 63 6f 6d 6d 61 6e 64 2c 20 74 68 ch .+command, th
0a50: 65 6e 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 en the interpret
0a60: 65 72 20 72 65 74 75 72 6e 73 20 61 6e 20 65 72 er returns an er
0a70: 72 6f 72 2e 0a 2b 49 66 20 74 68 65 20 5c 66 42 ror..+If the \fB
0a80: 75 6e 6b 6e 6f 77 6e 5c 66 52 20 63 6f 6d 6d 61 unknown\fR comma
0a90: 6e 64 20 65 78 69 73 74 73 20 28 6f 72 20 61 20 nd exists (or a
0aa0: 6e 65 77 20 68 61 6e 64 6c 65 72 20 68 61 73 20 new handler has
0ab0: 62 65 65 6e 0a 2b 72 65 67 69 73 74 65 72 65 64 been.+registered
0ac0: 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 for the current
0ad0: 20 6e 61 6d 65 73 70 61 63 65 29 2c 20 74 68 65 namespace), the
0ae0: 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b 65 64 20 n it is invoked
0af0: 77 69 74 68 0a 20 61 72 67 75 6d 65 6e 74 73 20 with. arguments
0b00: 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 consisting of th
0b10: 65 20 66 75 6c 6c 79 2d 73 75 62 73 74 69 74 75 e fully-substitu
0b20: 74 65 64 20 6e 61 6d 65 20 61 6e 64 20 61 72 67 ted name and arg
0b30: 75 6d 65 6e 74 73 0a 20 66 6f 72 20 74 68 65 20 uments. for the
0b40: 6f 72 69 67 69 6e 61 6c 20 6e 6f 6e 2d 65 78 69 original non-exi
0b50: 73 74 65 6e 74 20 63 6f 6d 6d 61 6e 64 2e 0a 20 stent command..
0b60: 54 68 65 20 5c 66 42 75 6e 6b 6e 6f 77 6e 5c 66 The \fBunknown\f
0b70: 52 20 63 6f 6d 6d 61 6e 64 20 74 79 70 69 63 61 R command typica
0b80: 6c 6c 79 20 64 6f 65 73 20 74 68 69 6e 67 73 20 lly does things
0b90: 6c 69 6b 65 20 73 65 61 72 63 68 69 6e 67 0a 40 like searching.@
0ba0: 40 20 2d 37 33 2c 37 20 2b 37 36 2c 37 20 40 40 @ -73,7 +76,7 @@
0bb0: 0a 20 65 78 65 63 75 74 65 64 2e 0a 20 0a 20 2e . executed.. . .
0bc0: 53 48 20 22 53 45 45 20 41 4c 53 4f 22 0a 2d 69 SH "SEE ALSO".-i
0bd0: 6e 66 6f 28 6e 29 2c 20 70 72 6f 63 28 6e 29 2c nfo(n), proc(n),
0be0: 20 69 6e 74 65 72 70 28 6e 29 2c 20 6c 69 62 72 interp(n), libr
0bf0: 61 72 79 28 6e 29 0a 2b 69 6e 66 6f 28 6e 29 2c ary(n).+info(n),
0c00: 20 70 72 6f 63 28 6e 29 2c 20 69 6e 74 65 72 70 proc(n), interp
0c10: 28 6e 29 2c 20 6c 69 62 72 61 72 79 28 6e 29 2c (n), library(n),
0c20: 20 6e 61 6d 65 73 70 61 63 65 28 6e 29 0a 20 0a namespace(n). .
0c30: 20 2e 53 48 20 4b 45 59 57 4f 52 44 53 0a 20 65 .SH KEYWORDS. e
0c40: 72 72 6f 72 2c 20 6e 6f 6e 2d 65 78 69 73 74 65 rror, non-existe
0c50: 6e 74 20 63 6f 6d 6d 61 6e 64 0a 49 6e 64 65 78 nt command.Index
0c60: 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 : generic/tclBas
0c70: 69 63 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ic.c.===========
0c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cb0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
0cc0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
0cd0: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 42 tcl/generic/tclB
0ce0: 61 73 69 63 2e 63 2c 76 0a 72 65 74 72 69 65 76 asic.c,v.retriev
0cf0: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 ing revision 1.1
0d00: 30 32 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 02.diff -u -r1.1
0d10: 30 32 20 74 63 6c 42 61 73 69 63 2e 63 0a 2d 2d 02 tclBasic.c.--
0d20: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 - generic/tclBas
0d30: 69 63 2e 63 09 32 30 20 4d 61 79 20 32 30 30 34 ic.c.20 May 2004
0d40: 20 31 33 3a 30 34 3a 31 31 20 2d 30 30 30 30 09 13:04:11 -0000.
0d50: 31 2e 31 30 32 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.102.+++ generi
0d60: 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 32 31 20 c/tclBasic.c.21
0d70: 4d 61 79 20 32 30 30 34 20 32 30 3a 31 32 3a 31 May 2004 20:12:1
0d80: 31 20 2d 30 30 30 30 0a 40 40 20 2d 39 2c 31 33 1 -0000.@@ -9,13
0d90: 20 2b 39 2c 31 33 20 40 40 0a 20 20 2a 20 43 6f +9,13 @@. * Co
0da0: 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 34 pyright (c) 1994
0db0: 2d 31 39 39 37 20 53 75 6e 20 4d 69 63 72 6f 73 -1997 Sun Micros
0dc0: 79 73 74 65 6d 73 2c 20 49 6e 63 2e 0a 20 20 2a ystems, Inc.. *
0dd0: 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 Copyright (c) 1
0de0: 39 39 38 2d 31 39 39 39 20 62 79 20 53 63 72 69 998-1999 by Scri
0df0: 70 74 69 63 73 20 43 6f 72 70 6f 72 61 74 69 6f ptics Corporatio
0e00: 6e 2e 0a 20 20 2a 20 43 6f 70 79 72 69 67 68 74 n.. * Copyright
0e10: 20 28 63 29 20 32 30 30 31 2c 20 32 30 30 32 20 (c) 2001, 2002
0e20: 62 79 20 4b 65 76 69 6e 20 42 2e 20 4b 65 6e 6e by Kevin B. Kenn
0e30: 79 2e 20 20 41 6c 6c 20 72 69 67 68 74 73 20 72 y. All rights r
0e40: 65 73 65 72 76 65 64 2e 0a 2b 20 2a 20 43 6f 70 eserved..+ * Cop
0e50: 79 72 69 67 68 74 20 28 63 29 20 32 30 30 34 20 yright (c) 2004
0e60: 4e 65 69 6c 20 4d 61 64 64 65 6e 2e 0a 20 20 2a Neil Madden.. *
0e70: 0a 20 20 2a 20 53 65 65 20 74 68 65 20 66 69 6c . * See the fil
0e80: 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 e "license.terms
0e90: 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f " for informatio
0ea0: 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 n on usage and r
0eb0: 65 64 69 73 74 72 69 62 75 74 69 6f 6e 0a 20 20 edistribution.
0ec0: 2a 20 6f 66 20 74 68 69 73 20 66 69 6c 65 2c 20 * of this file,
0ed0: 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 and for a DISCLA
0ee0: 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 IMER OF ALL WARR
0ef0: 41 4e 54 49 45 53 2e 0a 20 20 2a 0a 20 20 2a 20 ANTIES.. *. *
0f00: 52 43 53 3a 20 40 28 23 29 20 24 49 64 3a 20 74 RCS: @(#) $Id: t
0f10: 63 6c 42 61 73 69 63 2e 63 2c 76 20 31 2e 31 30 clBasic.c,v 1.10
0f20: 32 20 32 30 30 34 2f 30 35 2f 32 30 20 31 33 3a 2 2004/05/20 13:
0f30: 30 34 3a 31 31 20 64 6b 66 20 45 78 70 20 24 0a 04:11 dkf Exp $.
0f40: 20 20 2a 2f 0a 2d 0a 20 23 69 6e 63 6c 75 64 65 */.-. #include
0f50: 20 22 74 63 6c 49 6e 74 2e 68 22 0a 20 23 69 6e "tclInt.h". #in
0f60: 63 6c 75 64 65 20 22 74 63 6c 43 6f 6d 70 69 6c clude "tclCompil
0f70: 65 2e 68 22 0a 20 0a 40 40 20 2d 33 30 34 32 2c e.h". .@@ -3042,
0f80: 36 20 2b 33 30 34 32 2c 31 30 20 40 40 0a 20 20 6 +3042,10 @@.
0f90: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 43 int i;. C
0fa0: 61 6c 6c 46 72 61 6d 65 20 2a 73 61 76 65 64 56 allFrame *savedV
0fb0: 61 72 46 72 61 6d 65 50 74 72 3b 09 2f 2a 20 53 arFramePtr;./* S
0fc0: 61 76 65 73 20 6f 6c 64 20 63 6f 70 79 20 6f 66 aves old copy of
0fd0: 20 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 iPtr->varFrameP
0fe0: 74 72 0a 20 09 09 09 09 09 20 2a 20 69 6e 20 63 tr. ..... * in c
0ff0: 61 73 65 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f ase TCL_EVAL_GLO
1000: 42 41 4c 20 77 61 73 20 73 65 74 2e 20 2a 2f 0a BAL was set. */.
1010: 2b 20 20 20 20 4e 61 6d 65 73 70 61 63 65 20 2a + Namespace *
1020: 63 75 72 72 4e 73 50 74 72 20 3d 20 4e 55 4c 4c currNsPtr = NULL
1030: 3b 09 2f 2a 20 55 73 65 64 20 74 6f 20 63 68 65 ;./* Used to che
1040: 63 6b 20 66 6f 72 2c 20 61 6e 64 20 69 6e 76 6f ck for, and invo
1050: 6b 65 20 61 6e 79 0a 2b 09 09 09 09 09 20 2a 20 ke any.+..... *
1060: 72 65 67 69 73 74 65 72 65 64 20 75 6e 6b 6e 6f registered unkno
1070: 77 6e 20 63 6f 6d 6d 6d 61 6e 64 0a 2b 09 09 09 wn commmand.+...
1080: 09 09 20 2a 20 68 61 6e 64 6c 65 72 20 66 6f 72 .. * handler for
1090: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6e 61 6d the current nam
10a0: 65 73 70 61 63 65 0a 2b 09 09 09 09 09 20 2a 20 espace.+..... *
10b0: 28 73 65 65 20 54 49 50 20 31 38 31 29 2e 20 2a (see TIP 181). *
10c0: 2f 0a 20 20 20 20 20 69 6e 74 20 63 6f 64 65 20 /. int code
10d0: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 69 = TCL_OK;. i
10e0: 6e 74 20 74 72 61 63 65 43 6f 64 65 20 3d 20 54 nt traceCode = T
10f0: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 69 6e 74 20 CL_OK;. int
1100: 63 68 65 63 6b 54 72 61 63 65 73 20 3d 20 31 3b checkTraces = 1;
1110: 0a 40 40 20 2d 33 30 37 37 2c 31 35 20 2b 33 30 .@@ -3077,15 +30
1120: 38 31 2c 34 38 20 40 40 0a 20 09 20 20 20 20 69 81,48 @@. . i
1130: 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 Ptr->varFramePtr
1140: 20 3d 20 4e 55 4c 4c 3b 0a 20 09 7d 0a 20 20 20 = NULL;. .}.
1150: 20 20 20 20 20 20 63 6d 64 50 74 72 20 3d 20 28 cmdPtr = (
1160: 43 6f 6d 6d 61 6e 64 20 2a 29 20 54 63 6c 5f 47 Command *) Tcl_G
1170: 65 74 43 6f 6d 6d 61 6e 64 46 72 6f 6d 4f 62 6a etCommandFromObj
1180: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 30 5d (interp, objv[0]
1190: 29 3b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 47 72 61 );.+./*.+. * Gra
11a0: 62 20 63 75 72 72 65 6e 74 20 6e 61 6d 65 73 70 b current namesp
11b0: 61 63 65 20 62 65 66 6f 72 65 20 72 65 73 74 6f ace before resto
11c0: 72 69 6e 67 20 76 61 72 20 66 72 61 6d 65 2c 20 ring var frame,
11d0: 66 6f 72 20 75 6e 6b 6e 6f 77 6e 0a 2b 09 20 2a for unknown.+. *
11e0: 20 68 61 6e 64 6c 65 72 20 63 68 65 63 6b 20 62 handler check b
11f0: 65 6c 6f 77 2e 20 49 6d 70 6f 72 74 61 6e 74 20 elow. Important
1200: 74 6f 20 67 72 61 62 20 69 74 20 68 65 72 65 20 to grab it here
1210: 73 6f 20 74 68 61 74 20 77 65 0a 2b 09 20 2a 20 so that we.+. *
1220: 72 65 73 70 65 63 74 20 74 68 65 20 54 43 4c 5f respect the TCL_
1230: 45 56 41 4c 5f 49 4e 56 4f 4b 45 2f 54 43 4c 5f EVAL_INVOKE/TCL_
1240: 45 56 41 4c 5f 47 4c 4f 42 41 4c 20 66 6c 61 67 EVAL_GLOBAL flag
1250: 73 20 77 68 69 63 68 20 6d 61 79 0a 2b 09 20 2a s which may.+. *
1260: 20 68 61 76 65 20 62 65 65 6e 20 70 61 73 73 65 have been passe
1270: 64 2e 0a 2b 09 20 2a 2f 0a 2b 09 69 66 20 28 69 d..+. */.+.if (i
1280: 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 Ptr->varFramePtr
1290: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 != NULL) {.+.
12a0: 20 20 63 75 72 72 4e 73 50 74 72 20 3d 20 69 50 currNsPtr = iP
12b0: 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72 2d tr->varFramePtr-
12c0: 3e 6e 73 50 74 72 3b 0a 2b 09 7d 20 65 6c 73 65 >nsPtr;.+.} else
12d0: 20 7b 0a 2b 09 20 20 20 20 2f 2a 20 67 6c 6f 62 {.+. /* glob
12e0: 61 6c 4e 73 50 74 72 20 63 61 6e 20 6e 65 76 65 alNsPtr can neve
12f0: 72 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f 0a 2b 09 r be NULL. */.+.
1300: 20 20 20 20 63 75 72 72 4e 73 50 74 72 20 3d 20 currNsPtr =
1310: 69 50 74 72 2d 3e 67 6c 6f 62 61 6c 4e 73 50 74 iPtr->globalNsPt
1320: 72 3b 0a 2b 09 7d 0a 2b 09 2f 2a 20 52 65 73 74 r;.+.}.+./* Rest
1330: 6f 72 65 20 76 61 72 20 66 72 61 6d 65 2e 20 2a ore var frame. *
1340: 2f 0a 20 09 69 50 74 72 2d 3e 76 61 72 46 72 61 /. .iPtr->varFra
1350: 6d 65 50 74 72 20 3d 20 73 61 76 65 64 56 61 72 mePtr = savedVar
1360: 46 72 61 6d 65 50 74 72 3b 0a 20 0a 20 20 20 20 FramePtr;. .
1370: 20 20 20 20 20 69 66 20 28 63 6d 64 50 74 72 20 if (cmdPtr
1380: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 == NULL) {.+.
1390: 20 69 6e 74 20 6e 65 77 4f 62 6a 63 2c 20 68 61 int newObjc, ha
13a0: 6e 64 6c 65 72 4f 62 6a 63 3b 0a 2b 09 20 20 20 ndlerObjc;.+.
13b0: 20 54 63 6c 5f 4f 62 6a 20 2a 2a 68 61 6e 64 6c Tcl_Obj **handl
13c0: 65 72 4f 62 6a 76 3b 0a 2b 09 20 20 20 20 2f 2a erObjv;.+. /*
13d0: 0a 2b 09 20 20 20 20 20 2a 20 43 68 65 63 6b 20 .+. * Check
13e0: 69 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 75 if there is an u
13f0: 6e 6b 6e 6f 77 6e 20 68 61 6e 64 6c 65 72 20 72 nknown handler r
1400: 65 67 69 73 74 65 72 65 64 20 66 6f 72 20 74 68 egistered for th
1410: 69 73 0a 2b 09 20 20 20 20 20 2a 20 6e 61 6d 65 is.+. * name
1420: 73 70 61 63 65 2e 0a 2b 09 20 20 20 20 20 2a 2f space..+. */
1430: 0a 2b 09 20 20 20 20 69 66 20 28 63 75 72 72 4e .+. if (currN
1440: 73 50 74 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e sPtr->unknownHan
1450: 64 6c 65 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 dlerPtr == NULL)
1460: 20 7b 0a 2b 09 09 63 75 72 72 4e 73 50 74 72 2d {.+..currNsPtr-
1470: 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 72 50 >unknownHandlerP
1480: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 tr = Tcl_NewStri
1490: 6e 67 4f 62 6a 28 22 3a 3a 75 6e 6b 6e 6f 77 6e ngObj("::unknown
14a0: 22 2c 0a 2b 09 09 20 20 20 20 2d 31 29 3b 0a 2b ",.+.. -1);.+
14b0: 09 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 ..Tcl_IncrRefCou
14c0: 6e 74 28 63 75 72 72 4e 73 50 74 72 2d 3e 75 6e nt(currNsPtr->un
14d0: 6b 6e 6f 77 6e 48 61 6e 64 6c 65 72 50 74 72 29 knownHandlerPtr)
14e0: 3b 0a 2b 09 20 20 20 20 7d 0a 2b 0a 2b 09 20 20 ;.+. }.+.+.
14f0: 20 20 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 if (Tcl_ListOb
1500: 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 jGetElements(int
1510: 65 72 70 2c 0a 2b 09 09 63 75 72 72 4e 73 50 74 erp,.+..currNsPt
1520: 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 r->unknownHandle
1530: 72 50 74 72 2c 20 26 68 61 6e 64 6c 65 72 4f 62 rPtr, &handlerOb
1540: 6a 63 2c 20 26 68 61 6e 64 6c 65 72 4f 62 6a 76 jc, &handlerObjv
1550: 29 0a 2b 09 09 21 3d 20 54 43 4c 5f 4f 4b 29 20 ).+..!= TCL_OK)
1560: 7b 0a 2b 09 09 72 65 74 75 72 6e 20 54 43 4c 5f {.+..return TCL_
1570: 45 52 52 4f 52 3b 0a 2b 09 20 20 20 20 7d 0a 2b ERROR;.+. }.+
1580: 09 20 20 20 20 6e 65 77 4f 62 6a 63 20 3d 20 6f . newObjc = o
1590: 62 6a 63 20 2b 20 68 61 6e 64 6c 65 72 4f 62 6a bjc + handlerObj
15a0: 63 3b 0a 20 09 20 20 20 20 6e 65 77 4f 62 6a 76 c;. . newObjv
15b0: 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 2a 29 20 = (Tcl_Obj **)
15c0: 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 ckalloc((unsigne
15d0: 64 29 0a 2d 09 09 28 28 6f 62 6a 63 20 2b 20 31 d).-..((objc + 1
15e0: 29 20 2a 20 73 69 7a 65 6f 66 20 28 54 63 6c 5f ) * sizeof (Tcl_
15f0: 4f 62 6a 20 2a 29 29 29 3b 0a 2b 09 09 28 6e 65 Obj *)));.+..(ne
1600: 77 4f 62 6a 63 20 2a 20 73 69 7a 65 6f 66 20 28 wObjc * sizeof (
1610: 54 63 6c 5f 4f 62 6a 20 2a 29 29 29 3b 0a 2b 09 Tcl_Obj *)));.+.
1620: 20 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 for (i = 0;
1630: 69 20 3c 20 68 61 6e 64 6c 65 72 4f 62 6a 63 3b i < handlerObjc;
1640: 20 69 2b 2b 29 20 7b 0a 2b 09 09 6e 65 77 4f 62 i++) {.+..newOb
1650: 6a 76 5b 69 5d 20 3d 20 68 61 6e 64 6c 65 72 4f jv[i] = handlerO
1660: 62 6a 76 5b 69 5d 3b 0a 2b 09 20 20 20 20 7d 0a bjv[i];.+. }.
1670: 20 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 6f . for (i = o
1680: 62 6a 63 2d 31 3b 20 69 20 3e 3d 20 30 3b 20 69 bjc-1; i >= 0; i
1690: 2d 2d 29 20 7b 0a 2d 09 20 20 20 20 20 20 20 20 --) {.-.
16a0: 6e 65 77 4f 62 6a 76 5b 69 2b 31 5d 20 3d 20 6f newObjv[i+1] = o
16b0: 62 6a 76 5b 69 5d 3b 0a 2b 09 09 6e 65 77 4f 62 bjv[i];.+..newOb
16c0: 6a 76 5b 69 2b 68 61 6e 64 6c 65 72 4f 62 6a 63 jv[i+handlerObjc
16d0: 5d 20 3d 20 6f 62 6a 76 5b 69 5d 3b 0a 20 09 20 ] = objv[i];. .
16e0: 20 20 20 7d 0a 2d 09 20 20 20 20 6e 65 77 4f 62 }.-. newOb
16f0: 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 jv[0] = Tcl_NewS
1700: 74 72 69 6e 67 4f 62 6a 28 22 3a 3a 75 6e 6b 6e tringObj("::unkn
1710: 6f 77 6e 22 2c 20 2d 31 29 3b 0a 20 09 20 20 20 own", -1);. .
1720: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
1730: 74 28 6e 65 77 4f 62 6a 76 5b 30 5d 29 3b 0a 20 t(newObjv[0]);.
1740: 09 20 20 20 20 63 6d 64 50 74 72 20 3d 20 28 43 . cmdPtr = (C
1750: 6f 6d 6d 61 6e 64 20 2a 29 20 54 63 6c 5f 47 65 ommand *) Tcl_Ge
1760: 74 43 6f 6d 6d 61 6e 64 46 72 6f 6d 4f 62 6a 28 tCommandFromObj(
1770: 69 6e 74 65 72 70 2c 20 6e 65 77 4f 62 6a 76 5b interp, newObjv[
1780: 30 5d 29 3b 0a 20 09 20 20 20 20 69 66 20 28 63 0]);. . if (c
1790: 6d 64 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b mdPtr == NULL) {
17a0: 0a 40 40 20 2d 33 30 39 35 2c 37 20 2b 33 31 33 .@@ -3095,7 +313
17b0: 32 2c 37 20 40 40 0a 20 09 20 20 20 20 20 20 20 2,7 @@. .
17c0: 20 63 6f 64 65 20 3d 20 54 43 4c 5f 45 52 52 4f code = TCL_ERRO
17d0: 52 3b 0a 20 09 20 20 20 20 7d 20 65 6c 73 65 20 R;. . } else
17e0: 7b 0a 20 09 20 20 20 20 20 20 20 20 69 50 74 72 {. . iPtr
17f0: 2d 3e 6e 75 6d 4c 65 76 65 6c 73 2b 2b 3b 0a 2d ->numLevels++;.-
1800: 09 20 20 20 20 20 20 20 20 63 6f 64 65 20 3d 20 . code =
1810: 54 63 6c 45 76 61 6c 4f 62 6a 76 49 6e 74 65 72 TclEvalObjvInter
1820: 6e 61 6c 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 nal(interp, objc
1830: 2b 31 2c 20 6e 65 77 4f 62 6a 76 2c 20 63 6f 6d +1, newObjv, com
1840: 6d 61 6e 64 2c 20 6c 65 6e 67 74 68 2c 20 30 29 mand, length, 0)
1850: 3b 0a 2b 09 20 20 20 20 20 20 20 20 63 6f 64 65 ;.+. code
1860: 20 3d 20 54 63 6c 45 76 61 6c 4f 62 6a 76 49 6e = TclEvalObjvIn
1870: 74 65 72 6e 61 6c 28 69 6e 74 65 72 70 2c 20 6e ternal(interp, n
1880: 65 77 4f 62 6a 63 2c 20 6e 65 77 4f 62 6a 76 2c ewObjc, newObjv,
1890: 20 63 6f 6d 6d 61 6e 64 2c 20 6c 65 6e 67 74 68 command, length
18a0: 2c 20 30 29 3b 0a 20 09 20 20 20 20 20 20 20 20 , 0);. .
18b0: 69 50 74 72 2d 3e 6e 75 6d 4c 65 76 65 6c 73 2d iPtr->numLevels-
18c0: 2d 3b 0a 20 09 20 20 20 20 7d 0a 20 09 20 20 20 -;. . }. .
18d0: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
18e0: 74 28 6e 65 77 4f 62 6a 76 5b 30 5d 29 3b 0a 49 t(newObjv[0]);.I
18f0: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
1900: 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d lInt.h.=========
1910: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1920: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1930: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1940: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1950: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1960: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1970: 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65 76 lInt.h,v.retriev
1980: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 ing revision 1.1
1990: 36 31 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 61.diff -u -r1.1
19a0: 36 31 20 74 63 6c 49 6e 74 2e 68 0a 2d 2d 2d 20 61 tclInt.h.---
19b0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 generic/tclInt.h
19c0: 09 32 30 20 4d 61 79 20 32 30 30 34 20 31 33 3a .20 May 2004 13:
19d0: 30 34 3a 31 31 20 2d 30 30 30 30 09 31 2e 31 36 04:11 -0000.1.16
19e0: 31 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 1.+++ generic/tc
19f0: 6c 49 6e 74 2e 68 09 32 31 20 4d 61 79 20 32 30 lInt.h.21 May 20
1a00: 30 34 20 32 30 3a 31 32 3a 31 38 20 2d 30 30 30 04 20:12:18 -000
1a10: 30 0a 40 40 20 2d 32 32 32 2c 36 20 2b 32 32 32 0.@@ -222,6 +222
1a20: 2c 39 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 45 ,9 @@. Tcl_E
1a30: 6e 73 65 6d 62 6c 65 20 2a 65 6e 73 65 6d 62 6c nsemble *ensembl
1a40: 65 73 3b 09 2f 2a 20 4c 69 73 74 20 6f 66 20 73 es;./* List of s
1a50: 74 72 75 63 74 75 72 65 73 20 74 68 61 74 20 63 tructures that c
1a60: 6f 6e 74 61 69 6e 20 74 68 65 20 64 65 74 61 69 ontain the detai
1a70: 6c 73 0a 20 09 09 09 09 20 2a 20 6f 66 20 74 68 ls. .... * of th
1a80: 65 20 65 6e 73 65 6d 62 6c 65 73 20 74 68 61 74 e ensembles that
1a90: 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 are implemented
1aa0: 20 6f 6e 0a 20 09 09 09 09 20 2a 20 74 6f 70 20 on. .... * top
1ab0: 6f 66 20 74 68 69 73 20 6e 61 6d 65 73 70 61 63 of this namespac
1ac0: 65 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f e. */.+ Tcl_O
1ad0: 62 6a 20 2a 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c bj *unknownHandl
1ae0: 65 72 50 74 72 3b 09 2f 2a 20 41 20 73 63 72 69 erPtr;./* A scri
1af0: 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f 20 62 pt fragment to b
1b00: 65 20 75 73 65 64 20 77 68 65 6e 20 63 6f 6d 6d e used when comm
1b10: 61 6e 64 0a 2b 09 09 09 09 20 2a 20 72 65 73 6f and.+.... * reso
1b20: 6c 75 74 69 6f 6e 20 69 6e 20 74 68 69 73 20 6e lution in this n
1b30: 61 6d 65 73 70 61 63 65 20 66 61 69 6c 73 2e 20 amespace fails.
1b40: 53 65 65 20 54 49 50 0a 2b 09 09 09 09 20 2a 20 See TIP.+.... *
1b50: 31 38 31 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 181 for details.
1b60: 20 2a 2f 0a 20 7d 20 4e 61 6d 65 73 70 61 63 65 */. } Namespace
1b70: 3b 0a 20 0a 20 2f 2a 0a 49 6e 64 65 78 3a 20 67 ;. . /*.Index: g
1b80: 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 70 eneric/tclNamesp
1b90: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .c.=============
1ba0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bd0: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a ======.RCS file:
1be0: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
1bf0: 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d l/generic/tclNam
1c00: 65 73 70 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 esp.c,v.retrievi
1c10: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 33 37 ng revision 1.37
1c20: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 33 37 20 .diff -u -r1.37
1c30: 74 63 6c 4e 61 6d 65 73 70 2e 63 0a 2d 2d 2d 20 tclNamesp.c.---
1c40: 67 65 6e 65 72 69 63 2f 74 63 6c 4e 61 6d 65 73 generic/tclNames
1c50: 70 2e 63 09 32 34 20 4d 61 72 20 32 30 30 34 20 p.c.24 Mar 2004
1c60: 32 31 3a 35 34 3a 33 32 20 2d 30 30 30 30 09 31 21:54:32 -0000.1
1c70: 2e 33 37 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f .37.+++ generic/
1c80: 74 63 6c 4e 61 6d 65 73 70 2e 63 09 32 31 20 4d tclNamesp.c.21 M
1c90: 61 79 20 32 30 30 34 20 32 30 3a 31 32 3a 33 30 ay 2004 20:12:30
1ca0: 20 2d 30 30 30 30 0a 40 40 20 2d 31 32 2c 36 20 -0000.@@ -12,6
1cb0: 2b 31 32 2c 37 20 40 40 0a 20 20 2a 20 43 6f 70 +12,7 @@. * Cop
1cc0: 79 72 69 67 68 74 20 28 63 29 20 31 39 39 37 20 yright (c) 1997
1cd0: 53 75 6e 20 4d 69 63 72 6f 73 79 73 74 65 6d 73 Sun Microsystems
1ce0: 2c 20 49 6e 63 2e 0a 20 20 2a 20 43 6f 70 79 72 , Inc.. * Copyr
1cf0: 69 67 68 74 20 28 63 29 20 31 39 39 38 2d 31 39 ight (c) 1998-19
1d00: 39 39 20 62 79 20 53 63 72 69 70 74 69 63 73 20 99 by Scriptics
1d10: 43 6f 72 70 6f 72 61 74 69 6f 6e 2e 0a 20 20 2a Corporation.. *
1d20: 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 Copyright (c) 2
1d30: 30 30 32 2d 32 30 30 33 20 44 6f 6e 61 6c 20 4b 002-2003 Donal K
1d40: 2e 20 46 65 6c 6c 6f 77 73 2e 0a 2b 20 2a 20 43 . Fellows..+ * C
1d50: 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 30 opyright (c) 200
1d60: 34 20 4e 65 69 6c 20 4d 61 64 64 65 6e 2e 0a 20 4 Neil Madden..
1d70: 20 2a 0a 20 20 2a 20 4f 72 69 67 69 6e 61 6c 6c *. * Originall
1d80: 79 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 y implemented by
1d90: 0a 20 20 2a 20 20 20 4d 69 63 68 61 65 6c 20 4a . * Michael J
1da0: 2e 20 4d 63 4c 65 6e 6e 61 6e 0a 40 40 20 2d 32 . McLennan.@@ -2
1db0: 33 32 2c 36 20 2b 32 33 33 2c 39 20 40 40 0a 20 32,6 +233,9 @@.
1dc0: 73 74 61 74 69 63 20 69 6e 74 09 09 4e 61 6d 65 static int..Name
1dd0: 73 70 61 63 65 54 61 69 6c 43 6d 64 20 5f 41 4e spaceTailCmd _AN
1de0: 53 49 5f 41 52 47 53 5f 28 28 0a 20 09 09 09 20 SI_ARGS_((. ...
1df0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 64 75 ClientData du
1e00: 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 mmy, Tcl_Interp
1e10: 2a 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20 *interp,. ...
1e20: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
1e30: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
1e40: 29 29 3b 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 ));.+static int.
1e50: 09 4e 61 6d 65 73 70 61 63 65 55 6e 6b 6e 6f 77 .NamespaceUnknow
1e60: 6e 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f nCmd _ANSI_ARGS_
1e70: 28 28 0a 2b 09 09 09 20 20 20 20 43 6c 69 65 6e ((.+... Clien
1e80: 74 44 61 74 61 20 64 75 6d 6d 79 2c 20 54 63 6c tData dummy, Tcl
1e90: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1ea0: 0a 2b 09 09 09 20 20 20 20 69 6e 74 20 6f 62 6a .+... int obj
1eb0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 c, Tcl_Obj *CONS
1ec0: 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 20 73 74 61 T objv[]));. sta
1ed0: 74 69 63 20 69 6e 74 09 09 4e 61 6d 65 73 70 61 tic int..Namespa
1ee0: 63 65 57 68 69 63 68 43 6d 64 20 5f 41 4e 53 49 ceWhichCmd _ANSI
1ef0: 5f 41 52 47 53 5f 28 28 0a 20 09 09 09 20 20 20 _ARGS_((. ...
1f00: 20 43 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d ClientData dumm
1f10: 79 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 y, Tcl_Interp *i
1f20: 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20 20 69 nterp,. ... i
1f30: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
1f40: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 *CONST objv[]))
1f50: 3b 0a 40 40 20 2d 36 36 37 2c 36 20 2b 36 37 31 ;.@@ -667,6 +671
1f60: 2c 37 20 40 40 0a 20 20 20 20 20 6e 73 50 74 72 ,7 @@. nsPtr
1f70: 2d 3e 63 6f 6d 70 69 6c 65 64 56 61 72 52 65 73 ->compiledVarRes
1f80: 50 72 6f 63 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 Proc = NULL;.
1f90: 20 20 6e 73 50 74 72 2d 3e 65 78 70 6f 72 74 4c nsPtr->exportL
1fa0: 6f 6f 6b 75 70 45 70 6f 63 68 20 3d 20 30 3b 0a ookupEpoch = 0;.
1fb0: 20 20 20 20 20 6e 73 50 74 72 2d 3e 65 6e 73 65 nsPtr->ense
1fc0: 6d 62 6c 65 73 09 20 20 20 20 20 3d 20 4e 55 4c mbles. = NUL
1fd0: 4c 3b 0a 2b 20 20 20 20 6e 73 50 74 72 2d 3e 75 L;.+ nsPtr->u
1fe0: 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 72 50 74 72 nknownHandlerPtr
1ff0: 20 3d 20 4e 55 4c 4c 3b 0a 20 0a 20 20 20 20 20 = NULL;. .
2000: 69 66 20 28 70 61 72 65 6e 74 50 74 72 20 21 3d if (parentPtr !=
2010: 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 NULL) {.
2020: 20 20 65 6e 74 72 79 50 74 72 20 3d 20 54 63 6c entryPtr = Tcl
2030: 5f 43 72 65 61 74 65 48 61 73 68 45 6e 74 72 79 _CreateHashEntry
2040: 28 26 70 61 72 65 6e 74 50 74 72 2d 3e 63 68 69 (&parentPtr->chi
2050: 6c 64 54 61 62 6c 65 2c 20 73 69 6d 70 6c 65 4e ldTable, simpleN
2060: 61 6d 65 2c 0a 40 40 20 2d 37 35 36 2c 36 20 2b ame,.@@ -756,6 +
2070: 37 36 31 2c 31 34 20 40 40 0a 20 20 20 20 20 7d 761,14 @@. }
2080: 0a 20 0a 20 20 20 20 20 2f 2a 0a 2b 20 20 20 20 . . /*.+
2090: 20 2a 20 49 66 20 74 68 65 20 6e 61 6d 65 73 70 * If the namesp
20a0: 61 63 65 20 68 61 73 20 61 20 72 65 67 69 73 74 ace has a regist
20b0: 65 72 65 64 20 75 6e 6b 6e 6f 77 6e 20 68 61 6e ered unknown han
20c0: 64 6c 65 72 20 28 54 49 50 20 31 38 31 29 2c 20 dler (TIP 181),
20d0: 74 68 65 6e 20 66 72 65 65 0a 2b 20 20 20 20 20 then free.+
20e0: 2a 20 69 74 20 68 65 72 65 2e 0a 2b 20 20 20 20 * it here..+
20f0: 20 2a 2f 0a 2b 20 20 20 20 69 66 20 28 6e 73 50 */.+ if (nsP
2100: 74 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c tr->unknownHandl
2110: 65 72 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b erPtr != NULL) {
2120: 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f .+.Tcl_DecrRefCo
2130: 75 6e 74 28 6e 73 50 74 72 2d 3e 75 6e 6b 6e 6f unt(nsPtr->unkno
2140: 77 6e 48 61 6e 64 6c 65 72 50 74 72 29 3b 0a 2b wnHandlerPtr);.+
2150: 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a }.+.+ /*.
2160: 20 20 20 20 20 20 2a 20 49 66 20 74 68 65 20 6e * If the n
2170: 61 6d 65 73 70 61 63 65 20 69 73 20 6f 6e 20 74 amespace is on t
2180: 68 65 20 63 61 6c 6c 20 66 72 61 6d 65 20 73 74 he call frame st
2190: 61 63 6b 2c 20 69 74 20 69 73 20 6d 61 72 6b 65 ack, it is marke
21a0: 64 20 61 73 20 22 64 79 69 6e 67 22 0a 20 20 20 d as "dying".
21b0: 20 20 20 2a 20 28 4e 53 5f 44 59 49 4e 47 20 69 * (NS_DYING i
21c0: 73 20 4f 52 27 64 20 69 6e 74 6f 20 69 74 73 20 s OR'd into its
21d0: 66 6c 61 67 73 29 3a 20 74 68 65 20 6e 61 6d 65 flags): the name
21e0: 73 70 61 63 65 20 63 61 6e 27 74 20 62 65 20 6c space can't be l
21f0: 6f 6f 6b 65 64 20 75 70 0a 20 20 20 20 20 20 2a ooked up. *
2200: 20 62 79 20 6e 61 6d 65 20 62 75 74 20 69 74 73 by name but its
2210: 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 20 76 61 commands and va
2220: 72 69 61 62 6c 65 73 20 61 72 65 20 73 74 69 6c riables are stil
2230: 6c 20 75 73 61 62 6c 65 20 62 79 20 74 68 6f 73 l usable by thos
2240: 65 0a 40 40 20 2d 32 36 35 30 2c 31 33 20 2b 32 e.@@ -2650,13 +2
2250: 36 36 33 2c 31 33 20 40 40 0a 20 09 22 63 68 69 663,13 @@. ."chi
2260: 6c 64 72 65 6e 22 2c 20 22 63 6f 64 65 22 2c 20 ldren", "code",
2270: 22 63 75 72 72 65 6e 74 22 2c 20 22 64 65 6c 65 "current", "dele
2280: 74 65 22 2c 20 22 65 6e 73 65 6d 62 6c 65 22 2c te", "ensemble",
2290: 0a 20 09 22 65 76 61 6c 22 2c 20 22 65 78 69 73 . ."eval", "exis
22a0: 74 73 22 2c 20 22 65 78 70 6f 72 74 22 2c 20 22 ts", "export", "
22b0: 66 6f 72 67 65 74 22 2c 20 22 69 6d 70 6f 72 74 forget", "import
22c0: 22 2c 0a 20 09 22 69 6e 73 63 6f 70 65 22 2c 20 ",. ."inscope",
22d0: 22 6f 72 69 67 69 6e 22 2c 20 22 70 61 72 65 6e "origin", "paren
22e0: 74 22 2c 20 22 71 75 61 6c 69 66 69 65 72 73 22 t", "qualifiers"
22f0: 2c 0a 2d 09 22 74 61 69 6c 22 2c 20 22 77 68 69 ,.-."tail", "whi
2300: 63 68 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ch", (char *) NU
2310: 4c 4c 0a 2b 09 22 74 61 69 6c 22 2c 20 22 75 6e LL.+."tail", "un
2320: 6b 6e 6f 77 6e 22 2c 20 22 77 68 69 63 68 22 2c known", "which",
2330: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 0a 20 (char *) NULL.
2340: 20 20 20 20 7d 3b 0a 20 20 20 20 20 65 6e 75 6d };. enum
2350: 20 4e 53 53 75 62 43 6d 64 49 64 78 20 7b 0a 20 NSSubCmdIdx {.
2360: 09 4e 53 43 68 69 6c 64 72 65 6e 49 64 78 2c 20 .NSChildrenIdx,
2370: 4e 53 43 6f 64 65 49 64 78 2c 20 4e 53 43 75 72 NSCodeIdx, NSCur
2380: 72 65 6e 74 49 64 78 2c 20 4e 53 44 65 6c 65 74 rentIdx, NSDelet
2390: 65 49 64 78 2c 20 4e 53 45 6e 73 65 6d 62 6c 65 eIdx, NSEnsemble
23a0: 49 64 78 2c 0a 20 09 4e 53 45 76 61 6c 49 64 78 Idx,. .NSEvalIdx
23b0: 2c 20 4e 53 45 78 69 73 74 73 49 64 78 2c 20 4e , NSExistsIdx, N
23c0: 53 45 78 70 6f 72 74 49 64 78 2c 20 4e 53 46 6f SExportIdx, NSFo
23d0: 72 67 65 74 49 64 78 2c 20 4e 53 49 6d 70 6f 72 rgetIdx, NSImpor
23e0: 74 49 64 78 2c 0a 20 09 4e 53 49 6e 73 63 6f 70 tIdx,. .NSInscop
23f0: 65 49 64 78 2c 20 4e 53 4f 72 69 67 69 6e 49 64 eIdx, NSOriginId
2400: 78 2c 20 4e 53 50 61 72 65 6e 74 49 64 78 2c 20 x, NSParentIdx,
2410: 4e 53 51 75 61 6c 69 66 69 65 72 73 49 64 78 2c NSQualifiersIdx,
2420: 0a 2d 09 4e 53 54 61 69 6c 49 64 78 2c 20 4e 53 .-.NSTailIdx, NS
2430: 57 68 69 63 68 49 64 78 0a 2b 09 4e 53 54 61 69 WhichIdx.+.NSTai
2440: 6c 49 64 78 2c 20 4e 53 55 6e 6b 6e 6f 77 6e 49 lIdx, NSUnknownI
2450: 64 78 2c 20 4e 53 57 68 69 63 68 49 64 78 0a 20 dx, NSWhichIdx.
2460: 20 20 20 20 7d 3b 0a 20 20 20 20 20 69 6e 74 20 };. int
2470: 69 6e 64 65 78 2c 20 72 65 73 75 6c 74 3b 0a 20 index, result;.
2480: 0a 40 40 20 2d 32 37 32 31 2c 36 20 2b 32 37 33 .@@ -2721,6 +273
2490: 34 2c 39 20 40 40 0a 20 20 20 20 20 20 20 20 20 4,9 @@.
24a0: 63 61 73 65 20 4e 53 54 61 69 6c 49 64 78 3a 0a case NSTailIdx:.
24b0: 20 09 20 20 20 20 72 65 73 75 6c 74 20 3d 20 4e . result = N
24c0: 61 6d 65 73 70 61 63 65 54 61 69 6c 43 6d 64 28 amespaceTailCmd(
24d0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 clientData, inte
24e0: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b rp, objc, objv);
24f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 . br
2500: 65 61 6b 3b 0a 2b 09 63 61 73 65 20 4e 53 55 6e eak;.+.case NSUn
2510: 6b 6e 6f 77 6e 49 64 78 3a 0a 2b 09 20 20 20 20 knownIdx:.+.
2520: 72 65 73 75 6c 74 20 3d 20 4e 61 6d 65 73 70 61 result = Namespa
2530: 63 65 55 6e 6b 6e 6f 77 6e 43 6d 64 28 63 6c 69 ceUnknownCmd(cli
2540: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c entData, interp,
2550: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 2b 09 objc, objv);.+.
2560: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
2570: 20 20 20 20 63 61 73 65 20 4e 53 57 68 69 63 68 case NSWhich
2580: 49 64 78 3a 0a 20 09 20 20 20 20 72 65 73 75 6c Idx:. . resul
2590: 74 20 3d 20 4e 61 6d 65 73 70 61 63 65 57 68 69 t = NamespaceWhi
25a0: 63 68 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 chCmd(clientData
25b0: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
25c0: 6f 62 6a 76 29 3b 0a 20 20 20 20 20 20 20 20 20 objv);.
25d0: 20 20 20 20 62 72 65 61 6b 3b 0a 40 40 20 2d 33 break;.@@ -3
25e0: 37 38 31 2c 36 20 2b 33 37 39 37 2c 39 34 20 40 781,6 +3797,94 @
25f0: 40 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d @. /*. *-------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2640: 20 20 2a 0a 2b 20 2a 20 4e 61 6d 65 73 70 61 63 *.+ * Namespac
2650: 65 55 6e 6b 6e 6f 77 6e 43 6d 64 20 2d 2d 0a 2b eUnknownCmd --.+
2660: 20 2a 0a 2b 20 2a 09 49 6e 76 6f 6b 65 64 20 74 *.+ *.Invoked t
2670: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 o implement the
2680: 22 6e 61 6d 65 73 70 61 63 65 20 75 6e 6b 6e 6f "namespace unkno
2690: 77 6e 22 20 63 6f 6d 6d 61 6e 64 20 28 54 49 50 wn" command (TIP
26a0: 20 31 38 31 29 20 74 68 61 74 0a 2b 20 2a 09 73 181) that.+ *.s
26b0: 65 74 73 20 6f 72 20 71 75 65 72 69 65 73 20 61 ets or queries a
26c0: 20 70 65 72 2d 6e 61 6d 65 73 70 61 63 65 20 75 per-namespace u
26d0: 6e 6b 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 20 68 nknown command h
26e0: 61 6e 64 6c 65 72 2e 20 54 68 69 73 20 68 61 6e andler. This han
26f0: 64 6c 65 72 0a 2b 20 2a 09 69 73 20 63 61 6c 6c dler.+ *.is call
2700: 65 64 20 77 68 65 6e 20 63 6f 6d 6d 61 6e 64 20 ed when command
2710: 6c 6f 6f 6b 75 70 20 69 6e 20 74 68 65 20 63 75 lookup in the cu
2720: 72 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 65 20 rrent namespace
2730: 66 61 69 6c 73 2e 20 54 68 65 0a 2b 20 2a 09 64 fails. The.+ *.d
2740: 65 66 61 75 6c 74 20 68 61 6e 64 6c 65 72 20 66 efault handler f
2750: 6f 72 20 6e 61 6d 65 73 70 61 63 65 73 20 28 68 or namespaces (h
2760: 61 72 64 2d 63 6f 64 65 64 20 69 6e 74 6f 20 54 ard-coded into T
2770: 63 6c 45 76 61 6c 4f 62 6a 76 49 6e 74 65 72 6e clEvalObjvIntern
2780: 61 6c 29 0a 2b 20 2a 09 73 69 6d 70 6c 79 20 73 al).+ *.simply s
2790: 65 61 72 63 68 65 73 20 74 68 65 20 67 6c 6f 62 earches the glob
27a0: 61 6c 20 6e 61 6d 65 73 70 61 63 65 2e 20 54 68 al namespace. Th
27b0: 65 20 64 65 66 61 75 6c 74 20 68 61 6e 64 6c 65 e default handle
27c0: 72 20 66 6f 72 20 74 68 65 0a 2b 20 2a 09 67 6c r for the.+ *.gl
27d0: 6f 62 61 6c 20 6e 61 6d 65 73 70 61 63 65 20 63 obal namespace c
27e0: 61 6c 6c 73 20 61 20 63 6f 6d 6d 61 6e 64 20 6e alls a command n
27f0: 61 6d 65 64 20 22 3a 3a 75 6e 6b 6e 6f 77 6e 22 amed "::unknown"
2800: 2e 20 54 68 69 73 20 62 65 68 61 76 69 6f 75 72 . This behaviour
2810: 20 69 73 0a 2b 20 2a 09 66 75 6c 6c 79 20 62 61 is.+ *.fully ba
2820: 63 6b 77 61 72 64 73 2d 63 6f 6d 70 61 74 69 62 ckwards-compatib
2830: 6c 65 20 77 69 74 68 20 54 63 6c 20 70 72 65 2d le with Tcl pre-
2840: 54 49 50 2d 31 38 31 2e 20 48 61 6e 64 6c 65 73 TIP-181. Handles
2850: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 2b the following.+
2860: 20 2a 09 73 79 6e 74 61 78 3a 0a 2b 20 2a 0a 2b *.syntax:.+ *.+
2870: 20 2a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 *. namespace
2880: 20 75 6e 6b 6e 6f 77 6e 20 3f 68 61 6e 64 6c 65 unknown ?handle
2890: 72 3f 0a 2b 20 2a 0a 2b 20 2a 20 52 65 73 75 6c r?.+ *.+ * Resul
28a0: 74 73 3a 0a 2b 20 2a 09 52 65 74 75 72 6e 73 20 ts:.+ *.Returns
28b0: 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 TCL_OK if succes
28c0: 73 66 75 6c 2c 20 61 6e 64 20 54 43 4c 5f 45 52 sful, and TCL_ER
28d0: 52 4f 52 20 69 66 20 61 6e 79 74 68 69 6e 67 20 ROR if anything
28e0: 67 6f 65 73 20 77 72 6f 6e 67 2e 0a 2b 20 2a 0a goes wrong..+ *.
28f0: 2b 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 + * Side effects
2900: 3a 0a 2b 20 2a 09 49 66 20 6e 6f 20 68 61 6e 64 :.+ *.If no hand
2910: 6c 65 72 20 69 73 20 73 70 65 63 69 66 69 65 64 ler is specified
2920: 2c 20 72 65 74 75 72 6e 73 20 61 20 72 65 73 75 , returns a resu
2930: 6c 74 20 69 6e 20 74 68 65 20 69 6e 74 65 72 70 lt in the interp
2940: 72 65 74 65 72 27 73 0a 2b 20 2a 09 72 65 73 75 reter's.+ *.resu
2950: 6c 74 20 6f 62 6a 65 63 74 2c 20 6f 74 68 65 72 lt object, other
2960: 77 69 73 65 20 69 74 20 73 65 74 73 20 74 68 65 wise it sets the
2970: 20 75 6e 6b 6e 6f 77 6e 20 68 61 6e 64 6c 65 72 unknown handler
2980: 20 70 6f 69 6e 74 65 72 20 69 6e 20 74 68 65 0a pointer in the.
2990: 2b 20 2a 09 63 75 72 72 65 6e 74 20 6e 61 6d 65 + *.current name
29a0: 73 70 61 63 65 20 74 6f 20 74 68 65 20 73 63 72 space to the scr
29b0: 69 70 74 20 66 72 61 67 6d 65 6e 74 20 70 72 6f ipt fragment pro
29c0: 76 69 64 65 64 2e 20 49 66 20 61 6e 79 74 68 69 vided. If anythi
29d0: 6e 67 20 67 6f 65 73 0a 2b 20 2a 09 77 72 6f 6e ng goes.+ *.wron
29e0: 67 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 g, the result is
29f0: 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 an error messag
2a00: 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d 2d 2d 2d e..+ *.+ *------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a50: 0a 2b 20 2a 2f 0a 2b 73 74 61 74 69 63 20 69 6e .+ */.+static in
2a60: 74 0a 2b 4e 61 6d 65 73 70 61 63 65 55 6e 6b 6e t.+NamespaceUnkn
2a70: 6f 77 6e 43 6d 64 28 64 75 6d 6d 79 2c 20 69 6e ownCmd(dummy, in
2a80: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
2a90: 29 0a 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 ).+ ClientDat
2aa0: 61 20 64 75 6d 6d 79 3b 09 09 2f 2a 20 4e 6f 74 a dummy;../* Not
2ab0: 20 75 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 used. */.+ T
2ac0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
2ad0: 70 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 p;../* Current i
2ae0: 6e 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b nterpreter. */.+
2af0: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 09 09 09 int objc;...
2b00: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 /* Number of arg
2b10: 75 6d 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 uments. */.+
2b20: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
2b30: 62 6a 76 5b 5d 3b 09 2f 2a 20 41 72 67 75 6d 65 bjv[];./* Argume
2b40: 6e 74 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b nt objects. */.+
2b50: 7b 0a 2b 20 20 20 20 4e 61 6d 65 73 70 61 63 65 {.+ Namespace
2b60: 20 2a 63 75 72 72 4e 73 50 74 72 3b 0a 2b 20 20 *currNsPtr;.+
2b70: 20 20 54 63 6c 5f 4f 62 6a 20 2a 68 61 6e 64 6c Tcl_Obj *handl
2b80: 65 72 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 69 66 erPtr;.+.+ if
2b90: 20 28 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 2b 09 (objc > 3) {.+.
2ba0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
2bb0: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 (interp, 2, objv
2bc0: 2c 20 22 3f 73 63 72 69 70 74 3f 22 29 3b 0a 2b , "?script?");.+
2bd0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 return T
2be0: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
2bf0: 0a 2b 0a 2b 20 20 20 20 63 75 72 72 4e 73 50 74 .+.+ currNsPt
2c00: 72 20 3d 20 28 4e 61 6d 65 73 70 61 63 65 20 2a r = (Namespace *
2c10: 29 20 54 63 6c 5f 47 65 74 43 75 72 72 65 6e 74 ) Tcl_GetCurrent
2c20: 4e 61 6d 65 73 70 61 63 65 28 69 6e 74 65 72 70 Namespace(interp
2c30: 29 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 6f 62 );.+.+ if (ob
2c40: 6a 63 20 3d 3d 20 32 29 20 7b 0a 2b 09 2f 2a 0a jc == 2) {.+./*.
2c50: 2b 09 20 2a 20 49 6e 74 72 6f 73 70 65 63 74 69 +. * Introspecti
2c60: 6f 6e 20 2d 20 72 65 74 75 72 6e 20 74 68 65 20 on - return the
2c70: 63 75 72 72 65 6e 74 20 6e 61 6d 65 73 70 61 63 current namespac
2c80: 65 20 68 61 6e 64 6c 65 72 2e 0a 2b 09 20 2a 2f e handler..+. */
2c90: 0a 2b 09 20 69 66 20 28 63 75 72 72 4e 73 50 74 .+. if (currNsPt
2ca0: 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 r->unknownHandle
2cb0: 72 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a rPtr != NULL) {.
2cc0: 2b 09 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 +. Tcl_SetOb
2cd0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
2ce0: 63 75 72 72 4e 73 50 74 72 2d 3e 75 6e 6b 6e 6f currNsPtr->unkno
2cf0: 77 6e 48 61 6e 64 6c 65 72 50 74 72 29 3b 0a 2b wnHandlerPtr);.+
2d00: 09 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20 . } else {.+.
2d10: 20 20 2f 2a 0a 2b 09 20 20 20 20 20 20 2a 20 44 /*.+. * D
2d20: 65 66 61 75 6c 74 20 75 6e 6b 6e 6f 77 6e 20 68 efault unknown h
2d30: 61 6e 64 6c 65 72 20 66 6f 72 20 61 6e 79 20 6e andler for any n
2d40: 73 20 69 73 20 3a 3a 75 6e 6b 6e 6f 77 6e 2e 20 s is ::unknown.
2d50: 43 61 63 68 65 20 74 68 65 0a 2b 09 20 20 20 20 Cache the.+.
2d60: 20 20 2a 20 72 65 73 75 6c 74 20 28 6d 61 79 20 * result (may
2d70: 61 73 20 77 65 6c 6c 29 2e 0a 2b 09 20 20 20 20 as well)..+.
2d80: 20 20 2a 2f 0a 2b 09 20 20 20 20 20 20 68 61 6e */.+. han
2d90: 64 6c 65 72 50 74 72 20 3d 20 54 63 6c 5f 4e 65 dlerPtr = Tcl_Ne
2da0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 3a 3a 75 6e wStringObj("::un
2db0: 6b 6e 6f 77 6e 22 2c 20 2d 31 29 3b 0a 2b 09 20 known", -1);.+.
2dc0: 20 20 20 20 20 63 75 72 72 4e 73 50 74 72 2d 3e currNsPtr->
2dd0: 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 72 50 74 unknownHandlerPt
2de0: 72 20 3d 20 68 61 6e 64 6c 65 72 50 74 72 3b 0a r = handlerPtr;.
2df0: 2b 09 20 20 20 20 20 20 54 63 6c 5f 49 6e 63 72 +. Tcl_Incr
2e00: 52 65 66 43 6f 75 6e 74 28 68 61 6e 64 6c 65 72 RefCount(handler
2e10: 50 74 72 29 3b 0a 2b 09 20 20 20 20 20 20 54 63 Ptr);.+. Tc
2e20: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
2e30: 6e 74 65 72 70 2c 20 68 61 6e 64 6c 65 72 50 74 nterp, handlerPt
2e40: 72 29 3b 0a 2b 09 20 7d 0a 2b 20 20 20 20 7d 20 r);.+. }.+ }
2e50: 65 6c 73 65 20 7b 0a 2b 09 2f 2a 0a 2b 09 20 2a else {.+./*.+. *
2e60: 20 53 65 74 20 74 68 65 20 6e 61 6d 65 73 70 61 Set the namespa
2e70: 63 65 20 68 61 6e 64 6c 65 72 2e 0a 2b 09 20 2a ce handler..+. *
2e80: 2f 0a 2b 09 20 69 66 20 28 63 75 72 72 4e 73 50 /.+. if (currNsP
2e90: 74 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c tr->unknownHandl
2ea0: 65 72 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b erPtr != NULL) {
2eb0: 0a 2b 09 20 20 20 20 20 2f 2a 20 52 65 6d 6f 76 .+. /* Remov
2ec0: 65 20 6f 6c 64 20 68 61 6e 64 6c 65 72 20 66 69 e old handler fi
2ed0: 72 73 74 2e 20 2a 2f 0a 2b 09 20 20 20 20 20 54 rst. */.+. T
2ee0: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
2ef0: 63 75 72 72 4e 73 50 74 72 2d 3e 75 6e 6b 6e 6f currNsPtr->unkno
2f00: 77 6e 48 61 6e 64 6c 65 72 50 74 72 29 3b 0a 2b wnHandlerPtr);.+
2f10: 09 20 7d 0a 2b 09 20 2f 2a 0a 2b 09 20 20 2a 20 . }.+. /*.+. *
2f20: 49 66 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 If the empty str
2f30: 69 6e 67 20 69 73 20 70 61 73 73 65 64 2c 20 74 ing is passed, t
2f40: 68 65 6e 20 73 69 6d 70 6c 79 20 72 65 76 65 72 hen simply rever
2f50: 74 20 74 6f 20 74 68 65 20 64 65 66 61 75 6c 74 t to the default
2f60: 0a 2b 09 20 20 2a 20 68 61 6e 64 6c 65 72 2e 0a .+. * handler..
2f70: 2b 09 20 20 2a 2f 0a 2b 09 20 69 66 20 28 54 63 +. */.+. if (Tc
2f80: 6c 5f 47 65 74 43 68 61 72 4c 65 6e 67 74 68 28 l_GetCharLength(
2f90: 6f 62 6a 76 5b 32 5d 29 20 3d 3d 20 30 29 20 7b objv[2]) == 0) {
2fa0: 0a 2b 09 20 20 20 20 20 63 75 72 72 4e 73 50 74 .+. currNsPt
2fb0: 72 2d 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 r->unknownHandle
2fc0: 72 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 20 rPtr = NULL;.+.
2fd0: 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 20 } else {.+.
2fe0: 2f 2a 20 0a 2b 09 20 20 20 20 20 20 2a 20 49 6e /* .+. * In
2ff0: 63 72 65 6d 65 6e 74 20 72 65 66 20 63 6f 75 6e crement ref coun
3000: 74 20 61 6e 64 20 73 74 6f 72 65 2e 20 54 68 65 t and store. The
3010: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
3020: 20 69 73 20 0a 2b 09 20 20 20 20 20 20 2a 20 64 is .+. * d
3030: 65 63 72 65 6d 65 6e 74 65 64 20 65 69 74 68 65 ecremented eithe
3040: 72 20 69 6e 20 74 68 65 20 63 6f 64 65 20 61 62 r in the code ab
3050: 6f 76 65 2c 20 6f 72 20 77 68 65 6e 20 74 68 65 ove, or when the
3060: 20 6e 61 6d 65 73 70 61 63 65 20 0a 2b 09 20 20 namespace .+.
3070: 20 20 20 20 2a 20 69 73 20 64 65 6c 65 74 65 64 * is deleted
3080: 2e 0a 2b 09 20 20 20 20 20 20 2a 2f 0a 2b 09 20 ..+. */.+.
3090: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
30a0: 6f 75 6e 74 28 6f 62 6a 76 5b 32 5d 29 3b 0a 2b ount(objv[2]);.+
30b0: 09 20 20 20 20 20 63 75 72 72 4e 73 50 74 72 2d . currNsPtr-
30c0: 3e 75 6e 6b 6e 6f 77 6e 48 61 6e 64 6c 65 72 50 >unknownHandlerP
30d0: 74 72 20 3d 20 6f 62 6a 76 5b 32 5d 3b 0a 2b 09 tr = objv[2];.+.
30e0: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 Tcl_SetObjR
30f0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 esult(interp, ob
3100: 6a 76 5b 32 5d 29 3b 0a 2b 09 7d 0a 2b 20 20 20 jv[2]);.+.}.+
3110: 20 7d 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 54 }.+ return T
3120: 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a CL_OK;.+}.+..+/*
3130: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 20 ----------.+ *.
3180: 20 2a 20 4e 61 6d 65 73 70 61 63 65 54 61 69 6c * NamespaceTail
3190: 43 6d 64 20 2d 2d 0a 20 20 2a 0a 20 20 2a 09 49 Cmd --. *. *.I
31a0: 6e 76 6f 6b 65 64 20 74 6f 20 69 6d 70 6c 65 6d nvoked to implem
31b0: 65 6e 74 20 74 68 65 20 22 6e 61 6d 65 73 70 61 ent the "namespa
31c0: 63 65 20 74 61 69 6c 22 20 63 6f 6d 6d 61 6e 64 ce tail" command
31d0: 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 that returns th
31e0: 65 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 6e e.Index: tests/n
31f0: 61 6d 65 73 70 61 63 65 2e 74 65 73 74 0a 3d 3d amespace.test.==
3200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3220: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3240: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
3250: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 root/tcl/tcl/tes
3260: 74 73 2f 6e 61 6d 65 73 70 61 63 65 2e 74 65 73 ts/namespace.tes
3270: 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 t,v.retrieving r
3280: 65 76 69 73 69 6f 6e 20 31 2e 32 34 0a 64 69 66 evision 1.24.dif
3290: 66 20 2d 75 20 2d 72 31 2e 32 34 20 6e 61 6d 65 f -u -r1.24 name
32a0: 73 70 61 63 65 2e 74 65 73 74 0a 2d 2d 2d 20 74 space.test.--- t
32b0: 65 73 74 73 2f 6e 61 6d 65 73 70 61 63 65 2e 74 ests/namespace.t
32c0: 65 73 74 09 32 34 20 4d 61 72 20 32 30 30 34 20 est.24 Mar 2004
32d0: 32 31 3a 35 34 3a 33 32 20 2d 30 30 30 30 09 31 21:54:32 -0000.1
32e0: 2e 32 34 0a 2b 2b 2b 20 74 65 73 74 73 2f 6e 61 .24.+++ tests/na
32f0: 6d 65 73 70 61 63 65 2e 74 65 73 74 09 32 31 20 mespace.test.21
3300: 4d 61 79 20 32 30 30 34 20 32 30 3a 31 32 3a 34 May 2004 20:12:4
3310: 32 20 2d 30 30 30 30 0a 40 40 20 2d 36 34 31 2c 2 -0000.@@ -641,
3320: 37 20 2b 36 34 31 2c 37 20 40 40 0a 20 7d 20 7b 7 +641,7 @@. } {
3330: 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 1 {wrong # args:
3340: 20 73 68 6f 75 6c 64 20 62 65 20 22 6e 61 6d 65 should be "name
3350: 73 70 61 63 65 20 73 75 62 63 6f 6d 6d 61 6e 64 space subcommand
3360: 20 3f 61 72 67 20 2e 2e 2e 3f 22 7d 7d 0a 20 74 ?arg ...?"}}. t
3370: 65 73 74 20 6e 61 6d 65 73 70 61 63 65 2d 32 30 est namespace-20
3380: 2e 32 20 7b 54 63 6c 5f 4e 61 6d 65 73 70 61 63 .2 {Tcl_Namespac
3390: 65 4f 62 6a 43 6d 64 2c 20 62 61 64 20 73 75 62 eObjCmd, bad sub
33a0: 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 20 20 20 20 20 command} {.
33b0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 6e 61 6d list [catch {nam
33c0: 65 73 70 61 63 65 20 77 6f 6d 62 61 74 20 7b 7d espace wombat {}
33d0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2d 7d 20 7b } msg] $msg.-} {
33e0: 31 20 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 77 1 {bad option "w
33f0: 6f 6d 62 61 74 22 3a 20 6d 75 73 74 20 62 65 20 ombat": must be
3400: 63 68 69 6c 64 72 65 6e 2c 20 63 6f 64 65 2c 20 children, code,
3410: 63 75 72 72 65 6e 74 2c 20 64 65 6c 65 74 65 2c current, delete,
3420: 20 65 6e 73 65 6d 62 6c 65 2c 20 65 76 61 6c 2c ensemble, eval,
3430: 20 65 78 69 73 74 73 2c 20 65 78 70 6f 72 74 2c exists, export,
3440: 20 66 6f 72 67 65 74 2c 20 69 6d 70 6f 72 74 2c forget, import,
3450: 20 69 6e 73 63 6f 70 65 2c 20 6f 72 69 67 69 6e inscope, origin
3460: 2c 20 70 61 72 65 6e 74 2c 20 71 75 61 6c 69 66 , parent, qualif
3470: 69 65 72 73 2c 20 74 61 69 6c 2c 20 6f 72 20 77 iers, tail, or w
3480: 68 69 63 68 7d 7d 0a 2b 7d 20 7b 31 20 7b 62 61 hich}}.+} {1 {ba
3490: 64 20 6f 70 74 69 6f 6e 20 22 77 6f 6d 62 61 74 d option "wombat
34a0: 22 3a 20 6d 75 73 74 20 62 65 20 63 68 69 6c 64 ": must be child
34b0: 72 65 6e 2c 20 63 6f 64 65 2c 20 63 75 72 72 65 ren, code, curre
34c0: 6e 74 2c 20 64 65 6c 65 74 65 2c 20 65 6e 73 65 nt, delete, ense
34d0: 6d 62 6c 65 2c 20 65 76 61 6c 2c 20 65 78 69 73 mble, eval, exis
34e0: 74 73 2c 20 65 78 70 6f 72 74 2c 20 66 6f 72 67 ts, export, forg
34f0: 65 74 2c 20 69 6d 70 6f 72 74 2c 20 69 6e 73 63 et, import, insc
3500: 6f 70 65 2c 20 6f 72 69 67 69 6e 2c 20 70 61 72 ope, origin, par
3510: 65 6e 74 2c 20 71 75 61 6c 69 66 69 65 72 73 2c ent, qualifiers,
3520: 20 74 61 69 6c 2c 20 75 6e 6b 6e 6f 77 6e 2c 20 tail, unknown,
3530: 6f 72 20 77 68 69 63 68 7d 7d 0a 20 74 65 73 74 or which}}. test
3540: 20 6e 61 6d 65 73 70 61 63 65 2d 32 30 2e 33 20 namespace-20.3
3550: 7b 54 63 6c 5f 4e 61 6d 65 73 70 61 63 65 4f 62 {Tcl_NamespaceOb
3560: 6a 43 6d 64 2c 20 61 62 62 72 65 76 69 61 74 69 jCmd, abbreviati
3570: 6f 6e 73 20 61 72 65 20 6f 6b 61 79 7d 20 7b 0a ons are okay} {.
3580: 20 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 63 namespace c
3590: 68 20 3a 3a 20 74 65 73 74 5f 6e 73 5f 2a 0a 20 h :: test_ns_*.
35a0: 7d 20 7b 7d 0a 40 40 20 2d 37 34 38 2c 37 20 2b } {}.@@ -748,7 +
35b0: 37 34 38 2c 37 20 40 40 0a 20 7d 20 7b 31 20 7b 748,7 @@. } {1 {
35c0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
35d0: 6f 75 6c 64 20 62 65 20 22 6e 61 6d 65 73 70 61 ould be "namespa
35e0: 63 65 20 65 76 61 6c 20 6e 61 6d 65 20 61 72 67 ce eval name arg
35f0: 20 3f 61 72 67 2e 2e 2e 3f 22 7d 7d 0a 20 74 65 ?arg...?"}}. te
3600: 73 74 20 6e 61 6d 65 73 70 61 63 65 2d 32 35 2e st namespace-25.
3610: 32 20 7b 4e 61 6d 65 73 70 61 63 65 45 76 61 6c 2 {NamespaceEval
3620: 43 6d 64 2c 20 62 61 64 20 61 72 67 73 7d 20 7b Cmd, bad args} {
3630: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
3640: 68 20 7b 6e 61 6d 65 73 70 61 63 65 20 74 65 73 h {namespace tes
3650: 74 5f 6e 73 5f 31 7d 20 6d 73 67 5d 20 24 6d 73 t_ns_1} msg] $ms
3660: 67 0a 2d 7d 20 7b 31 20 7b 62 61 64 20 6f 70 74 g.-} {1 {bad opt
3670: 69 6f 6e 20 22 74 65 73 74 5f 6e 73 5f 31 22 3a ion "test_ns_1":
3680: 20 6d 75 73 74 20 62 65 20 63 68 69 6c 64 72 65 must be childre
3690: 6e 2c 20 63 6f 64 65 2c 20 63 75 72 72 65 6e 74 n, code, current
36a0: 2c 20 64 65 6c 65 74 65 2c 20 65 6e 73 65 6d 62 , delete, ensemb
36b0: 6c 65 2c 20 65 76 61 6c 2c 20 65 78 69 73 74 73 le, eval, exists
36c0: 2c 20 65 78 70 6f 72 74 2c 20 66 6f 72 67 65 74 , export, forget
36d0: 2c 20 69 6d 70 6f 72 74 2c 20 69 6e 73 63 6f 70 , import, inscop
36e0: 65 2c 20 6f 72 69 67 69 6e 2c 20 70 61 72 65 6e e, origin, paren
36f0: 74 2c 20 71 75 61 6c 69 66 69 65 72 73 2c 20 74 t, qualifiers, t
3700: 61 69 6c 2c 20 6f 72 20 77 68 69 63 68 7d 7d 0a ail, or which}}.
3710: 2b 7d 20 7b 31 20 7b 62 61 64 20 6f 70 74 69 6f +} {1 {bad optio
3720: 6e 20 22 74 65 73 74 5f 6e 73 5f 31 22 3a 20 6d n "test_ns_1": m
3730: 75 73 74 20 62 65 20 63 68 69 6c 64 72 65 6e 2c ust be children,
3740: 20 63 6f 64 65 2c 20 63 75 72 72 65 6e 74 2c 20 code, current,
3750: 64 65 6c 65 74 65 2c 20 65 6e 73 65 6d 62 6c 65 delete, ensemble
3760: 2c 20 65 76 61 6c 2c 20 65 78 69 73 74 73 2c 20 , eval, exists,
3770: 65 78 70 6f 72 74 2c 20 66 6f 72 67 65 74 2c 20 export, forget,
3780: 69 6d 70 6f 72 74 2c 20 69 6e 73 63 6f 70 65 2c import, inscope,
3790: 20 6f 72 69 67 69 6e 2c 20 70 61 72 65 6e 74 2c origin, parent,
37a0: 20 71 75 61 6c 69 66 69 65 72 73 2c 20 74 61 69 qualifiers, tai
37b0: 6c 2c 20 75 6e 6b 6e 6f 77 6e 2c 20 6f 72 20 77 l, unknown, or w
37c0: 68 69 63 68 7d 7d 0a 20 63 61 74 63 68 20 7b 75 hich}}. catch {u
37d0: 6e 73 65 74 20 76 7d 0a 20 74 65 73 74 20 6e 61 nset v}. test na
37e0: 6d 65 73 70 61 63 65 2d 32 35 2e 33 20 7b 4e 61 mespace-25.3 {Na
37f0: 6d 65 73 70 61 63 65 45 76 61 6c 43 6d 64 2c 20 mespaceEvalCmd,
3800: 6e 65 77 20 6e 61 6d 65 73 70 61 63 65 7d 20 7b new namespace} {
3810: 0a 20 20 20 20 20 73 65 74 20 76 20 31 32 33 0a . set v 123.
3820: 40 40 20 2d 31 36 33 34 2c 36 20 2b 31 36 33 34 @@ -1634,6 +1634
3830: 2c 37 37 20 40 40 0a 20 20 20 20 20 77 68 69 6c ,77 @@. whil
3840: 65 20 70 61 72 73 69 6e 67 20 72 65 73 75 6c 74 e parsing result
3850: 20 6f 66 20 65 6e 73 65 6d 62 6c 65 20 75 6e 6b of ensemble unk
3860: 6e 6f 77 6e 20 73 75 62 63 6f 6d 6d 61 6e 64 20 nown subcommand
3870: 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 69 6e 76 handler. inv
3880: 6f 6b 65 64 20 66 72 6f 6d 20 77 69 74 68 69 6e oked from within
3890: 0a 20 22 66 6f 6f 20 62 61 72 22 7d 7d 0a 2b 23 . "foo bar"}}.+#
38a0: 20 54 49 50 20 31 38 31 20 2d 20 6e 61 6d 65 73 TIP 181 - names
38b0: 70 61 63 65 20 75 6e 6b 6e 6f 77 6e 20 74 65 73 pace unknown tes
38c0: 74 73 0a 2b 74 65 73 74 20 6e 61 6d 65 73 70 61 ts.+test namespa
38d0: 63 65 2d 34 38 2e 31 20 7b 75 6e 6b 6e 6f 77 6e ce-48.1 {unknown
38e0: 3a 20 64 65 66 61 75 6c 74 20 68 61 6e 64 6c 65 : default handle
38f0: 72 20 3a 3a 75 6e 6b 6e 6f 77 6e 7d 20 7b 0a 2b r ::unknown} {.+
3900: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b set result [
3910: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 66 namespace eval f
3920: 6f 6f 62 61 72 20 7b 20 6e 61 6d 65 73 70 61 63 oobar { namespac
3930: 65 20 75 6e 6b 6e 6f 77 6e 20 7d 5d 0a 2b 20 20 e unknown }].+
3940: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 lappend result
3950: 20 5b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c [namespace eval
3960: 20 3a 3a 20 7b 20 6e 61 6d 65 73 70 61 63 65 20 :: { namespace
3970: 75 6e 6b 6e 6f 77 6e 20 7d 5d 0a 2b 20 20 20 20 unknown }].+
3980: 6e 61 6d 65 73 70 61 63 65 20 64 65 6c 65 74 65 namespace delete
3990: 20 66 6f 6f 62 61 72 0a 2b 20 20 20 20 73 65 74 foobar.+ set
39a0: 20 72 65 73 75 6c 74 0a 2b 7d 20 7b 3a 3a 75 6e result.+} {::un
39b0: 6b 6e 6f 77 6e 20 3a 3a 75 6e 6b 6e 6f 77 6e 7d known ::unknown}
39c0: 0a 2b 74 65 73 74 20 6e 61 6d 65 73 70 61 63 65 .+test namespace
39d0: 2d 34 38 2e 32 20 7b 75 6e 6b 6e 6f 77 6e 3a 20 -48.2 {unknown:
39e0: 64 65 66 61 75 6c 74 20 72 65 73 6f 6c 75 74 69 default resoluti
39f0: 6f 6e 20 67 6c 6f 62 61 6c 7d 20 7b 0a 2b 20 20 on global} {.+
3a00: 20 20 70 72 6f 63 20 3a 3a 66 6f 6f 20 7b 7d 20 proc ::foo {}
3a10: 7b 20 72 65 74 75 72 6e 20 22 47 4c 4f 42 41 4c { return "GLOBAL
3a20: 22 20 7d 0a 2b 20 20 20 20 6e 61 6d 65 73 70 61 " }.+ namespa
3a30: 63 65 20 65 76 61 6c 20 3a 3a 62 61 72 20 7b 20 ce eval ::bar {
3a40: 70 72 6f 63 20 66 6f 6f 20 7b 7d 20 7b 20 72 65 proc foo {} { re
3a50: 74 75 72 6e 20 22 4e 41 4d 45 53 50 41 43 45 22 turn "NAMESPACE"
3a60: 20 7d 20 7d 0a 2b 20 20 20 20 6e 61 6d 65 73 70 } }.+ namesp
3a70: 61 63 65 20 65 76 61 6c 20 3a 3a 62 61 72 3a 3a ace eval ::bar::
3a80: 6a 69 6d 20 7b 20 70 72 6f 63 20 74 65 73 74 20 jim { proc test
3a90: 7b 7d 20 7b 20 66 6f 6f 20 7d 20 7d 0a 2b 20 20 {} { foo } }.+
3aa0: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 3a 3a set result [::
3ab0: 62 61 72 3a 3a 6a 69 6d 3a 3a 74 65 73 74 5d 0a bar::jim::test].
3ac0: 2b 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 64 + namespace d
3ad0: 65 6c 65 74 65 20 3a 3a 62 61 72 0a 2b 20 20 20 elete ::bar.+
3ae0: 20 72 65 6e 61 6d 65 20 3a 3a 66 6f 6f 20 7b 7d rename ::foo {}
3af0: 0a 2b 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 .+ set result
3b00: 0a 2b 7d 20 7b 47 4c 4f 42 41 4c 7d 0a 2b 74 65 .+} {GLOBAL}.+te
3b10: 73 74 20 6e 61 6d 65 73 70 61 63 65 2d 34 38 2e st namespace-48.
3b20: 33 20 7b 75 6e 6b 6e 6f 77 6e 3a 20 64 65 66 61 3 {unknown: defa
3b30: 75 6c 74 20 72 65 73 6f 6c 75 74 69 6f 6e 20 6c ult resolution l
3b40: 6f 63 61 6c 7d 20 7b 0a 2b 20 20 20 20 70 72 6f ocal} {.+ pro
3b50: 63 20 3a 3a 66 6f 6f 20 7b 7d 20 7b 20 72 65 74 c ::foo {} { ret
3b60: 75 72 6e 20 22 47 4c 4f 42 41 4c 22 20 7d 0a 2b urn "GLOBAL" }.+
3b70: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 namespace ev
3b80: 61 6c 20 3a 3a 62 61 72 20 7b 0a 2b 09 70 72 6f al ::bar {.+.pro
3b90: 63 20 66 6f 6f 20 7b 7d 20 7b 20 72 65 74 75 72 c foo {} { retur
3ba0: 6e 20 22 4e 41 4d 45 53 50 41 43 45 22 20 7d 0a n "NAMESPACE" }.
3bb0: 2b 09 70 72 6f 63 20 74 65 73 74 20 7b 7d 20 7b +.proc test {} {
3bc0: 20 66 6f 6f 20 7d 0a 2b 20 20 20 20 7d 0a 2b 20 foo }.+ }.+
3bd0: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 3a set result [:
3be0: 3a 62 61 72 3a 3a 74 65 73 74 5d 0a 2b 20 20 20 :bar::test].+
3bf0: 20 6e 61 6d 65 73 70 61 63 65 20 64 65 6c 65 74 namespace delet
3c00: 65 20 3a 3a 62 61 72 0a 2b 20 20 20 20 72 65 6e e ::bar.+ ren
3c10: 61 6d 65 20 3a 3a 66 6f 6f 20 7b 7d 0a 2b 20 20 ame ::foo {}.+
3c20: 20 20 73 65 74 20 72 65 73 75 6c 74 0a 2b 7d 20 set result.+}
3c30: 7b 4e 41 4d 45 53 50 41 43 45 7d 0a 2b 74 65 73 {NAMESPACE}.+tes
3c40: 74 20 6e 61 6d 65 73 70 61 63 65 2d 34 38 2e 34 t namespace-48.4
3c50: 20 7b 75 6e 6b 6e 6f 77 6e 3a 20 73 65 74 20 68 {unknown: set h
3c60: 61 6e 64 6c 65 72 7d 20 7b 0a 2b 20 20 20 20 6e andler} {.+ n
3c70: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 66 6f amespace eval fo
3c80: 6f 20 7b 0a 2b 09 6e 61 6d 65 73 70 61 63 65 20 o {.+.namespace
3c90: 75 6e 6b 6e 6f 77 6e 20 5b 6c 69 73 74 20 64 69 unknown [list di
3ca0: 73 70 61 74 63 68 5d 0a 2b 09 70 72 6f 63 20 64 spatch].+.proc d
3cb0: 69 73 70 61 74 63 68 20 7b 61 72 67 73 7d 20 7b ispatch {args} {
3cc0: 20 72 65 74 75 72 6e 20 24 61 72 67 73 20 7d 0a return $args }.
3cd0: 2b 09 70 72 6f 63 20 74 65 73 74 20 7b 7d 20 7b +.proc test {} {
3ce0: 0a 2b 09 20 20 20 20 55 6e 6b 6e 6f 77 6e 43 6d .+. UnknownCm
3cf0: 64 20 61 20 62 20 63 0a 2b 09 7d 0a 2b 20 20 20 d a b c.+.}.+
3d00: 20 7d 0a 2b 20 20 20 20 73 65 74 20 72 65 73 75 }.+ set resu
3d10: 6c 74 20 5b 66 6f 6f 3a 3a 74 65 73 74 5d 0a 2b lt [foo::test].+
3d20: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 64 65 namespace de
3d30: 6c 65 74 65 20 66 6f 6f 0a 2b 20 20 20 20 73 65 lete foo.+ se
3d40: 74 20 72 65 73 75 6c 74 0a 2b 7d 20 7b 55 6e 6b t result.+} {Unk
3d50: 6e 6f 77 6e 43 6d 64 20 61 20 62 20 63 7d 0a 2b nownCmd a b c}.+
3d60: 74 65 73 74 20 6e 61 6d 65 73 70 61 63 65 2d 34 test namespace-4
3d70: 38 2e 35 20 7b 75 6e 6b 6e 6f 77 6e 3a 20 73 65 8.5 {unknown: se
3d80: 61 72 63 68 20 70 61 74 68 20 62 65 66 6f 72 65 arch path before
3d90: 20 75 6e 6b 6e 6f 77 6e 20 69 73 20 75 6e 61 6c unknown is unal
3da0: 74 65 72 65 64 7d 20 7b 0a 2b 20 20 20 20 70 72 tered} {.+ pr
3db0: 6f 63 20 3a 3a 74 65 73 74 32 20 7b 61 72 67 73 oc ::test2 {args
3dc0: 7d 20 7b 20 72 65 74 75 72 6e 20 22 54 45 53 54 } { return "TEST
3dd0: 32 3a 20 24 61 72 67 73 22 20 7d 0a 2b 20 20 20 2: $args" }.+
3de0: 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 namespace eval
3df0: 66 6f 6f 20 7b 0a 2b 09 6e 61 6d 65 73 70 61 63 foo {.+.namespac
3e00: 65 20 75 6e 6b 6e 6f 77 6e 20 5b 6c 69 73 74 20 e unknown [list
3e10: 64 69 73 70 61 74 63 68 5d 0a 2b 09 70 72 6f 63 dispatch].+.proc
3e20: 20 64 69 73 70 61 74 63 68 20 7b 61 72 67 73 7d dispatch {args}
3e30: 20 7b 20 72 65 74 75 72 6e 20 22 55 4e 4b 4e 4f { return "UNKNO
3e40: 57 4e 3a 20 24 61 72 67 73 22 20 7d 0a 2b 09 70 WN: $args" }.+.p
3e50: 72 6f 63 20 74 65 73 74 31 20 7b 61 72 67 73 7d roc test1 {args}
3e60: 20 7b 20 72 65 74 75 72 6e 20 22 54 45 53 54 31 { return "TEST1
3e70: 3a 20 24 61 72 67 73 22 20 7d 0a 2b 09 70 72 6f : $args" }.+.pro
3e80: 63 20 74 65 73 74 20 7b 7d 20 7b 0a 2b 09 20 20 c test {} {.+.
3e90: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 set result [li
3ea0: 73 74 20 5b 74 65 73 74 31 20 61 20 62 20 63 5d st [test1 a b c]
3eb0: 5d 0a 2b 09 20 20 20 20 6c 61 70 70 65 6e 64 20 ].+. lappend
3ec0: 72 65 73 75 6c 74 20 5b 74 65 73 74 32 20 61 20 result [test2 a
3ed0: 62 20 63 5d 0a 2b 09 20 20 20 20 6c 61 70 70 65 b c].+. lappe
3ee0: 6e 64 20 72 65 73 75 6c 74 20 5b 74 65 73 74 33 nd result [test3
3ef0: 20 61 20 62 20 63 5d 0a 2b 09 20 20 20 20 72 65 a b c].+. re
3f00: 74 75 72 6e 20 24 72 65 73 75 6c 74 0a 2b 09 7d turn $result.+.}
3f10: 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 73 65 74 .+ }.+ set
3f20: 20 72 65 73 75 6c 74 20 5b 66 6f 6f 3a 3a 74 65 result [foo::te
3f30: 73 74 5d 0a 2b 20 20 20 20 6e 61 6d 65 73 70 61 st].+ namespa
3f40: 63 65 20 64 65 6c 65 74 65 20 66 6f 6f 0a 2b 20 ce delete foo.+
3f50: 20 20 20 72 65 6e 61 6d 65 20 3a 3a 74 65 73 74 rename ::test
3f60: 32 20 7b 7d 0a 2b 20 20 20 20 73 65 74 20 72 65 2 {}.+ set re
3f70: 73 75 6c 74 0a 2b 7d 20 7b 7b 54 45 53 54 31 3a sult.+} {{TEST1:
3f80: 20 61 20 62 20 63 7d 20 7b 54 45 53 54 32 3a 20 a b c} {TEST2:
3f90: 61 20 62 20 63 7d 20 7b 55 4e 4b 4e 4f 57 4e 3a a b c} {UNKNOWN:
3fa0: 20 74 65 73 74 33 20 61 20 62 20 63 7d 7d 0a 2b test3 a b c}}.+
3fb0: 74 65 73 74 20 6e 61 6d 65 73 70 61 63 65 2d 34 test namespace-4
3fc0: 38 2e 36 20 7b 75 6e 6b 6e 6f 77 6e 3a 20 64 65 8.6 {unknown: de
3fd0: 6c 65 74 69 6e 67 20 68 61 6e 64 6c 65 72 20 72 leting handler r
3fe0: 65 73 74 6f 72 65 73 20 64 65 66 61 75 6c 74 7d estores default}
3ff0: 20 7b 0a 2b 20 20 20 20 72 65 6e 61 6d 65 20 3a {.+ rename :
4000: 3a 75 6e 6b 6e 6f 77 6e 20 3a 3a 5f 75 6e 6b 6e :unknown ::_unkn
4010: 6f 77 6e 5f 6f 72 69 67 0a 2b 20 20 20 20 70 72 own_orig.+ pr
4020: 6f 63 20 3a 3a 75 6e 6b 6e 6f 77 6e 20 7b 61 72 oc ::unknown {ar
4030: 67 73 7d 20 7b 20 72 65 74 75 72 6e 20 22 44 45 gs} { return "DE
4040: 46 41 55 4c 54 3a 20 24 61 72 67 73 22 20 7d 0a FAULT: $args" }.
4050: 2b 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 + namespace e
4060: 76 61 6c 20 66 6f 6f 20 7b 0a 2b 09 6e 61 6d 65 val foo {.+.name
4070: 73 70 61 63 65 20 75 6e 6b 6e 6f 77 6e 20 64 75 space unknown du
4080: 6d 6d 79 0a 2b 09 6e 61 6d 65 73 70 61 63 65 20 mmy.+.namespace
4090: 75 6e 6b 6e 6f 77 6e 20 7b 7d 0a 2b 20 20 20 20 unknown {}.+
40a0: 7d 0a 2b 20 20 20 20 73 65 74 20 72 65 73 75 6c }.+ set resul
40b0: 74 20 5b 6e 61 6d 65 73 70 61 63 65 20 65 76 61 t [namespace eva
40c0: 6c 20 66 6f 6f 20 7b 20 64 75 6d 6d 79 20 61 20 l foo { dummy a
40d0: 62 20 63 20 7d 5d 0a 2b 20 20 20 20 72 65 6e 61 b c }].+ rena
40e0: 6d 65 20 3a 3a 75 6e 6b 6e 6f 77 6e 20 7b 7d 0a me ::unknown {}.
40f0: 2b 20 20 20 20 72 65 6e 61 6d 65 20 3a 3a 5f 75 + rename ::_u
4100: 6e 6b 6e 6f 77 6e 5f 6f 72 69 67 20 3a 3a 75 6e nknown_orig ::un
4110: 6b 6e 6f 77 6e 0a 2b 20 20 20 20 6e 61 6d 65 73 known.+ names
4120: 70 61 63 65 20 64 65 6c 65 74 65 20 66 6f 6f 0a pace delete foo.
4130: 2b 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 0a + set result.
4140: 2b 7d 20 7b 44 45 46 41 55 4c 54 3a 20 64 75 6d +} {DEFAULT: dum
4150: 6d 79 20 61 20 62 20 63 7d 0a 2b 0a 20 0a 20 23 my a b c}.+. . #
4160: 20 63 6c 65 61 6e 75 70 0a 20 63 61 74 63 68 20 cleanup. catch
4170: 7b 72 65 6e 61 6d 65 20 63 6d 64 31 20 7b 7d 7d {rename cmd1 {}}
4180: 0a .
