Attachment "apply3.patch" to
ticket [944803ffff]
added by
msofer
2006-01-12 05:33:00.
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 31 20 4a 61 6e 20 32 30 30 36 20 32 32 c.11 Jan 2006 22
0120: 3a 32 37 3a 30 32 20 2d 30 30 30 30 0a 40 40 20 :27:02 -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 31 20 4a 61 6e 20 32 30 30 36 20 32 32 3a 32 11 Jan 2006 22:2
0380: 37 3a 30 34 20 2d 30 30 30 30 0a 40 40 20 2d 32 7:04 -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 31 20 4a 61 6e 20 clProc.c.11 Jan
0630: 32 30 30 36 20 32 32 3a 32 37 3a 30 35 20 2d 30 2006 22:27:05 -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 31 38 36 36 ANTIES..@@ -1866
0790: 2c 36 20 2b 31 38 36 37 2c 32 30 36 20 40 40 0a ,6 +1867,206 @@.
07a0: 20 7d 0a 20 0c 0a 20 2f 2a 0a 2b 20 2a 20 4c 41 }. .. /*.+ * LA
07b0: 4d 42 44 41 20 61 6e 64 20 41 50 50 4c 59 20 69 MBDA and APPLY i
07c0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 2b 20 mplementation.+
07d0: 2a 0a 2b 20 2a 2f 0a 2b 0a 2b 73 74 61 74 69 63 *.+ */.+.+static
07e0: 20 76 6f 69 64 09 09 44 75 70 4c 61 6d 62 64 61 void..DupLambda
07f0: 49 6e 74 65 72 6e 61 6c 52 65 70 20 5f 41 4e 53 InternalRep _ANS
0800: 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 4f 62 6a I_ARGS_((Tcl_Obj
0810: 20 2a 6f 62 6a 50 74 72 2c 0a 2b 09 09 09 20 20 *objPtr,.+...
0820: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 70 79 50 Tcl_Obj *copyP
0830: 74 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 76 6f tr));.+static vo
0840: 69 64 09 09 46 72 65 65 4c 61 6d 62 64 61 49 6e id..FreeLambdaIn
0850: 74 65 72 6e 61 6c 52 65 70 20 5f 41 4e 53 49 5f ternalRep _ANSI_
0860: 41 52 47 53 5f 28 28 0a 2b 20 20 20 20 09 09 09 ARGS_((.+ ...
0870: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a Tcl_Obj *obj
0880: 50 74 72 29 29 3b 0a 2b 73 74 61 74 69 63 20 69 Ptr));.+static i
0890: 6e 74 09 09 53 65 74 4c 61 6d 62 64 61 46 72 6f nt..SetLambdaFro
08a0: 6d 41 6e 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f mAny _ANSI_ARGS_
08b0: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ((Tcl_Interp *in
08c0: 74 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 54 63 terp,.+... Tc
08d0: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 29 29 3b l_Obj *objPtr));
08e0: 0a 2b 0a 2b 54 63 6c 5f 4f 62 6a 54 79 70 65 20 .+.+Tcl_ObjType
08f0: 74 63 6c 4c 61 6d 62 64 61 54 79 70 65 20 3d 20 tclLambdaType =
0900: 7b 0a 2b 20 20 20 20 22 6c 61 6d 62 64 61 22 2c {.+ "lambda",
0910: 09 09 09 09 2f 2a 20 6e 61 6d 65 20 2a 2f 0a 2b ..../* name */.+
0920: 20 20 20 20 46 72 65 65 4c 61 6d 62 64 61 49 6e FreeLambdaIn
0930: 74 65 72 6e 61 6c 52 65 70 2c 09 20 20 20 20 20 ternalRep,.
0940: 20 20 20 2f 2a 20 66 72 65 65 49 6e 74 52 65 70 /* freeIntRep
0950: 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 44 75 70 Proc */.+ Dup
0960: 4c 61 6d 62 64 61 49 6e 74 65 72 6e 61 6c 52 65 LambdaInternalRe
0970: 70 2c 09 20 20 20 20 20 20 20 20 2f 2a 20 64 75 p,. /* du
0980: 70 49 6e 74 52 65 70 50 72 6f 63 20 2a 2f 0a 2b pIntRepProc */.+
0990: 20 20 20 20 28 54 63 6c 5f 55 70 64 61 74 65 53 (Tcl_UpdateS
09a0: 74 72 69 6e 67 50 72 6f 63 20 2a 29 20 4e 55 4c tringProc *) NUL
09b0: 4c 2c 09 2f 2a 20 75 70 64 61 74 65 53 74 72 69 L,./* updateStri
09c0: 6e 67 50 72 6f 63 20 2a 2f 0a 2b 20 20 20 20 53 ngProc */.+ S
09d0: 65 74 4c 61 6d 62 64 61 46 72 6f 6d 41 6e 79 09 etLambdaFromAny.
09e0: 09 09 2f 2a 20 73 65 74 46 72 6f 6d 41 6e 79 50 ../* setFromAnyP
09f0: 72 6f 63 20 2a 2f 0a 2b 7d 3b 0a 2b 0a 2b 2f 2a roc */.+};.+.+/*
0a00: 0a 2b 20 2a 20 61 20 4c 61 6d 62 64 61 20 54 63 .+ * a Lambda Tc
0a10: 6c 5f 4f 62 6a 20 68 61 73 20 74 68 65 20 66 6f l_Obj has the fo
0a20: 72 6d 0a 2b 20 2a 0a 2b 20 2a 20 20 70 74 72 31 rm.+ *.+ * ptr1
0a30: 20 69 73 20 61 20 2a 50 72 6f 63 3a 20 20 20 20 is a *Proc:
0a40: 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 70 72 pointer to a pr
0a50: 6f 63 20 73 74 72 75 63 74 75 72 65 0a 2b 20 2a oc structure.+ *
0a60: 20 20 70 74 72 32 20 69 73 20 61 20 2a 54 63 6c ptr2 is a *Tcl
0a70: 5f 4f 62 6a 3a 20 20 74 68 65 20 6c 61 6d 62 64 _Obj: the lambd
0a80: 61 27 73 20 6e 61 6d 65 73 70 61 63 65 0a 2b 20 a's namespace.+
0a90: 2a 2f 0a 2b 0a 2b 73 74 61 74 69 63 20 76 6f 69 */.+.+static voi
0aa0: 64 0a 2b 44 75 70 4c 61 6d 62 64 61 49 6e 74 65 d.+DupLambdaInte
0ab0: 72 6e 61 6c 52 65 70 28 73 72 63 50 74 72 2c 20 rnalRep(srcPtr,
0ac0: 63 6f 70 79 50 74 72 29 0a 2b 20 20 20 20 54 63 copyPtr).+ Tc
0ad0: 6c 5f 4f 62 6a 20 2a 73 72 63 50 74 72 3b 09 09 l_Obj *srcPtr;..
0ae0: 2f 2a 20 4f 62 6a 65 63 74 20 77 69 74 68 20 69 /* Object with i
0af0: 6e 74 65 72 6e 61 6c 20 72 65 70 20 74 6f 20 63 nternal rep to c
0b00: 6f 70 79 2e 20 2a 2f 0a 2b 20 20 20 20 72 65 67 opy. */.+ reg
0b10: 69 73 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 63 ister Tcl_Obj *c
0b20: 6f 70 79 50 74 72 3b 09 2f 2a 20 4f 62 6a 65 63 opyPtr;./* Objec
0b30: 74 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 20 t with internal
0b40: 72 65 70 20 74 6f 20 73 65 74 2e 20 2a 2f 0a 2b rep to set. */.+
0b50: 7b 0a 2b 20 20 20 20 50 72 6f 63 20 2a 70 72 6f {.+ Proc *pro
0b60: 63 50 74 72 20 3d 20 28 50 72 6f 63 20 2a 29 20 cPtr = (Proc *)
0b70: 73 72 63 50 74 72 2d 3e 69 6e 74 65 72 6e 61 6c srcPtr->internal
0b80: 52 65 70 2e 74 77 6f 50 74 72 56 61 6c 75 65 2e Rep.twoPtrValue.
0b90: 70 74 72 31 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f ptr1;.+ Tcl_O
0ba0: 62 6a 20 2a 6e 73 4f 62 6a 50 74 72 20 3d 20 28 bj *nsObjPtr = (
0bb0: 54 63 6c 5f 4f 62 6a 20 2a 29 20 73 72 63 50 74 Tcl_Obj *) srcPt
0bc0: 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 r->internalRep.t
0bd0: 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 32 3b woPtrValue.ptr2;
0be0: 0a 2b 0a 2b 20 20 20 20 63 6f 70 79 50 74 72 2d .+.+ copyPtr-
0bf0: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f >internalRep.two
0c00: 50 74 72 56 61 6c 75 65 2e 70 74 72 31 20 3d 20 PtrValue.ptr1 =
0c10: 28 56 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 72 (VOID *) procPtr
0c20: 3b 0a 2b 20 20 20 20 63 6f 70 79 50 74 72 2d 3e ;.+ copyPtr->
0c30: 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 internalRep.twoP
0c40: 74 72 56 61 6c 75 65 2e 70 74 72 32 20 3d 20 28 trValue.ptr2 = (
0c50: 56 4f 49 44 20 2a 29 20 6e 73 4f 62 6a 50 74 72 VOID *) nsObjPtr
0c60: 3b 0a 2b 0a 2b 20 20 20 20 70 72 6f 63 50 74 72 ;.+.+ procPtr
0c70: 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 ->refCount++;.+
0c80: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
0c90: 75 6e 74 28 6e 73 4f 62 6a 50 74 72 29 3b 0a 2b unt(nsObjPtr);.+
0ca0: 20 20 20 20 63 6f 70 79 50 74 72 2d 3e 74 79 70 copyPtr->typ
0cb0: 65 50 74 72 20 3d 20 26 74 63 6c 4c 61 6d 62 64 ePtr = &tclLambd
0cc0: 61 54 79 70 65 3b 0a 2b 7d 0a 2b 0a 2b 73 74 61 aType;.+}.+.+sta
0cd0: 74 69 63 20 76 6f 69 64 0a 2b 46 72 65 65 4c 61 tic void.+FreeLa
0ce0: 6d 62 64 61 49 6e 74 65 72 6e 61 6c 52 65 70 28 mbdaInternalRep(
0cf0: 6f 62 6a 50 74 72 29 0a 2b 20 20 20 20 72 65 67 objPtr).+ reg
0d00: 69 73 74 65 72 20 54 63 6c 5f 4f 62 6a 20 2a 6f ister Tcl_Obj *o
0d10: 62 6a 50 74 72 3b 09 2f 2a 20 43 6d 64 4e 61 6d bjPtr;./* CmdNam
0d20: 65 20 6f 62 6a 65 63 74 20 77 69 74 68 20 69 6e e object with in
0d30: 74 65 72 6e 61 6c 0a 2b 09 09 09 09 20 2a 20 72 ternal.+.... * r
0d40: 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 74 6f epresentation to
0d50: 20 66 72 65 65 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 free. */.+{.+
0d60: 20 20 50 72 6f 63 20 2a 70 72 6f 63 50 74 72 20 Proc *procPtr
0d70: 3d 20 28 50 72 6f 63 20 2a 29 20 6f 62 6a 50 74 = (Proc *) objPt
0d80: 72 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 r->internalRep.t
0d90: 77 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 3b woPtrValue.ptr1;
0da0: 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6e .+ Tcl_Obj *n
0db0: 73 4f 62 6a 50 74 72 20 3d 20 28 54 63 6c 5f 4f sObjPtr = (Tcl_O
0dc0: 62 6a 20 2a 29 20 6f 62 6a 50 74 72 2d 3e 69 6e bj *) objPtr->in
0dd0: 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 ternalRep.twoPtr
0de0: 56 61 6c 75 65 2e 70 74 72 32 3b 0a 2b 0a 2b 20 Value.ptr2;.+.+
0df0: 20 20 20 70 72 6f 63 50 74 72 2d 3e 72 65 66 43 procPtr->refC
0e00: 6f 75 6e 74 2d 2d 3b 0a 2b 20 20 20 20 69 66 20 ount--;.+ if
0e10: 28 70 72 6f 63 50 74 72 2d 3e 72 65 66 43 6f 75 (procPtr->refCou
0e20: 6e 74 20 3d 3d 20 30 29 20 7b 0a 2b 09 54 63 6c nt == 0) {.+.Tcl
0e30: 50 72 6f 63 43 6c 65 61 6e 75 70 50 72 6f 63 28 ProcCleanupProc(
0e40: 70 72 6f 63 50 74 72 29 3b 0a 2b 20 20 20 20 7d procPtr);.+ }
0e50: 0a 2b 20 20 20 20 54 63 6c 44 65 63 72 52 65 66 .+ TclDecrRef
0e60: 43 6f 75 6e 74 28 6e 73 4f 62 6a 50 74 72 29 3b Count(nsObjPtr);
0e70: 0a 2b 7d 0a 2b 0a 2b 0a 2b 73 74 61 74 69 63 20 .+}.+.+.+static
0e80: 69 6e 74 0a 2b 53 65 74 4c 61 6d 62 64 61 46 72 int.+SetLambdaFr
0e90: 6f 6d 41 6e 79 28 69 6e 74 65 72 70 2c 20 6f 62 omAny(interp, ob
0ea0: 6a 50 74 72 29 0a 2b 20 20 20 20 54 63 6c 5f 49 jPtr).+ Tcl_I
0eb0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 nterp *interp;..
0ec0: 2f 2a 20 55 73 65 64 20 66 6f 72 20 65 72 72 6f /* Used for erro
0ed0: 72 20 72 65 70 6f 72 74 69 6e 67 20 69 66 20 6e r reporting if n
0ee0: 6f 74 20 4e 55 4c 4c 2e 20 2a 2f 0a 2b 20 20 20 ot NULL. */.+
0ef0: 20 72 65 67 69 73 74 65 72 20 54 63 6c 5f 4f 62 register Tcl_Ob
0f00: 6a 20 2a 6f 62 6a 50 74 72 3b 09 2f 2a 20 54 68 j *objPtr;./* Th
0f10: 65 20 6f 62 6a 65 63 74 20 74 6f 20 63 6f 6e 76 e object to conv
0f20: 65 72 74 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20 20 20 ert. */.+{.+
0f30: 63 68 61 72 20 2a 6e 61 6d 65 3b 0a 2b 20 20 20 char *name;.+
0f40: 20 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 73 50 74 Tcl_Obj *argsPt
0f50: 72 2c 20 2a 62 6f 64 79 50 74 72 2c 20 2a 6e 73 r, *bodyPtr, *ns
0f60: 4f 62 6a 50 74 72 2c 20 2a 2a 6f 62 6a 76 2c 20 ObjPtr, **objv,
0f70: 2a 65 72 72 50 74 72 3b 0a 2b 20 20 20 20 69 6e *errPtr;.+ in
0f80: 74 20 6f 62 6a 63 3b 0a 2b 20 20 20 20 50 72 6f t objc;.+ Pro
0f90: 63 20 2a 70 72 6f 63 50 74 72 3b 0a 2b 20 20 20 c *procPtr;.+
0fa0: 20 69 6e 74 20 72 65 73 75 6c 74 3b 0a 2b 0a 2b int result;.+.+
0fb0: 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 43 /*.+ * C
0fc0: 6f 6e 76 65 72 74 20 6f 62 6a 50 74 72 20 74 6f onvert objPtr to
0fd0: 20 6c 69 73 74 20 74 79 70 65 20 66 69 72 73 74 list type first
0fe0: 3b 20 69 66 20 69 74 20 63 61 6e 6e 6f 74 20 62 ; if it cannot b
0ff0: 65 0a 2b 20 20 20 20 20 2a 20 63 6f 6e 76 65 72 e.+ * conver
1000: 74 65 64 2c 20 6f 72 20 69 66 20 69 74 73 20 6c ted, or if its l
1010: 65 6e 67 74 68 20 69 73 20 6e 6f 74 20 32 2c 20 ength is not 2,
1020: 74 68 65 6e 20 69 74 20 63 61 6e 6e 6f 74 0a 2b then it cannot.+
1030: 20 20 20 20 20 2a 20 62 65 20 63 6f 6e 76 65 72 * be conver
1040: 74 65 64 20 74 6f 20 74 63 6c 4c 61 6d 62 64 61 ted to tclLambda
1050: 54 79 70 65 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b Type..+ */.+
1060: 0a 2b 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 .+ result = T
1070: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 cl_ListObjGetEle
1080: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 ments(interp, ob
1090: 6a 50 74 72 2c 20 26 6f 62 6a 63 2c 20 26 6f 62 jPtr, &objc, &ob
10a0: 6a 76 29 3b 0a 2b 20 20 20 20 69 66 20 28 28 72 jv);.+ if ((r
10b0: 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 esult != TCL_OK)
10c0: 20 7c 7c 20 28 28 6f 62 6a 63 20 21 3d 20 32 29 || ((objc != 2)
10d0: 20 26 26 20 28 6f 62 6a 63 20 21 3d 20 33 29 29 && (objc != 3))
10e0: 29 20 7b 0a 2b 09 65 72 72 50 74 72 20 3d 20 54 ) {.+.errPtr = T
10f0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1100: 22 63 61 6e 27 74 20 69 6e 74 65 72 70 72 65 74 "can't interpret
1110: 20 5c 22 22 2c 2d 31 29 3b 0a 2b 09 54 63 6c 5f \"",-1);.+.Tcl_
1120: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 65 72 72 IncrRefCount(err
1130: 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 41 70 70 65 Ptr);.+.Tcl_Appe
1140: 6e 64 4f 62 6a 54 6f 4f 62 6a 28 65 72 72 50 74 ndObjToObj(errPt
1150: 72 2c 20 6f 62 6a 50 74 72 29 3b 0a 2b 09 54 63 r, objPtr);.+.Tc
1160: 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 65 72 l_AppendToObj(er
1170: 72 50 74 72 2c 20 22 5c 22 20 61 73 20 61 20 6c rPtr, "\" as a l
1180: 61 6d 62 64 61 20 65 78 70 72 65 73 73 69 6f 6e ambda expression
1190: 22 2c 20 2d 31 29 3b 0a 2b 09 54 63 6c 5f 53 65 ", -1);.+.Tcl_Se
11a0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
11b0: 70 2c 20 65 72 72 50 74 72 29 3b 0a 2b 09 54 63 p, errPtr);.+.Tc
11c0: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 65 l_DecrRefCount(e
11d0: 72 72 50 74 72 29 3b 0a 2b 09 72 65 74 75 72 6e rrPtr);.+.return
11e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 TCL_ERROR;.+
11f0: 20 7d 0a 2b 0a 2b 20 20 20 20 61 72 67 73 50 74 }.+.+ argsPt
1200: 72 20 3d 20 6f 62 6a 76 5b 30 5d 3b 0a 2b 20 20 r = objv[0];.+
1210: 20 20 62 6f 64 79 50 74 72 20 3d 20 6f 62 6a 76 bodyPtr = objv
1220: 5b 31 5d 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b [1];.+.+ /*.+
1230: 20 20 20 20 20 2a 20 43 72 65 61 74 65 20 61 6e * Create an
1240: 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 d initialize the
1250: 20 50 72 6f 63 20 73 74 72 75 63 74 2e 20 54 68 Proc struct. Th
1260: 65 20 63 6d 64 50 74 72 20 66 69 65 6c 64 20 69 e cmdPtr field i
1270: 73 0a 2b 20 20 20 20 20 2a 20 73 65 74 20 74 6f s.+ * set to
1280: 20 4e 55 4c 4c 20 74 6f 20 73 69 67 6e 61 6c 20 NULL to signal
1290: 74 68 61 74 20 74 68 69 73 20 69 73 20 61 6e 20 that this is an
12a0: 61 6e 6f 6e 79 6d 6f 75 73 20 66 75 6e 63 74 69 anonymous functi
12b0: 6f 6e 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b on..+ */.+.+
12c0: 20 20 20 20 6e 61 6d 65 20 3d 20 54 63 6c 47 65 name = TclGe
12d0: 74 53 74 72 69 6e 67 28 6f 62 6a 50 74 72 29 3b tString(objPtr);
12e0: 0a 2b 20 20 20 20 0a 2b 20 20 20 20 69 66 20 28 .+ .+ if (
12f0: 54 63 6c 43 72 65 61 74 65 50 72 6f 63 28 69 6e TclCreateProc(in
1300: 74 65 72 70 2c 20 2f 2a 69 67 6e 6f 72 65 64 20 terp, /*ignored
1310: 6e 73 50 74 72 2a 2f 20 4e 55 4c 4c 2c 20 6e 61 nsPtr*/ NULL, na
1320: 6d 65 2c 20 61 72 67 73 50 74 72 2c 0a 2b 09 09 me, argsPtr,.+..
1330: 62 6f 64 79 50 74 72 2c 20 26 70 72 6f 63 50 74 bodyPtr, &procPt
1340: 72 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a r) != TCL_OK) {.
1350: 2b 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 + return
1360: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 TCL_ERROR;.+
1370: 7d 0a 2b 20 20 20 20 70 72 6f 63 50 74 72 2d 3e }.+ procPtr->
1380: 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 20 20 20 refCount++;.+
1390: 20 70 72 6f 63 50 74 72 2d 3e 63 6d 64 50 74 72 procPtr->cmdPtr
13a0: 20 3d 20 28 43 6f 6d 6d 61 6e 64 20 2a 29 20 4e = (Command *) N
13b0: 55 4c 4c 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b ULL;.+.+ /*.+
13c0: 20 20 20 20 20 2a 20 53 65 74 20 74 68 65 20 6e * Set the n
13d0: 61 6d 65 73 70 61 63 65 20 66 6f 72 20 74 68 69 amespace for thi
13e0: 73 20 6c 61 6d 62 64 61 3a 20 67 69 76 65 6e 20 s lambda: given
13f0: 62 79 20 6f 62 6a 76 5b 32 5d 20 75 6e 64 65 72 by objv[2] under
1400: 73 74 6f 6f 64 0a 2b 20 20 20 20 20 2a 20 61 73 stood.+ * as
1410: 20 61 20 67 6c 6f 62 61 6c 20 72 65 66 65 72 65 a global refere
1420: 6e 63 65 2c 20 6f 72 20 65 6c 73 65 20 67 6c 6f nce, or else glo
1430: 62 61 6c 20 70 65 72 20 64 65 66 61 75 6c 74 2e bal per default.
1440: 0a 2b 20 20 20 20 20 2a 2f 0a 2b 20 20 20 20 0a .+ */.+ .
1450: 2b 20 20 20 20 6e 73 4f 62 6a 50 74 72 20 3d 20 + nsObjPtr =
1460: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
1470: 28 22 3a 3a 22 2c 20 32 29 3b 0a 2b 20 20 20 20 ("::", 2);.+
1480: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
1490: 28 6e 73 4f 62 6a 50 74 72 29 3b 20 20 20 20 0a (nsObjPtr); .
14a0: 2b 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 20 +.+ if (objc
14b0: 3d 3d 20 33 29 20 7b 0a 2b 09 54 63 6c 5f 41 70 == 3) {.+.Tcl_Ap
14c0: 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 6e 73 4f pendObjToObj(nsO
14d0: 62 6a 50 74 72 2c 20 6f 62 6a 76 5b 32 5d 29 3b bjPtr, objv[2]);
14e0: 0a 2b 20 20 20 20 7d 0a 2b 09 20 20 20 20 09 0a .+ }.+. ..
14f0: 2b 20 20 20 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 + .+ /*.+
1500: 20 20 20 20 2a 20 46 72 65 65 20 74 68 65 20 6c * Free the l
1510: 69 73 74 20 69 6e 74 65 72 6e 61 6c 72 65 70 20 ist internalrep
1520: 6f 66 20 6f 62 6a 50 74 72 20 2d 20 74 68 69 73 of objPtr - this
1530: 20 77 69 6c 6c 20 66 72 65 65 20 61 72 67 73 50 will free argsP
1540: 74 72 2c 20 62 75 74 0a 2b 20 20 20 20 20 2a 20 tr, but.+ *
1550: 62 6f 64 79 50 74 72 20 72 65 74 61 69 6e 73 20 bodyPtr retains
1560: 61 20 72 65 66 65 72 65 6e 63 65 20 66 72 6f 6d a reference from
1570: 20 74 68 65 20 50 72 6f 63 20 73 74 72 75 63 74 the Proc struct
1580: 75 72 65 2e 20 54 68 65 6e 20 66 69 6e 69 73 68 ure. Then finish
1590: 0a 2b 20 20 20 20 20 2a 20 74 68 65 20 63 6f 6e .+ * the con
15a0: 76 65 72 73 69 6f 6e 20 74 6f 20 74 63 6c 4c 61 version to tclLa
15b0: 6d 62 64 61 54 79 70 65 2e 0a 2b 20 20 20 20 20 mbdaType..+
15c0: 2a 2f 0a 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 */.+.+ objPtr
15d0: 2d 3e 74 79 70 65 50 74 72 2d 3e 66 72 65 65 49 ->typePtr->freeI
15e0: 6e 74 52 65 70 50 72 6f 63 28 6f 62 6a 50 74 72 ntRepProc(objPtr
15f0: 29 3b 0a 2b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 );.+.+ objPtr
1600: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 ->internalRep.tw
1610: 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 20 3d oPtrValue.ptr1 =
1620: 20 28 56 4f 49 44 20 2a 29 20 70 72 6f 63 50 74 (VOID *) procPt
1630: 72 3b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e r;.+ objPtr->
1640: 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 internalRep.twoP
1650: 74 72 56 61 6c 75 65 2e 70 74 72 32 20 3d 20 28 trValue.ptr2 = (
1660: 56 4f 49 44 20 2a 29 20 6e 73 4f 62 6a 50 74 72 VOID *) nsObjPtr
1670: 3b 0a 2b 20 20 20 20 6f 62 6a 50 74 72 2d 3e 74 ;.+ objPtr->t
1680: 79 70 65 50 74 72 20 3d 20 26 74 63 6c 4c 61 6d ypePtr = &tclLam
1690: 62 64 61 54 79 70 65 3b 0a 2b 20 20 20 20 72 65 bdaType;.+ re
16a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b 7d 0a turn TCL_OK;.+}.
16b0: 2b 0a 2b 69 6e 74 0a 2b 54 63 6c 5f 41 70 70 6c +.+int.+Tcl_Appl
16c0: 79 4f 62 6a 43 6d 64 28 64 75 6d 6d 79 2c 20 69 yObjCmd(dummy, i
16d0: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
16e0: 76 29 0a 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 v).+ ClientDa
16f0: 74 61 20 64 75 6d 6d 79 3b 09 09 2f 2a 20 4e 6f ta dummy;../* No
1700: 74 20 75 73 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 t used. */.+
1710: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1720: 72 70 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 rp;../* Current
1730: 69 6e 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a interpreter. */.
1740: 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 09 09 + int objc;..
1750: 09 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 ./* Number of ar
1760: 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 guments. */.+
1770: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
1780: 6f 62 6a 76 5b 5d 3b 09 2f 2a 20 41 72 67 75 6d objv[];./* Argum
1790: 65 6e 74 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a ent objects. */.
17a0: 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a +{.+ Interp *
17b0: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a iPtr = (Interp *
17c0: 29 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 50 ) interp;.+ P
17d0: 72 6f 63 20 2a 70 72 6f 63 50 74 72 3b 0a 2b 20 roc *procPtr;.+
17e0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6c 61 6d 62 Tcl_Obj *lamb
17f0: 64 61 50 74 72 2c 20 2a 6e 73 4f 62 6a 50 74 72 daPtr, *nsObjPtr
1800: 2c 20 2a 65 72 72 50 74 72 3b 0a 2b 20 20 20 20 , *errPtr;.+
1810: 69 6e 74 20 72 65 73 75 6c 74 3b 0a 2b 20 20 20 int result;.+
1820: 20 43 6f 6d 6d 61 6e 64 20 63 6d 64 3b 0a 2b 20 Command cmd;.+
1830: 20 20 20 54 63 6c 5f 4e 61 6d 65 73 70 61 63 65 Tcl_Namespace
1840: 20 2a 6e 73 50 74 72 3b 0a 2b 20 20 20 20 0a 2b *nsPtr;.+ .+
1850: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
1860: 29 20 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 4e ) {.+.Tcl_WrongN
1870: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
1880: 2c 20 6f 62 6a 76 2c 20 22 6c 61 6d 62 64 61 45 , objv, "lambdaE
1890: 78 70 72 20 3f 61 72 67 31 20 61 72 67 32 20 2e xpr ?arg1 arg2 .
18a0: 2e 2e 3f 22 29 3b 0a 2b 09 72 65 74 75 72 6e 20 ..?");.+.return
18b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 TCL_ERROR;.+
18c0: 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 }.+.+ /*.+
18d0: 20 20 2a 20 53 65 74 20 6c 61 6d 62 64 61 50 74 * Set lambdaPt
18e0: 72 2c 20 63 6f 6e 76 65 72 74 20 69 74 20 74 6f r, convert it to
18f0: 20 74 63 6c 4c 61 6d 62 64 61 54 79 70 65 20 69 tclLambdaType i
1900: 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 2b 20 n the current.+
1910: 20 20 20 20 2a 20 69 6e 74 65 72 70 20 69 66 20 * interp if
1920: 6e 65 63 65 73 73 61 72 79 2e 0a 2b 20 20 20 20 necessary..+
1930: 20 2a 2f 0a 2b 20 0a 2b 20 20 20 20 6c 61 6d 62 */.+ .+ lamb
1940: 64 61 50 74 72 20 3d 20 6f 62 6a 76 5b 31 5d 3b daPtr = objv[1];
1950: 0a 2b 20 20 20 20 69 66 20 28 6c 61 6d 62 64 61 .+ if (lambda
1960: 50 74 72 2d 3e 74 79 70 65 50 74 72 20 3d 3d 20 Ptr->typePtr ==
1970: 26 74 63 6c 4c 61 6d 62 64 61 54 79 70 65 29 20 &tclLambdaType)
1980: 7b 0a 2b 09 70 72 6f 63 50 74 72 20 3d 20 28 50 {.+.procPtr = (P
1990: 72 6f 63 20 2a 29 20 6c 61 6d 62 64 61 50 74 72 roc *) lambdaPtr
19a0: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 ->internalRep.tw
19b0: 6f 50 74 72 56 61 6c 75 65 2e 70 74 72 31 3b 0a oPtrValue.ptr1;.
19c0: 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 + } else {.+.
19d0: 70 72 6f 63 50 74 72 20 3d 20 28 50 72 6f 63 20 procPtr = (Proc
19e0: 2a 29 20 4e 55 4c 4c 3b 0a 2b 20 20 20 20 7d 0a *) NULL;.+ }.
19f0: 2b 0a 2b 20 20 20 20 69 66 20 28 28 70 72 6f 63 +.+ if ((proc
1a00: 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7c 7c 20 Ptr == NULL) ||
1a10: 28 70 72 6f 63 50 74 72 2d 3e 69 50 74 72 20 21 (procPtr->iPtr !
1a20: 3d 20 69 50 74 72 29 29 20 7b 0a 2b 09 72 65 73 = iPtr)) {.+.res
1a30: 75 6c 74 20 3d 20 53 65 74 4c 61 6d 62 64 61 46 ult = SetLambdaF
1a40: 72 6f 6d 41 6e 79 28 69 6e 74 65 72 70 2c 20 6c romAny(interp, l
1a50: 61 6d 62 64 61 50 74 72 29 3b 0a 2b 09 69 66 20 ambdaPtr);.+.if
1a60: 28 72 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f (result != TCL_O
1a70: 4b 29 20 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 K) {.+. retur
1a80: 6e 20 72 65 73 75 6c 74 3b 0a 2b 09 7d 0a 2b 09 n result;.+.}.+.
1a90: 70 72 6f 63 50 74 72 20 3d 20 28 50 72 6f 63 20 procPtr = (Proc
1aa0: 2a 29 20 6c 61 6d 62 64 61 50 74 72 2d 3e 69 6e *) lambdaPtr->in
1ab0: 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f 50 74 72 ternalRep.twoPtr
1ac0: 56 61 6c 75 65 2e 70 74 72 31 3b 0a 2b 20 20 20 Value.ptr1;.+
1ad0: 20 7d 0a 2b 20 20 20 20 70 72 6f 63 50 74 72 2d }.+ procPtr-
1ae0: 3e 63 6d 64 50 74 72 20 3d 20 26 63 6d 64 3b 0a >cmdPtr = &cmd;.
1af0: 2b 20 20 20 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 + .+ /*.+
1b00: 20 20 20 20 2a 20 46 69 6e 64 20 74 68 65 20 6e * Find the n
1b10: 61 6d 65 73 70 61 63 65 20 77 68 65 72 65 20 74 amespace where t
1b20: 68 69 73 20 6c 61 6d 62 64 61 20 73 68 6f 75 6c his lambda shoul
1b30: 64 20 72 75 6e 2c 20 61 6e 64 0a 2b 20 20 20 20 d run, and.+
1b40: 20 2a 20 70 75 73 68 20 61 20 63 61 6c 6c 20 66 * push a call f
1b50: 72 61 6d 65 20 66 6f 72 20 74 68 61 74 20 6e 61 rame for that na
1b60: 6d 65 73 70 61 63 65 2e 20 4e 6f 74 65 20 74 68 mespace. Note th
1b70: 61 74 0a 2b 20 20 20 20 20 2a 20 54 63 6c 4f 62 at.+ * TclOb
1b80: 6a 49 6e 74 65 72 70 50 72 6f 63 28 29 20 77 69 jInterpProc() wi
1b90: 6c 6c 20 70 6f 70 20 69 74 2e 0a 2b 20 20 20 20 ll pop it..+
1ba0: 20 2a 2f 0a 2b 20 20 20 20 0a 2b 20 20 20 20 6e */.+ .+ n
1bb0: 73 4f 62 6a 50 74 72 20 3d 20 28 54 63 6c 5f 4f sObjPtr = (Tcl_O
1bc0: 62 6a 20 2a 29 20 6c 61 6d 62 64 61 50 74 72 2d bj *) lambdaPtr-
1bd0: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 74 77 6f >internalRep.two
1be0: 50 74 72 56 61 6c 75 65 2e 70 74 72 32 3b 0a 2b PtrValue.ptr2;.+
1bf0: 20 20 20 20 72 65 73 75 6c 74 20 20 3d 20 54 63 result = Tc
1c00: 6c 47 65 74 4e 61 6d 65 73 70 61 63 65 46 72 6f lGetNamespaceFro
1c10: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6e 73 4f mObj(interp, nsO
1c20: 62 6a 50 74 72 2c 20 26 6e 73 50 74 72 29 3b 0a bjPtr, &nsPtr);.
1c30: 2b 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 + if (result
1c40: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 72 != TCL_OK) {.+.r
1c50: 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0a 2b 20 eturn result;.+
1c60: 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 28 6e 73 }.+ if (ns
1c70: 50 74 72 20 3d 3d 20 28 54 63 6c 5f 4e 61 6d 65 Ptr == (Tcl_Name
1c80: 73 70 61 63 65 20 2a 29 20 4e 55 4c 4c 29 20 7b space *) NULL) {
1c90: 0a 2b 09 65 72 72 50 74 72 20 3d 20 54 63 6c 5f .+.errPtr = Tcl_
1ca0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 61 NewStringObj("ca
1cb0: 6e 6e 6f 74 20 66 69 6e 64 20 6e 61 6d 65 73 70 nnot find namesp
1cc0: 61 63 65 20 5c 22 22 2c 2d 31 29 3b 0a 2b 09 54 ace \"",-1);.+.T
1cd0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1ce0: 65 72 72 50 74 72 29 3b 0a 2b 09 54 63 6c 5f 41 errPtr);.+.Tcl_A
1cf0: 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 65 72 ppendObjToObj(er
1d00: 72 50 74 72 2c 20 6e 73 4f 62 6a 50 74 72 29 3b rPtr, nsObjPtr);
1d10: 0a 2b 09 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f .+.Tcl_AppendToO
1d20: 62 6a 28 65 72 72 50 74 72 2c 20 22 5c 22 22 2c bj(errPtr, "\"",
1d30: 20 2d 31 29 3b 0a 2b 09 54 63 6c 5f 53 65 74 4f -1);.+.Tcl_SetO
1d40: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
1d50: 20 65 72 72 50 74 72 29 3b 0a 2b 09 54 63 6c 5f errPtr);.+.Tcl_
1d60: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 65 72 72 DecrRefCount(err
1d70: 50 74 72 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54 Ptr);.+.return T
1d80: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d CL_ERROR;.+ }
1d90: 0a 2b 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 .+.+ /*.+
1da0: 20 20 63 6d 64 20 3d 20 2a 28 28 43 6f 6d 6d 61 cmd = *((Comma
1db0: 6e 64 20 2a 29 20 54 63 6c 5f 47 65 74 43 6f 6d nd *) Tcl_GetCom
1dc0: 6d 61 6e 64 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 mandFromObj(inte
1dd0: 72 70 2c 20 6f 62 6a 76 5b 30 5d 29 29 3b 0a 2b rp, objv[0]));.+
1de0: 20 20 20 20 2a 2f 0a 2b 20 20 20 20 63 6d 64 2e */.+ cmd.
1df0: 6e 73 50 74 72 20 3d 20 28 4e 61 6d 65 73 70 61 nsPtr = (Namespa
1e00: 63 65 20 2a 29 20 6e 73 50 74 72 3b 0a 2b 0a 2b ce *) nsPtr;.+.+
1e10: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 4f 62 return TclOb
1e20: 6a 49 6e 74 65 72 70 50 72 6f 63 28 28 43 6c 69 jInterpProc((Cli
1e30: 65 6e 74 44 61 74 61 29 20 70 72 6f 63 50 74 72 entData) procPtr
1e40: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2d 31 , interp, objc-1
1e50: 2c 20 6f 62 6a 76 2b 31 29 3b 0a 2b 7d 0a 2b 0c , objv+1);.+}.+.
1e60: 0a 2b 2f 2a 0a 20 20 2a 20 4c 6f 63 61 6c 20 56 .+/*. * Local V
1e70: 61 72 69 61 62 6c 65 73 3a 0a 20 20 2a 20 6d 6f ariables:. * mo
1e80: 64 65 3a 20 63 0a 20 20 2a 20 63 2d 62 61 73 69 de: c. * c-basi
1e90: 63 2d 6f 66 66 73 65 74 3a 20 34 0a c-offset: 4.
