Attachment "944803.patch" to
ticket [944803ffff]
added by
dgp
2006-02-02 02:12:11.
0000: 49 6e 64 65 78 3a 20 43 68 61 6e 67 65 4c 6f 67 Index: ChangeLog
0010: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
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 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
0060: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
0070: 43 68 61 6e 67 65 4c 6f 67 2c 76 0a 72 65 74 72 ChangeLog,v.retr
0080: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
0090: 31 2e 32 39 34 32 0a 64 69 66 66 20 2d 75 20 2d 1.2942.diff -u -
00a0: 75 20 2d 72 31 2e 32 39 34 32 20 43 68 61 6e 67 u -r1.2942 Chang
00b0: 65 4c 6f 67 0a 2d 2d 2d 20 43 68 61 6e 67 65 4c eLog.--- ChangeL
00c0: 6f 67 09 31 20 46 65 62 20 32 30 30 36 20 31 38 og.1 Feb 2006 18
00d0: 3a 32 37 3a 34 32 20 2d 30 30 30 30 09 31 2e 32 :27:42 -0000.1.2
00e0: 39 34 32 0a 2b 2b 2b 20 43 68 61 6e 67 65 4c 6f 942.+++ ChangeLo
00f0: 67 09 31 20 46 65 62 20 32 30 30 36 20 31 39 3a g.1 Feb 2006 19:
0100: 30 36 3a 35 38 20 2d 30 30 30 30 0a 40 40 20 2d 06:58 -0000.@@ -
0110: 31 2c 35 20 2b 31 2c 31 36 20 40 40 0a 20 32 30 1,5 +1,16 @@. 20
0120: 30 36 2d 30 32 2d 30 31 20 20 44 6f 6e 20 50 6f 06-02-01 Don Po
0130: 72 74 65 72 20 20 3c 64 67 70 40 75 73 65 72 73 rter <dgp@users
0140: 2e 73 6f 75 72 63 65 66 6f 72 67 65 2e 6e 65 74 .sourceforge.net
0150: 3e 0a 20 0a 2b 09 54 49 50 23 31 39 34 20 49 4d >. .+.TIP#194 IM
0160: 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 0a 2b 0a 2b PLEMENTATION.+.+
0170: 09 2a 20 64 6f 63 2f 61 70 70 6c 79 2e 6e 3a 09 .* doc/apply.n:.
0180: 28 4e 65 77 20 66 69 6c 65 29 09 4e 65 77 20 63 (New file).New c
0190: 6f 6d 6d 61 6e 64 20 5b 61 70 70 6c 79 5d 2e 20 ommand [apply].
01a0: 20 5b 50 61 74 63 68 20 39 34 34 38 30 33 5d 2e [Patch 944803].
01b0: 0a 2b 09 2a 20 64 6f 63 2f 75 70 6c 65 76 65 6c .+.* doc/uplevel
01c0: 2e 6e 3a 0a 2b 09 2a 20 67 65 6e 65 72 69 63 2f .n:.+.* generic/
01d0: 74 63 6c 42 61 73 69 63 2e 63 3a 0a 2b 09 2a 20 tclBasic.c:.+.*
01e0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 generic/tclInt.h
01f0: 3a 0a 2b 09 2a 20 67 65 6e 65 72 69 63 2f 74 63 :.+.* generic/tc
0200: 6c 50 72 6f 63 2e 63 3a 0a 2b 09 2a 20 74 65 73 lProc.c:.+.* tes
0210: 74 73 2f 61 70 70 6c 79 2e 74 65 73 74 3a 20 28 ts/apply.test: (
0220: 4e 65 77 20 66 69 6c 65 29 0a 2b 09 2a 20 74 65 New file).+.* te
0230: 73 74 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 73 sts/proc-old.tes
0240: 74 3a 0a 2b 09 2a 20 74 65 73 74 73 2f 70 72 6f t:.+.* tests/pro
0250: 63 2e 74 65 73 74 3a 0a 2b 09 0a 20 09 54 49 50 c.test:.+.. .TIP
0260: 23 31 38 31 20 49 4d 50 4c 45 4d 45 4e 54 41 54 #181 IMPLEMENTAT
0270: 49 4f 4e 0a 20 0a 20 09 2a 20 64 6f 63 2f 4e 61 ION. . .* doc/Na
0280: 6d 65 73 70 61 63 65 2e 33 3a 09 4e 65 77 20 63 mespace.3:.New c
0290: 6f 6d 6d 61 6e 64 20 5b 6e 61 6d 65 73 70 61 63 ommand [namespac
02a0: 65 20 75 6e 6b 6e 6f 77 6e 5d 2e 20 20 4e 65 77 e unknown]. New
02b0: 20 70 75 62 6c 69 63 0a 49 6e 64 65 78 3a 20 64 public.Index: d
02c0: 6f 63 2f 61 70 70 6c 79 2e 6e 0a 3d 3d 3d 3d 3d oc/apply.n.=====
02d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
0310: 43 53 20 66 69 6c 65 3a 20 64 6f 63 2f 61 70 70 CS file: doc/app
0320: 6c 79 2e 6e 0a 64 69 66 66 20 2d 4e 20 64 6f 63 ly.n.diff -N doc
0330: 2f 61 70 70 6c 79 2e 6e 0a 2d 2d 2d 20 2f 64 65 /apply.n.--- /de
0340: 76 2f 6e 75 6c 6c 09 31 20 4a 61 6e 20 31 39 37 v/null.1 Jan 197
0350: 30 20 30 30 3a 30 30 3a 30 30 20 2d 30 30 30 30 0 00:00:00 -0000
0360: 0a 2b 2b 2b 20 64 6f 63 2f 61 70 70 6c 79 2e 6e .+++ doc/apply.n
0370: 09 31 20 46 65 62 20 32 30 30 36 20 31 39 3a 30 .1 Feb 2006 19:0
0380: 36 3a 35 38 20 2d 30 30 30 30 0a 40 40 20 2d 30 6:58 -0000.@@ -0
0390: 2c 30 20 2b 31 2c 36 37 20 40 40 0a 2b 27 5c 22 ,0 +1,67 @@.+'\"
03a0: 0a 2b 2e 73 6f 20 6d 61 6e 2e 6d 61 63 72 6f 73 .+.so man.macros
03b0: 0a 2b 2e 54 48 20 61 70 70 6c 79 20 6e 20 22 22 .+.TH apply n ""
03c0: 20 54 63 6c 20 22 54 63 6c 20 42 75 69 6c 74 2d Tcl "Tcl Built-
03d0: 49 6e 20 43 6f 6d 6d 61 6e 64 73 22 0a 2b 2e 42 In Commands".+.B
03e0: 53 0a 2b 27 5c 22 20 4e 6f 74 65 3a 20 20 64 6f S.+'\" Note: do
03f0: 20 6e 6f 74 20 6d 6f 64 69 66 79 20 74 68 65 20 not modify the
0400: 2e 53 48 20 4e 41 4d 45 20 6c 69 6e 65 20 69 6d .SH NAME line im
0410: 6d 65 64 69 61 74 65 6c 79 20 62 65 6c 6f 77 21 mediately below!
0420: 0a 2b 2e 53 48 20 4e 41 4d 45 0a 2b 61 70 70 6c .+.SH NAME.+appl
0430: 79 20 5c 2d 20 41 70 70 6c 79 20 61 6e 20 61 6e y \- Apply an an
0440: 6f 6e 79 6d 6f 75 73 20 66 75 6e 63 74 69 6f 6e onymous function
0450: 0a 2b 2e 53 48 20 53 59 4e 4f 50 53 49 53 0a 2b .+.SH SYNOPSIS.+
0460: 5c 66 42 61 70 70 6c 79 20 5c 66 49 66 75 6e 63 \fBapply \fIfunc
0470: 5c 66 52 20 3f 5c 66 49 61 72 67 31 20 61 72 67 \fR ?\fIarg1 arg
0480: 32 20 2e 2e 2e 5c 66 52 3f 0a 2b 2e 42 45 0a 2b 2 ...\fR?.+.BE.+
0490: 0a 2b 2e 53 48 20 44 45 53 43 52 49 50 54 49 4f .+.SH DESCRIPTIO
04a0: 4e 0a 2b 2e 50 50 0a 2b 54 68 65 20 63 6f 6d 6d N.+.PP.+The comm
04b0: 61 6e 64 20 5c 66 42 61 70 70 6c 79 5c 66 52 20 and \fBapply\fR
04c0: 61 70 70 6c 69 65 73 20 74 68 65 20 66 75 6e 63 applies the func
04d0: 74 69 6f 6e 20 5c 66 49 66 75 6e 63 5c 66 52 20 tion \fIfunc\fR
04e0: 74 6f 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 to the arguments
04f0: 0a 2b 5c 66 49 61 72 67 31 20 61 72 67 32 20 2e .+\fIarg1 arg2 .
0500: 2e 2e 5c 66 52 20 61 6e 64 20 72 65 74 75 72 6e ..\fR and return
0510: 73 20 74 68 65 20 72 65 73 75 6c 74 2e 20 0a 2b s the result. .+
0520: 2e 50 50 0a 2b 54 68 65 20 66 75 6e 63 74 69 6f .PP.+The functio
0530: 6e 20 5c 66 49 66 75 6e 63 5c 66 52 20 69 73 20 n \fIfunc\fR is
0540: 61 20 74 77 6f 20 65 6c 65 6d 65 6e 74 20 6c 69 a two element li
0550: 73 74 20 5c 66 49 7b 61 72 67 73 20 62 6f 64 79 st \fI{args body
0560: 7d 5c 66 52 20 6f 72 20 61 20 74 68 72 65 65 0a }\fR or a three.
0570: 2b 65 6c 65 6d 65 6e 74 20 6c 69 73 74 20 5c 66 +element list \f
0580: 49 7b 61 72 67 73 20 62 6f 64 79 20 6e 61 6d 65 I{args body name
0590: 73 70 61 63 65 7d 5c 66 52 20 28 61 73 20 69 66 space}\fR (as if
05a0: 20 74 68 65 0a 2b 5c 66 42 6c 69 73 74 5c 66 52 the.+\fBlist\fR
05b0: 20 63 6f 6d 6d 61 6e 64 20 68 61 64 20 62 65 65 command had bee
05c0: 6e 20 75 73 65 64 29 2e 20 0a 2b 54 68 65 20 66 n used). .+The f
05d0: 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 5c 66 49 irst element \fI
05e0: 61 72 67 73 5c 66 52 20 73 70 65 63 69 66 69 65 args\fR specifie
05f0: 73 20 74 68 65 20 66 6f 72 6d 61 6c 20 61 72 67 s the formal arg
0600: 75 6d 65 6e 74 73 20 74 6f 0a 2b 5c 66 49 66 75 uments to.+\fIfu
0610: 6e 63 5c 66 52 2e 20 54 68 65 20 73 70 65 63 69 nc\fR. The speci
0620: 66 69 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 fication of the
0630: 66 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 73 formal arguments
0640: 20 5c 66 49 61 72 67 73 5c 66 52 0a 2b 69 73 20 \fIargs\fR.+is
0650: 73 68 61 72 65 64 20 77 69 74 68 20 74 68 65 20 shared with the
0660: 5c 66 42 70 72 6f 63 5c 66 52 20 63 6f 6d 6d 61 \fBproc\fR comma
0670: 6e 64 2c 20 61 6e 64 20 69 73 20 64 65 73 63 72 nd, and is descr
0680: 69 62 65 64 20 69 6e 20 64 65 74 61 69 6c 20 69 ibed in detail i
0690: 6e 20 74 68 65 0a 2b 63 6f 72 72 65 73 70 6f 6e n the.+correspon
06a0: 64 69 6e 67 20 6d 61 6e 75 61 6c 20 70 61 67 65 ding manual page
06b0: 2e 0a 2b 2e 50 50 0a 2b 54 68 65 20 63 6f 6e 74 ..+.PP.+The cont
06c0: 65 6e 74 73 20 6f 66 20 5c 66 49 62 6f 64 79 5c ents of \fIbody\
06d0: 66 52 20 61 72 65 20 65 78 65 63 75 74 65 64 20 fR are executed
06e0: 62 79 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 by the Tcl inter
06f0: 70 72 65 74 65 72 0a 2b 61 66 74 65 72 20 74 68 preter.+after th
0700: 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 e local variable
0710: 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 s corresponding
0720: 74 6f 20 74 68 65 20 66 6f 72 6d 61 6c 20 61 72 to the formal ar
0730: 67 75 6d 65 6e 74 73 20 61 72 65 20 67 69 76 65 guments are give
0740: 6e 0a 2b 74 68 65 20 76 61 6c 75 65 73 20 6f 66 n.+the values of
0750: 20 74 68 65 20 61 63 74 75 61 6c 20 70 61 72 61 the actual para
0760: 6d 65 74 65 72 73 20 5c 66 49 61 72 67 31 20 61 meters \fIarg1 a
0770: 72 67 32 20 2e 2e 2e 5c 66 52 2e 0a 2b 57 68 65 rg2 ...\fR..+Whe
0780: 6e 20 5c 66 49 62 6f 64 79 5c 66 52 20 69 73 20 n \fIbody\fR is
0790: 62 65 69 6e 67 20 65 78 65 63 75 74 65 64 2c 20 being executed,
07a0: 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 6e variable names n
07b0: 6f 72 6d 61 6c 6c 79 20 72 65 66 65 72 20 74 6f ormally refer to
07c0: 0a 2b 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 .+local variable
07d0: 73 2c 20 77 68 69 63 68 20 61 72 65 20 63 72 65 s, which are cre
07e0: 61 74 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c ated automatical
07f0: 6c 79 20 77 68 65 6e 20 72 65 66 65 72 65 6e 63 ly when referenc
0800: 65 64 20 61 6e 64 0a 2b 64 65 6c 65 74 65 64 20 ed and.+deleted
0810: 77 68 65 6e 20 5c 66 42 61 70 70 6c 79 5c 66 52 when \fBapply\fR
0820: 20 72 65 74 75 72 6e 73 2e 20 20 4f 6e 65 20 6c returns. One l
0830: 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 69 73 ocal variable is
0840: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 2b automatically.+
0850: 63 72 65 61 74 65 64 20 66 6f 72 20 65 61 63 68 created for each
0860: 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e of the function
0870: 27 73 20 61 72 67 75 6d 65 6e 74 73 2e 0a 2b 47 's arguments..+G
0880: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 lobal variables
0890: 63 61 6e 20 6f 6e 6c 79 20 62 65 20 61 63 63 65 can only be acce
08a0: 73 73 65 64 20 62 79 20 69 6e 76 6f 6b 69 6e 67 ssed by invoking
08b0: 0a 2b 74 68 65 20 5c 66 42 67 6c 6f 62 61 6c 5c .+the \fBglobal\
08c0: 66 52 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 74 68 fR command or th
08d0: 65 20 5c 66 42 75 70 76 61 72 5c 66 52 20 63 6f e \fBupvar\fR co
08e0: 6d 6d 61 6e 64 2e 0a 2b 4e 61 6d 65 73 70 61 63 mmand..+Namespac
08f0: 65 20 76 61 72 69 61 62 6c 65 73 20 63 61 6e 20 e variables can
0900: 6f 6e 6c 79 20 62 65 20 61 63 63 65 73 73 65 64 only be accessed
0910: 20 62 79 20 69 6e 76 6f 6b 69 6e 67 0a 2b 74 68 by invoking.+th
0920: 65 20 5c 66 42 76 61 72 69 61 62 6c 65 5c 66 52 e \fBvariable\fR
0930: 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 74 68 65 20 command or the
0940: 5c 66 42 75 70 76 61 72 5c 66 52 20 63 6f 6d 6d \fBupvar\fR comm
0950: 61 6e 64 2e 0a 2b 2e 50 50 0a 2b 54 68 65 20 69 and..+.PP.+The i
0960: 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20 5c 66 42 nvocation of \fB
0970: 61 70 70 6c 79 5c 66 52 20 61 64 64 73 20 61 20 apply\fR adds a
0980: 63 61 6c 6c 20 66 72 61 6d 65 20 74 6f 20 54 63 call frame to Tc
0990: 6c 27 73 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 l's evaluation s
09a0: 74 61 63 6b 0a 2b 28 74 68 65 20 73 74 61 63 6b tack.+(the stack
09b0: 20 6f 66 20 66 72 61 6d 65 73 20 61 63 63 65 73 of frames acces
09c0: 73 65 64 20 76 69 61 20 5c 66 42 75 70 6c 65 76 sed via \fBuplev
09d0: 65 6c 5c 66 52 29 2e 20 54 68 65 20 65 78 65 63 el\fR). The exec
09e0: 75 74 69 6f 6e 20 6f 66 20 5c 66 49 62 6f 64 79 ution of \fIbody
09f0: 5c 66 52 0a 2b 70 72 6f 63 65 65 64 73 20 69 6e \fR.+proceeds in
0a00: 20 74 68 69 73 20 63 61 6c 6c 20 66 72 61 6d 65 this call frame
0a10: 2c 20 69 6e 20 74 68 65 20 6e 61 6d 65 73 70 61 , in the namespa
0a20: 63 65 20 67 69 76 65 6e 20 62 79 20 5c 66 49 6e ce given by \fIn
0a30: 61 6d 65 73 70 61 63 65 5c 66 52 20 6f 72 0a 2b amespace\fR or.+
0a40: 69 6e 20 74 68 65 20 67 6c 6f 62 61 6c 20 6e 61 in the global na
0a50: 6d 65 73 70 61 63 65 20 69 66 20 6e 6f 6e 65 20 mespace if none
0a60: 77 61 73 20 73 70 65 63 69 66 69 65 64 2e 20 49 was specified. I
0a70: 66 20 67 69 76 65 6e 2c 20 5c 66 49 6e 61 6d 65 f given, \fIname
0a80: 73 70 61 63 65 5c 66 52 20 69 73 0a 2b 69 6e 74 space\fR is.+int
0a90: 65 72 70 72 65 74 65 64 20 72 65 6c 61 74 69 76 erpreted relativ
0aa0: 65 20 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 e to the global
0ab0: 6e 61 6d 65 73 70 61 63 65 20 65 76 65 6e 20 69 namespace even i
0ac0: 66 20 69 74 73 20 6e 61 6d 65 20 64 6f 65 73 20 f its name does
0ad0: 6e 6f 74 20 73 74 61 72 74 0a 2b 77 69 74 68 20 not start.+with
0ae0: 27 3a 3a 27 2e 20 0a 2b 2e 50 50 0a 2b 54 68 65 '::'. .+.PP.+The
0af0: 20 73 65 6d 61 6e 74 69 63 73 20 6f 66 20 5c 66 semantics of \f
0b00: 42 61 70 70 6c 79 5c 66 52 20 63 61 6e 20 61 6c Bapply\fR can al
0b10: 73 6f 20 62 65 20 64 65 73 63 72 69 62 65 64 20 so be described
0b20: 62 79 3a 0a 2b 2e 50 50 0a 2b 2e 43 53 0a 2b 20 by:.+.PP.+.CS.+
0b30: 70 72 6f 63 20 61 70 70 6c 79 20 7b 66 75 6e 20 proc apply {fun
0b40: 61 72 67 73 7d 20 7b 0a 2b 20 20 20 20 20 73 65 args} {.+ se
0b50: 74 20 6c 65 6e 20 5b 6c 6c 65 6e 67 74 68 20 24 t len [llength $
0b60: 66 75 6e 5d 0a 2b 20 20 20 20 20 69 66 20 7b 28 fun].+ if {(
0b70: 24 6c 65 6e 20 3c 20 32 29 20 7c 7c 20 28 24 6c $len < 2) || ($l
0b80: 65 6e 20 3e 20 33 29 7d 20 7b 0a 2b 20 20 20 20 en > 3)} {.+
0b90: 20 20 20 20 20 65 72 72 6f 72 20 22 63 61 6e 27 error "can'
0ba0: 74 20 69 6e 74 65 72 70 72 65 74 20 5c 5c 22 24 t interpret \\"$
0bb0: 66 75 6e 5c 5c 22 20 61 73 20 61 6e 6f 6e 79 6d fun\\" as anonym
0bc0: 6f 75 73 20 66 75 6e 63 74 69 6f 6e 22 0a 2b 20 ous function".+
0bd0: 20 20 20 20 7d 0a 2b 20 20 20 20 20 6c 61 73 73 }.+ lass
0be0: 69 67 6e 20 24 66 75 6e 20 61 72 67 4c 69 73 74 ign $fun argList
0bf0: 20 62 6f 64 79 20 6e 73 0a 2b 20 20 20 20 20 73 body ns.+ s
0c00: 65 74 20 6e 61 6d 65 20 3a 3a 24 6e 73 3a 3a 5b et name ::$ns::[
0c10: 67 65 74 47 6c 6f 62 61 6c 6c 79 55 6e 69 71 75 getGloballyUniqu
0c20: 65 4e 61 6d 65 5d 0a 2b 20 20 20 20 20 73 65 74 eName].+ set
0c30: 20 62 6f 64 79 30 20 7b 0a 2b 20 20 20 20 20 20 body0 {.+
0c40: 20 20 20 72 65 6e 61 6d 65 20 5b 6c 69 6e 64 65 rename [linde
0c50: 78 20 5b 69 6e 66 6f 20 6c 65 76 65 6c 20 30 5d x [info level 0]
0c60: 20 30 5d 20 7b 7d 0a 2b 20 20 20 20 20 7d 0a 2b 0] {}.+ }.+
0c70: 20 20 20 20 20 70 72 6f 63 20 24 6e 61 6d 65 20 proc $name
0c80: 24 61 72 67 4c 69 73 74 20 24 7b 62 6f 64 79 30 $argList ${body0
0c90: 7d 24 62 6f 64 79 0a 2b 20 20 20 20 20 73 65 74 }$body.+ set
0ca0: 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 70 code [catch {up
0cb0: 6c 65 76 65 6c 20 31 20 24 6e 61 6d 65 20 24 61 level 1 $name $a
0cc0: 72 67 73 7d 20 72 65 73 20 6f 70 74 5d 0a 2b 20 rgs} res opt].+
0cd0: 20 20 20 20 72 65 74 75 72 6e 20 2d 6f 70 74 69 return -opti
0ce0: 6f 6e 73 20 24 6f 70 74 20 24 72 65 73 0a 2b 20 ons $opt $res.+
0cf0: 7d 0a 2b 2e 43 45 0a 2b 0a 2b 2e 53 48 20 22 53 }.+.CE.+.+.SH "S
0d00: 45 45 20 41 4c 53 4f 22 0a 2b 70 72 6f 63 28 6e EE ALSO".+proc(n
0d10: 29 2c 20 75 70 6c 65 76 65 6c 28 6e 29 0a 2b 0a ), uplevel(n).+.
0d20: 2b 2e 53 48 20 4b 45 59 57 4f 52 44 53 0a 2b 61 +.SH KEYWORDS.+a
0d30: 72 67 75 6d 65 6e 74 2c 20 70 72 6f 63 65 64 75 rgument, procedu
0d40: 72 65 2c 20 61 6e 6f 6e 79 6d 6f 75 73 20 66 75 re, anonymous fu
0d50: 6e 63 74 69 6f 6e 0a 49 6e 64 65 78 3a 20 64 6f nction.Index: do
0d60: 63 2f 75 70 6c 65 76 65 6c 2e 6e 0a 3d 3d 3d 3d c/uplevel.n.====
0d70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
0db0: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0dc0: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 64 6f 63 2f 75 ot/tcl/tcl/doc/u
0dd0: 70 6c 65 76 65 6c 2e 6e 2c 76 0a 72 65 74 72 69 plevel.n,v.retri
0de0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
0df0: 2e 35 0a 64 69 66 66 20 2d 75 20 2d 75 20 2d 72 .5.diff -u -u -r
0e00: 31 2e 35 20 75 70 6c 65 76 65 6c 2e 6e 0a 2d 2d 1.5 uplevel.n.--
0e10: 2d 20 64 6f 63 2f 75 70 6c 65 76 65 6c 2e 6e 09 - doc/uplevel.n.
0e20: 32 37 20 4f 63 74 20 32 30 30 34 20 31 34 3a 34 27 Oct 2004 14:4
0e30: 33 3a 35 34 20 2d 30 30 30 30 09 31 2e 35 0a 2b 3:54 -0000.1.5.+
0e40: 2b 2b 20 64 6f 63 2f 75 70 6c 65 76 65 6c 2e 6e ++ doc/uplevel.n
0e50: 09 31 20 46 65 62 20 32 30 30 36 20 31 39 3a 30 .1 Feb 2006 19:0
0e60: 36 3a 35 38 20 2d 30 30 30 30 0a 40 40 20 2d 36 6:58 -0000.@@ -6
0e70: 32 2c 39 20 2b 36 32 2c 39 20 40 40 0a 20 63 6f 2,9 +62,9 @@. co
0e80: 6e 73 74 72 75 63 74 73 20 61 73 20 54 63 6c 20 nstructs as Tcl
0e90: 70 72 6f 63 65 64 75 72 65 73 20 28 66 6f 72 20 procedures (for
0ea0: 65 78 61 6d 70 6c 65 2c 20 5c 66 42 75 70 6c 65 example, \fBuple
0eb0: 76 65 6c 5c 66 52 20 63 6f 75 6c 64 0a 20 62 65 vel\fR could. be
0ec0: 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 used to impleme
0ed0: 6e 74 20 74 68 65 20 5c 66 42 77 68 69 6c 65 5c nt the \fBwhile\
0ee0: 66 52 20 63 6f 6e 73 74 72 75 63 74 20 61 73 20 fR construct as
0ef0: 61 20 54 63 6c 20 70 72 6f 63 65 64 75 72 65 29 a Tcl procedure)
0f00: 2e 0a 20 2e 50 50 0a 2d 5c 66 42 6e 61 6d 65 73 .. .PP.-\fBnames
0f10: 70 61 63 65 20 65 76 61 6c 5c 66 52 20 69 73 20 pace eval\fR is
0f20: 61 6e 6f 74 68 65 72 20 77 61 79 20 28 62 65 73 another way (bes
0f30: 69 64 65 73 20 70 72 6f 63 65 64 75 72 65 20 63 ides procedure c
0f40: 61 6c 6c 73 29 0a 2d 74 68 61 74 20 74 68 65 20 alls).-that the
0f50: 54 63 6c 20 6e 61 6d 69 6e 67 20 63 6f 6e 74 65 Tcl naming conte
0f60: 78 74 20 63 61 6e 20 63 68 61 6e 67 65 2e 0a 2d xt can change..-
0f70: 49 74 20 61 64 64 73 20 61 20 63 61 6c 6c 20 66 It adds a call f
0f80: 72 61 6d 65 20 74 6f 20 74 68 65 20 73 74 61 63 rame to the stac
0f90: 6b 20 74 6f 20 72 65 70 72 65 73 65 6e 74 20 74 k to represent t
0fa0: 68 65 20 6e 61 6d 65 73 70 61 63 65 20 63 6f 6e he namespace con
0fb0: 74 65 78 74 2e 0a 2b 54 68 65 20 5c 66 42 6e 61 text..+The \fBna
0fc0: 6d 65 73 70 61 63 65 20 65 76 61 6c 5c 66 52 20 mespace eval\fR
0fd0: 61 6e 64 20 5c 66 42 61 70 70 6c 79 5c 66 52 20 and \fBapply\fR
0fe0: 63 6f 6d 6d 61 6e 64 73 20 6f 66 66 65 72 20 6f commands offer o
0ff0: 74 68 65 72 20 77 61 79 73 0a 2b 28 62 65 73 69 ther ways.+(besi
1000: 64 65 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 des procedure ca
1010: 6c 6c 73 29 20 74 68 61 74 20 74 68 65 20 54 63 lls) that the Tc
1020: 6c 20 6e 61 6d 69 6e 67 20 63 6f 6e 74 65 78 74 l naming context
1030: 20 63 61 6e 20 63 68 61 6e 67 65 2e 0a 2b 54 68 can change..+Th
1040: 65 79 20 61 64 64 20 61 20 63 61 6c 6c 20 66 72 ey add a call fr
1050: 61 6d 65 20 74 6f 20 74 68 65 20 73 74 61 63 6b ame to the stack
1060: 20 74 6f 20 72 65 70 72 65 73 65 6e 74 20 74 68 to represent th
1070: 65 20 6e 61 6d 65 73 70 61 63 65 20 63 6f 6e 74 e namespace cont
1080: 65 78 74 2e 0a 20 54 68 69 73 20 6d 65 61 6e 73 ext.. This means
1090: 20 65 61 63 68 20 5c 66 42 6e 61 6d 65 73 70 61 each \fBnamespa
10a0: 63 65 20 65 76 61 6c 5c 66 52 20 63 6f 6d 6d 61 ce eval\fR comma
10b0: 6e 64 0a 20 63 6f 75 6e 74 73 20 61 73 20 61 6e nd. counts as an
10c0: 6f 74 68 65 72 20 63 61 6c 6c 20 6c 65 76 65 6c other call level
10d0: 20 66 6f 72 20 5c 66 42 75 70 6c 65 76 65 6c 5c for \fBuplevel\
10e0: 66 52 20 61 6e 64 20 5c 66 42 75 70 76 61 72 5c fR and \fBupvar\
10f0: 66 52 20 63 6f 6d 6d 61 6e 64 73 2e 0a 20 46 6f fR commands.. Fo
1100: 72 20 65 78 61 6d 70 6c 65 2c 20 5c 66 42 69 6e r example, \fBin
1110: 66 6f 20 6c 65 76 65 6c 20 31 5c 66 52 20 77 69 fo level 1\fR wi
1120: 6c 6c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 ll return a list
1130: 0a 40 40 20 2d 39 34 2c 37 20 2b 39 34 2c 37 20 .@@ -94,7 +94,7
1140: 40 40 0a 20 2e 43 45 0a 20 0a 20 2e 53 48 20 22 @@. .CE. . .SH "
1150: 53 45 45 20 41 4c 53 4f 22 0a 2d 6e 61 6d 65 73 SEE ALSO".-names
1160: 70 61 63 65 28 6e 29 2c 20 75 70 76 61 72 28 6e pace(n), upvar(n
1170: 29 0a 2b 61 70 70 6c 79 28 6e 29 2c 20 6e 61 6d ).+apply(n), nam
1180: 65 73 70 61 63 65 28 6e 29 2c 20 75 70 76 61 72 espace(n), upvar
1190: 28 6e 29 0a 20 0a 20 2e 53 48 20 4b 45 59 57 4f (n). . .SH KEYWO
11a0: 52 44 53 0a 20 63 6f 6e 74 65 78 74 2c 20 6c 65 RDS. context, le
11b0: 76 65 6c 2c 20 6e 61 6d 65 73 70 61 63 65 2c 20 vel, namespace,
11c0: 73 74 61 63 6b 20 66 72 61 6d 65 2c 20 76 61 72 stack frame, var
11d0: 69 61 62 6c 65 73 0a 49 6e 64 65 78 3a 20 67 65 iables.Index: ge
11e0: 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 neric/tclBasic.c
11f0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
1200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1220: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1230: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
1240: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
1250: 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 generic/tclBasic
1260: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
1270: 72 65 76 69 73 69 6f 6e 20 31 2e 31 38 38 0a 64 revision 1.188.d
1280: 69 66 66 20 2d 75 20 2d 75 20 2d 72 31 2e 31 38 iff -u -u -r1.18
1290: 38 20 74 63 6c 42 61 73 69 63 2e 63 0a 2d 2d 2d 8 tclBasic.c.---
12a0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 generic/tclBasi
12b0: 63 2e 63 09 31 20 46 65 62 20 32 30 30 36 20 31 c.c.1 Feb 2006 1
12c0: 38 3a 32 37 3a 34 33 20 2d 30 30 30 30 09 31 2e 8:27:43 -0000.1.
12d0: 31 38 38 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 188.+++ generic/
12e0: 74 63 6c 42 61 73 69 63 2e 63 09 31 20 46 65 62 tclBasic.c.1 Feb
12f0: 20 32 30 30 36 20 31 39 3a 30 36 3a 35 39 20 2d 2006 19:06:59 -
1300: 30 30 30 30 0a 40 40 20 2d 31 30 35 2c 36 20 2b 0000.@@ -105,6 +
1310: 31 30 35 2c 37 20 40 40 0a 20 20 20 20 20 20 2a 105,7 @@. *
1320: 2f 0a 20 0a 20 20 20 20 20 7b 22 61 70 70 65 6e /. . {"appen
1330: 64 22 2c 09 09 54 63 6c 5f 41 70 70 65 6e 64 4f d",..Tcl_AppendO
1340: 62 6a 43 6d 64 2c 09 54 63 6c 43 6f 6d 70 69 6c bjCmd,.TclCompil
1350: 65 41 70 70 65 6e 64 43 6d 64 2c 09 31 7d 2c 0a eAppendCmd,.1},.
1360: 2b 20 20 20 20 7b 22 61 70 70 6c 79 22 2c 09 20 + {"apply",.
1370: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 6c 79 Tcl_Apply
1380: 4f 62 6a 43 6d 64 2c 20 20 20 20 20 20 20 20 4e ObjCmd, N
1390: 55 4c 4c 2c 20 20 20 20 20 20 20 20 20 20 20 20 ULL,
13a0: 20 20 20 20 20 20 20 31 7d 2c 0a 20 20 20 20 20 1},.
13b0: 7b 22 61 72 72 61 79 22 2c 09 09 54 63 6c 5f 41 {"array",..Tcl_A
13c0: 72 72 61 79 4f 62 6a 43 6d 64 2c 09 4e 55 4c 4c rrayObjCmd,.NULL
13d0: 2c 09 09 09 31 7d 2c 0a 20 20 20 20 20 7b 22 62 ,...1},. {"b
13e0: 69 6e 61 72 79 22 2c 09 09 54 63 6c 5f 42 69 6e inary",..Tcl_Bin
13f0: 61 72 79 4f 62 6a 43 6d 64 2c 09 4e 55 4c 4c 2c aryObjCmd,.NULL,
1400: 09 09 09 31 7d 2c 0a 20 20 20 20 20 7b 22 62 72 ...1},. {"br
1410: 65 61 6b 22 2c 09 09 54 63 6c 5f 42 72 65 61 6b eak",..Tcl_Break
1420: 4f 62 6a 43 6d 64 2c 09 54 63 6c 43 6f 6d 70 69 ObjCmd,.TclCompi
1430: 6c 65 42 72 65 61 6b 43 6d 64 2c 09 31 7d 2c 0a leBreakCmd,.1},.
1440: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
1450: 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d clInt.h.========
1460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1470: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1490: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
14a0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
14b0: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
14c0: 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65 clInt.h,v.retrie
14d0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
14e0: 32 36 36 0a 64 69 66 66 20 2d 75 20 2d 75 20 2d 266.diff -u -u -
14f0: 72 31 2e 32 36 36 20 74 63 6c 49 6e 74 2e 68 0a r1.266 tclInt.h.
1500: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 --- generic/tclI
1510: 6e 74 2e 68 09 31 20 46 65 62 20 32 30 30 36 20 nt.h.1 Feb 2006
1520: 31 38 3a 32 37 3a 34 36 20 2d 30 30 30 30 09 31 18:27:46 -0000.1
1530: 2e 32 36 36 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 .266.+++ generic
1540: 2f 74 63 6c 49 6e 74 2e 68 09 31 20 46 65 62 20 /tclInt.h.1 Feb
1550: 32 30 30 36 20 31 39 3a 30 36 3a 35 39 20 2d 30 2006 19:06:59 -0
1560: 30 30 30 0a 40 40 20 2d 32 32 34 36 2c 36 20 2b 000.@@ -2246,6 +
1570: 32 32 34 36 2c 39 20 40 40 0a 20 4d 4f 44 55 4c 2246,9 @@. MODUL
1580: 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c 5f E_SCOPE int.Tcl_
1590: 41 70 70 65 6e 64 4f 62 6a 43 6d 64 28 43 6c 69 AppendObjCmd(Cli
15a0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
15b0: 74 61 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f ta,. ... Tcl_
15c0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
15d0: 69 6e 74 20 6f 62 6a 63 2c 0a 20 09 09 09 20 20 int objc,. ...
15e0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 Tcl_Obj *CONST
15f0: 20 6f 62 6a 76 5b 5d 29 3b 0a 2b 4d 4f 44 55 4c objv[]);.+MODUL
1600: 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c 5f E_SCOPE int.Tcl_
1610: 41 70 70 6c 79 4f 62 6a 43 6d 64 28 43 6c 69 65 ApplyObjCmd(Clie
1620: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1630: 61 2c 0a 2b 09 09 09 20 20 20 20 54 63 6c 5f 49 a,.+... Tcl_I
1640: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
1650: 6e 74 20 6f 62 6a 63 2c 0a 2b 09 09 09 20 20 20 nt objc,.+...
1660: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1670: 6f 62 6a 76 5b 5d 29 3b 0a 20 4d 4f 44 55 4c 45 objv[]);. MODULE
1680: 5f 53 43 4f 50 45 20 69 6e 74 09 54 63 6c 5f 41 _SCOPE int.Tcl_A
1690: 72 72 61 79 4f 62 6a 43 6d 64 28 43 6c 69 65 6e rrayObjCmd(Clien
16a0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
16b0: 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 49 6e ,. ... Tcl_In
16c0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
16d0: 74 20 6f 62 6a 63 2c 0a 20 09 09 09 20 20 20 20 t objc,. ...
16e0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
16f0: 62 6a 76 5b 5d 29 3b 0a 49 6e 64 65 78 3a 20 67 bjv[]);.Index: g
1700: 65 6e 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 eneric/tclProc.c
1710: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
1720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1750: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
1760: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
1770: 67 65 6e 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e generic/tclProc.
1780: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 c,v.retrieving r
1790: 65 76 69 73 69 6f 6e 20 31 2e 38 34 0a 64 69 66 evision 1.84.dif
17a0: 66 20 2d 75 20 2d 75 20 2d 72 31 2e 38 34 20 74 f -u -u -r1.84 t
17b0: 63 6c 50 72 6f 63 2e 63 0a 2d 2d 2d 20 67 65 6e clProc.c.--- gen
17c0: 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 09 32 eric/tclProc.c.2
17d0: 33 20 4a 61 6e 20 32 30 30 36 20 31 31 3a 30 31 3 Jan 2006 11:01
17e0: 3a 35 39 20 2d 30 30 30 30 09 31 2e 38 34 0a 2b :59 -0000.1.84.+
17f0: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 72 ++ generic/tclPr
1800: 6f 63 2e 63 09 31 20 46 65 62 20 32 30 30 36 20 oc.c.1 Feb 2006
1810: 31 39 3a 30 37 3a 30 30 20 2d 30 30 30 30 0a 40 19:07:00 -0000.@
1820: 40 20 2d 36 2c 36 20 2b 36 2c 37 20 40 40 0a 20 @ -6,6 +6,7 @@.
1830: 20 2a 0a 20 20 2a 20 43 6f 70 79 72 69 67 68 74 *. * Copyright
1840: 20 28 63 29 20 31 39 38 37 2d 31 39 39 33 20 54 (c) 1987-1993 T
1850: 68 65 20 52 65 67 65 6e 74 73 20 6f 66 20 74 68 he Regents of th
1860: 65 20 55 6e 69 76 65 72 73 69 74 79 20 6f 66 20 e University of
1870: 43 61 6c 69 66 6f 72 6e 69 61 2e 0a 20 20 2a 20 California.. *
1880: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39 Copyright (c) 19
1890: 39 34 2d 31 39 39 38 20 53 75 6e 20 4d 69 63 72 94-1998 Sun Micr
18a0: 6f 73 79 73 74 65 6d 73 2c 20 49 6e 63 2e 0a 2b osystems, Inc..+
18b0: 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 * Copyright (c)
18c0: 20 32 30 30 34 2d 32 30 30 36 20 4d 69 67 75 65 2004-2006 Migue
18d0: 6c 20 53 6f 66 65 72 0a 20 20 2a 0a 20 20 2a 20 l Sofer. *. *
18e0: 53 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c 69 See the file "li
18f0: 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f 72 cense.terms" for
1900: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 information on
1910: 75 73 61 67 65 20 61 6e 64 20 72 65 64 69 73 74 usage and redist
1920: 72 69 62 75 74 69 6f 6e 20 6f 66 0a 20 20 2a 20 ribution of. *
1930: 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66 this file, and f
1940: 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20 or a DISCLAIMER
1950: 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45 OF ALL WARRANTIE
1960: 53 2e 0a 40 40 20 2d 32 30 2c 36 20 2b 32 31 2c S..@@ -20,6 +21,
1970: 38 20 40 40 0a 20 20 2a 20 50 72 6f 74 6f 74 79 8 @@. * Prototy
1980: 70 65 73 20 66 6f 72 20 73 74 61 74 69 63 20 66 pes for static f
1990: 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 69 73 unctions in this
19a0: 20 66 69 6c 65 0a 20 20 2a 2f 0a 20 0a 2b 73 74 file. */. .+st
19b0: 61 74 69 63 20 69 6e 74 20 20 20 20 20 20 20 20 atic int
19c0: 20 20 20 20 20 20 4f 62 6a 49 6e 74 65 72 70 50 ObjInterpP
19d0: 72 6f 63 45 78 28 43 6c 69 65 6e 74 44 61 74 61 rocEx(ClientData
19e0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 72 65 67 69 clientData,regi
19f0: 73 74 65 72 20 54 63 6c 5f 49 6e 74 65 72 70 20 ster Tcl_Interp
1a00: 2a 69 6e 74 65 72 70 2c 0a 2b 09 20 20 20 20 20 *interp,.+.
1a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
1a20: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
1a30: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 2c 20 *CONST objv[],
1a40: 69 6e 74 20 73 6b 69 70 29 3b 0a 20 73 74 61 74 int skip);. stat
1a50: 69 63 20 76 6f 69 64 09 09 50 72 6f 63 42 6f 64 ic void..ProcBod
1a60: 79 44 75 70 28 54 63 6c 5f 4f 62 6a 20 2a 73 72 yDup(Tcl_Obj *sr
1a70: 63 50 74 72 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 cPtr, Tcl_Obj *d
1a80: 75 70 50 74 72 29 3b 0a 20 73 74 61 74 69 63 20 upPtr);. static
1a90: 76 6f 69 64 09 09 50 72 6f 63 42 6f 64 79 46 72 void..ProcBodyFr
1aa0: 65 65 28 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 ee(Tcl_Obj *objP
1ab0: 74 72 29 3b 0a 20 73 74 61 74 69 63 20 69 6e 74 tr);. static int
1ac0: 09 09 50 72 6f 63 65 73 73 50 72 6f 63 52 65 73 ..ProcessProcRes
1ad0: 75 6c 74 43 6f 64 65 28 54 63 6c 5f 49 6e 74 65 ultCode(Tcl_Inte
1ae0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 40 40 20 2d rp *interp,.@@ -
1af0: 31 33 31 2c 36 20 2b 31 33 34 2c 39 20 40 40 0a 131,6 +134,9 @@.
1b00: 20 0a 20 20 20 20 20 69 66 20 28 54 63 6c 43 72 . if (TclCr
1b10: 65 61 74 65 50 72 6f 63 28 69 6e 74 65 72 70 2c eateProc(interp,
1b20: 20 6e 73 50 74 72 2c 20 70 72 6f 63 4e 61 6d 65 nsPtr, procName
1b30: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 6f 62 6a 76 5b , objv[2], objv[
1b40: 33 5d 2c 0a 20 09 20 20 20 20 26 70 72 6f 63 50 3],. . &procP
1b50: 74 72 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b tr) != TCL_OK) {
1b60: 0a 2b 09 54 63 6c 5f 41 64 64 45 72 72 6f 72 49 .+.Tcl_AddErrorI
1b70: 6e 66 6f 28 69 6e 74 65 72 70 2c 20 22 5c 6e 20 nfo(interp, "\n
1b80: 20 20 20 28 63 72 65 61 74 69 6e 67 20 70 72 6f (creating pro
1b90: 63 20 5c 22 22 29 3b 0a 2b 09 54 63 6c 5f 41 64 c \"");.+.Tcl_Ad
1ba0: 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 dErrorInfo(inter
1bb0: 70 2c 20 70 72 6f 63 4e 61 6d 65 29 3b 0a 2b 09 p, procName);.+.
1bc0: 54 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f Tcl_AddErrorInfo
1bd0: 28 69 6e 74 65 72 70 2c 20 22 5c 22 29 22 29 3b (interp, "\")");
1be0: 0a 20 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 . .return TCL_ER
1bf0: 52 4f 52 3b 0a 20 20 20 20 20 7d 0a 20 0a 40 40 ROR;. }. .@@
1c00: 20 2d 33 37 32 2c 38 20 2b 33 37 38 2c 37 20 40 -372,8 +378,7 @
1c10: 40 0a 20 09 7d 0a 20 09 69 66 20 28 28 66 69 65 @. .}. .if ((fie
1c20: 6c 64 43 6f 75 6e 74 20 3d 3d 20 30 29 20 7c 7c ldCount == 0) ||
1c30: 20 28 2a 66 69 65 6c 64 56 61 6c 75 65 73 5b 30 (*fieldValues[0
1c40: 5d 20 3d 3d 20 30 29 29 20 7b 0a 20 09 20 20 20 ] == 0)) {. .
1c50: 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 ckfree((char *)
1c60: 20 66 69 65 6c 64 56 61 6c 75 65 73 29 3b 0a 2d fieldValues);.-
1c70: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
1c80: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
1c90: 72 6f 63 65 64 75 72 65 20 5c 22 22 2c 20 70 72 rocedure \"", pr
1ca0: 6f 63 4e 61 6d 65 2c 0a 2d 09 09 20 20 20 20 22 ocName,.-.. "
1cb0: 5c 22 20 68 61 73 20 61 72 67 75 6d 65 6e 74 20 \" has argument
1cc0: 77 69 74 68 20 6e 6f 20 6e 61 6d 65 22 2c 20 4e with no name", N
1cd0: 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f ULL);.+. Tcl_
1ce0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1cf0: 65 72 70 2c 20 22 61 72 67 75 6d 65 6e 74 20 77 erp, "argument w
1d00: 69 74 68 20 6e 6f 20 6e 61 6d 65 22 2c 20 4e 55 ith no name", NU
1d10: 4c 4c 29 3b 0a 20 09 20 20 20 20 67 6f 74 6f 20 LL);. . goto
1d20: 70 72 6f 63 45 72 72 6f 72 3b 0a 20 09 7d 0a 20 procError;. .}.
1d30: 0a 40 40 20 2d 33 39 37 2c 31 36 20 2b 34 30 32 .@@ -397,16 +402
1d40: 2c 31 36 20 40 40 0a 20 09 09 7d 20 77 68 69 6c ,16 @@. ..} whil
1d50: 65 20 28 2a 71 20 21 3d 20 27 5c 30 27 29 3b 0a e (*q != '\0');.
1d60: 20 09 09 71 2d 2d 3b 0a 20 09 09 69 66 20 28 2a ..q--;. ..if (*
1d70: 71 20 3d 3d 20 27 29 27 29 20 7b 20 2f 2a 20 77 q == ')') { /* w
1d80: 65 20 68 61 76 65 20 61 6e 20 61 72 72 61 79 20 e have an array
1d90: 65 6c 65 6d 65 6e 74 20 2a 2f 0a 2d 09 09 20 20 element */.-..
1da0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
1db0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 63 lt(interp, "proc
1dc0: 65 64 75 72 65 20 5c 22 22 2c 20 70 72 6f 63 4e edure \"", procN
1dd0: 61 6d 65 2c 0a 2d 09 09 09 20 20 20 20 22 5c 22 ame,.-... "\"
1de0: 20 68 61 73 20 66 6f 72 6d 61 6c 20 70 61 72 61 has formal para
1df0: 6d 65 74 65 72 20 5c 22 22 2c 20 66 69 65 6c 64 meter \"", field
1e00: 56 61 6c 75 65 73 5b 30 5d 2c 0a 2d 09 09 09 20 Values[0],.-...
1e10: 20 20 20 22 5c 22 20 74 68 61 74 20 69 73 20 61 "\" that is a
1e20: 6e 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 22 n array element"
1e30: 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 20 20 20 20 , NULL);.+..
1e40: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1e50: 28 69 6e 74 65 72 70 2c 20 22 66 6f 72 6d 61 6c (interp, "formal
1e60: 20 70 61 72 61 6d 65 74 65 72 20 5c 22 22 2c 0a parameter \"",.
1e70: 2b 09 09 09 20 20 20 20 66 69 65 6c 64 56 61 6c +... fieldVal
1e80: 75 65 73 5b 30 5d 2c 0a 2b 09 09 09 20 20 20 20 ues[0],.+...
1e90: 22 5c 22 20 69 73 20 61 6e 20 61 72 72 61 79 20 "\" is an array
1ea0: 65 6c 65 6d 65 6e 74 22 2c 20 4e 55 4c 4c 29 3b element", NULL);
1eb0: 0a 20 09 09 20 20 20 20 63 6b 66 72 65 65 28 28 . .. ckfree((
1ec0: 63 68 61 72 20 2a 29 20 66 69 65 6c 64 56 61 6c char *) fieldVal
1ed0: 75 65 73 29 3b 0a 20 09 09 20 20 20 20 67 6f 74 ues);. .. got
1ee0: 6f 20 70 72 6f 63 45 72 72 6f 72 3b 0a 20 09 09 o procError;. ..
1ef0: 7d 0a 20 09 20 20 20 20 7d 20 65 6c 73 65 20 69 }. . } else i
1f00: 66 20 28 28 2a 70 20 3d 3d 20 27 3a 27 29 20 26 f ((*p == ':') &
1f10: 26 20 28 2a 28 70 2b 31 29 20 3d 3d 20 27 3a 27 & (*(p+1) == ':'
1f20: 29 29 20 7b 0a 2d 09 09 54 63 6c 5f 41 70 70 65 )) {.-..Tcl_Appe
1f30: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1f40: 20 22 70 72 6f 63 65 64 75 72 65 20 5c 22 22 2c "procedure \"",
1f50: 20 70 72 6f 63 4e 61 6d 65 2c 0a 2d 09 09 09 22 procName,.-..."
1f60: 5c 22 20 68 61 73 20 66 6f 72 6d 61 6c 20 70 61 \" has formal pa
1f70: 72 61 6d 65 74 65 72 20 5c 22 22 2c 20 66 69 65 rameter \"", fie
1f80: 6c 64 56 61 6c 75 65 73 5b 30 5d 2c 0a 2d 09 09 ldValues[0],.-..
1f90: 09 22 5c 22 20 74 68 61 74 20 69 73 20 6e 6f 74 ."\" that is not
1fa0: 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d 65 22 2c a simple name",
1fb0: 20 4e 55 4c 4c 29 3b 0a 2b 09 09 54 63 6c 5f 41 NULL);.+..Tcl_A
1fc0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1fd0: 72 70 2c 20 22 66 6f 72 6d 61 6c 20 70 61 72 61 rp, "formal para
1fe0: 6d 65 74 65 72 20 5c 22 22 2c 0a 2b 09 09 09 66 meter \"",.+...f
1ff0: 69 65 6c 64 56 61 6c 75 65 73 5b 30 5d 2c 0a 2b ieldValues[0],.+
2000: 09 09 09 22 5c 22 20 69 73 20 6e 6f 74 20 61 20 ..."\" is not a
2010: 73 69 6d 70 6c 65 20 6e 61 6d 65 22 2c 20 4e 55 simple name", NU
2020: 4c 4c 29 3b 0a 20 09 09 63 6b 66 72 65 65 28 28 LL);. ..ckfree((
2030: 63 68 61 72 20 2a 29 20 66 69 65 6c 64 56 61 6c char *) fieldVal
2040: 75 65 73 29 3b 0a 20 09 09 67 6f 74 6f 20 70 72 ues);. ..goto pr
2050: 6f 63 45 72 72 6f 72 3b 0a 20 09 20 20 20 20 7d ocError;. . }
2060: 0a 40 40 20 2d 31 31 31 33 2c 36 20 2b 31 31 31 .@@ -1113,6 +111
2070: 38 2c 32 32 20 40 40 0a 20 09 09 09 09 20 2a 20 8,22 @@. .... *
2080: 70 72 6f 63 65 64 75 72 65 2e 20 2a 2f 0a 20 20 procedure. */.
2090: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 Tcl_Obj *CONS
20a0: 54 20 6f 62 6a 76 5b 5d 29 09 2f 2a 20 41 72 67 T objv[])./* Arg
20b0: 75 6d 65 6e 74 20 76 61 6c 75 65 20 6f 62 6a 65 ument value obje
20c0: 63 74 73 2e 20 2a 2f 0a 20 7b 0a 2b 0a 2b 20 20 cts. */. {.+.+
20d0: 20 20 72 65 74 75 72 6e 20 4f 62 6a 49 6e 74 65 return ObjInte
20e0: 72 70 50 72 6f 63 45 78 28 63 6c 69 65 6e 74 44 rpProcEx(clientD
20f0: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
2100: 63 2c 20 6f 62 6a 76 2c 20 2f 2a 73 6b 69 70 2a c, objv, /*skip*
2110: 2f 20 31 29 3b 0a 2b 7d 0a 2b 09 0a 2b 73 74 61 / 1);.+}.+..+sta
2120: 74 69 63 20 69 6e 74 0a 2b 4f 62 6a 49 6e 74 65 tic int.+ObjInte
2130: 72 70 50 72 6f 63 45 78 28 0a 2b 20 20 20 20 43 rpProcEx(.+ C
2140: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
2150: 44 61 74 61 2c 20 09 2f 2a 20 52 65 63 6f 72 64 Data, ./* Record
2160: 20 64 65 73 63 72 69 62 69 6e 67 20 70 72 6f 63 describing proc
2170: 65 64 75 72 65 20 74 6f 20 62 65 0a 2b 09 09 09 edure to be.+...
2180: 09 20 2a 20 69 6e 74 65 72 70 72 65 74 65 64 2e . * interpreted.
2190: 20 2a 2f 0a 2b 20 20 20 20 72 65 67 69 73 74 65 */.+ registe
21a0: 72 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r Tcl_Interp *in
21b0: 74 65 72 70 2c 2f 2a 20 49 6e 74 65 72 70 72 65 terp,/* Interpre
21c0: 74 65 72 20 69 6e 20 77 68 69 63 68 20 70 72 6f ter in which pro
21d0: 63 65 64 75 72 65 20 77 61 73 0a 2b 09 09 09 09 cedure was.+....
21e0: 20 2a 20 69 6e 76 6f 6b 65 64 2e 20 2a 2f 0a 2b * invoked. */.+
21f0: 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 09 09 09 int objc,...
2200: 2f 2a 20 43 6f 75 6e 74 20 6f 66 20 6e 75 6d 62 /* Count of numb
2210: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 er of arguments
2220: 74 6f 20 74 68 69 73 0a 2b 09 09 09 09 20 2a 20 to this.+.... *
2230: 70 72 6f 63 65 64 75 72 65 2e 20 2a 2f 0a 2b 20 procedure. */.+
2240: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 Tcl_Obj *CONS
2250: 54 20 6f 62 6a 76 5b 5d 2c 09 2f 2a 20 41 72 67 T objv[],./* Arg
2260: 75 6d 65 6e 74 20 76 61 6c 75 65 20 6f 62 6a 65 ument value obje
2270: 63 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 cts. */.+ int
2280: 20 73 6b 69 70 29 20 20 20 20 20 20 20 20 20 20 skip)
2290: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
22a0: 65 72 20 6f 66 20 69 6e 69 74 69 61 6c 20 61 72 er of initial ar
22b0: 67 75 6d 65 6e 74 73 20 74 6f 20 62 65 20 73 6b guments to be sk
22c0: 69 70 70 65 64 2c 0a 2b 09 09 09 09 20 2a 20 69 ipped,.+.... * i
22d0: 65 2c 20 77 6f 72 64 73 20 69 6e 20 74 68 65 20 e, words in the
22e0: 22 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 22 20 2a "command name" *
22f0: 2f 20 0a 2b 7b 0a 20 20 20 20 20 72 65 67 69 73 / .+{. regis
2300: 74 65 72 20 50 72 6f 63 20 2a 70 72 6f 63 50 74 ter Proc *procPt
2310: 72 20 3d 20 28 50 72 6f 63 20 2a 29 20 63 6c 69 r = (Proc *) cli
2320: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 20 4e 61 entData;. Na
2330: 6d 65 73 70 61 63 65 20 2a 6e 73 50 74 72 20 3d mespace *nsPtr =
2340: 20 70 72 6f 63 50 74 72 2d 3e 63 6d 64 50 74 72 procPtr->cmdPtr
2350: 2d 3e 6e 73 50 74 72 3b 0a 20 20 20 20 20 43 61 ->nsPtr;. Ca
2360: 6c 6c 46 72 61 6d 65 20 2a 66 72 61 6d 65 50 74 llFrame *framePt
2370: 72 2c 20 2a 2a 66 72 61 6d 65 50 74 72 50 74 72 r, **framePtrPtr
2380: 3b 0a 40 40 20 2d 31 31 32 31 2c 36 20 2b 31 31 ;.@@ -1121,6 +11
2390: 34 32 2c 37 20 40 40 0a 20 20 20 20 20 63 68 61 42,7 @@. cha
23a0: 72 20 2a 70 72 6f 63 4e 61 6d 65 3b 0a 20 20 20 r *procName;.
23b0: 20 20 69 6e 74 20 6e 61 6d 65 4c 65 6e 2c 20 6c int nameLen, l
23c0: 6f 63 61 6c 43 74 2c 20 6e 75 6d 41 72 67 73 2c ocalCt, numArgs,
23d0: 20 61 72 67 43 74 2c 20 69 2c 20 69 6d 61 78 2c argCt, i, imax,
23e0: 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 56 61 result;. Va
23f0: 72 20 2a 63 6f 6d 70 69 6c 65 64 4c 6f 63 61 6c r *compiledLocal
2400: 73 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 s;.+ Tcl_Obj
2410: 2a 43 4f 4e 53 54 20 2a 61 72 67 4f 62 6a 73 3b *CONST *argObjs;
2420: 0a 20 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 . . /*.
2430: 20 2a 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 * Get the proce
2440: 64 75 72 65 27 73 20 6e 61 6d 65 2e 0a 40 40 20 dure's name..@@
2450: 2d 31 31 38 33 2c 37 20 2b 31 32 30 35 2c 38 20 -1183,7 +1205,8
2460: 40 40 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 @@. */. .
2470: 20 20 20 6e 75 6d 41 72 67 73 20 3d 20 70 72 6f numArgs = pro
2480: 63 50 74 72 2d 3e 6e 75 6d 41 72 67 73 3b 0a 2d cPtr->numArgs;.-
2490: 20 20 20 20 61 72 67 43 74 20 3d 20 6f 62 6a 63 argCt = objc
24a0: 2d 31 3b 20 2f 2a 20 73 65 74 20 69 74 20 74 6f -1; /* set it to
24b0: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 the number of a
24c0: 72 67 73 20 74 6f 20 74 68 65 20 70 72 6f 63 20 rgs to the proc
24d0: 2a 2f 0a 2b 20 20 20 20 61 72 67 43 74 20 3d 20 */.+ argCt =
24e0: 6f 62 6a 63 2d 73 6b 69 70 3b 20 2f 2a 20 73 65 objc-skip; /* se
24f0: 74 20 69 74 20 74 6f 20 74 68 65 20 6e 75 6d 62 t it to the numb
2500: 65 72 20 6f 66 20 61 72 67 73 20 74 6f 20 74 68 er of args to th
2510: 65 20 70 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 61 e proc */.+ a
2520: 72 67 4f 62 6a 73 20 3d 20 26 6f 62 6a 76 5b 73 rgObjs = &objv[s
2530: 6b 69 70 5d 3b 0a 20 20 20 20 20 76 61 72 50 74 kip];. varPt
2540: 72 20 3d 20 66 72 61 6d 65 50 74 72 2d 3e 63 6f r = framePtr->co
2550: 6d 70 69 6c 65 64 4c 6f 63 61 6c 73 3b 0a 20 20 mpiledLocals;.
2560: 20 20 20 6c 6f 63 61 6c 50 74 72 20 3d 20 70 72 localPtr = pr
2570: 6f 63 50 74 72 2d 3e 66 69 72 73 74 4c 6f 63 61 ocPtr->firstLoca
2580: 6c 50 74 72 3b 0a 20 20 20 20 20 69 66 20 28 6e lPtr;. if (n
2590: 75 6d 41 72 67 73 20 3d 3d 20 30 29 20 7b 0a 40 umArgs == 0) {.@
25a0: 40 20 2d 31 31 39 34 2c 31 33 20 2b 31 32 31 37 @ -1194,13 +1217
25b0: 2c 31 33 20 40 40 0a 20 09 7d 0a 20 20 20 20 20 ,13 @@. .}.
25c0: 7d 0a 20 20 20 20 20 69 6d 61 78 20 3d 20 28 28 }. imax = ((
25d0: 61 72 67 43 74 20 3c 20 6e 75 6d 41 72 67 73 20 argCt < numArgs
25e0: 2d 20 31 29 3f 20 61 72 67 43 74 20 3a 20 28 6e - 1)? argCt : (n
25f0: 75 6d 41 72 67 73 20 2d 20 31 29 29 3b 0a 2d 20 umArgs - 1));.-
2600: 20 20 20 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 for (i = 1; i
2610: 20 3c 3d 20 69 6d 61 78 3b 20 69 2b 2b 29 20 7b <= imax; i++) {
2620: 0a 2b 20 20 20 20 66 6f 72 20 28 69 20 3d 20 30 .+ for (i = 0
2630: 3b 20 69 20 3c 20 69 6d 61 78 3b 20 69 2b 2b 29 ; i < imax; i++)
2640: 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 22 4e 6f {. ./*. . * "No
2650: 72 6d 61 6c 22 20 61 72 67 75 6d 65 6e 74 73 3b rmal" arguments;
2660: 20 6c 61 73 74 20 66 6f 72 6d 61 6c 20 69 73 20 last formal is
2670: 73 70 65 63 69 61 6c 2c 20 64 65 70 65 6e 64 73 special, depends
2680: 20 6f 6e 20 69 74 20 62 65 69 6e 67 0a 20 09 20 on it being. .
2690: 2a 20 27 61 72 67 73 27 2e 0a 20 09 20 2a 2f 0a * 'args'.. . */.
26a0: 20 0a 2d 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a .-.Tcl_Obj *obj
26b0: 50 74 72 20 3d 20 6f 62 6a 76 5b 69 5d 3b 0a 2b Ptr = objv[i];.+
26c0: 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 .Tcl_Obj *objPtr
26d0: 20 3d 20 61 72 67 4f 62 6a 73 5b 69 5d 3b 0a 20 = argObjs[i];.
26e0: 0a 20 09 76 61 72 50 74 72 2d 3e 76 61 6c 75 65 . .varPtr->value
26f0: 2e 6f 62 6a 50 74 72 20 3d 20 6f 62 6a 50 74 72 .objPtr = objPtr
2700: 3b 0a 20 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 ;. .Tcl_IncrRefC
2710: 6f 75 6e 74 28 6f 62 6a 50 74 72 29 3b 09 2f 2a ount(objPtr);./*
2720: 20 6c 6f 63 61 6c 20 76 61 72 20 69 73 20 61 20 local var is a
2730: 72 65 66 65 72 65 6e 63 65 20 2a 2f 0a 40 40 20 reference */.@@
2740: 2d 31 32 31 34 2c 37 20 2b 31 32 33 37 2c 37 20 -1214,7 +1237,7
2750: 40 40 0a 20 09 76 61 72 50 74 72 2b 2b 3b 0a 20 @@. .varPtr++;.
2760: 09 6c 6f 63 61 6c 50 74 72 20 3d 20 6c 6f 63 61 .localPtr = loca
2770: 6c 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 20 lPtr->nextPtr;.
2780: 20 20 20 20 7d 0a 2d 20 20 20 20 66 6f 72 20 28 }.- for (
2790: 3b 20 69 20 3c 20 6e 75 6d 41 72 67 73 3b 20 69 ; i < numArgs; i
27a0: 2b 2b 29 20 7b 0a 2b 20 20 20 20 66 6f 72 20 28 ++) {.+ for (
27b0: 3b 20 69 20 3c 20 28 6e 75 6d 41 72 67 73 20 2d ; i < (numArgs -
27c0: 20 31 29 3b 20 69 2b 2b 29 20 7b 0a 20 09 2f 2a 1); i++) {. ./*
27d0: 0a 20 09 20 2a 20 54 68 69 73 20 6c 6f 6f 70 20 . . * This loop
27e0: 69 73 20 65 6e 74 65 72 65 64 20 69 66 20 61 72 is entered if ar
27f0: 67 43 74 20 3c 20 28 6e 75 6d 41 72 67 73 2d 31 gCt < (numArgs-1
2800: 29 2e 20 53 65 74 20 64 65 66 61 75 6c 74 20 76 ). Set default v
2810: 61 6c 75 65 73 3b 0a 20 09 20 2a 20 6c 61 73 74 alues;. . * last
2820: 20 66 6f 72 6d 61 6c 20 69 73 20 73 70 65 63 69 formal is speci
2830: 61 6c 2e 0a 40 40 20 2d 31 32 34 35 2c 31 31 20 al..@@ -1245,11
2840: 2b 31 32 36 38 2c 31 31 20 40 40 0a 20 20 20 20 +1268,11 @@.
2850: 20 20 2a 2f 0a 20 0a 20 20 20 20 20 69 66 20 28 */. . if (
2860: 6c 6f 63 61 6c 50 74 72 2d 3e 66 6c 61 67 73 20 localPtr->flags
2870: 26 20 56 41 52 5f 49 53 5f 41 52 47 53 29 20 7b & VAR_IS_ARGS) {
2880: 0a 2d 09 54 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 .-.Tcl_Obj *list
2890: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Ptr = Tcl_NewLis
28a0: 74 4f 62 6a 28 6f 62 6a 63 2d 6e 75 6d 41 72 67 tObj(objc-numArg
28b0: 73 2c 20 26 28 6f 62 6a 76 5b 6e 75 6d 41 72 67 s, &(objv[numArg
28c0: 73 5d 29 29 3b 0a 2b 09 54 63 6c 5f 4f 62 6a 20 s]));.+.Tcl_Obj
28d0: 2a 6c 69 73 74 50 74 72 20 3d 20 54 63 6c 5f 4e *listPtr = Tcl_N
28e0: 65 77 4c 69 73 74 4f 62 6a 28 61 72 67 43 74 2d ewListObj(argCt-
28f0: 69 2c 20 26 28 61 72 67 4f 62 6a 73 5b 69 5d 29 i, &(argObjs[i])
2900: 29 3b 0a 20 09 76 61 72 50 74 72 2d 3e 76 61 6c );. .varPtr->val
2910: 75 65 2e 6f 62 6a 50 74 72 20 3d 20 6c 69 73 74 ue.objPtr = list
2920: 50 74 72 3b 0a 20 09 54 63 6c 5f 49 6e 63 72 52 Ptr;. .Tcl_IncrR
2930: 65 66 43 6f 75 6e 74 28 6c 69 73 74 50 74 72 29 efCount(listPtr)
2940: 3b 09 2f 2a 20 6c 6f 63 61 6c 20 76 61 72 20 69 ;./* local var i
2950: 73 20 61 20 72 65 66 65 72 65 6e 63 65 20 2a 2f s a reference */
2960: 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 . } else if
2970: 28 61 72 67 43 74 20 3d 3d 20 6e 75 6d 41 72 67 (argCt == numArg
2980: 73 29 20 7b 0a 2d 09 54 63 6c 5f 4f 62 6a 20 2a s) {.-.Tcl_Obj *
2990: 6f 62 6a 50 74 72 20 3d 20 6f 62 6a 76 5b 6e 75 objPtr = objv[nu
29a0: 6d 41 72 67 73 5d 3b 0a 2b 09 54 63 6c 5f 4f 62 mArgs];.+.Tcl_Ob
29b0: 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 61 72 67 4f j *objPtr = argO
29c0: 62 6a 73 5b 69 5d 3b 0a 20 09 76 61 72 50 74 72 bjs[i];. .varPtr
29d0: 2d 3e 76 61 6c 75 65 2e 6f 62 6a 50 74 72 20 3d ->value.objPtr =
29e0: 20 6f 62 6a 50 74 72 3b 0a 20 09 54 63 6c 5f 49 objPtr;. .Tcl_I
29f0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 50 ncrRefCount(objP
2a00: 74 72 29 3b 09 2f 2a 20 6c 6f 63 61 6c 20 76 61 tr);./* local va
2a10: 72 20 69 73 20 61 20 72 65 66 65 72 65 6e 63 65 r is a reference
2a20: 20 2a 2f 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 */. } else
2a30: 69 66 20 28 28 61 72 67 43 74 20 3c 20 6e 75 6d if ((argCt < num
2a40: 41 72 67 73 29 20 26 26 20 28 6c 6f 63 61 6c 50 Args) && (localP
2a50: 74 72 2d 3e 64 65 66 56 61 6c 75 65 50 74 72 20 tr->defValuePtr
2a60: 21 3d 20 4e 55 4c 4c 29 29 20 7b 0a 40 40 20 2d != NULL)) {.@@ -
2a70: 31 32 37 39 2c 37 20 2b 31 33 30 32 2c 37 20 40 1279,7 +1302,7 @
2a80: 40 0a 20 23 69 66 64 65 66 20 41 56 4f 49 44 5f @. #ifdef AVOID_
2a90: 48 41 43 4b 53 5f 46 4f 52 5f 49 54 43 4c 0a 20 HACKS_FOR_ITCL.
2aa0: 09 64 65 73 69 72 65 64 4f 62 6a 73 5b 30 5d 20 .desiredObjs[0]
2ab0: 3d 20 6f 62 6a 76 5b 30 5d 3b 0a 20 23 65 6c 73 = objv[0];. #els
2ac0: 65 0a 2d 09 64 65 73 69 72 65 64 4f 62 6a 73 5b e.-.desiredObjs[
2ad0: 30 5d 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 0] = Tcl_NewList
2ae0: 4f 62 6a 28 31 2c 20 6f 62 6a 76 29 3b 0a 2b 09 Obj(1, objv);.+.
2af0: 64 65 73 69 72 65 64 4f 62 6a 73 5b 30 5d 20 3d desiredObjs[0] =
2b00: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
2b10: 73 6b 69 70 2c 20 6f 62 6a 76 29 3b 0a 20 23 65 skip, objv);. #e
2b20: 6e 64 69 66 20 2f 2a 20 41 56 4f 49 44 5f 48 41 ndif /* AVOID_HA
2b30: 43 4b 53 5f 46 4f 52 5f 49 54 43 4c 20 2a 2f 0a CKS_FOR_ITCL */.
2b40: 20 0a 20 09 6c 6f 63 61 6c 50 74 72 20 3d 20 70 . .localPtr = p
2b50: 72 6f 63 50 74 72 2d 3e 66 69 72 73 74 4c 6f 63 rocPtr->firstLoc
2b60: 61 6c 50 74 72 3b 0a 40 40 20 2d 31 38 36 36 2c alPtr;.@@ -1866,
2b70: 36 20 2b 31 38 38 39 2c 32 32 34 20 40 40 0a 20 6 +1889,224 @@.
2b80: 7d 0a 20 0c 0a 20 2f 2a 0a 2b 20 2a 20 4c 41 4d }. .. /*.+ * LAM
2b90: 42 44 41 20 61 6e 64 20 41 50 50 4c 59 20 69 6d BDA and APPLY im
2ba0: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 2b 20 2a plementation.+ *
2bb0: 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 61 74 69 63 20 .+ */.+.+static
2bc0: 76 6f 69 64 09 09 44 75 70 4c 61 6d 62 64 61 49 void..DupLambdaI
2bd0: 6e 74 65 72 6e 61 6c 52 65 70 20 5f 41 4e 53 49 nternalRep _ANSI
2be0: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 4f 62 6a 20 _ARGS_((Tcl_Obj
2bf0: 2a 6f 62 6a 50 74 72 2c 0a 2b 09 09 09 20 20 20 *objPtr,.+...
2c00: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 70 79 50 74 Tcl_Obj *copyPt
2c10: 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 76 6f 69 r));.+static voi
2c20: 64 09 09 46 72 65 65 4c 61 6d 62 64 61 49 6e 74 d..FreeLambdaInt
2c30: 65 72 6e 61 6c 52 65 70 20 5f 41 4e 53 49 5f 41 ernalRep _ANSI_A
2c40: 52 47 53 5f 28 28 0a 2b 20 20 20 20 09 09 09 20 RGS_((.+ ...
2c50: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
2c60: 74 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 69 6e tr));.+static in
2c70: 74 09 09 53 65 74 4c 61 6d 62 64 61 46 72 6f 6d t..SetLambdaFrom
2c80: 41 6e 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 Any _ANSI_ARGS_(
2c90: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
2ca0: 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 54 63 6c erp,.+... Tcl
2cb0: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 29 29 3b 0a _Obj *objPtr));.
2cc0: 2b 0a 2b 54 63 6c 5f 4f 62 6a 54 79 70 65 20 6c +.+Tcl_ObjType l
2cd0: 61 6d 62 64 61 54 79 70 65 20 3d 20 7b 0a 2b 20 ambdaType = {.+
2ce0: 20 20 20 22 6c 61 6d 62 64 61 22 2c 09 09 09 09 "lambda",....
2cf0: 2f 2a 20 6e 61 6d 65 20 2a 2f 0a 2b 20 20 20 20 /* name */.+
2d00: 46 72 65 65 4c 61 6d 62 64 61 49 6e 74 65 72 6e FreeLambdaIntern
2d10: 61 6c 52 65 70 2c 09 20 20 20 20 20 20 20 20 2f alRep,. /
2d20: 2a 20 66 72 65 65 49 6e 74 52 65 70 50 72 6f 63 * freeIntRepProc
2d30: 20 2a 2f 0a 2b 20 20 20 20 44 75 70 4c 61 6d 62 */.+ DupLamb
2d40: 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 2c 09 20 daInternalRep,.
2d50: 20 20 20 20 20 20 20 2f 2a 20 64 75 70 49 6e 74 /* dupInt
2d60: 52 65 70 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 RepProc */.+
2d70: 28 54 63 6c 5f 55 70 64 61 74 65 53 74 72 69 6e (Tcl_UpdateStrin
2d80: 67 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 2c 09 2f gProc *) NULL,./
2d90: 2a 20 75 70 64 61 74 65 53 74 72 69 6e 67 50 72 * updateStringPr
2da0: 6f 63 20 2a 2f 0a 2b 20 20 20 20 53 65 74 4c 61 oc */.+ SetLa
2db0: 6d 62 64 61 46 72 6f 6d 41 6e 79 09 09 09 2f 2a mbdaFromAny.../*
2dc0: 20 73 65 74 46 72 6f 6d 41 6e 79 50 72 6f 63 20 setFromAnyProc
2dd0: 2a 2f 0a 2b 7d 3b 0a 2b 0a 2b 2f 2a 0a 2b 20 2a */.+};.+.+/*.+ *
2de0: 20 61 20 4c 61 6d 62 64 61 20 54 63 6c 5f 4f 62 a Lambda Tcl_Ob
2df0: 6a 20 68 61 73 20 74 68 65 20 66 6f 72 6d 0a 2b j has the form.+
2e00: 20 2a 0a 2b 20 2a 20 20 70 74 72 31 20 69 73 20 *.+ * ptr1 is
2e10: 61 20 2a 50 72 6f 63 3a 20 20 20 20 20 70 6f 69 a *Proc: poi
2e20: 6e 74 65 72 20 74 6f 20 61 20 70 72 6f 63 20 73 nter to a proc s
2e30: 74 72 75 63 74 75 72 65 0a 2b 20 2a 20 20 70 74 tructure.+ * pt
2e40: 72 32 20 69 73 20 61 20 2a 54 63 6c 5f 4f 62 6a r2 is a *Tcl_Obj
2e50: 3a 20 20 74 68 65 20 6c 61 6d 62 64 61 27 73 20 : the lambda's
2e60: 6e 61 6d 65 73 70 61 63 65 0a 2b 20 2a 2f 0a 2b namespace.+ */.+
2e70: 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 0a 2b 44 .+static void.+D
2e80: 75 70 4c 61 6d 62 64 61 49 6e 74 65 72 6e 61 6c upLambdaInternal
2e90: 52 65 70 28 73 72 63 50 74 72 2c 20 63 6f 70 79 Rep(srcPtr, copy
2ea0: 50 74 72 29 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 Ptr).+ Tcl_Ob
2eb0: 6a 20 2a 73 72 63 50 74 72 3b 09 09 2f 2a 20 4f j *srcPtr;../* O
2ec0: 62 6a 65 63 74 20 77 69 74 68 20 69 6e 74 65 72 bject with inter
2ed0: 6e 61 6c 20 72 65 70 20 74 6f 20 63 6f 70 79 2e nal rep to copy.
2ee0: 20 2a 2f 0a 2b 20 20 20 20 72 65 67 69 73 74 65 */.+ registe
2ef0: 72 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 70 79 50 r Tcl_Obj *copyP
2f00: 74 72 3b 09 2f 2a 20 4f 62 6a 65 63 74 20 77 69 tr;./* Object wi
2f10: 74 68 20 69 6e 74 65 72 6e 61 6c 20 72 65 70 20 th internal rep
2f20: 74 6f 20 73 65 74 2e 20 2a 2f 0a 2b 7b 0a 2b 20 to set. */.+{.+
2f30: 20 20 20 50 72 6f 63 20 2a 70 72 6f 63 50 74 72 Proc *procPtr
2f40: 20 3d 20 28 50 72 6f 63 20 2a 29 20 73 72 63 50 = (Proc *) srcP
2f50: 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e tr->internalRep.
2f60: 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 twoPtrValue.ptr1
2f70: 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a ;.+ Tcl_Obj *
2f80: 6e 73 4f 62 6a 50 74 72 20 3d 20 28 54 63 6c 5f nsObjPtr = (Tcl_
2f90: 4f 62 6a 20 2a 29 20 73 72 63 50 74 72 2d 3e 69 Obj *) srcPtr->i
2fa0: 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 nternalRep.twoPt
2fb0: 72 56 61 6c 75 65 2e 70 74 72 32 3b 0a 2b 0a 2b rValue.ptr2;.+.+
2fc0: 20 20 20 20 63 6f 70 79 50 74 72 2d 3e 69 6e 74 copyPtr->int
2fd0: 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 ernalRep.twoPtrV
2fe0: 61 6c 75 65 2e 70 74 72 31 20 3d 20 28 56 4f 49 alue.ptr1 = (VOI
2ff0: 44 20 2a 29 20 70 72 6f 63 50 74 72 3b 0a 2b 20 D *) procPtr;.+
3000: 20 20 20 63 6f 70 79 50 74 72 2d 3e 69 6e 74 65 copyPtr->inte
3010: 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 rnalRep.twoPtrVa
3020: 6c 75 65 2e 70 74 72 32 20 3d 20 28 56 4f 49 44 lue.ptr2 = (VOID
3030: 20 2a 29 20 6e 73 4f 62 6a 50 74 72 3b 0a 2b 0a *) nsObjPtr;.+.
3040: 2b 20 20 20 20 70 72 6f 63 50 74 72 2d 3e 72 65 + procPtr->re
3050: 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 20 20 20 54 fCount++;.+ T
3060: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
3070: 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b 20 20 20 20 nsObjPtr);.+
3080: 63 6f 70 79 50 74 72 2d 3e 74 79 70 65 50 74 72 copyPtr->typePtr
3090: 20 3d 20 26 6c 61 6d 62 64 61 54 79 70 65 3b 0a = &lambdaType;.
30a0: 2b 7d 0a 2b 0a 2b 73 74 61 74 69 63 20 76 6f 69 +}.+.+static voi
30b0: 64 0a 2b 46 72 65 65 4c 61 6d 62 64 61 49 6e 74 d.+FreeLambdaInt
30c0: 65 72 6e 61 6c 52 65 70 28 6f 62 6a 50 74 72 29 ernalRep(objPtr)
30d0: 0a 2b 20 20 20 20 72 65 67 69 73 74 65 72 20 54 .+ register T
30e0: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 09 cl_Obj *objPtr;.
30f0: 2f 2a 20 43 6d 64 4e 61 6d 65 20 6f 62 6a 65 63 /* CmdName objec
3100: 74 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 0a t with internal.
3110: 2b 09 09 09 09 20 2a 20 72 65 70 72 65 73 65 6e +.... * represen
3120: 74 61 74 69 6f 6e 20 74 6f 20 66 72 65 65 2e 20 tation to free.
3130: 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 50 72 6f 63 20 */.+{.+ Proc
3140: 2a 70 72 6f 63 50 74 72 20 3d 20 28 50 72 6f 63 *procPtr = (Proc
3150: 20 2a 29 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 65 *) objPtr->inte
3160: 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 rnalRep.twoPtrVa
3170: 6c 75 65 2e 70 74 72 31 3b 0a 2b 20 20 20 20 54 lue.ptr1;.+ T
3180: 63 6c 5f 4f 62 6a 20 2a 6e 73 4f 62 6a 50 74 72 cl_Obj *nsObjPtr
3190: 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 6f = (Tcl_Obj *) o
31a0: 62 6a 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 bjPtr->internalR
31b0: 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 ep.twoPtrValue.p
31c0: 74 72 32 3b 0a 2b 0a 2b 20 20 20 20 70 72 6f 63 tr2;.+.+ proc
31d0: 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2d 2d 3b Ptr->refCount--;
31e0: 0a 2b 20 20 20 20 69 66 20 28 70 72 6f 63 50 74 .+ if (procPt
31f0: 72 2d 3e 72 65 66 43 6f 75 6e 74 20 3d 3d 20 30 r->refCount == 0
3200: 29 20 7b 0a 2b 09 54 63 6c 50 72 6f 63 43 6c 65 ) {.+.TclProcCle
3210: 61 6e 75 70 50 72 6f 63 28 70 72 6f 63 50 74 72 anupProc(procPtr
3220: 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 54 );.+ }.+ T
3230: 63 6c 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6e clDecrRefCount(n
3240: 73 4f 62 6a 50 74 72 29 3b 0a 2b 7d 0a 2b 0a 2b sObjPtr);.+}.+.+
3250: 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 53 65 .+static int.+Se
3260: 74 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 28 69 tLambdaFromAny(i
3270: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 0a 2b nterp, objPtr).+
3280: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
3290: 69 6e 74 65 72 70 3b 09 09 2f 2a 20 55 73 65 64 interp;../* Used
32a0: 20 66 6f 72 20 65 72 72 6f 72 20 72 65 70 6f 72 for error repor
32b0: 74 69 6e 67 20 69 66 20 6e 6f 74 20 4e 55 4c 4c ting if not NULL
32c0: 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 67 69 73 74 . */.+ regist
32d0: 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 er Tcl_Obj *objP
32e0: 74 72 3b 09 2f 2a 20 54 68 65 20 6f 62 6a 65 63 tr;./* The objec
32f0: 74 20 74 6f 20 63 6f 6e 76 65 72 74 2e 20 2a 2f t to convert. */
3300: 0a 2b 7b 0a 2b 20 20 20 20 63 68 61 72 20 2a 6e .+{.+ char *n
3310: 61 6d 65 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 ame;.+ Tcl_Ob
3320: 6a 20 2a 61 72 67 73 50 74 72 2c 20 2a 62 6f 64 j *argsPtr, *bod
3330: 79 50 74 72 2c 20 2a 6e 73 4f 62 6a 50 74 72 2c yPtr, *nsObjPtr,
3340: 20 2a 2a 6f 62 6a 76 2c 20 2a 65 72 72 50 74 72 **objv, *errPtr
3350: 3b 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b ;.+ int objc;
3360: 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 6f 63 .+ Proc *proc
3370: 50 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 72 65 Ptr;.+ int re
3380: 73 75 6c 74 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a sult;.+.+ /*.
3390: 2b 20 20 20 20 20 2a 20 43 6f 6e 76 65 72 74 20 + * Convert
33a0: 6f 62 6a 50 74 72 20 74 6f 20 6c 69 73 74 20 74 objPtr to list t
33b0: 79 70 65 20 66 69 72 73 74 3b 20 69 66 20 69 74 ype first; if it
33c0: 20 63 61 6e 6e 6f 74 20 62 65 0a 2b 20 20 20 20 cannot be.+
33d0: 20 2a 20 63 6f 6e 76 65 72 74 65 64 2c 20 6f 72 * converted, or
33e0: 20 69 66 20 69 74 73 20 6c 65 6e 67 74 68 20 69 if its length i
33f0: 73 20 6e 6f 74 20 32 2c 20 74 68 65 6e 20 69 74 s not 2, then it
3400: 20 63 61 6e 6e 6f 74 0a 2b 20 20 20 20 20 2a 20 cannot.+ *
3410: 62 65 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 be converted to
3420: 6c 61 6d 62 64 61 54 79 70 65 2e 0a 2b 20 20 20 lambdaType..+
3430: 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 72 65 73 75 */.+.+ resu
3440: 6c 74 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a lt = Tcl_ListObj
3450: 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 GetElements(inte
3460: 72 70 2c 20 6f 62 6a 50 74 72 2c 20 26 6f 62 6a rp, objPtr, &obj
3470: 63 2c 20 26 6f 62 6a 76 29 3b 0a 2b 20 20 20 20 c, &objv);.+
3480: 69 66 20 28 28 72 65 73 75 6c 74 20 21 3d 20 54 if ((result != T
3490: 43 4c 5f 4f 4b 29 20 7c 7c 20 28 28 6f 62 6a 63 CL_OK) || ((objc
34a0: 20 21 3d 20 32 29 20 26 26 20 28 6f 62 6a 63 20 != 2) && (objc
34b0: 21 3d 20 33 29 29 29 20 7b 0a 2b 09 65 72 72 50 != 3))) {.+.errP
34c0: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 tr = Tcl_NewStri
34d0: 6e 67 4f 62 6a 28 22 63 61 6e 27 74 20 69 6e 74 ngObj("can't int
34e0: 65 72 70 72 65 74 20 5c 22 22 2c 2d 31 29 3b 0a erpret \"",-1);.
34f0: 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 +.Tcl_IncrRefCou
3500: 6e 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 54 63 nt(errPtr);.+.Tc
3510: 6c 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a l_AppendObjToObj
3520: 28 65 72 72 50 74 72 2c 20 6f 62 6a 50 74 72 29 (errPtr, objPtr)
3530: 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 54 6f ;.+.Tcl_AppendTo
3540: 4f 62 6a 28 65 72 72 50 74 72 2c 20 22 5c 22 20 Obj(errPtr, "\"
3550: 61 73 20 61 20 6c 61 6d 62 64 61 20 65 78 70 72 as a lambda expr
3560: 65 73 73 69 6f 6e 22 2c 20 2d 31 29 3b 0a 2b 09 ession", -1);.+.
3570: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
3580: 28 69 6e 74 65 72 70 2c 20 65 72 72 50 74 72 29 (interp, errPtr)
3590: 3b 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 66 43 ;.+.Tcl_DecrRefC
35a0: 6f 75 6e 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 ount(errPtr);.+.
35b0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
35c0: 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 ;.+ }.+.+
35d0: 61 72 67 73 50 74 72 20 3d 20 6f 62 6a 76 5b 30 argsPtr = objv[0
35e0: 5d 3b 0a 2b 20 20 20 20 62 6f 64 79 50 74 72 20 ];.+ bodyPtr
35f0: 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 2b 0a 2b 20 20 = objv[1];.+.+
3600: 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 43 72 65 /*.+ * Cre
3610: 61 74 65 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 ate and initiali
3620: 7a 65 20 74 68 65 20 50 72 6f 63 20 73 74 72 75 ze the Proc stru
3630: 63 74 2e 20 54 68 65 20 63 6d 64 50 74 72 20 66 ct. The cmdPtr f
3640: 69 65 6c 64 20 69 73 0a 2b 20 20 20 20 20 2a 20 ield is.+ *
3650: 73 65 74 20 74 6f 20 4e 55 4c 4c 20 74 6f 20 73 set to NULL to s
3660: 69 67 6e 61 6c 20 74 68 61 74 20 74 68 69 73 20 ignal that this
3670: 69 73 20 61 6e 20 61 6e 6f 6e 79 6d 6f 75 73 20 is an anonymous
3680: 66 75 6e 63 74 69 6f 6e 2e 0a 2b 20 20 20 20 20 function..+
3690: 2a 2f 0a 2b 0a 2b 20 20 20 20 6e 61 6d 65 20 3d */.+.+ name =
36a0: 20 54 63 6c 47 65 74 53 74 72 69 6e 67 28 6f 62 TclGetString(ob
36b0: 6a 50 74 72 29 3b 0a 2b 20 20 20 20 0a 2b 20 20 jPtr);.+ .+
36c0: 20 20 69 66 20 28 54 63 6c 43 72 65 61 74 65 50 if (TclCreateP
36d0: 72 6f 63 28 69 6e 74 65 72 70 2c 20 2f 2a 69 67 roc(interp, /*ig
36e0: 6e 6f 72 65 64 20 6e 73 50 74 72 2a 2f 20 4e 55 nored nsPtr*/ NU
36f0: 4c 4c 2c 20 6e 61 6d 65 2c 20 61 72 67 73 50 74 LL, name, argsPt
3700: 72 2c 0a 2b 09 09 62 6f 64 79 50 74 72 2c 20 26 r,.+..bodyPtr, &
3710: 70 72 6f 63 50 74 72 29 20 21 3d 20 54 43 4c 5f procPtr) != TCL_
3720: 4f 4b 29 20 7b 0a 2b 09 54 63 6c 5f 41 64 64 45 OK) {.+.Tcl_AddE
3730: 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c rrorInfo(interp,
3740: 20 22 5c 6e 20 20 20 20 28 70 61 72 73 69 6e 67 "\n (parsing
3750: 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 lambda expressi
3760: 6f 6e 20 5c 22 22 29 3b 0a 2b 09 54 63 6c 5f 41 on \"");.+.Tcl_A
3770: 64 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 ddErrorInfo(inte
3780: 72 70 2c 20 6e 61 6d 65 29 3b 0a 2b 09 54 63 6c rp, name);.+.Tcl
3790: 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e _AddErrorInfo(in
37a0: 74 65 72 70 2c 20 22 5c 22 29 22 29 3b 0a 2b 20 terp, "\")");.+
37b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
37c0: 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a L_ERROR;.+ }.
37d0: 2b 20 20 20 20 70 72 6f 63 50 74 72 2d 3e 72 65 + procPtr->re
37e0: 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 20 20 20 70 fCount++;.+ p
37f0: 72 6f 63 50 74 72 2d 3e 63 6d 64 50 74 72 20 3d rocPtr->cmdPtr =
3800: 20 28 43 6f 6d 6d 61 6e 64 20 2a 29 20 4e 55 4c (Command *) NUL
3810: 4c 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 L;.+.+ /*.+
3820: 20 20 20 2a 20 53 65 74 20 74 68 65 20 6e 61 6d * Set the nam
3830: 65 73 70 61 63 65 20 66 6f 72 20 74 68 69 73 20 espace for this
3840: 6c 61 6d 62 64 61 3a 20 67 69 76 65 6e 20 62 79 lambda: given by
3850: 20 6f 62 6a 76 5b 32 5d 20 75 6e 64 65 72 73 74 objv[2] underst
3860: 6f 6f 64 0a 2b 20 20 20 20 20 2a 20 61 73 20 61 ood.+ * as a
3870: 20 67 6c 6f 62 61 6c 20 72 65 66 65 72 65 6e 63 global referenc
3880: 65 2c 20 6f 72 20 65 6c 73 65 20 67 6c 6f 62 61 e, or else globa
3890: 6c 20 70 65 72 20 64 65 66 61 75 6c 74 2e 0a 2b l per default..+
38a0: 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 0a 2b 20 */.+ .+
38b0: 20 20 20 6e 73 4f 62 6a 50 74 72 20 3d 20 54 63 nsObjPtr = Tc
38c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
38d0: 3a 3a 22 2c 20 32 29 3b 0a 2b 20 20 20 20 54 63 ::", 2);.+ Tc
38e0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6e l_IncrRefCount(n
38f0: 73 4f 62 6a 50 74 72 29 3b 20 20 20 20 0a 2b 0a sObjPtr); .+.
3900: 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d + if (objc ==
3910: 20 33 29 20 7b 0a 2b 09 54 63 6c 5f 41 70 70 65 3) {.+.Tcl_Appe
3920: 6e 64 4f 62 6a 54 6f 4f 62 6a 28 6e 73 4f 62 6a ndObjToObj(nsObj
3930: 50 74 72 2c 20 6f 62 6a 76 5b 32 5d 29 3b 0a 2b Ptr, objv[2]);.+
3940: 20 20 20 20 7d 0a 2b 09 20 20 20 20 09 0a 2b 20 }.+. ..+
3950: 20 20 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 .+ /*.+
3960: 20 20 2a 20 46 72 65 65 20 74 68 65 20 6c 69 73 * Free the lis
3970: 74 20 69 6e 74 65 72 6e 61 6c 72 65 70 20 6f 66 t internalrep of
3980: 20 6f 62 6a 50 74 72 20 2d 20 74 68 69 73 20 77 objPtr - this w
3990: 69 6c 6c 20 66 72 65 65 20 61 72 67 73 50 74 72 ill free argsPtr
39a0: 2c 20 62 75 74 0a 2b 20 20 20 20 20 2a 20 62 6f , but.+ * bo
39b0: 64 79 50 74 72 20 72 65 74 61 69 6e 73 20 61 20 dyPtr retains a
39c0: 72 65 66 65 72 65 6e 63 65 20 66 72 6f 6d 20 74 reference from t
39d0: 68 65 20 50 72 6f 63 20 73 74 72 75 63 74 75 72 he Proc structur
39e0: 65 2e 20 54 68 65 6e 20 66 69 6e 69 73 68 0a 2b e. Then finish.+
39f0: 20 20 20 20 20 2a 20 74 68 65 20 63 6f 6e 76 65 * the conve
3a00: 72 73 69 6f 6e 20 74 6f 20 6c 61 6d 62 64 61 54 rsion to lambdaT
3a10: 79 70 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a ype..+ */.+.
3a20: 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 74 79 70 + objPtr->typ
3a30: 65 50 74 72 2d 3e 66 72 65 65 49 6e 74 52 65 70 ePtr->freeIntRep
3a40: 50 72 6f 63 28 6f 62 6a 50 74 72 29 3b 0a 2b 0a Proc(objPtr);.+.
3a50: 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 + objPtr->int
3a60: 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 ernalRep.twoPtrV
3a70: 61 6c 75 65 2e 70 74 72 31 20 3d 20 28 56 4f 49 alue.ptr1 = (VOI
3a80: 44 20 2a 29 20 70 72 6f 63 50 74 72 3b 0a 2b 20 D *) procPtr;.+
3a90: 20 20 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 65 72 objPtr->inter
3aa0: 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 6c nalRep.twoPtrVal
3ab0: 75 65 2e 70 74 72 32 20 3d 20 28 56 4f 49 44 20 ue.ptr2 = (VOID
3ac0: 2a 29 20 6e 73 4f 62 6a 50 74 72 3b 0a 2b 20 20 *) nsObjPtr;.+
3ad0: 20 20 6f 62 6a 50 74 72 2d 3e 74 79 70 65 50 74 objPtr->typePt
3ae0: 72 20 3d 20 26 6c 61 6d 62 64 61 54 79 70 65 3b r = &lambdaType;
3af0: 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .+ return TCL
3b00: 5f 4f 4b 3b 0a 2b 7d 0a 2b 0a 2b 69 6e 74 0a 2b _OK;.+}.+.+int.+
3b10: 54 63 6c 5f 41 70 70 6c 79 4f 62 6a 43 6d 64 28 Tcl_ApplyObjCmd(
3b20: 64 75 6d 6d 79 2c 20 69 6e 74 65 72 70 2c 20 6f dummy, interp, o
3b30: 62 6a 63 2c 20 6f 62 6a 76 29 0a 2b 20 20 20 20 bjc, objv).+
3b40: 43 6c 69 65 6e 74 44 61 74 61 20 64 75 6d 6d 79 ClientData dummy
3b50: 3b 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 ;../* Not used.
3b60: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 */.+ Tcl_Inte
3b70: 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 rp *interp;../*
3b80: 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 Current interpre
3b90: 74 65 72 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 ter. */.+ int
3ba0: 20 6f 62 6a 63 3b 09 09 09 2f 2a 20 4e 75 6d 62 objc;.../* Numb
3bb0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e er of arguments.
3bc0: 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a */.+ Tcl_Obj
3bd0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 09 *CONST objv[];.
3be0: 2f 2a 20 41 72 67 75 6d 65 6e 74 20 6f 62 6a 65 /* Argument obje
3bf0: 63 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 cts. */.+{.+
3c00: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 Interp *iPtr = (
3c10: 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 Interp *) interp
3c20: 3b 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 6f ;.+ Proc *pro
3c30: 63 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 20 20 cPtr = NULL;.+
3c40: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6c 61 6d 62 64 Tcl_Obj *lambd
3c50: 61 50 74 72 2c 20 2a 6e 73 4f 62 6a 50 74 72 2c aPtr, *nsObjPtr,
3c60: 20 2a 65 72 72 50 74 72 3b 0a 2b 20 20 20 20 69 *errPtr;.+ i
3c70: 6e 74 20 72 65 73 75 6c 74 3b 0a 2b 20 20 20 20 nt result;.+
3c80: 43 6f 6d 6d 61 6e 64 20 63 6d 64 3b 0a 2b 20 20 Command cmd;.+
3c90: 20 20 54 63 6c 5f 4e 61 6d 65 73 70 61 63 65 20 Tcl_Namespace
3ca0: 2a 6e 73 50 74 72 3b 0a 2b 0a 2b 23 64 65 66 69 *nsPtr;.+.+#defi
3cb0: 6e 65 20 4a 4f 45 5f 45 58 54 45 4e 53 49 4f 4e ne JOE_EXTENSION
3cc0: 20 30 0a 2b 23 69 66 20 4a 4f 45 5f 45 58 54 45 0.+#if JOE_EXTE
3cd0: 4e 53 49 4f 4e 0a 2b 20 20 20 20 54 63 6c 5f 4f NSION.+ Tcl_O
3ce0: 62 6a 20 2a 65 6c 65 6d 50 74 72 3b 0a 2b 20 20 bj *elemPtr;.+
3cf0: 20 20 69 6e 74 20 6e 75 6d 45 6c 65 6d 3b 0a 2b int numElem;.+
3d00: 23 65 6e 64 69 66 0a 2b 20 20 20 20 69 66 20 28 #endif.+ if (
3d10: 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 2b 09 54 63 objc < 2) {.+.Tc
3d20: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
3d30: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
3d40: 22 6c 61 6d 62 64 61 45 78 70 72 20 3f 61 72 67 "lambdaExpr ?arg
3d50: 31 20 61 72 67 32 20 2e 2e 2e 3f 22 29 3b 0a 2b 1 arg2 ...?");.+
3d60: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3d70: 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 R;.+ }.+.+
3d80: 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 53 65 74 20 /*.+ * Set
3d90: 6c 61 6d 62 64 61 50 74 72 2c 20 63 6f 6e 76 65 lambdaPtr, conve
3da0: 72 74 20 69 74 20 74 6f 20 6c 61 6d 62 64 61 54 rt it to lambdaT
3db0: 79 70 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 ype in the curre
3dc0: 6e 74 0a 2b 20 20 20 20 20 2a 20 69 6e 74 65 72 nt.+ * inter
3dd0: 70 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a p if necessary..
3de0: 2b 20 20 20 20 20 2a 2f 0a 2b 20 0a 2b 20 20 20 + */.+ .+
3df0: 20 6c 61 6d 62 64 61 50 74 72 20 3d 20 6f 62 6a lambdaPtr = obj
3e00: 76 5b 31 5d 3b 0a 2b 20 20 20 20 69 66 20 28 6c v[1];.+ if (l
3e10: 61 6d 62 64 61 50 74 72 2d 3e 74 79 70 65 50 74 ambdaPtr->typePt
3e20: 72 20 3d 3d 20 26 6c 61 6d 62 64 61 54 79 70 65 r == &lambdaType
3e30: 29 20 7b 0a 2b 09 70 72 6f 63 50 74 72 20 3d 20 ) {.+.procPtr =
3e40: 28 50 72 6f 63 20 2a 29 20 6c 61 6d 62 64 61 50 (Proc *) lambdaP
3e50: 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e tr->internalRep.
3e60: 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 twoPtrValue.ptr1
3e70: 3b 0a 2b 0a 2b 23 69 66 20 4a 4f 45 5f 45 58 54 ;.+.+#if JOE_EXT
3e80: 45 4e 53 49 4f 4e 0a 2b 2f 2a 0a 2b 20 2a 20 4a ENSION.+/*.+ * J
3e90: 6f 65 20 45 6e 67 6c 69 73 68 27 73 20 73 75 67 oe English's sug
3ea0: 67 65 73 74 69 6f 6e 20 74 6f 20 61 6c 6c 6f 77 gestion to allow
3eb0: 20 63 6d 64 4e 61 6d 65 73 20 74 6f 20 66 75 6e cmdNames to fun
3ec0: 63 74 69 6f 6e 20 61 73 20 6c 61 6d 62 64 61 73 ction as lambdas
3ed0: 2e 20 52 65 71 75 69 72 65 73 0a 2b 20 2a 20 61 . Requires.+ * a
3ee0: 6c 73 6f 20 6d 61 6b 69 6e 67 20 74 63 6c 43 6d lso making tclCm
3ef0: 64 4e 61 6d 65 54 79 70 65 20 6e 6f 6e 2d 73 74 dNameType non-st
3f00: 61 74 69 63 20 69 6e 20 74 63 6c 4f 62 6a 2e 63 atic in tclObj.c
3f10: 0a 2b 20 2a 0a 2b 20 2a 2f 20 0a 2b 20 20 20 20 .+ *.+ */ .+
3f20: 7d 20 65 6c 73 65 20 69 66 20 28 28 6c 61 6d 62 } else if ((lamb
3f30: 64 61 50 74 72 2d 3e 74 79 70 65 50 74 72 20 3d daPtr->typePtr =
3f40: 3d 20 26 74 63 6c 43 6d 64 4e 61 6d 65 54 79 70 = &tclCmdNameTyp
3f50: 65 29 0a 2b 09 20 20 20 20 7c 7c 20 28 54 43 4c e).+. || (TCL
3f60: 5f 4f 4b 20 3d 3d 20 28 54 63 6c 5f 4c 69 73 74 _OK == (Tcl_List
3f70: 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 ObjGetElements(i
3f80: 6e 74 65 72 70 2c 20 6c 61 6d 62 64 61 50 74 72 nterp, lambdaPtr
3f90: 2c 20 26 6e 75 6d 45 6c 65 6d 2c 20 26 65 6c 65 , &numElem, &ele
3fa0: 6d 50 74 72 29 29 0a 2b 09 09 20 20 20 20 26 26 mPtr)).+.. &&
3fb0: 20 28 6e 75 6d 45 6c 65 6d 20 3d 3d 20 31 29 29 (numElem == 1))
3fc0: 29 20 7b 0a 2b 09 72 65 74 75 72 6e 20 54 63 6c ) {.+.return Tcl
3fd0: 5f 45 76 61 6c 4f 62 6a 76 28 69 6e 74 65 72 70 _EvalObjv(interp
3fe0: 2c 20 6f 62 6a 63 2d 31 2c 20 6f 62 6a 76 2b 31 , objc-1, objv+1
3ff0: 2c 20 30 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 20 , 0);.+#endif.+
4000: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 66 20 28 }.+.+ if (
4010: 28 70 72 6f 63 50 74 72 20 3d 3d 20 4e 55 4c 4c (procPtr == NULL
4020: 29 20 7c 7c 20 28 70 72 6f 63 50 74 72 2d 3e 69 ) || (procPtr->i
4030: 50 74 72 20 21 3d 20 69 50 74 72 29 29 20 7b 0a Ptr != iPtr)) {.
4040: 2b 09 72 65 73 75 6c 74 20 3d 20 53 65 74 4c 61 +.result = SetLa
4050: 6d 62 64 61 46 72 6f 6d 41 6e 79 28 69 6e 74 65 mbdaFromAny(inte
4060: 72 70 2c 20 6c 61 6d 62 64 61 50 74 72 29 3b 0a rp, lambdaPtr);.
4070: 2b 09 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 +.if (result !=
4080: 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 TCL_OK) {.+.
4090: 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0a 2b return result;.+
40a0: 09 7d 0a 2b 09 70 72 6f 63 50 74 72 20 3d 20 28 .}.+.procPtr = (
40b0: 50 72 6f 63 20 2a 29 20 6c 61 6d 62 64 61 50 74 Proc *) lambdaPt
40c0: 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 r->internalRep.t
40d0: 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 3b woPtrValue.ptr1;
40e0: 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 70 72 6f .+ }.+ pro
40f0: 63 50 74 72 2d 3e 63 6d 64 50 74 72 20 3d 20 26 cPtr->cmdPtr = &
4100: 63 6d 64 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 cmd;.+ .+
4110: 2f 2a 0a 2b 20 20 20 20 20 2a 20 46 69 6e 64 20 /*.+ * Find
4120: 74 68 65 20 6e 61 6d 65 73 70 61 63 65 20 77 68 the namespace wh
4130: 65 72 65 20 74 68 69 73 20 6c 61 6d 62 64 61 20 ere this lambda
4140: 73 68 6f 75 6c 64 20 72 75 6e 2c 20 61 6e 64 0a should run, and.
4150: 2b 20 20 20 20 20 2a 20 70 75 73 68 20 61 20 63 + * push a c
4160: 61 6c 6c 20 66 72 61 6d 65 20 66 6f 72 20 74 68 all frame for th
4170: 61 74 20 6e 61 6d 65 73 70 61 63 65 2e 20 4e 6f at namespace. No
4180: 74 65 20 74 68 61 74 0a 2b 20 20 20 20 20 2a 20 te that.+ *
4190: 54 63 6c 4f 62 6a 49 6e 74 65 72 70 50 72 6f 63 TclObjInterpProc
41a0: 28 29 20 77 69 6c 6c 20 70 6f 70 20 69 74 2e 0a () will pop it..
41b0: 2b 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 0a 2b + */.+ .+
41c0: 20 20 20 20 6e 73 4f 62 6a 50 74 72 20 3d 20 28 nsObjPtr = (
41d0: 54 63 6c 5f 4f 62 6a 20 2a 29 20 6c 61 6d 62 64 Tcl_Obj *) lambd
41e0: 61 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 aPtr->internalRe
41f0: 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 p.twoPtrValue.pt
4200: 72 32 3b 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 r2;.+ result
4210: 20 3d 20 54 63 6c 47 65 74 4e 61 6d 65 73 70 61 = TclGetNamespa
4220: 63 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ceFromObj(interp
4230: 2c 20 6e 73 4f 62 6a 50 74 72 2c 20 26 6e 73 50 , nsObjPtr, &nsP
4240: 74 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 72 65 tr);.+ if (re
4250: 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 sult != TCL_OK)
4260: 7b 0a 2b 09 72 65 74 75 72 6e 20 72 65 73 75 6c {.+.return resul
4270: 74 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 t;.+ }.+ i
4280: 66 20 28 6e 73 50 74 72 20 3d 3d 20 28 54 63 6c f (nsPtr == (Tcl
4290: 5f 4e 61 6d 65 73 70 61 63 65 20 2a 29 20 4e 55 _Namespace *) NU
42a0: 4c 4c 29 20 7b 0a 2b 09 65 72 72 50 74 72 20 3d LL) {.+.errPtr =
42b0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
42c0: 6a 28 22 63 61 6e 6e 6f 74 20 66 69 6e 64 20 6e j("cannot find n
42d0: 61 6d 65 73 70 61 63 65 20 5c 22 22 2c 2d 31 29 amespace \"",-1)
42e0: 3b 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 ;.+.Tcl_IncrRefC
42f0: 6f 75 6e 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 ount(errPtr);.+.
4300: 54 63 6c 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f Tcl_AppendObjToO
4310: 62 6a 28 65 72 72 50 74 72 2c 20 6e 73 4f 62 6a bj(errPtr, nsObj
4320: 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 Ptr);.+.Tcl_Appe
4330: 6e 64 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c 20 ndToObj(errPtr,
4340: 22 5c 22 22 2c 20 2d 31 29 3b 0a 2b 09 54 63 6c "\"", -1);.+.Tcl
4350: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
4360: 74 65 72 70 2c 20 65 72 72 50 74 72 29 3b 0a 2b terp, errPtr);.+
4370: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e .Tcl_DecrRefCoun
4380: 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 72 65 74 t(errPtr);.+.ret
4390: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b urn TCL_ERROR;.+
43a0: 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a }.+.+ /*.
43b0: 2b 20 20 20 20 20 20 63 6d 64 20 3d 20 2a 28 28 + cmd = *((
43c0: 43 6f 6d 6d 61 6e 64 20 2a 29 20 54 63 6c 5f 47 Command *) Tcl_G
43d0: 65 74 43 6f 6d 6d 61 6e 64 46 72 6f 6d 4f 62 6a etCommandFromObj
43e0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 30 5d (interp, objv[0]
43f0: 29 29 3b 0a 2b 20 20 20 20 2a 2f 0a 2b 20 20 20 ));.+ */.+
4400: 20 63 6d 64 2e 6e 73 50 74 72 20 3d 20 28 4e 61 cmd.nsPtr = (Na
4410: 6d 65 73 70 61 63 65 20 2a 29 20 6e 73 50 74 72 mespace *) nsPtr
4420: 3b 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 ;.+.+ return
4430: 4f 62 6a 49 6e 74 65 72 70 50 72 6f 63 45 78 28 ObjInterpProcEx(
4440: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 70 72 6f (ClientData) pro
4450: 63 50 74 72 2c 20 69 6e 74 65 72 70 2c 20 6f 62 cPtr, interp, ob
4460: 6a 63 2c 20 6f 62 6a 76 2c 20 32 29 3b 0a 2b 7d jc, objv, 2);.+}
4470: 0a 2b 0c 0a 2b 2f 2a 0a 20 20 2a 20 4c 6f 63 61 .+..+/*. * Loca
4480: 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 20 20 2a l Variables:. *
4490: 20 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 mode: c. * c-b
44a0: 61 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 49 asic-offset: 4.I
44b0: 6e 64 65 78 3a 20 74 65 73 74 73 2f 61 70 70 6c ndex: tests/appl
44c0: 79 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d y.test.=========
44d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
4510: 69 6c 65 3a 20 74 65 73 74 73 2f 61 70 70 6c 79 ile: tests/apply
4520: 2e 74 65 73 74 0a 64 69 66 66 20 2d 4e 20 74 65 .test.diff -N te
4530: 73 74 73 2f 61 70 70 6c 79 2e 74 65 73 74 0a 2d sts/apply.test.-
4540: 2d 2d 20 2f 64 65 76 2f 6e 75 6c 6c 09 31 20 4a -- /dev/null.1 J
4550: 61 6e 20 31 39 37 30 20 30 30 3a 30 30 3a 30 30 an 1970 00:00:00
4560: 20 2d 30 30 30 30 0a 2b 2b 2b 20 74 65 73 74 73 -0000.+++ tests
4570: 2f 61 70 70 6c 79 2e 74 65 73 74 09 31 20 46 65 /apply.test.1 Fe
4580: 62 20 32 30 30 36 20 31 39 3a 30 37 3a 30 31 20 b 2006 19:07:01
4590: 2d 30 30 30 30 0a 40 40 20 2d 30 2c 30 20 2b 31 -0000.@@ -0,0 +1
45a0: 2c 32 31 38 20 40 40 0a 2b 23 20 43 6f 6d 6d 61 ,218 @@.+# Comma
45b0: 6e 64 73 20 63 6f 76 65 72 65 64 3a 20 20 61 70 nds covered: ap
45c0: 70 6c 79 0a 2b 23 0a 2b 23 20 54 68 69 73 20 66 ply.+#.+# This f
45d0: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 ile contains a c
45e0: 6f 6c 6c 65 63 74 69 6f 6e 20 6f 66 20 74 65 73 ollection of tes
45f0: 74 73 20 66 6f 72 20 6f 6e 65 20 6f 72 20 6d 6f ts for one or mo
4600: 72 65 20 6f 66 20 74 68 65 20 54 63 6c 0a 2b 23 re of the Tcl.+#
4610: 20 62 75 69 6c 74 2d 69 6e 20 63 6f 6d 6d 61 6e built-in comman
4620: 64 73 2e 20 20 53 6f 75 72 63 69 6e 67 20 74 68 ds. Sourcing th
4630: 69 73 20 66 69 6c 65 20 69 6e 74 6f 20 54 63 6c is file into Tcl
4640: 20 72 75 6e 73 20 74 68 65 20 74 65 73 74 73 20 runs the tests
4650: 61 6e 64 0a 2b 23 20 67 65 6e 65 72 61 74 65 73 and.+# generates
4660: 20 6f 75 74 70 75 74 20 66 6f 72 20 65 72 72 6f output for erro
4670: 72 73 2e 20 20 4e 6f 20 6f 75 74 70 75 74 20 6d rs. No output m
4680: 65 61 6e 73 20 6e 6f 20 65 72 72 6f 72 73 20 77 eans no errors w
4690: 65 72 65 20 66 6f 75 6e 64 2e 0a 2b 23 0a 2b 23 ere found..+#.+#
46a0: 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 Copyright (c) 1
46b0: 39 39 31 2d 31 39 39 33 20 54 68 65 20 52 65 67 991-1993 The Reg
46c0: 65 6e 74 73 20 6f 66 20 74 68 65 20 55 6e 69 76 ents of the Univ
46d0: 65 72 73 69 74 79 20 6f 66 20 43 61 6c 69 66 6f ersity of Califo
46e0: 72 6e 69 61 2e 0a 2b 23 20 43 6f 70 79 72 69 67 rnia..+# Copyrig
46f0: 68 74 20 28 63 29 20 31 39 39 34 2d 31 39 39 36 ht (c) 1994-1996
4700: 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 74 65 6d Sun Microsystem
4710: 73 2c 20 49 6e 63 2e 0a 2b 23 20 43 6f 70 79 72 s, Inc..+# Copyr
4720: 69 67 68 74 20 28 63 29 20 31 39 39 38 2d 31 39 ight (c) 1998-19
4730: 39 39 20 62 79 20 53 63 72 69 70 74 69 63 73 20 99 by Scriptics
4740: 43 6f 72 70 6f 72 61 74 69 6f 6e 2e 0a 2b 23 20 Corporation..+#
4750: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
4760: 30 35 2d 32 30 30 36 20 4d 69 67 75 65 6c 20 53 05-2006 Miguel S
4770: 6f 66 65 72 0a 2b 23 0a 2b 23 20 53 65 65 20 74 ofer.+#.+# See t
4780: 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 he file "license
4790: 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f .terms" for info
47a0: 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 rmation on usage
47b0: 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 and redistribut
47c0: 69 6f 6e 0a 2b 23 20 6f 66 20 74 68 69 73 20 66 ion.+# of this f
47d0: 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 ile, and for a D
47e0: 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c ISCLAIMER OF ALL
47f0: 20 57 41 52 52 41 4e 54 49 45 53 2e 0a 2b 23 0a WARRANTIES..+#.
4800: 2b 23 20 52 43 53 3a 20 40 28 23 29 20 24 49 64 +# RCS: @(#) $Id
4810: 3a 20 61 70 70 6c 79 2e 74 65 73 74 2c 76 20 31 : apply.test,v 1
4820: 2e 37 20 32 30 30 31 2f 30 37 2f 30 33 20 32 33 .7 2001/07/03 23
4830: 3a 33 39 3a 32 34 20 68 6f 62 62 73 20 45 78 70 :39:24 hobbs Exp
4840: 20 24 0a 2b 0a 2b 69 66 20 7b 5b 6c 73 65 61 72 $.+.+if {[lsear
4850: 63 68 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 68 ch [namespace ch
4860: 69 6c 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 ildren] ::tcltes
4870: 74 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 2b 20 20 20 t] == -1} {.+
4880: 20 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 package require
4890: 20 74 63 6c 74 65 73 74 0a 2b 20 20 20 20 6e 61 tcltest.+ na
48a0: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 2d mespace import -
48b0: 66 6f 72 63 65 20 3a 3a 74 63 6c 74 65 73 74 3a force ::tcltest:
48c0: 3a 2a 0a 2b 7d 0a 2b 0a 2b 69 66 20 7b 5b 69 6e :*.+}.+.+if {[in
48d0: 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 3a 3a 61 70 fo commands ::ap
48e0: 70 6c 79 5d 20 65 71 20 7b 7d 7d 20 7b 0a 2b 20 ply] eq {}} {.+
48f0: 20 20 20 72 65 74 75 72 6e 0a 2b 7d 0a 2b 0a 2b return.+}.+.+
4900: 23 20 54 65 73 74 73 20 66 6f 72 20 77 72 6f 6e # Tests for wron
4910: 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 g number of argu
4920: 6d 65 6e 74 73 0a 2b 0a 2b 74 65 73 74 20 61 70 ments.+.+test ap
4930: 70 6c 79 2d 31 2e 31 20 7b 74 6f 6f 20 66 65 77 ply-1.1 {too few
4940: 20 61 72 67 75 6d 65 6e 74 73 7d 20 7b 0a 2b 20 arguments} {.+
4950: 20 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 set res [catc
4960: 68 20 61 70 70 6c 79 20 6d 73 67 5d 0a 2b 20 20 h apply msg].+
4970: 20 20 6c 69 73 74 20 24 72 65 73 20 24 6d 73 67 list $res $msg
4980: 0a 2b 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 .+} {1 {wrong #
4990: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
49a0: 22 61 70 70 6c 79 20 6c 61 6d 62 64 61 45 78 70 "apply lambdaExp
49b0: 72 20 3f 61 72 67 31 20 61 72 67 32 20 2e 2e 2e r ?arg1 arg2 ...
49c0: 3f 22 7d 7d 0a 2b 0a 2b 23 20 54 65 73 74 73 20 ?"}}.+.+# Tests
49d0: 66 6f 72 20 6d 61 6c 66 6f 72 6d 65 64 20 6c 61 for malformed la
49e0: 6d 62 64 61 0a 2b 0a 2b 74 65 73 74 20 61 70 70 mbda.+.+test app
49f0: 6c 79 2d 32 2e 30 20 7b 6d 61 6c 66 6f 72 6d 65 ly-2.0 {malforme
4a00: 64 20 6c 61 6d 62 64 61 7d 20 7b 0a 2b 20 20 20 d lambda} {.+
4a10: 20 73 65 74 20 6c 61 6d 62 64 61 20 61 0a 2b 20 set lambda a.+
4a20: 20 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 set res [catc
4a30: 68 20 7b 61 70 70 6c 79 20 24 6c 61 6d 62 64 61 h {apply $lambda
4a40: 7d 20 6d 73 67 5d 0a 2b 20 20 20 20 6c 69 73 74 } msg].+ list
4a50: 20 24 72 65 73 20 24 6d 73 67 0a 2b 7d 20 7b 31 $res $msg.+} {1
4a60: 20 7b 63 61 6e 27 74 20 69 6e 74 65 72 70 72 65 {can't interpre
4a70: 74 20 22 61 22 20 61 73 20 61 20 6c 61 6d 62 64 t "a" as a lambd
4a80: 61 20 65 78 70 72 65 73 73 69 6f 6e 7d 7d 0a 2b a expression}}.+
4a90: 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 32 2e 31 .+test apply-2.1
4aa0: 20 7b 6d 61 6c 66 6f 72 6d 65 64 20 6c 61 6d 62 {malformed lamb
4ab0: 64 61 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 6c da} {.+ set l
4ac0: 61 6d 62 64 61 20 5b 6c 69 73 74 20 61 20 62 20 ambda [list a b
4ad0: 63 20 64 5d 0a 2b 20 20 20 20 73 65 74 20 72 65 c d].+ set re
4ae0: 73 20 5b 63 61 74 63 68 20 7b 61 70 70 6c 79 20 s [catch {apply
4af0: 24 6c 61 6d 62 64 61 7d 20 6d 73 67 5d 0a 2b 20 $lambda} msg].+
4b00: 20 20 20 6c 69 73 74 20 24 72 65 73 20 24 6d 73 list $res $ms
4b10: 67 0a 2b 7d 20 7b 31 20 7b 63 61 6e 27 74 20 69 g.+} {1 {can't i
4b20: 6e 74 65 72 70 72 65 74 20 22 61 20 62 20 63 20 nterpret "a b c
4b30: 64 22 20 61 73 20 61 20 6c 61 6d 62 64 61 20 65 d" as a lambda e
4b40: 78 70 72 65 73 73 69 6f 6e 7d 7d 0a 2b 0a 2b 74 xpression}}.+.+t
4b50: 65 73 74 20 61 70 70 6c 79 2d 32 2e 32 20 7b 6d est apply-2.2 {m
4b60: 61 6c 66 6f 72 6d 65 64 20 6c 61 6d 62 64 61 7d alformed lambda}
4b70: 20 7b 0a 2b 20 20 20 20 73 65 74 20 6c 61 6d 62 {.+ set lamb
4b80: 64 61 20 5b 6c 69 73 74 20 7b 7b 7d 7d 20 62 6f da [list {{}} bo
4b90: 6f 5d 0a 2b 20 20 20 20 73 65 74 20 72 65 73 20 o].+ set res
4ba0: 5b 63 61 74 63 68 20 7b 61 70 70 6c 79 20 24 6c [catch {apply $l
4bb0: 61 6d 62 64 61 7d 20 6d 73 67 5d 0a 2b 20 20 20 ambda} msg].+
4bc0: 20 6c 69 73 74 20 24 72 65 73 20 24 6d 73 67 20 list $res $msg
4bd0: 24 3a 3a 65 72 72 6f 72 49 6e 66 6f 0a 2b 7d 20 $::errorInfo.+}
4be0: 7b 31 20 7b 61 72 67 75 6d 65 6e 74 20 77 69 74 {1 {argument wit
4bf0: 68 20 6e 6f 20 6e 61 6d 65 7d 20 7b 61 72 67 75 h no name} {argu
4c00: 6d 65 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d ment with no nam
4c10: 65 0a 2b 20 20 20 20 28 70 61 72 73 69 6e 67 20 e.+ (parsing
4c20: 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f lambda expressio
4c30: 6e 20 22 7b 7b 7d 7d 20 62 6f 6f 22 29 0a 2b 20 n "{{}} boo").+
4c40: 20 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 invoked from
4c50: 77 69 74 68 69 6e 0a 2b 22 61 70 70 6c 79 20 24 within.+"apply $
4c60: 6c 61 6d 62 64 61 22 7d 7d 0a 2b 0a 2b 74 65 73 lambda"}}.+.+tes
4c70: 74 20 61 70 70 6c 79 2d 32 2e 33 20 7b 6d 61 6c t apply-2.3 {mal
4c80: 66 6f 72 6d 65 64 20 6c 61 6d 62 64 61 7d 20 7b formed lambda} {
4c90: 0a 2b 20 20 20 20 73 65 74 20 6c 61 6d 62 64 61 .+ set lambda
4ca0: 20 5b 6c 69 73 74 20 7b 7b 61 20 62 20 63 7d 7d [list {{a b c}}
4cb0: 20 62 6f 6f 5d 0a 2b 20 20 20 20 73 65 74 20 72 boo].+ set r
4cc0: 65 73 20 5b 63 61 74 63 68 20 7b 61 70 70 6c 79 es [catch {apply
4cd0: 20 24 6c 61 6d 62 64 61 7d 20 6d 73 67 5d 0a 2b $lambda} msg].+
4ce0: 20 20 20 20 6c 69 73 74 20 24 72 65 73 20 24 6d list $res $m
4cf0: 73 67 20 24 3a 3a 65 72 72 6f 72 49 6e 66 6f 0a sg $::errorInfo.
4d00: 2b 7d 20 7b 31 20 7b 74 6f 6f 20 6d 61 6e 79 20 +} {1 {too many
4d10: 66 69 65 6c 64 73 20 69 6e 20 61 72 67 75 6d 65 fields in argume
4d20: 6e 74 20 73 70 65 63 69 66 69 65 72 20 22 61 20 nt specifier "a
4d30: 62 20 63 22 7d 20 7b 74 6f 6f 20 6d 61 6e 79 20 b c"} {too many
4d40: 66 69 65 6c 64 73 20 69 6e 20 61 72 67 75 6d 65 fields in argume
4d50: 6e 74 20 73 70 65 63 69 66 69 65 72 20 22 61 20 nt specifier "a
4d60: 62 20 63 22 0a 2b 20 20 20 20 28 70 61 72 73 69 b c".+ (parsi
4d70: 6e 67 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 ng lambda expres
4d80: 73 69 6f 6e 20 22 7b 7b 61 20 62 20 63 7d 7d 20 sion "{{a b c}}
4d90: 62 6f 6f 22 29 0a 2b 20 20 20 20 69 6e 76 6f 6b boo").+ invok
4da0: 65 64 20 66 72 6f 6d 20 77 69 74 68 69 6e 0a 2b ed from within.+
4db0: 22 61 70 70 6c 79 20 24 6c 61 6d 62 64 61 22 7d "apply $lambda"}
4dc0: 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d }.+.+test apply-
4dd0: 32 2e 34 20 7b 6d 61 6c 66 6f 72 6d 65 64 20 6c 2.4 {malformed l
4de0: 61 6d 62 64 61 7d 20 7b 0a 2b 20 20 20 20 73 65 ambda} {.+ se
4df0: 74 20 6c 61 6d 62 64 61 20 5b 6c 69 73 74 20 61 t lambda [list a
4e00: 28 31 29 20 62 6f 6f 5d 0a 2b 20 20 20 20 73 65 (1) boo].+ se
4e10: 74 20 72 65 73 20 5b 63 61 74 63 68 20 7b 61 70 t res [catch {ap
4e20: 70 6c 79 20 24 6c 61 6d 62 64 61 7d 20 6d 73 67 ply $lambda} msg
4e30: 5d 0a 2b 20 20 20 20 6c 69 73 74 20 24 72 65 73 ].+ list $res
4e40: 20 24 6d 73 67 20 24 3a 3a 65 72 72 6f 72 49 6e $msg $::errorIn
4e50: 66 6f 0a 2b 7d 20 7b 31 20 7b 66 6f 72 6d 61 6c fo.+} {1 {formal
4e60: 20 70 61 72 61 6d 65 74 65 72 20 22 61 28 31 29 parameter "a(1)
4e70: 22 20 69 73 20 61 6e 20 61 72 72 61 79 20 65 6c " is an array el
4e80: 65 6d 65 6e 74 7d 20 7b 66 6f 72 6d 61 6c 20 70 ement} {formal p
4e90: 61 72 61 6d 65 74 65 72 20 22 61 28 31 29 22 20 arameter "a(1)"
4ea0: 69 73 20 61 6e 20 61 72 72 61 79 20 65 6c 65 6d is an array elem
4eb0: 65 6e 74 0a 2b 20 20 20 20 28 70 61 72 73 69 6e ent.+ (parsin
4ec0: 67 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 g lambda express
4ed0: 69 6f 6e 20 22 61 28 31 29 20 62 6f 6f 22 29 0a ion "a(1) boo").
4ee0: 2b 20 20 20 20 69 6e 76 6f 6b 65 64 20 66 72 6f + invoked fro
4ef0: 6d 20 77 69 74 68 69 6e 0a 2b 22 61 70 70 6c 79 m within.+"apply
4f00: 20 24 6c 61 6d 62 64 61 22 7d 7d 0a 2b 0a 2b 74 $lambda"}}.+.+t
4f10: 65 73 74 20 61 70 70 6c 79 2d 32 2e 35 20 7b 6d est apply-2.5 {m
4f20: 61 6c 66 6f 72 6d 65 64 20 6c 61 6d 62 64 61 7d alformed lambda}
4f30: 20 7b 0a 2b 20 20 20 20 73 65 74 20 6c 61 6d 62 {.+ set lamb
4f40: 64 61 20 5b 6c 69 73 74 20 61 3a 3a 62 20 62 6f da [list a::b bo
4f50: 6f 5d 0a 2b 20 20 20 20 73 65 74 20 72 65 73 20 o].+ set res
4f60: 5b 63 61 74 63 68 20 7b 61 70 70 6c 79 20 24 6c [catch {apply $l
4f70: 61 6d 62 64 61 7d 20 6d 73 67 5d 0a 2b 20 20 20 ambda} msg].+
4f80: 20 6c 69 73 74 20 24 72 65 73 20 24 6d 73 67 20 list $res $msg
4f90: 24 3a 3a 65 72 72 6f 72 49 6e 66 6f 0a 2b 7d 20 $::errorInfo.+}
4fa0: 7b 31 20 7b 66 6f 72 6d 61 6c 20 70 61 72 61 6d {1 {formal param
4fb0: 65 74 65 72 20 22 61 3a 3a 62 22 20 69 73 20 6e eter "a::b" is n
4fc0: 6f 74 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d 65 ot a simple name
4fd0: 7d 20 7b 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 } {formal parame
4fe0: 74 65 72 20 22 61 3a 3a 62 22 20 69 73 20 6e 6f ter "a::b" is no
4ff0: 74 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d 65 0a t a simple name.
5000: 2b 20 20 20 20 28 70 61 72 73 69 6e 67 20 6c 61 + (parsing la
5010: 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e 20 mbda expression
5020: 22 61 3a 3a 62 20 62 6f 6f 22 29 0a 2b 20 20 20 "a::b boo").+
5030: 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 invoked from wi
5040: 74 68 69 6e 0a 2b 22 61 70 70 6c 79 20 24 6c 61 thin.+"apply $la
5050: 6d 62 64 61 22 7d 7d 0a 2b 0a 2b 0a 2b 23 20 54 mbda"}}.+.+.+# T
5060: 65 73 74 73 20 66 6f 72 20 72 75 6e 74 69 6d 65 ests for runtime
5070: 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 20 6c errors in the l
5080: 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e ambda expression
5090: 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 33 .+.+test apply-3
50a0: 2e 31 20 7b 6e 6f 6e 2d 65 78 69 73 74 69 6e 67 .1 {non-existing
50b0: 20 6e 61 6d 65 73 70 61 63 65 7d 20 7b 0a 2b 20 namespace} {.+
50c0: 20 20 20 73 65 74 20 6c 61 6d 62 64 61 20 5b 6c set lambda [l
50d0: 69 73 74 20 78 20 7b 73 65 74 20 78 20 31 7d 20 ist x {set x 1}
50e0: 3a 3a 4e 4f 4e 45 58 49 53 54 3a 3a 46 4f 52 3a ::NONEXIST::FOR:
50f0: 3a 53 55 52 45 5d 0a 2b 20 20 20 20 73 65 74 20 :SURE].+ set
5100: 72 65 73 20 5b 63 61 74 63 68 20 7b 61 70 70 6c res [catch {appl
5110: 79 20 24 6c 61 6d 62 64 61 20 78 7d 20 6d 73 67 y $lambda x} msg
5120: 5d 0a 2b 20 20 20 20 6c 69 73 74 20 24 72 65 73 ].+ list $res
5130: 20 24 6d 73 67 0a 2b 7d 20 7b 31 20 7b 63 61 6e $msg.+} {1 {can
5140: 6e 6f 74 20 66 69 6e 64 20 6e 61 6d 65 73 70 61 not find namespa
5150: 63 65 20 22 3a 3a 3a 3a 4e 4f 4e 45 58 49 53 54 ce "::::NONEXIST
5160: 3a 3a 46 4f 52 3a 3a 53 55 52 45 22 7d 7d 0a 2b ::FOR::SURE"}}.+
5170: 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 33 2e 32 .+test apply-3.2
5180: 20 7b 6e 6f 6e 2d 65 78 69 73 74 69 6e 67 20 6e {non-existing n
5190: 61 6d 65 73 70 61 63 65 7d 20 7b 0a 2b 20 20 20 amespace} {.+
51a0: 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 namespace eval
51b0: 3a 3a 4e 4f 4e 45 58 49 53 54 3a 3a 46 4f 52 3a ::NONEXIST::FOR:
51c0: 3a 53 55 52 45 20 7b 7d 0a 2b 20 20 20 20 73 65 :SURE {}.+ se
51d0: 74 20 6c 61 6d 62 64 61 20 5b 6c 69 73 74 20 78 t lambda [list x
51e0: 20 7b 73 65 74 20 78 20 31 7d 20 3a 3a 4e 4f 4e {set x 1} ::NON
51f0: 45 58 49 53 54 3a 3a 46 4f 52 3a 3a 53 55 52 45 EXIST::FOR::SURE
5200: 5d 0a 2b 20 20 20 20 61 70 70 6c 79 20 24 6c 61 ].+ apply $la
5210: 6d 62 64 61 20 78 0a 2b 20 20 20 20 6e 61 6d 65 mbda x.+ name
5220: 73 70 61 63 65 20 64 65 6c 65 74 65 20 3a 3a 4e space delete ::N
5230: 4f 4e 45 58 49 53 54 0a 2b 20 20 20 20 73 65 74 ONEXIST.+ set
5240: 20 72 65 73 20 5b 63 61 74 63 68 20 7b 61 70 70 res [catch {app
5250: 6c 79 20 24 6c 61 6d 62 64 61 20 78 7d 20 6d 73 ly $lambda x} ms
5260: 67 5d 0a 2b 20 20 20 20 6c 69 73 74 20 24 72 65 g].+ list $re
5270: 73 20 24 6d 73 67 0a 2b 7d 20 7b 31 20 7b 63 61 s $msg.+} {1 {ca
5280: 6e 6e 6f 74 20 66 69 6e 64 20 6e 61 6d 65 73 70 nnot find namesp
5290: 61 63 65 20 22 3a 3a 3a 3a 4e 4f 4e 45 58 49 53 ace "::::NONEXIS
52a0: 54 3a 3a 46 4f 52 3a 3a 53 55 52 45 22 7d 7d 0a T::FOR::SURE"}}.
52b0: 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 34 2e +.+test apply-4.
52c0: 31 20 7b 65 72 72 6f 72 20 69 6e 20 61 72 67 75 1 {error in argu
52d0: 6d 65 6e 74 73 20 74 6f 20 6c 61 6d 62 64 61 20 ments to lambda
52e0: 65 78 70 72 65 73 73 69 6f 6e 7d 20 7b 0a 2b 20 expression} {.+
52f0: 20 20 20 73 65 74 20 6c 61 6d 62 64 61 20 5b 6c set lambda [l
5300: 69 73 74 20 78 20 7b 73 65 74 20 78 20 31 7d 5d ist x {set x 1}]
5310: 0a 2b 20 20 20 20 73 65 74 20 72 65 73 20 5b 63 .+ set res [c
5320: 61 74 63 68 20 7b 61 70 70 6c 79 20 24 6c 61 6d atch {apply $lam
5330: 62 64 61 7d 20 6d 73 67 5d 0a 2b 20 20 20 20 6c bda} msg].+ l
5340: 69 73 74 20 24 72 65 73 20 24 6d 73 67 0a 2b 7d ist $res $msg.+}
5350: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 {1 {wrong # arg
5360: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 61 70 s: should be "ap
5370: 70 6c 79 20 7b 78 20 7b 73 65 74 20 78 20 31 7d ply {x {set x 1}
5380: 7d 20 78 22 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 } x"}}.+.+test a
5390: 70 70 6c 79 2d 34 2e 32 20 7b 65 72 72 6f 72 20 pply-4.2 {error
53a0: 69 6e 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 in arguments to
53b0: 6c 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f lambda expressio
53c0: 6e 7d 20 7b 0a 2b 20 20 20 20 73 65 74 20 6c 61 n} {.+ set la
53d0: 6d 62 64 61 20 5b 6c 69 73 74 20 78 20 7b 73 65 mbda [list x {se
53e0: 74 20 78 20 31 7d 5d 0a 2b 20 20 20 20 73 65 74 t x 1}].+ set
53f0: 20 72 65 73 20 5b 63 61 74 63 68 20 7b 61 70 70 res [catch {app
5400: 6c 79 20 24 6c 61 6d 62 64 61 20 78 20 79 7d 20 ly $lambda x y}
5410: 6d 73 67 5d 0a 2b 20 20 20 20 6c 69 73 74 20 24 msg].+ list $
5420: 72 65 73 20 24 6d 73 67 0a 2b 7d 20 7b 31 20 7b res $msg.+} {1 {
5430: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
5440: 6f 75 6c 64 20 62 65 20 22 61 70 70 6c 79 20 7b ould be "apply {
5450: 78 20 7b 73 65 74 20 78 20 31 7d 7d 20 78 22 7d x {set x 1}} x"}
5460: 7d 0a 2b 0a 2b 23 20 54 65 73 74 73 20 66 6f 72 }.+.+# Tests for
5470: 20 63 6f 72 72 65 63 74 20 65 78 65 63 75 74 69 correct executi
5480: 6f 6e 3b 20 61 73 20 74 68 65 20 69 6d 70 6c 65 on; as the imple
5490: 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 74 68 65 mentation is the
54a0: 20 73 61 6d 65 20 61 73 20 74 68 61 74 20 66 6f same as that fo
54b0: 72 0a 2b 23 20 70 72 6f 63 73 2c 20 74 68 65 20 r.+# procs, the
54c0: 67 65 6e 65 72 61 6c 20 66 75 6e 63 74 69 6f 6e general function
54d0: 61 6c 69 74 79 20 69 73 20 6d 6f 73 74 6c 79 20 ality is mostly
54e0: 74 65 73 74 65 64 20 65 6c 73 65 77 68 65 72 65 tested elsewhere
54f0: 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 35 .+.+test apply-5
5500: 2e 31 20 7b 69 6e 66 6f 20 6c 65 76 65 6c 7d 20 .1 {info level}
5510: 7b 0a 2b 20 20 20 20 73 65 74 20 6c 65 76 20 5b {.+ set lev [
5520: 69 6e 66 6f 20 6c 65 76 65 6c 5d 0a 2b 20 20 20 info level].+
5530: 20 73 65 74 20 6c 61 6d 62 64 61 20 5b 6c 69 73 set lambda [lis
5540: 74 20 7b 7d 20 7b 69 6e 66 6f 20 6c 65 76 65 6c t {} {info level
5550: 7d 5d 0a 2b 20 20 20 20 65 78 70 72 20 7b 5b 61 }].+ expr {[a
5560: 70 70 6c 79 20 24 6c 61 6d 62 64 61 5d 20 2d 20 pply $lambda] -
5570: 24 6c 65 76 7d 0a 2b 7d 20 31 0a 2b 0a 2b 74 65 $lev}.+} 1.+.+te
5580: 73 74 20 61 70 70 6c 79 2d 35 2e 32 20 7b 69 6e st apply-5.2 {in
5590: 66 6f 20 6c 65 76 65 6c 7d 20 7b 0a 2b 20 20 20 fo level} {.+
55a0: 20 73 65 74 20 6c 61 6d 62 64 61 20 5b 6c 69 73 set lambda [lis
55b0: 74 20 7b 7d 20 7b 69 6e 66 6f 20 6c 65 76 65 6c t {} {info level
55c0: 20 30 7d 5d 0a 2b 20 20 20 20 61 70 70 6c 79 20 0}].+ apply
55d0: 24 6c 61 6d 62 64 61 0a 2b 7d 20 7b 61 70 70 6c $lambda.+} {appl
55e0: 79 20 7b 7b 7d 20 7b 69 6e 66 6f 20 6c 65 76 65 y {{} {info leve
55f0: 6c 20 30 7d 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 l 0}}}.+.+test a
5600: 70 70 6c 79 2d 35 2e 33 20 7b 69 6e 66 6f 20 6c pply-5.3 {info l
5610: 65 76 65 6c 7d 20 7b 0a 2b 20 20 20 20 73 65 74 evel} {.+ set
5620: 20 6c 61 6d 62 64 61 20 5b 6c 69 73 74 20 61 72 lambda [list ar
5630: 67 73 20 7b 69 6e 66 6f 20 6c 65 76 65 6c 20 30 gs {info level 0
5640: 7d 5d 0a 2b 20 20 20 20 61 70 70 6c 79 20 24 6c }].+ apply $l
5650: 61 6d 62 64 61 20 78 20 79 0a 2b 7d 20 7b 61 70 ambda x y.+} {ap
5660: 70 6c 79 20 7b 61 72 67 73 20 7b 69 6e 66 6f 20 ply {args {info
5670: 6c 65 76 65 6c 20 30 7d 7d 20 78 20 79 7d 0a 2b level 0}} x y}.+
5680: 0a 2b 23 20 54 65 73 74 73 20 66 6f 72 20 63 6f .+# Tests for co
5690: 72 72 65 63 74 20 6e 61 6d 65 73 70 61 63 65 20 rrect namespace
56a0: 73 63 6f 70 65 0a 2b 0a 2b 6e 61 6d 65 73 70 61 scope.+.+namespa
56b0: 63 65 20 65 76 61 6c 20 3a 3a 74 65 73 74 41 70 ce eval ::testAp
56c0: 70 6c 79 20 7b 0a 2b 20 20 20 20 73 65 74 20 78 ply {.+ set x
56d0: 20 30 0a 2b 20 20 20 20 70 72 6f 63 20 74 65 73 0.+ proc tes
56e0: 74 41 70 70 6c 79 20 61 72 67 73 20 7b 72 65 74 tApply args {ret
56f0: 75 72 6e 20 74 65 73 74 41 70 70 6c 79 7d 0a 2b urn testApply}.+
5700: 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d }.+.+test apply-
5710: 36 2e 31 20 7b 6e 61 6d 65 73 70 61 63 65 20 61 6.1 {namespace a
5720: 63 63 65 73 73 7d 20 7b 0a 2b 20 20 20 20 73 65 ccess} {.+ se
5730: 74 20 62 6f 64 79 20 7b 73 65 74 20 78 20 31 3b t body {set x 1;
5740: 20 73 65 74 20 78 7d 0a 2b 20 20 20 20 6c 69 73 set x}.+ lis
5750: 74 20 5b 61 70 70 6c 79 20 5b 6c 69 73 74 20 61 t [apply [list a
5760: 72 67 73 20 24 62 6f 64 79 20 3a 3a 74 65 73 74 rgs $body ::test
5770: 41 70 70 6c 79 5d 5d 20 24 3a 3a 74 65 73 74 41 Apply]] $::testA
5780: 70 70 6c 79 3a 3a 78 0a 2b 7d 20 7b 31 20 30 7d pply::x.+} {1 0}
5790: 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 36 .+.+test apply-6
57a0: 2e 32 20 7b 6e 61 6d 65 73 70 61 63 65 20 61 63 .2 {namespace ac
57b0: 63 65 73 73 7d 20 7b 0a 2b 20 20 20 20 73 65 74 cess} {.+ set
57c0: 20 62 6f 64 79 20 7b 76 61 72 69 61 62 6c 65 20 body {variable
57d0: 78 3b 20 73 65 74 20 78 7d 0a 2b 20 20 20 20 6c x; set x}.+ l
57e0: 69 73 74 20 5b 61 70 70 6c 79 20 5b 6c 69 73 74 ist [apply [list
57f0: 20 61 72 67 73 20 24 62 6f 64 79 20 3a 3a 74 65 args $body ::te
5800: 73 74 41 70 70 6c 79 5d 5d 20 24 3a 3a 74 65 73 stApply]] $::tes
5810: 74 41 70 70 6c 79 3a 3a 78 0a 2b 7d 20 7b 30 20 tApply::x.+} {0
5820: 30 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 0}.+.+test apply
5830: 2d 36 2e 33 20 7b 6e 61 6d 65 73 70 61 63 65 20 -6.3 {namespace
5840: 61 63 63 65 73 73 7d 20 7b 0a 2b 20 20 20 20 73 access} {.+ s
5850: 65 74 20 62 6f 64 79 20 7b 76 61 72 69 61 62 6c et body {variabl
5860: 65 20 78 3b 20 73 65 74 20 78 20 31 7d 0a 2b 20 e x; set x 1}.+
5870: 20 20 20 6c 69 73 74 20 5b 61 70 70 6c 79 20 5b list [apply [
5880: 6c 69 73 74 20 61 72 67 73 20 24 62 6f 64 79 20 list args $body
5890: 3a 3a 74 65 73 74 41 70 70 6c 79 5d 5d 20 24 3a ::testApply]] $:
58a0: 3a 74 65 73 74 41 70 70 6c 79 3a 3a 78 0a 2b 7d :testApply::x.+}
58b0: 20 7b 31 20 31 7d 0a 2b 0a 2b 74 65 73 74 20 61 {1 1}.+.+test a
58c0: 70 70 6c 79 2d 36 2e 33 20 7b 6e 61 6d 65 73 70 pply-6.3 {namesp
58d0: 61 63 65 20 61 63 63 65 73 73 7d 20 7b 0a 2b 20 ace access} {.+
58e0: 20 20 20 73 65 74 20 62 6f 64 79 20 7b 74 65 73 set body {tes
58f0: 74 41 70 70 6c 79 7d 0a 2b 20 20 20 20 61 70 70 tApply}.+ app
5900: 6c 79 20 5b 6c 69 73 74 20 61 72 67 73 20 24 62 ly [list args $b
5910: 6f 64 79 20 3a 3a 74 65 73 74 41 70 70 6c 79 5d ody ::testApply]
5920: 0a 2b 7d 20 74 65 73 74 41 70 70 6c 79 0a 2b 0a .+} testApply.+.
5930: 2b 0a 2b 23 20 54 65 73 74 73 20 66 6f 72 20 63 +.+# Tests for c
5940: 6f 72 72 65 63 74 20 61 72 67 75 6d 65 6e 74 20 orrect argument
5950: 74 72 65 61 74 6d 65 6e 74 0a 2b 0a 2b 73 65 74 treatment.+.+set
5960: 20 61 70 70 6c 79 42 6f 64 79 20 7b 0a 2b 20 20 applyBody {.+
5970: 20 20 73 65 74 20 72 65 73 20 7b 7d 0a 2b 20 20 set res {}.+
5980: 20 20 66 6f 72 65 61 63 68 20 76 20 5b 69 6e 66 foreach v [inf
5990: 6f 20 6c 6f 63 61 6c 73 5d 20 7b 0a 2b 09 69 66 o locals] {.+.if
59a0: 20 7b 24 76 20 65 71 20 22 72 65 73 22 7d 20 63 {$v eq "res"} c
59b0: 6f 6e 74 69 6e 75 65 0a 2b 09 6c 61 70 70 65 6e ontinue.+.lappen
59c0: 64 20 72 65 73 20 5b 6c 69 73 74 20 24 76 20 5b d res [list $v [
59d0: 73 65 74 20 24 76 5d 5d 0a 2b 20 20 20 20 7d 0a set $v]].+ }.
59e0: 2b 20 20 20 20 73 65 74 20 72 65 73 0a 2b 7d 0a + set res.+}.
59f0: 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 37 2e +.+test apply-7.
5a00: 31 20 7b 61 72 67 73 20 74 72 65 61 74 6d 65 6e 1 {args treatmen
5a10: 74 7d 20 7b 0a 2b 20 20 20 20 61 70 70 6c 79 20 t} {.+ apply
5a20: 5b 6c 69 73 74 20 61 72 67 73 20 24 61 70 70 6c [list args $appl
5a30: 79 42 6f 64 79 5d 20 31 20 32 20 33 0a 2b 7d 20 yBody] 1 2 3.+}
5a40: 7b 7b 61 72 67 73 20 7b 31 20 32 20 33 7d 7d 7d {{args {1 2 3}}}
5a50: 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 37 .+.+test apply-7
5a60: 2e 32 20 7b 61 72 67 73 20 74 72 65 61 74 6d 65 .2 {args treatme
5a70: 6e 74 7d 20 7b 0a 2b 20 20 20 20 61 70 70 6c 79 nt} {.+ apply
5a80: 20 5b 6c 69 73 74 20 7b 78 20 61 72 67 73 7d 20 [list {x args}
5a90: 24 61 70 70 6c 79 42 6f 64 79 5d 20 31 20 32 0a $applyBody] 1 2.
5aa0: 2b 7d 20 7b 7b 78 20 31 7d 20 7b 61 72 67 73 20 +} {{x 1} {args
5ab0: 32 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 2}}.+.+test appl
5ac0: 79 2d 37 2e 33 20 7b 61 72 67 73 20 74 72 65 61 y-7.3 {args trea
5ad0: 74 6d 65 6e 74 7d 20 7b 0a 2b 20 20 20 20 61 70 tment} {.+ ap
5ae0: 70 6c 79 20 5b 6c 69 73 74 20 7b 78 20 61 72 67 ply [list {x arg
5af0: 73 7d 20 24 61 70 70 6c 79 42 6f 64 79 5d 20 31 s} $applyBody] 1
5b00: 20 32 20 33 0a 2b 7d 20 7b 7b 78 20 31 7d 20 7b 2 3.+} {{x 1} {
5b10: 61 72 67 73 20 7b 32 20 33 7d 7d 7d 0a 2b 0a 2b args {2 3}}}.+.+
5b20: 74 65 73 74 20 61 70 70 6c 79 2d 37 2e 34 20 7b test apply-7.4 {
5b30: 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 7d 20 default values}
5b40: 7b 0a 2b 20 20 20 20 61 70 70 6c 79 20 5b 6c 69 {.+ apply [li
5b50: 73 74 20 7b 7b 78 20 31 7d 20 7b 79 20 32 7d 7d st {{x 1} {y 2}}
5b60: 20 24 61 70 70 6c 79 42 6f 64 79 5d 20 0a 2b 7d $applyBody] .+}
5b70: 20 7b 7b 78 20 31 7d 20 7b 79 20 32 7d 7d 0a 2b {{x 1} {y 2}}.+
5b80: 0a 2b 74 65 73 74 20 61 70 70 6c 79 2d 37 2e 35 .+test apply-7.5
5b90: 20 7b 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 {default values
5ba0: 7d 20 7b 0a 2b 20 20 20 20 61 70 70 6c 79 20 5b } {.+ apply [
5bb0: 6c 69 73 74 20 7b 7b 78 20 31 7d 20 7b 79 20 32 list {{x 1} {y 2
5bc0: 7d 7d 20 24 61 70 70 6c 79 42 6f 64 79 5d 20 33 }} $applyBody] 3
5bd0: 20 34 0a 2b 7d 20 7b 7b 78 20 33 7d 20 7b 79 20 4.+} {{x 3} {y
5be0: 34 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 6c 4}}.+.+test appl
5bf0: 79 2d 37 2e 36 20 7b 64 65 66 61 75 6c 74 20 76 y-7.6 {default v
5c00: 61 6c 75 65 73 7d 20 7b 0a 2b 20 20 20 20 61 70 alues} {.+ ap
5c10: 70 6c 79 20 5b 6c 69 73 74 20 7b 7b 78 20 31 7d ply [list {{x 1}
5c20: 20 7b 79 20 32 7d 7d 20 24 61 70 70 6c 79 42 6f {y 2}} $applyBo
5c30: 64 79 5d 20 33 0a 2b 7d 20 7b 7b 78 20 33 7d 20 dy] 3.+} {{x 3}
5c40: 7b 79 20 32 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 {y 2}}.+.+test a
5c50: 70 70 6c 79 2d 37 2e 37 20 7b 64 65 66 61 75 6c pply-7.7 {defaul
5c60: 74 20 76 61 6c 75 65 73 7d 20 7b 0a 2b 20 20 20 t values} {.+
5c70: 20 61 70 70 6c 79 20 5b 6c 69 73 74 20 7b 78 20 apply [list {x
5c80: 7b 79 20 32 7d 7d 20 24 61 70 70 6c 79 42 6f 64 {y 2}} $applyBod
5c90: 79 5d 20 31 0a 2b 7d 20 7b 7b 78 20 31 7d 20 7b y] 1.+} {{x 1} {
5ca0: 79 20 32 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 y 2}}.+.+test ap
5cb0: 70 6c 79 2d 37 2e 38 20 7b 64 65 66 61 75 6c 74 ply-7.8 {default
5cc0: 20 76 61 6c 75 65 73 7d 20 7b 0a 2b 20 20 20 20 values} {.+
5cd0: 61 70 70 6c 79 20 5b 6c 69 73 74 20 7b 78 20 7b apply [list {x {
5ce0: 79 20 32 7d 7d 20 24 61 70 70 6c 79 42 6f 64 79 y 2}} $applyBody
5cf0: 5d 20 31 20 33 0a 2b 7d 20 7b 7b 78 20 31 7d 20 ] 1 3.+} {{x 1}
5d00: 7b 79 20 33 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 {y 3}}.+.+test a
5d10: 70 70 6c 79 2d 37 2e 39 20 7b 64 65 66 61 75 6c pply-7.9 {defaul
5d20: 74 20 76 61 6c 75 65 73 7d 20 7b 0a 2b 20 20 20 t values} {.+
5d30: 20 61 70 70 6c 79 20 5b 6c 69 73 74 20 7b 78 20 apply [list {x
5d40: 7b 79 20 32 7d 20 61 72 67 73 7d 20 24 61 70 70 {y 2} args} $app
5d50: 6c 79 42 6f 64 79 5d 20 31 0a 2b 7d 20 7b 7b 78 lyBody] 1.+} {{x
5d60: 20 31 7d 20 7b 79 20 32 7d 20 7b 61 72 67 73 20 1} {y 2} {args
5d70: 7b 7d 7d 7d 0a 2b 0a 2b 74 65 73 74 20 61 70 70 {}}}.+.+test app
5d80: 6c 79 2d 37 2e 31 30 20 7b 64 65 66 61 75 6c 74 ly-7.10 {default
5d90: 20 76 61 6c 75 65 73 7d 20 7b 0a 2b 20 20 20 20 values} {.+
5da0: 61 70 70 6c 79 20 5b 6c 69 73 74 20 7b 78 20 7b apply [list {x {
5db0: 79 20 32 7d 20 61 72 67 73 7d 20 24 61 70 70 6c y 2} args} $appl
5dc0: 79 42 6f 64 79 5d 20 31 20 33 0a 2b 7d 20 7b 7b yBody] 1 3.+} {{
5dd0: 78 20 31 7d 20 7b 79 20 33 7d 20 7b 61 72 67 73 x 1} {y 3} {args
5de0: 20 7b 7d 7d 7d 0a 2b 0a 2b 23 20 54 65 73 74 73 {}}}.+.+# Tests
5df0: 20 66 6f 72 20 74 68 65 20 61 76 6f 69 64 61 6e for the avoidan
5e00: 63 65 20 6f 66 20 72 65 63 6f 6d 70 69 6c 61 74 ce of recompilat
5e10: 69 6f 6e 0a 2b 0a 2b 23 20 63 6c 65 61 6e 75 70 ion.+.+# cleanup
5e20: 0a 2b 0a 2b 6e 61 6d 65 73 70 61 63 65 20 64 65 .+.+namespace de
5e30: 6c 65 74 65 20 74 65 73 74 41 70 70 6c 79 0a 2b lete testApply.+
5e40: 0a 2b 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 .+::tcltest::cle
5e50: 61 6e 75 70 54 65 73 74 73 0a 2b 72 65 74 75 72 anupTests.+retur
5e60: 6e 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 70 n.Index: tests/p
5e70: 72 6f 63 2d 6f 6c 64 2e 74 65 73 74 0a 3d 3d 3d roc-old.test.===
5e80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5e90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5ea0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5eb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5ec0: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
5ed0: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 oot/tcl/tcl/test
5ee0: 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 73 74 2c s/proc-old.test,
5ef0: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
5f00: 69 73 69 6f 6e 20 31 2e 31 33 0a 64 69 66 66 20 ision 1.13.diff
5f10: 2d 75 20 2d 75 20 2d 72 31 2e 31 33 20 70 72 6f -u -u -r1.13 pro
5f20: 63 2d 6f 6c 64 2e 74 65 73 74 0a 2d 2d 2d 20 74 c-old.test.--- t
5f30: 65 73 74 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 ests/proc-old.te
5f40: 73 74 09 32 39 20 4f 63 74 20 32 30 30 34 20 31 st.29 Oct 2004 1
5f50: 35 3a 33 39 3a 31 30 20 2d 30 30 30 30 09 31 2e 5:39:10 -0000.1.
5f60: 31 33 0a 2b 2b 2b 20 74 65 73 74 73 2f 70 72 6f 13.+++ tests/pro
5f70: 63 2d 6f 6c 64 2e 74 65 73 74 09 31 20 46 65 62 c-old.test.1 Feb
5f80: 20 32 30 30 36 20 31 39 3a 30 37 3a 30 31 20 2d 2006 19:07:01 -
5f90: 30 30 30 30 0a 40 40 20 2d 32 37 34 2c 31 30 20 0000.@@ -274,10
5fa0: 2b 32 37 34 2c 31 30 20 40 40 0a 20 7d 20 7b 31 +274,10 @@. } {1
5fb0: 20 7b 75 6e 6d 61 74 63 68 65 64 20 6f 70 65 6e {unmatched open
5fc0: 20 62 72 61 63 65 20 69 6e 20 6c 69 73 74 7d 7d brace in list}}
5fd0: 0a 20 74 65 73 74 20 70 72 6f 63 2d 6f 6c 64 2d . test proc-old-
5fe0: 35 2e 35 20 7b 65 72 72 6f 72 20 63 6f 6e 64 69 5.5 {error condi
5ff0: 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 6c 69 tions} {. li
6000: 73 74 20 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 st [catch {proc
6010: 74 70 72 6f 63 20 7b 7b 7d 20 79 7d 20 7b 72 65 tproc {{} y} {re
6020: 74 75 72 6e 20 66 6f 6f 7d 7d 20 6d 73 67 5d 20 turn foo}} msg]
6030: 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b 70 72 6f 63 $msg.-} {1 {proc
6040: 65 64 75 72 65 20 22 74 70 72 6f 63 22 20 68 61 edure "tproc" ha
6050: 73 20 61 72 67 75 6d 65 6e 74 20 77 69 74 68 20 s argument with
6060: 6e 6f 20 6e 61 6d 65 7d 7d 0a 2b 7d 20 7b 31 20 no name}}.+} {1
6070: 7b 61 72 67 75 6d 65 6e 74 20 77 69 74 68 20 6e {argument with n
6080: 6f 20 6e 61 6d 65 7d 7d 0a 20 74 65 73 74 20 70 o name}}. test p
6090: 72 6f 63 2d 6f 6c 64 2d 35 2e 36 20 7b 65 72 72 roc-old-5.6 {err
60a0: 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b or conditions} {
60b0: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
60c0: 68 20 7b 70 72 6f 63 20 74 70 72 6f 63 20 7b 7b h {proc tproc {{
60d0: 7d 20 79 7d 20 7b 72 65 74 75 72 6e 20 66 6f 6f } y} {return foo
60e0: 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2d 7d 20 }} msg] $msg.-}
60f0: 7b 31 20 7b 70 72 6f 63 65 64 75 72 65 20 22 74 {1 {procedure "t
6100: 70 72 6f 63 22 20 68 61 73 20 61 72 67 75 6d 65 proc" has argume
6110: 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 7d nt with no name}
6120: 7d 0a 2b 7d 20 7b 31 20 7b 61 72 67 75 6d 65 6e }.+} {1 {argumen
6130: 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 7d 7d t with no name}}
6140: 0a 20 74 65 73 74 20 70 72 6f 63 2d 6f 6c 64 2d . test proc-old-
6150: 35 2e 37 20 7b 65 72 72 6f 72 20 63 6f 6e 64 69 5.7 {error condi
6160: 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 6c 69 tions} {. li
6170: 73 74 20 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 st [catch {proc
6180: 74 70 72 6f 63 20 7b 7b 78 20 31 20 32 7d 20 79 tproc {{x 1 2} y
6190: 7d 20 7b 72 65 74 75 72 6e 20 66 6f 6f 7d 7d 20 } {return foo}}
61a0: 6d 73 67 5d 20 24 6d 73 67 0a 20 7d 20 7b 31 20 msg] $msg. } {1
61b0: 7b 74 6f 6f 20 6d 61 6e 79 20 66 69 65 6c 64 73 {too many fields
61c0: 20 69 6e 20 61 72 67 75 6d 65 6e 74 20 73 70 65 in argument spe
61d0: 63 69 66 69 65 72 20 22 78 20 31 20 32 22 7d 7d cifier "x 1 2"}}
61e0: 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 70 72 .Index: tests/pr
61f0: 6f 63 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d oc.test.========
6200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6220: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
6240: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
6250: 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 70 72 6f cl/tcl/tests/pro
6260: 63 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 c.test,v.retriev
6270: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 ing revision 1.1
6280: 37 0a 64 69 66 66 20 2d 75 20 2d 75 20 2d 72 31 7.diff -u -u -r1
6290: 2e 31 37 20 70 72 6f 63 2e 74 65 73 74 0a 2d 2d .17 proc.test.--
62a0: 2d 20 74 65 73 74 73 2f 70 72 6f 63 2e 74 65 73 - tests/proc.tes
62b0: 74 09 32 32 20 53 65 70 20 32 30 30 34 20 31 35 t.22 Sep 2004 15
62c0: 3a 34 38 3a 32 33 20 2d 30 30 30 30 09 31 2e 31 :48:23 -0000.1.1
62d0: 37 0a 2b 2b 2b 20 74 65 73 74 73 2f 70 72 6f 63 7.+++ tests/proc
62e0: 2e 74 65 73 74 09 31 20 46 65 62 20 32 30 30 36 .test.1 Feb 2006
62f0: 20 31 39 3a 30 37 3a 30 31 20 2d 30 30 30 30 0a 19:07:01 -0000.
6300: 40 40 20 2d 31 30 31 2c 31 32 20 2b 31 30 31 2c @@ -101,12 +101,
6310: 31 32 20 40 40 0a 20 20 20 20 20 20 20 20 20 20 12 @@.
6320: 20 20 20 73 65 74 20 7a 20 5b 65 78 70 72 20 24 set z [expr $
6330: 61 28 31 29 2b 24 61 28 32 29 5d 0a 20 20 20 20 a(1)+$a(2)].
6340: 20 20 20 20 20 20 20 20 20 70 75 74 73 20 22 24 puts "$
6350: 7a 3d 7a 2c 20 24 61 28 31 29 3d 24 61 28 31 29 z=z, $a(1)=$a(1)
6360: 22 0a 20 20 20 20 20 20 20 20 20 7d 7d 20 6d 73 ". }} ms
6370: 67 5d 20 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b 70 g] $msg.-} {1 {p
6380: 72 6f 63 65 64 75 72 65 20 22 70 22 20 68 61 73 rocedure "p" has
6390: 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 formal paramete
63a0: 72 20 22 61 28 31 29 22 20 74 68 61 74 20 69 73 r "a(1)" that is
63b0: 20 61 6e 20 61 72 72 61 79 20 65 6c 65 6d 65 6e an array elemen
63c0: 74 7d 7d 0a 2b 7d 20 7b 31 20 7b 66 6f 72 6d 61 t}}.+} {1 {forma
63d0: 6c 20 70 61 72 61 6d 65 74 65 72 20 22 61 28 31 l parameter "a(1
63e0: 29 22 20 69 73 20 61 6e 20 61 72 72 61 79 20 65 )" is an array e
63f0: 6c 65 6d 65 6e 74 7d 7d 0a 20 74 65 73 74 20 70 lement}}. test p
6400: 72 6f 63 2d 31 2e 38 20 7b 54 63 6c 5f 50 72 6f roc-1.8 {Tcl_Pro
6410: 63 4f 62 6a 43 6d 64 2c 20 63 68 65 63 6b 20 74 cObjCmd, check t
6420: 68 61 74 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d hat formal param
6430: 65 74 65 72 20 6e 61 6d 65 73 20 61 72 65 20 73 eter names are s
6440: 69 6d 70 6c 65 20 6e 61 6d 65 73 7d 20 7b 0a 20 imple names} {.
6450: 20 20 20 20 63 61 74 63 68 20 7b 72 65 6e 61 6d catch {renam
6460: 65 20 70 20 22 22 7d 0a 20 20 20 20 20 6c 69 73 e p ""}. lis
6470: 74 20 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 70 t [catch {proc p
6480: 20 7b 62 3a 61 20 62 3a 3a 61 7d 20 7b 20 0a 20 {b:a b::a} { .
6490: 20 20 20 20 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 }} msg] $msg
64a0: 0a 2d 7d 20 7b 31 20 7b 70 72 6f 63 65 64 75 72 .-} {1 {procedur
64b0: 65 20 22 70 22 20 68 61 73 20 66 6f 72 6d 61 6c e "p" has formal
64c0: 20 70 61 72 61 6d 65 74 65 72 20 22 62 3a 3a 61 parameter "b::a
64d0: 22 20 74 68 61 74 20 69 73 20 6e 6f 74 20 61 20 " that is not a
64e0: 73 69 6d 70 6c 65 20 6e 61 6d 65 7d 7d 0a 2b 7d simple name}}.+}
64f0: 20 7b 31 20 7b 66 6f 72 6d 61 6c 20 70 61 72 61 {1 {formal para
6500: 6d 65 74 65 72 20 22 62 3a 3a 61 22 20 69 73 20 meter "b::a" is
6510: 6e 6f 74 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d not a simple nam
6520: 65 7d 7d 0a 20 0a 20 74 65 73 74 20 70 72 6f 63 e}}. . test proc
6530: 2d 32 2e 31 20 7b 54 63 6c 46 69 6e 64 50 72 6f -2.1 {TclFindPro
6540: 63 2c 20 73 69 6d 70 6c 65 20 70 72 6f 63 20 6e c, simple proc n
6550: 61 6d 65 20 61 6e 64 20 70 72 6f 63 20 6e 6f 74 ame and proc not
6560: 20 69 6e 20 6e 61 6d 65 73 70 61 63 65 7d 20 7b in namespace} {
6570: 0a 20 20 20 20 20 63 61 74 63 68 20 7b 6e 61 6d . catch {nam
6580: 65 73 70 61 63 65 20 64 65 6c 65 74 65 20 7b 65 espace delete {e
6590: 78 70 61 6e 64 7d 5b 6e 61 6d 65 73 70 61 63 65 xpand}[namespace
65a0: 20 63 68 69 6c 64 72 65 6e 20 3a 3a 20 74 65 73 children :: tes
65b0: 74 5f 6e 73 5f 2a 5d 7d 0a t_ns_*]}.
