Tcl Source Code

Artifact 86fbc55009852ce78a60f2617115b6f1547641a4:

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 37 38 0a 64 69 66 66 20 2d 75 20 2d  n 1.78.diff -u -
00b0: 72 31 2e 37 38 20 74 63 6c 42 61 73 69 63 2e 63  r1.78 tclBasic.c
00c0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c  .--- generic/tcl
00d0: 42 61 73 69 63 2e 63 09 35 20 41 70 72 20 32 30  Basic.c.5 Apr 20
00e0: 30 33 20 30 31 3a 34 31 3a 32 32 20 2d 30 30 30  03 01:41:22 -000
00f0: 30 09 31 2e 37 38 0a 2b 2b 2b 20 67 65 6e 65 72  0.1.78.+++ gener
0100: 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 09 31 30  ic/tclBasic.c.10
0110: 20 41 70 72 20 32 30 30 33 20 31 37 3a 30 37 3a   Apr 2003 17:07:
0120: 32 39 20 2d 30 30 30 30 0a 40 40 20 2d 33 33 37  29 -0000.@@ -337
0130: 2c 39 20 2b 33 33 37 2c 32 37 20 40 40 0a 20 20  ,9 +337,27 @@.  
0140: 20 20 20 69 50 74 72 2d 3e 66 72 61 6d 65 50 74     iPtr->framePt
0150: 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 69  r = NULL;.     i
0160: 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50 74 72  Ptr->varFramePtr
0170: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 69 50   = NULL;.     iP
0180: 74 72 2d 3e 61 63 74 69 76 65 56 61 72 54 72 61  tr->activeVarTra
0190: 63 65 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2d 20  cePtr = NULL;.- 
01a0: 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 43     iPtr->returnC
01b0: 6f 64 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 2d 20  ode = TCL_OK;.- 
01c0: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e     iPtr->errorIn
01d0: 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 2d 20 20 20 20  fo = NULL;.-    
01e0: 69 50 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20  iPtr->errorCode 
01f0: 3d 20 4e 55 4c 4c 3b 0a 2b 0a 2b 20 20 20 20 69  = NULL;.+.+    i
0200: 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 4b  Ptr->returnCodeK
0210: 65 79 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  ey = Tcl_NewStri
0220: 6e 67 4f 62 6a 28 22 2d 63 6f 64 65 22 2c 2d 31  ngObj("-code",-1
0230: 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 63 72  );.+    Tcl_Incr
0240: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72  RefCount(iPtr->r
0250: 65 74 75 72 6e 43 6f 64 65 4b 65 79 29 3b 0a 2b  eturnCodeKey);.+
0260: 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e      iPtr->return
0270: 45 72 72 6f 72 63 6f 64 65 4b 65 79 20 3d 20 54  ErrorcodeKey = T
0280: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
0290: 22 2d 65 72 72 6f 72 63 6f 64 65 22 2c 2d 31 29  "-errorcode",-1)
02a0: 3b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  ;.+    Tcl_IncrR
02b0: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
02c0: 74 75 72 6e 45 72 72 6f 72 63 6f 64 65 4b 65 79  turnErrorcodeKey
02d0: 29 3b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 72 65  );.+    iPtr->re
02e0: 74 75 72 6e 45 72 72 6f 72 69 6e 66 6f 4b 65 79  turnErrorinfoKey
02f0: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
0300: 4f 62 6a 28 22 2d 65 72 72 6f 72 69 6e 66 6f 22  Obj("-errorinfo"
0310: 2c 2d 31 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 49  ,-1);.+    Tcl_I
0320: 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72  ncrRefCount(iPtr
0330: 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 69 6e 66  ->returnErrorinf
0340: 6f 4b 65 79 29 3b 0a 2b 20 20 20 20 69 50 74 72  oKey);.+    iPtr
0350: 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 6c 69 6e  ->returnErrorlin
0360: 65 4b 65 79 20 3d 20 54 63 6c 5f 4e 65 77 53 74  eKey = Tcl_NewSt
0370: 72 69 6e 67 4f 62 6a 28 22 2d 65 72 72 6f 72 6c  ringObj("-errorl
0380: 69 6e 65 22 2c 2d 31 29 3b 0a 2b 20 20 20 20 54  ine",-1);.+    T
0390: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
03a0: 69 50 74 72 2d 3e 72 65 74 75 72 6e 45 72 72 6f  iPtr->returnErro
03b0: 72 6c 69 6e 65 4b 65 79 29 3b 0a 2b 20 20 20 20  rlineKey);.+    
03c0: 69 50 74 72 2d 3e 72 65 74 75 72 6e 4c 65 76 65  iPtr->returnLeve
03d0: 6c 4b 65 79 20 3d 20 54 63 6c 5f 4e 65 77 53 74  lKey = Tcl_NewSt
03e0: 72 69 6e 67 4f 62 6a 28 22 2d 6c 65 76 65 6c 22  ringObj("-level"
03f0: 2c 2d 31 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 49  ,-1);.+    Tcl_I
0400: 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72  ncrRefCount(iPtr
0410: 2d 3e 72 65 74 75 72 6e 4c 65 76 65 6c 4b 65 79  ->returnLevelKey
0420: 29 3b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 72 65  );.+    iPtr->re
0430: 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65 79 20 3d  turnOptionsKey =
0440: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
0450: 6a 28 22 2d 6f 70 74 69 6f 6e 73 22 2c 2d 31 29  j("-options",-1)
0460: 3b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  ;.+    Tcl_IncrR
0470: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
0480: 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65 79 29 3b  turnOptionsKey);
0490: 0a 2b 20 20 20 20 69 50 74 72 2d 3e 64 65 66 61  .+    iPtr->defa
04a0: 75 6c 74 52 65 74 75 72 6e 4f 70 74 73 20 3d 20  ultReturnOpts = 
04b0: 54 63 6c 5f 4e 65 77 44 69 63 74 4f 62 6a 28 29  Tcl_NewDictObj()
04c0: 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 69 63 74 4f  ;.+    Tcl_DictO
04d0: 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 69 50 74 72  bjPut(NULL, iPtr
04e0: 2d 3e 64 65 66 61 75 6c 74 52 65 74 75 72 6e 4f  ->defaultReturnO
04f0: 70 74 73 2c 0a 2b 09 20 20 20 20 69 50 74 72 2d  pts,.+.    iPtr-
0500: 3e 72 65 74 75 72 6e 43 6f 64 65 4b 65 79 2c 20  >returnCodeKey, 
0510: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 54 43  Tcl_NewIntObj(TC
0520: 4c 5f 4f 4b 29 29 3b 0a 2b 20 20 20 20 54 63 6c  L_OK));.+    Tcl
0530: 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c  _DictObjPut(NULL
0540: 2c 20 69 50 74 72 2d 3e 64 65 66 61 75 6c 74 52  , iPtr->defaultR
0550: 65 74 75 72 6e 4f 70 74 73 2c 0a 2b 09 20 20 20  eturnOpts,.+.   
0560: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4c 65 76   iPtr->returnLev
0570: 65 6c 4b 65 79 2c 20 54 63 6c 5f 4e 65 77 49 6e  elKey, Tcl_NewIn
0580: 74 4f 62 6a 28 31 29 29 3b 0a 2b 20 20 20 20 54  tObj(1));.+    T
0590: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
05a0: 69 50 74 72 2d 3e 64 65 66 61 75 6c 74 52 65 74  iPtr->defaultRet
05b0: 75 72 6e 4f 70 74 73 29 3b 0a 2b 20 20 20 20 69  urnOpts);.+    i
05c0: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20  Ptr->returnOpts 
05d0: 3d 20 69 50 74 72 2d 3e 64 65 66 61 75 6c 74 52  = iPtr->defaultR
05e0: 65 74 75 72 6e 4f 70 74 73 3b 0a 2b 20 20 20 20  eturnOpts;.+    
05f0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
0600: 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74  (iPtr->returnOpt
0610: 73 29 3b 0a 20 0a 20 20 20 20 20 69 50 74 72 2d  s);. .     iPtr-
0620: 3e 61 70 70 65 6e 64 52 65 73 75 6c 74 20 3d 20  >appendResult = 
0630: 4e 55 4c 4c 3b 0a 20 20 20 20 20 69 50 74 72 2d  NULL;.     iPtr-
0640: 3e 61 70 70 65 6e 64 41 76 6c 20 3d 20 30 3b 0a  >appendAvl = 0;.
0650: 40 40 20 2d 31 30 36 32 2c 31 34 20 2b 31 30 38  @@ -1062,14 +108
0660: 30 2c 31 34 20 40 40 0a 20 20 20 20 20 69 6e 74  0,14 @@.     int
0670: 65 72 70 2d 3e 72 65 73 75 6c 74 20 3d 20 4e 55  erp->result = NU
0680: 4c 4c 3b 0a 20 20 20 20 20 54 63 6c 5f 44 65 63  LL;.     Tcl_Dec
0690: 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e  rRefCount(iPtr->
06a0: 6f 62 6a 52 65 73 75 6c 74 50 74 72 29 3b 0a 20  objResultPtr);. 
06b0: 20 20 20 20 69 50 74 72 2d 3e 6f 62 6a 52 65 73      iPtr->objRes
06c0: 75 6c 74 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2d  ultPtr = NULL;.-
06d0: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65 72      if (iPtr->er
06e0: 72 6f 72 49 6e 66 6f 20 21 3d 20 4e 55 4c 4c 29  rorInfo != NULL)
06f0: 20 7b 0a 2d 09 63 6b 66 72 65 65 28 69 50 74 72   {.-.ckfree(iPtr
0700: 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 2d 20  ->errorInfo);.- 
0710: 20 20 20 20 20 20 20 69 50 74 72 2d 3e 65 72 72         iPtr->err
0720: 6f 72 49 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 2d  orInfo = NULL;.-
0730: 20 20 20 20 7d 0a 2d 20 20 20 20 69 66 20 28 69      }.-    if (i
0740: 50 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 21  Ptr->errorCode !
0750: 3d 20 4e 55 4c 4c 29 20 7b 0a 2d 09 63 6b 66 72  = NULL) {.-.ckfr
0760: 65 65 28 69 50 74 72 2d 3e 65 72 72 6f 72 43 6f  ee(iPtr->errorCo
0770: 64 65 29 3b 0a 2d 20 20 20 20 20 20 20 20 69 50  de);.-        iP
0780: 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 3d 20  tr->errorCode = 
0790: 4e 55 4c 4c 3b 0a 2d 20 20 20 20 7d 0a 2b 20 20  NULL;.-    }.+  
07a0: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
07b0: 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f  nt(iPtr->returnO
07c0: 70 74 73 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 44  pts);.+    Tcl_D
07d0: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72  ecrRefCount(iPtr
07e0: 2d 3e 64 65 66 61 75 6c 74 52 65 74 75 72 6e 4f  ->defaultReturnO
07f0: 70 74 73 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 44  pts);.+    Tcl_D
0800: 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72  ecrRefCount(iPtr
0810: 2d 3e 72 65 74 75 72 6e 43 6f 64 65 4b 65 79 29  ->returnCodeKey)
0820: 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52  ;.+    Tcl_DecrR
0830: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
0840: 74 75 72 6e 45 72 72 6f 72 63 6f 64 65 4b 65 79  turnErrorcodeKey
0850: 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 65 63 72  );.+    Tcl_Decr
0860: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72  RefCount(iPtr->r
0870: 65 74 75 72 6e 45 72 72 6f 72 69 6e 66 6f 4b 65  eturnErrorinfoKe
0880: 79 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 65 63  y);.+    Tcl_Dec
0890: 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e  rRefCount(iPtr->
08a0: 72 65 74 75 72 6e 45 72 72 6f 72 6c 69 6e 65 4b  returnErrorlineK
08b0: 65 79 29 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 65  ey);.+    Tcl_De
08c0: 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d  crRefCount(iPtr-
08d0: 3e 72 65 74 75 72 6e 4c 65 76 65 6c 4b 65 79 29  >returnLevelKey)
08e0: 3b 0a 2b 20 20 20 20 54 63 6c 5f 44 65 63 72 52  ;.+    Tcl_DecrR
08f0: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
0900: 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65 79 29 3b  turnOptionsKey);
0910: 0a 20 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e  .     if (iPtr->
0920: 61 70 70 65 6e 64 52 65 73 75 6c 74 20 21 3d 20  appendResult != 
0930: 4e 55 4c 4c 29 20 7b 0a 20 09 63 6b 66 72 65 65  NULL) {. .ckfree
0940: 28 69 50 74 72 2d 3e 61 70 70 65 6e 64 52 65 73  (iPtr->appendRes
0950: 75 6c 74 29 3b 0a 20 20 20 20 20 20 20 20 20 69  ult);.         i
0960: 50 74 72 2d 3e 61 70 70 65 6e 64 52 65 73 75 6c  Ptr->appendResul
0970: 74 20 3d 20 4e 55 4c 4c 3b 0a 49 6e 64 65 78 3a  t = NULL;.Index:
0980: 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41   generic/tclCmdA
0990: 48 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  H.c.============
09a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09d0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65  =======.RCS file
09e0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74  : /cvsroot/tcl/t
09f0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d  cl/generic/tclCm
0a00: 64 41 48 2e 63 2c 76 0a 72 65 74 72 69 65 76 69  dAH.c,v.retrievi
0a10: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 33 30  ng revision 1.30
0a20: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 33 30 20  .diff -u -r1.30 
0a30: 74 63 6c 43 6d 64 41 48 2e 63 0a 2d 2d 2d 20 67  tclCmdAH.c.--- g
0a40: 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41 48 2e  eneric/tclCmdAH.
0a50: 63 09 38 20 41 70 72 20 32 30 30 33 20 32 32 3a  c.8 Apr 2003 22:
0a60: 35 35 3a 30 39 20 2d 30 30 30 30 09 31 2e 33 30  55:09 -0000.1.30
0a70: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c  .+++ generic/tcl
0a80: 43 6d 64 41 48 2e 63 09 31 30 20 41 70 72 20 32  CmdAH.c.10 Apr 2
0a90: 30 30 33 20 31 37 3a 30 37 3a 32 39 20 2d 30 30  003 17:07:29 -00
0aa0: 30 30 0a 40 40 20 2d 32 33 34 2c 31 30 20 2b 32  00.@@ -234,10 +2
0ab0: 33 34 2c 31 31 20 40 40 0a 20 20 20 20 20 54 63  34,11 @@.     Tc
0ac0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
0ad0: 76 5b 5d 3b 09 2f 2a 20 41 72 67 75 6d 65 6e 74  v[];./* Argument
0ae0: 20 6f 62 6a 65 63 74 73 2e 20 2a 2f 0a 20 7b 0a   objects. */. {.
0af0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 76 61       Tcl_Obj *va
0b00: 72 4e 61 6d 65 50 74 72 20 3d 20 4e 55 4c 4c 3b  rNamePtr = NULL;
0b10: 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f  .+    Tcl_Obj *o
0b20: 70 74 69 6f 6e 56 61 72 4e 61 6d 65 50 74 72 20  ptionVarNamePtr 
0b30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 20 69 6e 74  = NULL;.     int
0b40: 20 72 65 73 75 6c 74 3b 0a 20 0a 2d 20 20 20 20   result;. .-    
0b50: 69 66 20 28 28 6f 62 6a 63 20 21 3d 20 32 29 20  if ((objc != 2) 
0b60: 26 26 20 28 6f 62 6a 63 20 21 3d 20 33 29 29 20  && (objc != 3)) 
0b70: 7b 0a 2d 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d  {.-.Tcl_WrongNum
0b80: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
0b90: 6f 62 6a 76 2c 20 22 63 6f 6d 6d 61 6e 64 20 3f  objv, "command ?
0ba0: 76 61 72 4e 61 6d 65 3f 22 29 3b 0a 2b 20 20 20  varName?");.+   
0bb0: 20 69 66 20 28 28 6f 62 6a 63 20 3c 20 32 29 20   if ((objc < 2) 
0bc0: 7c 7c 20 28 6f 62 6a 63 20 3e 20 34 29 29 20 7b  || (objc > 4)) {
0bd0: 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  .+.Tcl_WrongNumA
0be0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
0bf0: 62 6a 76 2c 20 22 63 6f 6d 6d 61 6e 64 20 3f 76  bjv, "command ?v
0c00: 61 72 4e 61 6d 65 3f 20 3f 6f 70 74 69 6f 6e 56  arName? ?optionV
0c10: 61 72 4e 61 6d 65 3f 22 29 3b 0a 20 09 72 65 74  arName?");. .ret
0c20: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
0c30: 20 20 20 20 7d 0a 20 0a 40 40 20 2d 32 34 37 2c      }. .@@ -247,
0c40: 31 38 20 2b 32 34 38 2c 37 31 20 40 40 0a 20 20  18 +248,71 @@.  
0c50: 20 20 20 20 2a 20 73 74 61 63 6b 20 72 65 6e 64      * stack rend
0c60: 65 72 69 6e 67 20 6f 62 6a 76 20 69 6e 76 61 6c  ering objv inval
0c70: 69 64 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20  id..      */.   
0c80: 20 20 0a 2d 20 20 20 20 69 66 20 28 6f 62 6a 63    .-    if (objc
0c90: 20 3d 3d 20 33 29 20 7b 0a 2b 20 20 20 20 69 66   == 3) {.+    if
0ca0: 20 28 6f 62 6a 63 20 3e 3d 20 33 29 20 7b 0a 20   (objc >= 3) {. 
0cb0: 09 76 61 72 4e 61 6d 65 50 74 72 20 3d 20 6f 62  .varNamePtr = ob
0cc0: 6a 76 5b 32 5d 3b 0a 20 20 20 20 20 7d 0a 2b 20  jv[2];.     }.+ 
0cd0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 34     if (objc == 4
0ce0: 29 20 7b 0a 2b 09 6f 70 74 69 6f 6e 56 61 72 4e  ) {.+.optionVarN
0cf0: 61 6d 65 50 74 72 20 3d 20 6f 62 6a 76 5b 33 5d  amePtr = objv[3]
0d00: 3b 0a 2b 20 20 20 20 7d 0a 20 0a 20 20 20 20 20  ;.+    }. .     
0d10: 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61  result = Tcl_Eva
0d20: 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 6f  lObjEx(interp, o
0d30: 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 20 20  bjv[1], 0);.    
0d40: 20 0a 2d 20 20 20 20 69 66 20 28 6f 62 6a 63 20   .-    if (objc 
0d50: 3d 3d 20 33 29 20 7b 0a 2d 09 69 66 20 28 54 63  == 3) {.-.if (Tc
0d60: 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 69 6e 74  l_ObjSetVar2(int
0d70: 65 72 70 2c 20 76 61 72 4e 61 6d 65 50 74 72 2c  erp, varNamePtr,
0d80: 20 4e 55 4c 4c 2c 0a 2d 09 09 54 63 6c 5f 47 65   NULL,.-..Tcl_Ge
0d90: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
0da0: 70 29 2c 20 30 29 20 3d 3d 20 4e 55 4c 4c 29 20  p), 0) == NULL) 
0db0: 7b 0a 2b 20 20 20 20 69 66 20 28 6f 62 6a 63 20  {.+    if (objc 
0dc0: 3e 3d 20 33 29 20 7b 0a 2b 09 69 66 20 28 4e 55  >= 3) {.+.if (NU
0dd0: 4c 4c 20 3d 3d 20 54 63 6c 5f 4f 62 6a 53 65 74  LL == Tcl_ObjSet
0de0: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 76 61 72  Var2(interp, var
0df0: 4e 61 6d 65 50 74 72 2c 20 4e 55 4c 4c 2c 0a 2b  NamePtr, NULL,.+
0e00: 09 09 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75  ..Tcl_GetObjResu
0e10: 6c 74 28 69 6e 74 65 72 70 29 2c 20 30 29 29 20  lt(interp), 0)) 
0e20: 7b 0a 20 09 20 20 20 20 54 63 6c 5f 52 65 73 65  {. .    Tcl_Rese
0e30: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  tResult(interp);
0e40: 0a 20 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  . .    Tcl_Appen
0e50: 64 54 6f 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62  dToObj(Tcl_GetOb
0e60: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c  jResult(interp),
0e70: 20 20 0a 20 09 20 20 20 20 20 20 20 20 20 20 20    . .           
0e80: 20 22 63 6f 75 6c 64 6e 27 74 20 73 61 76 65 20   "couldn't save 
0e90: 63 6f 6d 6d 61 6e 64 20 72 65 73 75 6c 74 20 69  command result i
0ea0: 6e 20 76 61 72 69 61 62 6c 65 22 2c 20 2d 31 29  n variable", -1)
0eb0: 3b 0a 2b 09 20 20 20 20 72 65 74 75 72 6e 20 54  ;.+.    return T
0ec0: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 7d 0a 2b 20  CL_ERROR;.+.}.+ 
0ed0: 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 28 6f 62     }.+    if (ob
0ee0: 6a 63 20 3d 3d 20 34 29 20 7b 0a 2b 09 49 6e 74  jc == 4) {.+.Int
0ef0: 65 72 70 20 20 2a 69 50 74 72 20 3d 20 28 49 6e  erp  *iPtr = (In
0f00: 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 3b 0a  terp *) interp;.
0f10: 2b 09 54 63 6c 5f 4f 62 6a 20 2a 6f 70 74 69 6f  +.Tcl_Obj *optio
0f20: 6e 73 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61  ns = Tcl_Duplica
0f30: 74 65 4f 62 6a 28 69 50 74 72 2d 3e 72 65 74 75  teObj(iPtr->retu
0f40: 72 6e 4f 70 74 73 29 3b 0a 2b 09 54 63 6c 5f 4f  rnOpts);.+.Tcl_O
0f50: 62 6a 20 2a 76 61 6c 75 65 20 3d 20 4e 55 4c 4c  bj *value = NULL
0f60: 3b 0a 2b 0a 2b 09 69 66 20 28 72 65 73 75 6c 74  ;.+.+.if (result
0f70: 20 21 3d 20 54 43 4c 5f 52 45 54 55 52 4e 29 20   != TCL_RETURN) 
0f80: 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 69 63 74  {.+.    Tcl_Dict
0f90: 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 6f 70 74  ObjPut(NULL, opt
0fa0: 69 6f 6e 73 2c 0a 2b 09 09 20 20 20 20 69 50 74  ions,.+..    iPt
0fb0: 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 4b 65 79  r->returnCodeKey
0fc0: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
0fd0: 72 65 73 75 6c 74 29 29 3b 0a 2b 09 20 20 20 20  result));.+.    
0fe0: 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e  Tcl_DictObjPut(N
0ff0: 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 0a 2b 09  ULL, options,.+.
1000: 09 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72  .    iPtr->retur
1010: 6e 4c 65 76 65 6c 4b 65 79 2c 20 54 63 6c 5f 4e  nLevelKey, Tcl_N
1020: 65 77 49 6e 74 4f 62 6a 28 30 29 29 3b 0a 2b 09  ewIntObj(0));.+.
1030: 7d 0a 2b 0a 2b 09 69 66 20 28 69 50 74 72 2d 3e  }.+.+.if (iPtr->
1040: 66 6c 61 67 73 20 26 20 45 52 52 5f 49 4e 5f 50  flags & ERR_IN_P
1050: 52 4f 47 52 45 53 53 29 20 7b 0a 2b 09 20 20 20  ROGRESS) {.+.   
1060: 20 76 61 6c 75 65 20 3d 20 4e 55 4c 4c 3b 0a 2b   value = NULL;.+
1070: 09 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a  .    Tcl_DictObj
1080: 47 65 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e  Get(NULL, option
1090: 73 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 45  s, iPtr->returnE
10a0: 72 72 6f 72 69 6e 66 6f 4b 65 79 2c 20 26 76 61  rrorinfoKey, &va
10b0: 6c 75 65 29 3b 0a 2b 09 20 20 20 20 69 66 20 28  lue);.+.    if (
10c0: 4e 55 4c 4c 20 3d 3d 20 76 61 6c 75 65 29 20 7b  NULL == value) {
10d0: 0a 2b 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50  .+..Tcl_DictObjP
10e0: 75 74 28 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73  ut(NULL, options
10f0: 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 45 72  , iPtr->returnEr
1100: 72 6f 72 69 6e 66 6f 4b 65 79 2c 0a 2b 09 09 09  rorinfoKey,.+...
1110: 54 63 6c 5f 4f 62 6a 47 65 74 56 61 72 32 28 69  Tcl_ObjGetVar2(i
1120: 6e 74 65 72 70 2c 20 69 50 74 72 2d 3e 65 78 65  nterp, iPtr->exe
1130: 63 45 6e 76 50 74 72 2d 3e 65 72 72 6f 72 49 6e  cEnvPtr->errorIn
1140: 66 6f 2c 0a 2b 09 09 09 4e 55 4c 4c 2c 20 54 43  fo,.+...NULL, TC
1150: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 29 3b  L_GLOBAL_ONLY));
1160: 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d 0a 2b 0a 2b  .+.    }.+.}.+.+
1170: 09 69 66 20 28 69 50 74 72 2d 3e 66 6c 61 67 73  .if (iPtr->flags
1180: 20 26 20 45 52 52 4f 52 5f 43 4f 44 45 5f 53 45   & ERROR_CODE_SE
1190: 54 29 20 7b 0a 2b 09 20 20 20 20 76 61 6c 75 65  T) {.+.    value
11a0: 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 20 20 20 20 54   = NULL;.+.    T
11b0: 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 4e 55  cl_DictObjGet(NU
11c0: 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 69 50 74  LL, options, iPt
11d0: 72 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 63 6f  r->returnErrorco
11e0: 64 65 4b 65 79 2c 20 26 76 61 6c 75 65 29 3b 0a  deKey, &value);.
11f0: 2b 09 20 20 20 20 69 66 20 28 4e 55 4c 4c 20 3d  +.    if (NULL =
1200: 3d 20 76 61 6c 75 65 29 20 7b 0a 2b 09 09 54 63  = value) {.+..Tc
1210: 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c  l_DictObjPut(NUL
1220: 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 69 50 74 72  L, options, iPtr
1230: 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 63 6f 64  ->returnErrorcod
1240: 65 4b 65 79 2c 0a 2b 09 09 09 54 63 6c 5f 4f 62  eKey,.+...Tcl_Ob
1250: 6a 47 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c  jGetVar2(interp,
1260: 20 69 50 74 72 2d 3e 65 78 65 63 45 6e 76 50 74   iPtr->execEnvPt
1270: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 2c 0a 2b 09  r->errorCode,.+.
1280: 09 09 4e 55 4c 4c 2c 20 54 43 4c 5f 47 4c 4f 42  ..NULL, TCL_GLOB
1290: 41 4c 5f 4f 4e 4c 59 29 29 3b 0a 2b 09 20 20 20  AL_ONLY));.+.   
12a0: 20 7d 0a 2b 09 7d 0a 2b 0a 2b 09 69 66 20 28 72   }.+.}.+.+.if (r
12b0: 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 45 52 52  esult == TCL_ERR
12c0: 4f 52 29 20 7b 0a 2b 09 20 20 20 20 76 61 6c 75  OR) {.+.    valu
12d0: 65 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 20 20 20 20  e = NULL;.+.    
12e0: 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 4e  Tcl_DictObjGet(N
12f0: 55 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 69 50  ULL, options, iP
1300: 74 72 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 6c  tr->returnErrorl
1310: 69 6e 65 4b 65 79 2c 20 26 76 61 6c 75 65 29 3b  ineKey, &value);
1320: 0a 2b 09 20 20 20 20 69 66 20 28 4e 55 4c 4c 20  .+.    if (NULL 
1330: 3d 3d 20 76 61 6c 75 65 29 20 7b 0a 2b 09 09 54  == value) {.+..T
1340: 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55  cl_DictObjPut(NU
1350: 4c 4c 2c 20 6f 70 74 69 6f 6e 73 2c 20 69 50 74  LL, options, iPt
1360: 72 2d 3e 72 65 74 75 72 6e 45 72 72 6f 72 6c 69  r->returnErrorli
1370: 6e 65 4b 65 79 2c 0a 2b 09 09 09 54 63 6c 5f 4e  neKey,.+...Tcl_N
1380: 65 77 49 6e 74 4f 62 6a 28 69 50 74 72 2d 3e 65  ewIntObj(iPtr->e
1390: 72 72 6f 72 4c 69 6e 65 29 29 3b 0a 2b 09 20 20  rrorLine));.+.  
13a0: 20 20 7d 0a 2b 09 7d 0a 2b 0a 2b 09 69 66 20 28    }.+.}.+.+.if (
13b0: 4e 55 4c 4c 20 3d 3d 0a 2b 09 09 54 63 6c 5f 4f  NULL ==.+..Tcl_O
13c0: 62 6a 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  bjSetVar2(interp
13d0: 2c 20 6f 70 74 69 6f 6e 56 61 72 4e 61 6d 65 50  , optionVarNameP
13e0: 74 72 2c 20 4e 55 4c 4c 2c 20 6f 70 74 69 6f 6e  tr, NULL, option
13f0: 73 2c 20 30 29 29 20 7b 0a 2b 09 20 20 20 20 54  s, 0)) {.+.    T
1400: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28  cl_DecrRefCount(
1410: 6f 70 74 69 6f 6e 73 29 3b 0a 2b 09 20 20 20 20  options);.+.    
1420: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28  Tcl_ResetResult(
1430: 69 6e 74 65 72 70 29 3b 0a 2b 09 20 20 20 20 54  interp);.+.    T
1440: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 54  cl_AppendToObj(T
1450: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_GetObjResult(
1460: 69 6e 74 65 72 70 29 2c 20 20 0a 2b 09 20 20 20  interp),  .+.   
1470: 20 20 20 20 20 20 20 20 20 22 63 6f 75 6c 64 6e           "couldn
1480: 27 74 20 73 61 76 65 20 72 65 74 75 72 6e 20 6f  't save return o
1490: 70 74 69 6f 6e 73 20 69 6e 20 76 61 72 69 61 62  ptions in variab
14a0: 6c 65 22 2c 20 2d 31 29 3b 0a 20 09 20 20 20 20  le", -1);. .    
14b0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
14c0: 3b 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 49 6e 64  ;. .}.     }.Ind
14d0: 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 43  ex: generic/tclC
14e0: 6d 64 4d 5a 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d  mdMZ.c.=========
14f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
1500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
1510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
1520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66  ==========.RCS f
1530: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63  ile: /cvsroot/tc
1540: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63  l/tcl/generic/tc
1550: 6c 43 6d 64 4d 5a 2e 63 2c 76 0a 72 65 74 72 69  lCmdMZ.c,v.retri
1560: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31  eving revision 1
1570: 2e 38 34 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e  .84.diff -u -r1.
1580: 38 34 20 74 63 6c 43 6d 64 4d 5a 2e 63 0a 2d 2d  84 tclCmdMZ.c.--
1590: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64  - generic/tclCmd
15a0: 4d 5a 2e 63 09 37 20 41 70 72 20 32 30 30 33 20  MZ.c.7 Apr 2003 
15b0: 31 36 3a 35 35 3a 31 33 20 2d 30 30 30 30 09 31  16:55:13 -0000.1
15c0: 2e 38 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f  .84.+++ generic/
15d0: 74 63 6c 43 6d 64 4d 5a 2e 63 09 31 30 20 41 70  tclCmdMZ.c.10 Ap
15e0: 72 20 32 30 30 33 20 31 37 3a 30 37 3a 32 39 20  r 2003 17:07:29 
15f0: 2d 30 30 30 30 0a 40 40 20 2d 39 33 34 2c 37 34  -0000.@@ -934,74
1600: 20 2b 39 33 34 2c 31 34 38 20 40 40 0a 20 20 20   +934,148 @@.   
1610: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
1620: 20 6f 62 6a 76 5b 5d 3b 09 2f 2a 20 41 72 67 75   objv[];./* Argu
1630: 6d 65 6e 74 20 6f 62 6a 65 63 74 73 2e 20 2a 2f  ment objects. */
1640: 0a 20 7b 0a 20 20 20 20 20 49 6e 74 65 72 70 20  . {.     Interp 
1650: 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20  *iPtr = (Interp 
1660: 2a 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20  *) interp;.-    
1670: 69 6e 74 20 6f 70 74 69 6f 6e 4c 65 6e 2c 20 61  int optionLen, a
1680: 72 67 4c 65 6e 2c 20 63 6f 64 65 2c 20 72 65 73  rgLen, code, res
1690: 75 6c 74 3b 0a 2b 20 20 20 20 69 6e 74 20 63 6f  ult;.+    int co
16a0: 64 65 2c 20 6c 65 76 65 6c 3b 0a 2b 20 20 20 20  de, level;.+    
16b0: 54 63 6c 5f 4f 62 6a 20 2a 76 61 6c 75 65 50 74  Tcl_Obj *valuePt
16c0: 72 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 20 53 74 61  r;.+.+    /* Sta
16d0: 72 74 20 77 69 74 68 20 74 68 65 20 64 65 66 61  rt with the defa
16e0: 75 6c 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 2b  ult options */.+
16f0: 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 72 65      if (iPtr->re
1700: 74 75 72 6e 4f 70 74 73 20 21 3d 20 69 50 74 72  turnOpts != iPtr
1710: 2d 3e 64 65 66 61 75 6c 74 52 65 74 75 72 6e 4f  ->defaultReturnO
1720: 70 74 73 29 20 7b 0a 2b 09 54 63 6c 5f 44 65 63  pts) {.+.Tcl_Dec
1730: 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e  rRefCount(iPtr->
1740: 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 69  returnOpts);.+.i
1750: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20  Ptr->returnOpts 
1760: 3d 20 69 50 74 72 2d 3e 64 65 66 61 75 6c 74 52  = iPtr->defaultR
1770: 65 74 75 72 6e 4f 70 74 73 3b 0a 2b 09 54 63 6c  eturnOpts;.+.Tcl
1780: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50  _IncrRefCount(iP
1790: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b  tr->returnOpts);
17a0: 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 6f  .+    }.+.+    o
17b0: 62 6a 76 2b 2b 2c 20 6f 62 6a 63 2d 2d 3b 0a 2b  bjv++, objc--;.+
17c0: 20 20 20 20 69 66 20 28 6f 62 6a 63 29 20 7b 0a      if (objc) {.
17d0: 2b 09 2f 2a 20 57 65 27 72 65 20 67 6f 69 6e 67  +./* We're going
17e0: 20 74 6f 20 61 64 64 20 6f 75 72 20 6f 70 74 69   to add our opti
17f0: 6f 6e 73 2c 20 73 6f 20 6d 61 6e 61 67 65 20 54  ons, so manage T
1800: 63 6c 5f 4f 62 6a 20 73 68 61 72 69 6e 67 20 2a  cl_Obj sharing *
1810: 2f 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65 66 43  /.+.Tcl_DecrRefC
1820: 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72  ount(iPtr->retur
1830: 6e 4f 70 74 73 29 3b 0a 2b 09 69 50 74 72 2d 3e  nOpts);.+.iPtr->
1840: 72 65 74 75 72 6e 4f 70 74 73 20 3d 20 54 63 6c  returnOpts = Tcl
1850: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 69 50  _DuplicateObj(iP
1860: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b  tr->returnOpts);
1870: 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f  .+.Tcl_IncrRefCo
1880: 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72 6e  unt(iPtr->return
1890: 4f 70 74 73 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20  Opts);.+    }.+ 
18a0: 20 20 20 0a 2b 20 20 20 20 66 6f 72 20 28 3b 20     .+    for (; 
18b0: 20 6f 62 6a 63 20 3e 20 31 3b 20 20 6f 62 6a 76   objc > 1;  objv
18c0: 20 2b 3d 20 32 2c 20 6f 62 6a 63 20 2d 3d 20 32   += 2, objc -= 2
18d0: 29 20 7b 0a 2b 09 69 6e 74 20 6f 70 74 4c 65 6e  ) {.+.int optLen
18e0: 3b 0a 2b 09 43 4f 4e 53 54 20 63 68 61 72 20 2a  ;.+.CONST char *
18f0: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  opt = Tcl_GetStr
1900: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b  ingFromObj(objv[
1910: 30 5d 2c 20 26 6f 70 74 4c 65 6e 29 3b 0a 2b 09  0], &optLen);.+.
1920: 69 66 20 28 28 6f 70 74 4c 65 6e 20 3d 3d 20 38  if ((optLen == 8
1930: 29 20 26 26 20 28 2a 6f 70 74 20 3d 3d 20 27 2d  ) && (*opt == '-
1940: 27 29 20 26 26 20 28 73 74 72 63 6d 70 28 6f 70  ') && (strcmp(op
1950: 74 2c 20 22 2d 6f 70 74 69 6f 6e 73 22 29 20 3d  t, "-options") =
1960: 3d 20 30 29 29 20 7b 0a 2b 09 20 20 20 20 54 63  = 0)) {.+.    Tc
1970: 6c 5f 44 69 63 74 53 65 61 72 63 68 20 73 65 61  l_DictSearch sea
1980: 72 63 68 3b 0a 2b 09 20 20 20 20 69 6e 74 20 64  rch;.+.    int d
1990: 6f 6e 65 20 3d 20 30 3b 0a 2b 09 20 20 20 20 54  one = 0;.+.    T
19a0: 63 6c 5f 4f 62 6a 20 2a 6b 65 79 50 74 72 3b 0a  cl_Obj *keyPtr;.
19b0: 2b 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 64  +.    Tcl_Obj *d
19c0: 69 63 74 20 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 2b  ict = objv[1];.+
19d0: 0a 2b 09 20 20 20 20 6e 65 73 74 65 64 4f 70 74  .+.    nestedOpt
19e0: 69 6f 6e 73 3a 0a 2b 09 20 20 20 20 69 66 20 28  ions:.+.    if (
19f0: 54 43 4c 5f 45 52 52 4f 52 20 3d 3d 20 54 63 6c  TCL_ERROR == Tcl
1a00: 5f 44 69 63 74 4f 62 6a 46 69 72 73 74 28 4e 55  _DictObjFirst(NU
1a10: 4c 4c 2c 20 64 69 63 74 2c 0a 2b 09 09 20 20 20  LL, dict,.+..   
1a20: 20 26 73 65 61 72 63 68 2c 20 26 6b 65 79 50 74   &search, &keyPt
1a30: 72 2c 20 26 76 61 6c 75 65 50 74 72 2c 20 26 64  r, &valuePtr, &d
1a40: 6f 6e 65 29 29 20 7b 0a 2b 09 09 2f 2a 20 56 61  one)) {.+../* Va
1a50: 6c 75 65 20 69 73 20 6e 6f 74 20 61 20 6c 65 67  lue is not a leg
1a60: 61 6c 20 64 69 63 74 69 6f 6e 61 72 79 20 2a 2f  al dictionary */
1a70: 0a 2b 09 09 54 63 6c 5f 44 65 63 72 52 65 66 43  .+..Tcl_DecrRefC
1a80: 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72  ount(iPtr->retur
1a90: 6e 4f 70 74 73 29 3b 0a 2b 09 09 69 50 74 72 2d  nOpts);.+..iPtr-
1aa0: 3e 72 65 74 75 72 6e 4f 70 74 73 20 3d 20 69 50  >returnOpts = iP
1ab0: 74 72 2d 3e 64 65 66 61 75 6c 74 52 65 74 75 72  tr->defaultRetur
1ac0: 6e 4f 70 74 73 3b 0a 2b 09 09 54 63 6c 5f 49 6e  nOpts;.+..Tcl_In
1ad0: 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d  crRefCount(iPtr-
1ae0: 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09  >returnOpts);.+.
1af0: 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74  .Tcl_ResetResult
1b00: 28 69 6e 74 65 72 70 29 3b 0a 2b 09 09 54 63 6c  (interp);.+..Tcl
1b10: 5f 41 70 70 65 6e 64 53 74 72 69 6e 67 73 54 6f  _AppendStringsTo
1b20: 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65  Obj(Tcl_GetObjRe
1b30: 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 0a 2b 09  sult(interp),.+.
1b40: 09 09 22 62 61 64 20 2d 6f 70 74 69 6f 6e 73 20  .."bad -options 
1b50: 76 61 6c 75 65 3a 20 65 78 70 65 63 74 65 64 20  value: expected 
1b60: 64 69 63 74 69 6f 6e 61 72 79 20 62 75 74 20 67  dictionary but g
1b70: 6f 74 20 5c 22 22 2c 0a 2b 09 09 09 54 63 6c 5f  ot \"",.+...Tcl_
1b80: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31  GetString(objv[1
1b90: 5d 29 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20  ]), "\"", (char 
1ba0: 2a 29 20 4e 55 4c 4c 29 3b 0a 2b 09 09 72 65 74  *) NULL);.+..ret
1bb0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b  urn TCL_ERROR;.+
1bc0: 09 20 20 20 20 7d 0a 2b 0a 2b 09 20 20 20 20 77  .    }.+.+.    w
1bd0: 68 69 6c 65 20 28 21 64 6f 6e 65 29 20 7b 0a 2b  hile (!done) {.+
1be0: 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74  ..Tcl_DictObjPut
1bf0: 28 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74  (NULL, iPtr->ret
1c00: 75 72 6e 4f 70 74 73 2c 20 6b 65 79 50 74 72 2c  urnOpts, keyPtr,
1c10: 20 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09 09 54   valuePtr);.+..T
1c20: 63 6c 5f 44 69 63 74 4f 62 6a 4e 65 78 74 28 26  cl_DictObjNext(&
1c30: 73 65 61 72 63 68 2c 20 26 6b 65 79 50 74 72 2c  search, &keyPtr,
1c40: 20 26 76 61 6c 75 65 50 74 72 2c 20 26 64 6f 6e   &valuePtr, &don
1c50: 65 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b 0a 2b 09  e);.+.    }.+.+.
1c60: 20 20 20 20 76 61 6c 75 65 50 74 72 20 3d 20 4e      valuePtr = N
1c70: 55 4c 4c 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 44  ULL;.+.    Tcl_D
1c80: 69 63 74 4f 62 6a 47 65 74 28 4e 55 4c 4c 2c 20  ictObjGet(NULL, 
1c90: 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73  iPtr->returnOpts
1ca0: 2c 0a 2b 09 09 20 20 20 20 69 50 74 72 2d 3e 72  ,.+..    iPtr->r
1cb0: 65 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65 79 2c  eturnOptionsKey,
1cc0: 20 26 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09 20   &valuePtr);.+. 
1cd0: 20 20 20 69 66 20 28 76 61 6c 75 65 50 74 72 20     if (valuePtr 
1ce0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 64 69  != NULL) {.+..di
1cf0: 63 74 20 3d 20 76 61 6c 75 65 50 74 72 3b 0a 2b  ct = valuePtr;.+
1d00: 09 09 67 6f 74 6f 20 6e 65 73 74 65 64 4f 70 74  ..goto nestedOpt
1d10: 69 6f 6e 73 3b 0a 2b 09 20 20 20 20 7d 0a 20 0a  ions;.+.    }. .
1d20: 2d 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65  -    if (iPtr->e
1d30: 72 72 6f 72 49 6e 66 6f 20 21 3d 20 4e 55 4c 4c  rrorInfo != NULL
1d40: 29 20 7b 0a 2d 09 63 6b 66 72 65 65 28 69 50 74  ) {.-.ckfree(iPt
1d50: 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 29 3b 0a 2d  r->errorInfo);.-
1d60: 09 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f  .iPtr->errorInfo
1d70: 20 3d 20 4e 55 4c 4c 3b 0a 2d 20 20 20 20 7d 0a   = NULL;.-    }.
1d80: 2d 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e 65  -    if (iPtr->e
1d90: 72 72 6f 72 43 6f 64 65 20 21 3d 20 4e 55 4c 4c  rrorCode != NULL
1da0: 29 20 7b 0a 2d 09 63 6b 66 72 65 65 28 69 50 74  ) {.-.ckfree(iPt
1db0: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 29 3b 0a 2d  r->errorCode);.-
1dc0: 09 69 50 74 72 2d 3e 65 72 72 6f 72 43 6f 64 65  .iPtr->errorCode
1dd0: 20 3d 20 4e 55 4c 4c 3b 0a 2d 20 20 20 20 7d 0a   = NULL;.-    }.
1de0: 2d 20 20 20 20 63 6f 64 65 20 3d 20 54 43 4c 5f  -    code = TCL_
1df0: 4f 4b 3b 0a 2d 20 20 20 20 0a 2d 20 20 20 20 66  OK;.-    .-    f
1e00: 6f 72 20 28 6f 62 6a 76 2b 2b 2c 20 6f 62 6a 63  or (objv++, objc
1e10: 2d 2d 3b 20 20 6f 62 6a 63 20 3e 20 31 3b 20 20  --;  objc > 1;  
1e20: 6f 62 6a 76 20 2b 3d 20 32 2c 20 6f 62 6a 63 20  objv += 2, objc 
1e30: 2d 3d 20 32 29 20 7b 0a 2d 09 63 68 61 72 20 2a  -= 2) {.-.char *
1e40: 6f 70 74 69 6f 6e 20 3d 20 54 63 6c 5f 47 65 74  option = Tcl_Get
1e50: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62  StringFromObj(ob
1e60: 6a 76 5b 30 5d 2c 20 26 6f 70 74 69 6f 6e 4c 65  jv[0], &optionLe
1e70: 6e 29 3b 0a 2d 09 63 68 61 72 20 2a 61 72 67 20  n);.-.char *arg 
1e80: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
1e90: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20  romObj(objv[1], 
1ea0: 26 61 72 67 4c 65 6e 29 3b 0a 2d 20 20 20 20 09  &argLen);.-    .
1eb0: 0a 2d 09 69 66 20 28 73 74 72 63 6d 70 28 6f 70  .-.if (strcmp(op
1ec0: 74 69 6f 6e 2c 20 22 2d 63 6f 64 65 22 29 20 3d  tion, "-code") =
1ed0: 3d 20 30 29 20 7b 0a 2d 09 20 20 20 20 72 65 67  = 0) {.-.    reg
1ee0: 69 73 74 65 72 20 69 6e 74 20 63 20 3d 20 61 72  ister int c = ar
1ef0: 67 5b 30 5d 3b 0a 2d 09 20 20 20 20 69 66 20 28  g[0];.-.    if (
1f00: 28 63 20 3d 3d 20 27 6f 27 29 20 26 26 20 28 73  (c == 'o') && (s
1f10: 74 72 63 6d 70 28 61 72 67 2c 20 22 6f 6b 22 29  trcmp(arg, "ok")
1f20: 20 3d 3d 20 30 29 29 20 7b 0a 2d 09 09 63 6f 64   == 0)) {.-..cod
1f30: 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 2d 09 20 20  e = TCL_OK;.-.  
1f40: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20    } else if ((c 
1f50: 3d 3d 20 27 65 27 29 20 26 26 20 28 73 74 72 63  == 'e') && (strc
1f60: 6d 70 28 61 72 67 2c 20 22 65 72 72 6f 72 22 29  mp(arg, "error")
1f70: 20 3d 3d 20 30 29 29 20 7b 0a 2d 09 09 63 6f 64   == 0)) {.-..cod
1f80: 65 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2d  e = TCL_ERROR;.-
1f90: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28  .    } else if (
1fa0: 28 63 20 3d 3d 20 27 72 27 29 20 26 26 20 28 73  (c == 'r') && (s
1fb0: 74 72 63 6d 70 28 61 72 67 2c 20 22 72 65 74 75  trcmp(arg, "retu
1fc0: 72 6e 22 29 20 3d 3d 20 30 29 29 20 7b 0a 2d 09  rn") == 0)) {.-.
1fd0: 09 63 6f 64 65 20 3d 20 54 43 4c 5f 52 45 54 55  .code = TCL_RETU
1fe0: 52 4e 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65  RN;.-.    } else
1ff0: 20 69 66 20 28 28 63 20 3d 3d 20 27 62 27 29 20   if ((c == 'b') 
2000: 26 26 20 28 73 74 72 63 6d 70 28 61 72 67 2c 20  && (strcmp(arg, 
2010: 22 62 72 65 61 6b 22 29 20 3d 3d 20 30 29 29 20  "break") == 0)) 
2020: 7b 0a 2d 09 09 63 6f 64 65 20 3d 20 54 43 4c 5f  {.-..code = TCL_
2030: 42 52 45 41 4b 3b 0a 2d 09 20 20 20 20 7d 20 65  BREAK;.-.    } e
2040: 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 63  lse if ((c == 'c
2050: 27 29 20 26 26 20 28 73 74 72 63 6d 70 28 61 72  ') && (strcmp(ar
2060: 67 2c 20 22 63 6f 6e 74 69 6e 75 65 22 29 20 3d  g, "continue") =
2070: 3d 20 30 29 29 20 7b 0a 2d 09 09 63 6f 64 65 20  = 0)) {.-..code 
2080: 3d 20 54 43 4c 5f 43 4f 4e 54 49 4e 55 45 3b 0a  = TCL_CONTINUE;.
2090: 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d  -.    } else {.-
20a0: 09 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47  ..result = Tcl_G
20b0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 28 54 63  etIntFromObj((Tc
20c0: 6c 5f 49 6e 74 65 72 70 20 2a 29 20 4e 55 4c 4c  l_Interp *) NULL
20d0: 2c 20 6f 62 6a 76 5b 31 5d 2c 0a 2d 09 09 20 20  , objv[1],.-..  
20e0: 20 20 20 20 20 20 26 63 6f 64 65 29 3b 0a 2d 09        &code);.-.
20f0: 09 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54  .if (result != T
2100: 43 4c 5f 4f 4b 29 20 7b 0a 2d 09 09 20 20 20 20  CL_OK) {.-..    
2110: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28  Tcl_ResetResult(
2120: 69 6e 74 65 72 70 29 3b 0a 2d 09 09 20 20 20 20  interp);.-..    
2130: 54 63 6c 5f 41 70 70 65 6e 64 53 74 72 69 6e 67  Tcl_AppendString
2140: 73 54 6f 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62  sToObj(Tcl_GetOb
2150: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c  jResult(interp),
2160: 0a 2d 09 09 09 20 20 20 20 22 62 61 64 20 63 6f  .-...    "bad co
2170: 6d 70 6c 65 74 69 6f 6e 20 63 6f 64 65 20 5c 22  mpletion code \"
2180: 22 2c 0a 2d 09 09 09 20 20 20 20 54 63 6c 5f 47  ",.-...    Tcl_G
2190: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
21a0: 29 2c 0a 2d 09 09 09 20 20 20 20 22 5c 22 3a 20  ),.-...    "\": 
21b0: 6d 75 73 74 20 62 65 20 6f 6b 2c 20 65 72 72 6f  must be ok, erro
21c0: 72 2c 20 72 65 74 75 72 6e 2c 20 62 72 65 61 6b  r, return, break
21d0: 2c 20 22 2c 0a 2d 09 09 09 20 20 20 20 22 63 6f  , ",.-...    "co
21e0: 6e 74 69 6e 75 65 2c 20 6f 72 20 61 6e 20 69 6e  ntinue, or an in
21f0: 74 65 67 65 72 22 2c 20 28 63 68 61 72 20 2a 29  teger", (char *)
2200: 20 4e 55 4c 4c 29 3b 0a 2d 09 09 20 20 20 20 72   NULL);.-..    r
2210: 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0a 2d 09  eturn result;.-.
2220: 09 7d 0a 2d 09 20 20 20 20 7d 0a 2d 09 7d 20 65  .}.-.    }.-.} e
2230: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 6f  lse if (strcmp(o
2240: 70 74 69 6f 6e 2c 20 22 2d 65 72 72 6f 72 69 6e  ption, "-errorin
2250: 66 6f 22 29 20 3d 3d 20 30 29 20 7b 0a 2d 09 20  fo") == 0) {.-. 
2260: 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 49 6e     iPtr->errorIn
2270: 66 6f 20 3d 0a 2d 09 09 28 63 68 61 72 20 2a 29  fo =.-..(char *)
2280: 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e   ckalloc((unsign
2290: 65 64 29 20 28 73 74 72 6c 65 6e 28 61 72 67 29  ed) (strlen(arg)
22a0: 20 2b 20 31 29 29 3b 0a 2d 09 20 20 20 20 73 74   + 1));.-.    st
22b0: 72 63 70 79 28 69 50 74 72 2d 3e 65 72 72 6f 72  rcpy(iPtr->error
22c0: 49 6e 66 6f 2c 20 61 72 67 29 3b 0a 2d 09 7d 20  Info, arg);.-.} 
22d0: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28  else if (strcmp(
22e0: 6f 70 74 69 6f 6e 2c 20 22 2d 65 72 72 6f 72 63  option, "-errorc
22f0: 6f 64 65 22 29 20 3d 3d 20 30 29 20 7b 0a 2d 09  ode") == 0) {.-.
2300: 20 20 20 20 69 50 74 72 2d 3e 65 72 72 6f 72 43      iPtr->errorC
2310: 6f 64 65 20 3d 0a 2d 09 09 28 63 68 61 72 20 2a  ode =.-..(char *
2320: 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67  ) ckalloc((unsig
2330: 6e 65 64 29 20 28 73 74 72 6c 65 6e 28 61 72 67  ned) (strlen(arg
2340: 29 20 2b 20 31 29 29 3b 0a 2d 09 20 20 20 20 73  ) + 1));.-.    s
2350: 74 72 63 70 79 28 69 50 74 72 2d 3e 65 72 72 6f  trcpy(iPtr->erro
2360: 72 43 6f 64 65 2c 20 61 72 67 29 3b 0a 20 09 7d  rCode, arg);. .}
2370: 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 54 63   else {.+.    Tc
2380: 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c  l_DictObjPut(NUL
2390: 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f  L, iPtr->returnO
23a0: 70 74 73 2c 20 6f 62 6a 76 5b 30 5d 2c 20 6f 62  pts, objv[0], ob
23b0: 6a 76 5b 31 5d 29 3b 0a 2b 09 7d 0a 2b 20 20 20  jv[1]);.+.}.+   
23c0: 20 7d 0a 2b 0a 2b 20 20 20 20 2f 2a 20 43 68 65   }.+.+    /* Che
23d0: 63 6b 20 66 6f 72 20 62 6f 67 75 73 20 2d 63 6f  ck for bogus -co
23e0: 64 65 20 76 61 6c 75 65 20 2a 2f 0a 2b 20 20 20  de value */.+   
23f0: 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28   Tcl_DictObjGet(
2400: 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75  NULL, iPtr->retu
2410: 72 6e 4f 70 74 73 2c 20 69 50 74 72 2d 3e 72 65  rnOpts, iPtr->re
2420: 74 75 72 6e 43 6f 64 65 4b 65 79 2c 20 26 76 61  turnCodeKey, &va
2430: 6c 75 65 50 74 72 29 3b 0a 2b 20 20 20 20 69 66  luePtr);.+    if
2440: 20 28 54 43 4c 5f 45 52 52 4f 52 20 3d 3d 20 54   (TCL_ERROR == T
2450: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
2460: 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c  (NULL, valuePtr,
2470: 20 26 63 6f 64 65 29 29 20 7b 0a 2b 09 73 74 61   &code)) {.+.sta
2480: 74 69 63 20 43 4f 4e 53 54 20 63 68 61 72 20 2a  tic CONST char *
2490: 72 65 74 75 72 6e 43 6f 64 65 73 5b 5d 20 3d 20  returnCodes[] = 
24a0: 7b 0a 2b 09 20 20 20 20 22 6f 6b 22 2c 20 22 65  {.+.    "ok", "e
24b0: 72 72 6f 72 22 2c 20 22 72 65 74 75 72 6e 22 2c  rror", "return",
24c0: 20 22 62 72 65 61 6b 22 2c 20 22 63 6f 6e 74 69   "break", "conti
24d0: 6e 75 65 22 0a 2b 09 7d 3b 0a 2b 0a 2b 09 69 66  nue".+.};.+.+.if
24e0: 20 28 54 43 4c 5f 45 52 52 4f 52 20 3d 3d 20 54   (TCL_ERROR == T
24f0: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f  cl_GetIndexFromO
2500: 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74  bj(NULL, valuePt
2510: 72 2c 20 72 65 74 75 72 6e 43 6f 64 65 73 2c 0a  r, returnCodes,.
2520: 2b 09 09 4e 55 4c 4c 2c 20 54 43 4c 5f 45 58 41  +..NULL, TCL_EXA
2530: 43 54 2c 20 26 63 6f 64 65 29 29 20 7b 0a 2b 09  CT, &code)) {.+.
2540: 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 69 73 20      /* Value is 
2550: 6e 6f 74 20 61 20 6c 65 67 61 6c 20 72 65 74 75  not a legal retu
2560: 72 6e 20 63 6f 64 65 20 2a 2f 0a 2b 09 20 20 20  rn code */.+.   
2570: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e   Tcl_DecrRefCoun
2580: 74 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70  t(iPtr->returnOp
2590: 74 73 29 3b 0a 2b 09 20 20 20 20 69 50 74 72 2d  ts);.+.    iPtr-
25a0: 3e 72 65 74 75 72 6e 4f 70 74 73 20 3d 20 69 50  >returnOpts = iP
25b0: 74 72 2d 3e 64 65 66 61 75 6c 74 52 65 74 75 72  tr->defaultRetur
25c0: 6e 4f 70 74 73 3b 0a 2b 09 20 20 20 20 54 63 6c  nOpts;.+.    Tcl
25d0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50  _IncrRefCount(iP
25e0: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b  tr->returnOpts);
25f0: 0a 2b 09 20 20 20 20 54 63 6c 5f 52 65 73 65 74  .+.    Tcl_Reset
2600: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
2610: 20 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64   .    Tcl_Append
2620: 53 74 72 69 6e 67 73 54 6f 4f 62 6a 28 54 63 6c  StringsToObj(Tcl
2630: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _GetObjResult(in
2640: 74 65 72 70 29 2c 0a 2d 09 09 20 20 20 20 22 62  terp),.-..    "b
2650: 61 64 20 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 6f  ad option \"", o
2660: 70 74 69 6f 6e 2c 0a 2d 09 09 20 20 20 20 22 5c  ption,.-..    "\
2670: 22 3a 20 6d 75 73 74 20 62 65 20 2d 63 6f 64 65  ": must be -code
2680: 2c 20 2d 65 72 72 6f 72 63 6f 64 65 2c 20 6f 72  , -errorcode, or
2690: 20 2d 65 72 72 6f 72 69 6e 66 6f 22 2c 0a 2d 09   -errorinfo",.-.
26a0: 09 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55  .    (char *) NU
26b0: 4c 4c 29 3b 0a 2b 09 09 20 20 20 20 22 62 61 64  LL);.+..    "bad
26c0: 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 6f 64 65   completion code
26d0: 20 5c 22 22 2c 0a 2b 09 09 20 20 20 20 54 63 6c   \"",.+..    Tcl
26e0: 5f 47 65 74 53 74 72 69 6e 67 28 76 61 6c 75 65  _GetString(value
26f0: 50 74 72 29 2c 0a 2b 09 09 20 20 20 20 22 5c 22  Ptr),.+..    "\"
2700: 3a 20 6d 75 73 74 20 62 65 20 6f 6b 2c 20 65 72  : must be ok, er
2710: 72 6f 72 2c 20 72 65 74 75 72 6e 2c 20 62 72 65  ror, return, bre
2720: 61 6b 2c 20 22 2c 0a 2b 09 09 20 20 20 20 22 63  ak, ",.+..    "c
2730: 6f 6e 74 69 6e 75 65 2c 20 6f 72 20 61 6e 20 69  ontinue, or an i
2740: 6e 74 65 67 65 72 22 2c 20 28 63 68 61 72 20 2a  nteger", (char *
2750: 29 20 4e 55 4c 4c 29 3b 0a 20 09 20 20 20 20 72  ) NULL);. .    r
2760: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
2770: 0a 20 09 7d 0a 2b 09 2f 2a 20 48 61 76 65 20 61  . .}.+./* Have a
2780: 20 6c 65 67 61 6c 20 73 74 72 69 6e 67 20 76 61   legal string va
2790: 6c 75 65 20 66 6f 72 20 61 20 72 65 74 75 72 6e  lue for a return
27a0: 20 63 6f 64 65 3b 20 63 6f 6e 76 65 72 74 20 74   code; convert t
27b0: 6f 20 69 6e 74 65 67 65 72 20 2a 2f 0a 2b 09 54  o integer */.+.T
27c0: 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55  cl_DictObjPut(NU
27d0: 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e  LL, iPtr->return
27e0: 4f 70 74 73 2c 0a 2b 09 09 69 50 74 72 2d 3e 72  Opts,.+..iPtr->r
27f0: 65 74 75 72 6e 43 6f 64 65 4b 65 79 2c 20 54 63  eturnCodeKey, Tc
2800: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 63 6f 64 65  l_NewIntObj(code
2810: 29 29 3b 0a 20 20 20 20 20 7d 0a 2d 20 20 20 20  ));.     }.-    
2820: 0a 2d 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d  .-    if (objc =
2830: 3d 20 31 29 20 7b 0a 2d 09 2f 2a 0a 2d 09 20 2a  = 1) {.-./*.-. *
2840: 20 53 65 74 20 74 68 65 20 69 6e 74 65 72 70 72   Set the interpr
2850: 65 74 65 72 27 73 20 6f 62 6a 65 63 74 20 72 65  eter's object re
2860: 73 75 6c 74 2e 20 41 6e 20 69 6e 6c 69 6e 65 20  sult. An inline 
2870: 76 65 72 73 69 6f 6e 20 6f 66 0a 2d 09 20 2a 20  version of.-. * 
2880: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
2890: 2e 0a 2d 09 20 2a 2f 0a 20 0a 2b 20 20 20 20 2f  ..-. */. .+    /
28a0: 2a 20 43 68 65 63 6b 20 66 6f 72 20 62 6f 67 75  * Check for bogu
28b0: 73 20 2d 6c 65 76 65 6c 20 76 61 6c 75 65 20 2a  s -level value *
28c0: 2f 0a 2b 20 20 20 20 54 63 6c 5f 44 69 63 74 4f  /.+    Tcl_DictO
28d0: 62 6a 47 65 74 28 4e 55 4c 4c 2c 20 69 50 74 72  bjGet(NULL, iPtr
28e0: 2d 3e 72 65 74 75 72 6e 4f 70 74 73 2c 20 69 50  ->returnOpts, iP
28f0: 74 72 2d 3e 72 65 74 75 72 6e 4c 65 76 65 6c 4b  tr->returnLevelK
2900: 65 79 2c 20 26 76 61 6c 75 65 50 74 72 29 3b 0a  ey, &valuePtr);.
2910: 2b 20 20 20 20 69 66 20 28 54 43 4c 5f 45 52 52  +    if (TCL_ERR
2920: 4f 52 20 3d 3d 20 54 63 6c 5f 47 65 74 49 6e 74  OR == Tcl_GetInt
2930: 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61  FromObj(NULL, va
2940: 6c 75 65 50 74 72 2c 20 26 6c 65 76 65 6c 29 20  luePtr, &level) 
2950: 7c 7c 20 28 6c 65 76 65 6c 20 3c 20 30 29 29 20  || (level < 0)) 
2960: 7b 0a 2b 09 2f 2a 20 56 61 6c 75 65 20 69 73 20  {.+./* Value is 
2970: 6e 6f 74 20 61 20 6c 65 67 61 6c 20 6c 65 76 65  not a legal leve
2980: 6c 20 2a 2f 0a 2b 09 54 63 6c 5f 44 65 63 72 52  l */.+.Tcl_DecrR
2990: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
29a0: 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 69 50 74  turnOpts);.+.iPt
29b0: 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20 3d 20  r->returnOpts = 
29c0: 69 50 74 72 2d 3e 64 65 66 61 75 6c 74 52 65 74  iPtr->defaultRet
29d0: 75 72 6e 4f 70 74 73 3b 0a 2b 09 54 63 6c 5f 49  urnOpts;.+.Tcl_I
29e0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72  ncrRefCount(iPtr
29f0: 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a 2b  ->returnOpts);.+
2a00: 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74  .Tcl_ResetResult
2a10: 28 69 6e 74 65 72 70 29 3b 0a 2b 09 54 63 6c 5f  (interp);.+.Tcl_
2a20: 41 70 70 65 6e 64 53 74 72 69 6e 67 73 54 6f 4f  AppendStringsToO
2a30: 62 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73  bj(Tcl_GetObjRes
2a40: 75 6c 74 28 69 6e 74 65 72 70 29 2c 0a 2b 09 09  ult(interp),.+..
2a50: 22 62 61 64 20 2d 6c 65 76 65 6c 20 76 61 6c 75  "bad -level valu
2a60: 65 3a 20 65 78 70 65 63 74 65 64 20 6e 6f 6e 2d  e: expected non-
2a70: 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72  negative integer
2a80: 20 62 75 74 20 67 6f 74 20 5c 22 22 2c 0a 2b 09   but got \"",.+.
2a90: 09 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 76  .Tcl_GetString(v
2aa0: 61 6c 75 65 50 74 72 29 2c 20 22 5c 22 22 2c 20  aluePtr), "\"", 
2ab0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
2ac0: 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  +.return TCL_ERR
2ad0: 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20  OR;.+    }.+.+  
2ae0: 20 20 2f 2a 20 0a 2b 20 20 20 20 20 2a 20 43 6f    /* .+     * Co
2af0: 6e 76 65 72 74 20 5b 72 65 74 75 72 6e 20 2d 63  nvert [return -c
2b00: 6f 64 65 20 72 65 74 75 72 6e 20 2d 6c 65 76 65  ode return -leve
2b10: 6c 20 58 5d 20 74 6f 0a 2b 20 20 20 20 20 2a 20  l X] to.+     * 
2b20: 5b 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 6f 6b  [return -code ok
2b30: 20 2d 6c 65 76 65 6c 20 58 2b 31 5d 0a 2b 20 20   -level X+1].+  
2b40: 20 20 20 2a 2f 0a 2b 20 20 20 20 69 66 20 28 63     */.+    if (c
2b50: 6f 64 65 20 3d 3d 20 54 43 4c 5f 52 45 54 55 52  ode == TCL_RETUR
2b60: 4e 29 20 7b 0a 2b 09 6c 65 76 65 6c 2b 2b 3b 0a  N) {.+.level++;.
2b70: 2b 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74  +.Tcl_DictObjPut
2b80: 28 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74  (NULL, iPtr->ret
2b90: 75 72 6e 4f 70 74 73 2c 0a 2b 09 09 69 50 74 72  urnOpts,.+..iPtr
2ba0: 2d 3e 72 65 74 75 72 6e 4c 65 76 65 6c 4b 65 79  ->returnLevelKey
2bb0: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
2bc0: 6c 65 76 65 6c 29 29 3b 0a 2b 09 54 63 6c 5f 44  level));.+.Tcl_D
2bd0: 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20  ictObjPut(NULL, 
2be0: 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73  iPtr->returnOpts
2bf0: 2c 0a 2b 09 09 69 50 74 72 2d 3e 72 65 74 75 72  ,.+..iPtr->retur
2c00: 6e 43 6f 64 65 4b 65 79 2c 20 54 63 6c 5f 4e 65  nCodeKey, Tcl_Ne
2c10: 77 49 6e 74 4f 62 6a 28 54 43 4c 5f 4f 4b 29 29  wIntObj(TCL_OK))
2c20: 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20  ;.+    }.+.+    
2c30: 69 66 20 28 6c 65 76 65 6c 20 3d 3d 20 30 29 20  if (level == 0) 
2c40: 7b 0a 2b 09 69 66 20 28 63 6f 64 65 20 3d 3d 20  {.+.if (code == 
2c50: 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 2b 09 20  TCL_ERROR) {.+. 
2c60: 20 20 20 76 61 6c 75 65 50 74 72 20 3d 20 4e 55     valuePtr = NU
2c70: 4c 4c 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 69  LL;.+.    Tcl_Di
2c80: 63 74 4f 62 6a 47 65 74 28 4e 55 4c 4c 2c 20 69  ctObjGet(NULL, i
2c90: 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 2c  Ptr->returnOpts,
2ca0: 0a 2b 09 09 20 20 20 20 69 50 74 72 2d 3e 72 65  .+..    iPtr->re
2cb0: 74 75 72 6e 45 72 72 6f 72 69 6e 66 6f 4b 65 79  turnErrorinfoKey
2cc0: 2c 20 26 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09  , &valuePtr);.+.
2cd0: 20 20 20 20 69 66 20 28 76 61 6c 75 65 50 74 72      if (valuePtr
2ce0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 69   != NULL) {.+..i
2cf0: 6e 74 20 69 6e 66 6f 4c 65 6e 3b 0a 2b 09 09 43  nt infoLen;.+..C
2d00: 4f 4e 53 54 20 63 68 61 72 20 2a 69 6e 66 6f 20  ONST char *info 
2d10: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
2d20: 72 6f 6d 4f 62 6a 28 76 61 6c 75 65 50 74 72 2c  romObj(valuePtr,
2d30: 26 69 6e 66 6f 4c 65 6e 29 3b 0a 2b 09 09 69 66  &infoLen);.+..if
2d40: 20 28 69 6e 66 6f 4c 65 6e 29 20 7b 0a 2b 09 09   (infoLen) {.+..
2d50: 20 20 20 20 54 63 6c 5f 41 64 64 4f 62 6a 45 72      Tcl_AddObjEr
2d60: 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20  rorInfo(interp, 
2d70: 69 6e 66 6f 2c 20 69 6e 66 6f 4c 65 6e 29 3b 0a  info, infoLen);.
2d80: 2b 09 09 20 20 20 20 69 50 74 72 2d 3e 66 6c 61  +..    iPtr->fla
2d90: 67 73 20 7c 3d 20 45 52 52 5f 41 4c 52 45 41 44  gs |= ERR_ALREAD
2da0: 59 5f 4c 4f 47 47 45 44 3b 0a 2b 09 09 7d 0a 2b  Y_LOGGED;.+..}.+
2db0: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 76 61 6c  .    }.+.    val
2dc0: 75 65 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 09  uePtr = NULL;.+.
2dd0: 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47      Tcl_DictObjG
2de0: 65 74 28 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72  et(NULL, iPtr->r
2df0: 65 74 75 72 6e 4f 70 74 73 2c 0a 2b 09 09 20 20  eturnOpts,.+..  
2e00: 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 45 72    iPtr->returnEr
2e10: 72 6f 72 63 6f 64 65 4b 65 79 2c 20 26 76 61 6c  rorcodeKey, &val
2e20: 75 65 50 74 72 29 3b 0a 2b 09 20 20 20 20 69 66  uePtr);.+.    if
2e30: 20 28 76 61 6c 75 65 50 74 72 20 21 3d 20 4e 55   (valuePtr != NU
2e40: 4c 4c 29 20 7b 0a 2b 09 09 54 63 6c 5f 53 65 74  LL) {.+..Tcl_Set
2e50: 56 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20 22  Var2Ex(interp, "
2e60: 65 72 72 6f 72 43 6f 64 65 22 2c 20 4e 55 4c 4c  errorCode", NULL
2e70: 2c 0a 2b 09 09 09 76 61 6c 75 65 50 74 72 2c 20  ,.+...valuePtr, 
2e80: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2e90: 3b 0a 2b 09 09 69 50 74 72 2d 3e 66 6c 61 67 73  ;.+..iPtr->flags
2ea0: 20 7c 3d 20 45 52 52 4f 52 5f 43 4f 44 45 5f 53   |= ERROR_CODE_S
2eb0: 45 54 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d 0a  ET;.+.    }.+.}.
2ec0: 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09  +    } else {.+.
2ed0: 63 6f 64 65 20 3d 20 54 43 4c 5f 52 45 54 55 52  code = TCL_RETUR
2ee0: 4e 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20  N;.+    }.+.+   
2ef0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20   if (objc == 1) 
2f00: 7b 0a 20 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65  {. .Tcl_SetObjRe
2f10: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a  sult(interp, obj
2f20: 76 5b 30 5d 29 3b 0a 20 20 20 20 20 7d 0a 2d 20  v[0]);.     }.- 
2f30: 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 43     iPtr->returnC
2f40: 6f 64 65 20 3d 20 63 6f 64 65 3b 0a 2d 20 20 20  ode = code;.-   
2f50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 52 45 54 55   return TCL_RETU
2f60: 52 4e 3b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20  RN;.+    return 
2f70: 63 6f 64 65 3b 0a 2b 0a 20 7d 0a 20 0c 0a 20 2f  code;.+. }. .. /
2f80: 2a 0a 40 40 20 2d 33 38 35 33 2c 37 20 2b 33 39  *.@@ -3853,7 +39
2f90: 32 37 2c 37 20 40 40 0a 20 09 09 09 09 20 2a 20  27,7 @@. .... * 
2fa0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 2a 2f 0a  information. */.
2fb0: 20 7b 0a 20 20 20 20 20 49 6e 74 65 72 70 20 2a   {.     Interp *
2fc0: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a  iPtr = (Interp *
2fd0: 29 20 69 6e 74 65 72 70 3b 0a 2d 20 20 20 20 69  ) interp;.-    i
2fe0: 6e 74 20 73 74 61 74 65 43 6f 64 65 3b 0a 2b 20  nt stateCode;.+ 
2ff0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 74 61 74     Tcl_Obj *stat
3000: 65 52 65 74 75 72 6e 4f 70 74 73 3b 0a 20 20 20  eReturnOpts;.   
3010: 20 20 54 63 6c 5f 53 61 76 65 64 52 65 73 75 6c    Tcl_SavedResul
3020: 74 20 73 74 61 74 65 3b 0a 20 20 20 20 20 54 72  t state;.     Tr
3030: 61 63 65 43 6f 6d 6d 61 6e 64 49 6e 66 6f 20 2a  aceCommandInfo *
3040: 74 63 6d 64 50 74 72 20 3d 20 28 54 72 61 63 65  tcmdPtr = (Trace
3050: 43 6f 6d 6d 61 6e 64 49 6e 66 6f 20 2a 29 20 63  CommandInfo *) c
3060: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 20  lientData;.     
3070: 69 6e 74 20 63 6f 64 65 3b 0a 40 40 20 2d 33 38  int code;.@@ -38
3080: 37 39 2c 37 20 2b 33 39 35 33 2c 37 20 40 40 0a  79,7 +3953,7 @@.
3090: 20 0a 20 09 2f 2a 0a 20 09 20 2a 20 45 78 65 63   . ./*. . * Exec
30a0: 75 74 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2e  ute the command.
30b0: 20 20 53 61 76 65 20 74 68 65 20 69 6e 74 65 72    Save the inter
30c0: 70 27 73 20 72 65 73 75 6c 74 20 75 73 65 64 20  p's result used 
30d0: 66 6f 72 20 74 68 65 0a 2d 09 20 2a 20 63 6f 6d  for the.-. * com
30e0: 6d 61 6e 64 2c 20 69 6e 63 6c 75 64 69 6e 67 20  mand, including 
30f0: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 69 50 74  the value of iPt
3100: 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65 20 77 68  r->returnCode wh
3110: 69 63 68 20 6d 61 79 20 62 65 0a 2b 09 20 2a 20  ich may be.+. * 
3120: 63 6f 6d 6d 61 6e 64 2c 20 69 6e 63 6c 75 64 69  command, includi
3130: 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20  ng the value of 
3140: 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73  iPtr->returnOpts
3150: 20 77 68 69 63 68 20 6d 61 79 20 62 65 0a 20 09   which may be. .
3160: 20 2a 20 6d 6f 64 69 66 69 65 64 20 77 68 65 6e   * modified when
3170: 20 54 63 6c 5f 45 76 61 6c 20 69 73 20 69 6e 76   Tcl_Eval is inv
3180: 6f 6b 65 64 2e 20 57 65 20 64 69 73 63 61 72 64  oked. We discard
3190: 20 61 6e 79 20 6f 62 6a 65 63 74 0a 20 09 20 2a   any object. . *
31a0: 20 72 65 73 75 6c 74 20 74 68 65 20 63 6f 6d 6d   result the comm
31b0: 61 6e 64 20 72 65 74 75 72 6e 73 2e 0a 20 09 20  and returns.. . 
31c0: 2a 0a 40 40 20 2d 33 38 38 39 2c 37 20 2b 33 39  *.@@ -3889,7 +39
31d0: 36 33 2c 38 20 40 40 0a 20 09 20 2a 2f 0a 20 0a  63,8 @@. . */. .
31e0: 20 09 54 63 6c 5f 53 61 76 65 52 65 73 75 6c 74   .Tcl_SaveResult
31f0: 28 69 6e 74 65 72 70 2c 20 26 73 74 61 74 65 29  (interp, &state)
3200: 3b 0a 2d 09 73 74 61 74 65 43 6f 64 65 20 3d 20  ;.-.stateCode = 
3210: 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64 65  iPtr->returnCode
3220: 3b 0a 2b 09 73 74 61 74 65 52 65 74 75 72 6e 4f  ;.+.stateReturnO
3230: 70 74 73 20 3d 20 69 50 74 72 2d 3e 72 65 74 75  pts = iPtr->retu
3240: 72 6e 4f 70 74 73 3b 0a 2b 09 54 63 6c 5f 49 6e  rnOpts;.+.Tcl_In
3250: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65  crRefCount(state
3260: 52 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 09 69  ReturnOpts);. .i
3270: 66 20 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 54  f (flags & TCL_T
3280: 52 41 43 45 5f 44 45 53 54 52 4f 59 45 44 29 20  RACE_DESTROYED) 
3290: 7b 0a 20 09 20 20 20 20 74 63 6d 64 50 74 72 2d  {. .    tcmdPtr-
32a0: 3e 66 6c 61 67 73 20 7c 3d 20 54 43 4c 5f 54 52  >flags |= TCL_TR
32b0: 41 43 45 5f 44 45 53 54 52 4f 59 45 44 3b 0a 20  ACE_DESTROYED;. 
32c0: 09 7d 0a 40 40 20 2d 33 39 30 31 2c 37 20 2b 33  .}.@@ -3901,7 +3
32d0: 39 37 36 2c 31 32 20 40 40 0a 20 09 7d 0a 20 0a  976,12 @@. .}. .
32e0: 20 09 54 63 6c 5f 52 65 73 74 6f 72 65 52 65 73   .Tcl_RestoreRes
32f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 26 73 74 61  ult(interp, &sta
3300: 74 65 29 3b 0a 2d 09 69 50 74 72 2d 3e 72 65 74  te);.-.iPtr->ret
3310: 75 72 6e 43 6f 64 65 20 3d 20 73 74 61 74 65 43  urnCode = stateC
3320: 6f 64 65 3b 0a 2b 09 69 66 20 28 69 50 74 72 2d  ode;.+.if (iPtr-
3330: 3e 72 65 74 75 72 6e 4f 70 74 73 20 21 3d 20 73  >returnOpts != s
3340: 74 61 74 65 52 65 74 75 72 6e 4f 70 74 73 29 20  tateReturnOpts) 
3350: 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 65 63 72  {.+.    Tcl_Decr
3360: 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72  RefCount(iPtr->r
3370: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 20 20  eturnOpts);.+.  
3380: 20 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70    iPtr->returnOp
3390: 74 73 20 3d 20 73 74 61 74 65 52 65 74 75 72 6e  ts = stateReturn
33a0: 4f 70 74 73 3b 0a 2b 09 20 20 20 20 54 63 6c 5f  Opts;.+.    Tcl_
33b0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74  IncrRefCount(iPt
33c0: 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a  r->returnOpts);.
33d0: 2b 09 7d 0a 2b 09 54 63 6c 5f 44 65 63 72 52 65  +.}.+.Tcl_DecrRe
33e0: 66 43 6f 75 6e 74 28 73 74 61 74 65 52 65 74 75  fCount(stateRetu
33f0: 72 6e 4f 70 74 73 29 3b 0a 20 09 0a 20 09 54 63  rnOpts);. .. .Tc
3400: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 63  l_DStringFree(&c
3410: 6d 64 29 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d  md);.     }.@@ -
3420: 34 33 30 34 2c 37 20 2b 34 33 38 34 2c 37 20 40  4304,7 +4384,7 @
3430: 40 0a 20 09 20 2a 2f 0a 20 09 69 66 20 28 63 61  @. . */. .if (ca
3440: 6c 6c 29 20 7b 0a 20 09 20 20 20 20 54 63 6c 5f  ll) {. .    Tcl_
3450: 53 61 76 65 64 52 65 73 75 6c 74 20 73 74 61 74  SavedResult stat
3460: 65 3b 0a 2d 09 20 20 20 20 69 6e 74 20 73 74 61  e;.-.    int sta
3470: 74 65 43 6f 64 65 3b 0a 2b 09 20 20 20 20 54 63  teCode;.+.    Tc
3480: 6c 5f 4f 62 6a 20 2a 73 74 61 74 65 52 65 74 75  l_Obj *stateRetu
3490: 72 6e 4f 70 74 73 3b 0a 20 09 20 20 20 20 54 63  rnOpts;. .    Tc
34a0: 6c 5f 44 53 74 72 69 6e 67 20 63 6d 64 3b 0a 20  l_DString cmd;. 
34b0: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
34c0: 20 73 75 62 3b 0a 20 09 20 20 20 20 69 6e 74 20   sub;. .    int 
34d0: 69 3b 0a 40 40 20 2d 34 33 35 33 2c 31 33 20 2b  i;.@@ -4353,13 +
34e0: 34 34 33 33 2c 31 34 20 40 40 0a 20 09 20 20 20  4433,14 @@. .   
34f0: 20 0a 20 09 20 20 20 20 2f 2a 0a 20 09 20 20 20   . .    /*. .   
3500: 20 20 2a 20 45 78 65 63 75 74 65 20 74 68 65 20    * Execute the 
3510: 63 6f 6d 6d 61 6e 64 2e 20 20 53 61 76 65 20 74  command.  Save t
3520: 68 65 20 69 6e 74 65 72 70 27 73 20 72 65 73 75  he interp's resu
3530: 6c 74 20 75 73 65 64 20 66 6f 72 0a 2d 09 20 20  lt used for.-.  
3540: 20 20 20 2a 20 74 68 65 20 63 6f 6d 6d 61 6e 64     * the command
3550: 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20  , including the 
3560: 76 61 6c 75 65 20 6f 66 20 69 50 74 72 2d 3e 72  value of iPtr->r
3570: 65 74 75 72 6e 43 6f 64 65 20 77 68 69 63 68 0a  eturnCode which.
3580: 2b 09 20 20 20 20 20 2a 20 74 68 65 20 63 6f 6d  +.     * the com
3590: 6d 61 6e 64 2c 20 69 6e 63 6c 75 64 69 6e 67 20  mand, including 
35a0: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 69 50 74  the value of iPt
35b0: 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20 77 68  r->returnOpts wh
35c0: 69 63 68 0a 20 09 20 20 20 20 20 2a 20 6d 61 79  ich. .     * may
35d0: 20 62 65 20 6d 6f 64 69 66 69 65 64 20 77 68 65   be modified whe
35e0: 6e 20 54 63 6c 5f 45 76 61 6c 20 69 73 20 69 6e  n Tcl_Eval is in
35f0: 76 6f 6b 65 64 2e 20 20 57 65 20 64 69 73 63 61  voked.  We disca
3600: 72 64 20 61 6e 79 0a 20 09 20 20 20 20 20 2a 20  rd any. .     * 
3610: 6f 62 6a 65 63 74 20 72 65 73 75 6c 74 20 74 68  object result th
3620: 65 20 63 6f 6d 6d 61 6e 64 20 72 65 74 75 72 6e  e command return
3630: 73 2e 0a 20 09 20 20 20 20 20 2a 2f 0a 20 0a 20  s.. .     */. . 
3640: 09 20 20 20 20 54 63 6c 5f 53 61 76 65 52 65 73  .    Tcl_SaveRes
3650: 75 6c 74 28 69 6e 74 65 72 70 2c 20 26 73 74 61  ult(interp, &sta
3660: 74 65 29 3b 0a 2d 09 20 20 20 20 73 74 61 74 65  te);.-.    state
3670: 43 6f 64 65 20 3d 20 69 50 74 72 2d 3e 72 65 74  Code = iPtr->ret
3680: 75 72 6e 43 6f 64 65 3b 0a 2b 09 20 20 20 20 73  urnCode;.+.    s
3690: 74 61 74 65 52 65 74 75 72 6e 4f 70 74 73 20 3d  tateReturnOpts =
36a0: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74   iPtr->returnOpt
36b0: 73 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 49 6e 63  s;.+.    Tcl_Inc
36c0: 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 52  rRefCount(stateR
36d0: 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 0a 20 09  eturnOpts);. . .
36e0: 20 20 20 20 74 63 6d 64 50 74 72 2d 3e 66 6c 61      tcmdPtr->fla
36f0: 67 73 20 7c 3d 20 54 43 4c 5f 54 52 41 43 45 5f  gs |= TCL_TRACE_
3700: 45 58 45 43 5f 49 4e 5f 50 52 4f 47 52 45 53 53  EXEC_IN_PROGRESS
3710: 3b 0a 20 09 20 20 20 20 69 50 74 72 2d 3e 66 6c  ;. .    iPtr->fl
3720: 61 67 73 20 20 20 20 7c 3d 20 49 4e 54 45 52 50  ags    |= INTERP
3730: 5f 54 52 41 43 45 5f 49 4e 5f 50 52 4f 47 52 45  _TRACE_IN_PROGRE
3740: 53 53 3b 0a 40 40 20 2d 34 33 37 39 2c 31 30 20  SS;.@@ -4379,10 
3750: 2b 34 34 36 30 2c 31 35 20 40 40 0a 20 20 20 20  +4460,15 @@.    
3760: 20 20 20 20 20 20 20 20 20 69 66 20 28 74 72 61           if (tra
3770: 63 65 43 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f 4b  ceCode == TCL_OK
3780: 29 20 7b 0a 20 09 09 2f 2a 20 52 65 73 74 6f 72  ) {. ../* Restor
3790: 65 20 72 65 73 75 6c 74 20 69 66 20 74 72 61 63  e result if trac
37a0: 65 20 65 78 65 63 75 74 69 6f 6e 20 77 61 73 20  e execution was 
37b0: 73 75 63 63 65 73 73 66 75 6c 20 2a 2f 0a 20 09  successful */. .
37c0: 09 54 63 6c 5f 52 65 73 74 6f 72 65 52 65 73 75  .Tcl_RestoreResu
37d0: 6c 74 28 69 6e 74 65 72 70 2c 20 26 73 74 61 74  lt(interp, &stat
37e0: 65 29 3b 0a 2d 09 09 69 50 74 72 2d 3e 72 65 74  e);.-..iPtr->ret
37f0: 75 72 6e 43 6f 64 65 20 3d 20 73 74 61 74 65 43  urnCode = stateC
3800: 6f 64 65 3b 0a 2b 09 09 69 66 20 28 69 50 74 72  ode;.+..if (iPtr
3810: 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20 21 3d 20  ->returnOpts != 
3820: 73 74 61 74 65 52 65 74 75 72 6e 4f 70 74 73 29  stateReturnOpts)
3830: 20 7b 0a 2b 09 09 20 20 20 20 54 63 6c 5f 44 65   {.+..    Tcl_De
3840: 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74 72 2d  crRefCount(iPtr-
3850: 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09  >returnOpts);.+.
3860: 09 20 20 20 20 69 50 74 72 2d 3e 72 65 74 75 72  .    iPtr->retur
3870: 6e 4f 70 74 73 20 3d 20 73 74 61 74 65 52 65 74  nOpts = stateRet
3880: 75 72 6e 4f 70 74 73 3b 0a 2b 09 09 20 20 20 20  urnOpts;.+..    
3890: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
38a0: 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74  (iPtr->returnOpt
38b0: 73 29 3b 0a 2b 09 09 7d 0a 20 20 20 20 20 20 20  s);.+..}.       
38c0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
38d0: 09 09 54 63 6c 5f 44 69 73 63 61 72 64 52 65 73  ..Tcl_DiscardRes
38e0: 75 6c 74 28 26 73 74 61 74 65 29 3b 0a 20 09 20  ult(&state);. . 
38f0: 20 20 20 7d 0a 2b 09 20 20 20 20 54 63 6c 5f 44     }.+.    Tcl_D
3900: 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74  ecrRefCount(stat
3910: 65 52 65 74 75 72 6e 4f 70 74 73 29 3b 0a 20 0a  eReturnOpts);. .
3920: 20 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e   .    Tcl_DStrin
3930: 67 46 72 65 65 28 26 63 6d 64 29 3b 0a 20 09 7d  gFree(&cmd);. .}
3940: 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f  .Index: generic/
3950: 74 63 6c 43 6f 6d 70 43 6d 64 73 2e 63 0a 3d 3d  tclCompCmds.c.==
3960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
39a0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73  =.RCS file: /cvs
39b0: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e  root/tcl/tcl/gen
39c0: 65 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d 64 73  eric/tclCompCmds
39d0: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20  .c,v.retrieving 
39e0: 72 65 76 69 73 69 6f 6e 20 31 2e 34 36 0a 64 69  revision 1.46.di
39f0: 66 66 20 2d 75 20 2d 72 31 2e 34 36 20 74 63 6c  ff -u -r1.46 tcl
3a00: 43 6f 6d 70 43 6d 64 73 2e 63 0a 2d 2d 2d 20 67  CompCmds.c.--- g
3a10: 65 6e 65 72 69 63 2f 74 63 6c 43 6f 6d 70 43 6d  eneric/tclCompCm
3a20: 64 73 2e 63 09 37 20 41 70 72 20 32 30 30 33 20  ds.c.7 Apr 2003 
3a30: 32 30 3a 30 30 3a 34 37 20 2d 30 30 30 30 09 31  20:00:47 -0000.1
3a40: 2e 34 36 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f  .46.+++ generic/
3a50: 74 63 6c 43 6f 6d 70 43 6d 64 73 2e 63 09 31 30  tclCompCmds.c.10
3a60: 20 41 70 72 20 32 30 30 33 20 31 37 3a 30 37 3a   Apr 2003 17:07:
3a70: 32 39 20 2d 30 30 30 30 0a 40 40 20 2d 32 34 36  29 -0000.@@ -246
3a80: 2c 31 31 20 2b 32 34 36 2c 31 32 20 40 40 0a 20  ,11 +246,12 @@. 
3a90: 20 20 20 20 69 6e 74 20 63 6f 64 65 3b 0a 20 20      int code;.  
3aa0: 20 20 20 69 6e 74 20 73 61 76 65 64 53 74 61 63     int savedStac
3ab0: 6b 44 65 70 74 68 20 3d 20 65 6e 76 50 74 72 2d  kDepth = envPtr-
3ac0: 3e 63 75 72 72 53 74 61 63 6b 44 65 70 74 68 3b  >currStackDepth;
3ad0: 0a 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20  . .+    /*.+    
3ae0: 20 2a 20 49 66 20 73 79 6e 74 61 78 20 64 6f 65   * If syntax doe
3af0: 73 20 6e 6f 74 20 6d 61 74 63 68 20 77 68 61 74  s not match what
3b00: 20 77 65 20 65 78 70 65 63 74 20 66 6f 72 20 5b   we expect for [
3b10: 63 61 74 63 68 5d 2c 20 64 6f 20 6e 6f 74 0a 2b  catch], do not.+
3b20: 20 20 20 20 20 2a 20 63 6f 6d 70 69 6c 65 2e 20       * compile. 
3b30: 20 4c 65 74 20 72 75 6e 74 69 6d 65 20 63 68 65   Let runtime che
3b40: 63 6b 73 20 64 65 74 65 72 6d 69 6e 65 20 69 66  cks determine if
3b50: 20 73 79 6e 74 61 78 20 68 61 73 20 63 68 61 6e   syntax has chan
3b60: 67 65 64 2e 0a 2b 20 20 20 20 20 2a 2f 0a 20 20  ged..+     */.  
3b70: 20 20 20 69 66 20 28 28 70 61 72 73 65 50 74 72     if ((parsePtr
3b80: 2d 3e 6e 75 6d 57 6f 72 64 73 20 21 3d 20 32 29  ->numWords != 2)
3b90: 20 26 26 20 28 70 61 72 73 65 50 74 72 2d 3e 6e   && (parsePtr->n
3ba0: 75 6d 57 6f 72 64 73 20 21 3d 20 33 29 29 20 7b  umWords != 3)) {
3bb0: 0a 2d 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75  .-.Tcl_ResetResu
3bc0: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 2d 09 54 63  lt(interp);.-.Tc
3bd0: 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 54 63  l_AppendToObj(Tc
3be0: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_GetObjResult(i
3bf0: 6e 74 65 72 70 29 2c 0a 2d 09 20 20 20 20 20 20  nterp),.-.      
3c00: 20 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a    "wrong # args:
3c10: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 63 61 74   should be \"cat
3c20: 63 68 20 63 6f 6d 6d 61 6e 64 20 3f 76 61 72 4e  ch command ?varN
3c30: 61 6d 65 3f 5c 22 22 2c 20 2d 31 29 3b 0a 2d 09  ame?\"", -1);.-.
3c40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
3c50: 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.+.return TCL_O
3c60: 55 54 5f 4c 49 4e 45 5f 43 4f 4d 50 49 4c 45 3b  UT_LINE_COMPILE;
3c70: 0a 20 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 2f  .     }. .     /
3c80: 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63  *.Index: generic
3c90: 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 0a 3d 3d  /tclExecute.c.==
3ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3cd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3ce0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73  =.RCS file: /cvs
3cf0: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e  root/tcl/tcl/gen
3d00: 65 72 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e  eric/tclExecute.
3d10: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72  c,v.retrieving r
3d20: 65 76 69 73 69 6f 6e 20 31 2e 39 37 0a 64 69 66  evision 1.97.dif
3d30: 66 20 2d 75 20 2d 72 31 2e 39 37 20 74 63 6c 45  f -u -r1.97 tclE
3d40: 78 65 63 75 74 65 2e 63 0a 2d 2d 2d 20 67 65 6e  xecute.c.--- gen
3d50: 65 72 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e  eric/tclExecute.
3d60: 63 09 31 20 41 70 72 20 32 30 30 33 20 30 37 3a  c.1 Apr 2003 07:
3d70: 31 38 3a 33 37 20 2d 30 30 30 30 09 31 2e 39 37  18:37 -0000.1.97
3d80: 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c  .+++ generic/tcl
3d90: 45 78 65 63 75 74 65 2e 63 09 31 30 20 41 70 72  Execute.c.10 Apr
3da0: 20 32 30 30 33 20 31 37 3a 30 37 3a 33 30 20 2d   2003 17:07:30 -
3db0: 30 30 30 30 0a 40 40 20 2d 31 30 30 33 2c 36 20  0000.@@ -1003,6 
3dc0: 2b 31 30 30 33 2c 31 31 20 40 40 0a 20 09 20 2a  +1003,11 @@. . *
3dd0: 2f 0a 20 09 0a 20 09 63 6f 64 65 50 74 72 2d 3e  /. .. .codePtr->
3de0: 72 65 66 43 6f 75 6e 74 2b 2b 3b 0a 2b 09 69 66  refCount++;.+.if
3df0: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70   (iPtr->returnOp
3e00: 74 73 20 21 3d 20 69 50 74 72 2d 3e 64 65 66 61  ts != iPtr->defa
3e10: 75 6c 74 52 65 74 75 72 6e 4f 70 74 73 29 20 7b  ultReturnOpts) {
3e20: 0a 2b 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52  .+.    Tcl_DecrR
3e30: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
3e40: 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 20 20 20  turnOpts);.+.   
3e50: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74   iPtr->returnOpt
3e60: 73 20 3d 20 69 50 74 72 2d 3e 64 65 66 61 75 6c  s = iPtr->defaul
3e70: 74 52 65 74 75 72 6e 4f 70 74 73 3b 0a 2b 09 20  tReturnOpts;.+. 
3e80: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
3e90: 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72 6e  unt(iPtr->return
3ea0: 4f 70 74 73 29 3b 0a 2b 09 7d 0a 20 09 69 50 74  Opts);.+.}. .iPt
3eb0: 72 2d 3e 6e 75 6d 4c 65 76 65 6c 73 2b 2b 3b 0a  r->numLevels++;.
3ec0: 20 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 45 78   .result = TclEx
3ed0: 65 63 75 74 65 42 79 74 65 43 6f 64 65 28 69 6e  ecuteByteCode(in
3ee0: 74 65 72 70 2c 20 63 6f 64 65 50 74 72 29 3b 0a  terp, codePtr);.
3ef0: 20 09 69 50 74 72 2d 3e 6e 75 6d 4c 65 76 65 6c   .iPtr->numLevel
3f00: 73 2d 2d 3b 0a 40 40 20 2d 31 32 32 35 2c 37 20  s--;.@@ -1225,7 
3f10: 2b 31 32 33 30 2c 31 31 20 40 40 0a 20 23 65 6e  +1230,11 @@. #en
3f20: 64 69 66 0a 20 20 20 20 20 73 77 69 74 63 68 20  dif.     switch 
3f30: 28 2a 70 63 29 20 7b 0a 20 20 20 20 20 63 61 73  (*pc) {.     cas
3f40: 65 20 49 4e 53 54 5f 52 45 54 55 52 4e 3a 0a 2d  e INST_RETURN:.-
3f50: 09 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64  .iPtr->returnCod
3f60: 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 2b 09 69 66  e = TCL_OK;.+.if
3f70: 20 28 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70   (iPtr->returnOp
3f80: 74 73 20 21 3d 20 69 50 74 72 2d 3e 64 65 66 61  ts != iPtr->defa
3f90: 75 6c 74 52 65 74 75 72 6e 4f 70 74 73 29 20 7b  ultReturnOpts) {
3fa0: 0a 2b 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52  .+.    Tcl_DecrR
3fb0: 65 66 43 6f 75 6e 74 28 69 50 74 72 2d 3e 72 65  efCount(iPtr->re
3fc0: 74 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 20 20 20  turnOpts);.+.   
3fd0: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74   iPtr->returnOpt
3fe0: 73 20 3d 20 69 50 74 72 2d 3e 64 65 66 61 75 6c  s = iPtr->defaul
3ff0: 74 52 65 74 75 72 6e 4f 70 74 73 3b 0a 2b 09 20  tReturnOpts;.+. 
4000: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
4010: 75 6e 74 28 69 50 74 72 2d 3e 72 65 74 75 72 6e  unt(iPtr->return
4020: 4f 70 74 73 29 3b 0a 2b 09 7d 0a 20 09 72 65 73  Opts);.+.}. .res
4030: 75 6c 74 20 3d 20 54 43 4c 5f 52 45 54 55 52 4e  ult = TCL_RETURN
4040: 3b 0a 20 20 20 20 20 63 61 73 65 20 49 4e 53 54  ;.     case INST
4050: 5f 44 4f 4e 45 3a 0a 20 09 69 66 20 28 73 74 61  _DONE:. .if (sta
4060: 63 6b 54 6f 70 20 3c 3d 20 69 6e 69 74 53 74 61  ckTop <= initSta
4070: 63 6b 54 6f 70 29 20 7b 0a 49 6e 64 65 78 3a 20  ckTop) {.Index: 
4080: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68  generic/tclInt.h
4090: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .===============
40a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
40b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
40c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
40d0: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f  ====.RCS file: /
40e0: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f  cvsroot/tcl/tcl/
40f0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68  generic/tclInt.h
4100: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65  ,v.retrieving re
4110: 76 69 73 69 6f 6e 20 31 2e 31 32 33 0a 64 69 66  vision 1.123.dif
4120: 66 20 2d 75 20 2d 72 31 2e 31 32 33 20 74 63 6c  f -u -r1.123 tcl
4130: 49 6e 74 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69  Int.h.--- generi
4140: 63 2f 74 63 6c 49 6e 74 2e 68 09 35 20 41 70 72  c/tclInt.h.5 Apr
4150: 20 32 30 30 33 20 30 31 3a 34 31 3a 32 33 20 2d   2003 01:41:23 -
4160: 30 30 30 30 09 31 2e 31 32 33 0a 2b 2b 2b 20 67  0000.1.123.+++ g
4170: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09  eneric/tclInt.h.
4180: 31 30 20 41 70 72 20 32 30 30 33 20 31 37 3a 30  10 Apr 2003 17:0
4190: 37 3a 33 30 20 2d 30 30 30 30 0a 40 40 20 2d 31  7:30 -0000.@@ -1
41a0: 32 30 36 2c 31 32 20 2b 31 32 30 36 2c 39 20 40  206,12 +1206,9 @
41b0: 40 0a 20 20 20 20 20 41 63 74 69 76 65 56 61 72  @.     ActiveVar
41c0: 54 72 61 63 65 20 2a 61 63 74 69 76 65 56 61 72  Trace *activeVar
41d0: 54 72 61 63 65 50 74 72 3b 0a 20 09 09 09 09 2f  TracePtr;. ..../
41e0: 2a 20 46 69 72 73 74 20 69 6e 20 6c 69 73 74 20  * First in list 
41f0: 6f 66 20 61 63 74 69 76 65 20 74 72 61 63 65 73  of active traces
4200: 20 66 6f 72 0a 20 09 09 09 09 20 2a 20 69 6e 74   for. .... * int
4210: 65 72 70 2c 20 6f 72 20 4e 55 4c 4c 20 69 66 20  erp, or NULL if 
4220: 6e 6f 20 61 63 74 69 76 65 20 74 72 61 63 65 73  no active traces
4230: 2e 20 2a 2f 0a 2d 20 20 20 20 69 6e 74 20 72 65  . */.-    int re
4240: 74 75 72 6e 43 6f 64 65 3b 09 09 2f 2a 20 43 6f  turnCode;../* Co
4250: 6d 70 6c 65 74 69 6f 6e 20 63 6f 64 65 20 74 6f  mpletion code to
4260: 20 72 65 74 75 72 6e 20 69 66 20 63 75 72 72 65   return if curre
4270: 6e 74 0a 2d 09 09 09 09 20 2a 20 70 72 6f 63 65  nt.-.... * proce
4280: 64 75 72 65 20 65 78 69 74 73 20 77 69 74 68 20  dure exits with 
4290: 54 43 4c 5f 52 45 54 55 52 4e 20 63 6f 64 65 2e  TCL_RETURN code.
42a0: 20 2a 2f 0a 2d 20 20 20 20 63 68 61 72 20 2a 65   */.-    char *e
42b0: 72 72 6f 72 49 6e 66 6f 3b 09 09 2f 2a 20 56 61  rrorInfo;../* Va
42c0: 6c 75 65 20 74 6f 20 73 74 6f 72 65 20 69 6e 20  lue to store in 
42d0: 65 72 72 6f 72 49 6e 66 6f 20 69 66 20 72 65 74  errorInfo if ret
42e0: 75 72 6e 43 6f 64 65 0a 2d 09 09 09 09 20 2a 20  urnCode.-.... * 
42f0: 69 73 20 54 43 4c 5f 45 52 52 4f 52 2e 20 20 4d  is TCL_ERROR.  M
4300: 61 6c 6c 6f 63 27 65 64 2c 20 6d 61 79 20 62 65  alloc'ed, may be
4310: 20 4e 55 4c 4c 20 2a 2f 0a 2d 20 20 20 20 63 68   NULL */.-    ch
4320: 61 72 20 2a 65 72 72 6f 72 43 6f 64 65 3b 09 09  ar *errorCode;..
4330: 2f 2a 20 56 61 6c 75 65 20 74 6f 20 73 74 6f 72  /* Value to stor
4340: 65 20 69 6e 20 65 72 72 6f 72 43 6f 64 65 20 69  e in errorCode i
4350: 66 20 72 65 74 75 72 6e 43 6f 64 65 0a 2d 09 09  f returnCode.-..
4360: 09 09 20 2a 20 69 73 20 54 43 4c 5f 45 52 52 4f  .. * is TCL_ERRO
4370: 52 2e 20 20 4d 61 6c 6c 6f 63 27 65 64 2c 20 6d  R.  Malloc'ed, m
4380: 61 79 20 62 65 20 4e 55 4c 4c 20 2a 2f 0a 2b 20  ay be NULL */.+ 
4390: 20 20 20 69 6e 74 20 75 6e 75 73 65 64 32 3b 09     int unused2;.
43a0: 09 2f 2a 20 4e 6f 20 6c 6f 6e 67 65 72 20 75 73  ./* No longer us
43b0: 65 64 20 28 77 61 73 20 72 65 74 75 72 6e 43 6f  ed (was returnCo
43c0: 64 65 29 20 2a 2f 0a 2b 20 20 20 20 63 68 61 72  de) */.+    char
43d0: 20 2a 75 6e 75 73 65 64 33 3b 09 09 2f 2a 20 4e   *unused3;../* N
43e0: 6f 20 6c 6f 6e 67 65 72 20 75 73 65 64 20 28 77  o longer used (w
43f0: 61 73 20 65 72 72 6f 72 49 6e 66 6f 29 20 2a 2f  as errorInfo) */
4400: 0a 2b 20 20 20 20 63 68 61 72 20 2a 75 6e 75 73  .+    char *unus
4410: 65 64 34 3b 09 09 2f 2a 20 4e 6f 20 6c 6f 6e 67  ed4;../* No long
4420: 65 72 20 75 73 65 64 20 28 77 61 73 20 65 72 72  er used (was err
4430: 6f 72 43 6f 64 65 29 20 2a 2f 0a 20 0a 20 20 20  orCode) */. .   
4440: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 49 6e 66    /*.      * Inf
4450: 6f 72 6d 61 74 69 6f 6e 20 75 73 65 64 20 62 79  ormation used by
4460: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
4470: 74 20 74 6f 20 6b 65 65 70 20 74 72 61 63 6b 20  t to keep track 
4480: 6f 66 20 70 61 72 74 69 61 6c 0a 40 40 20 2d 31  of partial.@@ -1
4490: 33 30 35 2c 36 20 2b 31 33 30 32 2c 31 38 20 40  305,6 +1302,18 @
44a0: 40 0a 20 20 20 20 20 69 6e 74 20 74 72 61 63 65  @.     int trace
44b0: 73 46 6f 72 62 69 64 64 69 6e 67 49 6e 6c 69 6e  sForbiddingInlin
44c0: 65 3b 20 2f 2a 20 43 6f 75 6e 74 20 6f 66 20 74  e; /* Count of t
44d0: 72 61 63 65 73 20 28 69 6e 20 74 68 65 20 6c 69  races (in the li
44e0: 73 74 20 68 65 61 64 65 64 20 62 79 0a 20 09 09  st headed by. ..
44f0: 09 09 20 2a 20 74 72 61 63 65 50 74 72 29 20 74  .. * tracePtr) t
4500: 68 61 74 20 66 6f 72 62 69 64 20 69 6e 6c 69 6e  hat forbid inlin
4510: 65 20 62 79 74 65 63 6f 64 65 0a 20 09 09 09 09  e bytecode. ....
4520: 20 2a 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 2a   * compilation *
4530: 2f 0a 2b 0a 2b 20 20 20 20 2f 2a 20 46 69 65 6c  /.+.+    /* Fiel
4540: 64 73 20 75 73 65 64 20 74 6f 20 6d 61 6e 61 67  ds used to manag
4550: 65 20 65 78 74 65 6e 73 69 62 6c 65 20 72 65 74  e extensible ret
4560: 75 72 6e 20 6f 70 74 69 6f 6e 73 20 28 54 49 50  urn options (TIP
4570: 20 39 30 29 20 2a 2f 0a 2b 20 20 20 20 54 63 6c   90) */.+    Tcl
4580: 5f 4f 62 6a 20 2a 72 65 74 75 72 6e 4f 70 74 73  _Obj *returnOpts
4590: 3b 09 2f 2a 20 41 20 64 69 63 74 69 6f 6e 61 72  ;./* A dictionar
45a0: 79 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 6f 70  y holding the op
45b0: 74 69 6f 6e 73 20 74 6f 20 74 68 65 0a 2b 09 09  tions to the.+..
45c0: 09 09 20 2a 20 6c 61 73 74 20 5b 72 65 74 75 72  .. * last [retur
45d0: 6e 5d 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 2b 20  n] command */.+ 
45e0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 64 65 66 61     Tcl_Obj *defa
45f0: 75 6c 74 52 65 74 75 72 6e 4f 70 74 73 3b 20 2f  ultReturnOpts; /
4600: 2a 20 44 65 66 61 75 6c 74 20 5b 72 65 74 75 72  * Default [retur
4610: 6e 5d 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 2b 20  n] options */.+ 
4620: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 74 75     Tcl_Obj *retu
4630: 72 6e 43 6f 64 65 4b 65 79 3b 09 2f 2a 20 68 6f  rnCodeKey;./* ho
4640: 6c 64 73 20 22 2d 63 6f 64 65 22 20 2a 2f 0a 2b  lds "-code" */.+
4650: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 74      Tcl_Obj *ret
4660: 75 72 6e 45 72 72 6f 72 63 6f 64 65 4b 65 79 3b  urnErrorcodeKey;
4670: 09 2f 2a 20 68 6f 6c 64 73 20 22 2d 65 72 72 6f  ./* holds "-erro
4680: 72 63 6f 64 65 22 20 2a 2f 0a 2b 20 20 20 20 54  rcode" */.+    T
4690: 63 6c 5f 4f 62 6a 20 2a 72 65 74 75 72 6e 45 72  cl_Obj *returnEr
46a0: 72 6f 72 69 6e 66 6f 4b 65 79 3b 09 2f 2a 20 68  rorinfoKey;./* h
46b0: 6f 6c 64 73 20 22 2d 65 72 72 6f 72 69 6e 66 6f  olds "-errorinfo
46c0: 22 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62  " */.+    Tcl_Ob
46d0: 6a 20 2a 72 65 74 75 72 6e 45 72 72 6f 72 6c 69  j *returnErrorli
46e0: 6e 65 4b 65 79 3b 09 2f 2a 20 68 6f 6c 64 73 20  neKey;./* holds 
46f0: 22 2d 65 72 72 6f 72 6c 69 6e 65 22 20 2a 2f 0a  "-errorline" */.
4700: 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65  +    Tcl_Obj *re
4710: 74 75 72 6e 4c 65 76 65 6c 4b 65 79 3b 09 2f 2a  turnLevelKey;./*
4720: 20 68 6f 6c 64 73 20 22 2d 6c 65 76 65 6c 22 20   holds "-level" 
4730: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a 20  */.+    Tcl_Obj 
4740: 2a 72 65 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65  *returnOptionsKe
4750: 79 3b 09 2f 2a 20 68 6f 6c 64 73 20 22 2d 6f 70  y;./* holds "-op
4760: 74 69 6f 6e 73 22 20 2a 2f 0a 2b 0a 20 20 20 20  tions" */.+.    
4770: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 53 74 61 74   /*.      * Stat
4780: 69 73 74 69 63 61 6c 20 69 6e 66 6f 72 6d 61 74  istical informat
4790: 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 62 79  ion about the by
47a0: 74 65 63 6f 64 65 20 63 6f 6d 70 69 6c 65 72 20  tecode compiler 
47b0: 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 27  and interpreter'
47c0: 73 0a 20 20 20 20 20 20 2a 20 6f 70 65 72 61 74  s.      * operat
47d0: 69 6f 6e 2e 0a 49 6e 64 65 78 3a 20 67 65 6e 65  ion..Index: gene
47e0: 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 0a 3d 3d  ric/tclProc.c.==
47f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4830: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73  =.RCS file: /cvs
4840: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e  root/tcl/tcl/gen
4850: 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 2c 76  eric/tclProc.c,v
4860: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69  .retrieving revi
4870: 73 69 6f 6e 20 31 2e 34 34 0a 64 69 66 66 20 2d  sion 1.44.diff -
4880: 75 20 2d 72 31 2e 34 34 20 74 63 6c 50 72 6f 63  u -r1.44 tclProc
4890: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74  .c.--- generic/t
48a0: 63 6c 50 72 6f 63 2e 63 09 31 31 20 44 65 63 20  clProc.c.11 Dec 
48b0: 32 30 30 32 20 32 31 3a 32 39 3a 35 32 20 2d 30  2002 21:29:52 -0
48c0: 30 30 30 09 31 2e 34 34 0a 2b 2b 2b 20 67 65 6e  000.1.44.+++ gen
48d0: 65 72 69 63 2f 74 63 6c 50 72 6f 63 2e 63 09 31  eric/tclProc.c.1
48e0: 30 20 41 70 72 20 32 30 30 33 20 31 37 3a 30 37  0 Apr 2003 17:07
48f0: 3a 33 30 20 2d 30 30 30 30 0a 40 40 20 2d 31 30  :30 -0000.@@ -10
4900: 37 37 2c 37 20 2b 31 30 37 37 2c 36 20 40 40 0a  77,7 +1077,6 @@.
4910: 20 20 20 20 20 7d 0a 20 23 65 6e 64 69 66 20 2f       }. #endif /
4920: 2a 54 43 4c 5f 43 4f 4d 50 49 4c 45 5f 44 45 42  *TCL_COMPILE_DEB
4930: 55 47 2a 2f 0a 20 0a 2d 20 20 20 20 69 50 74 72  UG*/. .-    iPtr
4940: 2d 3e 72 65 74 75 72 6e 43 6f 64 65 20 3d 20 54  ->returnCode = T
4950: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 70 72 6f 63  CL_OK;.     proc
4960: 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b 3b  Ptr->refCount++;
4970: 0a 20 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54  .     result = T
4980: 63 6c 43 6f 6d 70 45 76 61 6c 4f 62 6a 28 69 6e  clCompEvalObj(in
4990: 74 65 72 70 2c 20 70 72 6f 63 50 74 72 2d 3e 62  terp, procPtr->b
49a0: 6f 64 79 50 74 72 29 3b 0a 20 20 20 20 20 70 72  odyPtr);.     pr
49b0: 6f 63 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2d  ocPtr->refCount-
49c0: 2d 3b 0a 40 40 20 2d 31 34 30 39 2c 38 20 2b 31  -;.@@ -1409,8 +1
49d0: 34 30 38 2c 38 20 40 40 0a 20 20 2a 20 54 63 6c  408,8 @@.  * Tcl
49e0: 55 70 64 61 74 65 52 65 74 75 72 6e 49 6e 66 6f  UpdateReturnInfo
49f0: 20 2d 2d 0a 20 20 2a 0a 20 20 2a 09 54 68 69 73   --.  *.  *.This
4a00: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61   procedure is ca
4a10: 6c 6c 65 64 20 77 68 65 6e 20 70 72 6f 63 65 64  lled when proced
4a20: 75 72 65 73 20 72 65 74 75 72 6e 2c 20 61 6e 64  ures return, and
4a30: 20 61 74 20 6f 74 68 65 72 0a 2d 20 2a 09 70 6f   at other.- *.po
4a40: 69 6e 74 73 20 77 68 65 72 65 20 74 68 65 20 54  ints where the T
4a50: 43 4c 5f 52 45 54 55 52 4e 20 63 6f 64 65 20 69  CL_RETURN code i
4a60: 73 20 75 73 65 64 2e 20 20 49 74 20 65 78 61 6d  s used.  It exam
4a70: 69 6e 65 73 20 66 69 65 6c 64 73 0a 2d 20 2a 09  ines fields.- *.
4a80: 73 75 63 68 20 61 73 20 69 50 74 72 2d 3e 72 65  such as iPtr->re
4a90: 74 75 72 6e 43 6f 64 65 20 61 6e 64 20 69 50 74  turnCode and iPt
4aa0: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 20 61 6e 64  r->errorCode and
4ab0: 20 6d 6f 64 69 66 69 65 73 0a 2b 20 2a 09 70 6f   modifies.+ *.po
4ac0: 69 6e 74 73 20 77 68 65 72 65 20 74 68 65 20 54  ints where the T
4ad0: 43 4c 5f 52 45 54 55 52 4e 20 63 6f 64 65 20 69  CL_RETURN code i
4ae0: 73 20 75 73 65 64 2e 20 20 49 74 20 65 78 61 6d  s used.  It exam
4af0: 69 6e 65 73 20 76 61 6c 75 65 73 0a 2b 20 2a 09  ines values.+ *.
4b00: 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 69 50  stored in the iP
4b10: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 20 64  tr->returnOpts d
4b20: 69 63 74 69 6f 6e 61 72 79 20 61 6e 64 20 6d 6f  ictionary and mo
4b30: 64 69 66 69 65 73 0a 20 20 2a 09 74 68 65 20 72  difies.  *.the r
4b40: 65 61 6c 20 72 65 74 75 72 6e 20 73 74 61 74 75  eal return statu
4b50: 73 20 61 63 63 6f 72 64 69 6e 67 6c 79 2e 0a 20  s accordingly.. 
4b60: 20 2a 0a 20 20 2a 20 52 65 73 75 6c 74 73 3a 0a   *.  * Results:.
4b70: 40 40 20 2d 31 34 32 38 2c 32 31 20 2b 31 34 32  @@ -1428,21 +142
4b80: 37 2c 34 36 20 40 40 0a 20 20 20 20 20 49 6e 74  7,46 @@.     Int
4b90: 65 72 70 20 2a 69 50 74 72 3b 09 09 2f 2a 20 49  erp *iPtr;../* I
4ba0: 6e 74 65 72 70 72 65 74 65 72 20 66 6f 72 20 77  nterpreter for w
4bb0: 68 69 63 68 20 54 43 4c 5f 52 45 54 55 52 4e 0a  hich TCL_RETURN.
4bc0: 20 09 09 09 09 20 2a 20 65 78 63 65 70 74 69 6f   .... * exceptio
4bd0: 6e 20 69 73 20 62 65 69 6e 67 20 70 72 6f 63 65  n is being proce
4be0: 73 73 65 64 2e 20 2a 2f 0a 20 7b 0a 2d 20 20 20  ssed. */. {.-   
4bf0: 20 69 6e 74 20 63 6f 64 65 3b 0a 2b 20 20 20 20   int code;.+    
4c00: 69 6e 74 20 6c 65 76 65 6c 2c 20 63 6f 64 65 20  int level, code 
4c10: 3d 20 54 43 4c 5f 52 45 54 55 52 4e 3b 0a 20 20  = TCL_RETURN;.  
4c20: 20 20 20 63 68 61 72 20 2a 65 72 72 6f 72 43 6f     char *errorCo
4c30: 64 65 3b 0a 2b 20 20 20 20 54 63 6c 5f 4f 62 6a  de;.+    Tcl_Obj
4c40: 20 2a 76 61 6c 75 65 50 74 72 3b 0a 20 0a 2d 20   *valuePtr;. .- 
4c50: 20 20 20 63 6f 64 65 20 3d 20 69 50 74 72 2d 3e     code = iPtr->
4c60: 72 65 74 75 72 6e 43 6f 64 65 3b 0a 2d 20 20 20  returnCode;.-   
4c70: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 43 6f 64   iPtr->returnCod
4c80: 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 2b 20 20 20  e = TCL_OK;.+   
4c90: 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28   Tcl_DictObjGet(
4ca0: 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75  NULL, iPtr->retu
4cb0: 72 6e 4f 70 74 73 2c 20 69 50 74 72 2d 3e 72 65  rnOpts, iPtr->re
4cc0: 74 75 72 6e 4c 65 76 65 6c 4b 65 79 2c 20 26 76  turnLevelKey, &v
4cd0: 61 6c 75 65 50 74 72 29 3b 0a 2b 20 20 20 20 54  aluePtr);.+    T
4ce0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
4cf0: 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c  (NULL, valuePtr,
4d00: 20 26 6c 65 76 65 6c 29 3b 0a 2b 20 20 20 20 6c   &level);.+    l
4d10: 65 76 65 6c 2d 2d 3b 0a 2b 20 20 20 20 69 66 20  evel--;.+    if 
4d20: 28 6c 65 76 65 6c 20 3c 20 30 29 20 7b 0a 2b 09  (level < 0) {.+.
4d30: 54 63 6c 5f 50 61 6e 69 63 28 22 54 63 6c 55 70  Tcl_Panic("TclUp
4d40: 64 61 74 65 52 65 74 75 72 6e 49 6e 66 6f 3a 20  dateReturnInfo: 
4d50: 6e 65 67 61 74 69 76 65 20 72 65 74 75 72 6e 20  negative return 
4d60: 6c 65 76 65 6c 22 29 3b 0a 2b 20 20 20 20 7d 0a  level");.+    }.
4d70: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53  +    if (Tcl_IsS
4d80: 68 61 72 65 64 28 69 50 74 72 2d 3e 72 65 74 75  hared(iPtr->retu
4d90: 72 6e 4f 70 74 73 29 29 20 7b 0a 2b 09 54 63 6c  rnOpts)) {.+.Tcl
4da0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 69 50  _DecrRefCount(iP
4db0: 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b  tr->returnOpts);
4dc0: 0a 2b 09 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f  .+.iPtr->returnO
4dd0: 70 74 73 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63  pts = Tcl_Duplic
4de0: 61 74 65 4f 62 6a 28 69 50 74 72 2d 3e 72 65 74  ateObj(iPtr->ret
4df0: 75 72 6e 4f 70 74 73 29 3b 0a 2b 09 54 63 6c 5f  urnOpts);.+.Tcl_
4e00: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 69 50 74  IncrRefCount(iPt
4e10: 72 2d 3e 72 65 74 75 72 6e 4f 70 74 73 29 3b 0a  r->returnOpts);.
4e20: 2b 20 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f  +    }.+    Tcl_
4e30: 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c  DictObjPut(NULL,
4e40: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74   iPtr->returnOpt
4e50: 73 2c 0a 2b 09 20 20 20 20 69 50 74 72 2d 3e 72  s,.+.    iPtr->r
4e60: 65 74 75 72 6e 4c 65 76 65 6c 4b 65 79 2c 20 54  eturnLevelKey, T
4e70: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 6c 65 76  cl_NewIntObj(lev
4e80: 65 6c 29 29 3b 0a 2b 0a 2b 20 20 20 20 69 66 20  el));.+.+    if 
4e90: 28 6c 65 76 65 6c 20 3d 3d 20 30 29 20 7b 0a 2b  (level == 0) {.+
4ea0: 09 2f 2a 20 4e 6f 77 20 77 65 27 76 65 20 72 65  ./* Now we've re
4eb0: 61 63 68 65 64 20 74 68 65 20 6c 65 76 65 6c 20  ached the level 
4ec0: 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 72 65  to return the re
4ed0: 71 75 65 73 74 65 64 20 2d 63 6f 64 65 20 2a 2f  quested -code */
4ee0: 0a 2b 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65  .+.Tcl_DictObjGe
4ef0: 74 28 4e 55 4c 4c 2c 20 69 50 74 72 2d 3e 72 65  t(NULL, iPtr->re
4f00: 74 75 72 6e 4f 70 74 73 2c 20 69 50 74 72 2d 3e  turnOpts, iPtr->
4f10: 72 65 74 75 72 6e 43 6f 64 65 4b 65 79 2c 20 26  returnCodeKey, &
4f20: 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09 54 63 6c  valuePtr);.+.Tcl
4f30: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e  _GetIntFromObj(N
4f40: 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 26  ULL, valuePtr, &
4f50: 63 6f 64 65 29 3b 0a 2b 20 20 20 20 7d 0a 20 20  code);.+    }.  
4f60: 20 20 20 69 66 20 28 63 6f 64 65 20 3d 3d 20 54     if (code == T
4f70: 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 2d 09 65 72  CL_ERROR) {.-.er
4f80: 72 6f 72 43 6f 64 65 20 3d 20 28 28 69 50 74 72  rorCode = ((iPtr
4f90: 2d 3e 65 72 72 6f 72 43 6f 64 65 20 21 3d 20 4e  ->errorCode != N
4fa0: 55 4c 4c 29 20 3f 20 69 50 74 72 2d 3e 65 72 72  ULL) ? iPtr->err
4fb0: 6f 72 43 6f 64 65 20 3a 20 22 4e 4f 4e 45 22 29  orCode : "NONE")
4fc0: 3b 0a 2d 09 54 63 6c 5f 4f 62 6a 53 65 74 56 61  ;.-.Tcl_ObjSetVa
4fd0: 72 32 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  r2((Tcl_Interp *
4fe0: 29 20 69 50 74 72 2c 20 69 50 74 72 2d 3e 65 78  ) iPtr, iPtr->ex
4ff0: 65 63 45 6e 76 50 74 72 2d 3e 65 72 72 6f 72 43  ecEnvPtr->errorC
5000: 6f 64 65 2c 0a 2d 09 20 20 20 20 20 20 20 20 4e  ode,.-.        N
5010: 55 4c 4c 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  ULL, Tcl_NewStri
5020: 6e 67 4f 62 6a 28 65 72 72 6f 72 43 6f 64 65 2c  ngObj(errorCode,
5030: 20 2d 31 29 2c 0a 2d 09 09 54 43 4c 5f 47 4c 4f   -1),.-..TCL_GLO
5040: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 2b 09 54 63 6c  BAL_ONLY);.+.Tcl
5050: 5f 44 69 63 74 4f 62 6a 47 65 74 28 4e 55 4c 4c  _DictObjGet(NULL
5060: 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70  , iPtr->returnOp
5070: 74 73 2c 0a 2b 09 09 69 50 74 72 2d 3e 72 65 74  ts,.+..iPtr->ret
5080: 75 72 6e 45 72 72 6f 72 63 6f 64 65 4b 65 79 2c  urnErrorcodeKey,
5090: 20 26 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09 69   &valuePtr);.+.i
50a0: 66 20 28 76 61 6c 75 65 50 74 72 20 3d 3d 20 4e  f (valuePtr == N
50b0: 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c  ULL) {.+.    Tcl
50c0: 5f 4f 62 6a 53 65 74 56 61 72 32 28 28 54 63 6c  _ObjSetVar2((Tcl
50d0: 5f 49 6e 74 65 72 70 20 2a 29 20 69 50 74 72 2c  _Interp *) iPtr,
50e0: 20 69 50 74 72 2d 3e 65 78 65 63 45 6e 76 50 74   iPtr->execEnvPt
50f0: 72 2d 3e 65 72 72 6f 72 43 6f 64 65 2c 0a 2b 09  r->errorCode,.+.
5100: 20 20 20 20 20 20 20 20 20 20 20 20 4e 55 4c 4c              NULL
5110: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
5120: 62 6a 28 22 4e 4f 4e 45 22 2c 20 2d 31 29 2c 20  bj("NONE", -1), 
5130: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
5140: 3b 0a 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b 09 20  ;.+.} else {.+. 
5150: 20 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72     Tcl_ObjSetVar
5160: 32 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29  2((Tcl_Interp *)
5170: 20 69 50 74 72 2c 20 69 50 74 72 2d 3e 65 78 65   iPtr, iPtr->exe
5180: 63 45 6e 76 50 74 72 2d 3e 65 72 72 6f 72 43 6f  cEnvPtr->errorCo
5190: 64 65 2c 0a 2b 09 20 20 20 20 20 20 20 20 20 20  de,.+.          
51a0: 20 20 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72    NULL, valuePtr
51b0: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
51c0: 59 29 3b 0a 2b 09 7d 0a 20 09 69 50 74 72 2d 3e  Y);.+.}. .iPtr->
51d0: 66 6c 61 67 73 20 7c 3d 20 45 52 52 4f 52 5f 43  flags |= ERROR_C
51e0: 4f 44 45 5f 53 45 54 3b 0a 2d 09 69 66 20 28 69  ODE_SET;.-.if (i
51f0: 50 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 20 21  Ptr->errorInfo !
5200: 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 0a 2b 09 54 63  = NULL) {.+.+.Tc
5210: 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 4e 55 4c  l_DictObjGet(NUL
5220: 4c 2c 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f  L, iPtr->returnO
5230: 70 74 73 2c 0a 2b 09 09 69 50 74 72 2d 3e 72 65  pts,.+..iPtr->re
5240: 74 75 72 6e 45 72 72 6f 72 69 6e 66 6f 4b 65 79  turnErrorinfoKey
5250: 2c 20 26 76 61 6c 75 65 50 74 72 29 3b 0a 2b 09  , &valuePtr);.+.
5260: 69 66 20 28 76 61 6c 75 65 50 74 72 20 21 3d 20  if (valuePtr != 
5270: 4e 55 4c 4c 29 20 7b 0a 20 09 20 20 20 20 54 63  NULL) {. .    Tc
5280: 6c 5f 4f 62 6a 53 65 74 56 61 72 32 28 28 54 63  l_ObjSetVar2((Tc
5290: 6c 5f 49 6e 74 65 72 70 20 2a 29 20 69 50 74 72  l_Interp *) iPtr
52a0: 2c 20 69 50 74 72 2d 3e 65 78 65 63 45 6e 76 50  , iPtr->execEnvP
52b0: 74 72 2d 3e 65 72 72 6f 72 49 6e 66 6f 2c 0a 2d  tr->errorInfo,.-
52c0: 09 20 20 20 20 20 20 20 20 20 20 20 20 4e 55 4c  .            NUL
52d0: 4c 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  L, Tcl_NewString
52e0: 4f 62 6a 28 69 50 74 72 2d 3e 65 72 72 6f 72 49  Obj(iPtr->errorI
52f0: 6e 66 6f 2c 20 2d 31 29 2c 0a 2d 09 09 20 20 20  nfo, -1),.-..   
5300: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
5310: 29 3b 0a 2b 09 20 20 20 20 20 20 20 20 20 20 20  );.+.           
5320: 20 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c   NULL, valuePtr,
5330: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
5340: 29 3b 0a 20 09 20 20 20 20 69 50 74 72 2d 3e 66  );. .    iPtr->f
5350: 6c 61 67 73 20 7c 3d 20 45 52 52 5f 49 4e 5f 50  lags |= ERR_IN_P
5360: 52 4f 47 52 45 53 53 3b 0a 20 09 7d 0a 20 20 20  ROGRESS;. .}.   
5370: 20 20 7d 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72    }.Index: gener
5380: 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 0a 3d  ic/tclResult.c.=
5390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
53a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
53b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
53c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
53d0: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76  ==.RCS file: /cv
53e0: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65  sroot/tcl/tcl/ge
53f0: 6e 65 72 69 63 2f 74 63 6c 52 65 73 75 6c 74 2e  neric/tclResult.
5400: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72  c,v.retrieving r
5410: 65 76 69 73 69 6f 6e 20 31 2e 35 0a 64 69 66 66  evision 1.5.diff
5420: 20 2d 75 20 2d 72 31 2e 35 20 74 63 6c 52 65 73   -u -r1.5 tclRes
5430: 75 6c 74 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69  ult.c.--- generi
5440: 63 2f 74 63 6c 52 65 73 75 6c 74 2e 63 09 32 35  c/tclResult.c.25
5450: 20 4a 61 6e 20 32 30 30 32 20 32 30 3a 34 30 3a   Jan 2002 20:40:
5460: 35 35 20 2d 30 30 30 30 09 31 2e 35 0a 2b 2b 2b  55 -0000.1.5.+++
5470: 20 67 65 6e 65 72 69 63 2f 74 63 6c 52 65 73 75   generic/tclResu
5480: 6c 74 2e 63 09 31 30 20 41 70 72 20 32 30 30 33  lt.c.10 Apr 2003
5490: 20 31 37 3a 30 37 3a 33 31 20 2d 30 30 30 30 0a   17:07:31 -0000.
54a0: 40 40 20 2d 31 30 34 36 2c 37 20 2b 31 30 34 36  @@ -1046,7 +1046
54b0: 2c 31 32 20 40 40 0a 20 09 28 28 49 6e 74 65 72  ,12 @@. .((Inter
54c0: 70 20 2a 29 20 74 61 72 67 65 74 49 6e 74 65 72  p *) targetInter
54d0: 70 29 2d 3e 66 6c 61 67 73 20 7c 3d 20 28 45 52  p)->flags |= (ER
54e0: 52 5f 49 4e 5f 50 52 4f 47 52 45 53 53 20 7c 20  R_IN_PROGRESS | 
54f0: 45 52 52 4f 52 5f 43 4f 44 45 5f 53 45 54 29 3b  ERROR_CODE_SET);
5500: 0a 20 20 20 20 20 7d 0a 20 0a 2d 20 20 20 20 28  .     }. .-    (
5510: 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67 65  (Interp *) targe
5520: 74 49 6e 74 65 72 70 29 2d 3e 72 65 74 75 72 6e  tInterp)->return
5530: 43 6f 64 65 20 3d 20 28 28 49 6e 74 65 72 70 20  Code = ((Interp 
5540: 2a 29 20 73 6f 75 72 63 65 49 6e 74 65 72 70 29  *) sourceInterp)
5550: 2d 3e 72 65 74 75 72 6e 43 6f 64 65 3b 0a 2b 20  ->returnCode;.+ 
5560: 20 20 20 2f 2a 20 54 68 69 73 20 6d 61 79 20 6e     /* This may n
5570: 65 65 64 20 65 78 61 6d 69 6e 61 74 69 6f 6e 20  eed examination 
5580: 66 6f 72 20 73 61 66 65 74 79 20 2a 2f 0a 2b 20  for safety */.+ 
5590: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
55a0: 75 6e 74 28 20 28 28 49 6e 74 65 72 70 20 2a 29  unt( ((Interp *)
55b0: 20 74 61 72 67 65 74 49 6e 74 65 72 70 29 2d 3e   targetInterp)->
55c0: 72 65 74 75 72 6e 4f 70 74 73 20 29 3b 0a 2b 20  returnOpts );.+ 
55d0: 20 20 20 28 28 49 6e 74 65 72 70 20 2a 29 20 74     ((Interp *) t
55e0: 61 72 67 65 74 49 6e 74 65 72 70 29 2d 3e 72 65  argetInterp)->re
55f0: 74 75 72 6e 4f 70 74 73 20 3d 20 0a 2b 09 20 20  turnOpts = .+.  
5600: 20 20 28 28 49 6e 74 65 72 70 20 2a 29 20 73 6f    ((Interp *) so
5610: 75 72 63 65 49 6e 74 65 72 70 29 2d 3e 72 65 74  urceInterp)->ret
5620: 75 72 6e 4f 70 74 73 3b 0a 2b 20 20 20 20 54 63  urnOpts;.+    Tc
5630: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20  l_IncrRefCount( 
5640: 28 28 49 6e 74 65 72 70 20 2a 29 20 74 61 72 67  ((Interp *) targ
5650: 65 74 49 6e 74 65 72 70 29 2d 3e 72 65 74 75 72  etInterp)->retur
5660: 6e 4f 70 74 73 20 29 3b 0a 2b 0a 20 20 20 20 20  nOpts );.+.     
5670: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
5680: 28 74 61 72 67 65 74 49 6e 74 65 72 70 2c 20 54  (targetInterp, T
5690: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_GetObjResult(
56a0: 73 6f 75 72 63 65 49 6e 74 65 72 70 29 29 3b 0a  sourceInterp));.
56b0: 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65       Tcl_ResetRe
56c0: 73 75 6c 74 28 73 6f 75 72 63 65 49 6e 74 65 72  sult(sourceInter
56d0: 70 29 3b 0a 20 7d 0a                             p);. }.