Attachment "apply4.patch" to
ticket [944803ffff]
added by
msofer
2006-01-19 05:46:13.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 42 61 73 69 63 2e 63 0a 3d 3d 3d 3d 3d 3d clBasic.c.======
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0060: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0070: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0080: 2f 74 63 6c 42 61 73 69 63 2e 63 2c 76 0a 72 65 /tclBasic.c,v.re
0090: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
00a0: 6e 20 31 2e 31 38 37 0a 64 69 66 66 20 2d 75 20 n 1.187.diff -u
00b0: 2d 72 31 2e 31 38 37 20 74 63 6c 42 61 73 69 63 -r1.187 tclBasic
00c0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
00d0: 63 6c 42 61 73 69 63 2e 63 09 31 31 20 4a 61 6e clBasic.c.11 Jan
00e0: 20 32 30 30 36 20 31 37 3a 33 34 3a 35 33 20 2d 2006 17:34:53 -
00f0: 30 30 30 30 09 31 2e 31 38 37 0a 2b 2b 2b 20 67 0000.1.187.+++ g
0100: 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e eneric/tclBasic.
0110: 63 09 31 38 20 4a 61 6e 20 32 30 30 36 20 32 32 c.18 Jan 2006 22
0120: 3a 32 34 3a 31 33 20 2d 30 30 30 30 0a 40 40 20 :24:13 -0000.@@
0130: 2d 31 30 35 2c 36 20 2b 31 30 35 2c 37 20 40 40 -105,6 +105,7 @@
0140: 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 . */. .
0150: 20 7b 22 61 70 70 65 6e 64 22 2c 09 09 54 63 6c {"append",..Tcl
0160: 5f 41 70 70 65 6e 64 4f 62 6a 43 6d 64 2c 09 54 _AppendObjCmd,.T
0170: 63 6c 43 6f 6d 70 69 6c 65 41 70 70 65 6e 64 43 clCompileAppendC
0180: 6d 64 2c 09 31 7d 2c 0a 2b 20 20 20 20 7b 22 61 md,.1},.+ {"a
0190: 70 70 6c 79 22 2c 09 20 20 20 20 20 20 20 20 54 pply",. T
01a0: 63 6c 5f 41 70 70 6c 79 4f 62 6a 43 6d 64 2c 20 cl_ApplyObjCmd,
01b0: 20 20 20 20 20 20 20 4e 55 4c 4c 2c 20 20 20 20 NULL,
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 1
01d0: 7d 2c 0a 20 20 20 20 20 7b 22 61 72 72 61 79 22 },. {"array"
01e0: 2c 09 09 54 63 6c 5f 41 72 72 61 79 4f 62 6a 43 ,..Tcl_ArrayObjC
01f0: 6d 64 2c 09 4e 55 4c 4c 2c 09 09 09 31 7d 2c 0a md,.NULL,...1},.
0200: 20 20 20 20 20 7b 22 62 69 6e 61 72 79 22 2c 09 {"binary",.
0210: 09 54 63 6c 5f 42 69 6e 61 72 79 4f 62 6a 43 6d .Tcl_BinaryObjCm
0220: 64 2c 09 4e 55 4c 4c 2c 09 09 09 31 7d 2c 0a 20 d,.NULL,...1},.
0230: 20 20 20 20 7b 22 62 72 65 61 6b 22 2c 09 09 54 {"break",..T
0240: 63 6c 5f 42 72 65 61 6b 4f 62 6a 43 6d 64 2c 09 cl_BreakObjCmd,.
0250: 54 63 6c 43 6f 6d 70 69 6c 65 42 72 65 61 6b 43 TclCompileBreakC
0260: 6d 64 2c 09 31 7d 2c 0a 49 6e 64 65 78 3a 20 67 md,.1},.Index: g
0270: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
0280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02c0: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
02d0: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
02e0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
02f0: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
0300: 69 73 69 6f 6e 20 31 2e 32 36 34 0a 64 69 66 66 ision 1.264.diff
0310: 20 2d 75 20 2d 72 31 2e 32 36 34 20 74 63 6c 49 -u -r1.264 tclI
0320: 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 nt.h.--- generic
0330: 2f 74 63 6c 49 6e 74 2e 68 09 32 37 20 44 65 63 /tclInt.h.27 Dec
0340: 20 32 30 30 35 20 32 30 3a 31 34 3a 30 39 20 2d 2005 20:14:09 -
0350: 30 30 30 30 09 31 2e 32 36 34 0a 2b 2b 2b 20 67 0000.1.264.+++ g
0360: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 eneric/tclInt.h.
0370: 31 38 20 4a 61 6e 20 32 30 30 36 20 32 32 3a 32 18 Jan 2006 22:2
0380: 34 3a 31 33 20 2d 30 30 30 30 0a 40 40 20 2d 32 4:13 -0000.@@ -2
0390: 32 34 30 2c 36 20 2b 32 32 34 30 2c 39 20 40 40 240,6 +2240,9 @@
03a0: 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 . MODULE_SCOPE i
03b0: 6e 74 09 54 63 6c 5f 41 70 70 65 6e 64 4f 62 6a nt.Tcl_AppendObj
03c0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
03d0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 09 09 09 20 lientData,. ...
03e0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
03f0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
0400: 0a 20 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a . ... Tcl_Obj
0410: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b *CONST objv[]);
0420: 0a 2b 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 .+MODULE_SCOPE i
0430: 6e 74 09 54 63 6c 5f 41 70 70 6c 79 4f 62 6a 43 nt.Tcl_ApplyObjC
0440: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
0450: 69 65 6e 74 44 61 74 61 2c 0a 2b 09 09 09 20 20 ientData,.+...
0460: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
0470: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 0a terp, int objc,.
0480: 2b 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 +... Tcl_Obj
0490: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a *CONST objv[]);.
04a0: 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e MODULE_SCOPE in
04b0: 74 09 54 63 6c 5f 41 72 72 61 79 4f 62 6a 43 6d t.Tcl_ArrayObjCm
04c0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
04d0: 65 6e 74 44 61 74 61 2c 0a 20 09 09 09 20 20 20 entData,. ...
04e0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
04f0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 erp, int objc,.
0500: 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a ... Tcl_Obj *
0510: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a 49 CONST objv[]);.I
0520: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
0530: 6c 50 72 6f 63 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d lProc.c.========
0540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0560: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0570: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
0580: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
0590: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
05a0: 63 6c 50 72 6f 63 2e 63 2c 76 0a 72 65 74 72 69 clProc.c,v.retri
05b0: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 eving revision 1
05c0: 2e 38 33 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e .83.diff -u -r1.
05d0: 38 33 20 74 63 6c 50 72 6f 63 2e 63 0a 2d 2d 2d 83 tclProc.c.---
05e0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 72 6f 63 generic/tclProc
05f0: 2e 63 09 31 33 20 44 65 63 20 32 30 30 35 20 32 .c.13 Dec 2005 2
0600: 32 3a 34 33 3a 31 38 20 2d 30 30 30 30 09 31 2e 2:43:18 -0000.1.
0610: 38 33 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 83.+++ generic/t
0620: 63 6c 50 72 6f 63 2e 63 09 31 38 20 4a 61 6e 20 clProc.c.18 Jan
0630: 32 30 30 36 20 32 32 3a 32 34 3a 31 33 20 2d 30 2006 22:24:13 -0
0640: 30 30 30 0a 40 40 20 2d 36 2c 36 20 2b 36 2c 37 000.@@ -6,6 +6,7
0650: 20 40 40 0a 20 20 2a 0a 20 20 2a 20 43 6f 70 79 @@. *. * Copy
0660: 72 69 67 68 74 20 28 63 29 20 31 39 38 37 2d 31 right (c) 1987-1
0670: 39 39 33 20 54 68 65 20 52 65 67 65 6e 74 73 20 993 The Regents
0680: 6f 66 20 74 68 65 20 55 6e 69 76 65 72 73 69 74 of the Universit
0690: 79 20 6f 66 20 43 61 6c 69 66 6f 72 6e 69 61 2e y of California.
06a0: 0a 20 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 . * Copyright (
06b0: 63 29 20 31 39 39 34 2d 31 39 39 38 20 53 75 6e c) 1994-1998 Sun
06c0: 20 4d 69 63 72 6f 73 79 73 74 65 6d 73 2c 20 49 Microsystems, I
06d0: 6e 63 2e 0a 2b 20 2a 20 43 6f 70 79 72 69 67 68 nc..+ * Copyrigh
06e0: 74 20 28 63 29 20 32 30 30 34 2d 32 30 30 36 20 t (c) 2004-2006
06f0: 4d 69 67 75 65 6c 20 53 6f 66 65 72 0a 20 20 2a Miguel Sofer. *
0700: 0a 20 20 2a 20 53 65 65 20 74 68 65 20 66 69 6c . * See the fil
0710: 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 e "license.terms
0720: 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f " for informatio
0730: 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 n on usage and r
0740: 65 64 69 73 74 72 69 62 75 74 69 6f 6e 20 6f 66 edistribution of
0750: 0a 20 20 2a 20 74 68 69 73 20 66 69 6c 65 2c 20 . * this file,
0760: 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 and for a DISCLA
0770: 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 IMER OF ALL WARR
0780: 41 4e 54 49 45 53 2e 0a 40 40 20 2d 32 30 2c 36 ANTIES..@@ -20,6
0790: 20 2b 32 31 2c 38 20 40 40 0a 20 20 2a 20 50 72 +21,8 @@. * Pr
07a0: 6f 74 6f 74 79 70 65 73 20 66 6f 72 20 73 74 61 ototypes for sta
07b0: 74 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e tic functions in
07c0: 20 74 68 69 73 20 66 69 6c 65 0a 20 20 2a 2f 0a this file. */.
07d0: 20 0a 2b 73 74 61 74 69 63 20 69 6e 74 20 20 20 .+static int
07e0: 20 20 20 20 20 20 20 20 20 20 20 4f 62 6a 49 6e ObjIn
07f0: 74 65 72 70 50 72 6f 63 45 78 28 43 6c 69 65 6e terpProcEx(Clien
0800: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0810: 2c 72 65 67 69 73 74 65 72 20 54 63 6c 5f 49 6e ,register Tcl_In
0820: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 2b 09 terp *interp,.+.
0830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0840: 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 int objc, Tc
0850: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
0860: 76 5b 5d 2c 20 69 6e 74 20 73 6b 69 70 29 3b 0a v[], int skip);.
0870: 20 73 74 61 74 69 63 20 76 6f 69 64 09 09 50 72 static void..Pr
0880: 6f 63 42 6f 64 79 44 75 70 28 54 63 6c 5f 4f 62 ocBodyDup(Tcl_Ob
0890: 6a 20 2a 73 72 63 50 74 72 2c 20 54 63 6c 5f 4f j *srcPtr, Tcl_O
08a0: 62 6a 20 2a 64 75 70 50 74 72 29 3b 0a 20 73 74 bj *dupPtr);. st
08b0: 61 74 69 63 20 76 6f 69 64 09 09 50 72 6f 63 42 atic void..ProcB
08c0: 6f 64 79 46 72 65 65 28 54 63 6c 5f 4f 62 6a 20 odyFree(Tcl_Obj
08d0: 2a 6f 62 6a 50 74 72 29 3b 0a 20 73 74 61 74 69 *objPtr);. stati
08e0: 63 20 69 6e 74 09 09 50 72 6f 63 65 73 73 50 72 c int..ProcessPr
08f0: 6f 63 52 65 73 75 6c 74 43 6f 64 65 28 54 63 6c ocResultCode(Tcl
0900: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0910: 0a 40 40 20 2d 31 33 31 2c 36 20 2b 31 33 34 2c .@@ -131,6 +134,
0920: 39 20 40 40 0a 20 0a 20 20 20 20 20 69 66 20 28 9 @@. . if (
0930: 54 63 6c 43 72 65 61 74 65 50 72 6f 63 28 69 6e TclCreateProc(in
0940: 74 65 72 70 2c 20 6e 73 50 74 72 2c 20 70 72 6f terp, nsPtr, pro
0950: 63 4e 61 6d 65 2c 20 6f 62 6a 76 5b 32 5d 2c 20 cName, objv[2],
0960: 6f 62 6a 76 5b 33 5d 2c 0a 20 09 20 20 20 20 26 objv[3],. . &
0970: 70 72 6f 63 50 74 72 29 20 21 3d 20 54 43 4c 5f procPtr) != TCL_
0980: 4f 4b 29 20 7b 0a 2b 09 54 63 6c 5f 41 64 64 45 OK) {.+.Tcl_AddE
0990: 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c rrorInfo(interp,
09a0: 20 22 5c 6e 20 20 20 20 28 63 72 65 61 74 69 6e "\n (creatin
09b0: 67 20 70 72 6f 63 20 5c 22 22 29 3b 0a 2b 09 54 g proc \"");.+.T
09c0: 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 cl_AddErrorInfo(
09d0: 69 6e 74 65 72 70 2c 20 70 72 6f 63 4e 61 6d 65 interp, procName
09e0: 29 3b 0a 2b 09 54 63 6c 5f 41 64 64 45 72 72 6f );.+.Tcl_AddErro
09f0: 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 22 5c rInfo(interp, "\
0a00: 22 29 22 29 3b 0a 20 09 72 65 74 75 72 6e 20 54 ")");. .return T
0a10: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 7d CL_ERROR;. }
0a20: 0a 20 0a 40 40 20 2d 33 37 32 2c 38 20 2b 33 37 . .@@ -372,8 +37
0a30: 38 2c 37 20 40 40 0a 20 09 7d 0a 20 09 69 66 20 8,7 @@. .}. .if
0a40: 28 28 66 69 65 6c 64 43 6f 75 6e 74 20 3d 3d 20 ((fieldCount ==
0a50: 30 29 20 7c 7c 20 28 2a 66 69 65 6c 64 56 61 6c 0) || (*fieldVal
0a60: 75 65 73 5b 30 5d 20 3d 3d 20 30 29 29 20 7b 0a ues[0] == 0)) {.
0a70: 20 09 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 . ckfree((ch
0a80: 61 72 20 2a 29 20 66 69 65 6c 64 56 61 6c 75 65 ar *) fieldValue
0a90: 73 29 3b 0a 2d 09 20 20 20 20 54 63 6c 5f 41 70 s);.-. Tcl_Ap
0aa0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0ab0: 70 2c 20 22 70 72 6f 63 65 64 75 72 65 20 5c 22 p, "procedure \"
0ac0: 22 2c 20 70 72 6f 63 4e 61 6d 65 2c 0a 2d 09 09 ", procName,.-..
0ad0: 20 20 20 20 22 5c 22 20 68 61 73 20 61 72 67 75 "\" has argu
0ae0: 6d 65 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d ment with no nam
0af0: 65 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 e", NULL);.+.
0b00: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
0b10: 74 28 69 6e 74 65 72 70 2c 20 22 61 72 67 75 6d t(interp, "argum
0b20: 65 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 ent with no name
0b30: 22 2c 20 4e 55 4c 4c 29 3b 0a 20 09 20 20 20 20 ", NULL);. .
0b40: 67 6f 74 6f 20 70 72 6f 63 45 72 72 6f 72 3b 0a goto procError;.
0b50: 20 09 7d 0a 20 0a 40 40 20 2d 33 39 37 2c 31 36 .}. .@@ -397,16
0b60: 20 2b 34 30 32 2c 31 36 20 40 40 0a 20 09 09 7d +402,16 @@. ..}
0b70: 20 77 68 69 6c 65 20 28 2a 71 20 21 3d 20 27 5c while (*q != '\
0b80: 30 27 29 3b 0a 20 09 09 71 2d 2d 3b 0a 20 09 09 0');. ..q--;. ..
0b90: 69 66 20 28 2a 71 20 3d 3d 20 27 29 27 29 20 7b if (*q == ')') {
0ba0: 20 2f 2a 20 77 65 20 68 61 76 65 20 61 6e 20 61 /* we have an a
0bb0: 72 72 61 79 20 65 6c 65 6d 65 6e 74 20 2a 2f 0a rray element */.
0bc0: 2d 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e -.. Tcl_Appen
0bd0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
0be0: 22 70 72 6f 63 65 64 75 72 65 20 5c 22 22 2c 20 "procedure \"",
0bf0: 70 72 6f 63 4e 61 6d 65 2c 0a 2d 09 09 09 20 20 procName,.-...
0c00: 20 20 22 5c 22 20 68 61 73 20 66 6f 72 6d 61 6c "\" has formal
0c10: 20 70 61 72 61 6d 65 74 65 72 20 5c 22 22 2c 20 parameter \"",
0c20: 66 69 65 6c 64 56 61 6c 75 65 73 5b 30 5d 2c 0a fieldValues[0],.
0c30: 2d 09 09 09 20 20 20 20 22 5c 22 20 74 68 61 74 -... "\" that
0c40: 20 69 73 20 61 6e 20 61 72 72 61 79 20 65 6c 65 is an array ele
0c50: 6d 65 6e 74 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 ment", NULL);.+.
0c60: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
0c70: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 66 esult(interp, "f
0c80: 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 20 ormal parameter
0c90: 5c 22 22 2c 0a 2b 09 09 09 20 20 20 20 66 69 65 \"",.+... fie
0ca0: 6c 64 56 61 6c 75 65 73 5b 30 5d 2c 0a 2b 09 09 ldValues[0],.+..
0cb0: 09 20 20 20 20 22 5c 22 20 69 73 20 61 6e 20 61 . "\" is an a
0cc0: 72 72 61 79 20 65 6c 65 6d 65 6e 74 22 2c 20 4e rray element", N
0cd0: 55 4c 4c 29 3b 0a 20 09 09 20 20 20 20 63 6b 66 ULL);. .. ckf
0ce0: 72 65 65 28 28 63 68 61 72 20 2a 29 20 66 69 65 ree((char *) fie
0cf0: 6c 64 56 61 6c 75 65 73 29 3b 0a 20 09 09 20 20 ldValues);. ..
0d00: 20 20 67 6f 74 6f 20 70 72 6f 63 45 72 72 6f 72 goto procError
0d10: 3b 0a 20 09 09 7d 0a 20 09 20 20 20 20 7d 20 65 ;. ..}. . } e
0d20: 6c 73 65 20 69 66 20 28 28 2a 70 20 3d 3d 20 27 lse if ((*p == '
0d30: 3a 27 29 20 26 26 20 28 2a 28 70 2b 31 29 20 3d :') && (*(p+1) =
0d40: 3d 20 27 3a 27 29 29 20 7b 0a 2d 09 09 54 63 6c = ':')) {.-..Tcl
0d50: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
0d60: 74 65 72 70 2c 20 22 70 72 6f 63 65 64 75 72 65 terp, "procedure
0d70: 20 5c 22 22 2c 20 70 72 6f 63 4e 61 6d 65 2c 0a \"", procName,.
0d80: 2d 09 09 09 22 5c 22 20 68 61 73 20 66 6f 72 6d -..."\" has form
0d90: 61 6c 20 70 61 72 61 6d 65 74 65 72 20 5c 22 22 al parameter \""
0da0: 2c 20 66 69 65 6c 64 56 61 6c 75 65 73 5b 30 5d , fieldValues[0]
0db0: 2c 0a 2d 09 09 09 22 5c 22 20 74 68 61 74 20 69 ,.-..."\" that i
0dc0: 73 20 6e 6f 74 20 61 20 73 69 6d 70 6c 65 20 6e s not a simple n
0dd0: 61 6d 65 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 ame", NULL);.+..
0de0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
0df0: 28 69 6e 74 65 72 70 2c 20 22 66 6f 72 6d 61 6c (interp, "formal
0e00: 20 70 61 72 61 6d 65 74 65 72 20 5c 22 22 2c 0a parameter \"",.
0e10: 2b 09 09 09 66 69 65 6c 64 56 61 6c 75 65 73 5b +...fieldValues[
0e20: 30 5d 2c 0a 2b 09 09 09 22 5c 22 20 69 73 20 6e 0],.+..."\" is n
0e30: 6f 74 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d 65 ot a simple name
0e40: 22 2c 20 4e 55 4c 4c 29 3b 0a 20 09 09 63 6b 66 ", NULL);. ..ckf
0e50: 72 65 65 28 28 63 68 61 72 20 2a 29 20 66 69 65 ree((char *) fie
0e60: 6c 64 56 61 6c 75 65 73 29 3b 0a 20 09 09 67 6f ldValues);. ..go
0e70: 74 6f 20 70 72 6f 63 45 72 72 6f 72 3b 0a 20 09 to procError;. .
0e80: 20 20 20 20 7d 0a 40 40 20 2d 31 31 31 33 2c 36 }.@@ -1113,6
0e90: 20 2b 31 31 31 38 2c 32 32 20 40 40 0a 20 09 09 +1118,22 @@. ..
0ea0: 09 09 20 2a 20 70 72 6f 63 65 64 75 72 65 2e 20 .. * procedure.
0eb0: 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */. Tcl_Obj
0ec0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 09 2f *CONST objv[])./
0ed0: 2a 20 41 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 * Argument value
0ee0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 20 7b 0a objects. */. {.
0ef0: 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 4f 62 +.+ return Ob
0f00: 6a 49 6e 74 65 72 70 50 72 6f 63 45 78 28 63 6c jInterpProcEx(cl
0f10: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
0f20: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 2f 2a , objc, objv, /*
0f30: 73 6b 69 70 2a 2f 20 31 29 3b 0a 2b 7d 0a 2b 09 skip*/ 1);.+}.+.
0f40: 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 4f 62 .+static int.+Ob
0f50: 6a 49 6e 74 65 72 70 50 72 6f 63 45 78 28 0a 2b jInterpProcEx(.+
0f60: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 ClientData c
0f70: 6c 69 65 6e 74 44 61 74 61 2c 20 09 2f 2a 20 52 lientData, ./* R
0f80: 65 63 6f 72 64 20 64 65 73 63 72 69 62 69 6e 67 ecord describing
0f90: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 62 65 procedure to be
0fa0: 0a 2b 09 09 09 09 20 2a 20 69 6e 74 65 72 70 72 .+.... * interpr
0fb0: 65 74 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 eted. */.+ re
0fc0: 67 69 73 74 65 72 20 54 63 6c 5f 49 6e 74 65 72 gister Tcl_Inter
0fd0: 70 20 2a 69 6e 74 65 72 70 2c 2f 2a 20 49 6e 74 p *interp,/* Int
0fe0: 65 72 70 72 65 74 65 72 20 69 6e 20 77 68 69 63 erpreter in whic
0ff0: 68 20 70 72 6f 63 65 64 75 72 65 20 77 61 73 0a h procedure was.
1000: 2b 09 09 09 09 20 2a 20 69 6e 76 6f 6b 65 64 2e +.... * invoked.
1010: 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a */.+ int obj
1020: 63 2c 09 09 09 2f 2a 20 43 6f 75 6e 74 20 6f 66 c,.../* Count of
1030: 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d number of argum
1040: 65 6e 74 73 20 74 6f 20 74 68 69 73 0a 2b 09 09 ents to this.+..
1050: 09 09 20 2a 20 70 72 6f 63 65 64 75 72 65 2e 20 .. * procedure.
1060: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */.+ Tcl_Obj
1070: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 2c 09 2f *CONST objv[],./
1080: 2a 20 41 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 * Argument value
1090: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 20 20 objects. */.+
10a0: 20 20 69 6e 74 20 73 6b 69 70 29 20 20 20 20 20 int skip)
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
10c0: 20 4e 75 6d 62 65 72 20 6f 66 20 69 6e 69 74 69 Number of initi
10d0: 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 al arguments to
10e0: 62 65 20 73 6b 69 70 70 65 64 2c 0a 2b 09 09 09 be skipped,.+...
10f0: 09 20 2a 20 69 65 2c 20 77 6f 72 64 73 20 69 6e . * ie, words in
1100: 20 74 68 65 20 22 63 6f 6d 6d 61 6e 64 20 6e 61 the "command na
1110: 6d 65 22 20 2a 2f 20 0a 2b 7b 0a 20 20 20 20 20 me" */ .+{.
1120: 72 65 67 69 73 74 65 72 20 50 72 6f 63 20 2a 70 register Proc *p
1130: 72 6f 63 50 74 72 20 3d 20 28 50 72 6f 63 20 2a rocPtr = (Proc *
1140: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
1150: 20 20 20 4e 61 6d 65 73 70 61 63 65 20 2a 6e 73 Namespace *ns
1160: 50 74 72 20 3d 20 70 72 6f 63 50 74 72 2d 3e 63 Ptr = procPtr->c
1170: 6d 64 50 74 72 2d 3e 6e 73 50 74 72 3b 0a 20 20 mdPtr->nsPtr;.
1180: 20 20 20 43 61 6c 6c 46 72 61 6d 65 20 2a 66 72 CallFrame *fr
1190: 61 6d 65 50 74 72 2c 20 2a 2a 66 72 61 6d 65 50 amePtr, **frameP
11a0: 74 72 50 74 72 3b 0a 40 40 20 2d 31 31 38 33 2c trPtr;.@@ -1183,
11b0: 37 20 2b 31 32 30 34 2c 37 20 40 40 0a 20 20 20 7 +1204,7 @@.
11c0: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 6e 75 6d */. . num
11d0: 41 72 67 73 20 3d 20 70 72 6f 63 50 74 72 2d 3e Args = procPtr->
11e0: 6e 75 6d 41 72 67 73 3b 0a 2d 20 20 20 20 61 72 numArgs;.- ar
11f0: 67 43 74 20 3d 20 6f 62 6a 63 2d 31 3b 20 2f 2a gCt = objc-1; /*
1200: 20 73 65 74 20 69 74 20 74 6f 20 74 68 65 20 6e set it to the n
1210: 75 6d 62 65 72 20 6f 66 20 61 72 67 73 20 74 6f umber of args to
1220: 20 74 68 65 20 70 72 6f 63 20 2a 2f 0a 2b 20 20 the proc */.+
1230: 20 20 61 72 67 43 74 20 3d 20 6f 62 6a 63 2d 73 argCt = objc-s
1240: 6b 69 70 3b 20 2f 2a 20 73 65 74 20 69 74 20 74 kip; /* set it t
1250: 6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 o the number of
1260: 61 72 67 73 20 74 6f 20 74 68 65 20 70 72 6f 63 args to the proc
1270: 20 2a 2f 0a 20 20 20 20 20 76 61 72 50 74 72 20 */. varPtr
1280: 3d 20 66 72 61 6d 65 50 74 72 2d 3e 63 6f 6d 70 = framePtr->comp
1290: 69 6c 65 64 4c 6f 63 61 6c 73 3b 0a 20 20 20 20 iledLocals;.
12a0: 20 6c 6f 63 61 6c 50 74 72 20 3d 20 70 72 6f 63 localPtr = proc
12b0: 50 74 72 2d 3e 66 69 72 73 74 4c 6f 63 61 6c 50 Ptr->firstLocalP
12c0: 74 72 3b 0a 20 20 20 20 20 69 66 20 28 6e 75 6d tr;. if (num
12d0: 41 72 67 73 20 3d 3d 20 30 29 20 7b 0a 40 40 20 Args == 0) {.@@
12e0: 2d 31 31 39 34 2c 37 20 2b 31 32 31 35 2c 37 20 -1194,7 +1215,7
12f0: 40 40 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 20 20 @@. .}. }.
1300: 20 20 20 69 6d 61 78 20 3d 20 28 28 61 72 67 43 imax = ((argC
1310: 74 20 3c 20 6e 75 6d 41 72 67 73 20 2d 20 31 29 t < numArgs - 1)
1320: 3f 20 61 72 67 43 74 20 3a 20 28 6e 75 6d 41 72 ? argCt : (numAr
1330: 67 73 20 2d 20 31 29 29 3b 0a 2d 20 20 20 20 66 gs - 1));.- f
1340: 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 3c 3d 20 or (i = 1; i <=
1350: 69 6d 61 78 3b 20 69 2b 2b 29 20 7b 0a 2b 20 20 imax; i++) {.+
1360: 20 20 66 6f 72 20 28 69 20 3d 20 73 6b 69 70 3b for (i = skip;
1370: 20 69 20 3c 3d 20 69 6d 61 78 3b 20 69 2b 2b 29 i <= imax; i++)
1380: 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 22 4e 6f {. ./*. . * "No
1390: 72 6d 61 6c 22 20 61 72 67 75 6d 65 6e 74 73 3b rmal" arguments;
13a0: 20 6c 61 73 74 20 66 6f 72 6d 61 6c 20 69 73 20 last formal is
13b0: 73 70 65 63 69 61 6c 2c 20 64 65 70 65 6e 64 73 special, depends
13c0: 20 6f 6e 20 69 74 20 62 65 69 6e 67 0a 20 09 20 on it being. .
13d0: 2a 20 27 61 72 67 73 27 2e 0a 40 40 20 2d 31 32 * 'args'..@@ -12
13e0: 34 35 2c 37 20 2b 31 32 36 36 2c 39 20 40 40 0a 45,7 +1266,9 @@.
13f0: 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 */. .
1400: 69 66 20 28 6c 6f 63 61 6c 50 74 72 2d 3e 66 6c if (localPtr->fl
1410: 61 67 73 20 26 20 56 41 52 5f 49 53 5f 41 52 47 ags & VAR_IS_ARG
1420: 53 29 20 7b 0a 2d 09 54 63 6c 5f 4f 62 6a 20 2a S) {.-.Tcl_Obj *
1430: 6c 69 73 74 50 74 72 20 3d 20 54 63 6c 5f 4e 65 listPtr = Tcl_Ne
1440: 77 4c 69 73 74 4f 62 6a 28 6f 62 6a 63 2d 6e 75 wListObj(objc-nu
1450: 6d 41 72 67 73 2c 20 26 28 6f 62 6a 76 5b 6e 75 mArgs, &(objv[nu
1460: 6d 41 72 67 73 5d 29 29 3b 0a 2b 09 69 6e 74 20 mArgs]));.+.int
1470: 6f 66 66 73 65 74 20 3d 20 73 6b 69 70 2d 31 3b offset = skip-1;
1480: 0a 2b 09 54 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 .+.Tcl_Obj *list
1490: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Ptr = Tcl_NewLis
14a0: 74 4f 62 6a 28 6f 62 6a 63 2d 6e 75 6d 41 72 67 tObj(objc-numArg
14b0: 73 2d 6f 66 66 73 65 74 2c 0a 2b 09 09 26 28 6f s-offset,.+..&(o
14c0: 62 6a 76 5b 6e 75 6d 41 72 67 73 2b 6f 66 66 73 bjv[numArgs+offs
14d0: 65 74 5d 29 29 3b 0a 20 09 76 61 72 50 74 72 2d et]));. .varPtr-
14e0: 3e 76 61 6c 75 65 2e 6f 62 6a 50 74 72 20 3d 20 >value.objPtr =
14f0: 6c 69 73 74 50 74 72 3b 0a 20 09 54 63 6c 5f 49 listPtr;. .Tcl_I
1500: 6e 63 72 52 65 66 43 6f 75 6e 74 28 6c 69 73 74 ncrRefCount(list
1510: 50 74 72 29 3b 09 2f 2a 20 6c 6f 63 61 6c 20 76 Ptr);./* local v
1520: 61 72 20 69 73 20 61 20 72 65 66 65 72 65 6e 63 ar is a referenc
1530: 65 20 2a 2f 0a 20 20 20 20 20 7d 20 65 6c 73 65 e */. } else
1540: 20 69 66 20 28 61 72 67 43 74 20 3d 3d 20 6e 75 if (argCt == nu
1550: 6d 41 72 67 73 29 20 7b 0a 40 40 20 2d 31 38 36 mArgs) {.@@ -186
1560: 36 2c 36 20 2b 31 38 38 39 2c 32 30 39 20 40 40 6,6 +1889,209 @@
1570: 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 2b 20 2a 20 4c . }. .. /*.+ * L
1580: 41 4d 42 44 41 20 61 6e 64 20 41 50 50 4c 59 20 AMBDA and APPLY
1590: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 2b implementation.+
15a0: 20 2a 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 61 74 69 *.+ */.+.+stati
15b0: 63 20 76 6f 69 64 09 09 44 75 70 4c 61 6d 62 64 c void..DupLambd
15c0: 61 49 6e 74 65 72 6e 61 6c 52 65 70 20 5f 41 4e aInternalRep _AN
15d0: 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 4f 62 SI_ARGS_((Tcl_Ob
15e0: 6a 20 2a 6f 62 6a 50 74 72 2c 0a 2b 09 09 09 20 j *objPtr,.+...
15f0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 70 79 Tcl_Obj *copy
1600: 50 74 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 76 Ptr));.+static v
1610: 6f 69 64 09 09 46 72 65 65 4c 61 6d 62 64 61 49 oid..FreeLambdaI
1620: 6e 74 65 72 6e 61 6c 52 65 70 20 5f 41 4e 53 49 nternalRep _ANSI
1630: 5f 41 52 47 53 5f 28 28 0a 2b 20 20 20 20 09 09 _ARGS_((.+ ..
1640: 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
1650: 6a 50 74 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 jPtr));.+static
1660: 69 6e 74 09 09 53 65 74 4c 61 6d 62 64 61 46 72 int..SetLambdaFr
1670: 6f 6d 41 6e 79 20 5f 41 4e 53 49 5f 41 52 47 53 omAny _ANSI_ARGS
1680: 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 _((Tcl_Interp *i
1690: 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 54 nterp,.+... T
16a0: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 29 29 cl_Obj *objPtr))
16b0: 3b 0a 2b 0a 2b 54 63 6c 5f 4f 62 6a 54 79 70 65 ;.+.+Tcl_ObjType
16c0: 20 6c 61 6d 62 64 61 54 79 70 65 20 3d 20 7b 0a lambdaType = {.
16d0: 2b 20 20 20 20 22 6c 61 6d 62 64 61 22 2c 09 09 + "lambda",..
16e0: 09 09 2f 2a 20 6e 61 6d 65 20 2a 2f 0a 2b 20 20 ../* name */.+
16f0: 20 20 46 72 65 65 4c 61 6d 62 64 61 49 6e 74 65 FreeLambdaInte
1700: 72 6e 61 6c 52 65 70 2c 09 20 20 20 20 20 20 20 rnalRep,.
1710: 20 2f 2a 20 66 72 65 65 49 6e 74 52 65 70 50 72 /* freeIntRepPr
1720: 6f 63 20 2a 2f 0a 2b 20 20 20 20 44 75 70 4c 61 oc */.+ DupLa
1730: 6d 62 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 2c mbdaInternalRep,
1740: 09 20 20 20 20 20 20 20 20 2f 2a 20 64 75 70 49 . /* dupI
1750: 6e 74 52 65 70 50 72 6f 63 20 2a 2f 0a 2b 20 20 ntRepProc */.+
1760: 20 20 28 54 63 6c 5f 55 70 64 61 74 65 53 74 72 (Tcl_UpdateStr
1770: 69 6e 67 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 2c ingProc *) NULL,
1780: 09 2f 2a 20 75 70 64 61 74 65 53 74 72 69 6e 67 ./* updateString
1790: 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 53 65 74 Proc */.+ Set
17a0: 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 09 09 09 LambdaFromAny...
17b0: 2f 2a 20 73 65 74 46 72 6f 6d 41 6e 79 50 72 6f /* setFromAnyPro
17c0: 63 20 2a 2f 0a 2b 7d 3b 0a 2b 0a 2b 2f 2a 0a 2b c */.+};.+.+/*.+
17d0: 20 2a 20 61 20 4c 61 6d 62 64 61 20 54 63 6c 5f * a Lambda Tcl_
17e0: 4f 62 6a 20 68 61 73 20 74 68 65 20 66 6f 72 6d Obj has the form
17f0: 0a 2b 20 2a 0a 2b 20 2a 20 20 70 74 72 31 20 69 .+ *.+ * ptr1 i
1800: 73 20 61 20 2a 50 72 6f 63 3a 20 20 20 20 20 70 s a *Proc: p
1810: 6f 69 6e 74 65 72 20 74 6f 20 61 20 70 72 6f 63 ointer to a proc
1820: 20 73 74 72 75 63 74 75 72 65 0a 2b 20 2a 20 20 structure.+ *
1830: 70 74 72 32 20 69 73 20 61 20 2a 54 63 6c 5f 4f ptr2 is a *Tcl_O
1840: 62 6a 3a 20 20 74 68 65 20 6c 61 6d 62 64 61 27 bj: the lambda'
1850: 73 20 6e 61 6d 65 73 70 61 63 65 0a 2b 20 2a 2f s namespace.+ */
1860: 0a 2b 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 0a .+.+static void.
1870: 2b 44 75 70 4c 61 6d 62 64 61 49 6e 74 65 72 6e +DupLambdaIntern
1880: 61 6c 52 65 70 28 73 72 63 50 74 72 2c 20 63 6f alRep(srcPtr, co
1890: 70 79 50 74 72 29 0a 2b 20 20 20 20 54 63 6c 5f pyPtr).+ Tcl_
18a0: 4f 62 6a 20 2a 73 72 63 50 74 72 3b 09 09 2f 2a Obj *srcPtr;../*
18b0: 20 4f 62 6a 65 63 74 20 77 69 74 68 20 69 6e 74 Object with int
18c0: 65 72 6e 61 6c 20 72 65 70 20 74 6f 20 63 6f 70 ernal rep to cop
18d0: 79 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 67 69 73 y. */.+ regis
18e0: 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 70 ter Tcl_Obj *cop
18f0: 79 50 74 72 3b 09 2f 2a 20 4f 62 6a 65 63 74 20 yPtr;./* Object
1900: 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 20 72 65 with internal re
1910: 70 20 74 6f 20 73 65 74 2e 20 2a 2f 0a 2b 7b 0a p to set. */.+{.
1920: 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 6f 63 50 + Proc *procP
1930: 74 72 20 3d 20 28 50 72 6f 63 20 2a 29 20 73 72 tr = (Proc *) sr
1940: 63 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 cPtr->internalRe
1950: 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 p.twoPtrValue.pt
1960: 72 31 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a r1;.+ Tcl_Obj
1970: 20 2a 6e 73 4f 62 6a 50 74 72 20 3d 20 28 54 63 *nsObjPtr = (Tc
1980: 6c 5f 4f 62 6a 20 2a 29 20 73 72 63 50 74 72 2d l_Obj *) srcPtr-
1990: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f >internalRep.two
19a0: 50 74 72 56 61 6c 75 65 2e 70 74 72 32 3b 0a 2b PtrValue.ptr2;.+
19b0: 0a 2b 20 20 20 20 63 6f 70 79 50 74 72 2d 3e 69 .+ copyPtr->i
19c0: 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 nternalRep.twoPt
19d0: 72 56 61 6c 75 65 2e 70 74 72 31 20 3d 20 28 56 rValue.ptr1 = (V
19e0: 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 72 3b 0a OID *) procPtr;.
19f0: 2b 20 20 20 20 63 6f 70 79 50 74 72 2d 3e 69 6e + copyPtr->in
1a00: 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 ternalRep.twoPtr
1a10: 56 61 6c 75 65 2e 70 74 72 32 20 3d 20 28 56 4f Value.ptr2 = (VO
1a20: 49 44 20 2a 29 20 6e 73 4f 62 6a 50 74 72 3b 0a ID *) nsObjPtr;.
1a30: 2b 0a 2b 20 20 20 20 70 72 6f 63 50 74 72 2d 3e +.+ procPtr->
1a40: 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 20 20 refCount++;.+
1a50: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
1a60: 74 28 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b 20 20 t(nsObjPtr);.+
1a70: 20 20 63 6f 70 79 50 74 72 2d 3e 74 79 70 65 50 copyPtr->typeP
1a80: 74 72 20 3d 20 26 6c 61 6d 62 64 61 54 79 70 65 tr = &lambdaType
1a90: 3b 0a 2b 7d 0a 2b 0a 2b 73 74 61 74 69 63 20 76 ;.+}.+.+static v
1aa0: 6f 69 64 0a 2b 46 72 65 65 4c 61 6d 62 64 61 49 oid.+FreeLambdaI
1ab0: 6e 74 65 72 6e 61 6c 52 65 70 28 6f 62 6a 50 74 nternalRep(objPt
1ac0: 72 29 0a 2b 20 20 20 20 72 65 67 69 73 74 65 72 r).+ register
1ad0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
1ae0: 3b 09 2f 2a 20 43 6d 64 4e 61 6d 65 20 6f 62 6a ;./* CmdName obj
1af0: 65 63 74 20 77 69 74 68 20 69 6e 74 65 72 6e 61 ect with interna
1b00: 6c 0a 2b 09 09 09 09 20 2a 20 72 65 70 72 65 73 l.+.... * repres
1b10: 65 6e 74 61 74 69 6f 6e 20 74 6f 20 66 72 65 65 entation to free
1b20: 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 50 72 6f . */.+{.+ Pro
1b30: 63 20 2a 70 72 6f 63 50 74 72 20 3d 20 28 50 72 c *procPtr = (Pr
1b40: 6f 63 20 2a 29 20 6f 62 6a 50 74 72 2d 3e 69 6e oc *) objPtr->in
1b50: 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 ternalRep.twoPtr
1b60: 56 61 6c 75 65 2e 70 74 72 31 3b 0a 2b 20 20 20 Value.ptr1;.+
1b70: 20 54 63 6c 5f 4f 62 6a 20 2a 6e 73 4f 62 6a 50 Tcl_Obj *nsObjP
1b80: 74 72 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 tr = (Tcl_Obj *)
1b90: 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 65 72 6e 61 objPtr->interna
1ba0: 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 lRep.twoPtrValue
1bb0: 2e 70 74 72 32 3b 0a 2b 0a 2b 20 20 20 20 70 72 .ptr2;.+.+ pr
1bc0: 6f 63 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2d ocPtr->refCount-
1bd0: 2d 3b 0a 2b 20 20 20 20 69 66 20 28 70 72 6f 63 -;.+ if (proc
1be0: 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 20 3d 3d Ptr->refCount ==
1bf0: 20 30 29 20 7b 0a 2b 09 54 63 6c 50 72 6f 63 43 0) {.+.TclProcC
1c00: 6c 65 61 6e 75 70 50 72 6f 63 28 70 72 6f 63 50 leanupProc(procP
1c10: 74 72 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 tr);.+ }.+
1c20: 20 54 63 6c 44 65 63 72 52 65 66 43 6f 75 6e 74 TclDecrRefCount
1c30: 28 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b 7d 0a 2b (nsObjPtr);.+}.+
1c40: 0a 2b 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b .+.+static int.+
1c50: 53 65 74 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 SetLambdaFromAny
1c60: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 (interp, objPtr)
1c70: 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 .+ Tcl_Interp
1c80: 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 55 73 *interp;../* Us
1c90: 65 64 20 66 6f 72 20 65 72 72 6f 72 20 72 65 70 ed for error rep
1ca0: 6f 72 74 69 6e 67 20 69 66 20 6e 6f 74 20 4e 55 orting if not NU
1cb0: 4c 4c 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 67 69 LL. */.+ regi
1cc0: 73 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 ster Tcl_Obj *ob
1cd0: 6a 50 74 72 3b 09 2f 2a 20 54 68 65 20 6f 62 6a jPtr;./* The obj
1ce0: 65 63 74 20 74 6f 20 63 6f 6e 76 65 72 74 2e 20 ect to convert.
1cf0: 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 63 68 61 72 20 */.+{.+ char
1d00: 2a 6e 61 6d 65 3b 0a 2b 20 20 20 20 54 63 6c 5f *name;.+ Tcl_
1d10: 4f 62 6a 20 2a 61 72 67 73 50 74 72 2c 20 2a 62 Obj *argsPtr, *b
1d20: 6f 64 79 50 74 72 2c 20 2a 6e 73 4f 62 6a 50 74 odyPtr, *nsObjPt
1d30: 72 2c 20 2a 2a 6f 62 6a 76 2c 20 2a 65 72 72 50 r, **objv, *errP
1d40: 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a tr;.+ int obj
1d50: 63 3b 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 c;.+ Proc *pr
1d60: 6f 63 50 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 ocPtr;.+ int
1d70: 72 65 73 75 6c 74 3b 0a 2b 0a 2b 20 20 20 20 2f result;.+.+ /
1d80: 2a 0a 2b 20 20 20 20 20 2a 20 43 6f 6e 76 65 72 *.+ * Conver
1d90: 74 20 6f 62 6a 50 74 72 20 74 6f 20 6c 69 73 74 t objPtr to list
1da0: 20 74 79 70 65 20 66 69 72 73 74 3b 20 69 66 20 type first; if
1db0: 69 74 20 63 61 6e 6e 6f 74 20 62 65 0a 2b 20 20 it cannot be.+
1dc0: 20 20 20 2a 20 63 6f 6e 76 65 72 74 65 64 2c 20 * converted,
1dd0: 6f 72 20 69 66 20 69 74 73 20 6c 65 6e 67 74 68 or if its length
1de0: 20 69 73 20 6e 6f 74 20 32 2c 20 74 68 65 6e 20 is not 2, then
1df0: 69 74 20 63 61 6e 6e 6f 74 0a 2b 20 20 20 20 20 it cannot.+
1e00: 2a 20 62 65 20 63 6f 6e 76 65 72 74 65 64 20 74 * be converted t
1e10: 6f 20 6c 61 6d 62 64 61 54 79 70 65 2e 0a 2b 20 o lambdaType..+
1e20: 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 72 65 */.+.+ re
1e30: 73 75 6c 74 20 3d 20 54 63 6c 5f 4c 69 73 74 4f sult = Tcl_ListO
1e40: 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e bjGetElements(in
1e50: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 26 6f terp, objPtr, &o
1e60: 62 6a 63 2c 20 26 6f 62 6a 76 29 3b 0a 2b 20 20 bjc, &objv);.+
1e70: 20 20 69 66 20 28 28 72 65 73 75 6c 74 20 21 3d if ((result !=
1e80: 20 54 43 4c 5f 4f 4b 29 20 7c 7c 20 28 28 6f 62 TCL_OK) || ((ob
1e90: 6a 63 20 21 3d 20 32 29 20 26 26 20 28 6f 62 6a jc != 2) && (obj
1ea0: 63 20 21 3d 20 33 29 29 29 20 7b 0a 2b 09 65 72 c != 3))) {.+.er
1eb0: 72 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 rPtr = Tcl_NewSt
1ec0: 72 69 6e 67 4f 62 6a 28 22 63 61 6e 27 74 20 69 ringObj("can't i
1ed0: 6e 74 65 72 70 72 65 74 20 5c 22 22 2c 2d 31 29 nterpret \"",-1)
1ee0: 3b 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 ;.+.Tcl_IncrRefC
1ef0: 6f 75 6e 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 ount(errPtr);.+.
1f00: 54 63 6c 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f Tcl_AppendObjToO
1f10: 62 6a 28 65 72 72 50 74 72 2c 20 6f 62 6a 50 74 bj(errPtr, objPt
1f20: 72 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 r);.+.Tcl_Append
1f30: 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c 20 22 5c ToObj(errPtr, "\
1f40: 22 20 61 73 20 61 20 6c 61 6d 62 64 61 20 65 78 " as a lambda ex
1f50: 70 72 65 73 73 69 6f 6e 22 2c 20 2d 31 29 3b 0a pression", -1);.
1f60: 2b 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 +.Tcl_SetObjResu
1f70: 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72 50 74 lt(interp, errPt
1f80: 72 29 3b 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 r);.+.Tcl_DecrRe
1f90: 66 43 6f 75 6e 74 28 65 72 72 50 74 72 29 3b 0a fCount(errPtr);.
1fa0: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 +.return TCL_ERR
1fb0: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 OR;.+ }.+.+
1fc0: 20 20 61 72 67 73 50 74 72 20 3d 20 6f 62 6a 76 argsPtr = objv
1fd0: 5b 30 5d 3b 0a 2b 20 20 20 20 62 6f 64 79 50 74 [0];.+ bodyPt
1fe0: 72 20 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 2b 0a 2b r = objv[1];.+.+
1ff0: 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 43 /*.+ * C
2000: 72 65 61 74 65 20 61 6e 64 20 69 6e 69 74 69 61 reate and initia
2010: 6c 69 7a 65 20 74 68 65 20 50 72 6f 63 20 73 74 lize the Proc st
2020: 72 75 63 74 2e 20 54 68 65 20 63 6d 64 50 74 72 ruct. The cmdPtr
2030: 20 66 69 65 6c 64 20 69 73 0a 2b 20 20 20 20 20 field is.+
2040: 2a 20 73 65 74 20 74 6f 20 4e 55 4c 4c 20 74 6f * set to NULL to
2050: 20 73 69 67 6e 61 6c 20 74 68 61 74 20 74 68 69 signal that thi
2060: 73 20 69 73 20 61 6e 20 61 6e 6f 6e 79 6d 6f 75 s is an anonymou
2070: 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 2b 20 20 20 s function..+
2080: 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 6e 61 6d 65 */.+.+ name
2090: 20 3d 20 54 63 6c 47 65 74 53 74 72 69 6e 67 28 = TclGetString(
20a0: 6f 62 6a 50 74 72 29 3b 0a 2b 20 20 20 20 0a 2b objPtr);.+ .+
20b0: 20 20 20 20 69 66 20 28 54 63 6c 43 72 65 61 74 if (TclCreat
20c0: 65 50 72 6f 63 28 69 6e 74 65 72 70 2c 20 2f 2a eProc(interp, /*
20d0: 69 67 6e 6f 72 65 64 20 6e 73 50 74 72 2a 2f 20 ignored nsPtr*/
20e0: 4e 55 4c 4c 2c 20 6e 61 6d 65 2c 20 61 72 67 73 NULL, name, args
20f0: 50 74 72 2c 0a 2b 09 09 62 6f 64 79 50 74 72 2c Ptr,.+..bodyPtr,
2100: 20 26 70 72 6f 63 50 74 72 29 20 21 3d 20 54 43 &procPtr) != TC
2110: 4c 5f 4f 4b 29 20 7b 0a 2b 09 54 63 6c 5f 41 64 L_OK) {.+.Tcl_Ad
2120: 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 dErrorInfo(inter
2130: 70 2c 20 22 5c 6e 20 20 20 20 28 70 61 72 73 69 p, "\n (parsi
2140: 6e 67 20 6c 61 6d 62 64 61 20 65 78 70 72 65 73 ng lambda expres
2150: 73 69 6f 6e 20 5c 22 22 29 3b 0a 2b 09 54 63 6c sion \"");.+.Tcl
2160: 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e _AddErrorInfo(in
2170: 74 65 72 70 2c 20 6e 61 6d 65 29 3b 0a 2b 09 54 terp, name);.+.T
2180: 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 cl_AddErrorInfo(
2190: 69 6e 74 65 72 70 2c 20 22 5c 22 29 22 29 3b 0a interp, "\")");.
21a0: 2b 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 + return
21b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 TCL_ERROR;.+
21c0: 7d 0a 2b 20 20 20 20 70 72 6f 63 50 74 72 2d 3e }.+ procPtr->
21d0: 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 20 20 refCount++;.+
21e0: 20 70 72 6f 63 50 74 72 2d 3e 63 6d 64 50 74 72 procPtr->cmdPtr
21f0: 20 3d 20 28 43 6f 6d 6d 61 6e 64 20 2a 29 20 4e = (Command *) N
2200: 55 4c 4c 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b ULL;.+.+ /*.+
2210: 20 20 20 20 20 2a 20 53 65 74 20 74 68 65 20 6e * Set the n
2220: 61 6d 65 73 70 61 63 65 20 66 6f 72 20 74 68 69 amespace for thi
2230: 73 20 6c 61 6d 62 64 61 3a 20 67 69 76 65 6e 20 s lambda: given
2240: 62 79 20 6f 62 6a 76 5b 32 5d 20 75 6e 64 65 72 by objv[2] under
2250: 73 74 6f 6f 64 0a 2b 20 20 20 20 20 2a 20 61 73 stood.+ * as
2260: 20 61 20 67 6c 6f 62 61 6c 20 72 65 66 65 72 65 a global refere
2270: 6e 63 65 2c 20 6f 72 20 65 6c 73 65 20 67 6c 6f nce, or else glo
2280: 62 61 6c 20 70 65 72 20 64 65 66 61 75 6c 74 2e bal per default.
2290: 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 0a .+ */.+ .
22a0: 2b 20 20 20 20 6e 73 4f 62 6a 50 74 72 20 3d 20 + nsObjPtr =
22b0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
22c0: 28 22 3a 3a 22 2c 20 32 29 3b 0a 2b 20 20 20 20 ("::", 2);.+
22d0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
22e0: 28 6e 73 4f 62 6a 50 74 72 29 3b 20 20 20 20 0a (nsObjPtr); .
22f0: 2b 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 20 +.+ if (objc
2300: 3d 3d 20 33 29 20 7b 0a 2b 09 54 63 6c 5f 41 70 == 3) {.+.Tcl_Ap
2310: 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 6e 73 4f pendObjToObj(nsO
2320: 62 6a 50 74 72 2c 20 6f 62 6a 76 5b 32 5d 29 3b bjPtr, objv[2]);
2330: 0a 2b 20 20 20 20 7d 0a 2b 09 20 20 20 20 09 0a .+ }.+. ..
2340: 2b 20 20 20 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 + .+ /*.+
2350: 20 20 20 20 2a 20 46 72 65 65 20 74 68 65 20 6c * Free the l
2360: 69 73 74 20 69 6e 74 65 72 6e 61 6c 72 65 70 20 ist internalrep
2370: 6f 66 20 6f 62 6a 50 74 72 20 2d 20 74 68 69 73 of objPtr - this
2380: 20 77 69 6c 6c 20 66 72 65 65 20 61 72 67 73 50 will free argsP
2390: 74 72 2c 20 62 75 74 0a 2b 20 20 20 20 20 2a 20 tr, but.+ *
23a0: 62 6f 64 79 50 74 72 20 72 65 74 61 69 6e 73 20 bodyPtr retains
23b0: 61 20 72 65 66 65 72 65 6e 63 65 20 66 72 6f 6d a reference from
23c0: 20 74 68 65 20 50 72 6f 63 20 73 74 72 75 63 74 the Proc struct
23d0: 75 72 65 2e 20 54 68 65 6e 20 66 69 6e 69 73 68 ure. Then finish
23e0: 0a 2b 20 20 20 20 20 2a 20 74 68 65 20 63 6f 6e .+ * the con
23f0: 76 65 72 73 69 6f 6e 20 74 6f 20 6c 61 6d 62 64 version to lambd
2400: 61 54 79 70 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a aType..+ */.
2410: 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 74 +.+ objPtr->t
2420: 79 70 65 50 74 72 2d 3e 66 72 65 65 49 6e 74 52 ypePtr->freeIntR
2430: 65 70 50 72 6f 63 28 6f 62 6a 50 74 72 29 3b 0a epProc(objPtr);.
2440: 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 69 +.+ objPtr->i
2450: 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 nternalRep.twoPt
2460: 72 56 61 6c 75 65 2e 70 74 72 31 20 3d 20 28 56 rValue.ptr1 = (V
2470: 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 72 3b 0a OID *) procPtr;.
2480: 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 + objPtr->int
2490: 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 ernalRep.twoPtrV
24a0: 61 6c 75 65 2e 70 74 72 32 20 3d 20 28 56 4f 49 alue.ptr2 = (VOI
24b0: 44 20 2a 29 20 6e 73 4f 62 6a 50 74 72 3b 0a 2b D *) nsObjPtr;.+
24c0: 20 20 20 20 6f 62 6a 50 74 72 2d 3e 74 79 70 65 objPtr->type
24d0: 50 74 72 20 3d 20 26 6c 61 6d 62 64 61 54 79 70 Ptr = &lambdaTyp
24e0: 65 3b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 54 e;.+ return T
24f0: 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0a 2b 69 6e 74 CL_OK;.+}.+.+int
2500: 0a 2b 54 63 6c 5f 41 70 70 6c 79 4f 62 6a 43 6d .+Tcl_ApplyObjCm
2510: 64 28 64 75 6d 6d 79 2c 20 69 6e 74 65 72 70 2c d(dummy, interp,
2520: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 2b 20 20 objc, objv).+
2530: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 64 75 6d ClientData dum
2540: 6d 79 3b 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 my;../* Not used
2550: 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e . */.+ Tcl_In
2560: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f terp *interp;../
2570: 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 * Current interp
2580: 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 20 20 69 reter. */.+ i
2590: 6e 74 20 6f 62 6a 63 3b 09 09 09 2f 2a 20 4e 75 nt objc;.../* Nu
25a0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
25b0: 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f s. */.+ Tcl_O
25c0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
25d0: 3b 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 6f 62 ;./* Argument ob
25e0: 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 jects. */.+{.+
25f0: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d Interp *iPtr =
2600: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
2610: 72 70 3b 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 rp;.+ Proc *p
2620: 72 6f 63 50 74 72 3b 0a 2b 20 20 20 20 54 63 6c rocPtr;.+ Tcl
2630: 5f 4f 62 6a 20 2a 6c 61 6d 62 64 61 50 74 72 2c _Obj *lambdaPtr,
2640: 20 2a 6e 73 4f 62 6a 50 74 72 2c 20 2a 65 72 72 *nsObjPtr, *err
2650: 50 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 72 65 Ptr;.+ int re
2660: 73 75 6c 74 3b 0a 2b 20 20 20 20 43 6f 6d 6d 61 sult;.+ Comma
2670: 6e 64 20 63 6d 64 3b 0a 2b 20 20 20 20 54 63 6c nd cmd;.+ Tcl
2680: 5f 4e 61 6d 65 73 70 61 63 65 20 2a 6e 73 50 74 _Namespace *nsPt
2690: 72 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 69 66 r;.+ .+ if
26a0: 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 2b 09 (objc < 2) {.+.
26b0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
26c0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
26d0: 2c 20 22 6c 61 6d 62 64 61 45 78 70 72 20 3f 61 , "lambdaExpr ?a
26e0: 72 67 31 20 61 72 67 32 20 2e 2e 2e 3f 22 29 3b rg1 arg2 ...?");
26f0: 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 .+.return TCL_ER
2700: 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 ROR;.+ }.+.+
2710: 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 53 65 /*.+ * Se
2720: 74 20 6c 61 6d 62 64 61 50 74 72 2c 20 63 6f 6e t lambdaPtr, con
2730: 76 65 72 74 20 69 74 20 74 6f 20 6c 61 6d 62 64 vert it to lambd
2740: 61 54 79 70 65 20 69 6e 20 74 68 65 20 63 75 72 aType in the cur
2750: 72 65 6e 74 0a 2b 20 20 20 20 20 2a 20 69 6e 74 rent.+ * int
2760: 65 72 70 20 69 66 20 6e 65 63 65 73 73 61 72 79 erp if necessary
2770: 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 0a 2b 20 ..+ */.+ .+
2780: 20 20 20 6c 61 6d 62 64 61 50 74 72 20 3d 20 6f lambdaPtr = o
2790: 62 6a 76 5b 31 5d 3b 0a 2b 20 20 20 20 69 66 20 bjv[1];.+ if
27a0: 28 6c 61 6d 62 64 61 50 74 72 2d 3e 74 79 70 65 (lambdaPtr->type
27b0: 50 74 72 20 3d 3d 20 26 6c 61 6d 62 64 61 54 79 Ptr == &lambdaTy
27c0: 70 65 29 20 7b 0a 2b 09 70 72 6f 63 50 74 72 20 pe) {.+.procPtr
27d0: 3d 20 28 50 72 6f 63 20 2a 29 20 6c 61 6d 62 64 = (Proc *) lambd
27e0: 61 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 aPtr->internalRe
27f0: 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 p.twoPtrValue.pt
2800: 72 31 3b 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 r1;.+ } else
2810: 7b 0a 2b 09 70 72 6f 63 50 74 72 20 3d 20 28 50 {.+.procPtr = (P
2820: 72 6f 63 20 2a 29 20 4e 55 4c 4c 3b 0a 2b 20 20 roc *) NULL;.+
2830: 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 66 20 28 28 }.+.+ if ((
2840: 70 72 6f 63 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 procPtr == NULL)
2850: 20 7c 7c 20 28 70 72 6f 63 50 74 72 2d 3e 69 50 || (procPtr->iP
2860: 74 72 20 21 3d 20 69 50 74 72 29 29 20 7b 0a 2b tr != iPtr)) {.+
2870: 09 72 65 73 75 6c 74 20 3d 20 53 65 74 4c 61 6d .result = SetLam
2880: 62 64 61 46 72 6f 6d 41 6e 79 28 69 6e 74 65 72 bdaFromAny(inter
2890: 70 2c 20 6c 61 6d 62 64 61 50 74 72 29 3b 0a 2b p, lambdaPtr);.+
28a0: 09 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 .if (result != T
28b0: 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20 72 CL_OK) {.+. r
28c0: 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0a 2b 09 eturn result;.+.
28d0: 7d 0a 2b 09 70 72 6f 63 50 74 72 20 3d 20 28 50 }.+.procPtr = (P
28e0: 72 6f 63 20 2a 29 20 6c 61 6d 62 64 61 50 74 72 roc *) lambdaPtr
28f0: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 ->internalRep.tw
2900: 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 3b 0a oPtrValue.ptr1;.
2910: 2b 20 20 20 20 7d 0a 2b 20 20 20 20 70 72 6f 63 + }.+ proc
2920: 50 74 72 2d 3e 63 6d 64 50 74 72 20 3d 20 26 63 Ptr->cmdPtr = &c
2930: 6d 64 3b 0a 2b 20 20 20 20 0a 2b 20 20 20 20 2f md;.+ .+ /
2940: 2a 0a 2b 20 20 20 20 20 2a 20 46 69 6e 64 20 74 *.+ * Find t
2950: 68 65 20 6e 61 6d 65 73 70 61 63 65 20 77 68 65 he namespace whe
2960: 72 65 20 74 68 69 73 20 6c 61 6d 62 64 61 20 73 re this lambda s
2970: 68 6f 75 6c 64 20 72 75 6e 2c 20 61 6e 64 0a 2b hould run, and.+
2980: 20 20 20 20 20 2a 20 70 75 73 68 20 61 20 63 61 * push a ca
2990: 6c 6c 20 66 72 61 6d 65 20 66 6f 72 20 74 68 61 ll frame for tha
29a0: 74 20 6e 61 6d 65 73 70 61 63 65 2e 20 4e 6f 74 t namespace. Not
29b0: 65 20 74 68 61 74 0a 2b 20 20 20 20 20 2a 20 54 e that.+ * T
29c0: 63 6c 4f 62 6a 49 6e 74 65 72 70 50 72 6f 63 28 clObjInterpProc(
29d0: 29 20 77 69 6c 6c 20 70 6f 70 20 69 74 2e 0a 2b ) will pop it..+
29e0: 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 0a 2b 20 */.+ .+
29f0: 20 20 20 6e 73 4f 62 6a 50 74 72 20 3d 20 28 54 nsObjPtr = (T
2a00: 63 6c 5f 4f 62 6a 20 2a 29 20 6c 61 6d 62 64 61 cl_Obj *) lambda
2a10: 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 Ptr->internalRep
2a20: 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 .twoPtrValue.ptr
2a30: 32 3b 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 20 2;.+ result
2a40: 3d 20 54 63 6c 47 65 74 4e 61 6d 65 73 70 61 63 = TclGetNamespac
2a50: 65 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c eFromObj(interp,
2a60: 20 6e 73 4f 62 6a 50 74 72 2c 20 26 6e 73 50 74 nsObjPtr, &nsPt
2a70: 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 72 65 73 r);.+ if (res
2a80: 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ult != TCL_OK) {
2a90: 0a 2b 09 72 65 74 75 72 6e 20 72 65 73 75 6c 74 .+.return result
2aa0: 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 66 ;.+ }.+ if
2ab0: 20 28 6e 73 50 74 72 20 3d 3d 20 28 54 63 6c 5f (nsPtr == (Tcl_
2ac0: 4e 61 6d 65 73 70 61 63 65 20 2a 29 20 4e 55 4c Namespace *) NUL
2ad0: 4c 29 20 7b 0a 2b 09 65 72 72 50 74 72 20 3d 20 L) {.+.errPtr =
2ae0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
2af0: 28 22 63 61 6e 6e 6f 74 20 66 69 6e 64 20 6e 61 ("cannot find na
2b00: 6d 65 73 70 61 63 65 20 5c 22 22 2c 2d 31 29 3b mespace \"",-1);
2b10: 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f .+.Tcl_IncrRefCo
2b20: 75 6e 74 28 65 72 72 50 74 72 29 3b 0a 2b 09 54 unt(errPtr);.+.T
2b30: 63 6c 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 cl_AppendObjToOb
2b40: 6a 28 65 72 72 50 74 72 2c 20 6e 73 4f 62 6a 50 j(errPtr, nsObjP
2b50: 74 72 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 6e tr);.+.Tcl_Appen
2b60: 64 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c 20 22 dToObj(errPtr, "
2b70: 5c 22 22 2c 20 2d 31 29 3b 0a 2b 09 54 63 6c 5f \"", -1);.+.Tcl_
2b80: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
2b90: 65 72 70 2c 20 65 72 72 50 74 72 29 3b 0a 2b 09 erp, errPtr);.+.
2ba0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
2bb0: 28 65 72 72 50 74 72 29 3b 0a 2b 09 72 65 74 75 (errPtr);.+.retu
2bc0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 rn TCL_ERROR;.+
2bd0: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b }.+.+ /*.+
2be0: 20 20 20 20 20 20 63 6d 64 20 3d 20 2a 28 28 43 cmd = *((C
2bf0: 6f 6d 6d 61 6e 64 20 2a 29 20 54 63 6c 5f 47 65 ommand *) Tcl_Ge
2c00: 74 43 6f 6d 6d 61 6e 64 46 72 6f 6d 4f 62 6a 28 tCommandFromObj(
2c10: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 30 5d 29 interp, objv[0])
2c20: 29 3b 0a 2b 20 20 20 20 2a 2f 0a 2b 20 20 20 20 );.+ */.+
2c30: 63 6d 64 2e 6e 73 50 74 72 20 3d 20 28 4e 61 6d cmd.nsPtr = (Nam
2c40: 65 73 70 61 63 65 20 2a 29 20 6e 73 50 74 72 3b espace *) nsPtr;
2c50: 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20 4f .+.+ return O
2c60: 62 6a 49 6e 74 65 72 70 50 72 6f 63 45 78 28 28 bjInterpProcEx((
2c70: 43 6c 69 65 6e 74 44 61 74 61 29 20 70 72 6f 63 ClientData) proc
2c80: 50 74 72 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a Ptr, interp, obj
2c90: 63 2c 20 6f 62 6a 76 2c 20 32 29 3b 0a 2b 7d 0a c, objv, 2);.+}.
2ca0: 2b 0c 0a 2b 2f 2a 0a 20 20 2a 20 4c 6f 63 61 6c +..+/*. * Local
2cb0: 20 56 61 72 69 61 62 6c 65 73 3a 0a 20 20 2a 20 Variables:. *
2cc0: 6d 6f 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 mode: c. * c-ba
2cd0: 73 69 63 2d 6f 66 66 73 65 74 3a 20 34 0a 49 6e sic-offset: 4.In
2ce0: 64 65 78 3a 20 74 65 73 74 73 2f 70 72 6f 63 2d dex: tests/proc-
2cf0: 6f 6c 64 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d old.test.=======
2d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
2d40: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
2d50: 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 70 72 tcl/tcl/tests/pr
2d60: 6f 63 2d 6f 6c 64 2e 74 65 73 74 2c 76 0a 72 65 oc-old.test,v.re
2d70: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
2d80: 6e 20 31 2e 31 33 0a 64 69 66 66 20 2d 75 20 2d n 1.13.diff -u -
2d90: 72 31 2e 31 33 20 70 72 6f 63 2d 6f 6c 64 2e 74 r1.13 proc-old.t
2da0: 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 70 72 est.--- tests/pr
2db0: 6f 63 2d 6f 6c 64 2e 74 65 73 74 09 32 39 20 4f oc-old.test.29 O
2dc0: 63 74 20 32 30 30 34 20 31 35 3a 33 39 3a 31 30 ct 2004 15:39:10
2dd0: 20 2d 30 30 30 30 09 31 2e 31 33 0a 2b 2b 2b 20 -0000.1.13.+++
2de0: 74 65 73 74 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 tests/proc-old.t
2df0: 65 73 74 09 31 38 20 4a 61 6e 20 32 30 30 36 20 est.18 Jan 2006
2e00: 32 32 3a 32 34 3a 31 34 20 2d 30 30 30 30 0a 40 22:24:14 -0000.@
2e10: 40 20 2d 32 37 34 2c 31 30 20 2b 32 37 34 2c 31 @ -274,10 +274,1
2e20: 30 20 40 40 0a 20 7d 20 7b 31 20 7b 75 6e 6d 61 0 @@. } {1 {unma
2e30: 74 63 68 65 64 20 6f 70 65 6e 20 62 72 61 63 65 tched open brace
2e40: 20 69 6e 20 6c 69 73 74 7d 7d 0a 20 74 65 73 74 in list}}. test
2e50: 20 70 72 6f 63 2d 6f 6c 64 2d 35 2e 35 20 7b 65 proc-old-5.5 {e
2e60: 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d rror conditions}
2e70: 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 {. list [ca
2e80: 74 63 68 20 7b 70 72 6f 63 20 74 70 72 6f 63 20 tch {proc tproc
2e90: 7b 7b 7d 20 79 7d 20 7b 72 65 74 75 72 6e 20 66 {{} y} {return f
2ea0: 6f 6f 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2d oo}} msg] $msg.-
2eb0: 7d 20 7b 31 20 7b 70 72 6f 63 65 64 75 72 65 20 } {1 {procedure
2ec0: 22 74 70 72 6f 63 22 20 68 61 73 20 61 72 67 75 "tproc" has argu
2ed0: 6d 65 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d ment with no nam
2ee0: 65 7d 7d 0a 2b 7d 20 7b 31 20 7b 61 72 67 75 6d e}}.+} {1 {argum
2ef0: 65 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 ent with no name
2f00: 7d 7d 0a 20 74 65 73 74 20 70 72 6f 63 2d 6f 6c }}. test proc-ol
2f10: 64 2d 35 2e 36 20 7b 65 72 72 6f 72 20 63 6f 6e d-5.6 {error con
2f20: 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 ditions} {.
2f30: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 70 72 6f list [catch {pro
2f40: 63 20 74 70 72 6f 63 20 7b 7b 7d 20 79 7d 20 7b c tproc {{} y} {
2f50: 72 65 74 75 72 6e 20 66 6f 6f 7d 7d 20 6d 73 67 return foo}} msg
2f60: 5d 20 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b 70 72 ] $msg.-} {1 {pr
2f70: 6f 63 65 64 75 72 65 20 22 74 70 72 6f 63 22 20 ocedure "tproc"
2f80: 68 61 73 20 61 72 67 75 6d 65 6e 74 20 77 69 74 has argument wit
2f90: 68 20 6e 6f 20 6e 61 6d 65 7d 7d 0a 2b 7d 20 7b h no name}}.+} {
2fa0: 31 20 7b 61 72 67 75 6d 65 6e 74 20 77 69 74 68 1 {argument with
2fb0: 20 6e 6f 20 6e 61 6d 65 7d 7d 0a 20 74 65 73 74 no name}}. test
2fc0: 20 70 72 6f 63 2d 6f 6c 64 2d 35 2e 37 20 7b 65 proc-old-5.7 {e
2fd0: 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d rror conditions}
2fe0: 20 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 {. list [ca
2ff0: 74 63 68 20 7b 70 72 6f 63 20 74 70 72 6f 63 20 tch {proc tproc
3000: 7b 7b 78 20 31 20 32 7d 20 79 7d 20 7b 72 65 74 {{x 1 2} y} {ret
3010: 75 72 6e 20 66 6f 6f 7d 7d 20 6d 73 67 5d 20 24 urn foo}} msg] $
3020: 6d 73 67 0a 20 7d 20 7b 31 20 7b 74 6f 6f 20 6d msg. } {1 {too m
3030: 61 6e 79 20 66 69 65 6c 64 73 20 69 6e 20 61 72 any fields in ar
3040: 67 75 6d 65 6e 74 20 73 70 65 63 69 66 69 65 72 gument specifier
3050: 20 22 78 20 31 20 32 22 7d 7d 0a 49 6e 64 65 78 "x 1 2"}}.Index
3060: 3a 20 74 65 73 74 73 2f 70 72 6f 63 2e 74 65 73 : tests/proc.tes
3070: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
3080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
30b0: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
30c0: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
30d0: 2f 74 65 73 74 73 2f 70 72 6f 63 2e 74 65 73 74 /tests/proc.test
30e0: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
30f0: 76 69 73 69 6f 6e 20 31 2e 31 37 0a 64 69 66 66 vision 1.17.diff
3100: 20 2d 75 20 2d 72 31 2e 31 37 20 70 72 6f 63 2e -u -r1.17 proc.
3110: 74 65 73 74 0a 2d 2d 2d 20 74 65 73 74 73 2f 70 test.--- tests/p
3120: 72 6f 63 2e 74 65 73 74 09 32 32 20 53 65 70 20 roc.test.22 Sep
3130: 32 30 30 34 20 31 35 3a 34 38 3a 32 33 20 2d 30 2004 15:48:23 -0
3140: 30 30 30 09 31 2e 31 37 0a 2b 2b 2b 20 74 65 73 000.1.17.+++ tes
3150: 74 73 2f 70 72 6f 63 2e 74 65 73 74 09 31 38 20 ts/proc.test.18
3160: 4a 61 6e 20 32 30 30 36 20 32 32 3a 32 34 3a 31 Jan 2006 22:24:1
3170: 34 20 2d 30 30 30 30 0a 40 40 20 2d 31 30 31 2c 4 -0000.@@ -101,
3180: 31 32 20 2b 31 30 31 2c 31 32 20 40 40 0a 20 20 12 +101,12 @@.
3190: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 7a set z
31a0: 20 5b 65 78 70 72 20 24 61 28 31 29 2b 24 61 28 [expr $a(1)+$a(
31b0: 32 29 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 2)].
31c0: 20 70 75 74 73 20 22 24 7a 3d 7a 2c 20 24 61 28 puts "$z=z, $a(
31d0: 31 29 3d 24 61 28 31 29 22 0a 20 20 20 20 20 20 1)=$a(1)".
31e0: 20 20 20 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a }} msg] $msg.
31f0: 2d 7d 20 7b 31 20 7b 70 72 6f 63 65 64 75 72 65 -} {1 {procedure
3200: 20 22 70 22 20 68 61 73 20 66 6f 72 6d 61 6c 20 "p" has formal
3210: 70 61 72 61 6d 65 74 65 72 20 22 61 28 31 29 22 parameter "a(1)"
3220: 20 74 68 61 74 20 69 73 20 61 6e 20 61 72 72 61 that is an arra
3230: 79 20 65 6c 65 6d 65 6e 74 7d 7d 0a 2b 7d 20 7b y element}}.+} {
3240: 31 20 7b 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 1 {formal parame
3250: 74 65 72 20 22 61 28 31 29 22 20 69 73 20 61 6e ter "a(1)" is an
3260: 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 7d 7d array element}}
3270: 0a 20 74 65 73 74 20 70 72 6f 63 2d 31 2e 38 20 . test proc-1.8
3280: 7b 54 63 6c 5f 50 72 6f 63 4f 62 6a 43 6d 64 2c {Tcl_ProcObjCmd,
3290: 20 63 68 65 63 6b 20 74 68 61 74 20 66 6f 72 6d check that form
32a0: 61 6c 20 70 61 72 61 6d 65 74 65 72 20 6e 61 6d al parameter nam
32b0: 65 73 20 61 72 65 20 73 69 6d 70 6c 65 20 6e 61 es are simple na
32c0: 6d 65 73 7d 20 7b 0a 20 20 20 20 20 63 61 74 63 mes} {. catc
32d0: 68 20 7b 72 65 6e 61 6d 65 20 70 20 22 22 7d 0a h {rename p ""}.
32e0: 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 list [catch
32f0: 20 7b 70 72 6f 63 20 70 20 7b 62 3a 61 20 62 3a {proc p {b:a b:
3300: 3a 61 7d 20 7b 20 0a 20 20 20 20 20 7d 7d 20 6d :a} { . }} m
3310: 73 67 5d 20 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b sg] $msg.-} {1 {
3320: 70 72 6f 63 65 64 75 72 65 20 22 70 22 20 68 61 procedure "p" ha
3330: 73 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 s formal paramet
3340: 65 72 20 22 62 3a 3a 61 22 20 74 68 61 74 20 69 er "b::a" that i
3350: 73 20 6e 6f 74 20 61 20 73 69 6d 70 6c 65 20 6e s not a simple n
3360: 61 6d 65 7d 7d 0a 2b 7d 20 7b 31 20 7b 66 6f 72 ame}}.+} {1 {for
3370: 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 20 22 62 mal parameter "b
3380: 3a 3a 61 22 20 69 73 20 6e 6f 74 20 61 20 73 69 ::a" is not a si
3390: 6d 70 6c 65 20 6e 61 6d 65 7d 7d 0a 20 0a 20 74 mple name}}. . t
33a0: 65 73 74 20 70 72 6f 63 2d 32 2e 31 20 7b 54 63 est proc-2.1 {Tc
33b0: 6c 46 69 6e 64 50 72 6f 63 2c 20 73 69 6d 70 6c lFindProc, simpl
33c0: 65 20 70 72 6f 63 20 6e 61 6d 65 20 61 6e 64 20 e proc name and
33d0: 70 72 6f 63 20 6e 6f 74 20 69 6e 20 6e 61 6d 65 proc not in name
33e0: 73 70 61 63 65 7d 20 7b 0a 20 20 20 20 20 63 61 space} {. ca
33f0: 74 63 68 20 7b 6e 61 6d 65 73 70 61 63 65 20 64 tch {namespace d
3400: 65 6c 65 74 65 20 7b 65 78 70 61 6e 64 7d 5b 6e elete {expand}[n
3410: 61 6d 65 73 70 61 63 65 20 63 68 69 6c 64 72 65 amespace childre
3420: 6e 20 3a 3a 20 74 65 73 74 5f 6e 73 5f 2a 5d 7d n :: test_ns_*]}
3430: 0a .
