Attachment "apply5.patch" to
ticket [944803ffff]
added by
msofer
2006-01-22 09:02:05.
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 32 32 20 4a 61 6e 20 32 30 30 36 20 30 31 c.22 Jan 2006 01
0120: 3a 35 38 3a 35 32 20 2d 30 30 30 30 0a 40 40 20 :58:52 -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: 32 32 20 4a 61 6e 20 32 30 30 36 20 30 31 3a 35 22 Jan 2006 01:5
0380: 38 3a 35 35 20 2d 30 30 30 30 0a 40 40 20 2d 32 8:55 -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 32 32 20 4a 61 6e 20 clProc.c.22 Jan
0630: 32 30 30 36 20 30 31 3a 35 38 3a 35 36 20 2d 30 2006 01:58:56 -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 32 31 2c trPtr;.@@ -1121,
11b0: 36 20 2b 31 31 34 32 2c 37 20 40 40 0a 20 20 20 6 +1142,7 @@.
11c0: 20 20 63 68 61 72 20 2a 70 72 6f 63 4e 61 6d 65 char *procName
11d0: 3b 0a 20 20 20 20 20 69 6e 74 20 6e 61 6d 65 4c ;. int nameL
11e0: 65 6e 2c 20 6c 6f 63 61 6c 43 74 2c 20 6e 75 6d en, localCt, num
11f0: 41 72 67 73 2c 20 61 72 67 43 74 2c 20 69 2c 20 Args, argCt, i,
1200: 69 6d 61 78 2c 20 72 65 73 75 6c 74 3b 0a 20 20 imax, result;.
1210: 20 20 20 56 61 72 20 2a 63 6f 6d 70 69 6c 65 64 Var *compiled
1220: 4c 6f 63 61 6c 73 3b 0a 2b 20 20 20 20 54 63 6c Locals;.+ Tcl
1230: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 2a 61 72 67 _Obj *CONST *arg
1240: 4f 62 6a 73 3b 0a 20 0a 20 20 20 20 20 2f 2a 0a Objs;. . /*.
1250: 20 20 20 20 20 20 2a 20 47 65 74 20 74 68 65 20 * Get the
1260: 70 72 6f 63 65 64 75 72 65 27 73 20 6e 61 6d 65 procedure's name
1270: 2e 0a 40 40 20 2d 31 31 38 33 2c 37 20 2b 31 32 ..@@ -1183,7 +12
1280: 30 35 2c 38 20 40 40 0a 20 20 20 20 20 20 2a 2f 05,8 @@. */
1290: 0a 20 0a 20 20 20 20 20 6e 75 6d 41 72 67 73 20 . . numArgs
12a0: 3d 20 70 72 6f 63 50 74 72 2d 3e 6e 75 6d 41 72 = procPtr->numAr
12b0: 67 73 3b 0a 2d 20 20 20 20 61 72 67 43 74 20 3d gs;.- argCt =
12c0: 20 6f 62 6a 63 2d 31 3b 20 2f 2a 20 73 65 74 20 objc-1; /* set
12d0: 69 74 20 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 it to the number
12e0: 20 6f 66 20 61 72 67 73 20 74 6f 20 74 68 65 20 of args to the
12f0: 70 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 61 72 67 proc */.+ arg
1300: 43 74 20 3d 20 6f 62 6a 63 2d 73 6b 69 70 3b 20 Ct = objc-skip;
1310: 2f 2a 20 73 65 74 20 69 74 20 74 6f 20 74 68 65 /* set it to the
1320: 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 73 20 number of args
1330: 74 6f 20 74 68 65 20 70 72 6f 63 20 2a 2f 0a 2b to the proc */.+
1340: 20 20 20 20 61 72 67 4f 62 6a 73 20 3d 20 26 6f argObjs = &o
1350: 62 6a 76 5b 73 6b 69 70 5d 3b 0a 20 20 20 20 20 bjv[skip];.
1360: 76 61 72 50 74 72 20 3d 20 66 72 61 6d 65 50 74 varPtr = framePt
1370: 72 2d 3e 63 6f 6d 70 69 6c 65 64 4c 6f 63 61 6c r->compiledLocal
1380: 73 3b 0a 20 20 20 20 20 6c 6f 63 61 6c 50 74 72 s;. localPtr
1390: 20 3d 20 70 72 6f 63 50 74 72 2d 3e 66 69 72 73 = procPtr->firs
13a0: 74 4c 6f 63 61 6c 50 74 72 3b 0a 20 20 20 20 20 tLocalPtr;.
13b0: 69 66 20 28 6e 75 6d 41 72 67 73 20 3d 3d 20 30 if (numArgs == 0
13c0: 29 20 7b 0a 40 40 20 2d 31 31 39 34 2c 31 33 20 ) {.@@ -1194,13
13d0: 2b 31 32 31 37 2c 31 33 20 40 40 0a 20 09 7d 0a +1217,13 @@. .}.
13e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 69 6d 61 78 }. imax
13f0: 20 3d 20 28 28 61 72 67 43 74 20 3c 20 6e 75 6d = ((argCt < num
1400: 41 72 67 73 20 2d 20 31 29 3f 20 61 72 67 43 74 Args - 1)? argCt
1410: 20 3a 20 28 6e 75 6d 41 72 67 73 20 2d 20 31 29 : (numArgs - 1)
1420: 29 3b 0a 2d 20 20 20 20 66 6f 72 20 28 69 20 3d );.- for (i =
1430: 20 31 3b 20 69 20 3c 3d 20 69 6d 61 78 3b 20 69 1; i <= imax; i
1440: 2b 2b 29 20 7b 0a 2b 20 20 20 20 66 6f 72 20 28 ++) {.+ for (
1450: 69 20 3d 20 30 3b 20 69 20 3c 20 69 6d 61 78 3b i = 0; i < imax;
1460: 20 69 2b 2b 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 i++) {. ./*. .
1470: 2a 20 22 4e 6f 72 6d 61 6c 22 20 61 72 67 75 6d * "Normal" argum
1480: 65 6e 74 73 3b 20 6c 61 73 74 20 66 6f 72 6d 61 ents; last forma
1490: 6c 20 69 73 20 73 70 65 63 69 61 6c 2c 20 64 65 l is special, de
14a0: 70 65 6e 64 73 20 6f 6e 20 69 74 20 62 65 69 6e pends on it bein
14b0: 67 0a 20 09 20 2a 20 27 61 72 67 73 27 2e 0a 20 g. . * 'args'..
14c0: 09 20 2a 2f 0a 20 0a 2d 09 54 63 6c 5f 4f 62 6a . */. .-.Tcl_Obj
14d0: 20 2a 6f 62 6a 50 74 72 20 3d 20 6f 62 6a 76 5b *objPtr = objv[
14e0: 69 5d 3b 0a 2b 09 54 63 6c 5f 4f 62 6a 20 2a 6f i];.+.Tcl_Obj *o
14f0: 62 6a 50 74 72 20 3d 20 61 72 67 4f 62 6a 73 5b bjPtr = argObjs[
1500: 69 5d 3b 0a 20 0a 20 09 76 61 72 50 74 72 2d 3e i];. . .varPtr->
1510: 76 61 6c 75 65 2e 6f 62 6a 50 74 72 20 3d 20 6f value.objPtr = o
1520: 62 6a 50 74 72 3b 0a 20 09 54 63 6c 5f 49 6e 63 bjPtr;. .Tcl_Inc
1530: 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 50 74 72 rRefCount(objPtr
1540: 29 3b 09 2f 2a 20 6c 6f 63 61 6c 20 76 61 72 20 );./* local var
1550: 69 73 20 61 20 72 65 66 65 72 65 6e 63 65 20 2a is a reference *
1560: 2f 0a 40 40 20 2d 31 32 31 34 2c 37 20 2b 31 32 /.@@ -1214,7 +12
1570: 33 37 2c 37 20 40 40 0a 20 09 76 61 72 50 74 72 37,7 @@. .varPtr
1580: 2b 2b 3b 0a 20 09 6c 6f 63 61 6c 50 74 72 20 3d ++;. .localPtr =
1590: 20 6c 6f 63 61 6c 50 74 72 2d 3e 6e 65 78 74 50 localPtr->nextP
15a0: 74 72 3b 0a 20 20 20 20 20 7d 0a 2d 20 20 20 20 tr;. }.-
15b0: 66 6f 72 20 28 3b 20 69 20 3c 20 6e 75 6d 41 72 for (; i < numAr
15c0: 67 73 3b 20 69 2b 2b 29 20 7b 0a 2b 20 20 20 20 gs; i++) {.+
15d0: 66 6f 72 20 28 3b 20 69 20 3c 20 28 6e 75 6d 41 for (; i < (numA
15e0: 72 67 73 20 2d 20 31 29 3b 20 69 2b 2b 29 20 7b rgs - 1); i++) {
15f0: 0a 20 09 2f 2a 0a 20 09 20 2a 20 54 68 69 73 20 . ./*. . * This
1600: 6c 6f 6f 70 20 69 73 20 65 6e 74 65 72 65 64 20 loop is entered
1610: 69 66 20 61 72 67 43 74 20 3c 20 28 6e 75 6d 41 if argCt < (numA
1620: 72 67 73 2d 31 29 2e 20 53 65 74 20 64 65 66 61 rgs-1). Set defa
1630: 75 6c 74 20 76 61 6c 75 65 73 3b 0a 20 09 20 2a ult values;. . *
1640: 20 6c 61 73 74 20 66 6f 72 6d 61 6c 20 69 73 20 last formal is
1650: 73 70 65 63 69 61 6c 2e 0a 40 40 20 2d 31 32 34 special..@@ -124
1660: 35 2c 31 31 20 2b 31 32 36 38 2c 31 31 20 40 40 5,11 +1268,11 @@
1670: 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 . */. .
1680: 20 69 66 20 28 6c 6f 63 61 6c 50 74 72 2d 3e 66 if (localPtr->f
1690: 6c 61 67 73 20 26 20 56 41 52 5f 49 53 5f 41 52 lags & VAR_IS_AR
16a0: 47 53 29 20 7b 0a 2d 09 54 63 6c 5f 4f 62 6a 20 GS) {.-.Tcl_Obj
16b0: 2a 6c 69 73 74 50 74 72 20 3d 20 54 63 6c 5f 4e *listPtr = Tcl_N
16c0: 65 77 4c 69 73 74 4f 62 6a 28 6f 62 6a 63 2d 6e ewListObj(objc-n
16d0: 75 6d 41 72 67 73 2c 20 26 28 6f 62 6a 76 5b 6e umArgs, &(objv[n
16e0: 75 6d 41 72 67 73 5d 29 29 3b 0a 2b 09 54 63 6c umArgs]));.+.Tcl
16f0: 5f 4f 62 6a 20 2a 6c 69 73 74 50 74 72 20 3d 20 _Obj *listPtr =
1700: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 61 Tcl_NewListObj(a
1710: 72 67 43 74 2d 69 2c 20 26 28 61 72 67 4f 62 6a rgCt-i, &(argObj
1720: 73 5b 69 5d 29 29 3b 0a 20 09 76 61 72 50 74 72 s[i]));. .varPtr
1730: 2d 3e 76 61 6c 75 65 2e 6f 62 6a 50 74 72 20 3d ->value.objPtr =
1740: 20 6c 69 73 74 50 74 72 3b 0a 20 09 54 63 6c 5f listPtr;. .Tcl_
1750: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6c 69 73 IncrRefCount(lis
1760: 74 50 74 72 29 3b 09 2f 2a 20 6c 6f 63 61 6c 20 tPtr);./* local
1770: 76 61 72 20 69 73 20 61 20 72 65 66 65 72 65 6e var is a referen
1780: 63 65 20 2a 2f 0a 20 20 20 20 20 7d 20 65 6c 73 ce */. } els
1790: 65 20 69 66 20 28 61 72 67 43 74 20 3d 3d 20 6e e if (argCt == n
17a0: 75 6d 41 72 67 73 29 20 7b 0a 2d 09 54 63 6c 5f umArgs) {.-.Tcl_
17b0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 6f 62 Obj *objPtr = ob
17c0: 6a 76 5b 6e 75 6d 41 72 67 73 5d 3b 0a 2b 09 54 jv[numArgs];.+.T
17d0: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d cl_Obj *objPtr =
17e0: 20 61 72 67 4f 62 6a 73 5b 69 5d 3b 0a 20 09 76 argObjs[i];. .v
17f0: 61 72 50 74 72 2d 3e 76 61 6c 75 65 2e 6f 62 6a arPtr->value.obj
1800: 50 74 72 20 3d 20 6f 62 6a 50 74 72 3b 0a 20 09 Ptr = objPtr;. .
1810: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
1820: 28 6f 62 6a 50 74 72 29 3b 09 2f 2a 20 6c 6f 63 (objPtr);./* loc
1830: 61 6c 20 76 61 72 20 69 73 20 61 20 72 65 66 65 al var is a refe
1840: 72 65 6e 63 65 20 2a 2f 0a 20 20 20 20 20 7d 20 rence */. }
1850: 65 6c 73 65 20 69 66 20 28 28 61 72 67 43 74 20 else if ((argCt
1860: 3c 20 6e 75 6d 41 72 67 73 29 20 26 26 20 28 6c < numArgs) && (l
1870: 6f 63 61 6c 50 74 72 2d 3e 64 65 66 56 61 6c 75 ocalPtr->defValu
1880: 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 29 20 7b ePtr != NULL)) {
1890: 0a 40 40 20 2d 31 32 37 39 2c 37 20 2b 31 33 30 .@@ -1279,7 +130
18a0: 32 2c 37 20 40 40 0a 20 23 69 66 64 65 66 20 41 2,7 @@. #ifdef A
18b0: 56 4f 49 44 5f 48 41 43 4b 53 5f 46 4f 52 5f 49 VOID_HACKS_FOR_I
18c0: 54 43 4c 0a 20 09 64 65 73 69 72 65 64 4f 62 6a TCL. .desiredObj
18d0: 73 5b 30 5d 20 3d 20 6f 62 6a 76 5b 30 5d 3b 0a s[0] = objv[0];.
18e0: 20 23 65 6c 73 65 0a 2d 09 64 65 73 69 72 65 64 #else.-.desired
18f0: 4f 62 6a 73 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65 Objs[0] = Tcl_Ne
1900: 77 4c 69 73 74 4f 62 6a 28 31 2c 20 6f 62 6a 76 wListObj(1, objv
1910: 29 3b 0a 2b 09 64 65 73 69 72 65 64 4f 62 6a 73 );.+.desiredObjs
1920: 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 [0] = Tcl_NewLis
1930: 74 4f 62 6a 28 73 6b 69 70 2c 20 6f 62 6a 76 29 tObj(skip, objv)
1940: 3b 0a 20 23 65 6e 64 69 66 20 2f 2a 20 41 56 4f ;. #endif /* AVO
1950: 49 44 5f 48 41 43 4b 53 5f 46 4f 52 5f 49 54 43 ID_HACKS_FOR_ITC
1960: 4c 20 2a 2f 0a 20 0a 20 09 6c 6f 63 61 6c 50 74 L */. . .localPt
1970: 72 20 3d 20 70 72 6f 63 50 74 72 2d 3e 66 69 72 r = procPtr->fir
1980: 73 74 4c 6f 63 61 6c 50 74 72 3b 0a 40 40 20 2d stLocalPtr;.@@ -
1990: 31 38 36 36 2c 36 20 2b 31 38 38 39 2c 32 32 34 1866,6 +1889,224
19a0: 20 40 40 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 2b 20 @@. }. .. /*.+
19b0: 2a 20 4c 41 4d 42 44 41 20 61 6e 64 20 41 50 50 * LAMBDA and APP
19c0: 4c 59 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f LY implementatio
19d0: 6e 0a 2b 20 2a 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 n.+ *.+ */.+.+st
19e0: 61 74 69 63 20 76 6f 69 64 09 09 44 75 70 4c 61 atic void..DupLa
19f0: 6d 62 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 20 mbdaInternalRep
1a00: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c _ANSI_ARGS_((Tcl
1a10: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 0a 2b 09 _Obj *objPtr,.+.
1a20: 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 .. Tcl_Obj *c
1a30: 6f 70 79 50 74 72 29 29 3b 0a 2b 73 74 61 74 69 opyPtr));.+stati
1a40: 63 20 76 6f 69 64 09 09 46 72 65 65 4c 61 6d 62 c void..FreeLamb
1a50: 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 20 5f 41 daInternalRep _A
1a60: 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 20 20 20 NSI_ARGS_((.+
1a70: 20 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ... Tcl_Obj
1a80: 2a 6f 62 6a 50 74 72 29 29 3b 0a 2b 73 74 61 74 *objPtr));.+stat
1a90: 69 63 20 69 6e 74 09 09 53 65 74 4c 61 6d 62 64 ic int..SetLambd
1aa0: 61 46 72 6f 6d 41 6e 79 20 5f 41 4e 53 49 5f 41 aFromAny _ANSI_A
1ab0: 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 RGS_((Tcl_Interp
1ac0: 20 2a 69 6e 74 65 72 70 2c 0a 2b 09 09 09 20 20 *interp,.+...
1ad0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 Tcl_Obj *objPt
1ae0: 72 29 29 3b 0a 2b 0a 2b 54 63 6c 5f 4f 62 6a 54 r));.+.+Tcl_ObjT
1af0: 79 70 65 20 6c 61 6d 62 64 61 54 79 70 65 20 3d ype lambdaType =
1b00: 20 7b 0a 2b 20 20 20 20 22 6c 61 6d 62 64 61 22 {.+ "lambda"
1b10: 2c 09 09 09 09 2f 2a 20 6e 61 6d 65 20 2a 2f 0a ,..../* name */.
1b20: 2b 20 20 20 20 46 72 65 65 4c 61 6d 62 64 61 49 + FreeLambdaI
1b30: 6e 74 65 72 6e 61 6c 52 65 70 2c 09 20 20 20 20 nternalRep,.
1b40: 20 20 20 20 2f 2a 20 66 72 65 65 49 6e 74 52 65 /* freeIntRe
1b50: 70 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 44 75 pProc */.+ Du
1b60: 70 4c 61 6d 62 64 61 49 6e 74 65 72 6e 61 6c 52 pLambdaInternalR
1b70: 65 70 2c 09 20 20 20 20 20 20 20 20 2f 2a 20 64 ep,. /* d
1b80: 75 70 49 6e 74 52 65 70 50 72 6f 63 20 2a 2f 0a upIntRepProc */.
1b90: 2b 20 20 20 20 28 54 63 6c 5f 55 70 64 61 74 65 + (Tcl_Update
1ba0: 53 74 72 69 6e 67 50 72 6f 63 20 2a 29 20 4e 55 StringProc *) NU
1bb0: 4c 4c 2c 09 2f 2a 20 75 70 64 61 74 65 53 74 72 LL,./* updateStr
1bc0: 69 6e 67 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 ingProc */.+
1bd0: 53 65 74 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 SetLambdaFromAny
1be0: 09 09 09 2f 2a 20 73 65 74 46 72 6f 6d 41 6e 79 .../* setFromAny
1bf0: 50 72 6f 63 20 2a 2f 0a 2b 7d 3b 0a 2b 0a 2b 2f Proc */.+};.+.+/
1c00: 2a 0a 2b 20 2a 20 61 20 4c 61 6d 62 64 61 20 54 *.+ * a Lambda T
1c10: 63 6c 5f 4f 62 6a 20 68 61 73 20 74 68 65 20 66 cl_Obj has the f
1c20: 6f 72 6d 0a 2b 20 2a 0a 2b 20 2a 20 20 70 74 72 orm.+ *.+ * ptr
1c30: 31 20 69 73 20 61 20 2a 50 72 6f 63 3a 20 20 20 1 is a *Proc:
1c40: 20 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 70 pointer to a p
1c50: 72 6f 63 20 73 74 72 75 63 74 75 72 65 0a 2b 20 roc structure.+
1c60: 2a 20 20 70 74 72 32 20 69 73 20 61 20 2a 54 63 * ptr2 is a *Tc
1c70: 6c 5f 4f 62 6a 3a 20 20 74 68 65 20 6c 61 6d 62 l_Obj: the lamb
1c80: 64 61 27 73 20 6e 61 6d 65 73 70 61 63 65 0a 2b da's namespace.+
1c90: 20 2a 2f 0a 2b 0a 2b 73 74 61 74 69 63 20 76 6f */.+.+static vo
1ca0: 69 64 0a 2b 44 75 70 4c 61 6d 62 64 61 49 6e 74 id.+DupLambdaInt
1cb0: 65 72 6e 61 6c 52 65 70 28 73 72 63 50 74 72 2c ernalRep(srcPtr,
1cc0: 20 63 6f 70 79 50 74 72 29 0a 2b 20 20 20 20 54 copyPtr).+ T
1cd0: 63 6c 5f 4f 62 6a 20 2a 73 72 63 50 74 72 3b 09 cl_Obj *srcPtr;.
1ce0: 09 2f 2a 20 4f 62 6a 65 63 74 20 77 69 74 68 20 ./* Object with
1cf0: 69 6e 74 65 72 6e 61 6c 20 72 65 70 20 74 6f 20 internal rep to
1d00: 63 6f 70 79 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 copy. */.+ re
1d10: 67 69 73 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a gister Tcl_Obj *
1d20: 63 6f 70 79 50 74 72 3b 09 2f 2a 20 4f 62 6a 65 copyPtr;./* Obje
1d30: 63 74 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c ct with internal
1d40: 20 72 65 70 20 74 6f 20 73 65 74 2e 20 2a 2f 0a rep to set. */.
1d50: 2b 7b 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 +{.+ Proc *pr
1d60: 6f 63 50 74 72 20 3d 20 28 50 72 6f 63 20 2a 29 ocPtr = (Proc *)
1d70: 20 73 72 63 50 74 72 2d 3e 69 6e 74 65 72 6e 61 srcPtr->interna
1d80: 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 lRep.twoPtrValue
1d90: 2e 70 74 72 31 3b 0a 2b 20 20 20 20 54 63 6c 5f .ptr1;.+ Tcl_
1da0: 4f 62 6a 20 2a 6e 73 4f 62 6a 50 74 72 20 3d 20 Obj *nsObjPtr =
1db0: 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 73 72 63 50 (Tcl_Obj *) srcP
1dc0: 74 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e tr->internalRep.
1dd0: 74 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 32 twoPtrValue.ptr2
1de0: 3b 0a 2b 0a 2b 20 20 20 20 63 6f 70 79 50 74 72 ;.+.+ copyPtr
1df0: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 ->internalRep.tw
1e00: 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 20 3d oPtrValue.ptr1 =
1e10: 20 28 56 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 (VOID *) procPt
1e20: 72 3b 0a 2b 20 20 20 20 63 6f 70 79 50 74 72 2d r;.+ copyPtr-
1e30: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f >internalRep.two
1e40: 50 74 72 56 61 6c 75 65 2e 70 74 72 32 20 3d 20 PtrValue.ptr2 =
1e50: 28 56 4f 49 44 20 2a 29 20 6e 73 4f 62 6a 50 74 (VOID *) nsObjPt
1e60: 72 3b 0a 2b 0a 2b 20 20 20 20 70 72 6f 63 50 74 r;.+.+ procPt
1e70: 72 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b r->refCount++;.+
1e80: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
1e90: 6f 75 6e 74 28 6e 73 4f 62 6a 50 74 72 29 3b 0a ount(nsObjPtr);.
1ea0: 2b 20 20 20 20 63 6f 70 79 50 74 72 2d 3e 74 79 + copyPtr->ty
1eb0: 70 65 50 74 72 20 3d 20 26 6c 61 6d 62 64 61 54 pePtr = &lambdaT
1ec0: 79 70 65 3b 0a 2b 7d 0a 2b 0a 2b 73 74 61 74 69 ype;.+}.+.+stati
1ed0: 63 20 76 6f 69 64 0a 2b 46 72 65 65 4c 61 6d 62 c void.+FreeLamb
1ee0: 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 28 6f 62 daInternalRep(ob
1ef0: 6a 50 74 72 29 0a 2b 20 20 20 20 72 65 67 69 73 jPtr).+ regis
1f00: 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a ter Tcl_Obj *obj
1f10: 50 74 72 3b 09 2f 2a 20 43 6d 64 4e 61 6d 65 20 Ptr;./* CmdName
1f20: 6f 62 6a 65 63 74 20 77 69 74 68 20 69 6e 74 65 object with inte
1f30: 72 6e 61 6c 0a 2b 09 09 09 09 20 2a 20 72 65 70 rnal.+.... * rep
1f40: 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 6f 20 66 resentation to f
1f50: 72 65 65 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 ree. */.+{.+
1f60: 50 72 6f 63 20 2a 70 72 6f 63 50 74 72 20 3d 20 Proc *procPtr =
1f70: 28 50 72 6f 63 20 2a 29 20 6f 62 6a 50 74 72 2d (Proc *) objPtr-
1f80: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f >internalRep.two
1f90: 50 74 72 56 61 6c 75 65 2e 70 74 72 31 3b 0a 2b PtrValue.ptr1;.+
1fa0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e 73 4f Tcl_Obj *nsO
1fb0: 62 6a 50 74 72 20 3d 20 28 54 63 6c 5f 4f 62 6a bjPtr = (Tcl_Obj
1fc0: 20 2a 29 20 6f 62 6a 50 74 72 2d 3e 69 6e 74 65 *) objPtr->inte
1fd0: 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 rnalRep.twoPtrVa
1fe0: 6c 75 65 2e 70 74 72 32 3b 0a 2b 0a 2b 20 20 20 lue.ptr2;.+.+
1ff0: 20 70 72 6f 63 50 74 72 2d 3e 72 65 66 43 6f 75 procPtr->refCou
2000: 6e 74 2d 2d 3b 0a 2b 20 20 20 20 69 66 20 28 70 nt--;.+ if (p
2010: 72 6f 63 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 rocPtr->refCount
2020: 20 3d 3d 20 30 29 20 7b 0a 2b 09 54 63 6c 50 72 == 0) {.+.TclPr
2030: 6f 63 43 6c 65 61 6e 75 70 50 72 6f 63 28 70 72 ocCleanupProc(pr
2040: 6f 63 50 74 72 29 3b 0a 2b 20 20 20 20 7d 0a 2b ocPtr);.+ }.+
2050: 20 20 20 20 54 63 6c 44 65 63 72 52 65 66 43 6f TclDecrRefCo
2060: 75 6e 74 28 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b unt(nsObjPtr);.+
2070: 7d 0a 2b 0a 2b 0a 2b 73 74 61 74 69 63 20 69 6e }.+.+.+static in
2080: 74 0a 2b 53 65 74 4c 61 6d 62 64 61 46 72 6f 6d t.+SetLambdaFrom
2090: 41 6e 79 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 Any(interp, objP
20a0: 74 72 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 tr).+ Tcl_Int
20b0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a erp *interp;../*
20c0: 20 55 73 65 64 20 66 6f 72 20 65 72 72 6f 72 20 Used for error
20d0: 72 65 70 6f 72 74 69 6e 67 20 69 66 20 6e 6f 74 reporting if not
20e0: 20 4e 55 4c 4c 2e 20 2a 2f 0a 2b 20 20 20 20 72 NULL. */.+ r
20f0: 65 67 69 73 74 65 72 20 54 63 6c 5f 4f 62 6a 20 egister Tcl_Obj
2100: 2a 6f 62 6a 50 74 72 3b 09 2f 2a 20 54 68 65 20 *objPtr;./* The
2110: 6f 62 6a 65 63 74 20 74 6f 20 63 6f 6e 76 65 72 object to conver
2120: 74 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 63 68 t. */.+{.+ ch
2130: 61 72 20 2a 6e 61 6d 65 3b 0a 2b 20 20 20 20 54 ar *name;.+ T
2140: 63 6c 5f 4f 62 6a 20 2a 61 72 67 73 50 74 72 2c cl_Obj *argsPtr,
2150: 20 2a 62 6f 64 79 50 74 72 2c 20 2a 6e 73 4f 62 *bodyPtr, *nsOb
2160: 6a 50 74 72 2c 20 2a 2a 6f 62 6a 76 2c 20 2a 65 jPtr, **objv, *e
2170: 72 72 50 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 rrPtr;.+ int
2180: 6f 62 6a 63 3b 0a 2b 20 20 20 20 50 72 6f 63 20 objc;.+ Proc
2190: 2a 70 72 6f 63 50 74 72 3b 0a 2b 20 20 20 20 69 *procPtr;.+ i
21a0: 6e 74 20 72 65 73 75 6c 74 3b 0a 2b 0a 2b 20 20 nt result;.+.+
21b0: 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 43 6f 6e /*.+ * Con
21c0: 76 65 72 74 20 6f 62 6a 50 74 72 20 74 6f 20 6c vert objPtr to l
21d0: 69 73 74 20 74 79 70 65 20 66 69 72 73 74 3b 20 ist type first;
21e0: 69 66 20 69 74 20 63 61 6e 6e 6f 74 20 62 65 0a if it cannot be.
21f0: 2b 20 20 20 20 20 2a 20 63 6f 6e 76 65 72 74 65 + * converte
2200: 64 2c 20 6f 72 20 69 66 20 69 74 73 20 6c 65 6e d, or if its len
2210: 67 74 68 20 69 73 20 6e 6f 74 20 32 2c 20 74 68 gth is not 2, th
2220: 65 6e 20 69 74 20 63 61 6e 6e 6f 74 0a 2b 20 20 en it cannot.+
2230: 20 20 20 2a 20 62 65 20 63 6f 6e 76 65 72 74 65 * be converte
2240: 64 20 74 6f 20 6c 61 6d 62 64 61 54 79 70 65 2e d to lambdaType.
2250: 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 .+ */.+.+
2260: 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4c 69 result = Tcl_Li
2270: 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 stObjGetElements
2280: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
2290: 20 26 6f 62 6a 63 2c 20 26 6f 62 6a 76 29 3b 0a &objc, &objv);.
22a0: 2b 20 20 20 20 69 66 20 28 28 72 65 73 75 6c 74 + if ((result
22b0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7c 7c 20 28 != TCL_OK) || (
22c0: 28 6f 62 6a 63 20 21 3d 20 32 29 20 26 26 20 28 (objc != 2) && (
22d0: 6f 62 6a 63 20 21 3d 20 33 29 29 29 20 7b 0a 2b objc != 3))) {.+
22e0: 09 65 72 72 50 74 72 20 3d 20 54 63 6c 5f 4e 65 .errPtr = Tcl_Ne
22f0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 61 6e 27 wStringObj("can'
2300: 74 20 69 6e 74 65 72 70 72 65 74 20 5c 22 22 2c t interpret \"",
2310: 2d 31 29 3b 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 -1);.+.Tcl_IncrR
2320: 65 66 43 6f 75 6e 74 28 65 72 72 50 74 72 29 3b efCount(errPtr);
2330: 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 4f 62 6a .+.Tcl_AppendObj
2340: 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c 20 6f 62 ToObj(errPtr, ob
2350: 6a 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 jPtr);.+.Tcl_App
2360: 65 6e 64 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c endToObj(errPtr,
2370: 20 22 5c 22 20 61 73 20 61 20 6c 61 6d 62 64 61 "\" as a lambda
2380: 20 65 78 70 72 65 73 73 69 6f 6e 22 2c 20 2d 31 expression", -1
2390: 29 3b 0a 2b 09 54 63 6c 5f 53 65 74 4f 62 6a 52 );.+.Tcl_SetObjR
23a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 esult(interp, er
23b0: 72 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 44 65 63 rPtr);.+.Tcl_Dec
23c0: 72 52 65 66 43 6f 75 6e 74 28 65 72 72 50 74 72 rRefCount(errPtr
23d0: 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f );.+.return TCL_
23e0: 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a ERROR;.+ }.+.
23f0: 2b 20 20 20 20 61 72 67 73 50 74 72 20 3d 20 6f + argsPtr = o
2400: 62 6a 76 5b 30 5d 3b 0a 2b 20 20 20 20 62 6f 64 bjv[0];.+ bod
2410: 79 50 74 72 20 3d 20 6f 62 6a 76 5b 31 5d 3b 0a yPtr = objv[1];.
2420: 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 +.+ /*.+
2430: 2a 20 43 72 65 61 74 65 20 61 6e 64 20 69 6e 69 * Create and ini
2440: 74 69 61 6c 69 7a 65 20 74 68 65 20 50 72 6f 63 tialize the Proc
2450: 20 73 74 72 75 63 74 2e 20 54 68 65 20 63 6d 64 struct. The cmd
2460: 50 74 72 20 66 69 65 6c 64 20 69 73 0a 2b 20 20 Ptr field is.+
2470: 20 20 20 2a 20 73 65 74 20 74 6f 20 4e 55 4c 4c * set to NULL
2480: 20 74 6f 20 73 69 67 6e 61 6c 20 74 68 61 74 20 to signal that
2490: 74 68 69 73 20 69 73 20 61 6e 20 61 6e 6f 6e 79 this is an anony
24a0: 6d 6f 75 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 2b mous function..+
24b0: 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 6e */.+.+ n
24c0: 61 6d 65 20 3d 20 54 63 6c 47 65 74 53 74 72 69 ame = TclGetStri
24d0: 6e 67 28 6f 62 6a 50 74 72 29 3b 0a 2b 20 20 20 ng(objPtr);.+
24e0: 20 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 43 72 .+ if (TclCr
24f0: 65 61 74 65 50 72 6f 63 28 69 6e 74 65 72 70 2c eateProc(interp,
2500: 20 2f 2a 69 67 6e 6f 72 65 64 20 6e 73 50 74 72 /*ignored nsPtr
2510: 2a 2f 20 4e 55 4c 4c 2c 20 6e 61 6d 65 2c 20 61 */ NULL, name, a
2520: 72 67 73 50 74 72 2c 0a 2b 09 09 62 6f 64 79 50 rgsPtr,.+..bodyP
2530: 74 72 2c 20 26 70 72 6f 63 50 74 72 29 20 21 3d tr, &procPtr) !=
2540: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 54 63 6c TCL_OK) {.+.Tcl
2550: 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e _AddErrorInfo(in
2560: 74 65 72 70 2c 20 22 5c 6e 20 20 20 20 28 70 61 terp, "\n (pa
2570: 72 73 69 6e 67 20 6c 61 6d 62 64 61 20 65 78 70 rsing lambda exp
2580: 72 65 73 73 69 6f 6e 20 5c 22 22 29 3b 0a 2b 09 ression \"");.+.
2590: 54 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f Tcl_AddErrorInfo
25a0: 28 69 6e 74 65 72 70 2c 20 6e 61 6d 65 29 3b 0a (interp, name);.
25b0: 2b 09 54 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e +.Tcl_AddErrorIn
25c0: 66 6f 28 69 6e 74 65 72 70 2c 20 22 5c 22 29 22 fo(interp, "\")"
25d0: 29 3b 0a 2b 20 20 20 20 20 20 20 20 72 65 74 75 );.+ retu
25e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 rn TCL_ERROR;.+
25f0: 20 20 20 7d 0a 2b 20 20 20 20 70 72 6f 63 50 74 }.+ procPt
2600: 72 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b r->refCount++;.+
2610: 20 20 20 20 70 72 6f 63 50 74 72 2d 3e 63 6d 64 procPtr->cmd
2620: 50 74 72 20 3d 20 28 43 6f 6d 6d 61 6e 64 20 2a Ptr = (Command *
2630: 29 20 4e 55 4c 4c 3b 0a 2b 0a 2b 20 20 20 20 2f ) NULL;.+.+ /
2640: 2a 0a 2b 20 20 20 20 20 2a 20 53 65 74 20 74 68 *.+ * Set th
2650: 65 20 6e 61 6d 65 73 70 61 63 65 20 66 6f 72 20 e namespace for
2660: 74 68 69 73 20 6c 61 6d 62 64 61 3a 20 67 69 76 this lambda: giv
2670: 65 6e 20 62 79 20 6f 62 6a 76 5b 32 5d 20 75 6e en by objv[2] un
2680: 64 65 72 73 74 6f 6f 64 0a 2b 20 20 20 20 20 2a derstood.+ *
2690: 20 61 73 20 61 20 67 6c 6f 62 61 6c 20 72 65 66 as a global ref
26a0: 65 72 65 6e 63 65 2c 20 6f 72 20 65 6c 73 65 20 erence, or else
26b0: 67 6c 6f 62 61 6c 20 70 65 72 20 64 65 66 61 75 global per defau
26c0: 6c 74 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 20 lt..+ */.+
26d0: 20 20 0a 2b 20 20 20 20 6e 73 4f 62 6a 50 74 72 .+ nsObjPtr
26e0: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 = Tcl_NewString
26f0: 4f 62 6a 28 22 3a 3a 22 2c 20 32 29 3b 0a 2b 20 Obj("::", 2);.+
2700: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
2710: 75 6e 74 28 6e 73 4f 62 6a 50 74 72 29 3b 20 20 unt(nsObjPtr);
2720: 20 20 0a 2b 0a 2b 20 20 20 20 69 66 20 28 6f 62 .+.+ if (ob
2730: 6a 63 20 3d 3d 20 33 29 20 7b 0a 2b 09 54 63 6c jc == 3) {.+.Tcl
2740: 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 _AppendObjToObj(
2750: 6e 73 4f 62 6a 50 74 72 2c 20 6f 62 6a 76 5b 32 nsObjPtr, objv[2
2760: 5d 29 3b 0a 2b 20 20 20 20 7d 0a 2b 09 20 20 20 ]);.+ }.+.
2770: 20 09 0a 2b 20 20 20 20 0a 2b 20 20 20 20 2f 2a ..+ .+ /*
2780: 0a 2b 20 20 20 20 20 2a 20 46 72 65 65 20 74 68 .+ * Free th
2790: 65 20 6c 69 73 74 20 69 6e 74 65 72 6e 61 6c 72 e list internalr
27a0: 65 70 20 6f 66 20 6f 62 6a 50 74 72 20 2d 20 74 ep of objPtr - t
27b0: 68 69 73 20 77 69 6c 6c 20 66 72 65 65 20 61 72 his will free ar
27c0: 67 73 50 74 72 2c 20 62 75 74 0a 2b 20 20 20 20 gsPtr, but.+
27d0: 20 2a 20 62 6f 64 79 50 74 72 20 72 65 74 61 69 * bodyPtr retai
27e0: 6e 73 20 61 20 72 65 66 65 72 65 6e 63 65 20 66 ns a reference f
27f0: 72 6f 6d 20 74 68 65 20 50 72 6f 63 20 73 74 72 rom the Proc str
2800: 75 63 74 75 72 65 2e 20 54 68 65 6e 20 66 69 6e ucture. Then fin
2810: 69 73 68 0a 2b 20 20 20 20 20 2a 20 74 68 65 20 ish.+ * the
2820: 63 6f 6e 76 65 72 73 69 6f 6e 20 74 6f 20 6c 61 conversion to la
2830: 6d 62 64 61 54 79 70 65 2e 0a 2b 20 20 20 20 20 mbdaType..+
2840: 2a 2f 0a 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 */.+.+ objPtr
2850: 2d 3e 74 79 70 65 50 74 72 2d 3e 66 72 65 65 49 ->typePtr->freeI
2860: 6e 74 52 65 70 50 72 6f 63 28 6f 62 6a 50 74 72 ntRepProc(objPtr
2870: 29 3b 0a 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 );.+.+ objPtr
2880: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 ->internalRep.tw
2890: 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 20 3d oPtrValue.ptr1 =
28a0: 20 28 56 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 (VOID *) procPt
28b0: 72 3b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e r;.+ objPtr->
28c0: 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 internalRep.twoP
28d0: 74 72 56 61 6c 75 65 2e 70 74 72 32 20 3d 20 28 trValue.ptr2 = (
28e0: 56 4f 49 44 20 2a 29 20 6e 73 4f 62 6a 50 74 72 VOID *) nsObjPtr
28f0: 3b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 74 ;.+ objPtr->t
2900: 79 70 65 50 74 72 20 3d 20 26 6c 61 6d 62 64 61 ypePtr = &lambda
2910: 54 79 70 65 3b 0a 2b 20 20 20 20 72 65 74 75 72 Type;.+ retur
2920: 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b 7d 0a 2b 0a 2b n TCL_OK;.+}.+.+
2930: 69 6e 74 0a 2b 54 63 6c 5f 41 70 70 6c 79 4f 62 int.+Tcl_ApplyOb
2940: 6a 43 6d 64 28 64 75 6d 6d 79 2c 20 69 6e 74 65 jCmd(dummy, inte
2950: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a rp, objc, objv).
2960: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 + ClientData
2970: 64 75 6d 6d 79 3b 09 09 2f 2a 20 4e 6f 74 20 75 dummy;../* Not u
2980: 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c sed. */.+ Tcl
2990: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
29a0: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ../* Current int
29b0: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 20 20 erpreter. */.+
29c0: 20 20 69 6e 74 20 6f 62 6a 63 3b 09 09 09 2f 2a int objc;.../*
29d0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
29e0: 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 ents. */.+ Tc
29f0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
2a00: 76 5b 5d 3b 09 2f 2a 20 41 72 67 75 6d 65 6e 74 v[];./* Argument
2a10: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a objects. */.+{.
2a20: 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50 74 + Interp *iPt
2a30: 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 20 69 r = (Interp *) i
2a40: 6e 74 65 72 70 3b 0a 2b 20 20 20 20 50 72 6f 63 nterp;.+ Proc
2a50: 20 2a 70 72 6f 63 50 74 72 20 3d 20 4e 55 4c 4c *procPtr = NULL
2a60: 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a ;.+ Tcl_Obj *
2a70: 6c 61 6d 62 64 61 50 74 72 2c 20 2a 6e 73 4f 62 lambdaPtr, *nsOb
2a80: 6a 50 74 72 2c 20 2a 65 72 72 50 74 72 3b 0a 2b jPtr, *errPtr;.+
2a90: 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 3b 0a int result;.
2aa0: 2b 20 20 20 20 43 6f 6d 6d 61 6e 64 20 63 6d 64 + Command cmd
2ab0: 3b 0a 2b 20 20 20 20 54 63 6c 5f 4e 61 6d 65 73 ;.+ Tcl_Names
2ac0: 70 61 63 65 20 2a 6e 73 50 74 72 3b 0a 2b 0a 2b pace *nsPtr;.+.+
2ad0: 23 64 65 66 69 6e 65 20 4a 4f 45 5f 45 58 54 45 #define JOE_EXTE
2ae0: 4e 53 49 4f 4e 20 30 0a 2b 23 69 66 20 4a 4f 45 NSION 0.+#if JOE
2af0: 5f 45 58 54 45 4e 53 49 4f 4e 0a 2b 20 20 20 20 _EXTENSION.+
2b00: 54 63 6c 5f 4f 62 6a 20 2a 65 6c 65 6d 50 74 72 Tcl_Obj *elemPtr
2b10: 3b 0a 2b 20 20 20 20 69 6e 74 20 6e 75 6d 45 6c ;.+ int numEl
2b20: 65 6d 3b 0a 2b 23 65 6e 64 69 66 0a 2b 20 20 20 em;.+#endif.+
2b30: 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b if (objc < 2) {
2b40: 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 .+.Tcl_WrongNumA
2b50: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
2b60: 62 6a 76 2c 20 22 6c 61 6d 62 64 61 45 78 70 72 bjv, "lambdaExpr
2b70: 20 3f 61 72 67 31 20 61 72 67 32 20 2e 2e 2e 3f ?arg1 arg2 ...?
2b80: 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c ");.+.return TCL
2b90: 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b _ERROR;.+ }.+
2ba0: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
2bb0: 20 53 65 74 20 6c 61 6d 62 64 61 50 74 72 2c 20 Set lambdaPtr,
2bc0: 63 6f 6e 76 65 72 74 20 69 74 20 74 6f 20 6c 61 convert it to la
2bd0: 6d 62 64 61 54 79 70 65 20 69 6e 20 74 68 65 20 mbdaType in the
2be0: 63 75 72 72 65 6e 74 0a 2b 20 20 20 20 20 2a 20 current.+ *
2bf0: 69 6e 74 65 72 70 20 69 66 20 6e 65 63 65 73 73 interp if necess
2c00: 61 72 79 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 ary..+ */.+
2c10: 0a 2b 20 20 20 20 6c 61 6d 62 64 61 50 74 72 20 .+ lambdaPtr
2c20: 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 2b 20 20 20 20 = objv[1];.+
2c30: 69 66 20 28 6c 61 6d 62 64 61 50 74 72 2d 3e 74 if (lambdaPtr->t
2c40: 79 70 65 50 74 72 20 3d 3d 20 26 6c 61 6d 62 64 ypePtr == &lambd
2c50: 61 54 79 70 65 29 20 7b 0a 2b 09 70 72 6f 63 50 aType) {.+.procP
2c60: 74 72 20 3d 20 28 50 72 6f 63 20 2a 29 20 6c 61 tr = (Proc *) la
2c70: 6d 62 64 61 50 74 72 2d 3e 69 6e 74 65 72 6e 61 mbdaPtr->interna
2c80: 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 lRep.twoPtrValue
2c90: 2e 70 74 72 31 3b 0a 2b 0a 2b 23 69 66 20 4a 4f .ptr1;.+.+#if JO
2ca0: 45 5f 45 58 54 45 4e 53 49 4f 4e 0a 2b 2f 2a 0a E_EXTENSION.+/*.
2cb0: 2b 20 2a 20 4a 6f 65 20 45 6e 67 6c 69 73 68 27 + * Joe English'
2cc0: 73 20 73 75 67 67 65 73 74 69 6f 6e 20 74 6f 20 s suggestion to
2cd0: 61 6c 6c 6f 77 20 63 6d 64 4e 61 6d 65 73 20 74 allow cmdNames t
2ce0: 6f 20 66 75 6e 63 74 69 6f 6e 20 61 73 20 6c 61 o function as la
2cf0: 6d 62 64 61 73 2e 20 52 65 71 75 69 72 65 73 0a mbdas. Requires.
2d00: 2b 20 2a 20 61 6c 73 6f 20 6d 61 6b 69 6e 67 20 + * also making
2d10: 74 63 6c 43 6d 64 4e 61 6d 65 54 79 70 65 20 6e tclCmdNameType n
2d20: 6f 6e 2d 73 74 61 74 69 63 20 69 6e 20 74 63 6c on-static in tcl
2d30: 4f 62 6a 2e 63 0a 2b 20 2a 0a 2b 20 2a 2f 20 0a Obj.c.+ *.+ */ .
2d40: 2b 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 + } else if (
2d50: 28 6c 61 6d 62 64 61 50 74 72 2d 3e 74 79 70 65 (lambdaPtr->type
2d60: 50 74 72 20 3d 3d 20 26 74 63 6c 43 6d 64 4e 61 Ptr == &tclCmdNa
2d70: 6d 65 54 79 70 65 29 0a 2b 09 20 20 20 20 7c 7c meType).+. ||
2d80: 20 28 54 43 4c 5f 4f 4b 20 3d 3d 20 28 54 63 6c (TCL_OK == (Tcl
2d90: 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 _ListObjGetEleme
2da0: 6e 74 73 28 69 6e 74 65 72 70 2c 20 6c 61 6d 62 nts(interp, lamb
2db0: 64 61 50 74 72 2c 20 26 6e 75 6d 45 6c 65 6d 2c daPtr, &numElem,
2dc0: 20 26 65 6c 65 6d 50 74 72 29 29 0a 2b 09 09 20 &elemPtr)).+..
2dd0: 20 20 20 26 26 20 28 6e 75 6d 45 6c 65 6d 20 3d && (numElem =
2de0: 3d 20 31 29 29 29 20 7b 0a 2b 09 72 65 74 75 72 = 1))) {.+.retur
2df0: 6e 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76 28 69 n Tcl_EvalObjv(i
2e00: 6e 74 65 72 70 2c 20 6f 62 6a 63 2d 31 2c 20 6f nterp, objc-1, o
2e10: 62 6a 76 2b 31 2c 20 30 29 3b 0a 2b 23 65 6e 64 bjv+1, 0);.+#end
2e20: 69 66 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 if.+ }.+.+
2e30: 20 69 66 20 28 28 70 72 6f 63 50 74 72 20 3d 3d if ((procPtr ==
2e40: 20 4e 55 4c 4c 29 20 7c 7c 20 28 70 72 6f 63 50 NULL) || (procP
2e50: 74 72 2d 3e 69 50 74 72 20 21 3d 20 69 50 74 72 tr->iPtr != iPtr
2e60: 29 29 20 7b 0a 2b 09 72 65 73 75 6c 74 20 3d 20 )) {.+.result =
2e70: 53 65 74 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 SetLambdaFromAny
2e80: 28 69 6e 74 65 72 70 2c 20 6c 61 6d 62 64 61 50 (interp, lambdaP
2e90: 74 72 29 3b 0a 2b 09 69 66 20 28 72 65 73 75 6c tr);.+.if (resul
2ea0: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b t != TCL_OK) {.+
2eb0: 09 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 . return resu
2ec0: 6c 74 3b 0a 2b 09 7d 0a 2b 09 70 72 6f 63 50 74 lt;.+.}.+.procPt
2ed0: 72 20 3d 20 28 50 72 6f 63 20 2a 29 20 6c 61 6d r = (Proc *) lam
2ee0: 62 64 61 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c bdaPtr->internal
2ef0: 52 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e Rep.twoPtrValue.
2f00: 70 74 72 31 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 ptr1;.+ }.+
2f10: 20 20 70 72 6f 63 50 74 72 2d 3e 63 6d 64 50 74 procPtr->cmdPt
2f20: 72 20 3d 20 26 63 6d 64 3b 0a 2b 20 20 20 20 0a r = &cmd;.+ .
2f30: 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 + /*.+ *
2f40: 46 69 6e 64 20 74 68 65 20 6e 61 6d 65 73 70 61 Find the namespa
2f50: 63 65 20 77 68 65 72 65 20 74 68 69 73 20 6c 61 ce where this la
2f60: 6d 62 64 61 20 73 68 6f 75 6c 64 20 72 75 6e 2c mbda should run,
2f70: 20 61 6e 64 0a 2b 20 20 20 20 20 2a 20 70 75 73 and.+ * pus
2f80: 68 20 61 20 63 61 6c 6c 20 66 72 61 6d 65 20 66 h a call frame f
2f90: 6f 72 20 74 68 61 74 20 6e 61 6d 65 73 70 61 63 or that namespac
2fa0: 65 2e 20 4e 6f 74 65 20 74 68 61 74 0a 2b 20 20 e. Note that.+
2fb0: 20 20 20 2a 20 54 63 6c 4f 62 6a 49 6e 74 65 72 * TclObjInter
2fc0: 70 50 72 6f 63 28 29 20 77 69 6c 6c 20 70 6f 70 pProc() will pop
2fd0: 20 69 74 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 it..+ */.+
2fe0: 20 20 20 0a 2b 20 20 20 20 6e 73 4f 62 6a 50 74 .+ nsObjPt
2ff0: 72 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 r = (Tcl_Obj *)
3000: 6c 61 6d 62 64 61 50 74 72 2d 3e 69 6e 74 65 72 lambdaPtr->inter
3010: 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 56 61 6c nalRep.twoPtrVal
3020: 75 65 2e 70 74 72 32 3b 0a 2b 20 20 20 20 72 65 ue.ptr2;.+ re
3030: 73 75 6c 74 20 20 3d 20 54 63 6c 47 65 74 4e 61 sult = TclGetNa
3040: 6d 65 73 70 61 63 65 46 72 6f 6d 4f 62 6a 28 69 mespaceFromObj(i
3050: 6e 74 65 72 70 2c 20 6e 73 4f 62 6a 50 74 72 2c nterp, nsObjPtr,
3060: 20 26 6e 73 50 74 72 29 3b 0a 2b 20 20 20 20 69 &nsPtr);.+ i
3070: 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 43 4c f (result != TCL
3080: 5f 4f 4b 29 20 7b 0a 2b 09 72 65 74 75 72 6e 20 _OK) {.+.return
3090: 72 65 73 75 6c 74 3b 0a 2b 20 20 20 20 7d 0a 2b result;.+ }.+
30a0: 20 20 20 20 69 66 20 28 6e 73 50 74 72 20 3d 3d if (nsPtr ==
30b0: 20 28 54 63 6c 5f 4e 61 6d 65 73 70 61 63 65 20 (Tcl_Namespace
30c0: 2a 29 20 4e 55 4c 4c 29 20 7b 0a 2b 09 65 72 72 *) NULL) {.+.err
30d0: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 Ptr = Tcl_NewStr
30e0: 69 6e 67 4f 62 6a 28 22 63 61 6e 6e 6f 74 20 66 ingObj("cannot f
30f0: 69 6e 64 20 6e 61 6d 65 73 70 61 63 65 20 5c 22 ind namespace \"
3100: 22 2c 2d 31 29 3b 0a 2b 09 54 63 6c 5f 49 6e 63 ",-1);.+.Tcl_Inc
3110: 72 52 65 66 43 6f 75 6e 74 28 65 72 72 50 74 72 rRefCount(errPtr
3120: 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 4f );.+.Tcl_AppendO
3130: 62 6a 54 6f 4f 62 6a 28 65 72 72 50 74 72 2c 20 bjToObj(errPtr,
3140: 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b 09 54 63 6c nsObjPtr);.+.Tcl
3150: 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 65 72 72 _AppendToObj(err
3160: 50 74 72 2c 20 22 5c 22 22 2c 20 2d 31 29 3b 0a Ptr, "\"", -1);.
3170: 2b 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 +.Tcl_SetObjResu
3180: 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72 50 74 lt(interp, errPt
3190: 72 29 3b 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 r);.+.Tcl_DecrRe
31a0: 66 43 6f 75 6e 74 28 65 72 72 50 74 72 29 3b 0a fCount(errPtr);.
31b0: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 +.return TCL_ERR
31c0: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 OR;.+ }.+.+
31d0: 20 20 2f 2a 0a 2b 20 20 20 20 20 20 63 6d 64 20 /*.+ cmd
31e0: 3d 20 2a 28 28 43 6f 6d 6d 61 6e 64 20 2a 29 20 = *((Command *)
31f0: 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 46 72 Tcl_GetCommandFr
3200: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
3210: 6a 76 5b 30 5d 29 29 3b 0a 2b 20 20 20 20 2a 2f jv[0]));.+ */
3220: 0a 2b 20 20 20 20 63 6d 64 2e 6e 73 50 74 72 20 .+ cmd.nsPtr
3230: 3d 20 28 4e 61 6d 65 73 70 61 63 65 20 2a 29 20 = (Namespace *)
3240: 6e 73 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 72 65 nsPtr;.+.+ re
3250: 74 75 72 6e 20 4f 62 6a 49 6e 74 65 72 70 50 72 turn ObjInterpPr
3260: 6f 63 45 78 28 28 43 6c 69 65 6e 74 44 61 74 61 ocEx((ClientData
3270: 29 20 70 72 6f 63 50 74 72 2c 20 69 6e 74 65 72 ) procPtr, inter
3280: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 32 p, objc, objv, 2
3290: 29 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 20 20 2a );.+}.+..+/*. *
32a0: 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 Local Variables
32b0: 3a 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 0a 20 20 :. * mode: c.
32c0: 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 * c-basic-offset
32d0: 3a 20 34 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 : 4.Index: tests
32e0: 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 73 74 0a 3d /proc-old.test.=
32f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3320: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3330: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
3340: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 sroot/tcl/tcl/te
3350: 73 74 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 73 sts/proc-old.tes
3360: 74 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 t,v.retrieving r
3370: 65 76 69 73 69 6f 6e 20 31 2e 31 33 0a 64 69 66 evision 1.13.dif
3380: 66 20 2d 75 20 2d 72 31 2e 31 33 20 70 72 6f 63 f -u -r1.13 proc
3390: 2d 6f 6c 64 2e 74 65 73 74 0a 2d 2d 2d 20 74 65 -old.test.--- te
33a0: 73 74 73 2f 70 72 6f 63 2d 6f 6c 64 2e 74 65 73 sts/proc-old.tes
33b0: 74 09 32 39 20 4f 63 74 20 32 30 30 34 20 31 35 t.29 Oct 2004 15
33c0: 3a 33 39 3a 31 30 20 2d 30 30 30 30 09 31 2e 31 :39:10 -0000.1.1
33d0: 33 0a 2b 2b 2b 20 74 65 73 74 73 2f 70 72 6f 63 3.+++ tests/proc
33e0: 2d 6f 6c 64 2e 74 65 73 74 09 32 32 20 4a 61 6e -old.test.22 Jan
33f0: 20 32 30 30 36 20 30 31 3a 35 38 3a 35 36 20 2d 2006 01:58:56 -
3400: 30 30 30 30 0a 40 40 20 2d 32 37 34 2c 31 30 20 0000.@@ -274,10
3410: 2b 32 37 34 2c 31 30 20 40 40 0a 20 7d 20 7b 31 +274,10 @@. } {1
3420: 20 7b 75 6e 6d 61 74 63 68 65 64 20 6f 70 65 6e {unmatched open
3430: 20 62 72 61 63 65 20 69 6e 20 6c 69 73 74 7d 7d brace in list}}
3440: 0a 20 74 65 73 74 20 70 72 6f 63 2d 6f 6c 64 2d . test proc-old-
3450: 35 2e 35 20 7b 65 72 72 6f 72 20 63 6f 6e 64 69 5.5 {error condi
3460: 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 6c 69 tions} {. li
3470: 73 74 20 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 st [catch {proc
3480: 74 70 72 6f 63 20 7b 7b 7d 20 79 7d 20 7b 72 65 tproc {{} y} {re
3490: 74 75 72 6e 20 66 6f 6f 7d 7d 20 6d 73 67 5d 20 turn foo}} msg]
34a0: 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b 70 72 6f 63 $msg.-} {1 {proc
34b0: 65 64 75 72 65 20 22 74 70 72 6f 63 22 20 68 61 edure "tproc" ha
34c0: 73 20 61 72 67 75 6d 65 6e 74 20 77 69 74 68 20 s argument with
34d0: 6e 6f 20 6e 61 6d 65 7d 7d 0a 2b 7d 20 7b 31 20 no name}}.+} {1
34e0: 7b 61 72 67 75 6d 65 6e 74 20 77 69 74 68 20 6e {argument with n
34f0: 6f 20 6e 61 6d 65 7d 7d 0a 20 74 65 73 74 20 70 o name}}. test p
3500: 72 6f 63 2d 6f 6c 64 2d 35 2e 36 20 7b 65 72 72 roc-old-5.6 {err
3510: 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b or conditions} {
3520: 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 . list [catc
3530: 68 20 7b 70 72 6f 63 20 74 70 72 6f 63 20 7b 7b h {proc tproc {{
3540: 7d 20 79 7d 20 7b 72 65 74 75 72 6e 20 66 6f 6f } y} {return foo
3550: 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2d 7d 20 }} msg] $msg.-}
3560: 7b 31 20 7b 70 72 6f 63 65 64 75 72 65 20 22 74 {1 {procedure "t
3570: 70 72 6f 63 22 20 68 61 73 20 61 72 67 75 6d 65 proc" has argume
3580: 6e 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 7d nt with no name}
3590: 7d 0a 2b 7d 20 7b 31 20 7b 61 72 67 75 6d 65 6e }.+} {1 {argumen
35a0: 74 20 77 69 74 68 20 6e 6f 20 6e 61 6d 65 7d 7d t with no name}}
35b0: 0a 20 74 65 73 74 20 70 72 6f 63 2d 6f 6c 64 2d . test proc-old-
35c0: 35 2e 37 20 7b 65 72 72 6f 72 20 63 6f 6e 64 69 5.7 {error condi
35d0: 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 6c 69 tions} {. li
35e0: 73 74 20 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 st [catch {proc
35f0: 74 70 72 6f 63 20 7b 7b 78 20 31 20 32 7d 20 79 tproc {{x 1 2} y
3600: 7d 20 7b 72 65 74 75 72 6e 20 66 6f 6f 7d 7d 20 } {return foo}}
3610: 6d 73 67 5d 20 24 6d 73 67 0a 20 7d 20 7b 31 20 msg] $msg. } {1
3620: 7b 74 6f 6f 20 6d 61 6e 79 20 66 69 65 6c 64 73 {too many fields
3630: 20 69 6e 20 61 72 67 75 6d 65 6e 74 20 73 70 65 in argument spe
3640: 63 69 66 69 65 72 20 22 78 20 31 20 32 22 7d 7d cifier "x 1 2"}}
3650: 0a 49 6e 64 65 78 3a 20 74 65 73 74 73 2f 70 72 .Index: tests/pr
3660: 6f 63 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d oc.test.========
3670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
36b0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
36c0: 63 6c 2f 74 63 6c 2f 74 65 73 74 73 2f 70 72 6f cl/tcl/tests/pro
36d0: 63 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 c.test,v.retriev
36e0: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 ing revision 1.1
36f0: 37 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 37 7.diff -u -r1.17
3700: 20 70 72 6f 63 2e 74 65 73 74 0a 2d 2d 2d 20 74 proc.test.--- t
3710: 65 73 74 73 2f 70 72 6f 63 2e 74 65 73 74 09 32 ests/proc.test.2
3720: 32 20 53 65 70 20 32 30 30 34 20 31 35 3a 34 38 2 Sep 2004 15:48
3730: 3a 32 33 20 2d 30 30 30 30 09 31 2e 31 37 0a 2b :23 -0000.1.17.+
3740: 2b 2b 20 74 65 73 74 73 2f 70 72 6f 63 2e 74 65 ++ tests/proc.te
3750: 73 74 09 32 32 20 4a 61 6e 20 32 30 30 36 20 30 st.22 Jan 2006 0
3760: 31 3a 35 38 3a 35 36 20 2d 30 30 30 30 0a 40 40 1:58:56 -0000.@@
3770: 20 2d 31 30 31 2c 31 32 20 2b 31 30 31 2c 31 32 -101,12 +101,12
3780: 20 40 40 0a 20 20 20 20 20 20 20 20 20 20 20 20 @@.
3790: 20 73 65 74 20 7a 20 5b 65 78 70 72 20 24 61 28 set z [expr $a(
37a0: 31 29 2b 24 61 28 32 29 5d 0a 20 20 20 20 20 20 1)+$a(2)].
37b0: 20 20 20 20 20 20 20 70 75 74 73 20 22 24 7a 3d puts "$z=
37c0: 7a 2c 20 24 61 28 31 29 3d 24 61 28 31 29 22 0a z, $a(1)=$a(1)".
37d0: 20 20 20 20 20 20 20 20 20 7d 7d 20 6d 73 67 5d }} msg]
37e0: 20 24 6d 73 67 0a 2d 7d 20 7b 31 20 7b 70 72 6f $msg.-} {1 {pro
37f0: 63 65 64 75 72 65 20 22 70 22 20 68 61 73 20 66 cedure "p" has f
3800: 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 65 72 20 ormal parameter
3810: 22 61 28 31 29 22 20 74 68 61 74 20 69 73 20 61 "a(1)" that is a
3820: 6e 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 7d n array element}
3830: 7d 0a 2b 7d 20 7b 31 20 7b 66 6f 72 6d 61 6c 20 }.+} {1 {formal
3840: 70 61 72 61 6d 65 74 65 72 20 22 61 28 31 29 22 parameter "a(1)"
3850: 20 69 73 20 61 6e 20 61 72 72 61 79 20 65 6c 65 is an array ele
3860: 6d 65 6e 74 7d 7d 0a 20 74 65 73 74 20 70 72 6f ment}}. test pro
3870: 63 2d 31 2e 38 20 7b 54 63 6c 5f 50 72 6f 63 4f c-1.8 {Tcl_ProcO
3880: 62 6a 43 6d 64 2c 20 63 68 65 63 6b 20 74 68 61 bjCmd, check tha
3890: 74 20 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 74 t formal paramet
38a0: 65 72 20 6e 61 6d 65 73 20 61 72 65 20 73 69 6d er names are sim
38b0: 70 6c 65 20 6e 61 6d 65 73 7d 20 7b 0a 20 20 20 ple names} {.
38c0: 20 20 63 61 74 63 68 20 7b 72 65 6e 61 6d 65 20 catch {rename
38d0: 70 20 22 22 7d 0a 20 20 20 20 20 6c 69 73 74 20 p ""}. list
38e0: 5b 63 61 74 63 68 20 7b 70 72 6f 63 20 70 20 7b [catch {proc p {
38f0: 62 3a 61 20 62 3a 3a 61 7d 20 7b 20 0a 20 20 20 b:a b::a} { .
3900: 20 20 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2d }} msg] $msg.-
3910: 7d 20 7b 31 20 7b 70 72 6f 63 65 64 75 72 65 20 } {1 {procedure
3920: 22 70 22 20 68 61 73 20 66 6f 72 6d 61 6c 20 70 "p" has formal p
3930: 61 72 61 6d 65 74 65 72 20 22 62 3a 3a 61 22 20 arameter "b::a"
3940: 74 68 61 74 20 69 73 20 6e 6f 74 20 61 20 73 69 that is not a si
3950: 6d 70 6c 65 20 6e 61 6d 65 7d 7d 0a 2b 7d 20 7b mple name}}.+} {
3960: 31 20 7b 66 6f 72 6d 61 6c 20 70 61 72 61 6d 65 1 {formal parame
3970: 74 65 72 20 22 62 3a 3a 61 22 20 69 73 20 6e 6f ter "b::a" is no
3980: 74 20 61 20 73 69 6d 70 6c 65 20 6e 61 6d 65 7d t a simple name}
3990: 7d 0a 20 0a 20 74 65 73 74 20 70 72 6f 63 2d 32 }. . test proc-2
39a0: 2e 31 20 7b 54 63 6c 46 69 6e 64 50 72 6f 63 2c .1 {TclFindProc,
39b0: 20 73 69 6d 70 6c 65 20 70 72 6f 63 20 6e 61 6d simple proc nam
39c0: 65 20 61 6e 64 20 70 72 6f 63 20 6e 6f 74 20 69 e and proc not i
39d0: 6e 20 6e 61 6d 65 73 70 61 63 65 7d 20 7b 0a 20 n namespace} {.
39e0: 20 20 20 20 63 61 74 63 68 20 7b 6e 61 6d 65 73 catch {names
39f0: 70 61 63 65 20 64 65 6c 65 74 65 20 7b 65 78 70 pace delete {exp
3a00: 61 6e 64 7d 5b 6e 61 6d 65 73 70 61 63 65 20 63 and}[namespace c
3a10: 68 69 6c 64 72 65 6e 20 3a 3a 20 74 65 73 74 5f hildren :: test_
3a20: 6e 73 5f 2a 5d 7d 0a ns_*]}.
