Tcl Source Code

Artifact 605836e322b60a3f7d985d3453d2fdcbafaf00f3:

0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74  Index: generic/t
0010: 63 6c 2e 64 65 63 6c 73 0a 3d 3d 3d 3d 3d 3d 3d  cl.decls.=======
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 0a 52 43 53  ============.RCS
0060: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f   file: /cvsroot/
0070: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f  tcl/tcl/generic/
0080: 74 63 6c 2e 64 65 63 6c 73 2c 76 0a 72 65 74 72  tcl.decls,v.retr
0090: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20  ieving revision 
00a0: 31 2e 31 30 33 0a 64 69 66 66 20 2d 75 20 2d 62  1.103.diff -u -b
00b0: 20 2d 42 20 2d 72 31 2e 31 30 33 20 74 63 6c 2e   -B -r1.103 tcl.
00c0: 64 65 63 6c 73 0a 2d 2d 2d 20 67 65 6e 65 72 69  decls.--- generi
00d0: 63 2f 74 63 6c 2e 64 65 63 6c 73 09 31 37 20 4d  c/tcl.decls.17 M
00e0: 61 72 20 32 30 30 34 20 31 38 3a 31 34 3a 31 32  ar 2004 18:14:12
00f0: 20 2d 30 30 30 30 09 31 2e 31 30 33 0a 2b 2b 2b   -0000.1.103.+++
0100: 20 67 65 6e 65 72 69 63 2f 74 63 6c 2e 64 65 63   generic/tcl.dec
0110: 6c 73 09 31 39 20 41 70 72 20 32 30 30 34 20 32  ls.19 Apr 2004 2
0120: 32 3a 31 38 3a 33 31 20 2d 30 30 30 30 0a 40 40  2:18:31 -0000.@@
0130: 20 2d 31 38 36 30 2c 36 20 2b 31 38 36 30 2c 35   -1860,6 +1860,5
0140: 36 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 45 78  6 @@.     Tcl_Ex
0150: 69 74 50 72 6f 63 20 2a 54 63 6c 5f 53 65 74 45  itProc *Tcl_SetE
0160: 78 69 74 50 72 6f 63 28 54 63 6c 5f 45 78 69 74  xitProc(Tcl_Exit
0170: 50 72 6f 63 20 2a 70 72 6f 63 29 0a 20 7d 0a 20  Proc *proc). }. 
0180: 0a 2b 23 20 54 49 50 23 31 34 33 20 41 50 49 0a  .+# TIP#143 API.
0190: 2b 64 65 63 6c 61 72 65 20 35 32 30 20 67 65 6e  +declare 520 gen
01a0: 65 72 69 63 20 7b 0a 2b 20 20 20 20 76 6f 69 64  eric {.+    void
01b0: 20 54 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61 6e   Tcl_LimitAddHan
01c0: 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20  dler(Tcl_Interp 
01d0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70  *interp, int typ
01e0: 65 2c 0a 2b 09 20 20 20 20 54 63 6c 5f 4c 69 6d  e,.+.    Tcl_Lim
01f0: 69 74 48 61 6e 64 6c 65 72 50 72 6f 63 20 2a 68  itHandlerProc *h
0200: 61 6e 64 6c 65 72 50 72 6f 63 2c 20 43 6c 69 65  andlerProc, Clie
0210: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
0220: 61 2c 0a 2b 09 20 20 20 20 54 63 6c 5f 4c 69 6d  a,.+.    Tcl_Lim
0230: 69 74 48 61 6e 64 6c 65 72 44 65 6c 65 74 65 50  itHandlerDeleteP
0240: 72 6f 63 20 2a 64 65 6c 65 74 65 50 72 6f 63 29  roc *deleteProc)
0250: 0a 2b 7d 0a 2b 64 65 63 6c 61 72 65 20 35 32 31  .+}.+declare 521
0260: 20 67 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20   generic {.+    
0270: 76 6f 69 64 20 54 63 6c 5f 4c 69 6d 69 74 52 65  void Tcl_LimitRe
0280: 6d 6f 76 65 48 61 6e 64 6c 65 72 28 54 63 6c 5f  moveHandler(Tcl_
0290: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
02a0: 69 6e 74 20 74 79 70 65 2c 0a 2b 09 20 20 20 20  int type,.+.    
02b0: 54 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c 65 72  Tcl_LimitHandler
02c0: 50 72 6f 63 20 2a 68 61 6e 64 6c 65 72 50 72 6f  Proc *handlerPro
02d0: 63 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  c, ClientData cl
02e0: 69 65 6e 74 44 61 74 61 29 0a 2b 7d 0a 2b 64 65  ientData).+}.+de
02f0: 63 6c 61 72 65 20 35 32 32 20 67 65 6e 65 72 69  clare 522 generi
0300: 63 20 7b 0a 2b 20 20 20 20 69 6e 74 20 54 63 6c  c {.+    int Tcl
0310: 5f 4c 69 6d 69 74 52 65 61 64 79 28 54 63 6c 5f  _LimitReady(Tcl_
0320: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 0a  Interp *interp).
0330: 2b 7d 0a 2b 64 65 63 6c 61 72 65 20 35 32 33 20  +}.+declare 523 
0340: 67 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 69  generic {.+    i
0350: 6e 74 20 54 63 6c 5f 4c 69 6d 69 74 43 68 65 63  nt Tcl_LimitChec
0360: 6b 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  k(Tcl_Interp *in
0370: 74 65 72 70 29 0a 2b 7d 0a 2b 64 65 63 6c 61 72  terp).+}.+declar
0380: 65 20 35 32 34 20 67 65 6e 65 72 69 63 20 7b 0a  e 524 generic {.
0390: 2b 20 20 20 20 69 6e 74 20 54 63 6c 5f 4c 69 6d  +    int Tcl_Lim
03a0: 69 74 45 78 63 65 65 64 65 64 28 54 63 6c 5f 49  itExceeded(Tcl_I
03b0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 0a 2b  nterp *interp).+
03c0: 7d 0a 2b 64 65 63 6c 61 72 65 20 35 32 35 20 67  }.+declare 525 g
03d0: 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 76 6f  eneric {.+    vo
03e0: 69 64 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 43  id Tcl_LimitSetC
03f0: 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65  ommands(Tcl_Inte
0400: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20  rp *interp, int 
0410: 63 6f 6d 6d 61 6e 64 4c 69 6d 69 74 29 0a 2b 7d  commandLimit).+}
0420: 0a 2b 64 65 63 6c 61 72 65 20 35 32 36 20 67 65  .+declare 526 ge
0430: 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 76 6f 69  neric {.+    voi
0440: 64 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 54 69  d Tcl_LimitSetTi
0450: 6d 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  me(Tcl_Interp *i
0460: 6e 74 65 72 70 2c 20 54 63 6c 5f 54 69 6d 65 20  nterp, Tcl_Time 
0470: 2a 74 69 6d 65 4c 69 6d 69 74 50 74 72 29 0a 2b  *timeLimitPtr).+
0480: 7d 0a 2b 64 65 63 6c 61 72 65 20 35 32 37 20 67  }.+declare 527 g
0490: 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 76 6f  eneric {.+    vo
04a0: 69 64 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47  id Tcl_LimitSetG
04b0: 72 61 6e 75 6c 61 72 69 74 79 28 54 63 6c 5f 49  ranularity(Tcl_I
04c0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69  nterp *interp, i
04d0: 6e 74 20 74 79 70 65 2c 20 69 6e 74 20 67 72 61  nt type, int gra
04e0: 6e 75 6c 61 72 69 74 79 29 0a 2b 7d 0a 2b 64 65  nularity).+}.+de
04f0: 63 6c 61 72 65 20 35 32 38 20 67 65 6e 65 72 69  clare 528 generi
0500: 63 20 7b 0a 2b 20 20 20 20 69 6e 74 20 54 63 6c  c {.+    int Tcl
0510: 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62 6c 65  _LimitTypeEnable
0520: 64 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  d(Tcl_Interp *in
0530: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29 0a  terp, int type).
0540: 2b 7d 0a 2b 64 65 63 6c 61 72 65 20 35 32 39 20  +}.+declare 529 
0550: 67 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 69  generic {.+    i
0560: 6e 74 20 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65  nt Tcl_LimitType
0570: 45 78 63 65 65 64 65 64 28 54 63 6c 5f 49 6e 74  Exceeded(Tcl_Int
0580: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
0590: 20 74 79 70 65 29 0a 2b 7d 0a 2b 64 65 63 6c 61   type).+}.+decla
05a0: 72 65 20 35 33 30 20 67 65 6e 65 72 69 63 20 7b  re 530 generic {
05b0: 0a 2b 20 20 20 20 76 6f 69 64 20 54 63 6c 5f 4c  .+    void Tcl_L
05c0: 69 6d 69 74 54 79 70 65 53 65 74 28 54 63 6c 5f  imitTypeSet(Tcl_
05d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
05e0: 69 6e 74 20 74 79 70 65 29 0a 2b 7d 0a 2b 64 65  int type).+}.+de
05f0: 63 6c 61 72 65 20 35 33 31 20 67 65 6e 65 72 69  clare 531 generi
0600: 63 20 7b 0a 2b 20 20 20 20 76 6f 69 64 20 54 63  c {.+    void Tc
0610: 6c 5f 4c 69 6d 69 74 54 79 70 65 52 65 73 65 74  l_LimitTypeReset
0620: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
0630: 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29 0a 2b  erp, int type).+
0640: 7d 0a 2b 64 65 63 6c 61 72 65 20 35 33 32 20 67  }.+declare 532 g
0650: 65 6e 65 72 69 63 20 7b 0a 2b 20 20 20 20 69 6e  eneric {.+    in
0660: 74 20 54 63 6c 5f 4c 69 6d 69 74 47 65 74 43 6f  t Tcl_LimitGetCo
0670: 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72  mmands(Tcl_Inter
0680: 70 20 2a 69 6e 74 65 72 70 29 0a 2b 7d 0a 2b 64  p *interp).+}.+d
0690: 65 63 6c 61 72 65 20 35 33 33 20 67 65 6e 65 72  eclare 533 gener
06a0: 69 63 20 7b 0a 2b 20 20 20 20 76 6f 69 64 20 54  ic {.+    void T
06b0: 63 6c 5f 4c 69 6d 69 74 47 65 74 54 69 6d 65 28  cl_LimitGetTime(
06c0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
06d0: 72 70 2c 20 54 63 6c 5f 54 69 6d 65 20 2a 74 69  rp, Tcl_Time *ti
06e0: 6d 65 4c 69 6d 69 74 50 74 72 29 0a 2b 7d 0a 2b  meLimitPtr).+}.+
06f0: 64 65 63 6c 61 72 65 20 35 33 34 20 67 65 6e 65  declare 534 gene
0700: 72 69 63 20 7b 0a 2b 20 20 20 20 69 6e 74 20 54  ric {.+    int T
0710: 63 6c 5f 4c 69 6d 69 74 47 65 74 47 72 61 6e 75  cl_LimitGetGranu
0720: 6c 61 72 69 74 79 28 54 63 6c 5f 49 6e 74 65 72  larity(Tcl_Inter
0730: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74  p *interp, int t
0740: 79 70 65 29 0a 2b 7d 0a 2b 0a 20 23 23 23 23 23  ype).+}.+. #####
0750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0790: 23 23 23 23 23 23 23 23 23 0a 20 0a 20 23 20 44  #########. . # D
07a0: 65 66 69 6e 65 20 74 68 65 20 70 6c 61 74 66 6f  efine the platfo
07b0: 72 6d 20 73 70 65 63 69 66 69 63 20 70 75 62 6c  rm specific publ
07c0: 69 63 20 54 63 6c 20 69 6e 74 65 72 66 61 63 65  ic Tcl interface
07d0: 2e 20 20 54 68 65 73 65 20 66 75 6e 63 74 69 6f  .  These functio
07e0: 6e 73 20 61 72 65 0a 49 6e 64 65 78 3a 20 67 65  ns are.Index: ge
07f0: 6e 65 72 69 63 2f 74 63 6c 2e 68 0a 3d 3d 3d 3d  neric/tcl.h.====
0800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a  ===============.
0840: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f  RCS file: /cvsro
0850: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72  ot/tcl/tcl/gener
0860: 69 63 2f 74 63 6c 2e 68 2c 76 0a 72 65 74 72 69  ic/tcl.h,v.retri
0870: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31  eving revision 1
0880: 2e 31 37 36 0a 64 69 66 66 20 2d 75 20 2d 62 20  .176.diff -u -b 
0890: 2d 42 20 2d 72 31 2e 31 37 36 20 74 63 6c 2e 68  -B -r1.176 tcl.h
08a0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c  .--- generic/tcl
08b0: 2e 68 09 33 31 20 4d 61 72 20 32 30 30 34 20 31  .h.31 Mar 2004 1
08c0: 38 3a 31 33 3a 32 34 20 2d 30 30 30 30 09 31 2e  8:13:24 -0000.1.
08d0: 31 37 36 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f  176.+++ generic/
08e0: 74 63 6c 2e 68 09 31 39 20 41 70 72 20 32 30 30  tcl.h.19 Apr 200
08f0: 34 20 32 32 3a 31 38 3a 33 31 20 2d 30 30 30 30  4 22:18:31 -0000
0900: 0a 40 40 20 2d 32 32 32 36 2c 36 20 2b 32 32 32  .@@ -2226,6 +222
0910: 36 2c 32 34 20 40 40 0a 20 7d 20 54 63 6c 5f 43  6,24 @@. } Tcl_C
0920: 6f 6e 66 69 67 3b 0a 20 0a 20 0a 2b 2f 2a 0a 2b  onfig;. . .+/*.+
0930: 20 2a 20 46 6c 61 67 73 20 66 6f 72 20 54 49 50   * Flags for TIP
0940: 23 31 34 33 20 6c 69 6d 69 74 73 2c 20 64 65 74  #143 limits, det
0950: 61 69 6c 69 6e 67 20 77 68 69 63 68 20 6c 69 6d  ailing which lim
0960: 69 74 73 20 61 72 65 20 61 63 74 69 76 65 20 69  its are active i
0970: 6e 20 61 6e 0a 2b 20 2a 20 69 6e 74 65 72 70 72  n an.+ * interpr
0980: 65 74 65 72 2e 20 20 55 73 65 64 20 66 6f 72 20  eter.  Used for 
0990: 54 63 6c 5f 7b 41 64 64 2c 52 65 6d 6f 76 65 7d  Tcl_{Add,Remove}
09a0: 4c 69 6d 69 74 48 61 6e 64 6c 65 72 20 74 79 70  LimitHandler typ
09b0: 65 20 61 72 67 75 6d 65 6e 74 2e 0a 2b 20 2a 2f  e argument..+ */
09c0: 0a 2b 0a 2b 23 64 65 66 69 6e 65 20 54 43 4c 5f  .+.+#define TCL_
09d0: 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 09 30  LIMIT_COMMANDS.0
09e0: 78 30 31 0a 2b 23 64 65 66 69 6e 65 20 54 43 4c  x01.+#define TCL
09f0: 5f 4c 49 4d 49 54 5f 54 49 4d 45 09 09 30 78 30  _LIMIT_TIME..0x0
0a00: 32 0a 2b 0a 2b 2f 2a 0a 2b 20 2a 20 53 74 72 75  2.+.+/*.+ * Stru
0a10: 63 74 75 72 65 20 63 6f 6e 74 61 69 6e 69 6e 67  cture containing
0a20: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f   information abo
0a30: 75 74 20 61 20 6c 69 6d 69 74 20 68 61 6e 64 6c  ut a limit handl
0a40: 65 72 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 0a  er to be called.
0a50: 2b 20 2a 20 77 68 65 6e 20 61 20 63 6f 6d 6d 61  + * when a comma
0a60: 6e 64 2d 20 6f 72 20 74 69 6d 65 2d 6c 69 6d 69  nd- or time-limi
0a70: 74 20 69 73 20 65 78 63 65 65 64 65 64 20 62 79  t is exceeded by
0a80: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e   an interpreter.
0a90: 0a 2b 20 2a 2f 0a 2b 0a 2b 74 79 70 65 64 65 66  .+ */.+.+typedef
0aa0: 20 76 6f 69 64 20 28 54 63 6c 5f 4c 69 6d 69 74   void (Tcl_Limit
0ab0: 48 61 6e 64 6c 65 72 50 72 6f 63 29 20 5f 41 4e  HandlerProc) _AN
0ac0: 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74  SI_ARGS_((Client
0ad0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
0ae0: 0a 2b 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .+.Tcl_Interp *i
0af0: 6e 74 65 72 70 29 29 3b 0a 2b 74 79 70 65 64 65  nterp));.+typede
0b00: 66 20 76 6f 69 64 20 28 54 63 6c 5f 4c 69 6d 69  f void (Tcl_Limi
0b10: 74 48 61 6e 64 6c 65 72 44 65 6c 65 74 65 50 72  tHandlerDeletePr
0b20: 6f 63 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  oc) _ANSI_ARGS_(
0b30: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
0b40: 6e 74 44 61 74 61 29 29 3b 0a 2b 0a 2b 0a 20 23  ntData));.+.+. #
0b50: 69 66 6e 64 65 66 20 54 43 4c 5f 4e 4f 5f 44 45  ifndef TCL_NO_DE
0b60: 50 52 45 43 41 54 45 44 0a 20 0a 20 20 20 20 20  PRECATED. .     
0b70: 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69  /*.Index: generi
0b80: 63 2f 74 63 6c 42 61 73 69 63 2e 63 0a 3d 3d 3d  c/tclBasic.c.===
0b90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0ba0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bd0: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72  .RCS file: /cvsr
0be0: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65  oot/tcl/tcl/gene
0bf0: 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63 2c 76  ric/tclBasic.c,v
0c00: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69  .retrieving revi
0c10: 73 69 6f 6e 20 31 2e 39 39 0a 64 69 66 66 20 2d  sion 1.99.diff -
0c20: 75 20 2d 62 20 2d 42 20 2d 72 31 2e 39 39 20 74  u -b -B -r1.99 t
0c30: 63 6c 42 61 73 69 63 2e 63 0a 2d 2d 2d 20 67 65  clBasic.c.--- ge
0c40: 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e 63  neric/tclBasic.c
0c50: 09 36 20 41 70 72 20 32 30 30 34 20 32 32 3a 32  .6 Apr 2004 22:2
0c60: 35 3a 34 38 20 2d 30 30 30 30 09 31 2e 39 39 0a  5:48 -0000.1.99.
0c70: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 42  +++ generic/tclB
0c80: 61 73 69 63 2e 63 09 31 39 20 41 70 72 20 32 30  asic.c.19 Apr 20
0c90: 30 34 20 32 32 3a 31 38 3a 33 32 20 2d 30 30 30  04 22:18:32 -000
0ca0: 30 0a 40 40 20 2d 34 31 31 2c 36 20 2b 34 31 31  0.@@ -411,6 +411
0cb0: 2c 31 31 20 40 40 0a 20 0a 20 20 20 20 20 69 50  ,11 @@. .     iP
0cc0: 74 72 2d 3e 73 74 75 62 54 61 62 6c 65 20 3d 20  tr->stubTable = 
0cd0: 26 74 63 6c 53 74 75 62 73 3b 0a 20 0a 2b 20 20  &tclStubs;. .+  
0ce0: 20 20 2f 2a 0a 2b 20 20 20 20 20 2a 20 54 49 50    /*.+     * TIP
0cf0: 23 31 34 33 3a 20 49 6e 69 74 69 61 6c 69 73 65  #143: Initialise
0d00: 20 74 68 65 20 72 65 73 6f 75 72 63 65 20 6c 69   the resource li
0d10: 6d 69 74 20 73 75 70 70 6f 72 74 2e 0a 2b 20 20  mit support..+  
0d20: 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 54 63 6c     */.+.+    Tcl
0d30: 49 6e 69 74 4c 69 6d 69 74 53 75 70 70 6f 72 74  InitLimitSupport
0d40: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 0a  (interp);.     .
0d50: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20       /*.      * 
0d60: 43 72 65 61 74 65 20 74 68 65 20 63 6f 72 65 20  Create the core 
0d70: 63 6f 6d 6d 61 6e 64 73 2e 20 44 6f 20 69 74 20  commands. Do it 
0d80: 68 65 72 65 2c 20 72 61 74 68 65 72 20 74 68 61  here, rather tha
0d90: 6e 20 63 61 6c 6c 69 6e 67 0a 40 40 20 2d 33 31  n calling.@@ -31
0da0: 32 31 2c 37 20 2b 33 31 32 36 2c 37 20 40 40 0a  21,7 +3126,7 @@.
0db0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 63 6d        */.     cm
0dc0: 64 50 74 72 2d 3e 72 65 66 43 6f 75 6e 74 2b 2b  dPtr->refCount++
0dd0: 3b 0a 20 20 20 20 20 69 50 74 72 2d 3e 63 6d 64  ;.     iPtr->cmd
0de0: 43 6f 75 6e 74 2b 2b 3b 0a 2d 20 20 20 20 69 66  Count++;.-    if
0df0: 20 28 20 63 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f   ( code == TCL_O
0e00: 4b 20 26 26 20 74 72 61 63 65 43 6f 64 65 20 3d  K && traceCode =
0e10: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 20 20 20  = TCL_OK) {.+   
0e20: 20 69 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 4c   if (code == TCL
0e30: 5f 4f 4b 20 26 26 20 74 72 61 63 65 43 6f 64 65  _OK && traceCode
0e40: 20 3d 3d 20 54 43 4c 5f 4f 4b 20 26 26 20 21 54   == TCL_OK && !T
0e50: 63 6c 5f 4c 69 6d 69 74 45 78 63 65 65 64 65 64  cl_LimitExceeded
0e60: 28 69 6e 74 65 72 70 29 29 20 7b 0a 20 09 73 61  (interp)) {. .sa
0e70: 76 65 64 56 61 72 46 72 61 6d 65 50 74 72 20 3d  vedVarFramePtr =
0e80: 20 69 50 74 72 2d 3e 76 61 72 46 72 61 6d 65 50   iPtr->varFrameP
0e90: 74 72 3b 0a 20 09 69 66 20 28 66 6c 61 67 73 20  tr;. .if (flags 
0ea0: 26 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41  & TCL_EVAL_GLOBA
0eb0: 4c 29 20 7b 0a 20 09 20 20 20 20 69 50 74 72 2d  L) {. .    iPtr-
0ec0: 3e 76 61 72 46 72 61 6d 65 50 74 72 20 3d 20 4e  >varFramePtr = N
0ed0: 55 4c 4c 3b 0a 40 40 20 2d 33 31 33 32 2c 36 20  ULL;.@@ -3132,6 
0ee0: 2b 33 31 33 37 2c 39 20 40 40 0a 20 20 20 20 20  +3137,9 @@.     
0ef0: 69 66 20 28 54 63 6c 5f 41 73 79 6e 63 52 65 61  if (Tcl_AsyncRea
0f00: 64 79 28 29 29 20 7b 0a 20 09 63 6f 64 65 20 3d  dy()) {. .code =
0f10: 20 54 63 6c 5f 41 73 79 6e 63 49 6e 76 6f 6b 65   Tcl_AsyncInvoke
0f20: 28 69 6e 74 65 72 70 2c 20 63 6f 64 65 29 3b 0a  (interp, code);.
0f30: 20 20 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 28       }.+    if (
0f40: 63 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f 4b 20 26  code == TCL_OK &
0f50: 26 20 54 63 6c 5f 4c 69 6d 69 74 52 65 61 64 79  & Tcl_LimitReady
0f60: 28 69 6e 74 65 72 70 29 29 20 7b 0a 2b 09 63 6f  (interp)) {.+.co
0f70: 64 65 20 3d 20 54 63 6c 5f 4c 69 6d 69 74 43 68  de = Tcl_LimitCh
0f80: 65 63 6b 28 69 6e 74 65 72 70 29 3b 0a 2b 20 20  eck(interp);.+  
0f90: 20 20 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 20 20    }. .     /*.  
0fa0: 20 20 20 20 2a 20 43 61 6c 6c 20 27 6c 65 61 76      * Call 'leav
0fb0: 65 27 20 63 6f 6d 6d 61 6e 64 20 74 72 61 63 65  e' command trace
0fc0: 73 0a 40 40 20 2d 33 31 34 32 2c 37 20 2b 33 31  s.@@ -3142,7 +31
0fd0: 35 30 2c 37 20 40 40 0a 20 09 54 63 6c 5f 4f 62  50,7 @@. .Tcl_Ob
0fe0: 6a 20 2a 73 61 76 65 4f 70 74 69 6f 6e 73 20 3d  j *saveOptions =
0ff0: 20 69 50 74 72 2d 3e 72 65 74 75 72 6e 4f 70 74   iPtr->returnOpt
1000: 73 3b 0a 20 09 54 63 6c 5f 49 6e 63 72 52 65 66  s;. .Tcl_IncrRef
1010: 43 6f 75 6e 74 28 73 61 76 65 4f 70 74 69 6f 6e  Count(saveOption
1020: 73 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20  s);.         if 
1030: 28 28 63 6d 64 50 74 72 2d 3e 66 6c 61 67 73 20  ((cmdPtr->flags 
1040: 26 20 43 4d 44 5f 48 41 53 5f 45 58 45 43 5f 54  & CMD_HAS_EXEC_T
1050: 52 41 43 45 53 29 20 26 26 20 28 74 72 61 63 65  RACES) && (trace
1060: 43 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f 4b 29 29  Code == TCL_OK))
1070: 20 7b 0a 2d 20 20 20 20 20 20 20 20 20 20 20 20   {.-            
1080: 74 72 61 63 65 43 6f 64 65 20 3d 20 54 63 6c 43  traceCode = TclC
1090: 68 65 63 6b 45 78 65 63 75 74 69 6f 6e 54 72 61  heckExecutionTra
10a0: 63 65 73 20 28 69 6e 74 65 72 70 2c 20 63 6f 6d  ces (interp, com
10b0: 6d 61 6e 64 2c 20 6c 65 6e 67 74 68 2c 0a 2b 20  mand, length,.+ 
10c0: 20 20 20 20 20 20 20 20 20 20 20 74 72 61 63 65             trace
10d0: 43 6f 64 65 20 3d 20 54 63 6c 43 68 65 63 6b 45  Code = TclCheckE
10e0: 78 65 63 75 74 69 6f 6e 54 72 61 63 65 73 28 69  xecutionTraces(i
10f0: 6e 74 65 72 70 2c 20 63 6f 6d 6d 61 6e 64 2c 20  nterp, command, 
1100: 6c 65 6e 67 74 68 2c 0a 20 20 20 20 20 20 20 20  length,.        
1110: 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 50              cmdP
1120: 74 72 2c 20 63 6f 64 65 2c 20 54 43 4c 5f 54 52  tr, code, TCL_TR
1130: 41 43 45 5f 4c 45 41 56 45 5f 45 58 45 43 2c 20  ACE_LEAVE_EXEC, 
1140: 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20  objc, objv);.   
1150: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
1160: 20 69 66 20 28 69 50 74 72 2d 3e 74 72 61 63 65   if (iPtr->trace
1170: 50 74 72 20 21 3d 20 4e 55 4c 4c 20 26 26 20 74  Ptr != NULL && t
1180: 72 61 63 65 43 6f 64 65 20 3d 3d 20 54 43 4c 5f  raceCode == TCL_
1190: 4f 4b 29 20 7b 0a 49 6e 64 65 78 3a 20 67 65 6e  OK) {.Index: gen
11a0: 65 72 69 63 2f 74 63 6c 43 6d 64 41 48 2e 63 0a  eric/tclCmdAH.c.
11b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
11c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
11d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
11e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
11f0: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63  ===.RCS file: /c
1200: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67  vsroot/tcl/tcl/g
1210: 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41 48 2e  eneric/tclCmdAH.
1220: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72  c,v.retrieving r
1230: 65 76 69 73 69 6f 6e 20 31 2e 34 34 0a 64 69 66  evision 1.44.dif
1240: 66 20 2d 75 20 2d 62 20 2d 42 20 2d 72 31 2e 34  f -u -b -B -r1.4
1250: 34 20 74 63 6c 43 6d 64 41 48 2e 63 0a 2d 2d 2d  4 tclCmdAH.c.---
1260: 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41   generic/tclCmdA
1270: 48 2e 63 09 36 20 41 70 72 20 32 30 30 34 20 32  H.c.6 Apr 2004 2
1280: 32 3a 32 35 3a 34 38 20 2d 30 30 30 30 09 31 2e  2:25:48 -0000.1.
1290: 34 34 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74  44.+++ generic/t
12a0: 63 6c 43 6d 64 41 48 2e 63 09 31 39 20 41 70 72  clCmdAH.c.19 Apr
12b0: 20 32 30 30 34 20 32 32 3a 31 38 3a 33 32 20 2d   2004 22:18:32 -
12c0: 30 30 30 30 0a 40 40 20 2d 32 35 37 2c 36 20 2b  0000.@@ -257,6 +
12d0: 32 35 37 2c 31 37 20 40 40 0a 20 0a 20 20 20 20  257,17 @@. .    
12e0: 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45 76   result = Tcl_Ev
12f0: 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20  alObjEx(interp, 
1300: 6f 62 6a 76 5b 31 5d 2c 20 30 29 3b 0a 20 20 20  objv[1], 0);.   
1310: 20 20 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20    .+    /*.+    
1320: 20 2a 20 57 65 20 64 69 73 61 62 6c 65 20 63 61   * We disable ca
1330: 74 63 68 20 69 6e 20 69 6e 74 65 72 70 72 65 74  tch in interpret
1340: 65 72 73 20 77 68 65 72 65 20 74 68 65 20 6c 69  ers where the li
1350: 6d 69 74 20 68 61 73 20 62 65 65 6e 20 65 78 63  mit has been exc
1360: 65 65 64 65 64 2e 0a 2b 20 20 20 20 20 2a 2f 0a  eeded..+     */.
1370: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 4c 69 6d  +    if (Tcl_Lim
1380: 69 74 45 78 63 65 65 64 65 64 28 69 6e 74 65 72  itExceeded(inter
1390: 70 29 29 20 7b 0a 2b 09 63 68 61 72 20 6d 73 67  p)) {.+.char msg
13a0: 5b 33 32 20 2b 20 54 43 4c 5f 49 4e 54 45 47 45  [32 + TCL_INTEGE
13b0: 52 5f 53 50 41 43 45 5d 3b 0a 2b 0a 2b 09 73 70  R_SPACE];.+.+.sp
13c0: 72 69 6e 74 66 28 6d 73 67 2c 20 22 5c 6e 20 20  rintf(msg, "\n  
13d0: 20 20 28 5c 22 63 61 74 63 68 5c 22 20 62 6f 64    (\"catch\" bod
13e0: 79 20 6c 69 6e 65 20 25 64 29 22 2c 20 69 6e 74  y line %d)", int
13f0: 65 72 70 2d 3e 65 72 72 6f 72 4c 69 6e 65 29 3b  erp->errorLine);
1400: 0a 2b 09 54 63 6c 5f 41 64 64 45 72 72 6f 72 49  .+.Tcl_AddErrorI
1410: 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6d 73 67 29  nfo(interp, msg)
1420: 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  ;.+.return TCL_E
1430: 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 20  RROR;.+    }.+. 
1440: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e 3d 20      if (objc >= 
1450: 33 29 20 7b 0a 20 09 69 66 20 28 4e 55 4c 4c 20  3) {. .if (NULL 
1460: 3d 3d 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72  == Tcl_ObjSetVar
1470: 32 28 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d  2(interp, varNam
1480: 65 50 74 72 2c 20 4e 55 4c 4c 2c 0a 20 09 09 54  ePtr, NULL,. ..T
1490: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_GetObjResult(
14a0: 69 6e 74 65 72 70 29 2c 20 30 29 29 20 7b 0a 49  interp), 0)) {.I
14b0: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63  ndex: generic/tc
14c0: 6c 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d 3d 3d 3d  lDecls.h.=======
14d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
14e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
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 0a 52 43 53  ============.RCS
1510: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f   file: /cvsroot/
1520: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f  tcl/tcl/generic/
1530: 74 63 6c 44 65 63 6c 73 2e 68 2c 76 0a 72 65 74  tclDecls.h,v.ret
1540: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e  rieving revision
1550: 20 31 2e 31 30 32 0a 64 69 66 66 20 2d 75 20 2d   1.102.diff -u -
1560: 62 20 2d 42 20 2d 72 31 2e 31 30 32 20 74 63 6c  b -B -r1.102 tcl
1570: 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 67 65 6e 65  Decls.h.--- gene
1580: 72 69 63 2f 74 63 6c 44 65 63 6c 73 2e 68 09 31  ric/tclDecls.h.1
1590: 37 20 4d 61 72 20 32 30 30 34 20 31 38 3a 31 34  7 Mar 2004 18:14
15a0: 3a 31 33 20 2d 30 30 30 30 09 31 2e 31 30 32 0a  :13 -0000.1.102.
15b0: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 44  +++ generic/tclD
15c0: 65 63 6c 73 2e 68 09 31 39 20 41 70 72 20 32 30  ecls.h.19 Apr 20
15d0: 30 34 20 32 32 3a 31 38 3a 33 32 20 2d 30 30 30  04 22:18:32 -000
15e0: 30 0a 40 40 20 2d 33 32 32 32 2c 36 20 2b 33 32  0.@@ -3222,6 +32
15f0: 32 32 2c 39 38 20 40 40 0a 20 2f 2a 20 35 31 39  22,98 @@. /* 519
1600: 20 2a 2f 0a 20 45 58 54 45 52 4e 20 54 63 6c 5f   */. EXTERN Tcl_
1610: 45 78 69 74 50 72 6f 63 20 2a 09 54 63 6c 5f 53  ExitProc *.Tcl_S
1620: 65 74 45 78 69 74 50 72 6f 63 20 5f 41 4e 53 49  etExitProc _ANSI
1630: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 45 78 69 74  _ARGS_((Tcl_Exit
1640: 50 72 6f 63 20 2a 20 70 72 6f 63 29 29 3b 0a 20  Proc * proc));. 
1650: 23 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20  #endif.+#ifndef 
1660: 54 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61 6e 64  Tcl_LimitAddHand
1670: 6c 65 72 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44  ler_TCL_DECLARED
1680: 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69  .+#define Tcl_Li
1690: 6d 69 74 41 64 64 48 61 6e 64 6c 65 72 5f 54 43  mitAddHandler_TC
16a0: 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35  L_DECLARED.+/* 5
16b0: 32 30 20 2a 2f 0a 2b 45 58 54 45 52 4e 20 76 6f  20 */.+EXTERN vo
16c0: 69 64 09 09 54 63 6c 5f 4c 69 6d 69 74 41 64 64  id..Tcl_LimitAdd
16d0: 48 61 6e 64 6c 65 72 20 5f 41 4e 53 49 5f 41 52  Handler _ANSI_AR
16e0: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
16f0: 2a 20 69 6e 74 65 72 70 2c 20 0a 2b 09 09 09 09  * interp, .+....
1700: 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4c 69  int type, Tcl_Li
1710: 6d 69 74 48 61 6e 64 6c 65 72 50 72 6f 63 20 2a  mitHandlerProc *
1720: 20 68 61 6e 64 6c 65 72 50 72 6f 63 2c 20 0a 2b   handlerProc, .+
1730: 09 09 09 09 43 6c 69 65 6e 74 44 61 74 61 20 63  ....ClientData c
1740: 6c 69 65 6e 74 44 61 74 61 2c 20 0a 2b 09 09 09  lientData, .+...
1750: 09 54 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c 65  .Tcl_LimitHandle
1760: 72 44 65 6c 65 74 65 50 72 6f 63 20 2a 20 64 65  rDeleteProc * de
1770: 6c 65 74 65 50 72 6f 63 29 29 3b 0a 2b 23 65 6e  leteProc));.+#en
1780: 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c  dif.+#ifndef Tcl
1790: 5f 4c 69 6d 69 74 52 65 6d 6f 76 65 48 61 6e 64  _LimitRemoveHand
17a0: 6c 65 72 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44  ler_TCL_DECLARED
17b0: 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69  .+#define Tcl_Li
17c0: 6d 69 74 52 65 6d 6f 76 65 48 61 6e 64 6c 65 72  mitRemoveHandler
17d0: 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f  _TCL_DECLARED.+/
17e0: 2a 20 35 32 31 20 2a 2f 0a 2b 45 58 54 45 52 4e  * 521 */.+EXTERN
17f0: 20 76 6f 69 64 09 09 54 63 6c 5f 4c 69 6d 69 74   void..Tcl_Limit
1800: 52 65 6d 6f 76 65 48 61 6e 64 6c 65 72 20 5f 41  RemoveHandler _A
1810: 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 09 09 09  NSI_ARGS_((.+...
1820: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e  .Tcl_Interp * in
1830: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20  terp, int type, 
1840: 0a 2b 09 09 09 09 54 63 6c 5f 4c 69 6d 69 74 48  .+....Tcl_LimitH
1850: 61 6e 64 6c 65 72 50 72 6f 63 20 2a 20 68 61 6e  andlerProc * han
1860: 64 6c 65 72 50 72 6f 63 2c 20 0a 2b 09 09 09 09  dlerProc, .+....
1870: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
1880: 74 44 61 74 61 29 29 3b 0a 2b 23 65 6e 64 69 66  tData));.+#endif
1890: 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69  .+#ifndef Tcl_Li
18a0: 6d 69 74 52 65 61 64 79 5f 54 43 4c 5f 44 45 43  mitReady_TCL_DEC
18b0: 4c 41 52 45 44 0a 2b 23 64 65 66 69 6e 65 20 54  LARED.+#define T
18c0: 63 6c 5f 4c 69 6d 69 74 52 65 61 64 79 5f 54 43  cl_LimitReady_TC
18d0: 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35  L_DECLARED.+/* 5
18e0: 32 32 20 2a 2f 0a 2b 45 58 54 45 52 4e 20 69 6e  22 */.+EXTERN in
18f0: 74 09 09 54 63 6c 5f 4c 69 6d 69 74 52 65 61 64  t..Tcl_LimitRead
1900: 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54  y _ANSI_ARGS_((T
1910: 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74 65  cl_Interp * inte
1920: 72 70 29 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23  rp));.+#endif.+#
1930: 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74  ifndef Tcl_Limit
1940: 43 68 65 63 6b 5f 54 43 4c 5f 44 45 43 4c 41 52  Check_TCL_DECLAR
1950: 45 44 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f  ED.+#define Tcl_
1960: 4c 69 6d 69 74 43 68 65 63 6b 5f 54 43 4c 5f 44  LimitCheck_TCL_D
1970: 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35 32 33 20  ECLARED.+/* 523 
1980: 2a 2f 0a 2b 45 58 54 45 52 4e 20 69 6e 74 09 09  */.+EXTERN int..
1990: 54 63 6c 5f 4c 69 6d 69 74 43 68 65 63 6b 20 5f  Tcl_LimitCheck _
19a0: 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f  ANSI_ARGS_((Tcl_
19b0: 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72 70 29  Interp * interp)
19c0: 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66 6e  );.+#endif.+#ifn
19d0: 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 45 78 63  def Tcl_LimitExc
19e0: 65 65 64 65 64 5f 54 43 4c 5f 44 45 43 4c 41 52  eeded_TCL_DECLAR
19f0: 45 44 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f  ED.+#define Tcl_
1a00: 4c 69 6d 69 74 45 78 63 65 65 64 65 64 5f 54 43  LimitExceeded_TC
1a10: 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35  L_DECLARED.+/* 5
1a20: 32 34 20 2a 2f 0a 2b 45 58 54 45 52 4e 20 69 6e  24 */.+EXTERN in
1a30: 74 09 09 54 63 6c 5f 4c 69 6d 69 74 45 78 63 65  t..Tcl_LimitExce
1a40: 65 64 65 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f  eded _ANSI_ARGS_
1a50: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ((Tcl_Interp * i
1a60: 6e 74 65 72 70 29 29 3b 0a 2b 23 65 6e 64 69 66  nterp));.+#endif
1a70: 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69  .+#ifndef Tcl_Li
1a80: 6d 69 74 53 65 74 43 6f 6d 6d 61 6e 64 73 5f 54  mitSetCommands_T
1a90: 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 23 64 65  CL_DECLARED.+#de
1aa0: 66 69 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 53 65  fine Tcl_LimitSe
1ab0: 74 43 6f 6d 6d 61 6e 64 73 5f 54 43 4c 5f 44 45  tCommands_TCL_DE
1ac0: 43 4c 41 52 45 44 0a 2b 2f 2a 20 35 32 35 20 2a  CLARED.+/* 525 *
1ad0: 2f 0a 2b 45 58 54 45 52 4e 20 76 6f 69 64 09 09  /.+EXTERN void..
1ae0: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 43 6f 6d 6d  Tcl_LimitSetComm
1af0: 61 6e 64 73 20 5f 41 4e 53 49 5f 41 52 47 53 5f  ands _ANSI_ARGS_
1b00: 28 28 0a 2b 09 09 09 09 54 63 6c 5f 49 6e 74 65  ((.+....Tcl_Inte
1b10: 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 69 6e 74  rp * interp, int
1b20: 20 63 6f 6d 6d 61 6e 64 4c 69 6d 69 74 29 29 3b   commandLimit));
1b30: 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65  .+#endif.+#ifnde
1b40: 66 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 54 69  f Tcl_LimitSetTi
1b50: 6d 65 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a  me_TCL_DECLARED.
1b60: 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d  +#define Tcl_Lim
1b70: 69 74 53 65 74 54 69 6d 65 5f 54 43 4c 5f 44 45  itSetTime_TCL_DE
1b80: 43 4c 41 52 45 44 0a 2b 2f 2a 20 35 32 36 20 2a  CLARED.+/* 526 *
1b90: 2f 0a 2b 45 58 54 45 52 4e 20 76 6f 69 64 09 09  /.+EXTERN void..
1ba0: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 54 69 6d 65  Tcl_LimitSetTime
1bb0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63   _ANSI_ARGS_((Tc
1bc0: 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72  l_Interp * inter
1bd0: 70 2c 20 0a 2b 09 09 09 09 54 63 6c 5f 54 69 6d  p, .+....Tcl_Tim
1be0: 65 20 2a 20 74 69 6d 65 4c 69 6d 69 74 50 74 72  e * timeLimitPtr
1bf0: 29 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66  ));.+#endif.+#if
1c00: 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 53 65  ndef Tcl_LimitSe
1c10: 74 47 72 61 6e 75 6c 61 72 69 74 79 5f 54 43 4c  tGranularity_TCL
1c20: 5f 44 45 43 4c 41 52 45 44 0a 2b 23 64 65 66 69  _DECLARED.+#defi
1c30: 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47  ne Tcl_LimitSetG
1c40: 72 61 6e 75 6c 61 72 69 74 79 5f 54 43 4c 5f 44  ranularity_TCL_D
1c50: 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35 32 37 20  ECLARED.+/* 527 
1c60: 2a 2f 0a 2b 45 58 54 45 52 4e 20 76 6f 69 64 09  */.+EXTERN void.
1c70: 09 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47 72 61  .Tcl_LimitSetGra
1c80: 6e 75 6c 61 72 69 74 79 20 5f 41 4e 53 49 5f 41  nularity _ANSI_A
1c90: 52 47 53 5f 28 28 0a 2b 09 09 09 09 54 63 6c 5f  RGS_((.+....Tcl_
1ca0: 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72 70 2c  Interp * interp,
1cb0: 20 69 6e 74 20 74 79 70 65 2c 20 0a 2b 09 09 09   int type, .+...
1cc0: 09 69 6e 74 20 67 72 61 6e 75 6c 61 72 69 74 79  .int granularity
1cd0: 29 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66  ));.+#endif.+#if
1ce0: 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 54 79  ndef Tcl_LimitTy
1cf0: 70 65 45 6e 61 62 6c 65 64 5f 54 43 4c 5f 44 45  peEnabled_TCL_DE
1d00: 43 4c 41 52 45 44 0a 2b 23 64 65 66 69 6e 65 20  CLARED.+#define 
1d10: 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61  Tcl_LimitTypeEna
1d20: 62 6c 65 64 5f 54 43 4c 5f 44 45 43 4c 41 52 45  bled_TCL_DECLARE
1d30: 44 0a 2b 2f 2a 20 35 32 38 20 2a 2f 0a 2b 45 58  D.+/* 528 */.+EX
1d40: 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 5f 4c 69  TERN int..Tcl_Li
1d50: 6d 69 74 54 79 70 65 45 6e 61 62 6c 65 64 20 5f  mitTypeEnabled _
1d60: 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 09 09  ANSI_ARGS_((.+..
1d70: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ..Tcl_Interp * i
1d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29  nterp, int type)
1d90: 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66 6e  );.+#endif.+#ifn
1da0: 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 54 79 70  def Tcl_LimitTyp
1db0: 65 45 78 63 65 65 64 65 64 5f 54 43 4c 5f 44 45  eExceeded_TCL_DE
1dc0: 43 4c 41 52 45 44 0a 2b 23 64 65 66 69 6e 65 20  CLARED.+#define 
1dd0: 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 45 78 63  Tcl_LimitTypeExc
1de0: 65 65 64 65 64 5f 54 43 4c 5f 44 45 43 4c 41 52  eeded_TCL_DECLAR
1df0: 45 44 0a 2b 2f 2a 20 35 32 39 20 2a 2f 0a 2b 45  ED.+/* 529 */.+E
1e00: 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 5f 4c  XTERN int..Tcl_L
1e10: 69 6d 69 74 54 79 70 65 45 78 63 65 65 64 65 64  imitTypeExceeded
1e20: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b   _ANSI_ARGS_((.+
1e30: 09 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ....Tcl_Interp *
1e40: 20 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70   interp, int typ
1e50: 65 29 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69  e));.+#endif.+#i
1e60: 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 54  fndef Tcl_LimitT
1e70: 79 70 65 53 65 74 5f 54 43 4c 5f 44 45 43 4c 41  ypeSet_TCL_DECLA
1e80: 52 45 44 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c  RED.+#define Tcl
1e90: 5f 4c 69 6d 69 74 54 79 70 65 53 65 74 5f 54 43  _LimitTypeSet_TC
1ea0: 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f 2a 20 35  L_DECLARED.+/* 5
1eb0: 33 30 20 2a 2f 0a 2b 45 58 54 45 52 4e 20 76 6f  30 */.+EXTERN vo
1ec0: 69 64 09 09 54 63 6c 5f 4c 69 6d 69 74 54 79 70  id..Tcl_LimitTyp
1ed0: 65 53 65 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f  eSet _ANSI_ARGS_
1ee0: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ((Tcl_Interp * i
1ef0: 6e 74 65 72 70 2c 20 0a 2b 09 09 09 09 69 6e 74  nterp, .+....int
1f00: 20 74 79 70 65 29 29 3b 0a 2b 23 65 6e 64 69 66   type));.+#endif
1f10: 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69  .+#ifndef Tcl_Li
1f20: 6d 69 74 54 79 70 65 52 65 73 65 74 5f 54 43 4c  mitTypeReset_TCL
1f30: 5f 44 45 43 4c 41 52 45 44 0a 2b 23 64 65 66 69  _DECLARED.+#defi
1f40: 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65  ne Tcl_LimitType
1f50: 52 65 73 65 74 5f 54 43 4c 5f 44 45 43 4c 41 52  Reset_TCL_DECLAR
1f60: 45 44 0a 2b 2f 2a 20 35 33 31 20 2a 2f 0a 2b 45  ED.+/* 531 */.+E
1f70: 58 54 45 52 4e 20 76 6f 69 64 09 09 54 63 6c 5f  XTERN void..Tcl_
1f80: 4c 69 6d 69 74 54 79 70 65 52 65 73 65 74 20 5f  LimitTypeReset _
1f90: 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f  ANSI_ARGS_((Tcl_
1fa0: 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72 70 2c  Interp * interp,
1fb0: 20 0a 2b 09 09 09 09 69 6e 74 20 74 79 70 65 29   .+....int type)
1fc0: 29 3b 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66 6e  );.+#endif.+#ifn
1fd0: 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 47 65 74  def Tcl_LimitGet
1fe0: 43 6f 6d 6d 61 6e 64 73 5f 54 43 4c 5f 44 45 43  Commands_TCL_DEC
1ff0: 4c 41 52 45 44 0a 2b 23 64 65 66 69 6e 65 20 54  LARED.+#define T
2000: 63 6c 5f 4c 69 6d 69 74 47 65 74 43 6f 6d 6d 61  cl_LimitGetComma
2010: 6e 64 73 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44  nds_TCL_DECLARED
2020: 0a 2b 2f 2a 20 35 33 32 20 2a 2f 0a 2b 45 58 54  .+/* 532 */.+EXT
2030: 45 52 4e 20 69 6e 74 09 09 54 63 6c 5f 4c 69 6d  ERN int..Tcl_Lim
2040: 69 74 47 65 74 43 6f 6d 6d 61 6e 64 73 20 5f 41  itGetCommands _A
2050: 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 09 09 09  NSI_ARGS_((.+...
2060: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e  .Tcl_Interp * in
2070: 74 65 72 70 29 29 3b 0a 2b 23 65 6e 64 69 66 0a  terp));.+#endif.
2080: 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d  +#ifndef Tcl_Lim
2090: 69 74 47 65 74 54 69 6d 65 5f 54 43 4c 5f 44 45  itGetTime_TCL_DE
20a0: 43 4c 41 52 45 44 0a 2b 23 64 65 66 69 6e 65 20  CLARED.+#define 
20b0: 54 63 6c 5f 4c 69 6d 69 74 47 65 74 54 69 6d 65  Tcl_LimitGetTime
20c0: 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 2f  _TCL_DECLARED.+/
20d0: 2a 20 35 33 33 20 2a 2f 0a 2b 45 58 54 45 52 4e  * 533 */.+EXTERN
20e0: 20 76 6f 69 64 09 09 54 63 6c 5f 4c 69 6d 69 74   void..Tcl_Limit
20f0: 47 65 74 54 69 6d 65 20 5f 41 4e 53 49 5f 41 52  GetTime _ANSI_AR
2100: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
2110: 2a 20 69 6e 74 65 72 70 2c 20 0a 2b 09 09 09 09  * interp, .+....
2120: 54 63 6c 5f 54 69 6d 65 20 2a 20 74 69 6d 65 4c  Tcl_Time * timeL
2130: 69 6d 69 74 50 74 72 29 29 3b 0a 2b 23 65 6e 64  imitPtr));.+#end
2140: 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f  if.+#ifndef Tcl_
2150: 4c 69 6d 69 74 47 65 74 47 72 61 6e 75 6c 61 72  LimitGetGranular
2160: 69 74 79 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44  ity_TCL_DECLARED
2170: 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69  .+#define Tcl_Li
2180: 6d 69 74 47 65 74 47 72 61 6e 75 6c 61 72 69 74  mitGetGranularit
2190: 79 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b  y_TCL_DECLARED.+
21a0: 2f 2a 20 35 33 34 20 2a 2f 0a 2b 45 58 54 45 52  /* 534 */.+EXTER
21b0: 4e 20 69 6e 74 09 09 54 63 6c 5f 4c 69 6d 69 74  N int..Tcl_Limit
21c0: 47 65 74 47 72 61 6e 75 6c 61 72 69 74 79 20 5f  GetGranularity _
21d0: 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 09 09  ANSI_ARGS_((.+..
21e0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ..Tcl_Interp * i
21f0: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29  nterp, int type)
2200: 29 3b 0a 2b 23 65 6e 64 69 66 0a 20 0a 20 74 79  );.+#endif. . ty
2210: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c  pedef struct Tcl
2220: 53 74 75 62 48 6f 6f 6b 73 20 7b 0a 20 20 20 20  StubHooks {.    
2230: 20 73 74 72 75 63 74 20 54 63 6c 50 6c 61 74 53   struct TclPlatS
2240: 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 75  tubs *tclPlatStu
2250: 62 73 3b 0a 40 40 20 2d 33 37 38 33 2c 36 20 2b  bs;.@@ -3783,6 +
2260: 33 38 37 35 2c 32 31 20 40 40 0a 20 20 20 20 20  3875,21 @@.     
2270: 76 6f 69 64 20 28 2a 74 63 6c 5f 47 65 74 43 6f  void (*tcl_GetCo
2280: 6d 6d 61 6e 64 46 75 6c 6c 4e 61 6d 65 29 20 5f  mmandFullName) _
2290: 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f  ANSI_ARGS_((Tcl_
22a0: 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72 70 2c  Interp * interp,
22b0: 20 54 63 6c 5f 43 6f 6d 6d 61 6e 64 20 63 6f 6d   Tcl_Command com
22c0: 6d 61 6e 64 2c 20 54 63 6c 5f 4f 62 6a 20 2a 20  mand, Tcl_Obj * 
22d0: 6f 62 6a 50 74 72 29 29 3b 20 2f 2a 20 35 31 37  objPtr)); /* 517
22e0: 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 28 2a 74   */.     int (*t
22f0: 63 6c 5f 46 53 45 76 61 6c 46 69 6c 65 45 78 29  cl_FSEvalFileEx)
2300: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63   _ANSI_ARGS_((Tc
2310: 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72  l_Interp * inter
2320: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 20 66 69 6c  p, Tcl_Obj * fil
2330: 65 4e 61 6d 65 2c 20 43 4f 4e 53 54 20 63 68 61  eName, CONST cha
2340: 72 20 2a 20 65 6e 63 6f 64 69 6e 67 4e 61 6d 65  r * encodingName
2350: 29 29 3b 20 2f 2a 20 35 31 38 20 2a 2f 0a 20 20  )); /* 518 */.  
2360: 20 20 20 54 63 6c 5f 45 78 69 74 50 72 6f 63 20     Tcl_ExitProc 
2370: 2a 20 28 2a 74 63 6c 5f 53 65 74 45 78 69 74 50  * (*tcl_SetExitP
2380: 72 6f 63 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f  roc) _ANSI_ARGS_
2390: 28 28 54 63 6c 5f 45 78 69 74 50 72 6f 63 20 2a  ((Tcl_ExitProc *
23a0: 20 70 72 6f 63 29 29 3b 20 2f 2a 20 35 31 39 20   proc)); /* 519 
23b0: 2a 2f 0a 2b 20 20 20 20 76 6f 69 64 20 28 2a 74  */.+    void (*t
23c0: 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61 6e 64 6c  cl_LimitAddHandl
23d0: 65 72 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  er) _ANSI_ARGS_(
23e0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e  (Tcl_Interp * in
23f0: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20  terp, int type, 
2400: 54 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c 65 72  Tcl_LimitHandler
2410: 50 72 6f 63 20 2a 20 68 61 6e 64 6c 65 72 50 72  Proc * handlerPr
2420: 6f 63 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 63  oc, ClientData c
2430: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 4c  lientData, Tcl_L
2440: 69 6d 69 74 48 61 6e 64 6c 65 72 44 65 6c 65 74  imitHandlerDelet
2450: 65 50 72 6f 63 20 2a 20 64 65 6c 65 74 65 50 72  eProc * deletePr
2460: 6f 63 29 29 3b 20 2f 2a 20 35 32 30 20 2a 2f 0a  oc)); /* 520 */.
2470: 2b 20 20 20 20 76 6f 69 64 20 28 2a 74 63 6c 5f  +    void (*tcl_
2480: 4c 69 6d 69 74 52 65 6d 6f 76 65 48 61 6e 64 6c  LimitRemoveHandl
2490: 65 72 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  er) _ANSI_ARGS_(
24a0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e  (Tcl_Interp * in
24b0: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20  terp, int type, 
24c0: 54 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c 65 72  Tcl_LimitHandler
24d0: 50 72 6f 63 20 2a 20 68 61 6e 64 6c 65 72 50 72  Proc * handlerPr
24e0: 6f 63 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 63  oc, ClientData c
24f0: 6c 69 65 6e 74 44 61 74 61 29 29 3b 20 2f 2a 20  lientData)); /* 
2500: 35 32 31 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20  521 */.+    int 
2510: 28 2a 74 63 6c 5f 4c 69 6d 69 74 52 65 61 64 79  (*tcl_LimitReady
2520: 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54  ) _ANSI_ARGS_((T
2530: 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74 65  cl_Interp * inte
2540: 72 70 29 29 3b 20 2f 2a 20 35 32 32 20 2a 2f 0a  rp)); /* 522 */.
2550: 2b 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 5f 4c  +    int (*tcl_L
2560: 69 6d 69 74 43 68 65 63 6b 29 20 5f 41 4e 53 49  imitCheck) _ANSI
2570: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65  _ARGS_((Tcl_Inte
2580: 72 70 20 2a 20 69 6e 74 65 72 70 29 29 3b 20 2f  rp * interp)); /
2590: 2a 20 35 32 33 20 2a 2f 0a 2b 20 20 20 20 69 6e  * 523 */.+    in
25a0: 74 20 28 2a 74 63 6c 5f 4c 69 6d 69 74 45 78 63  t (*tcl_LimitExc
25b0: 65 65 64 65 64 29 20 5f 41 4e 53 49 5f 41 52 47  eeded) _ANSI_ARG
25c0: 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  S_((Tcl_Interp *
25d0: 20 69 6e 74 65 72 70 29 29 3b 20 2f 2a 20 35 32   interp)); /* 52
25e0: 34 20 2a 2f 0a 2b 20 20 20 20 76 6f 69 64 20 28  4 */.+    void (
25f0: 2a 74 63 6c 5f 4c 69 6d 69 74 53 65 74 43 6f 6d  *tcl_LimitSetCom
2600: 6d 61 6e 64 73 29 20 5f 41 4e 53 49 5f 41 52 47  mands) _ANSI_ARG
2610: 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  S_((Tcl_Interp *
2620: 20 69 6e 74 65 72 70 2c 20 69 6e 74 20 63 6f 6d   interp, int com
2630: 6d 61 6e 64 4c 69 6d 69 74 29 29 3b 20 2f 2a 20  mandLimit)); /* 
2640: 35 32 35 20 2a 2f 0a 2b 20 20 20 20 76 6f 69 64  525 */.+    void
2650: 20 28 2a 74 63 6c 5f 4c 69 6d 69 74 53 65 74 54   (*tcl_LimitSetT
2660: 69 6d 65 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f  ime) _ANSI_ARGS_
2670: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ((Tcl_Interp * i
2680: 6e 74 65 72 70 2c 20 54 63 6c 5f 54 69 6d 65 20  nterp, Tcl_Time 
2690: 2a 20 74 69 6d 65 4c 69 6d 69 74 50 74 72 29 29  * timeLimitPtr))
26a0: 3b 20 2f 2a 20 35 32 36 20 2a 2f 0a 2b 20 20 20  ; /* 526 */.+   
26b0: 20 76 6f 69 64 20 28 2a 74 63 6c 5f 4c 69 6d 69   void (*tcl_Limi
26c0: 74 53 65 74 47 72 61 6e 75 6c 61 72 69 74 79 29  tSetGranularity)
26d0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63   _ANSI_ARGS_((Tc
26e0: 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74 65 72  l_Interp * inter
26f0: 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 69 6e 74  p, int type, int
2700: 20 67 72 61 6e 75 6c 61 72 69 74 79 29 29 3b 20   granularity)); 
2710: 2f 2a 20 35 32 37 20 2a 2f 0a 2b 20 20 20 20 69  /* 527 */.+    i
2720: 6e 74 20 28 2a 74 63 6c 5f 4c 69 6d 69 74 54 79  nt (*tcl_LimitTy
2730: 70 65 45 6e 61 62 6c 65 64 29 20 5f 41 4e 53 49  peEnabled) _ANSI
2740: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65  _ARGS_((Tcl_Inte
2750: 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 69 6e 74  rp * interp, int
2760: 20 74 79 70 65 29 29 3b 20 2f 2a 20 35 32 38 20   type)); /* 528 
2770: 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 28 2a 74 63  */.+    int (*tc
2780: 6c 5f 4c 69 6d 69 74 54 79 70 65 45 78 63 65 65  l_LimitTypeExcee
2790: 64 65 64 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f  ded) _ANSI_ARGS_
27a0: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69  ((Tcl_Interp * i
27b0: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29  nterp, int type)
27c0: 29 3b 20 2f 2a 20 35 32 39 20 2a 2f 0a 2b 20 20  ); /* 529 */.+  
27d0: 20 20 76 6f 69 64 20 28 2a 74 63 6c 5f 4c 69 6d    void (*tcl_Lim
27e0: 69 74 54 79 70 65 53 65 74 29 20 5f 41 4e 53 49  itTypeSet) _ANSI
27f0: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65  _ARGS_((Tcl_Inte
2800: 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 69 6e 74  rp * interp, int
2810: 20 74 79 70 65 29 29 3b 20 2f 2a 20 35 33 30 20   type)); /* 530 
2820: 2a 2f 0a 2b 20 20 20 20 76 6f 69 64 20 28 2a 74  */.+    void (*t
2830: 63 6c 5f 4c 69 6d 69 74 54 79 70 65 52 65 73 65  cl_LimitTypeRese
2840: 74 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  t) _ANSI_ARGS_((
2850: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74  Tcl_Interp * int
2860: 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29 29 3b  erp, int type));
2870: 20 2f 2a 20 35 33 31 20 2a 2f 0a 2b 20 20 20 20   /* 531 */.+    
2880: 69 6e 74 20 28 2a 74 63 6c 5f 4c 69 6d 69 74 47  int (*tcl_LimitG
2890: 65 74 43 6f 6d 6d 61 6e 64 73 29 20 5f 41 4e 53  etCommands) _ANS
28a0: 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74  I_ARGS_((Tcl_Int
28b0: 65 72 70 20 2a 20 69 6e 74 65 72 70 29 29 3b 20  erp * interp)); 
28c0: 2f 2a 20 35 33 32 20 2a 2f 0a 2b 20 20 20 20 76  /* 532 */.+    v
28d0: 6f 69 64 20 28 2a 74 63 6c 5f 4c 69 6d 69 74 47  oid (*tcl_LimitG
28e0: 65 74 54 69 6d 65 29 20 5f 41 4e 53 49 5f 41 52  etTime) _ANSI_AR
28f0: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
2900: 2a 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 54 69  * interp, Tcl_Ti
2910: 6d 65 20 2a 20 74 69 6d 65 4c 69 6d 69 74 50 74  me * timeLimitPt
2920: 72 29 29 3b 20 2f 2a 20 35 33 33 20 2a 2f 0a 2b  r)); /* 533 */.+
2930: 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 5f 4c 69      int (*tcl_Li
2940: 6d 69 74 47 65 74 47 72 61 6e 75 6c 61 72 69 74  mitGetGranularit
2950: 79 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  y) _ANSI_ARGS_((
2960: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 20 69 6e 74  Tcl_Interp * int
2970: 65 72 70 2c 20 69 6e 74 20 74 79 70 65 29 29 3b  erp, int type));
2980: 20 2f 2a 20 35 33 34 20 2a 2f 0a 20 7d 20 54 63   /* 534 */. } Tc
2990: 6c 53 74 75 62 73 3b 0a 20 0a 20 23 69 66 64 65  lStubs;. . #ifde
29a0: 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 40 40  f __cplusplus.@@
29b0: 20 2d 35 39 30 33 2c 36 20 2b 36 30 31 30 2c 36   -5903,6 +6010,6
29c0: 36 20 40 40 0a 20 23 64 65 66 69 6e 65 20 54 63  6 @@. #define Tc
29d0: 6c 5f 53 65 74 45 78 69 74 50 72 6f 63 20 5c 0a  l_SetExitProc \.
29e0: 20 09 28 74 63 6c 53 74 75 62 73 50 74 72 2d 3e   .(tclStubsPtr->
29f0: 74 63 6c 5f 53 65 74 45 78 69 74 50 72 6f 63 29  tcl_SetExitProc)
2a00: 20 2f 2a 20 35 31 39 20 2a 2f 0a 20 23 65 6e 64   /* 519 */. #end
2a10: 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f  if.+#ifndef Tcl_
2a20: 4c 69 6d 69 74 41 64 64 48 61 6e 64 6c 65 72 0a  LimitAddHandler.
2a30: 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d  +#define Tcl_Lim
2a40: 69 74 41 64 64 48 61 6e 64 6c 65 72 20 5c 0a 2b  itAddHandler \.+
2a50: 09 28 74 63 6c 53 74 75 62 73 50 74 72 2d 3e 74  .(tclStubsPtr->t
2a60: 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61 6e 64 6c  cl_LimitAddHandl
2a70: 65 72 29 20 2f 2a 20 35 32 30 20 2a 2f 0a 2b 23  er) /* 520 */.+#
2a80: 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54  endif.+#ifndef T
2a90: 63 6c 5f 4c 69 6d 69 74 52 65 6d 6f 76 65 48 61  cl_LimitRemoveHa
2aa0: 6e 64 6c 65 72 0a 2b 23 64 65 66 69 6e 65 20 54  ndler.+#define T
2ab0: 63 6c 5f 4c 69 6d 69 74 52 65 6d 6f 76 65 48 61  cl_LimitRemoveHa
2ac0: 6e 64 6c 65 72 20 5c 0a 2b 09 28 74 63 6c 53 74  ndler \.+.(tclSt
2ad0: 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c 69 6d 69  ubsPtr->tcl_Limi
2ae0: 74 52 65 6d 6f 76 65 48 61 6e 64 6c 65 72 29 20  tRemoveHandler) 
2af0: 2f 2a 20 35 32 31 20 2a 2f 0a 2b 23 65 6e 64 69  /* 521 */.+#endi
2b00: 66 0a 2b 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c  f.+#ifndef Tcl_L
2b10: 69 6d 69 74 52 65 61 64 79 0a 2b 23 64 65 66 69  imitReady.+#defi
2b20: 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 52 65 61 64  ne Tcl_LimitRead
2b30: 79 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 50  y \.+.(tclStubsP
2b40: 74 72 2d 3e 74 63 6c 5f 4c 69 6d 69 74 52 65 61  tr->tcl_LimitRea
2b50: 64 79 29 20 2f 2a 20 35 32 32 20 2a 2f 0a 2b 23  dy) /* 522 */.+#
2b60: 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54  endif.+#ifndef T
2b70: 63 6c 5f 4c 69 6d 69 74 43 68 65 63 6b 0a 2b 23  cl_LimitCheck.+#
2b80: 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d 69 74  define Tcl_Limit
2b90: 43 68 65 63 6b 20 5c 0a 2b 09 28 74 63 6c 53 74  Check \.+.(tclSt
2ba0: 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c 69 6d 69  ubsPtr->tcl_Limi
2bb0: 74 43 68 65 63 6b 29 20 2f 2a 20 35 32 33 20 2a  tCheck) /* 523 *
2bc0: 2f 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66 6e 64  /.+#endif.+#ifnd
2bd0: 65 66 20 54 63 6c 5f 4c 69 6d 69 74 45 78 63 65  ef Tcl_LimitExce
2be0: 65 64 65 64 0a 2b 23 64 65 66 69 6e 65 20 54 63  eded.+#define Tc
2bf0: 6c 5f 4c 69 6d 69 74 45 78 63 65 65 64 65 64 20  l_LimitExceeded 
2c00: 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 50 74 72  \.+.(tclStubsPtr
2c10: 2d 3e 74 63 6c 5f 4c 69 6d 69 74 45 78 63 65 65  ->tcl_LimitExcee
2c20: 64 65 64 29 20 2f 2a 20 35 32 34 20 2a 2f 0a 2b  ded) /* 524 */.+
2c30: 23 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20  #endif.+#ifndef 
2c40: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 43 6f 6d 6d  Tcl_LimitSetComm
2c50: 61 6e 64 73 0a 2b 23 64 65 66 69 6e 65 20 54 63  ands.+#define Tc
2c60: 6c 5f 4c 69 6d 69 74 53 65 74 43 6f 6d 6d 61 6e  l_LimitSetComman
2c70: 64 73 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73  ds \.+.(tclStubs
2c80: 50 74 72 2d 3e 74 63 6c 5f 4c 69 6d 69 74 53 65  Ptr->tcl_LimitSe
2c90: 74 43 6f 6d 6d 61 6e 64 73 29 20 2f 2a 20 35 32  tCommands) /* 52
2ca0: 35 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 2b 23 69  5 */.+#endif.+#i
2cb0: 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 53  fndef Tcl_LimitS
2cc0: 65 74 54 69 6d 65 0a 2b 23 64 65 66 69 6e 65 20  etTime.+#define 
2cd0: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 54 69 6d 65  Tcl_LimitSetTime
2ce0: 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 50 74   \.+.(tclStubsPt
2cf0: 72 2d 3e 74 63 6c 5f 4c 69 6d 69 74 53 65 74 54  r->tcl_LimitSetT
2d00: 69 6d 65 29 20 2f 2a 20 35 32 36 20 2a 2f 0a 2b  ime) /* 526 */.+
2d10: 23 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20  #endif.+#ifndef 
2d20: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47 72 61 6e  Tcl_LimitSetGran
2d30: 75 6c 61 72 69 74 79 0a 2b 23 64 65 66 69 6e 65  ularity.+#define
2d40: 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47 72 61   Tcl_LimitSetGra
2d50: 6e 75 6c 61 72 69 74 79 20 5c 0a 2b 09 28 74 63  nularity \.+.(tc
2d60: 6c 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c  lStubsPtr->tcl_L
2d70: 69 6d 69 74 53 65 74 47 72 61 6e 75 6c 61 72 69  imitSetGranulari
2d80: 74 79 29 20 2f 2a 20 35 32 37 20 2a 2f 0a 2b 23  ty) /* 527 */.+#
2d90: 65 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54  endif.+#ifndef T
2da0: 63 6c 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62  cl_LimitTypeEnab
2db0: 6c 65 64 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c  led.+#define Tcl
2dc0: 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62 6c 65  _LimitTypeEnable
2dd0: 64 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 50  d \.+.(tclStubsP
2de0: 74 72 2d 3e 74 63 6c 5f 4c 69 6d 69 74 54 79 70  tr->tcl_LimitTyp
2df0: 65 45 6e 61 62 6c 65 64 29 20 2f 2a 20 35 32 38  eEnabled) /* 528
2e00: 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 2b 23 69 66   */.+#endif.+#if
2e10: 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69 74 54 79  ndef Tcl_LimitTy
2e20: 70 65 45 78 63 65 65 64 65 64 0a 2b 23 64 65 66  peExceeded.+#def
2e30: 69 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 54 79 70  ine Tcl_LimitTyp
2e40: 65 45 78 63 65 65 64 65 64 20 5c 0a 2b 09 28 74  eExceeded \.+.(t
2e50: 63 6c 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f  clStubsPtr->tcl_
2e60: 4c 69 6d 69 74 54 79 70 65 45 78 63 65 65 64 65  LimitTypeExceede
2e70: 64 29 20 2f 2a 20 35 32 39 20 2a 2f 0a 2b 23 65  d) /* 529 */.+#e
2e80: 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63  ndif.+#ifndef Tc
2e90: 6c 5f 4c 69 6d 69 74 54 79 70 65 53 65 74 0a 2b  l_LimitTypeSet.+
2ea0: 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d 69  #define Tcl_Limi
2eb0: 74 54 79 70 65 53 65 74 20 5c 0a 2b 09 28 74 63  tTypeSet \.+.(tc
2ec0: 6c 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c  lStubsPtr->tcl_L
2ed0: 69 6d 69 74 54 79 70 65 53 65 74 29 20 2f 2a 20  imitTypeSet) /* 
2ee0: 35 33 30 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 2b  530 */.+#endif.+
2ef0: 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69  #ifndef Tcl_Limi
2f00: 74 54 79 70 65 52 65 73 65 74 0a 2b 23 64 65 66  tTypeReset.+#def
2f10: 69 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 54 79 70  ine Tcl_LimitTyp
2f20: 65 52 65 73 65 74 20 5c 0a 2b 09 28 74 63 6c 53  eReset \.+.(tclS
2f30: 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c 69 6d  tubsPtr->tcl_Lim
2f40: 69 74 54 79 70 65 52 65 73 65 74 29 20 2f 2a 20  itTypeReset) /* 
2f50: 35 33 31 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 2b  531 */.+#endif.+
2f60: 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69  #ifndef Tcl_Limi
2f70: 74 47 65 74 43 6f 6d 6d 61 6e 64 73 0a 2b 23 64  tGetCommands.+#d
2f80: 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d 69 74 47  efine Tcl_LimitG
2f90: 65 74 43 6f 6d 6d 61 6e 64 73 20 5c 0a 2b 09 28  etCommands \.+.(
2fa0: 74 63 6c 53 74 75 62 73 50 74 72 2d 3e 74 63 6c  tclStubsPtr->tcl
2fb0: 5f 4c 69 6d 69 74 47 65 74 43 6f 6d 6d 61 6e 64  _LimitGetCommand
2fc0: 73 29 20 2f 2a 20 35 33 32 20 2a 2f 0a 2b 23 65  s) /* 532 */.+#e
2fd0: 6e 64 69 66 0a 2b 23 69 66 6e 64 65 66 20 54 63  ndif.+#ifndef Tc
2fe0: 6c 5f 4c 69 6d 69 74 47 65 74 54 69 6d 65 0a 2b  l_LimitGetTime.+
2ff0: 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d 69  #define Tcl_Limi
3000: 74 47 65 74 54 69 6d 65 20 5c 0a 2b 09 28 74 63  tGetTime \.+.(tc
3010: 6c 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4c  lStubsPtr->tcl_L
3020: 69 6d 69 74 47 65 74 54 69 6d 65 29 20 2f 2a 20  imitGetTime) /* 
3030: 35 33 33 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 2b  533 */.+#endif.+
3040: 23 69 66 6e 64 65 66 20 54 63 6c 5f 4c 69 6d 69  #ifndef Tcl_Limi
3050: 74 47 65 74 47 72 61 6e 75 6c 61 72 69 74 79 0a  tGetGranularity.
3060: 2b 23 64 65 66 69 6e 65 20 54 63 6c 5f 4c 69 6d  +#define Tcl_Lim
3070: 69 74 47 65 74 47 72 61 6e 75 6c 61 72 69 74 79  itGetGranularity
3080: 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 50 74   \.+.(tclStubsPt
3090: 72 2d 3e 74 63 6c 5f 4c 69 6d 69 74 47 65 74 47  r->tcl_LimitGetG
30a0: 72 61 6e 75 6c 61 72 69 74 79 29 20 2f 2a 20 35  ranularity) /* 5
30b0: 33 34 20 2a 2f 0a 2b 23 65 6e 64 69 66 0a 20 0a  34 */.+#endif. .
30c0: 20 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e   #endif /* defin
30d0: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53  ed(USE_TCL_STUBS
30e0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53  ) && !defined(US
30f0: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53  E_TCL_STUB_PROCS
3100: 29 20 2a 2f 0a 20 0a 49 6e 64 65 78 3a 20 67 65  ) */. .Index: ge
3110: 6e 65 72 69 63 2f 74 63 6c 45 76 65 6e 74 2e 63  neric/tclEvent.c
3120: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .===============
3130: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3140: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3150: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3160: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f  ====.RCS file: /
3170: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f  cvsroot/tcl/tcl/
3180: 67 65 6e 65 72 69 63 2f 74 63 6c 45 76 65 6e 74  generic/tclEvent
3190: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20  .c,v.retrieving 
31a0: 72 65 76 69 73 69 6f 6e 20 31 2e 33 32 0a 64 69  revision 1.32.di
31b0: 66 66 20 2d 75 20 2d 62 20 2d 42 20 2d 72 31 2e  ff -u -b -B -r1.
31c0: 33 32 20 74 63 6c 45 76 65 6e 74 2e 63 0a 2d 2d  32 tclEvent.c.--
31d0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 76 65  - generic/tclEve
31e0: 6e 74 2e 63 09 36 20 41 70 72 20 32 30 30 34 20  nt.c.6 Apr 2004 
31f0: 32 32 3a 32 35 3a 35 30 20 2d 30 30 30 30 09 31  22:25:50 -0000.1
3200: 2e 33 32 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f  .32.+++ generic/
3210: 74 63 6c 45 76 65 6e 74 2e 63 09 31 39 20 41 70  tclEvent.c.19 Ap
3220: 72 20 32 30 30 34 20 32 32 3a 31 38 3a 33 32 20  r 2004 22:18:32 
3230: 2d 30 30 30 30 0a 40 40 20 2d 31 31 30 32 2c 36  -0000.@@ -1102,6
3240: 20 2b 31 31 30 32 2c 39 20 40 40 0a 20 20 20 20   +1102,9 @@.    
3250: 20 66 6f 75 6e 64 45 76 65 6e 74 20 3d 20 31 3b   foundEvent = 1;
3260: 0a 20 20 20 20 20 77 68 69 6c 65 20 28 21 64 6f  .     while (!do
3270: 6e 65 20 26 26 20 66 6f 75 6e 64 45 76 65 6e 74  ne && foundEvent
3280: 29 20 7b 0a 20 09 66 6f 75 6e 64 45 76 65 6e 74  ) {. .foundEvent
3290: 20 3d 20 54 63 6c 5f 44 6f 4f 6e 65 45 76 65 6e   = Tcl_DoOneEven
32a0: 74 28 54 43 4c 5f 41 4c 4c 5f 45 56 45 4e 54 53  t(TCL_ALL_EVENTS
32b0: 29 3b 0a 2b 09 69 66 20 28 54 63 6c 5f 4c 69 6d  );.+.if (Tcl_Lim
32c0: 69 74 45 78 63 65 65 64 65 64 28 69 6e 74 65 72  itExceeded(inter
32d0: 70 29 29 20 7b 0a 2b 09 20 20 20 20 72 65 74 75  p)) {.+.    retu
32e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09  rn TCL_ERROR;.+.
32f0: 7d 0a 20 20 20 20 20 7d 0a 20 20 20 20 20 54 63  }.     }.     Tc
3300: 6c 5f 55 6e 74 72 61 63 65 56 61 72 28 69 6e 74  l_UntraceVar(int
3310: 65 72 70 2c 20 6e 61 6d 65 53 74 72 69 6e 67 2c  erp, nameString,
3320: 0a 20 09 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41  . .    TCL_GLOBA
3330: 4c 5f 4f 4e 4c 59 7c 54 43 4c 5f 54 52 41 43 45  L_ONLY|TCL_TRACE
3340: 5f 57 52 49 54 45 53 7c 54 43 4c 5f 54 52 41 43  _WRITES|TCL_TRAC
3350: 45 5f 55 4e 53 45 54 53 2c 0a 40 40 20 2d 31 31  E_UNSETS,.@@ -11
3360: 38 38 2c 37 20 2b 31 31 39 31 2c 39 20 40 40 0a  88,7 +1191,9 @@.
3370: 20 20 20 20 20 7d 0a 20 20 20 20 20 0a 20 20 20       }.     .   
3380: 20 20 77 68 69 6c 65 20 28 54 63 6c 5f 44 6f 4f    while (Tcl_DoO
3390: 6e 65 45 76 65 6e 74 28 66 6c 61 67 73 29 20 21  neEvent(flags) !
33a0: 3d 20 30 29 20 7b 0a 2d 09 2f 2a 20 45 6d 70 74  = 0) {.-./* Empt
33b0: 79 20 6c 6f 6f 70 20 62 6f 64 79 20 2a 2f 0a 2b  y loop body */.+
33c0: 09 69 66 20 28 54 63 6c 5f 4c 69 6d 69 74 45 78  .if (Tcl_LimitEx
33d0: 63 65 65 64 65 64 28 69 6e 74 65 72 70 29 29 20  ceeded(interp)) 
33e0: 7b 0a 2b 09 20 20 20 20 72 65 74 75 72 6e 20 54  {.+.    return T
33f0: 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 7d 0a 20 20  CL_ERROR;.+.}.  
3400: 20 20 20 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 49     }. .     /*.I
3410: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63  ndex: generic/tc
3420: 6c 45 78 65 63 75 74 65 2e 63 0a 3d 3d 3d 3d 3d  lExecute.c.=====
3430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3440: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3450: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
3460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52  ==============.R
3470: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f  CS file: /cvsroo
3480: 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69  t/tcl/tcl/generi
3490: 63 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 2c 76  c/tclExecute.c,v
34a0: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69  .retrieving revi
34b0: 73 69 6f 6e 20 31 2e 31 32 34 0a 64 69 66 66 20  sion 1.124.diff 
34c0: 2d 75 20 2d 62 20 2d 42 20 2d 72 31 2e 31 32 34  -u -b -B -r1.124
34d0: 20 74 63 6c 45 78 65 63 75 74 65 2e 63 0a 2d 2d   tclExecute.c.--
34e0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 65  - generic/tclExe
34f0: 63 75 74 65 2e 63 09 36 20 41 70 72 20 32 30 30  cute.c.6 Apr 200
3500: 34 20 32 32 3a 32 35 3a 35 30 20 2d 30 30 30 30  4 22:25:50 -0000
3510: 09 31 2e 31 32 34 0a 2b 2b 2b 20 67 65 6e 65 72  .1.124.+++ gener
3520: 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 09  ic/tclExecute.c.
3530: 31 39 20 41 70 72 20 32 30 30 34 20 32 32 3a 31  19 Apr 2004 22:1
3540: 38 3a 33 32 20 2d 30 30 30 30 0a 40 40 20 2d 31  8:32 -0000.@@ -1
3550: 30 31 31 2c 32 31 20 2b 31 30 31 31 2c 32 30 20  011,21 +1011,20 
3560: 40 40 0a 20 20 20 20 20 7d 0a 20 20 20 20 20 69  @@.     }.     i
3570: 50 74 72 2d 3e 6e 75 6d 4c 65 76 65 6c 73 2d 2d  Ptr->numLevels--
3580: 3b 0a 20 0a 2d 0a 20 20 20 20 20 2f 2a 0a 20 20  ;. .-.     /*.  
3590: 20 20 20 20 2a 20 49 66 20 6e 6f 20 63 6f 6d 6d      * If no comm
35a0: 61 6e 64 73 20 61 74 20 61 6c 6c 20 77 65 72 65  ands at all were
35b0: 20 65 78 65 63 75 74 65 64 2c 20 63 68 65 63 6b   executed, check
35c0: 20 66 6f 72 20 61 73 79 6e 63 68 72 6f 6e 6f 75   for asynchronou
35d0: 73 0a 2d 20 20 20 20 20 2a 20 68 61 6e 64 6c 65  s.-     * handle
35e0: 72 73 20 73 6f 20 74 68 61 74 20 74 68 65 79 20  rs so that they 
35f0: 61 74 20 6c 65 61 73 74 20 67 65 74 20 6f 6e 65  at least get one
3600: 20 63 68 61 6e 67 65 20 74 6f 20 65 78 65 63 75   change to execu
3610: 74 65 2e 0a 2d 20 20 20 20 20 2a 20 54 68 69 73  te..-     * This
3620: 20 69 73 20 6e 65 65 64 65 64 20 74 6f 20 68 61   is needed to ha
3630: 6e 64 6c 65 20 65 76 65 6e 74 20 6c 6f 6f 70 73  ndle event loops
3640: 20 77 72 69 74 74 65 6e 20 69 6e 20 54 63 6c 20   written in Tcl 
3650: 77 69 74 68 0a 2d 20 20 20 20 20 2a 20 65 6d 70  with.-     * emp
3660: 74 79 20 62 6f 64 69 65 73 2e 0a 2b 20 20 20 20  ty bodies..+    
3670: 20 2a 20 68 61 6e 64 6c 65 72 73 20 61 6e 64 20   * handlers and 
3680: 72 65 73 6f 75 72 63 65 20 6c 69 6d 69 74 73 20  resource limits 
3690: 73 6f 20 74 68 61 74 20 74 68 65 79 20 61 74 20  so that they at 
36a0: 6c 65 61 73 74 20 67 65 74 20 6f 6e 65 0a 2b 20  least get one.+ 
36b0: 20 20 20 20 2a 20 63 68 61 6e 67 65 20 74 6f 20      * change to 
36c0: 65 78 65 63 75 74 65 2e 20 20 54 68 69 73 20 69  execute.  This i
36d0: 73 20 6e 65 65 64 65 64 20 74 6f 20 68 61 6e 64  s needed to hand
36e0: 6c 65 20 65 76 65 6e 74 20 6c 6f 6f 70 73 0a 2b  le event loops.+
36f0: 20 20 20 20 20 2a 20 77 72 69 74 74 65 6e 20 69       * written i
3700: 6e 20 54 63 6c 20 77 69 74 68 20 65 6d 70 74 79  n Tcl with empty
3710: 20 62 6f 64 69 65 73 2e 0a 20 20 20 20 20 20 2a   bodies..      *
3720: 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28 28 6f 6c  /. .-    if ((ol
3730: 64 43 6f 75 6e 74 20 3d 3d 20 69 50 74 72 2d 3e  dCount == iPtr->
3740: 63 6d 64 43 6f 75 6e 74 29 20 26 26 20 54 63 6c  cmdCount) && Tcl
3750: 5f 41 73 79 6e 63 52 65 61 64 79 28 29 29 20 7b  _AsyncReady()) {
3760: 0a 2b 20 20 20 20 69 66 20 28 6f 6c 64 43 6f 75  .+    if (oldCou
3770: 6e 74 20 3d 3d 20 69 50 74 72 2d 3e 63 6d 64 43  nt == iPtr->cmdC
3780: 6f 75 6e 74 29 20 7b 0a 2b 09 69 66 20 28 54 63  ount) {.+.if (Tc
3790: 6c 5f 41 73 79 6e 63 52 65 61 64 79 28 29 29 20  l_AsyncReady()) 
37a0: 7b 0a 20 09 72 65 73 75 6c 74 20 3d 20 54 63 6c  {. .result = Tcl
37b0: 5f 41 73 79 6e 63 49 6e 76 6f 6b 65 28 69 6e 74  _AsyncInvoke(int
37c0: 65 72 70 2c 20 72 65 73 75 6c 74 29 3b 0a 20 20  erp, result);.  
37d0: 20 20 20 0a 2d 0a 20 09 2f 2a 0a 2d 09 20 2a 20     .-. ./*.-. * 
37e0: 49 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75  If an error occu
37f0: 72 72 65 64 2c 20 72 65 63 6f 72 64 20 69 6e 66  rred, record inf
3800: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77  ormation about w
3810: 68 61 74 20 77 61 73 20 62 65 69 6e 67 0a 2d 09  hat was being.-.
3820: 20 2a 20 65 78 65 63 75 74 65 64 20 77 68 65 6e   * executed when
3830: 20 74 68 65 20 65 72 72 6f 72 20 6f 63 63 75 72   the error occur
3840: 72 65 64 2e 0a 2b 09 20 20 20 20 20 2a 20 49 66  red..+.     * If
3850: 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72   an error occurr
3860: 65 64 2c 20 72 65 63 6f 72 64 20 69 6e 66 6f 72  ed, record infor
3870: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 68 61  mation about wha
3880: 74 20 77 61 73 0a 2b 09 20 20 20 20 20 2a 20 62  t was.+.     * b
3890: 65 69 6e 67 20 65 78 65 63 75 74 65 64 20 77 68  eing executed wh
38a0: 65 6e 20 74 68 65 20 65 72 72 6f 72 20 6f 63 63  en the error occ
38b0: 75 72 72 65 64 2e 0a 20 09 20 2a 2f 0a 20 09 0a  urred.. . */. ..
38c0: 20 09 69 66 20 28 28 72 65 73 75 6c 74 20 3d 3d   .if ((result ==
38d0: 20 54 43 4c 5f 45 52 52 4f 52 29 20 26 26 20 21   TCL_ERROR) && !
38e0: 28 69 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 45  (iPtr->flags & E
38f0: 52 52 5f 41 4c 52 45 41 44 59 5f 4c 4f 47 47 45  RR_ALREADY_LOGGE
3900: 44 29 29 20 7b 0a 40 40 20 2d 31 30 33 33 2c 36  D)) {.@@ -1033,6
3910: 20 2b 31 30 33 32 2c 32 30 20 40 40 0a 20 09 20   +1032,20 @@. . 
3920: 20 20 20 54 63 6c 5f 4c 6f 67 43 6f 6d 6d 61 6e     Tcl_LogComman
3930: 64 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 73 63  dInfo(interp, sc
3940: 72 69 70 74 2c 20 73 63 72 69 70 74 2c 20 6e 75  ript, script, nu
3950: 6d 53 72 63 42 79 74 65 73 29 3b 0a 20 09 7d 0a  mSrcBytes);. .}.
3960: 20 20 20 20 20 7d 0a 2b 09 69 66 20 28 72 65 73       }.+.if (res
3970: 75 6c 74 3d 3d 54 43 4c 5f 4f 4b 20 26 26 20 54  ult==TCL_OK && T
3980: 63 6c 5f 4c 69 6d 69 74 52 65 61 64 79 28 69 6e  cl_LimitReady(in
3990: 74 65 72 70 29 29 20 7b 0a 2b 09 20 20 20 20 72  terp)) {.+.    r
39a0: 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4c 69 6d 69  esult = Tcl_Limi
39b0: 74 43 68 65 63 6b 28 69 6e 74 65 72 70 29 3b 0a  tCheck(interp);.
39c0: 2b 0a 2b 09 20 20 20 20 2f 2a 0a 2b 09 20 20 20  +.+.    /*.+.   
39d0: 20 20 2a 20 49 66 20 61 6e 20 65 72 72 6f 72 20    * If an error 
39e0: 6f 63 63 75 72 72 65 64 2c 20 72 65 63 6f 72 64  occurred, record
39f0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f   information abo
3a00: 75 74 20 77 68 61 74 20 77 61 73 0a 2b 09 20 20  ut what was.+.  
3a10: 20 20 20 2a 20 62 65 69 6e 67 20 65 78 65 63 75     * being execu
3a20: 74 65 64 20 77 68 65 6e 20 74 68 65 20 65 72 72  ted when the err
3a30: 6f 72 20 6f 63 63 75 72 72 65 64 2e 0a 2b 09 20  or occurred..+. 
3a40: 20 20 20 20 2a 2f 0a 2b 0a 2b 09 20 20 20 20 69      */.+.+.    i
3a50: 66 20 28 72 65 73 75 6c 74 3d 3d 54 43 4c 5f 45  f (result==TCL_E
3a60: 52 52 4f 52 20 26 26 20 21 28 69 50 74 72 2d 3e  RROR && !(iPtr->
3a70: 66 6c 61 67 73 20 26 20 45 52 52 5f 41 4c 52 45  flags & ERR_ALRE
3a80: 41 44 59 5f 4c 4f 47 47 45 44 29 29 20 7b 0a 2b  ADY_LOGGED)) {.+
3a90: 09 09 73 63 72 69 70 74 20 3d 20 54 63 6c 5f 47  ..script = Tcl_G
3aa0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
3ab0: 6f 62 6a 50 74 72 2c 20 26 6e 75 6d 53 72 63 42  objPtr, &numSrcB
3ac0: 79 74 65 73 29 3b 0a 2b 09 09 54 63 6c 5f 4c 6f  ytes);.+..Tcl_Lo
3ad0: 67 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74  gCommandInfo(int
3ae0: 65 72 70 2c 20 73 63 72 69 70 74 2c 20 73 63 72  erp, script, scr
3af0: 69 70 74 2c 20 6e 75 6d 53 72 63 42 79 74 65 73  ipt, numSrcBytes
3b00: 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d 0a 2b  );.+.    }.+.}.+
3b10: 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 69 50 74      }. .     iPt
3b20: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 45 52 52  r->flags &= ~ERR
3b30: 5f 41 4c 52 45 41 44 59 5f 4c 4f 47 47 45 44 3b  _ALREADY_LOGGED;
3b40: 0a 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 73  .     return res
3b50: 75 6c 74 3b 0a 40 40 20 2d 31 32 32 39 2c 37 20  ult;.@@ -1229,7 
3b60: 2b 31 32 34 32 2c 38 20 40 40 0a 20 20 20 20 20  +1242,8 @@.     
3b70: 20 2a 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28   * of the form (
3b80: 32 2a 2a 6e 2d 31 29 2e 0a 20 20 20 20 20 20 2a  2**n-1)..      *
3b90: 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28 21 28 69  /. .-    if (!(i
3ba0: 6e 73 74 72 75 63 74 69 6f 6e 43 6f 75 6e 74 2b  nstructionCount+
3bb0: 2b 20 26 20 41 53 59 4e 43 5f 43 48 45 43 4b 5f  + & ASYNC_CHECK_
3bc0: 43 4f 55 4e 54 5f 4d 41 53 4b 29 20 26 26 20 54  COUNT_MASK) && T
3bd0: 63 6c 5f 41 73 79 6e 63 52 65 61 64 79 28 29 29  cl_AsyncReady())
3be0: 20 7b 0a 2b 20 20 20 20 69 66 20 28 28 69 6e 73   {.+    if ((ins
3bf0: 74 72 75 63 74 69 6f 6e 43 6f 75 6e 74 2b 2b 20  tructionCount++ 
3c00: 26 20 41 53 59 4e 43 5f 43 48 45 43 4b 5f 43 4f  & ASYNC_CHECK_CO
3c10: 55 4e 54 5f 4d 41 53 4b 29 20 3d 3d 20 30 29 20  UNT_MASK) == 0) 
3c20: 7b 0a 2b 09 69 66 20 28 54 63 6c 5f 41 73 79 6e  {.+.if (Tcl_Asyn
3c30: 63 52 65 61 64 79 28 29 29 20 7b 0a 20 09 44 45  cReady()) {. .DE
3c40: 43 41 43 48 45 5f 53 54 41 43 4b 5f 49 4e 46 4f  CACHE_STACK_INFO
3c50: 28 29 3b 0a 20 09 72 65 73 75 6c 74 20 3d 20 54  ();. .result = T
3c60: 63 6c 5f 41 73 79 6e 63 49 6e 76 6f 6b 65 28 69  cl_AsyncInvoke(i
3c70: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 29 3b 0a  nterp, result);.
3c80: 20 09 43 41 43 48 45 5f 53 54 41 43 4b 5f 49 4e   .CACHE_STACK_IN
3c90: 46 4f 28 29 3b 0a 40 40 20 2d 31 32 33 37 2c 36  FO();.@@ -1237,6
3ca0: 20 2b 31 32 35 31 2c 31 35 20 40 40 0a 20 09 20   +1251,15 @@. . 
3cb0: 20 20 20 67 6f 74 6f 20 63 68 65 63 6b 46 6f 72     goto checkFor
3cc0: 43 61 74 63 68 3b 0a 20 09 7d 0a 20 20 20 20 20  Catch;. .}.     
3cd0: 7d 0a 2b 09 69 66 20 28 54 63 6c 5f 4c 69 6d 69  }.+.if (Tcl_Limi
3ce0: 74 52 65 61 64 79 28 69 6e 74 65 72 70 29 29 20  tReady(interp)) 
3cf0: 7b 0a 2b 09 20 20 20 20 44 45 43 41 43 48 45 5f  {.+.    DECACHE_
3d00: 53 54 41 43 4b 5f 49 4e 46 4f 28 29 3b 0a 2b 09  STACK_INFO();.+.
3d10: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c      result = Tcl
3d20: 5f 4c 69 6d 69 74 43 68 65 63 6b 28 69 6e 74 65  _LimitCheck(inte
3d30: 72 70 29 3b 0a 2b 09 20 20 20 20 43 41 43 48 45  rp);.+.    CACHE
3d40: 5f 53 54 41 43 4b 5f 49 4e 46 4f 28 29 3b 0a 2b  _STACK_INFO();.+
3d50: 09 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 20  .    if (result 
3d60: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a  == TCL_ERROR) {.
3d70: 2b 09 09 67 6f 74 6f 20 63 68 65 63 6b 46 6f 72  +..goto checkFor
3d80: 43 61 74 63 68 3b 0a 2b 09 20 20 20 20 7d 0a 2b  Catch;.+.    }.+
3d90: 09 7d 0a 2b 20 20 20 20 7d 0a 20 0a 20 20 20 20  .}.+    }. .    
3da0: 20 73 77 69 74 63 68 20 28 2a 70 63 29 20 7b 0a   switch (*pc) {.
3db0: 20 20 20 20 20 63 61 73 65 20 49 4e 53 54 5f 53       case INST_S
3dc0: 54 41 52 54 5f 43 4d 44 3a 0a 40 40 20 2d 34 35  TART_CMD:.@@ -45
3dd0: 34 39 2c 36 20 2b 34 35 37 32 2c 32 30 20 40 40  49,6 +4572,20 @@
3de0: 0a 20 09 20 20 20 20 69 50 74 72 2d 3e 66 6c 61  . .    iPtr->fla
3df0: 67 73 20 7c 3d 20 45 52 52 5f 41 4c 52 45 41 44  gs |= ERR_ALREAD
3e00: 59 5f 4c 4f 47 47 45 44 3b 0a 20 09 7d 0a 20 20  Y_LOGGED;. .}.  
3e10: 20 20 20 7d 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20     }.+    /*.+  
3e20: 20 20 20 2a 20 57 65 20 6d 75 73 74 20 6e 6f 74     * We must not
3e30: 20 63 61 74 63 68 20 61 6e 20 65 78 63 65 65 64   catch an exceed
3e40: 65 64 20 6c 69 6d 69 74 2e 20 20 49 6e 73 74 65  ed limit.  Inste
3e50: 61 64 2c 20 69 74 20 62 6c 6f 77 73 0a 2b 20 20  ad, it blows.+  
3e60: 20 20 20 2a 20 6f 75 74 77 61 72 64 73 20 75 6e     * outwards un
3e70: 74 69 6c 20 77 65 20 65 69 74 68 65 72 20 68 69  til we either hi
3e80: 74 20 61 6e 6f 74 68 65 72 20 69 6e 74 65 72 70  t another interp
3e90: 72 65 74 65 72 20 28 70 72 65 73 75 6d 61 62 6c  reter (presumabl
3ea0: 79 0a 2b 20 20 20 20 20 2a 20 77 68 65 72 65 20  y.+     * where 
3eb0: 74 68 65 20 6c 69 6d 69 74 20 69 73 20 6e 6f 74  the limit is not
3ec0: 20 65 78 63 65 65 64 65 64 29 20 6f 72 20 77 65   exceeded) or we
3ed0: 20 67 65 74 20 74 6f 20 74 68 65 20 74 6f 70 2d   get to the top-
3ee0: 6c 65 76 65 6c 2e 0a 2b 20 20 20 20 20 2a 2f 0a  level..+     */.
3ef0: 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 4c 69 6d  +    if (Tcl_Lim
3f00: 69 74 45 78 63 65 65 64 65 64 28 69 6e 74 65 72  itExceeded(inter
3f10: 70 29 29 20 7b 0a 2b 23 69 66 64 65 66 20 54 43  p)) {.+#ifdef TC
3f20: 4c 5f 43 4f 4d 50 49 4c 45 5f 44 45 42 55 47 0a  L_COMPILE_DEBUG.
3f30: 2b 09 69 66 20 28 74 72 61 63 65 49 6e 73 74 72  +.if (traceInstr
3f40: 75 63 74 69 6f 6e 73 29 20 7b 0a 2b 09 20 20 20  uctions) {.+.   
3f50: 20 66 70 72 69 6e 74 66 28 73 74 64 6f 75 74 2c   fprintf(stdout,
3f60: 20 22 20 20 20 2e 2e 2e 20 6c 69 6d 69 74 20 65   "   ... limit e
3f70: 78 63 65 65 64 65 64 2c 20 72 65 74 75 72 6e 69  xceeded, returni
3f80: 6e 67 20 25 73 5c 6e 22 2c 0a 2b 09 20 20 20 20  ng %s\n",.+.    
3f90: 20 20 20 20 20 20 20 20 53 74 72 69 6e 67 46 6f          StringFo
3fa0: 72 52 65 73 75 6c 74 43 6f 64 65 28 72 65 73 75  rResultCode(resu
3fb0: 6c 74 29 29 3b 0a 2b 09 7d 0a 2b 23 65 6e 64 69  lt));.+.}.+#endi
3fc0: 66 0a 2b 09 67 6f 74 6f 20 61 62 6e 6f 72 6d 61  f.+.goto abnorma
3fd0: 6c 52 65 74 75 72 6e 3b 0a 2b 20 20 20 20 7d 0a  lReturn;.+    }.
3fe0: 20 20 20 20 20 69 66 20 28 63 61 74 63 68 54 6f       if (catchTo
3ff0: 70 20 3d 3d 20 69 6e 69 74 43 61 74 63 68 54 6f  p == initCatchTo
4000: 70 29 20 7b 0a 20 23 69 66 64 65 66 20 54 43 4c  p) {. #ifdef TCL
4010: 5f 43 4f 4d 50 49 4c 45 5f 44 45 42 55 47 0a 20  _COMPILE_DEBUG. 
4020: 09 69 66 20 28 74 72 61 63 65 49 6e 73 74 72 75  .if (traceInstru
4030: 63 74 69 6f 6e 73 29 20 7b 0a 49 6e 64 65 78 3a  ctions) {.Index:
4040: 20 67 65 6e 65 72 69 63 2f 74 63 6c 48 69 73 74   generic/tclHist
4050: 6f 72 79 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ory.c.==========
4060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
4090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69  =========.RCS fi
40a0: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c  le: /cvsroot/tcl
40b0: 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c  /tcl/generic/tcl
40c0: 48 69 73 74 6f 72 79 2e 63 2c 76 0a 72 65 74 72  History.c,v.retr
40d0: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20  ieving revision 
40e0: 31 2e 35 0a 64 69 66 66 20 2d 75 20 2d 62 20 2d  1.5.diff -u -b -
40f0: 42 20 2d 72 31 2e 35 20 74 63 6c 48 69 73 74 6f  B -r1.5 tclHisto
4100: 72 79 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63  ry.c.--- generic
4110: 2f 74 63 6c 48 69 73 74 6f 72 79 2e 63 09 36 20  /tclHistory.c.6 
4120: 41 70 72 20 32 30 30 34 20 32 32 3a 32 35 3a 35  Apr 2004 22:25:5
4130: 31 20 2d 30 30 30 30 09 31 2e 35 0a 2b 2b 2b 20  1 -0000.1.5.+++ 
4140: 67 65 6e 65 72 69 63 2f 74 63 6c 48 69 73 74 6f  generic/tclHisto
4150: 72 79 2e 63 09 31 39 20 41 70 72 20 32 30 30 34  ry.c.19 Apr 2004
4160: 20 32 32 3a 31 38 3a 33 32 20 2d 30 30 30 30 0a   22:18:32 -0000.
4170: 40 40 20 2d 31 33 33 2c 36 20 2b 31 33 33 2c 31  @@ -133,6 +133,1
4180: 34 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 44 65  4 @@.     Tcl_De
4190: 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 50 74  crRefCount(objPt
41a0: 72 29 3b 0a 20 0a 20 20 20 20 20 2f 2a 0a 2b 20  r);. .     /*.+ 
41b0: 20 20 20 20 2a 20 4f 6e 65 20 70 6f 73 73 69 62      * One possib
41c0: 6c 65 20 66 61 69 6c 75 72 65 20 6d 6f 64 65 20  le failure mode 
41d0: 61 62 6f 76 65 3a 20 65 78 63 65 65 64 69 6e 67  above: exceeding
41e0: 20 61 20 72 65 73 6f 75 72 63 65 20 6c 69 6d 69   a resource limi
41f0: 74 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20  t.+     */.+.+  
4200: 20 20 69 66 20 28 54 63 6c 5f 4c 69 6d 69 74 45    if (Tcl_LimitE
4210: 78 63 65 65 64 65 64 28 69 6e 74 65 72 70 29 29  xceeded(interp))
4220: 20 7b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f   {.+.return TCL_
4230: 45 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 2b 0a  ERROR;.+    }.+.
4240: 2b 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20  +    /*.      * 
4250: 45 78 65 63 75 74 65 20 74 68 65 20 63 6f 6d 6d  Execute the comm
4260: 61 6e 64 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a  and..      */. .
4270: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74  Index: generic/t
4280: 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d  clInt.h.========
4290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
42a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
42b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
42c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20  ===========.RCS 
42d0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74  file: /cvsroot/t
42e0: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74  cl/tcl/generic/t
42f0: 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 72 69 65  clInt.h,v.retrie
4300: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e  ving revision 1.
4310: 31 35 32 0a 64 69 66 66 20 2d 75 20 2d 62 20 2d  152.diff -u -b -
4320: 42 20 2d 72 31 2e 31 35 32 20 74 63 6c 49 6e 74  B -r1.152 tclInt
4330: 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74  .h.--- generic/t
4340: 63 6c 49 6e 74 2e 68 09 37 20 41 70 72 20 32 30  clInt.h.7 Apr 20
4350: 30 34 20 32 32 3a 30 34 3a 32 39 20 2d 30 30 30  04 22:04:29 -000
4360: 30 09 31 2e 31 35 32 0a 2b 2b 2b 20 67 65 6e 65  0.1.152.+++ gene
4370: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 31 39 20  ric/tclInt.h.19 
4380: 41 70 72 20 32 30 30 34 20 32 32 3a 31 38 3a 33  Apr 2004 22:18:3
4390: 32 20 2d 30 30 30 30 0a 40 40 20 2d 31 31 32 36  2 -0000.@@ -1126
43a0: 2c 36 20 2b 31 31 32 36 2c 31 32 20 40 40 0a 20  ,6 +1126,12 @@. 
43b0: 7d 20 52 65 73 6f 6c 76 65 72 53 63 68 65 6d 65  } ResolverScheme
43c0: 3b 0a 20 0a 20 2f 2a 0a 2b 20 2a 20 46 6f 72 77  ;. . /*.+ * Forw
43d0: 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 20  ard declaration 
43e0: 6f 66 20 74 68 65 20 54 49 50 23 31 34 33 20 6c  of the TIP#143 l
43f0: 69 6d 69 74 20 68 61 6e 64 6c 65 72 20 73 74 72  imit handler str
4400: 75 63 74 75 72 65 2e 0a 2b 20 2a 2f 0a 2b 0a 2b  ucture..+ */.+.+
4410: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 4c  typedef struct L
4420: 69 6d 69 74 48 61 6e 64 6c 65 72 20 4c 69 6d 69  imitHandler Limi
4430: 74 48 61 6e 64 6c 65 72 3b 0a 2b 0a 2b 2f 2a 0a  tHandler;.+.+/*.
4440: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d    *-------------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4480: 2d 2d 2d 0a 20 20 2a 20 54 68 69 73 20 73 74 72  ---.  * This str
4490: 75 63 74 75 72 65 20 64 65 66 69 6e 65 73 20 61  ucture defines a
44a0: 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 77  n interpreter, w
44b0: 68 69 63 68 20 69 73 20 61 20 63 6f 6c 6c 65 63  hich is a collec
44c0: 74 69 6f 6e 20 6f 66 0a 20 20 2a 20 63 6f 6d 6d  tion of.  * comm
44d0: 61 6e 64 73 20 70 6c 75 73 20 6f 74 68 65 72 20  ands plus other 
44e0: 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f  state informatio
44f0: 6e 20 72 65 6c 61 74 65 64 20 74 6f 20 69 6e 74  n related to int
4500: 65 72 70 72 65 74 69 6e 67 0a 40 40 20 2d 31 33  erpreting.@@ -13
4510: 32 35 2c 36 20 2b 31 33 33 31 2c 33 39 20 40 40  25,6 +1331,39 @@
4520: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72  .     Tcl_Obj *r
4530: 65 74 75 72 6e 4f 70 74 69 6f 6e 73 4b 65 79 3b  eturnOptionsKey;
4540: 09 2f 2a 20 68 6f 6c 64 73 20 22 2d 6f 70 74 69  ./* holds "-opti
4550: 6f 6e 73 22 20 2a 2f 0a 20 0a 20 20 20 20 20 2f  ons" */. .     /
4560: 2a 0a 2b 20 20 20 20 20 2a 20 52 65 73 6f 75 72  *.+     * Resour
4570: 63 65 20 6c 69 6d 69 74 69 6e 67 20 66 72 61 6d  ce limiting fram
4580: 65 77 6f 72 6b 20 73 75 70 70 6f 72 74 20 28 54  ework support (T
4590: 49 50 23 31 34 33 29 2e 0a 2b 20 20 20 20 20 2a  IP#143)..+     *
45a0: 2f 0a 2b 0a 2b 20 20 20 20 73 74 72 75 63 74 20  /.+.+    struct 
45b0: 7b 0a 2b 09 69 6e 74 20 61 63 74 69 76 65 3b 09  {.+.int active;.
45c0: 09 2f 2a 20 46 6c 61 67 20 76 61 6c 75 65 73 20  ./* Flag values 
45d0: 64 65 66 69 6e 69 6e 67 20 77 68 69 63 68 20 6c  defining which l
45e0: 69 6d 69 74 73 20 68 61 76 65 0a 2b 09 09 09 09  imits have.+....
45f0: 20 2a 20 62 65 65 6e 20 73 65 74 2e 20 2a 2f 0a   * been set. */.
4600: 2b 09 69 6e 74 20 67 72 61 6e 75 6c 61 72 69 74  +.int granularit
4610: 79 54 69 63 6b 65 72 3b 09 2f 2a 20 43 6f 75 6e  yTicker;./* Coun
4620: 74 65 72 20 75 73 65 64 20 74 6f 20 64 65 74 65  ter used to dete
4630: 72 6d 69 6e 65 20 68 6f 77 20 6f 66 74 65 6e 20  rmine how often 
4640: 74 6f 0a 2b 09 09 09 09 20 2a 20 63 68 65 63 6b  to.+.... * check
4650: 20 74 68 65 20 6c 69 6d 69 74 73 2e 20 2a 2f 0a   the limits. */.
4660: 2b 09 69 6e 74 20 65 78 63 65 65 64 65 64 3b 09  +.int exceeded;.
4670: 09 2f 2a 20 57 68 69 63 68 20 6c 69 6d 69 74 73  ./* Which limits
4680: 20 68 61 76 65 20 62 65 65 6e 20 65 78 63 65 65   have been excee
4690: 64 65 64 2c 20 64 65 73 63 72 69 62 65 64 0a 2b  ded, described.+
46a0: 09 09 09 09 20 2a 20 61 73 20 66 6c 61 67 20 76  .... * as flag v
46b0: 61 6c 75 65 73 20 74 68 65 20 73 61 6d 65 20 61  alues the same a
46c0: 73 20 74 68 65 20 27 61 63 74 69 76 65 27 0a 2b  s the 'active'.+
46d0: 09 09 09 09 20 2a 20 66 69 65 6c 64 2e 20 2a 2f  .... * field. */
46e0: 0a 2b 0a 2b 09 69 6e 74 20 63 6d 64 43 6f 75 6e  .+.+.int cmdCoun
46f0: 74 3b 09 09 2f 2a 20 4c 69 6d 69 74 20 66 6f 72  t;../* Limit for
4700: 20 68 6f 77 20 6d 61 6e 79 20 63 6f 6d 6d 61 6e   how many comman
4710: 64 73 20 74 6f 20 65 78 65 63 75 74 65 0a 2b 09  ds to execute.+.
4720: 09 09 09 20 2a 20 69 6e 20 74 68 65 20 69 6e 74  ... * in the int
4730: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 2b 09 4c  erpreter. */.+.L
4740: 69 6d 69 74 48 61 6e 64 6c 65 72 20 2a 63 6d 64  imitHandler *cmd
4750: 48 61 6e 64 6c 65 72 73 3b 20 2f 2a 20 48 61 6e  Handlers; /* Han
4760: 64 6c 65 72 73 20 74 6f 20 65 78 65 63 75 74 65  dlers to execute
4770: 20 77 68 65 6e 20 74 68 65 20 6c 69 6d 69 74 0a   when the limit.
4780: 2b 09 09 09 09 20 20 20 20 2a 20 69 73 20 72 65  +....    * is re
4790: 61 63 68 65 64 2e 20 2a 2f 0a 2b 09 69 6e 74 20  ached. */.+.int 
47a0: 63 6d 64 47 72 61 6e 75 6c 61 72 69 74 79 3b 09  cmdGranularity;.
47b0: 2f 2a 20 4d 6f 64 20 66 61 63 74 6f 72 20 75 73  /* Mod factor us
47c0: 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20  ed to determine 
47d0: 68 6f 77 20 6f 66 74 65 6e 0a 2b 09 09 09 09 20  how often.+.... 
47e0: 2a 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68  * to evaluate th
47f0: 65 20 6c 69 6d 69 74 20 63 68 65 63 6b 2e 20 2a  e limit check. *
4800: 2f 0a 2b 0a 2b 09 54 63 6c 5f 54 69 6d 65 20 74  /.+.+.Tcl_Time t
4810: 69 6d 65 3b 09 09 2f 2a 20 54 69 6d 65 20 6c 69  ime;../* Time li
4820: 6d 69 74 20 66 6f 72 20 65 78 65 63 75 74 69 6f  mit for executio
4830: 6e 20 77 69 74 68 69 6e 20 74 68 65 0a 2b 09 09  n within the.+..
4840: 09 09 20 2a 20 69 6e 74 65 72 70 72 65 74 65 72  .. * interpreter
4850: 20 28 69 6e 20 73 65 63 6f 6e 64 73 20 66 72 6f   (in seconds fro
4860: 6d 20 65 70 6f 63 68 29 2e 20 2a 2f 0a 2b 09 4c  m epoch). */.+.L
4870: 69 6d 69 74 48 61 6e 64 6c 65 72 20 2a 74 69 6d  imitHandler *tim
4880: 65 48 61 6e 64 6c 65 72 73 3b 20 2f 2a 20 48 61  eHandlers; /* Ha
4890: 6e 64 6c 65 72 73 20 74 6f 20 65 78 65 63 75 74  ndlers to execut
48a0: 65 20 77 68 65 6e 20 74 68 65 20 6c 69 6d 69 74  e when the limit
48b0: 0a 2b 09 09 09 09 20 20 20 20 20 2a 20 69 73 20  .+....     * is 
48c0: 72 65 61 63 68 65 64 2e 20 2a 2f 0a 2b 09 69 6e  reached. */.+.in
48d0: 74 20 74 69 6d 65 47 72 61 6e 75 6c 61 72 69 74  t timeGranularit
48e0: 79 3b 09 2f 2a 20 4d 6f 64 20 66 61 63 74 6f 72  y;./* Mod factor
48f0: 20 75 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69   used to determi
4900: 6e 65 20 68 6f 77 20 6f 66 74 65 6e 0a 2b 09 09  ne how often.+..
4910: 09 09 20 2a 20 74 6f 20 65 76 61 6c 75 61 74 65  .. * to evaluate
4920: 20 74 68 65 20 6c 69 6d 69 74 20 63 68 65 63 6b   the limit check
4930: 2e 20 2a 2f 0a 2b 0a 2b 09 54 63 6c 5f 48 61 73  . */.+.+.Tcl_Has
4940: 68 54 61 62 6c 65 20 63 61 6c 6c 62 61 63 6b 73  hTable callbacks
4950: 3b 20 2f 2a 20 4d 61 70 70 69 6e 67 20 66 72 6f  ; /* Mapping fro
4960: 6d 20 28 69 6e 74 65 72 70 2c 74 79 70 65 29 20  m (interp,type) 
4970: 70 61 69 72 20 74 6f 20 64 61 74 61 0a 2b 09 09  pair to data.+..
4980: 09 09 20 20 2a 20 75 73 65 64 20 74 6f 20 69 6e  ..  * used to in
4990: 73 74 61 6c 6c 20 61 20 6c 69 6d 69 74 20 68 61  stall a limit ha
49a0: 6e 64 6c 65 72 20 63 61 6c 6c 62 61 63 6b 0a 2b  ndler callback.+
49b0: 09 09 09 09 20 20 2a 20 74 6f 20 72 75 6e 20 69  ....  * to run i
49c0: 6e 20 5f 74 68 69 73 5f 20 69 6e 74 65 72 70 20  n _this_ interp 
49d0: 77 68 65 6e 20 74 68 65 20 6c 69 6d 69 74 0a 2b  when the limit.+
49e0: 09 09 09 09 20 20 2a 20 69 73 20 65 78 63 65 65  ....  * is excee
49f0: 64 65 64 2e 20 2a 2f 0a 2b 20 20 20 20 7d 20 6c  ded. */.+    } l
4a00: 69 6d 69 74 3b 0a 2b 0a 2b 20 20 20 20 2f 2a 0a  imit;.+.+    /*.
4a10: 20 20 20 20 20 20 2a 20 53 74 61 74 69 73 74 69        * Statisti
4a20: 63 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20  cal information 
4a30: 61 62 6f 75 74 20 74 68 65 20 62 79 74 65 63 6f  about the byteco
4a40: 64 65 20 63 6f 6d 70 69 6c 65 72 20 61 6e 64 20  de compiler and 
4a50: 69 6e 74 65 72 70 72 65 74 65 72 27 73 0a 20 20  interpreter's.  
4a60: 20 20 20 20 2a 20 6f 70 65 72 61 74 69 6f 6e 2e      * operation.
4a70: 0a 20 20 20 20 20 20 2a 2f 0a 40 40 20 2d 31 34  .      */.@@ -14
4a80: 30 33 2c 36 20 2b 31 34 34 32 2c 33 32 20 40 40  03,6 +1442,32 @@
4a90: 0a 20 23 64 65 66 69 6e 65 20 4d 41 58 5f 4e 45  . #define MAX_NE
4aa0: 53 54 49 4e 47 5f 44 45 50 54 48 09 31 30 30 30  STING_DEPTH.1000
4ab0: 0a 20 0a 20 2f 2a 0a 2b 20 2a 20 54 49 50 23 31  . . /*.+ * TIP#1
4ac0: 34 33 20 6c 69 6d 69 74 20 68 61 6e 64 6c 65 72  43 limit handler
4ad0: 20 69 6e 74 65 72 6e 61 6c 20 72 65 70 72 65 73   internal repres
4ae0: 65 6e 74 61 74 69 6f 6e 2e 0a 2b 20 2a 2f 0a 2b  entation..+ */.+
4af0: 0a 2b 73 74 72 75 63 74 20 4c 69 6d 69 74 48 61  .+struct LimitHa
4b00: 6e 64 6c 65 72 20 7b 0a 2b 20 20 20 20 69 6e 74  ndler {.+    int
4b10: 20 66 6c 61 67 73 3b 09 09 09 2f 2a 20 54 68 65   flags;.../* The
4b20: 20 73 74 61 74 65 20 6f 66 20 74 68 69 73 20 70   state of this p
4b30: 61 72 74 69 63 75 6c 61 72 20 68 61 6e 64 6c 65  articular handle
4b40: 72 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c  r. */.+    Tcl_L
4b50: 69 6d 69 74 48 61 6e 64 6c 65 72 50 72 6f 63 20  imitHandlerProc 
4b60: 2a 68 61 6e 64 6c 65 72 50 72 6f 63 3b 20 2f 2a  *handlerProc; /*
4b70: 20 54 68 65 20 68 61 6e 64 6c 65 72 20 63 61 6c   The handler cal
4b80: 6c 62 61 63 6b 2e 20 2a 2f 0a 2b 20 20 20 20 43  lback. */.+    C
4b90: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
4ba0: 44 61 74 61 3b 09 2f 2a 20 4f 70 61 71 75 65 20  Data;./* Opaque 
4bb0: 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 65 20  argument to the 
4bc0: 68 61 6e 64 6c 65 72 20 63 61 6c 6c 62 61 63 6b  handler callback
4bd0: 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c 69  . */.+    Tcl_Li
4be0: 6d 69 74 48 61 6e 64 6c 65 72 44 65 6c 65 74 65  mitHandlerDelete
4bf0: 50 72 6f 63 20 2a 64 65 6c 65 74 65 50 72 6f 63  Proc *deleteProc
4c00: 3b 20 2f 2a 20 48 6f 77 20 74 6f 20 64 65 6c 65  ; /* How to dele
4c10: 74 65 20 74 68 65 20 63 6c 69 65 6e 74 44 61 74  te the clientDat
4c20: 61 20 2a 2f 0a 2b 20 20 20 20 4c 69 6d 69 74 48  a */.+    LimitH
4c30: 61 6e 64 6c 65 72 20 2a 70 72 65 76 50 74 72 3b  andler *prevPtr;
4c40: 09 2f 2a 20 50 72 65 76 69 6f 75 73 20 69 74 65  ./* Previous ite
4c50: 6d 20 69 6e 20 6c 69 6e 6b 65 64 20 6c 69 73 74  m in linked list
4c60: 20 6f 66 20 68 61 6e 64 6c 65 72 73 20 2a 2f 0a   of handlers */.
4c70: 2b 20 20 20 20 4c 69 6d 69 74 48 61 6e 64 6c 65  +    LimitHandle
4c80: 72 20 2a 6e 65 78 74 50 74 72 3b 09 2f 2a 20 4e  r *nextPtr;./* N
4c90: 65 78 74 20 69 74 65 6d 20 69 6e 20 6c 69 6e 6b  ext item in link
4ca0: 65 64 20 6c 69 73 74 20 6f 66 20 68 61 6e 64 6c  ed list of handl
4cb0: 65 72 73 20 2a 2f 0a 2b 7d 3b 0a 2b 0a 2b 2f 2a  ers */.+};.+.+/*
4cc0: 0a 2b 20 2a 20 56 61 6c 75 65 73 20 66 6f 72 20  .+ * Values for 
4cd0: 74 68 65 20 4c 69 6d 69 74 48 61 6e 64 6c 65 72  the LimitHandler
4ce0: 20 66 6c 61 67 73 20 66 69 65 6c 64 2e 0a 2b 20   flags field..+ 
4cf0: 2a 09 4c 49 4d 49 54 5f 48 41 4e 44 4c 45 52 5f  *.LIMIT_HANDLER_
4d00: 41 43 54 49 56 45 20 2d 20 57 68 65 74 68 65 72  ACTIVE - Whether
4d10: 20 74 68 65 20 68 61 6e 64 6c 65 72 20 69 73 20   the handler is 
4d20: 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 0a  currently being.
4d30: 2b 20 2a 09 09 70 72 6f 63 65 73 73 65 64 3b 20  + *..processed; 
4d40: 68 61 6e 64 6c 65 72 73 20 61 72 65 20 6e 65 76  handlers are nev
4d50: 65 72 20 74 6f 20 62 65 20 65 6e 74 65 72 65 64  er to be entered
4d60: 20 72 65 65 6e 74 72 61 6e 74 6c 79 2e 0a 2b 20   reentrantly..+ 
4d70: 2a 09 4c 49 4d 49 54 5f 48 41 4e 44 4c 45 52 5f  *.LIMIT_HANDLER_
4d80: 44 45 4c 45 54 45 44 20 2d 20 57 68 65 74 68 65  DELETED - Whethe
4d90: 72 20 74 68 65 20 68 61 6e 64 6c 65 72 20 68 61  r the handler ha
4da0: 73 20 62 65 65 6e 20 64 65 6c 65 74 65 64 2e 20  s been deleted. 
4db0: 20 54 68 69 73 0a 2b 20 2a 09 09 73 68 6f 75 6c   This.+ *..shoul
4dc0: 64 20 6e 6f 74 20 6e 6f 72 6d 61 6c 6c 79 20 62  d not normally b
4dd0: 65 20 6f 62 73 65 72 76 65 64 20 62 65 63 61 75  e observed becau
4de0: 73 65 20 77 68 65 6e 20 61 20 68 61 6e 64 6c 65  se when a handle
4df0: 72 20 69 73 0a 2b 20 2a 09 09 64 65 6c 65 74 65  r is.+ *..delete
4e00: 64 20 69 74 20 69 73 20 61 6c 73 6f 20 73 70 6c  d it is also spl
4e10: 69 63 65 64 20 6f 75 74 20 6f 66 20 74 68 65 20  iced out of the 
4e20: 6c 69 73 74 20 6f 66 20 68 61 6e 64 6c 65 72 73  list of handlers
4e30: 2c 20 62 75 74 0a 2b 20 2a 09 09 65 76 65 6e 20  , but.+ *..even 
4e40: 73 6f 20 77 65 20 77 69 6c 6c 20 62 65 20 63 61  so we will be ca
4e50: 72 65 66 75 6c 2e 0a 2b 20 2a 2f 0a 2b 0a 2b 23  reful..+ */.+.+#
4e60: 64 65 66 69 6e 65 20 4c 49 4d 49 54 5f 48 41 4e  define LIMIT_HAN
4e70: 44 4c 45 52 5f 41 43 54 49 56 45 09 30 78 30 31  DLER_ACTIVE.0x01
4e80: 0a 2b 23 64 65 66 69 6e 65 20 4c 49 4d 49 54 5f  .+#define LIMIT_
4e90: 48 41 4e 44 4c 45 52 5f 44 45 4c 45 54 45 44 09  HANDLER_DELETED.
4ea0: 30 78 30 32 0a 2b 0a 2b 2f 2a 0a 20 20 2a 20 54  0x02.+.+/*.  * T
4eb0: 68 65 20 6d 61 63 72 6f 20 62 65 6c 6f 77 20 69  he macro below i
4ec0: 73 20 75 73 65 64 20 74 6f 20 6d 6f 64 69 66 79  s used to modify
4ed0: 20 61 20 22 63 68 61 72 22 20 76 61 6c 75 65 20   a "char" value 
4ee0: 28 65 2e 67 2e 20 62 79 20 63 61 73 74 69 6e 67  (e.g. by casting
4ef0: 0a 20 20 2a 20 69 74 20 74 6f 20 61 6e 20 75 6e  .  * it to an un
4f00: 73 69 67 6e 65 64 20 63 68 61 72 61 63 74 65 72  signed character
4f10: 29 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e  ) so that it can
4f20: 20 62 65 20 75 73 65 64 20 73 61 66 65 6c 79 20   be used safely 
4f30: 77 69 74 68 0a 20 20 2a 20 6d 61 63 72 6f 73 20  with.  * macros 
4f40: 73 75 63 68 20 61 73 20 69 73 73 70 61 63 65 2e  such as isspace.
4f50: 0a 40 40 20 2d 31 36 37 36 2c 36 20 2b 31 37 34  .@@ -1676,6 +174
4f60: 31 2c 37 20 40 40 0a 20 09 09 09 20 20 20 20 69  1,7 @@. ...    i
4f70: 6e 74 20 6c 65 6e 29 29 3b 0a 20 45 58 54 45 52  nt len));. EXTER
4f80: 4e 20 69 6e 74 20 20 20 20 20 20 20 20 20 20 20  N int           
4f90: 20 20 20 54 63 6c 4a 6f 69 6e 54 68 72 65 61 64     TclJoinThread
4fa0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63   _ANSI_ARGS_((Tc
4fb0: 6c 5f 54 68 72 65 61 64 49 64 20 69 64 2c 0a 20  l_ThreadId id,. 
4fc0: 09 09 09 20 20 20 20 69 6e 74 2a 20 72 65 73 75  ...    int* resu
4fd0: 6c 74 29 29 3b 0a 2b 45 58 54 45 52 4e 20 76 6f  lt));.+EXTERN vo
4fe0: 69 64 09 09 54 63 6c 49 6e 69 74 4c 69 6d 69 74  id..TclInitLimit
4ff0: 53 75 70 70 6f 72 74 20 5f 41 4e 53 49 5f 41 52  Support _ANSI_AR
5000: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
5010: 2a 69 6e 74 65 72 70 29 29 3b 0a 20 45 58 54 45  *interp));. EXTE
5020: 52 4e 20 54 63 6c 5f 4f 62 6a 20 2a 09 54 63 6c  RN Tcl_Obj *.Tcl
5030: 4c 69 6e 64 65 78 4c 69 73 74 20 5f 41 4e 53 49  LindexList _ANSI
5040: 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65  _ARGS_((Tcl_Inte
5050: 72 70 2a 20 69 6e 74 65 72 70 2c 0a 20 09 09 09  rp* interp,. ...
5060: 09 09 09 20 20 20 54 63 6c 5f 4f 62 6a 2a 20 6c  ...   Tcl_Obj* l
5070: 69 73 74 50 74 72 2c 0a 20 09 09 09 09 09 09 20  istPtr,. ...... 
5080: 20 20 54 63 6c 5f 4f 62 6a 2a 20 61 72 67 50 74    Tcl_Obj* argPt
5090: 72 20 29 29 3b 0a 49 6e 64 65 78 3a 20 67 65 6e  r ));.Index: gen
50a0: 65 72 69 63 2f 74 63 6c 49 6e 74 65 72 70 2e 63  eric/tclInterp.c
50b0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .===============
50c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
50d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
50e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
50f0: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f  ====.RCS file: /
5100: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f  cvsroot/tcl/tcl/
5110: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 65 72  generic/tclInter
5120: 70 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67  p.c,v.retrieving
5130: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 36 0a 64   revision 1.26.d
5140: 69 66 66 20 2d 75 20 2d 62 20 2d 42 20 2d 72 31  iff -u -b -B -r1
5150: 2e 32 36 20 74 63 6c 49 6e 74 65 72 70 2e 63 0a  .26 tclInterp.c.
5160: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49  --- generic/tclI
5170: 6e 74 65 72 70 2e 63 09 36 20 41 70 72 20 32 30  nterp.c.6 Apr 20
5180: 30 34 20 32 32 3a 32 35 3a 35 33 20 2d 30 30 30  04 22:25:53 -000
5190: 30 09 31 2e 32 36 0a 2b 2b 2b 20 67 65 6e 65 72  0.1.26.+++ gener
51a0: 69 63 2f 74 63 6c 49 6e 74 65 72 70 2e 63 09 31  ic/tclInterp.c.1
51b0: 39 20 41 70 72 20 32 30 30 34 20 32 32 3a 31 38  9 Apr 2004 22:18
51c0: 3a 33 32 20 2d 30 30 30 30 0a 40 40 20 2d 31 34  :32 -0000.@@ -14
51d0: 35 2c 36 20 2b 31 34 35 2c 32 34 20 40 40 0a 20  5,6 +145,24 @@. 
51e0: 7d 20 49 6e 74 65 72 70 49 6e 66 6f 3b 0a 20 0a  } InterpInfo;. .
51f0: 20 2f 2a 0a 2b 20 2a 20 4c 69 6d 69 74 20 63 61   /*.+ * Limit ca
5200: 6c 6c 62 61 63 6b 73 20 68 61 6e 64 6c 65 64 20  llbacks handled 
5210: 62 79 20 73 63 72 69 70 74 73 20 61 72 65 20 6d  by scripts are m
5220: 6f 64 65 6c 6c 65 64 20 61 73 20 73 74 72 75 63  odelled as struc
5230: 74 75 72 65 73 20 77 68 69 63 68 0a 2b 20 2a 20  tures which.+ * 
5240: 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 68 61  are stored in ha
5250: 73 68 65 73 20 69 6e 64 65 78 65 64 20 62 79 20  shes indexed by 
5260: 61 20 74 77 6f 2d 77 6f 72 64 20 6b 65 79 2e 20  a two-word key. 
5270: 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 74   Note that the t
5280: 79 70 65 0a 2b 20 2a 20 6f 66 20 74 68 65 20 27  ype.+ * of the '
5290: 74 79 70 65 27 20 66 69 65 6c 64 20 69 6e 20 74  type' field in t
52a0: 68 65 20 6b 65 79 20 69 73 20 6e 6f 74 20 69 6e  he key is not in
52b0: 74 3b 20 74 68 69 73 20 69 73 20 74 6f 20 6d 61  t; this is to ma
52c0: 6b 65 20 73 75 72 65 0a 2b 20 2a 20 74 68 61 74  ke sure.+ * that
52d0: 20 74 68 69 6e 67 73 20 77 6f 72 6b 20 70 72 6f   things work pro
52e0: 70 65 72 6c 79 20 6f 6e 20 36 34 2d 62 69 74 20  perly on 64-bit 
52f0: 61 72 63 68 69 74 65 63 74 75 72 65 73 2e 0a 2b  architectures..+
5300: 20 2a 2f 0a 2b 0a 2b 73 74 72 75 63 74 20 53 63   */.+.+struct Sc
5310: 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63  riptLimitCallbac
5320: 6b 20 7b 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74  k {.+    Tcl_Int
5330: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20  erp *interp;.+  
5340: 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70    Tcl_Obj *scrip
5350: 74 4f 62 6a 3b 0a 2b 20 20 20 20 69 6e 74 20 74  tObj;.+    int t
5360: 79 70 65 3b 0a 2b 7d 3b 0a 2b 0a 2b 73 74 72 75  ype;.+};.+.+stru
5370: 63 74 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61  ct ScriptLimitCa
5380: 6c 6c 62 61 63 6b 4b 65 79 20 7b 0a 2b 20 20 20  llbackKey {.+   
5390: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
53a0: 65 72 70 3b 0a 2b 20 20 20 20 6c 6f 6e 67 20 74  erp;.+    long t
53b0: 79 70 65 3b 0a 2b 7d 3b 0a 2b 0a 2b 2f 2a 0a 20  ype;.+};.+.+/*. 
53c0: 20 2a 20 50 72 6f 74 6f 74 79 70 65 73 20 66 6f   * Prototypes fo
53d0: 72 20 6c 6f 63 61 6c 20 73 74 61 74 69 63 20 70  r local static p
53e0: 72 6f 63 65 64 75 72 65 73 3a 0a 20 20 2a 2f 0a  rocedures:.  */.
53f0: 20 0a 40 40 20 2d 31 39 36 2c 36 20 2b 32 31 34   .@@ -196,6 +214
5400: 2c 32 33 20 40 40 0a 20 73 74 61 74 69 63 20 69  ,23 @@. static i
5410: 6e 74 09 09 53 6c 61 76 65 52 65 63 75 72 73 69  nt..SlaveRecursi
5420: 6f 6e 4c 69 6d 69 74 20 5f 41 4e 53 49 5f 41 52  onLimit _ANSI_AR
5430: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
5440: 2a 69 6e 74 65 72 70 2c 0a 20 09 09 09 20 20 20  *interp,. ...   
5450: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 73 6c 61   Tcl_Interp *sla
5460: 76 65 49 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62  veInterp, int ob
5470: 6a 63 2c 0a 20 09 09 09 20 20 20 20 54 63 6c 5f  jc,. ...    Tcl_
5480: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
5490: 5d 29 29 3b 0a 2b 73 74 61 74 69 63 20 69 6e 74  ]));.+static int
54a0: 09 09 53 6c 61 76 65 43 6f 6d 6d 61 6e 64 4c 69  ..SlaveCommandLi
54b0: 6d 69 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  mit _ANSI_ARGS_(
54c0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
54d0: 65 72 70 2c 0a 2b 09 09 09 20 20 20 20 54 63 6c  erp,.+...    Tcl
54e0: 5f 49 6e 74 65 72 70 20 2a 73 6c 61 76 65 49 6e  _Interp *slaveIn
54f0: 74 65 72 70 2c 20 69 6e 74 20 63 6f 6e 73 75 6d  terp, int consum
5500: 65 64 4f 62 6a 63 2c 0a 2b 09 09 09 20 20 20 20  edObjc,.+...    
5510: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
5520: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29  j *CONST objv[])
5530: 29 3b 0a 2b 73 74 61 74 69 63 20 69 6e 74 09 09  );.+static int..
5540: 53 6c 61 76 65 54 69 6d 65 4c 69 6d 69 74 20 5f  SlaveTimeLimit _
5550: 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f  ANSI_ARGS_((Tcl_
5560: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
5570: 2b 09 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65  +...    Tcl_Inte
5580: 72 70 20 2a 73 6c 61 76 65 49 6e 74 65 72 70 2c  rp *slaveInterp,
5590: 20 69 6e 74 20 63 6f 6e 73 75 6d 65 64 4f 62 6a   int consumedObj
55a0: 63 2c 0a 2b 09 09 09 20 20 20 20 69 6e 74 20 6f  c,.+...    int o
55b0: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  bjc, Tcl_Obj *CO
55c0: 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 2b 73  NST objv[]));.+s
55d0: 74 61 74 69 63 20 76 6f 69 64 09 09 49 6e 68 65  tatic void..Inhe
55e0: 72 69 74 4c 69 6d 69 74 73 20 5f 41 4e 53 49 5f  ritLimits _ANSI_
55f0: 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72  ARGS_((Tcl_Inter
5600: 70 20 2a 73 6c 61 76 65 49 6e 74 65 72 70 2c 0a  p *slaveInterp,.
5610: 2b 09 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65  +...    Tcl_Inte
5620: 72 70 20 2a 6d 61 73 74 65 72 49 6e 74 65 72 70  rp *masterInterp
5630: 29 29 3b 0a 2b 73 74 61 74 69 63 20 76 6f 69 64  ));.+static void
5640: 09 09 53 65 74 4c 69 6d 69 74 43 61 6c 6c 62 61  ..SetLimitCallba
5650: 63 6b 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  ck _ANSI_ARGS_((
5660: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
5670: 72 70 2c 0a 2b 09 09 09 20 20 20 20 69 6e 74 20  rp,.+...    int 
5680: 74 79 70 65 2c 20 54 63 6c 5f 49 6e 74 65 72 70  type, Tcl_Interp
5690: 20 2a 74 61 72 67 65 74 49 6e 74 65 72 70 2c 0a   *targetInterp,.
56a0: 2b 09 09 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20  +...    Tcl_Obj 
56b0: 2a 73 63 72 69 70 74 4f 62 6a 29 29 3b 0a 2b 73  *scriptObj));.+s
56c0: 74 61 74 69 63 20 76 6f 69 64 09 09 43 61 6c 6c  tatic void..Call
56d0: 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62  ScriptLimitCallb
56e0: 61 63 6b 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  ack _ANSI_ARGS_(
56f0: 28 0a 2b 09 09 09 20 20 20 20 43 6c 69 65 6e 74  (.+...    Client
5700: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
5710: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
5720: 65 72 70 29 29 3b 0a 2b 73 74 61 74 69 63 20 76  erp));.+static v
5730: 6f 69 64 09 09 44 65 6c 65 74 65 53 63 72 69 70  oid..DeleteScrip
5740: 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b 20 5f  tLimitCallback _
5750: 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 2b 09 09  ANSI_ARGS_((.+..
5760: 09 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20  .    ClientData 
5770: 63 6c 69 65 6e 74 44 61 74 61 29 29 3b 0a 2b 73  clientData));.+s
5780: 74 61 74 69 63 20 76 6f 69 64 09 09 52 75 6e 4c  tatic void..RunL
5790: 69 6d 69 74 48 61 6e 64 6c 65 72 73 20 5f 41 4e  imitHandlers _AN
57a0: 53 49 5f 41 52 47 53 5f 28 28 4c 69 6d 69 74 48  SI_ARGS_((LimitH
57b0: 61 6e 64 6c 65 72 20 2a 68 61 6e 64 6c 65 72 50  andler *handlerP
57c0: 74 72 2c 0a 2b 09 09 09 20 20 20 20 54 63 6c 5f  tr,.+...    Tcl_
57d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 29  Interp *interp))
57e0: 3b 0a 20 0a 20 0c 0a 20 2f 2a 0a 40 40 20 2d 33  ;. . .. /*.@@ -3
57f0: 35 37 2c 31 36 20 2b 33 39 32 2c 31 36 20 40 40  57,16 +392,16 @@
5800: 0a 20 20 20 20 20 73 74 61 74 69 63 20 43 4f 4e  .     static CON
5810: 53 54 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 73  ST char *options
5820: 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 20  [] = {.         
5830: 22 61 6c 69 61 73 22 2c 09 22 61 6c 69 61 73 65  "alias",."aliase
5840: 73 22 2c 09 22 63 72 65 61 74 65 22 2c 09 22 64  s",."create",."d
5850: 65 6c 65 74 65 22 2c 20 0a 20 09 22 65 76 61 6c  elete", . ."eval
5860: 22 2c 09 09 22 65 78 69 73 74 73 22 2c 09 22 65  ",.."exists",."e
5870: 78 70 6f 73 65 22 2c 09 22 68 69 64 65 22 2c 20  xpose",."hide", 
5880: 0a 2d 09 22 68 69 64 64 65 6e 22 2c 09 22 69 73  .-."hidden",."is
5890: 73 61 66 65 22 2c 09 22 69 6e 76 6f 6b 65 68 69  safe",."invokehi
58a0: 64 64 65 6e 22 2c 09 22 6d 61 72 6b 74 72 75 73  dden",."marktrus
58b0: 74 65 64 22 2c 20 0a 2d 09 22 72 65 63 75 72 73  ted", .-."recurs
58c0: 69 6f 6e 6c 69 6d 69 74 22 2c 09 09 22 73 6c 61  ionlimit",.."sla
58d0: 76 65 73 22 2c 09 22 73 68 61 72 65 22 2c 0a 2b  ves",."share",.+
58e0: 09 22 68 69 64 64 65 6e 22 2c 09 22 69 73 73 61  ."hidden",."issa
58f0: 66 65 22 2c 09 22 69 6e 76 6f 6b 65 68 69 64 64  fe",."invokehidd
5900: 65 6e 22 2c 09 22 6c 69 6d 69 74 22 2c 0a 2b 09  en",."limit",.+.
5910: 22 6d 61 72 6b 74 72 75 73 74 65 64 22 2c 09 22  "marktrusted",."
5920: 72 65 63 75 72 73 69 6f 6e 6c 69 6d 69 74 22 2c  recursionlimit",
5930: 22 73 6c 61 76 65 73 22 2c 09 22 73 68 61 72 65  "slaves",."share
5940: 22 2c 0a 20 09 22 74 61 72 67 65 74 22 2c 09 22  ",. ."target",."
5950: 74 72 61 6e 73 66 65 72 22 2c 0a 20 20 20 20 20  transfer",.     
5960: 20 20 20 20 4e 55 4c 4c 0a 20 20 20 20 20 7d 3b      NULL.     };
5970: 0a 20 20 20 20 20 65 6e 75 6d 20 6f 70 74 69 6f  .     enum optio
5980: 6e 20 7b 0a 20 09 4f 50 54 5f 41 4c 49 41 53 2c  n {. .OPT_ALIAS,
5990: 09 4f 50 54 5f 41 4c 49 41 53 45 53 2c 09 4f 50  .OPT_ALIASES,.OP
59a0: 54 5f 43 52 45 41 54 45 2c 09 4f 50 54 5f 44 45  T_CREATE,.OPT_DE
59b0: 4c 45 54 45 2c 0a 20 09 4f 50 54 5f 45 56 41 4c  LETE,. .OPT_EVAL
59c0: 2c 09 4f 50 54 5f 45 58 49 53 54 53 2c 09 4f 50  ,.OPT_EXISTS,.OP
59d0: 54 5f 45 58 50 4f 53 45 2c 09 4f 50 54 5f 48 49  T_EXPOSE,.OPT_HI
59e0: 44 45 2c 0a 2d 09 4f 50 54 5f 48 49 44 44 45 4e  DE,.-.OPT_HIDDEN
59f0: 2c 09 4f 50 54 5f 49 53 53 41 46 45 2c 09 4f 50  ,.OPT_ISSAFE,.OP
5a00: 54 5f 49 4e 56 4f 4b 45 48 49 44 2c 09 4f 50 54  T_INVOKEHID,.OPT
5a10: 5f 4d 41 52 4b 54 52 55 53 54 45 44 2c 0a 2d 09  _MARKTRUSTED,.-.
5a20: 4f 50 54 5f 52 45 43 4c 49 4d 49 54 2c 09 09 09  OPT_RECLIMIT,...
5a30: 4f 50 54 5f 53 4c 41 56 45 53 2c 09 4f 50 54 5f  OPT_SLAVES,.OPT_
5a40: 53 48 41 52 45 2c 0a 2b 09 4f 50 54 5f 48 49 44  SHARE,.+.OPT_HID
5a50: 44 45 4e 2c 09 4f 50 54 5f 49 53 53 41 46 45 2c  DEN,.OPT_ISSAFE,
5a60: 09 4f 50 54 5f 49 4e 56 4f 4b 45 48 49 44 2c 09  .OPT_INVOKEHID,.
5a70: 4f 50 54 5f 4c 49 4d 49 54 2c 0a 2b 09 4f 50 54  OPT_LIMIT,.+.OPT
5a80: 5f 4d 41 52 4b 54 52 55 53 54 45 44 2c 4f 50 54  _MARKTRUSTED,OPT
5a90: 5f 52 45 43 4c 49 4d 49 54 2c 09 4f 50 54 5f 53  _RECLIMIT,.OPT_S
5aa0: 4c 41 56 45 53 2c 09 4f 50 54 5f 53 48 41 52 45  LAVES,.OPT_SHARE
5ab0: 2c 0a 20 09 4f 50 54 5f 54 41 52 47 45 54 2c 09  ,. .OPT_TARGET,.
5ac0: 4f 50 54 5f 54 52 41 4e 53 46 45 52 0a 20 20 20  OPT_TRANSFER.   
5ad0: 20 20 7d 3b 0a 20 0a 40 40 20 2d 36 32 38 2c 36    };. .@@ -628,6
5ae0: 20 2b 36 36 33 2c 33 35 20 40 40 0a 20 09 20 20   +663,35 @@. .  
5af0: 20 20 72 65 74 75 72 6e 20 53 6c 61 76 65 49 6e    return SlaveIn
5b00: 76 6f 6b 65 48 69 64 64 65 6e 28 69 6e 74 65 72  vokeHidden(inter
5b10: 70 2c 20 73 6c 61 76 65 49 6e 74 65 72 70 2c 20  p, slaveInterp, 
5b20: 67 6c 6f 62 61 6c 2c 20 6f 62 6a 63 20 2d 20 69  global, objc - i
5b30: 2c 0a 20 09 09 20 20 20 20 6f 62 6a 76 20 2b 20  ,. ..    objv + 
5b40: 69 29 3b 0a 20 09 7d 0a 2b 09 63 61 73 65 20 4f  i);. .}.+.case O
5b50: 50 54 5f 4c 49 4d 49 54 3a 20 7b 0a 2b 09 20 20  PT_LIMIT: {.+.  
5b60: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 73 6c    Tcl_Interp *sl
5b70: 61 76 65 49 6e 74 65 72 70 3b 0a 2b 09 20 20 20  aveInterp;.+.   
5b80: 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20 63 68   static CONST ch
5b90: 61 72 20 2a 6c 69 6d 69 74 54 79 70 65 73 5b 5d  ar *limitTypes[]
5ba0: 20 3d 20 7b 0a 2b 09 09 22 63 6f 6d 6d 61 6e 64   = {.+.."command
5bb0: 73 22 2c 20 22 74 69 6d 65 22 2c 20 4e 55 4c 4c  s", "time", NULL
5bc0: 0a 2b 09 20 20 20 20 7d 3b 0a 2b 09 20 20 20 20  .+.    };.+.    
5bd0: 65 6e 75 6d 20 4c 69 6d 69 74 54 79 70 65 73 20  enum LimitTypes 
5be0: 7b 0a 2b 09 09 4c 49 4d 49 54 5f 54 59 50 45 5f  {.+..LIMIT_TYPE_
5bf0: 43 4f 4d 4d 41 4e 44 53 2c 20 4c 49 4d 49 54 5f  COMMANDS, LIMIT_
5c00: 54 59 50 45 5f 54 49 4d 45 0a 2b 09 20 20 20 20  TYPE_TIME.+.    
5c10: 7d 3b 0a 2b 09 20 20 20 20 69 6e 74 20 6c 69 6d  };.+.    int lim
5c20: 69 74 54 79 70 65 3b 0a 2b 0a 2b 09 20 20 20 20  itType;.+.+.    
5c30: 69 66 20 28 6f 62 6a 63 20 3c 20 34 29 20 7b 0a  if (objc < 4) {.
5c40: 2b 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  +..Tcl_WrongNumA
5c50: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
5c60: 62 6a 76 2c 20 22 70 61 74 68 20 6c 69 6d 69 74  bjv, "path limit
5c70: 54 79 70 65 20 3f 6f 70 74 69 6f 6e 73 3f 22 29  Type ?options?")
5c80: 3b 0a 2b 09 09 72 65 74 75 72 6e 20 54 43 4c 5f  ;.+..return TCL_
5c90: 45 52 52 4f 52 3b 0a 2b 09 20 20 20 20 7d 0a 2b  ERROR;.+.    }.+
5ca0: 09 20 20 20 20 73 6c 61 76 65 49 6e 74 65 72 70  .    slaveInterp
5cb0: 20 3d 20 47 65 74 49 6e 74 65 72 70 28 69 6e 74   = GetInterp(int
5cc0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 29 3b 0a 2b  erp, objv[2]);.+
5cd0: 09 20 20 20 20 69 66 20 28 73 6c 61 76 65 49 6e  .    if (slaveIn
5ce0: 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  terp == NULL) {.
5cf0: 2b 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  +..return TCL_ER
5d00: 52 4f 52 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 20  ROR;.+.    }.+. 
5d10: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e     if (Tcl_GetIn
5d20: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  dexFromObj(inter
5d30: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 6c 69 6d 69  p, objv[3], limi
5d40: 74 54 79 70 65 73 2c 20 22 6c 69 6d 69 74 20 74  tTypes, "limit t
5d50: 79 70 65 22 2c 0a 2b 09 09 20 20 20 20 30 2c 20  ype",.+..    0, 
5d60: 26 6c 69 6d 69 74 54 79 70 65 29 20 21 3d 20 54  &limitType) != T
5d70: 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09 72 65 74 75  CL_OK) {.+..retu
5d80: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09  rn TCL_ERROR;.+.
5d90: 20 20 20 20 7d 0a 2b 09 20 20 20 20 73 77 69 74      }.+.    swit
5da0: 63 68 20 28 28 65 6e 75 6d 20 4c 69 6d 69 74 54  ch ((enum LimitT
5db0: 79 70 65 73 29 20 6c 69 6d 69 74 54 79 70 65 29  ypes) limitType)
5dc0: 20 7b 0a 2b 09 20 20 20 20 63 61 73 65 20 4c 49   {.+.    case LI
5dd0: 4d 49 54 5f 54 59 50 45 5f 43 4f 4d 4d 41 4e 44  MIT_TYPE_COMMAND
5de0: 53 3a 0a 2b 09 09 72 65 74 75 72 6e 20 53 6c 61  S:.+..return Sla
5df0: 76 65 43 6f 6d 6d 61 6e 64 4c 69 6d 69 74 28 69  veCommandLimit(i
5e00: 6e 74 65 72 70 2c 20 73 6c 61 76 65 49 6e 74 65  nterp, slaveInte
5e10: 72 70 2c 20 34 2c 20 6f 62 6a 63 2c 20 6f 62 6a  rp, 4, objc, obj
5e20: 76 29 3b 0a 2b 09 20 20 20 20 63 61 73 65 20 4c  v);.+.    case L
5e30: 49 4d 49 54 5f 54 59 50 45 5f 54 49 4d 45 3a 0a  IMIT_TYPE_TIME:.
5e40: 2b 09 09 72 65 74 75 72 6e 20 53 6c 61 76 65 54  +..return SlaveT
5e50: 69 6d 65 4c 69 6d 69 74 28 69 6e 74 65 72 70 2c  imeLimit(interp,
5e60: 20 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 34 2c   slaveInterp, 4,
5e70: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 2b 09   objc, objv);.+.
5e80: 20 20 20 20 7d 0a 2b 09 7d 0a 20 09 63 61 73 65      }.+.}. .case
5e90: 20 4f 50 54 5f 4d 41 52 4b 54 52 55 53 54 45 44   OPT_MARKTRUSTED
5ea0: 3a 20 7b 0a 20 09 20 20 20 20 54 63 6c 5f 49 6e  : {. .    Tcl_In
5eb0: 74 65 72 70 20 2a 73 6c 61 76 65 49 6e 74 65 72  terp *slaveInter
5ec0: 70 3b 0a 20 0a 40 40 20 2d 31 38 33 38 2c 36 20  p;. .@@ -1838,6 
5ed0: 2b 31 39 30 32 2c 31 32 20 40 40 0a 20 09 20 2a  +1902,12 @@. . *
5ee0: 2f 0a 20 09 54 63 6c 5f 49 6e 69 74 4d 65 6d 6f  /. .Tcl_InitMemo
5ef0: 72 79 28 73 6c 61 76 65 49 6e 74 65 72 70 29 3b  ry(slaveInterp);
5f00: 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 2f  .     }.+.+    /
5f10: 2a 0a 2b 20 20 20 20 20 2a 20 49 6e 68 65 72 69  *.+     * Inheri
5f20: 74 20 74 68 65 20 54 49 50 23 31 34 33 20 6c 69  t the TIP#143 li
5f30: 6d 69 74 73 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b  mits..+     */.+
5f40: 20 20 20 20 49 6e 68 65 72 69 74 4c 69 6d 69 74      InheritLimit
5f50: 73 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 6d  s(slaveInterp, m
5f60: 61 73 74 65 72 49 6e 74 65 72 70 29 3b 0a 2b 0a  asterInterp);.+.
5f70: 20 20 20 20 20 72 65 74 75 72 6e 20 73 6c 61 76       return slav
5f80: 65 49 6e 74 65 72 70 3b 0a 20 0a 20 20 20 20 20  eInterp;. .     
5f90: 65 72 72 6f 72 3a 0a 40 40 20 2d 31 38 37 36 2c  error:.@@ -1876,
5fa0: 31 32 20 2b 31 39 34 36 2c 31 32 20 40 40 0a 20  12 +1946,12 @@. 
5fb0: 20 20 20 20 73 74 61 74 69 63 20 43 4f 4e 53 54      static CONST
5fc0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 73 5b 5d   char *options[]
5fd0: 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 20 22 61   = {.         "a
5fe0: 6c 69 61 73 22 2c 09 22 61 6c 69 61 73 65 73 22  lias",."aliases"
5ff0: 2c 09 22 65 76 61 6c 22 2c 09 09 22 65 78 70 6f  ,."eval",.."expo
6000: 73 65 22 2c 0a 20 20 20 20 20 20 20 20 20 22 68  se",.         "h
6010: 69 64 65 22 2c 09 09 22 68 69 64 64 65 6e 22 2c  ide",.."hidden",
6020: 09 22 69 73 73 61 66 65 22 2c 09 22 69 6e 76 6f  ."issafe",."invo
6030: 6b 65 68 69 64 64 65 6e 22 2c 0a 2d 20 20 20 20  kehidden",.-    
6040: 20 20 20 20 22 6d 61 72 6b 74 72 75 73 74 65 64      "marktrusted
6050: 22 2c 09 22 72 65 63 75 72 73 69 6f 6e 6c 69 6d  ",."recursionlim
6060: 69 74 22 2c 20 4e 55 4c 4c 0a 2b 09 22 6c 69 6d  it", NULL.+."lim
6070: 69 74 22 2c 09 22 6d 61 72 6b 74 72 75 73 74 65  it",."marktruste
6080: 64 22 2c 09 22 72 65 63 75 72 73 69 6f 6e 6c 69  d",."recursionli
6090: 6d 69 74 22 2c 20 4e 55 4c 4c 0a 20 20 20 20 20  mit", NULL.     
60a0: 7d 3b 0a 20 20 20 20 20 65 6e 75 6d 20 6f 70 74  };.     enum opt
60b0: 69 6f 6e 73 20 7b 0a 20 09 4f 50 54 5f 41 4c 49  ions {. .OPT_ALI
60c0: 41 53 2c 09 4f 50 54 5f 41 4c 49 41 53 45 53 2c  AS,.OPT_ALIASES,
60d0: 09 4f 50 54 5f 45 56 41 4c 2c 09 4f 50 54 5f 45  .OPT_EVAL,.OPT_E
60e0: 58 50 4f 53 45 2c 0a 20 09 4f 50 54 5f 48 49 44  XPOSE,. .OPT_HID
60f0: 45 2c 09 4f 50 54 5f 48 49 44 44 45 4e 2c 09 4f  E,.OPT_HIDDEN,.O
6100: 50 54 5f 49 53 53 41 46 45 2c 09 4f 50 54 5f 49  PT_ISSAFE,.OPT_I
6110: 4e 56 4f 4b 45 48 49 44 44 45 4e 2c 0a 2d 09 4f  NVOKEHIDDEN,.-.O
6120: 50 54 5f 4d 41 52 4b 54 52 55 53 54 45 44 2c 20  PT_MARKTRUSTED, 
6130: 4f 50 54 5f 52 45 43 4c 49 4d 49 54 0a 2b 09 4f  OPT_RECLIMIT.+.O
6140: 50 54 5f 4c 49 4d 49 54 2c 09 4f 50 54 5f 4d 41  PT_LIMIT,.OPT_MA
6150: 52 4b 54 52 55 53 54 45 44 2c 20 4f 50 54 5f 52  RKTRUSTED, OPT_R
6160: 45 43 4c 49 4d 49 54 0a 20 20 20 20 20 7d 3b 0a  ECLIMIT.     };.
6170: 20 20 20 20 20 0a 20 20 20 20 20 73 6c 61 76 65       .     slave
6180: 49 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e  Interp = (Tcl_In
6190: 74 65 72 70 20 2a 29 20 63 6c 69 65 6e 74 44 61  terp *) clientDa
61a0: 74 61 3b 0a 40 40 20 2d 31 39 39 32 2c 36 20 2b  ta;.@@ -1992,6 +
61b0: 32 30 36 32 2c 33 30 20 40 40 0a 20 09 20 20 20  2062,30 @@. .   
61c0: 20 72 65 74 75 72 6e 20 53 6c 61 76 65 49 6e 76   return SlaveInv
61d0: 6f 6b 65 48 69 64 64 65 6e 28 69 6e 74 65 72 70  okeHidden(interp
61e0: 2c 20 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 67  , slaveInterp, g
61f0: 6c 6f 62 61 6c 2c 20 6f 62 6a 63 20 2d 20 69 2c  lobal, objc - i,
6200: 0a 20 09 09 20 20 20 20 6f 62 6a 76 20 2b 20 69  . ..    objv + i
6210: 29 3b 0a 20 09 7d 0a 2b 09 63 61 73 65 20 4f 50  );. .}.+.case OP
6220: 54 5f 4c 49 4d 49 54 3a 20 7b 0a 2b 09 20 20 20  T_LIMIT: {.+.   
6230: 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20 63 68   static CONST ch
6240: 61 72 20 2a 6c 69 6d 69 74 54 79 70 65 73 5b 5d  ar *limitTypes[]
6250: 20 3d 20 7b 0a 2b 09 09 22 63 6f 6d 6d 61 6e 64   = {.+.."command
6260: 73 22 2c 20 22 74 69 6d 65 22 2c 20 4e 55 4c 4c  s", "time", NULL
6270: 0a 2b 09 20 20 20 20 7d 3b 0a 2b 09 20 20 20 20  .+.    };.+.    
6280: 65 6e 75 6d 20 4c 69 6d 69 74 54 79 70 65 73 20  enum LimitTypes 
6290: 7b 0a 2b 09 09 4c 49 4d 49 54 5f 54 59 50 45 5f  {.+..LIMIT_TYPE_
62a0: 43 4f 4d 4d 41 4e 44 53 2c 20 4c 49 4d 49 54 5f  COMMANDS, LIMIT_
62b0: 54 59 50 45 5f 54 49 4d 45 0a 2b 09 20 20 20 20  TYPE_TIME.+.    
62c0: 7d 3b 0a 2b 09 20 20 20 20 69 6e 74 20 6c 69 6d  };.+.    int lim
62d0: 69 74 54 79 70 65 3b 0a 2b 0a 2b 09 20 20 20 20  itType;.+.+.    
62e0: 69 66 20 28 6f 62 6a 63 20 3c 20 33 29 20 7b 0a  if (objc < 3) {.
62f0: 2b 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  +..Tcl_WrongNumA
6300: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
6310: 62 6a 76 2c 20 22 6c 69 6d 69 74 54 79 70 65 20  bjv, "limitType 
6320: 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 2b 09 09  ?options?");.+..
6330: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
6340: 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20  ;.+.    }.+.    
6350: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78  if (Tcl_GetIndex
6360: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
6370: 6f 62 6a 76 5b 32 5d 2c 20 6c 69 6d 69 74 54 79  objv[2], limitTy
6380: 70 65 73 2c 20 22 6c 69 6d 69 74 20 74 79 70 65  pes, "limit type
6390: 22 2c 0a 2b 09 09 20 20 20 20 30 2c 20 26 6c 69  ",.+..    0, &li
63a0: 6d 69 74 54 79 70 65 29 20 21 3d 20 54 43 4c 5f  mitType) != TCL_
63b0: 4f 4b 29 20 7b 0a 2b 09 09 72 65 74 75 72 6e 20  OK) {.+..return 
63c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 20 20 20  TCL_ERROR;.+.   
63d0: 20 7d 0a 2b 09 20 20 20 20 73 77 69 74 63 68 20   }.+.    switch 
63e0: 28 28 65 6e 75 6d 20 4c 69 6d 69 74 54 79 70 65  ((enum LimitType
63f0: 73 29 20 6c 69 6d 69 74 54 79 70 65 29 20 7b 0a  s) limitType) {.
6400: 2b 09 20 20 20 20 63 61 73 65 20 4c 49 4d 49 54  +.    case LIMIT
6410: 5f 54 59 50 45 5f 43 4f 4d 4d 41 4e 44 53 3a 0a  _TYPE_COMMANDS:.
6420: 2b 09 09 72 65 74 75 72 6e 20 53 6c 61 76 65 43  +..return SlaveC
6430: 6f 6d 6d 61 6e 64 4c 69 6d 69 74 28 69 6e 74 65  ommandLimit(inte
6440: 72 70 2c 20 73 6c 61 76 65 49 6e 74 65 72 70 2c  rp, slaveInterp,
6450: 20 33 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b   3, objc, objv);
6460: 0a 2b 09 20 20 20 20 63 61 73 65 20 4c 49 4d 49  .+.    case LIMI
6470: 54 5f 54 59 50 45 5f 54 49 4d 45 3a 0a 2b 09 09  T_TYPE_TIME:.+..
6480: 72 65 74 75 72 6e 20 53 6c 61 76 65 54 69 6d 65  return SlaveTime
6490: 4c 69 6d 69 74 28 69 6e 74 65 72 70 2c 20 73 6c  Limit(interp, sl
64a0: 61 76 65 49 6e 74 65 72 70 2c 20 33 2c 20 6f 62  aveInterp, 3, ob
64b0: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 2b 09 20 20 20  jc, objv);.+.   
64c0: 20 7d 0a 2b 09 7d 0a 20 09 63 61 73 65 20 4f 50   }.+.}. .case OP
64d0: 54 5f 4d 41 52 4b 54 52 55 53 54 45 44 3a 20 7b  T_MARKTRUSTED: {
64e0: 0a 20 09 20 20 20 20 69 66 20 28 6f 62 6a 63 20  . .    if (objc 
64f0: 21 3d 20 32 29 20 7b 0a 20 09 09 54 63 6c 5f 57  != 2) {. ..Tcl_W
6500: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
6510: 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 4e 55 4c  rp, 2, objv, NUL
6520: 4c 29 3b 0a 40 40 20 2d 32 34 38 36 2c 33 20 2b  L);.@@ -2486,3 +
6530: 32 35 38 30 2c 39 31 38 20 40 40 0a 20 0a 20 20  2580,918 @@. .  
6540: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
6550: 3b 0a 20 7d 0a 2b 0c 0a 2b 69 6e 74 0a 2b 54 63  ;. }.+..+int.+Tc
6560: 6c 5f 4c 69 6d 69 74 45 78 63 65 65 64 65 64 28  l_LimitExceeded(
6570: 69 6e 74 65 72 70 29 0a 2b 20 20 20 20 54 63 6c  interp).+    Tcl
6580: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b  _Interp *interp;
6590: 0a 2b 7b 0a 2b 20 20 20 20 72 65 67 69 73 74 65  .+{.+    registe
65a0: 72 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d  r Interp *iPtr =
65b0: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65   (Interp *) inte
65c0: 72 70 3b 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72  rp;.+.+    retur
65d0: 6e 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 65 78  n iPtr->limit.ex
65e0: 63 65 65 64 65 64 20 21 3d 20 30 3b 0a 2b 7d 0a  ceeded != 0;.+}.
65f0: 2b 0c 0a 2b 69 6e 74 0a 2b 54 63 6c 5f 4c 69 6d  +..+int.+Tcl_Lim
6600: 69 74 52 65 61 64 79 28 69 6e 74 65 72 70 29 0a  itReady(interp).
6610: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
6620: 2a 69 6e 74 65 72 70 3b 0a 2b 7b 0a 2b 20 20 20  *interp;.+{.+   
6630: 20 72 65 67 69 73 74 65 72 20 49 6e 74 65 72 70   register Interp
6640: 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70   *iPtr = (Interp
6650: 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 0a 2b 20   *) interp;.+.+ 
6660: 20 20 20 69 66 20 28 69 50 74 72 2d 3e 6c 69 6d     if (iPtr->lim
6670: 69 74 2e 61 63 74 69 76 65 20 21 3d 20 30 29 20  it.active != 0) 
6680: 7b 0a 2b 09 72 65 67 69 73 74 65 72 20 69 6e 74  {.+.register int
6690: 20 74 69 63 6b 65 72 20 3d 20 2b 2b 69 50 74 72   ticker = ++iPtr
66a0: 2d 3e 6c 69 6d 69 74 2e 67 72 61 6e 75 6c 61 72  ->limit.granular
66b0: 69 74 79 54 69 63 6b 65 72 3b 0a 2b 0a 2b 09 69  ityTicker;.+.+.i
66c0: 66 20 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  f ((iPtr->limit.
66d0: 61 63 74 69 76 65 20 26 20 54 43 4c 5f 4c 49 4d  active & TCL_LIM
66e0: 49 54 5f 43 4f 4d 4d 41 4e 44 53 29 20 26 26 0a  IT_COMMANDS) &&.
66f0: 2b 09 09 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74  +..((iPtr->limit
6700: 2e 63 6d 64 47 72 61 6e 75 6c 61 72 69 74 79 20  .cmdGranularity 
6710: 3d 3d 20 31 29 20 7c 7c 0a 2b 09 09 09 28 74 69  == 1) ||.+...(ti
6720: 63 6b 65 72 20 25 20 69 50 74 72 2d 3e 6c 69 6d  cker % iPtr->lim
6730: 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72 69 74  it.cmdGranularit
6740: 79 20 3d 3d 20 30 29 29 29 20 7b 0a 2b 09 20 20  y == 0))) {.+.  
6750: 20 20 72 65 74 75 72 6e 20 31 3b 0a 2b 09 7d 0a    return 1;.+.}.
6760: 2b 09 69 66 20 28 28 69 50 74 72 2d 3e 6c 69 6d  +.if ((iPtr->lim
6770: 69 74 2e 61 63 74 69 76 65 20 26 20 54 43 4c 5f  it.active & TCL_
6780: 4c 49 4d 49 54 5f 54 49 4d 45 29 20 26 26 0a 2b  LIMIT_TIME) &&.+
6790: 09 09 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  ..((iPtr->limit.
67a0: 74 69 6d 65 47 72 61 6e 75 6c 61 72 69 74 79 20  timeGranularity 
67b0: 3d 3d 20 31 29 20 7c 7c 0a 2b 09 09 09 28 74 69  == 1) ||.+...(ti
67c0: 63 6b 65 72 20 25 20 69 50 74 72 2d 3e 6c 69 6d  cker % iPtr->lim
67d0: 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 72 69  it.timeGranulari
67e0: 74 79 20 3d 3d 20 30 29 29 29 20 7b 0a 2b 09 20  ty == 0))) {.+. 
67f0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 2b 09 7d     return 1;.+.}
6800: 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 72 65 74  .+    }.+    ret
6810: 75 72 6e 20 30 3b 0a 2b 7d 0a 2b 0c 0a 2b 69 6e  urn 0;.+}.+..+in
6820: 74 0a 2b 54 63 6c 5f 4c 69 6d 69 74 43 68 65 63  t.+Tcl_LimitChec
6830: 6b 28 69 6e 74 65 72 70 29 0a 2b 20 20 20 20 54  k(interp).+    T
6840: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
6850: 70 3b 0a 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72  p;.+{.+    Inter
6860: 70 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72  p *iPtr = (Inter
6870: 70 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 20 20  p *) interp;.+  
6880: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 74    register int t
6890: 69 63 6b 65 72 20 3d 20 69 50 74 72 2d 3e 6c 69  icker = iPtr->li
68a0: 6d 69 74 2e 67 72 61 6e 75 6c 61 72 69 74 79 54  mit.granularityT
68b0: 69 63 6b 65 72 3b 0a 2b 0a 2b 20 20 20 20 69 66  icker;.+.+    if
68c0: 20 28 54 63 6c 5f 49 6e 74 65 72 70 44 65 6c 65   (Tcl_InterpDele
68d0: 74 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a 2b  ted(interp)) {.+
68e0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a  .return TCL_OK;.
68f0: 2b 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 69 66  +    }.+.+    if
6900: 20 28 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 61   ((iPtr->limit.a
6910: 63 74 69 76 65 20 26 20 54 43 4c 5f 4c 49 4d 49  ctive & TCL_LIMI
6920: 54 5f 43 4f 4d 4d 41 4e 44 53 29 20 26 26 0a 2b  T_COMMANDS) &&.+
6930: 09 20 20 20 20 28 28 69 50 74 72 2d 3e 6c 69 6d  .    ((iPtr->lim
6940: 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72 69 74  it.cmdGranularit
6950: 79 20 3d 3d 20 31 29 20 7c 7c 0a 2b 09 09 20 20  y == 1) ||.+..  
6960: 20 20 28 74 69 63 6b 65 72 20 25 20 69 50 74 72    (ticker % iPtr
6970: 2d 3e 6c 69 6d 69 74 2e 63 6d 64 47 72 61 6e 75  ->limit.cmdGranu
6980: 6c 61 72 69 74 79 20 3d 3d 20 30 29 29 20 26 26  larity == 0)) &&
6990: 0a 2b 09 20 20 20 20 28 69 50 74 72 2d 3e 6c 69  .+.    (iPtr->li
69a0: 6d 69 74 2e 63 6d 64 43 6f 75 6e 74 20 3c 20 69  mit.cmdCount < i
69b0: 50 74 72 2d 3e 63 6d 64 43 6f 75 6e 74 29 29 20  Ptr->cmdCount)) 
69c0: 7b 0a 2b 09 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  {.+.iPtr->limit.
69d0: 65 78 63 65 65 64 65 64 20 7c 3d 20 54 43 4c 5f  exceeded |= TCL_
69e0: 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 3b 0a  LIMIT_COMMANDS;.
69f0: 2b 09 54 63 6c 5f 50 72 65 73 65 72 76 65 28 69  +.Tcl_Preserve(i
6a00: 6e 74 65 72 70 29 3b 0a 2b 09 52 75 6e 4c 69 6d  nterp);.+.RunLim
6a10: 69 74 48 61 6e 64 6c 65 72 73 28 69 50 74 72 2d  itHandlers(iPtr-
6a20: 3e 6c 69 6d 69 74 2e 63 6d 64 48 61 6e 64 6c 65  >limit.cmdHandle
6a30: 72 73 2c 20 69 6e 74 65 72 70 29 3b 0a 2b 09 69  rs, interp);.+.i
6a40: 66 20 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63  f (iPtr->limit.c
6a50: 6d 64 43 6f 75 6e 74 20 3e 3d 20 69 50 74 72 2d  mdCount >= iPtr-
6a60: 3e 63 6d 64 43 6f 75 6e 74 29 20 7b 0a 2b 09 20  >cmdCount) {.+. 
6a70: 20 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 65     iPtr->limit.e
6a80: 78 63 65 65 64 65 64 20 26 3d 20 7e 54 43 4c 5f  xceeded &= ~TCL_
6a90: 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 3b 0a  LIMIT_COMMANDS;.
6aa0: 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20  +.} else {.+.   
6ab0: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
6ac0: 28 69 6e 74 65 72 70 29 3b 0a 2b 09 20 20 20 20  (interp);.+.    
6ad0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
6ae0: 28 69 6e 74 65 72 70 2c 20 22 63 6f 6d 6d 61 6e  (interp, "comman
6af0: 64 20 63 6f 75 6e 74 20 6c 69 6d 69 74 20 65 78  d count limit ex
6b00: 63 65 65 64 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a  ceeded", NULL);.
6b10: 2b 09 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73  +.    Tcl_Releas
6b20: 65 28 69 6e 74 65 72 70 29 3b 0a 2b 09 20 20 20  e(interp);.+.   
6b30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
6b40: 52 3b 0a 2b 09 7d 0a 2b 20 20 20 20 7d 0a 2b 0a  R;.+.}.+    }.+.
6b50: 2b 20 20 20 20 69 66 20 28 28 69 50 74 72 2d 3e  +    if ((iPtr->
6b60: 6c 69 6d 69 74 2e 61 63 74 69 76 65 20 26 20 54  limit.active & T
6b70: 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29 20 26  CL_LIMIT_TIME) &
6b80: 26 0a 2b 09 20 20 20 20 28 28 69 50 74 72 2d 3e  &.+.    ((iPtr->
6b90: 6c 69 6d 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c  limit.timeGranul
6ba0: 61 72 69 74 79 20 3d 3d 20 31 29 20 7c 7c 0a 2b  arity == 1) ||.+
6bb0: 09 09 20 20 20 20 28 74 69 63 6b 65 72 20 25 20  ..    (ticker % 
6bc0: 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65  iPtr->limit.time
6bd0: 47 72 61 6e 75 6c 61 72 69 74 79 20 3d 3d 20 30  Granularity == 0
6be0: 29 29 29 20 7b 0a 2b 09 54 63 6c 5f 54 69 6d 65  ))) {.+.Tcl_Time
6bf0: 20 6e 6f 77 3b 0a 2b 0a 2b 09 54 63 6c 5f 47 65   now;.+.+.Tcl_Ge
6c00: 74 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 2b 09 69  tTime(&now);.+.i
6c10: 66 20 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74  f (iPtr->limit.t
6c20: 69 6d 65 2e 73 65 63 20 3c 20 6e 6f 77 2e 73 65  ime.sec < now.se
6c30: 63 20 7c 7c 0a 2b 09 09 28 69 50 74 72 2d 3e 6c  c ||.+..(iPtr->l
6c40: 69 6d 69 74 2e 74 69 6d 65 2e 73 65 63 20 3d 3d  imit.time.sec ==
6c50: 20 6e 6f 77 2e 73 65 63 20 26 26 0a 2b 09 09 69   now.sec &&.+..i
6c60: 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2e  Ptr->limit.time.
6c70: 75 73 65 63 20 3c 20 6e 6f 77 2e 75 73 65 63 29  usec < now.usec)
6c80: 29 20 7b 0a 2b 09 20 20 20 20 69 50 74 72 2d 3e  ) {.+.    iPtr->
6c90: 6c 69 6d 69 74 2e 65 78 63 65 65 64 65 64 20 7c  limit.exceeded |
6ca0: 3d 20 54 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45  = TCL_LIMIT_TIME
6cb0: 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 50 72 65 73  ;.+.    Tcl_Pres
6cc0: 65 72 76 65 28 69 6e 74 65 72 70 29 3b 0a 2b 09  erve(interp);.+.
6cd0: 20 20 20 20 52 75 6e 4c 69 6d 69 74 48 61 6e 64      RunLimitHand
6ce0: 6c 65 72 73 28 69 50 74 72 2d 3e 6c 69 6d 69 74  lers(iPtr->limit
6cf0: 2e 74 69 6d 65 48 61 6e 64 6c 65 72 73 2c 20 69  .timeHandlers, i
6d00: 6e 74 65 72 70 29 3b 0a 2b 09 20 20 20 20 69 66  nterp);.+.    if
6d10: 20 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69   (iPtr->limit.ti
6d20: 6d 65 2e 73 65 63 20 3c 20 6e 6f 77 2e 73 65 63  me.sec < now.sec
6d30: 20 7c 7c 0a 2b 09 09 20 20 20 20 28 69 50 74 72   ||.+..    (iPtr
6d40: 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2e 73 65 63  ->limit.time.sec
6d50: 20 3d 3d 20 6e 6f 77 2e 73 65 63 20 26 26 0a 2b   == now.sec &&.+
6d60: 09 09 20 20 20 20 69 50 74 72 2d 3e 6c 69 6d 69  ..    iPtr->limi
6d70: 74 2e 74 69 6d 65 2e 75 73 65 63 20 3c 20 6e 6f  t.time.usec < no
6d80: 77 2e 75 73 65 63 29 29 20 7b 0a 2b 09 09 69 50  w.usec)) {.+..iP
6d90: 74 72 2d 3e 6c 69 6d 69 74 2e 65 78 63 65 65 64  tr->limit.exceed
6da0: 65 64 20 26 3d 20 7e 54 43 4c 5f 4c 49 4d 49 54  ed &= ~TCL_LIMIT
6db0: 5f 54 49 4d 45 3b 0a 2b 09 20 20 20 20 7d 20 65  _TIME;.+.    } e
6dc0: 6c 73 65 20 7b 0a 2b 09 09 54 63 6c 5f 52 65 73  lse {.+..Tcl_Res
6dd0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  etResult(interp)
6de0: 3b 0a 2b 09 09 54 63 6c 5f 41 70 70 65 6e 64 52  ;.+..Tcl_AppendR
6df0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 74  esult(interp, "t
6e00: 69 6d 65 20 6c 69 6d 69 74 20 65 78 63 65 65 64  ime limit exceed
6e10: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 54  ed", NULL);.+..T
6e20: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
6e30: 70 29 3b 0a 2b 09 09 72 65 74 75 72 6e 20 54 43  p);.+..return TC
6e40: 4c 5f 45 52 52 4f 52 3b 0a 2b 09 20 20 20 20 7d  L_ERROR;.+.    }
6e50: 0a 2b 09 7d 0a 2b 20 20 20 20 7d 0a 2b 0a 2b 20  .+.}.+    }.+.+ 
6e60: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
6e70: 3b 0a 2b 7d 0a 2b 0c 0a 2b 73 74 61 74 69 63 20  ;.+}.+..+static 
6e80: 76 6f 69 64 0a 2b 52 75 6e 4c 69 6d 69 74 48 61  void.+RunLimitHa
6e90: 6e 64 6c 65 72 73 28 68 61 6e 64 6c 65 72 50 74  ndlers(handlerPt
6ea0: 72 2c 20 69 6e 74 65 72 70 29 0a 2b 20 20 20 20  r, interp).+    
6eb0: 4c 69 6d 69 74 48 61 6e 64 6c 65 72 20 2a 68 61  LimitHandler *ha
6ec0: 6e 64 6c 65 72 50 74 72 3b 0a 2b 20 20 20 20 54  ndlerPtr;.+    T
6ed0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
6ee0: 70 3b 0a 2b 7b 0a 2b 20 20 20 20 4c 69 6d 69 74  p;.+{.+    Limit
6ef0: 48 61 6e 64 6c 65 72 20 2a 6e 65 78 74 50 74 72  Handler *nextPtr
6f00: 3b 0a 2b 20 20 20 20 66 6f 72 20 28 3b 20 68 61  ;.+    for (; ha
6f10: 6e 64 6c 65 72 50 74 72 21 3d 4e 55 4c 4c 20 3b  ndlerPtr!=NULL ;
6f20: 20 68 61 6e 64 6c 65 72 50 74 72 3d 6e 65 78 74   handlerPtr=next
6f30: 50 74 72 29 20 7b 0a 2b 09 69 66 20 28 68 61 6e  Ptr) {.+.if (han
6f40: 64 6c 65 72 50 74 72 2d 3e 66 6c 61 67 73 20 26  dlerPtr->flags &
6f50: 20 28 4c 49 4d 49 54 5f 48 41 4e 44 4c 45 52 5f   (LIMIT_HANDLER_
6f60: 44 45 4c 45 54 45 44 7c 4c 49 4d 49 54 5f 48 41  DELETED|LIMIT_HA
6f70: 4e 44 4c 45 52 5f 41 43 54 49 56 45 29 29 20 7b  NDLER_ACTIVE)) {
6f80: 0a 2b 09 20 20 20 20 2f 2a 0a 2b 09 20 20 20 20  .+.    /*.+.    
6f90: 20 2a 20 52 65 65 6e 74 72 61 6e 74 20 63 61 6c   * Reentrant cal
6fa0: 6c 20 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 73  l or something s
6fb0: 65 72 69 6f 75 73 6c 79 20 73 74 72 61 6e 67 65  eriously strange
6fc0: 20 69 6e 20 74 68 65 0a 2b 09 20 20 20 20 20 2a   in the.+.     *
6fd0: 20 64 65 6c 65 74 65 20 63 6f 64 65 2e 0a 2b 09   delete code..+.
6fe0: 20 20 20 20 20 2a 2f 0a 2b 09 20 20 20 20 6e 65       */.+.    ne
6ff0: 78 74 50 74 72 20 3d 20 68 61 6e 64 6c 65 72 50  xtPtr = handlerP
7000: 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 2b 09 20  tr->nextPtr;.+. 
7010: 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 2b 09 7d     continue;.+.}
7020: 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 53 65 74  .+.+./*.+. * Set
7030: 20 74 68 65 20 41 43 54 49 56 45 20 66 6c 61 67   the ACTIVE flag
7040: 20 77 68 69 6c 65 20 72 75 6e 6e 69 6e 67 20 74   while running t
7050: 68 65 20 6c 69 6d 69 74 20 68 61 6e 64 6c 65 72  he limit handler
7060: 20 69 74 73 65 6c 66 0a 2b 09 20 2a 20 73 6f 20   itself.+. * so 
7070: 77 65 20 63 61 6e 6e 6f 74 20 72 65 65 6e 74 72  we cannot reentr
7080: 61 6e 74 6c 79 20 63 61 6c 6c 20 74 68 69 73 20  antly call this 
7090: 68 61 6e 64 6c 65 72 20 61 6e 64 20 6b 6e 6f 77  handler and know
70a0: 20 74 6f 20 75 73 65 0a 2b 09 20 2a 20 74 68 65   to use.+. * the
70b0: 20 61 6c 74 65 72 6e 61 74 65 20 6d 65 74 68 6f   alternate metho
70c0: 64 20 6f 66 20 64 65 6c 65 74 69 6f 6e 20 69 66  d of deletion if
70d0: 20 6e 65 63 65 73 73 61 72 79 2e 0a 2b 09 20 2a   necessary..+. *
70e0: 2f 0a 2b 0a 2b 09 68 61 6e 64 6c 65 72 50 74 72  /.+.+.handlerPtr
70f0: 2d 3e 66 6c 61 67 73 20 7c 3d 20 4c 49 4d 49 54  ->flags |= LIMIT
7100: 5f 48 41 4e 44 4c 45 52 5f 41 43 54 49 56 45 3b  _HANDLER_ACTIVE;
7110: 0a 2b 09 28 68 61 6e 64 6c 65 72 50 74 72 2d 3e  .+.(handlerPtr->
7120: 68 61 6e 64 6c 65 72 50 72 6f 63 29 28 68 61 6e  handlerProc)(han
7130: 64 6c 65 72 50 74 72 2d 3e 63 6c 69 65 6e 74 44  dlerPtr->clientD
7140: 61 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 2b 09  ata, interp);.+.
7150: 68 61 6e 64 6c 65 72 50 74 72 2d 3e 66 6c 61 67  handlerPtr->flag
7160: 73 20 26 3d 20 7e 4c 49 4d 49 54 5f 48 41 4e 44  s &= ~LIMIT_HAND
7170: 4c 45 52 5f 41 43 54 49 56 45 3b 0a 2b 0a 2b 09  LER_ACTIVE;.+.+.
7180: 2f 2a 0a 2b 09 20 2a 20 52 65 64 69 73 63 6f 76  /*.+. * Rediscov
7190: 65 72 20 74 68 69 73 20 76 61 6c 75 65 3b 20 69  er this value; i
71a0: 74 20 6d 69 67 68 74 20 68 61 76 65 20 63 68 61  t might have cha
71b0: 6e 67 65 64 20 64 75 72 69 6e 67 20 74 68 65 0a  nged during the.
71c0: 2b 09 20 2a 20 70 72 6f 63 65 73 73 69 6e 67 20  +. * processing 
71d0: 6f 66 20 61 20 6c 69 6d 69 74 20 68 61 6e 64 6c  of a limit handl
71e0: 65 72 2e 20 20 57 65 20 68 61 76 65 20 74 6f 20  er.  We have to 
71f0: 72 65 63 6f 72 64 20 69 74 20 68 65 72 65 0a 2b  record it here.+
7200: 09 20 2a 20 62 65 63 61 75 73 65 20 77 65 20 6d  . * because we m
7210: 69 67 68 74 20 64 65 6c 65 74 65 20 74 68 65 20  ight delete the 
7220: 73 74 72 75 63 74 75 72 65 20 62 65 6c 6f 77 2c  structure below,
7230: 20 61 6e 64 20 72 65 61 64 69 6e 67 20 61 0a 2b   and reading a.+
7240: 09 20 2a 20 76 61 6c 75 65 20 6f 75 74 20 6f 66  . * value out of
7250: 20 61 20 64 65 6c 65 74 65 64 20 73 74 72 75 63   a deleted struc
7260: 74 75 72 65 20 69 73 20 75 6e 73 61 66 65 20 28  ture is unsafe (
7270: 65 76 65 6e 20 69 66 0a 2b 09 20 2a 20 61 63 74  even if.+. * act
7280: 75 61 6c 6c 79 20 6c 65 67 61 6c 20 77 69 74 68  ually legal with
7290: 20 73 6f 6d 65 20 6d 61 6c 6c 6f 63 28 29 2f 66   some malloc()/f
72a0: 72 65 65 28 29 20 69 6d 70 6c 65 6d 65 6e 74 61  ree() implementa
72b0: 74 69 6f 6e 73 2e 29 0a 2b 09 20 2a 2f 0a 2b 0a  tions.).+. */.+.
72c0: 2b 09 6e 65 78 74 50 74 72 20 3d 20 68 61 6e 64  +.nextPtr = hand
72d0: 6c 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b  lerPtr->nextPtr;
72e0: 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 49 66 20  .+.+./*.+. * If 
72f0: 77 65 20 64 65 6c 65 74 65 64 20 74 68 65 20 63  we deleted the c
7300: 75 72 72 65 6e 74 20 68 61 6e 64 6c 65 72 20 77  urrent handler w
7310: 68 69 6c 65 20 77 65 20 77 65 72 65 20 65 78 65  hile we were exe
7320: 63 75 74 69 6e 67 0a 2b 09 20 2a 20 69 74 2c 20  cuting.+. * it, 
7330: 77 65 20 77 69 6c 6c 20 68 61 76 65 20 73 70 6c  we will have spl
7340: 69 63 65 64 20 69 74 20 6f 75 74 20 6f 66 20 74  iced it out of t
7350: 68 65 20 6c 69 73 74 20 61 6e 64 20 73 65 74 20  he list and set 
7360: 74 68 65 0a 2b 09 20 2a 20 4c 49 4d 49 54 5f 48  the.+. * LIMIT_H
7370: 41 4e 44 4c 45 52 5f 44 45 4c 45 54 45 44 20 66  ANDLER_DELETED f
7380: 6c 61 67 2e 0a 2b 09 20 2a 2f 0a 2b 09 69 66 20  lag..+. */.+.if 
7390: 28 68 61 6e 64 6c 65 72 50 74 72 2d 3e 66 6c 61  (handlerPtr->fla
73a0: 67 73 20 26 20 4c 49 4d 49 54 5f 48 41 4e 44 4c  gs & LIMIT_HANDL
73b0: 45 52 5f 44 45 4c 45 54 45 44 29 20 7b 0a 2b 09  ER_DELETED) {.+.
73c0: 20 20 20 20 69 66 20 28 68 61 6e 64 6c 65 72 50      if (handlerP
73d0: 74 72 2d 3e 64 65 6c 65 74 65 50 72 6f 63 20 21  tr->deleteProc !
73e0: 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 28 68 61  = NULL) {.+..(ha
73f0: 6e 64 6c 65 72 50 74 72 2d 3e 64 65 6c 65 74 65  ndlerPtr->delete
7400: 50 72 6f 63 29 28 68 61 6e 64 6c 65 72 50 74 72  Proc)(handlerPtr
7410: 2d 3e 63 6c 69 65 6e 74 44 61 74 61 29 3b 0a 2b  ->clientData);.+
7420: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 63 6b 66  .    }.+.    ckf
7430: 72 65 65 28 28 63 68 61 72 20 2a 29 20 68 61 6e  ree((char *) han
7440: 64 6c 65 72 50 74 72 29 3b 0a 2b 09 7d 0a 2b 20  dlerPtr);.+.}.+ 
7450: 20 20 20 7d 0a 2b 7d 0a 2b 0c 0a 2b 76 6f 69 64     }.+}.+..+void
7460: 0a 2b 54 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61  .+Tcl_LimitAddHa
7470: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79  ndler(interp, ty
7480: 70 65 2c 20 68 61 6e 64 6c 65 72 50 72 6f 63 2c  pe, handlerProc,
7490: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 64 65 6c   clientData, del
74a0: 65 74 65 50 72 6f 63 29 0a 2b 20 20 20 20 54 63  eteProc).+    Tc
74b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
74c0: 3b 0a 2b 20 20 20 20 69 6e 74 20 74 79 70 65 3b  ;.+    int type;
74d0: 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 48  .+    Tcl_LimitH
74e0: 61 6e 64 6c 65 72 50 72 6f 63 20 2a 68 61 6e 64  andlerProc *hand
74f0: 6c 65 72 50 72 6f 63 3b 0a 2b 20 20 20 20 43 6c  lerProc;.+    Cl
7500: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44  ientData clientD
7510: 61 74 61 3b 0a 2b 20 20 20 20 54 63 6c 5f 4c 69  ata;.+    Tcl_Li
7520: 6d 69 74 48 61 6e 64 6c 65 72 44 65 6c 65 74 65  mitHandlerDelete
7530: 50 72 6f 63 20 2a 64 65 6c 65 74 65 50 72 6f 63  Proc *deleteProc
7540: 3b 0a 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70  ;.+{.+    Interp
7550: 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70   *iPtr = (Interp
7560: 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20   *) interp;.+   
7570: 20 4c 69 6d 69 74 48 61 6e 64 6c 65 72 20 2a 68   LimitHandler *h
7580: 61 6e 64 6c 65 72 50 74 72 3b 0a 2b 0a 2b 20 20  andlerPtr;.+.+  
7590: 20 20 69 66 20 28 64 65 6c 65 74 65 50 72 6f 63    if (deleteProc
75a0: 20 3d 3d 20 28 54 63 6c 5f 4c 69 6d 69 74 48 61   == (Tcl_LimitHa
75b0: 6e 64 6c 65 72 44 65 6c 65 74 65 50 72 6f 63 20  ndlerDeleteProc 
75c0: 2a 29 20 54 43 4c 5f 44 59 4e 41 4d 49 43 29 20  *) TCL_DYNAMIC) 
75d0: 7b 0a 2b 09 64 65 6c 65 74 65 50 72 6f 63 20 3d  {.+.deleteProc =
75e0: 20 28 54 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c   (Tcl_LimitHandl
75f0: 65 72 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20  erDeleteProc *) 
7600: 54 63 6c 5f 41 6c 6c 6f 63 3b 0a 2b 20 20 20 20  Tcl_Alloc;.+    
7610: 7d 0a 2b 20 20 20 20 69 66 20 28 64 65 6c 65 74  }.+    if (delet
7620: 65 50 72 6f 63 20 3d 3d 20 28 54 63 6c 5f 4c 69  eProc == (Tcl_Li
7630: 6d 69 74 48 61 6e 64 6c 65 72 44 65 6c 65 74 65  mitHandlerDelete
7640: 50 72 6f 63 20 2a 29 20 54 43 4c 5f 53 54 41 54  Proc *) TCL_STAT
7650: 49 43 29 20 7b 0a 2b 09 64 65 6c 65 74 65 50 72  IC) {.+.deletePr
7660: 6f 63 20 3d 20 28 54 63 6c 5f 4c 69 6d 69 74 48  oc = (Tcl_LimitH
7670: 61 6e 64 6c 65 72 44 65 6c 65 74 65 50 72 6f 63  andlerDeleteProc
7680: 20 2a 29 20 4e 55 4c 4c 3b 0a 2b 20 20 20 20 7d   *) NULL;.+    }
7690: 0a 2b 0a 2b 20 20 20 20 73 77 69 74 63 68 20 28  .+.+    switch (
76a0: 74 79 70 65 29 20 7b 0a 2b 20 20 20 20 63 61 73  type) {.+    cas
76b0: 65 20 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f 4d 4d  e TCL_LIMIT_COMM
76c0: 41 4e 44 53 3a 0a 2b 09 68 61 6e 64 6c 65 72 50  ANDS:.+.handlerP
76d0: 74 72 20 3d 20 28 4c 69 6d 69 74 48 61 6e 64 6c  tr = (LimitHandl
76e0: 65 72 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 73 69  er *) ckalloc(si
76f0: 7a 65 6f 66 28 4c 69 6d 69 74 48 61 6e 64 6c 65  zeof(LimitHandle
7700: 72 29 29 3b 0a 2b 0a 2b 09 68 61 6e 64 6c 65 72  r));.+.+.handler
7710: 50 74 72 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 0a  Ptr->flags = 0;.
7720: 2b 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e 68 61  +.handlerPtr->ha
7730: 6e 64 6c 65 72 50 72 6f 63 20 3d 20 68 61 6e 64  ndlerProc = hand
7740: 6c 65 72 50 72 6f 63 3b 0a 2b 09 68 61 6e 64 6c  lerProc;.+.handl
7750: 65 72 50 74 72 2d 3e 63 6c 69 65 6e 74 44 61 74  erPtr->clientDat
7760: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a  a = clientData;.
7770: 2b 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e 64 65  +.handlerPtr->de
7780: 6c 65 74 65 50 72 6f 63 20 3d 20 64 65 6c 65 74  leteProc = delet
7790: 65 50 72 6f 63 3b 0a 2b 09 68 61 6e 64 6c 65 72  eProc;.+.handler
77a0: 50 74 72 2d 3e 70 72 65 76 50 74 72 20 3d 20 4e  Ptr->prevPtr = N
77b0: 55 4c 4c 3b 0a 2b 09 68 61 6e 64 6c 65 72 50 74  ULL;.+.handlerPt
77c0: 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20 69 50 74  r->nextPtr = iPt
77d0: 72 2d 3e 6c 69 6d 69 74 2e 63 6d 64 48 61 6e 64  r->limit.cmdHand
77e0: 6c 65 72 73 3b 0a 2b 09 69 66 20 28 68 61 6e 64  lers;.+.if (hand
77f0: 6c 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 20  lerPtr->nextPtr 
7800: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20  != NULL) {.+.   
7810: 20 68 61 6e 64 6c 65 72 50 74 72 2d 3e 6e 65 78   handlerPtr->nex
7820: 74 50 74 72 2d 3e 70 72 65 76 50 74 72 20 3d 20  tPtr->prevPtr = 
7830: 68 61 6e 64 6c 65 72 50 74 72 3b 0a 2b 09 7d 0a  handlerPtr;.+.}.
7840: 2b 09 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 6d  +.iPtr->limit.cm
7850: 64 48 61 6e 64 6c 65 72 73 20 3d 20 68 61 6e 64  dHandlers = hand
7860: 6c 65 72 50 74 72 3b 0a 2b 09 72 65 74 75 72 6e  lerPtr;.+.return
7870: 3b 0a 2b 0a 2b 20 20 20 20 63 61 73 65 20 54 43  ;.+.+    case TC
7880: 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 3a 0a 2b 09  L_LIMIT_TIME:.+.
7890: 68 61 6e 64 6c 65 72 50 74 72 20 3d 20 28 4c 69  handlerPtr = (Li
78a0: 6d 69 74 48 61 6e 64 6c 65 72 20 2a 29 20 63 6b  mitHandler *) ck
78b0: 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 4c 69 6d  alloc(sizeof(Lim
78c0: 69 74 48 61 6e 64 6c 65 72 29 29 3b 0a 2b 0a 2b  itHandler));.+.+
78d0: 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e 66 6c 61  .handlerPtr->fla
78e0: 67 73 20 3d 20 30 3b 0a 2b 09 68 61 6e 64 6c 65  gs = 0;.+.handle
78f0: 72 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 72 6f  rPtr->handlerPro
7900: 63 20 3d 20 68 61 6e 64 6c 65 72 50 72 6f 63 3b  c = handlerProc;
7910: 0a 2b 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e 63  .+.handlerPtr->c
7920: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65  lientData = clie
7930: 6e 74 44 61 74 61 3b 0a 2b 09 68 61 6e 64 6c 65  ntData;.+.handle
7940: 72 50 74 72 2d 3e 64 65 6c 65 74 65 50 72 6f 63  rPtr->deleteProc
7950: 20 3d 20 64 65 6c 65 74 65 50 72 6f 63 3b 0a 2b   = deleteProc;.+
7960: 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e 70 72 65  .handlerPtr->pre
7970: 76 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 68  vPtr = NULL;.+.h
7980: 61 6e 64 6c 65 72 50 74 72 2d 3e 6e 65 78 74 50  andlerPtr->nextP
7990: 74 72 20 3d 20 69 50 74 72 2d 3e 6c 69 6d 69 74  tr = iPtr->limit
79a0: 2e 74 69 6d 65 48 61 6e 64 6c 65 72 73 3b 0a 2b  .timeHandlers;.+
79b0: 09 69 66 20 28 68 61 6e 64 6c 65 72 50 74 72 2d  .if (handlerPtr-
79c0: 3e 6e 65 78 74 50 74 72 20 21 3d 20 4e 55 4c 4c  >nextPtr != NULL
79d0: 29 20 7b 0a 2b 09 20 20 20 20 68 61 6e 64 6c 65  ) {.+.    handle
79e0: 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 2d 3e 70  rPtr->nextPtr->p
79f0: 72 65 76 50 74 72 20 3d 20 68 61 6e 64 6c 65 72  revPtr = handler
7a00: 50 74 72 3b 0a 2b 09 7d 0a 2b 09 69 50 74 72 2d  Ptr;.+.}.+.iPtr-
7a10: 3e 6c 69 6d 69 74 2e 74 69 6d 65 48 61 6e 64 6c  >limit.timeHandl
7a20: 65 72 73 20 3d 20 68 61 6e 64 6c 65 72 50 74 72  ers = handlerPtr
7a30: 3b 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b 20 20 20  ;.+.return;.+   
7a40: 20 7d 0a 2b 0a 2b 20 20 20 20 54 63 6c 5f 50 61   }.+.+    Tcl_Pa
7a50: 6e 69 63 28 22 75 6e 6b 6e 6f 77 6e 20 74 79 70  nic("unknown typ
7a60: 65 20 6f 66 20 72 65 73 6f 75 72 63 65 20 6c 69  e of resource li
7a70: 6d 69 74 22 29 3b 0a 2b 7d 0a 2b 0c 0a 2b 76 6f  mit");.+}.+..+vo
7a80: 69 64 0a 2b 54 63 6c 5f 4c 69 6d 69 74 52 65 6d  id.+Tcl_LimitRem
7a90: 6f 76 65 48 61 6e 64 6c 65 72 28 69 6e 74 65 72  oveHandler(inter
7aa0: 70 2c 20 74 79 70 65 2c 20 68 61 6e 64 6c 65 72  p, type, handler
7ab0: 50 72 6f 63 2c 20 63 6c 69 65 6e 74 44 61 74 61  Proc, clientData
7ac0: 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  ).+    Tcl_Inter
7ad0: 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20  p *interp;.+    
7ae0: 69 6e 74 20 74 79 70 65 3b 0a 2b 20 20 20 20 54  int type;.+    T
7af0: 63 6c 5f 4c 69 6d 69 74 48 61 6e 64 6c 65 72 50  cl_LimitHandlerP
7b00: 72 6f 63 20 2a 68 61 6e 64 6c 65 72 50 72 6f 63  roc *handlerProc
7b10: 3b 0a 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74  ;.+    ClientDat
7b20: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 2b 7b  a clientData;.+{
7b30: 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50  .+    Interp *iP
7b40: 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 20  tr = (Interp *) 
7b50: 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 4c 69 6d  interp;.+    Lim
7b60: 69 74 48 61 6e 64 6c 65 72 20 2a 68 61 6e 64 6c  itHandler *handl
7b70: 65 72 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 73 77  erPtr;.+.+    sw
7b80: 69 74 63 68 20 28 74 79 70 65 29 20 7b 0a 2b 20  itch (type) {.+ 
7b90: 20 20 20 63 61 73 65 20 54 43 4c 5f 4c 49 4d 49     case TCL_LIMI
7ba0: 54 5f 43 4f 4d 4d 41 4e 44 53 3a 0a 2b 09 68 61  T_COMMANDS:.+.ha
7bb0: 6e 64 6c 65 72 50 74 72 20 3d 20 69 50 74 72 2d  ndlerPtr = iPtr-
7bc0: 3e 6c 69 6d 69 74 2e 63 6d 64 48 61 6e 64 6c 65  >limit.cmdHandle
7bd0: 72 73 3b 0a 2b 09 62 72 65 61 6b 3b 0a 2b 20 20  rs;.+.break;.+  
7be0: 20 20 63 61 73 65 20 54 43 4c 5f 4c 49 4d 49 54    case TCL_LIMIT
7bf0: 5f 54 49 4d 45 3a 0a 2b 09 68 61 6e 64 6c 65 72  _TIME:.+.handler
7c00: 50 74 72 20 3d 20 69 50 74 72 2d 3e 6c 69 6d 69  Ptr = iPtr->limi
7c10: 74 2e 74 69 6d 65 48 61 6e 64 6c 65 72 73 3b 0a  t.timeHandlers;.
7c20: 2b 09 62 72 65 61 6b 3b 0a 2b 20 20 20 20 64 65  +.break;.+    de
7c30: 66 61 75 6c 74 3a 0a 2b 09 54 63 6c 5f 50 61 6e  fault:.+.Tcl_Pan
7c40: 69 63 28 22 75 6e 6b 6e 6f 77 6e 20 74 79 70 65  ic("unknown type
7c50: 20 6f 66 20 72 65 73 6f 75 72 63 65 20 6c 69 6d   of resource lim
7c60: 69 74 22 29 3b 0a 2b 20 20 20 20 7d 0a 2b 0a 2b  it");.+    }.+.+
7c70: 20 20 20 20 66 6f 72 20 28 3b 20 68 61 6e 64 6c      for (; handl
7c80: 65 72 50 74 72 21 3d 4e 55 4c 4c 20 3b 20 68 61  erPtr!=NULL ; ha
7c90: 6e 64 6c 65 72 50 74 72 3d 68 61 6e 64 6c 65 72  ndlerPtr=handler
7ca0: 50 74 72 2d 3e 6e 65 78 74 50 74 72 29 20 7b 0a  Ptr->nextPtr) {.
7cb0: 2b 09 69 66 20 28 28 68 61 6e 64 6c 65 72 50 74  +.if ((handlerPt
7cc0: 72 2d 3e 68 61 6e 64 6c 65 72 50 72 6f 63 20 21  r->handlerProc !
7cd0: 3d 20 68 61 6e 64 6c 65 72 50 72 6f 63 29 20 7c  = handlerProc) |
7ce0: 7c 0a 2b 09 09 28 68 61 6e 64 6c 65 72 50 74 72  |.+..(handlerPtr
7cf0: 2d 3e 63 6c 69 65 6e 74 44 61 74 61 20 21 3d 20  ->clientData != 
7d00: 63 6c 69 65 6e 74 44 61 74 61 29 29 20 7b 0a 2b  clientData)) {.+
7d10: 09 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 2b  .    continue;.+
7d20: 09 7d 0a 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 57  .}.+.+./*.+. * W
7d30: 65 27 76 65 20 66 6f 75 6e 64 20 74 68 65 20 68  e've found the h
7d40: 61 6e 64 6c 65 72 20 74 6f 20 64 65 6c 65 74 65  andler to delete
7d50: 3b 20 6d 61 72 6b 20 69 74 20 61 73 20 64 6f 6f  ; mark it as doo
7d60: 6d 65 64 20 69 66 20 6e 6f 74 0a 2b 09 20 2a 20  med if not.+. * 
7d70: 61 6c 72 65 61 64 79 20 73 6f 20 6d 61 72 6b 65  already so marke
7d80: 64 20 28 77 68 69 63 68 20 73 68 6f 75 6c 64 6e  d (which shouldn
7d90: 27 74 20 61 63 74 75 61 6c 6c 79 20 68 61 70 70  't actually happ
7da0: 65 6e 29 2e 0a 2b 09 20 2a 2f 0a 2b 0a 2b 09 69  en)..+. */.+.+.i
7db0: 66 20 28 68 61 6e 64 6c 65 72 50 74 72 2d 3e 66  f (handlerPtr->f
7dc0: 6c 61 67 73 20 26 20 4c 49 4d 49 54 5f 48 41 4e  lags & LIMIT_HAN
7dd0: 44 4c 45 52 5f 44 45 4c 45 54 45 44 29 20 7b 0a  DLER_DELETED) {.
7de0: 2b 09 20 20 20 20 72 65 74 75 72 6e 3b 0a 2b 09  +.    return;.+.
7df0: 7d 0a 2b 09 68 61 6e 64 6c 65 72 50 74 72 2d 3e  }.+.handlerPtr->
7e00: 66 6c 61 67 73 20 7c 3d 20 4c 49 4d 49 54 5f 48  flags |= LIMIT_H
7e10: 41 4e 44 4c 45 52 5f 44 45 4c 45 54 45 44 3b 0a  ANDLER_DELETED;.
7e20: 2b 0a 2b 09 2f 2a 0a 2b 09 20 2a 20 53 70 6c 69  +.+./*.+. * Spli
7e30: 63 65 20 74 68 65 20 68 61 6e 64 6c 65 72 20 6f  ce the handler o
7e40: 75 74 20 6f 66 20 74 68 65 20 64 6f 75 62 6c 79  ut of the doubly
7e50: 2d 6c 69 6e 6b 65 64 20 6c 69 73 74 2e 0a 2b 09  -linked list..+.
7e60: 20 2a 2f 0a 2b 0a 2b 09 69 66 20 28 68 61 6e 64   */.+.+.if (hand
7e70: 6c 65 72 50 74 72 2d 3e 70 72 65 76 50 74 72 20  lerPtr->prevPtr 
7e80: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20  == NULL) {.+.   
7e90: 20 73 77 69 74 63 68 20 28 74 79 70 65 29 20 7b   switch (type) {
7ea0: 0a 2b 09 20 20 20 20 63 61 73 65 20 54 43 4c 5f  .+.    case TCL_
7eb0: 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 3a 0a  LIMIT_COMMANDS:.
7ec0: 2b 09 09 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63  +..iPtr->limit.c
7ed0: 6d 64 48 61 6e 64 6c 65 72 73 20 3d 20 68 61 6e  mdHandlers = han
7ee0: 64 6c 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72  dlerPtr->nextPtr
7ef0: 3b 0a 2b 09 09 62 72 65 61 6b 3b 0a 2b 09 20 20  ;.+..break;.+.  
7f00: 20 20 63 61 73 65 20 54 43 4c 5f 4c 49 4d 49 54    case TCL_LIMIT
7f10: 5f 54 49 4d 45 3a 0a 2b 09 09 69 50 74 72 2d 3e  _TIME:.+..iPtr->
7f20: 6c 69 6d 69 74 2e 74 69 6d 65 48 61 6e 64 6c 65  limit.timeHandle
7f30: 72 73 20 3d 20 68 61 6e 64 6c 65 72 50 74 72 2d  rs = handlerPtr-
7f40: 3e 6e 65 78 74 50 74 72 3b 0a 2b 09 09 62 72 65  >nextPtr;.+..bre
7f50: 61 6b 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d 20  ak;.+.    }.+.} 
7f60: 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 68 61 6e  else {.+.    han
7f70: 64 6c 65 72 50 74 72 2d 3e 70 72 65 76 50 74 72  dlerPtr->prevPtr
7f80: 2d 3e 6e 65 78 74 50 74 72 20 3d 20 68 61 6e 64  ->nextPtr = hand
7f90: 6c 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b  lerPtr->nextPtr;
7fa0: 0a 2b 09 7d 0a 2b 09 69 66 20 28 68 61 6e 64 6c  .+.}.+.if (handl
7fb0: 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 21  erPtr->nextPtr !
7fc0: 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 20  = NULL) {.+.    
7fd0: 68 61 6e 64 6c 65 72 50 74 72 2d 3e 6e 65 78 74  handlerPtr->next
7fe0: 50 74 72 2d 3e 70 72 65 76 50 74 72 20 3d 20 68  Ptr->prevPtr = h
7ff0: 61 6e 64 6c 65 72 50 74 72 2d 3e 70 72 65 76 50  andlerPtr->prevP
8000: 74 72 3b 0a 2b 09 7d 0a 2b 0a 2b 09 2f 2a 0a 2b  tr;.+.}.+.+./*.+
8010: 09 20 2a 20 49 66 20 6e 6f 74 68 69 6e 67 20 69  . * If nothing i
8020: 73 20 63 75 72 72 65 6e 74 6c 79 20 65 78 65 63  s currently exec
8030: 75 74 69 6e 67 20 74 68 65 20 68 61 6e 64 6c 65  uting the handle
8040: 72 2c 20 64 65 6c 65 74 65 20 69 74 73 0a 2b 09  r, delete its.+.
8050: 20 2a 20 63 6c 69 65 6e 74 20 64 61 74 61 20 61   * client data a
8060: 6e 64 20 74 68 65 20 6f 76 65 72 61 6c 6c 20 68  nd the overall h
8070: 61 6e 64 6c 65 72 20 73 74 72 75 63 74 75 72 65  andler structure
8080: 20 6e 6f 77 2e 0a 2b 09 20 2a 20 4f 74 68 65 72   now..+. * Other
8090: 77 69 73 65 20 69 74 20 77 69 6c 6c 20 61 6c 6c  wise it will all
80a0: 20 67 6f 20 61 77 61 79 20 77 68 65 6e 20 74 68   go away when th
80b0: 65 20 68 61 6e 64 6c 65 72 20 72 65 74 75 72 6e  e handler return
80c0: 73 2e 0a 2b 09 20 2a 2f 0a 2b 0a 2b 09 69 66 20  s..+. */.+.+.if 
80d0: 28 21 28 68 61 6e 64 6c 65 72 50 74 72 2d 3e 66  (!(handlerPtr->f
80e0: 6c 61 67 73 20 26 20 4c 49 4d 49 54 5f 48 41 4e  lags & LIMIT_HAN
80f0: 44 4c 45 52 5f 41 43 54 49 56 45 29 29 20 7b 0a  DLER_ACTIVE)) {.
8100: 2b 09 20 20 20 20 69 66 20 28 68 61 6e 64 6c 65  +.    if (handle
8110: 72 50 74 72 2d 3e 64 65 6c 65 74 65 50 72 6f 63  rPtr->deleteProc
8120: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 09 28   != NULL) {.+..(
8130: 68 61 6e 64 6c 65 72 50 74 72 2d 3e 64 65 6c 65  handlerPtr->dele
8140: 74 65 50 72 6f 63 29 28 68 61 6e 64 6c 65 72 50  teProc)(handlerP
8150: 74 72 2d 3e 63 6c 69 65 6e 74 44 61 74 61 29 3b  tr->clientData);
8160: 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 63  .+.    }.+.    c
8170: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20 68  kfree((char *) h
8180: 61 6e 64 6c 65 72 50 74 72 29 3b 0a 2b 09 7d 0a  andlerPtr);.+.}.
8190: 2b 09 72 65 74 75 72 6e 3b 0a 2b 20 20 20 20 7d  +.return;.+    }
81a0: 0a 2b 7d 0a 2b 0c 0a 2b 69 6e 74 0a 2b 54 63 6c  .+}.+..+int.+Tcl
81b0: 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62 6c 65  _LimitTypeEnable
81c0: 64 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 0a  d(interp, type).
81d0: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
81e0: 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69 6e  *interp;.+    in
81f0: 74 20 74 79 70 65 3b 0a 2b 7b 0a 2b 20 20 20 20  t type;.+{.+    
8200: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28  Interp *iPtr = (
8210: 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70  Interp *) interp
8220: 3b 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e 20  ;.+.+    return 
8230: 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 61 63 74  (iPtr->limit.act
8240: 69 76 65 20 26 20 74 79 70 65 29 20 21 3d 20 30  ive & type) != 0
8250: 3b 0a 2b 7d 0a 2b 0a 2b 69 6e 74 0a 2b 54 63 6c  ;.+}.+.+int.+Tcl
8260: 5f 4c 69 6d 69 74 54 79 70 65 45 78 63 65 65 64  _LimitTypeExceed
8270: 65 64 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29  ed(interp, type)
8280: 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70  .+    Tcl_Interp
8290: 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69   *interp;.+    i
82a0: 6e 74 20 74 79 70 65 3b 0a 2b 7b 0a 2b 20 20 20  nt type;.+{.+   
82b0: 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20   Interp *iPtr = 
82c0: 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72  (Interp *) inter
82d0: 70 3b 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e  p;.+.+    return
82e0: 20 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 65 78   (iPtr->limit.ex
82f0: 63 65 65 64 65 64 20 26 20 74 79 70 65 29 20 21  ceeded & type) !
8300: 3d 20 30 3b 0a 2b 7d 0a 2b 0a 2b 76 6f 69 64 0a  = 0;.+}.+.+void.
8310: 2b 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 53 65  +Tcl_LimitTypeSe
8320: 74 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 0a  t(interp, type).
8330: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
8340: 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69 6e  *interp;.+    in
8350: 74 20 74 79 70 65 3b 0a 2b 7b 0a 2b 20 20 20 20  t type;.+{.+    
8360: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28  Interp *iPtr = (
8370: 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70  Interp *) interp
8380: 3b 0a 2b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 6c  ;.+.+    iPtr->l
8390: 69 6d 69 74 2e 61 63 74 69 76 65 20 7c 3d 20 74  imit.active |= t
83a0: 79 70 65 3b 0a 2b 7d 0a 2b 0a 2b 76 6f 69 64 0a  ype;.+}.+.+void.
83b0: 2b 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 52 65  +Tcl_LimitTypeRe
83c0: 73 65 74 28 69 6e 74 65 72 70 2c 20 74 79 70 65  set(interp, type
83d0: 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  ).+    Tcl_Inter
83e0: 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20  p *interp;.+    
83f0: 69 6e 74 20 74 79 70 65 3b 0a 2b 7b 0a 2b 20 20  int type;.+{.+  
8400: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d    Interp *iPtr =
8410: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65   (Interp *) inte
8420: 72 70 3b 0a 2b 0a 2b 20 20 20 20 69 50 74 72 2d  rp;.+.+    iPtr-
8430: 3e 6c 69 6d 69 74 2e 61 63 74 69 76 65 20 26 3d  >limit.active &=
8440: 20 7e 74 79 70 65 3b 0a 2b 7d 0a 2b 0c 0a 2b 76   ~type;.+}.+..+v
8450: 6f 69 64 0a 2b 54 63 6c 5f 4c 69 6d 69 74 53 65  oid.+Tcl_LimitSe
8460: 74 43 6f 6d 6d 61 6e 64 73 28 69 6e 74 65 72 70  tCommands(interp
8470: 2c 20 63 6f 6d 6d 61 6e 64 4c 69 6d 69 74 29 0a  , commandLimit).
8480: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
8490: 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69 6e  *interp;.+    in
84a0: 74 20 63 6f 6d 6d 61 6e 64 4c 69 6d 69 74 3b 0a  t commandLimit;.
84b0: 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a  +{.+    Interp *
84c0: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a  iPtr = (Interp *
84d0: 29 20 69 6e 74 65 72 70 3b 0a 2b 0a 2b 20 20 20  ) interp;.+.+   
84e0: 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 6d 64   iPtr->limit.cmd
84f0: 43 6f 75 6e 74 20 3d 20 63 6f 6d 6d 61 6e 64 4c  Count = commandL
8500: 69 6d 69 74 3b 0a 2b 20 20 20 20 69 50 74 72 2d  imit;.+    iPtr-
8510: 3e 6c 69 6d 69 74 2e 65 78 63 65 65 64 65 64 20  >limit.exceeded 
8520: 26 3d 20 7e 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f  &= ~TCL_LIMIT_CO
8530: 4d 4d 41 4e 44 53 3b 0a 2b 7d 0a 2b 0a 2b 69 6e  MMANDS;.+}.+.+in
8540: 74 0a 2b 54 63 6c 5f 4c 69 6d 69 74 47 65 74 43  t.+Tcl_LimitGetC
8550: 6f 6d 6d 61 6e 64 73 28 69 6e 74 65 72 70 29 0a  ommands(interp).
8560: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
8570: 2a 69 6e 74 65 72 70 3b 0a 2b 7b 0a 2b 20 20 20  *interp;.+{.+   
8580: 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20   Interp *iPtr = 
8590: 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72  (Interp *) inter
85a0: 70 3b 0a 2b 0a 2b 20 20 20 20 72 65 74 75 72 6e  p;.+.+    return
85b0: 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 6d 64   iPtr->limit.cmd
85c0: 43 6f 75 6e 74 3b 0a 2b 7d 0a 2b 0c 0a 2b 76 6f  Count;.+}.+..+vo
85d0: 69 64 0a 2b 54 63 6c 5f 4c 69 6d 69 74 53 65 74  id.+Tcl_LimitSet
85e0: 54 69 6d 65 28 69 6e 74 65 72 70 2c 20 74 69 6d  Time(interp, tim
85f0: 65 4c 69 6d 69 74 50 74 72 29 0a 2b 20 20 20 20  eLimitPtr).+    
8600: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
8610: 72 70 3b 0a 2b 20 20 20 20 54 63 6c 5f 54 69 6d  rp;.+    Tcl_Tim
8620: 65 20 2a 74 69 6d 65 4c 69 6d 69 74 50 74 72 3b  e *timeLimitPtr;
8630: 0a 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20  .+{.+    Interp 
8640: 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20  *iPtr = (Interp 
8650: 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 0a 2b 20 20  *) interp;.+.+  
8660: 20 20 6d 65 6d 63 70 79 28 26 69 50 74 72 2d 3e    memcpy(&iPtr->
8670: 6c 69 6d 69 74 2e 74 69 6d 65 2c 20 74 69 6d 65  limit.time, time
8680: 4c 69 6d 69 74 50 74 72 2c 20 73 69 7a 65 6f 66  LimitPtr, sizeof
8690: 28 54 63 6c 5f 54 69 6d 65 29 29 3b 0a 2b 20 20  (Tcl_Time));.+  
86a0: 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 65 78    iPtr->limit.ex
86b0: 63 65 65 64 65 64 20 26 3d 20 7e 54 43 4c 5f 4c  ceeded &= ~TCL_L
86c0: 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 3b 0a 2b  IMIT_COMMANDS;.+
86d0: 7d 0a 2b 0a 2b 76 6f 69 64 0a 2b 54 63 6c 5f 4c  }.+.+void.+Tcl_L
86e0: 69 6d 69 74 47 65 74 54 69 6d 65 28 69 6e 74 65  imitGetTime(inte
86f0: 72 70 2c 20 74 69 6d 65 4c 69 6d 69 74 50 74 72  rp, timeLimitPtr
8700: 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  ).+    Tcl_Inter
8710: 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20  p *interp;.+    
8720: 54 63 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 4c 69  Tcl_Time *timeLi
8730: 6d 69 74 50 74 72 3b 0a 2b 7b 0a 2b 20 20 20 20  mitPtr;.+{.+    
8740: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28  Interp *iPtr = (
8750: 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70  Interp *) interp
8760: 3b 0a 2b 0a 2b 20 20 20 20 6d 65 6d 63 70 79 28  ;.+.+    memcpy(
8770: 74 69 6d 65 4c 69 6d 69 74 50 74 72 2c 20 26 69  timeLimitPtr, &i
8780: 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2c  Ptr->limit.time,
8790: 20 73 69 7a 65 6f 66 28 54 63 6c 5f 54 69 6d 65   sizeof(Tcl_Time
87a0: 29 29 3b 0a 2b 7d 0a 2b 0c 0a 2b 76 6f 69 64 0a  ));.+}.+..+void.
87b0: 2b 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47 72 61  +Tcl_LimitSetGra
87c0: 6e 75 6c 61 72 69 74 79 28 69 6e 74 65 72 70 2c  nularity(interp,
87d0: 20 74 79 70 65 2c 20 67 72 61 6e 75 6c 61 72 69   type, granulari
87e0: 74 79 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74  ty).+    Tcl_Int
87f0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 20 20  erp *interp;.+  
8800: 20 20 69 6e 74 20 74 79 70 65 3b 0a 2b 20 20 20    int type;.+   
8810: 20 69 6e 74 20 67 72 61 6e 75 6c 61 72 69 74 79   int granularity
8820: 3b 0a 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70  ;.+{.+    Interp
8830: 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70   *iPtr = (Interp
8840: 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20   *) interp;.+   
8850: 20 69 66 20 28 67 72 61 6e 75 6c 61 72 69 74 79   if (granularity
8860: 20 3c 20 31 29 20 7b 0a 2b 09 54 63 6c 5f 50 61   < 1) {.+.Tcl_Pa
8870: 6e 69 63 28 22 6c 69 6d 69 74 20 67 72 61 6e 75  nic("limit granu
8880: 6c 61 72 69 74 79 20 6d 75 73 74 20 62 65 20 70  larity must be p
8890: 6f 73 69 74 69 76 65 22 29 3b 0a 2b 20 20 20 20  ositive");.+    
88a0: 7d 0a 2b 0a 2b 20 20 20 20 73 77 69 74 63 68 20  }.+.+    switch 
88b0: 28 74 79 70 65 29 20 7b 0a 2b 20 20 20 20 63 61  (type) {.+    ca
88c0: 73 65 20 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f 4d  se TCL_LIMIT_COM
88d0: 4d 41 4e 44 53 3a 0a 2b 09 69 50 74 72 2d 3e 6c  MANDS:.+.iPtr->l
88e0: 69 6d 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72  imit.cmdGranular
88f0: 69 74 79 20 3d 20 67 72 61 6e 75 6c 61 72 69 74  ity = granularit
8900: 79 3b 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b 20 20  y;.+.return;.+  
8910: 20 20 63 61 73 65 20 54 43 4c 5f 4c 49 4d 49 54    case TCL_LIMIT
8920: 5f 54 49 4d 45 3a 0a 2b 09 69 50 74 72 2d 3e 6c  _TIME:.+.iPtr->l
8930: 69 6d 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61  imit.timeGranula
8940: 72 69 74 79 20 3d 20 67 72 61 6e 75 6c 61 72 69  rity = granulari
8950: 74 79 3b 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b 20  ty;.+.return;.+ 
8960: 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 50 61     }.+    Tcl_Pa
8970: 6e 69 63 28 22 75 6e 6b 6e 6f 77 6e 20 74 79 70  nic("unknown typ
8980: 65 20 6f 66 20 72 65 73 6f 75 72 63 65 20 6c 69  e of resource li
8990: 6d 69 74 22 29 3b 0a 2b 7d 0a 2b 0a 2b 69 6e 74  mit");.+}.+.+int
89a0: 0a 2b 54 63 6c 5f 4c 69 6d 69 74 47 65 74 47 72  .+Tcl_LimitGetGr
89b0: 61 6e 75 6c 61 72 69 74 79 28 69 6e 74 65 72 70  anularity(interp
89c0: 2c 20 74 79 70 65 29 0a 2b 20 20 20 20 54 63 6c  , type).+    Tcl
89d0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b  _Interp *interp;
89e0: 0a 2b 20 20 20 20 69 6e 74 20 74 79 70 65 3b 0a  .+    int type;.
89f0: 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a  +{.+    Interp *
8a00: 69 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a  iPtr = (Interp *
8a10: 29 20 69 6e 74 65 72 70 3b 0a 2b 0a 2b 20 20 20  ) interp;.+.+   
8a20: 20 73 77 69 74 63 68 20 28 74 79 70 65 29 20 7b   switch (type) {
8a30: 0a 2b 20 20 20 20 63 61 73 65 20 54 43 4c 5f 4c  .+    case TCL_L
8a40: 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 3a 0a 2b  IMIT_COMMANDS:.+
8a50: 09 72 65 74 75 72 6e 20 69 50 74 72 2d 3e 6c 69  .return iPtr->li
8a60: 6d 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72 69  mit.cmdGranulari
8a70: 74 79 3b 0a 2b 20 20 20 20 63 61 73 65 20 54 43  ty;.+    case TC
8a80: 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 3a 0a 2b 09  L_LIMIT_TIME:.+.
8a90: 72 65 74 75 72 6e 20 69 50 74 72 2d 3e 6c 69 6d  return iPtr->lim
8aa0: 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 72 69  it.timeGranulari
8ab0: 74 79 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20  ty;.+    }.+    
8ac0: 54 63 6c 5f 50 61 6e 69 63 28 22 75 6e 6b 6e 6f  Tcl_Panic("unkno
8ad0: 77 6e 20 74 79 70 65 20 6f 66 20 72 65 73 6f 75  wn type of resou
8ae0: 72 63 65 20 6c 69 6d 69 74 22 29 3b 0a 2b 20 20  rce limit");.+  
8af0: 20 20 72 65 74 75 72 6e 20 2d 31 3b 20 2f 2a 20    return -1; /* 
8b00: 4e 4f 54 20 52 45 41 43 48 45 44 20 2a 2f 0a 2b  NOT REACHED */.+
8b10: 7d 20 20 20 20 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a  }    .+..+/*.+ *
8b20: 20 43 61 6c 6c 62 61 63 6b 20 66 6f 72 20 77 68   Callback for wh
8b30: 65 6e 20 61 20 73 63 72 69 70 74 20 6c 69 6d 69  en a script limi
8b40: 74 20 69 73 20 64 65 6c 65 74 65 64 2e 0a 2b 20  t is deleted..+ 
8b50: 2a 2f 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 0a  */.+static void.
8b60: 2b 44 65 6c 65 74 65 53 63 72 69 70 74 4c 69 6d  +DeleteScriptLim
8b70: 69 74 43 61 6c 6c 62 61 63 6b 28 63 6c 69 65 6e  itCallback(clien
8b80: 74 44 61 74 61 29 0a 2b 20 20 20 20 43 6c 69 65  tData).+    Clie
8b90: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
8ba0: 61 3b 0a 2b 7b 0a 2b 20 20 20 20 73 74 72 75 63  a;.+{.+    struc
8bb0: 74 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c  t ScriptLimitCal
8bc0: 6c 62 61 63 6b 20 2a 6c 69 6d 69 74 43 42 50 74  lback *limitCBPt
8bd0: 72 20 3d 0a 2b 09 20 20 20 20 28 73 74 72 75 63  r =.+.    (struc
8be0: 74 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c  t ScriptLimitCal
8bf0: 6c 62 61 63 6b 20 2a 29 20 63 6c 69 65 6e 74 44  lback *) clientD
8c00: 61 74 61 3b 0a 2b 0a 2b 20 20 20 20 54 63 6c 5f  ata;.+.+    Tcl_
8c10: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6c 69 6d  DecrRefCount(lim
8c20: 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70 74 4f  itCBPtr->scriptO
8c30: 62 6a 29 3b 0a 2b 20 20 20 20 63 6b 66 72 65 65  bj);.+    ckfree
8c40: 28 28 63 68 61 72 20 2a 29 20 6c 69 6d 69 74 43  ((char *) limitC
8c50: 42 50 74 72 29 3b 0a 2b 7d 0a 2b 0a 2b 2f 2a 0a  BPtr);.+}.+.+/*.
8c60: 2b 20 2a 20 43 61 6c 6c 62 61 63 6b 20 66 6f 72  + * Callback for
8c70: 20 77 68 65 6e 20 61 20 73 63 72 69 70 74 20 6c   when a script l
8c80: 69 6d 69 74 20 69 73 20 69 6e 76 6f 6b 65 64 2e  imit is invoked.
8c90: 0a 2b 20 2a 2f 0a 2b 73 74 61 74 69 63 20 76 6f  .+ */.+static vo
8ca0: 69 64 0a 2b 43 61 6c 6c 53 63 72 69 70 74 4c 69  id.+CallScriptLi
8cb0: 6d 69 74 43 61 6c 6c 62 61 63 6b 28 63 6c 69 65  mitCallback(clie
8cc0: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 29 0a  ntData, interp).
8cd0: 2b 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20  +    ClientData 
8ce0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 2b 20 20 20  clientData;.+   
8cf0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
8d00: 65 72 70 3b 09 09 2f 2a 20 49 6e 74 65 72 70 72  erp;../* Interpr
8d10: 65 74 65 72 20 77 68 69 63 68 20 66 61 69 6c 65  eter which faile
8d20: 64 20 74 68 65 20 6c 69 6d 69 74 20 2a 2f 0a 2b  d the limit */.+
8d30: 7b 0a 2b 20 20 20 20 73 74 72 75 63 74 20 53 63  {.+    struct Sc
8d40: 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63  riptLimitCallbac
8d50: 6b 20 2a 6c 69 6d 69 74 43 42 50 74 72 20 3d 0a  k *limitCBPtr =.
8d60: 2b 09 20 20 20 20 28 73 74 72 75 63 74 20 53 63  +.    (struct Sc
8d70: 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63  riptLimitCallbac
8d80: 6b 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b  k *) clientData;
8d90: 0a 2b 20 20 20 20 69 6e 74 20 63 6f 64 65 3b 0a  .+    int code;.
8da0: 2b 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49  +.+    if (Tcl_I
8db0: 6e 74 65 72 70 44 65 6c 65 74 65 64 28 6c 69 6d  nterpDeleted(lim
8dc0: 69 74 43 42 50 74 72 2d 3e 69 6e 74 65 72 70 29  itCBPtr->interp)
8dd0: 29 20 7b 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b 20  ) {.+.return;.+ 
8de0: 20 20 20 7d 0a 2b 20 20 20 20 54 63 6c 5f 50 72     }.+    Tcl_Pr
8df0: 65 73 65 72 76 65 28 6c 69 6d 69 74 43 42 50 74  eserve(limitCBPt
8e00: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 2b 20 20 20  r->interp);.+   
8e10: 20 63 6f 64 65 20 3d 20 54 63 6c 5f 45 76 61 6c   code = Tcl_Eval
8e20: 4f 62 6a 45 78 28 6c 69 6d 69 74 43 42 50 74 72  ObjEx(limitCBPtr
8e30: 2d 3e 69 6e 74 65 72 70 2c 20 6c 69 6d 69 74 43  ->interp, limitC
8e40: 42 50 74 72 2d 3e 73 63 72 69 70 74 4f 62 6a 2c  BPtr->scriptObj,
8e50: 0a 2b 09 20 20 20 20 54 43 4c 5f 45 56 41 4c 5f  .+.    TCL_EVAL_
8e60: 47 4c 4f 42 41 4c 29 3b 0a 2b 20 20 20 20 69 66  GLOBAL);.+    if
8e70: 20 28 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b   (code != TCL_OK
8e80: 20 26 26 20 21 54 63 6c 5f 49 6e 74 65 72 70 44   && !Tcl_InterpD
8e90: 65 6c 65 74 65 64 28 6c 69 6d 69 74 43 42 50 74  eleted(limitCBPt
8ea0: 72 2d 3e 69 6e 74 65 72 70 29 29 20 7b 0a 2b 09  r->interp)) {.+.
8eb0: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72  Tcl_BackgroundEr
8ec0: 72 6f 72 28 6c 69 6d 69 74 43 42 50 74 72 2d 3e  ror(limitCBPtr->
8ed0: 69 6e 74 65 72 70 29 3b 0a 2b 20 20 20 20 7d 0a  interp);.+    }.
8ee0: 2b 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65  +    Tcl_Release
8ef0: 28 6c 69 6d 69 74 43 42 50 74 72 2d 3e 69 6e 74  (limitCBPtr->int
8f00: 65 72 70 29 3b 0a 2b 7d 0a 2b 0a 2b 2f 2a 0a 2b  erp);.+}.+.+/*.+
8f10: 20 2a 20 49 6e 73 74 61 6c 6c 20 28 6f 72 20 72   * Install (or r
8f20: 65 6d 6f 76 65 2c 20 69 66 20 73 63 72 69 70 74  emove, if script
8f30: 4f 62 6a 20 69 73 20 4e 55 4c 4c 29 20 61 20 6c  Obj is NULL) a l
8f40: 69 6d 69 74 20 63 61 6c 6c 62 61 63 6b 20 73 63  imit callback sc
8f50: 72 69 70 74 0a 2b 20 2a 20 74 68 61 74 20 69 73  ript.+ * that is
8f60: 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65   called when the
8f70: 20 74 61 72 67 65 74 20 69 6e 74 65 72 70 72 65   target interpre
8f80: 74 65 72 20 65 78 63 65 65 64 73 20 74 68 65 20  ter exceeds the 
8f90: 74 79 70 65 20 6f 66 0a 2b 20 2a 20 6c 69 6d 69  type of.+ * limi
8fa0: 74 20 73 70 65 63 69 66 69 65 64 2e 0a 2b 20 2a  t specified..+ *
8fb0: 2f 0a 2b 73 74 61 74 69 63 20 76 6f 69 64 0a 2b  /.+static void.+
8fc0: 53 65 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b  SetLimitCallback
8fd0: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 74  (interp, type, t
8fe0: 61 72 67 65 74 49 6e 74 65 72 70 2c 20 73 63 72  argetInterp, scr
8ff0: 69 70 74 4f 62 6a 29 0a 2b 20 20 20 20 54 63 6c  iptObj).+    Tcl
9000: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b  _Interp *interp;
9010: 0a 2b 20 20 20 20 69 6e 74 20 74 79 70 65 3b 0a  .+    int type;.
9020: 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  +    Tcl_Interp 
9030: 2a 74 61 72 67 65 74 49 6e 74 65 72 70 3b 0a 2b  *targetInterp;.+
9040: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72      Tcl_Obj *scr
9050: 69 70 74 4f 62 6a 3b 0a 2b 7b 0a 2b 20 20 20 20  iptObj;.+{.+    
9060: 73 74 72 75 63 74 20 53 63 72 69 70 74 4c 69 6d  struct ScriptLim
9070: 69 74 43 61 6c 6c 62 61 63 6b 20 2a 6c 69 6d 69  itCallback *limi
9080: 74 43 42 50 74 72 3b 0a 2b 20 20 20 20 54 63 6c  tCBPtr;.+    Tcl
9090: 5f 48 61 73 68 45 6e 74 72 79 20 2a 68 61 73 68  _HashEntry *hash
90a0: 50 74 72 3b 0a 2b 20 20 20 20 69 6e 74 20 69 73  Ptr;.+    int is
90b0: 4e 65 77 3b 0a 2b 20 20 20 20 73 74 72 75 63 74  New;.+    struct
90c0: 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c   ScriptLimitCall
90d0: 62 61 63 6b 4b 65 79 20 6b 65 79 3b 0a 2b 20 20  backKey key;.+  
90e0: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d    Interp *iPtr =
90f0: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65   (Interp *) inte
9100: 72 70 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 69  rp;.+.+    if (i
9110: 6e 74 65 72 70 20 3d 3d 20 74 61 72 67 65 74 49  nterp == targetI
9120: 6e 74 65 72 70 29 20 7b 0a 2b 09 54 63 6c 5f 50  nterp) {.+.Tcl_P
9130: 61 6e 69 63 28 22 69 6e 73 74 61 6c 6c 69 6e 67  anic("installing
9140: 20 6c 69 6d 69 74 20 63 61 6c 6c 62 61 63 6b 20   limit callback 
9150: 74 6f 20 74 68 65 20 6c 69 6d 69 74 65 64 20 69  to the limited i
9160: 6e 74 65 72 70 72 65 74 65 72 22 29 3b 0a 2b 20  nterpreter");.+ 
9170: 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 6b 65 79 2e     }.+.+    key.
9180: 69 6e 74 65 72 70 20 3d 20 74 61 72 67 65 74 49  interp = targetI
9190: 6e 74 65 72 70 3b 0a 2b 20 20 20 20 6b 65 79 2e  nterp;.+    key.
91a0: 74 79 70 65 20 3d 20 74 79 70 65 3b 0a 2b 0a 2b  type = type;.+.+
91b0: 20 20 20 20 69 66 20 28 73 63 72 69 70 74 4f 62      if (scriptOb
91c0: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 68  j == NULL) {.+.h
91d0: 61 73 68 50 74 72 20 3d 20 54 63 6c 5f 46 69 6e  ashPtr = Tcl_Fin
91e0: 64 48 61 73 68 45 6e 74 72 79 28 26 69 50 74 72  dHashEntry(&iPtr
91f0: 2d 3e 6c 69 6d 69 74 2e 63 61 6c 6c 62 61 63 6b  ->limit.callback
9200: 73 2c 20 28 63 68 61 72 20 2a 29 20 26 6b 65 79  s, (char *) &key
9210: 29 3b 0a 2b 09 69 66 20 28 68 61 73 68 50 74 72  );.+.if (hashPtr
9220: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20   != NULL) {.+.  
9230: 20 20 54 63 6c 5f 4c 69 6d 69 74 52 65 6d 6f 76    Tcl_LimitRemov
9240: 65 48 61 6e 64 6c 65 72 28 74 61 72 67 65 74 49  eHandler(targetI
9250: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 43 61 6c  nterp, type, Cal
9260: 6c 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c  lScriptLimitCall
9270: 62 61 63 6b 2c 0a 2b 09 09 20 20 20 20 54 63 6c  back,.+..    Tcl
9280: 5f 47 65 74 48 61 73 68 56 61 6c 75 65 28 68 61  _GetHashValue(ha
9290: 73 68 50 74 72 29 29 3b 0a 2b 09 20 20 20 20 54  shPtr));.+.    T
92a0: 63 6c 5f 44 65 6c 65 74 65 48 61 73 68 45 6e 74  cl_DeleteHashEnt
92b0: 72 79 28 68 61 73 68 50 74 72 29 3b 0a 2b 09 7d  ry(hashPtr);.+.}
92c0: 0a 2b 09 72 65 74 75 72 6e 3b 0a 2b 20 20 20 20  .+.return;.+    
92d0: 7d 0a 2b 0a 2b 20 20 20 20 6c 69 6d 69 74 43 42  }.+.+    limitCB
92e0: 50 74 72 20 3d 20 28 73 74 72 75 63 74 20 53 63  Ptr = (struct Sc
92f0: 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63  riptLimitCallbac
9300: 6b 20 2a 29 0a 2b 09 20 20 20 20 63 6b 61 6c 6c  k *).+.    ckall
9310: 6f 63 28 73 69 7a 65 6f 66 28 73 74 72 75 63 74  oc(sizeof(struct
9320: 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c   ScriptLimitCall
9330: 62 61 63 6b 29 29 3b 0a 2b 20 20 20 20 6c 69 6d  back));.+    lim
9340: 69 74 43 42 50 74 72 2d 3e 69 6e 74 65 72 70 20  itCBPtr->interp 
9350: 3d 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 6c  = interp;.+    l
9360: 69 6d 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70  imitCBPtr->scrip
9370: 74 4f 62 6a 20 3d 20 73 63 72 69 70 74 4f 62 6a  tObj = scriptObj
9380: 3b 0a 2b 20 20 20 20 6c 69 6d 69 74 43 42 50 74  ;.+    limitCBPt
9390: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 0a  r->type = type;.
93a0: 2b 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  +    Tcl_IncrRef
93b0: 43 6f 75 6e 74 28 73 63 72 69 70 74 4f 62 6a 29  Count(scriptObj)
93c0: 3b 0a 2b 0a 2b 20 20 20 20 68 61 73 68 50 74 72  ;.+.+    hashPtr
93d0: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 48 61 73   = Tcl_CreateHas
93e0: 68 45 6e 74 72 79 28 26 69 50 74 72 2d 3e 6c 69  hEntry(&iPtr->li
93f0: 6d 69 74 2e 63 61 6c 6c 62 61 63 6b 73 2c 20 28  mit.callbacks, (
9400: 63 68 61 72 20 2a 29 20 26 6b 65 79 2c 0a 2b 09  char *) &key,.+.
9410: 20 20 20 20 26 69 73 4e 65 77 29 3b 0a 2b 20 20      &isNew);.+  
9420: 20 20 69 66 20 28 21 69 73 4e 65 77 29 20 7b 0a    if (!isNew) {.
9430: 2b 09 54 63 6c 5f 4c 69 6d 69 74 52 65 6d 6f 76  +.Tcl_LimitRemov
9440: 65 48 61 6e 64 6c 65 72 28 74 61 72 67 65 74 49  eHandler(targetI
9450: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 43 61 6c  nterp, type, Cal
9460: 6c 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c  lScriptLimitCall
9470: 62 61 63 6b 2c 0a 2b 09 09 54 63 6c 5f 47 65 74  back,.+..Tcl_Get
9480: 48 61 73 68 56 61 6c 75 65 28 68 61 73 68 50 74  HashValue(hashPt
9490: 72 29 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20  r));.+    }.+   
94a0: 20 54 63 6c 5f 4c 69 6d 69 74 41 64 64 48 61 6e   Tcl_LimitAddHan
94b0: 64 6c 65 72 28 74 61 72 67 65 74 49 6e 74 65 72  dler(targetInter
94c0: 70 2c 20 74 79 70 65 2c 20 43 61 6c 6c 53 63 72  p, type, CallScr
94d0: 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b  iptLimitCallback
94e0: 2c 0a 2b 09 20 20 20 20 28 43 6c 69 65 6e 74 44  ,.+.    (ClientD
94f0: 61 74 61 29 20 6c 69 6d 69 74 43 42 50 74 72 2c  ata) limitCBPtr,
9500: 20 44 65 6c 65 74 65 53 63 72 69 70 74 4c 69 6d   DeleteScriptLim
9510: 69 74 43 61 6c 6c 62 61 63 6b 29 3b 0a 2b 20 20  itCallback);.+  
9520: 20 20 54 63 6c 5f 53 65 74 48 61 73 68 56 61 6c    Tcl_SetHashVal
9530: 75 65 28 68 61 73 68 50 74 72 2c 20 28 43 6c 69  ue(hashPtr, (Cli
9540: 65 6e 74 44 61 74 61 29 20 6c 69 6d 69 74 43 42  entData) limitCB
9550: 50 74 72 29 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a  Ptr);.+}.+..+/*.
9560: 2b 20 2a 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6c  + * Remove all l
9570: 69 6d 69 74 20 63 61 6c 6c 62 61 63 6b 20 73 63  imit callback sc
9580: 72 69 70 74 73 20 74 68 61 74 20 6d 61 6b 65 20  ripts that make 
9590: 63 61 6c 6c 62 61 63 6b 73 20 69 6e 74 6f 20 74  callbacks into t
95a0: 68 65 0a 2b 20 2a 20 67 69 76 65 6e 20 69 6e 74  he.+ * given int
95b0: 65 72 70 72 65 74 65 72 2e 0a 2b 20 2a 2f 0a 2b  erpreter..+ */.+
95c0: 0a 2b 76 6f 69 64 0a 2b 54 63 6c 44 65 63 6f 6d  .+void.+TclDecom
95d0: 6d 69 73 73 69 6f 6e 4c 69 6d 69 74 43 61 6c 6c  missionLimitCall
95e0: 62 61 63 6b 73 28 69 6e 74 65 72 70 29 0a 2b 20  backs(interp).+ 
95f0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
9600: 6e 74 65 72 70 3b 0a 2b 7b 0a 2b 20 20 20 20 49  nterp;.+{.+    I
9610: 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 49  nterp *iPtr = (I
9620: 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 3b  nterp *) interp;
9630: 0a 2b 20 20 20 20 54 63 6c 5f 48 61 73 68 45 6e  .+    Tcl_HashEn
9640: 74 72 79 20 2a 68 61 73 68 50 74 72 3b 0a 2b 20  try *hashPtr;.+ 
9650: 20 20 20 54 63 6c 5f 48 61 73 68 53 65 61 72 63     Tcl_HashSearc
9660: 68 20 73 65 61 72 63 68 3b 0a 2b 20 20 20 20 73  h search;.+    s
9670: 74 72 75 63 74 20 53 63 72 69 70 74 4c 69 6d 69  truct ScriptLimi
9680: 74 43 61 6c 6c 62 61 63 6b 4b 65 79 20 2a 6b 65  tCallbackKey *ke
9690: 79 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 68 61 73  yPtr;.+.+    has
96a0: 68 50 74 72 20 3d 20 54 63 6c 5f 46 69 72 73 74  hPtr = Tcl_First
96b0: 48 61 73 68 45 6e 74 72 79 28 26 69 50 74 72 2d  HashEntry(&iPtr-
96c0: 3e 6c 69 6d 69 74 2e 63 61 6c 6c 62 61 63 6b 73  >limit.callbacks
96d0: 2c 20 26 73 65 61 72 63 68 29 3b 0a 2b 20 20 20  , &search);.+   
96e0: 20 77 68 69 6c 65 20 28 68 61 73 68 50 74 72 20   while (hashPtr 
96f0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 6b 65 79  != NULL) {.+.key
9700: 50 74 72 20 3d 20 28 73 74 72 75 63 74 20 53 63  Ptr = (struct Sc
9710: 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63  riptLimitCallbac
9720: 6b 4b 65 79 20 2a 29 0a 2b 09 09 54 63 6c 5f 47  kKey *).+..Tcl_G
9730: 65 74 48 61 73 68 4b 65 79 28 26 69 50 74 72 2d  etHashKey(&iPtr-
9740: 3e 6c 69 6d 69 74 2e 63 61 6c 6c 62 61 63 6b 73  >limit.callbacks
9750: 2c 20 68 61 73 68 50 74 72 29 3b 0a 2b 09 54 63  , hashPtr);.+.Tc
9760: 6c 5f 4c 69 6d 69 74 52 65 6d 6f 76 65 48 61 6e  l_LimitRemoveHan
9770: 64 6c 65 72 28 6b 65 79 50 74 72 2d 3e 69 6e 74  dler(keyPtr->int
9780: 65 72 70 2c 20 6b 65 79 50 74 72 2d 3e 74 79 70  erp, keyPtr->typ
9790: 65 2c 0a 2b 09 09 43 61 6c 6c 53 63 72 69 70 74  e,.+..CallScript
97a0: 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b 2c 20 54  LimitCallback, T
97b0: 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75 65 28  cl_GetHashValue(
97c0: 68 61 73 68 50 74 72 29 29 3b 0a 2b 09 68 61 73  hashPtr));.+.has
97d0: 68 50 74 72 20 3d 20 54 63 6c 5f 4e 65 78 74 48  hPtr = Tcl_NextH
97e0: 61 73 68 45 6e 74 72 79 28 26 73 65 61 72 63 68  ashEntry(&search
97f0: 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 54  );.+    }.+    T
9800: 63 6c 5f 44 65 6c 65 74 65 48 61 73 68 54 61 62  cl_DeleteHashTab
9810: 6c 65 28 26 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  le(&iPtr->limit.
9820: 63 61 6c 6c 62 61 63 6b 73 29 3b 0a 2b 7d 0a 2b  callbacks);.+}.+
9830: 0c 0a 2b 76 6f 69 64 0a 2b 54 63 6c 49 6e 69 74  ..+void.+TclInit
9840: 4c 69 6d 69 74 53 75 70 70 6f 72 74 28 69 6e 74  LimitSupport(int
9850: 65 72 70 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e  erp).+    Tcl_In
9860: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 2b 7b  terp *interp;.+{
9870: 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50  .+    Interp *iP
9880: 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 20  tr = (Interp *) 
9890: 69 6e 74 65 72 70 3b 0a 2b 0a 2b 20 20 20 20 69  interp;.+.+    i
98a0: 50 74 72 2d 3e 6c 69 6d 69 74 2e 61 63 74 69 76  Ptr->limit.activ
98b0: 65 20 3d 20 30 3b 0a 2b 20 20 20 20 69 50 74 72  e = 0;.+    iPtr
98c0: 2d 3e 6c 69 6d 69 74 2e 67 72 61 6e 75 6c 61 72  ->limit.granular
98d0: 69 74 79 54 69 63 6b 65 72 20 3d 20 30 3b 0a 2b  ityTicker = 0;.+
98e0: 20 20 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e      iPtr->limit.
98f0: 65 78 63 65 65 64 65 64 20 3d 20 30 3b 0a 2b 20  exceeded = 0;.+ 
9900: 20 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63     iPtr->limit.c
9910: 6d 64 43 6f 75 6e 74 20 3d 20 30 3b 0a 2b 20 20  mdCount = 0;.+  
9920: 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 6d    iPtr->limit.cm
9930: 64 48 61 6e 64 6c 65 72 73 20 3d 20 4e 55 4c 4c  dHandlers = NULL
9940: 3b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 6c 69 6d  ;.+    iPtr->lim
9950: 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72 69 74  it.cmdGranularit
9960: 79 20 3d 20 31 3b 0a 2b 20 20 20 20 6d 65 6d 73  y = 1;.+    mems
9970: 65 74 28 26 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  et(&iPtr->limit.
9980: 74 69 6d 65 2c 20 30 2c 20 73 69 7a 65 6f 66 28  time, 0, sizeof(
9990: 54 63 6c 5f 54 69 6d 65 29 29 3b 0a 2b 20 20 20  Tcl_Time));.+   
99a0: 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d   iPtr->limit.tim
99b0: 65 48 61 6e 64 6c 65 72 73 20 3d 20 4e 55 4c 4c  eHandlers = NULL
99c0: 3b 0a 2b 20 20 20 20 69 50 74 72 2d 3e 6c 69 6d  ;.+    iPtr->lim
99d0: 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 72 69  it.timeGranulari
99e0: 74 79 20 3d 20 31 30 3b 0a 2b 20 20 20 20 54 63  ty = 10;.+    Tc
99f0: 6c 5f 49 6e 69 74 48 61 73 68 54 61 62 6c 65 28  l_InitHashTable(
9a00: 26 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 61 6c  &iPtr->limit.cal
9a10: 6c 62 61 63 6b 73 2c 0a 2b 09 20 20 20 20 73 69  lbacks,.+.    si
9a20: 7a 65 6f 66 28 73 74 72 75 63 74 20 53 63 72 69  zeof(struct Scri
9a30: 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b 4b  ptLimitCallbackK
9a40: 65 79 29 2f 73 69 7a 65 6f 66 28 43 6c 69 65 6e  ey)/sizeof(Clien
9a50: 74 44 61 74 61 29 29 3b 0a 2b 7d 0a 2b 0c 0a 2b  tData));.+}.+..+
9a60: 73 74 61 74 69 63 20 76 6f 69 64 0a 2b 49 6e 68  static void.+Inh
9a70: 65 72 69 74 4c 69 6d 69 74 73 28 73 6c 61 76 65  eritLimits(slave
9a80: 49 6e 74 65 72 70 2c 20 6d 61 73 74 65 72 49 6e  Interp, masterIn
9a90: 74 65 72 70 29 0a 2b 20 20 20 20 54 63 6c 5f 49  terp).+    Tcl_I
9aa0: 6e 74 65 72 70 20 2a 73 6c 61 76 65 49 6e 74 65  nterp *slaveInte
9ab0: 72 70 2c 20 2a 6d 61 73 74 65 72 49 6e 74 65 72  rp, *masterInter
9ac0: 70 3b 0a 2b 7b 0a 2b 20 20 20 20 49 6e 74 65 72  p;.+{.+    Inter
9ad0: 70 20 2a 73 6c 61 76 65 50 74 72 20 3d 20 28 49  p *slavePtr = (I
9ae0: 6e 74 65 72 70 20 2a 29 20 73 6c 61 76 65 49 6e  nterp *) slaveIn
9af0: 74 65 72 70 3b 0a 2b 20 20 20 20 49 6e 74 65 72  terp;.+    Inter
9b00: 70 20 2a 6d 61 73 74 65 72 50 74 72 20 3d 20 28  p *masterPtr = (
9b10: 49 6e 74 65 72 70 20 2a 29 20 6d 61 73 74 65 72  Interp *) master
9b20: 49 6e 74 65 72 70 3b 0a 2b 0a 2b 20 20 20 20 69  Interp;.+.+    i
9b30: 66 20 28 6d 61 73 74 65 72 50 74 72 2d 3e 6c 69  f (masterPtr->li
9b40: 6d 69 74 2e 61 63 74 69 76 65 20 26 20 54 43 4c  mit.active & TCL
9b50: 5f 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 29  _LIMIT_COMMANDS)
9b60: 20 7b 0a 2b 09 73 6c 61 76 65 50 74 72 2d 3e 6c   {.+.slavePtr->l
9b70: 69 6d 69 74 2e 61 63 74 69 76 65 20 7c 3d 20 54  imit.active |= T
9b80: 43 4c 5f 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44  CL_LIMIT_COMMAND
9b90: 53 3b 0a 2b 09 73 6c 61 76 65 50 74 72 2d 3e 6c  S;.+.slavePtr->l
9ba0: 69 6d 69 74 2e 63 6d 64 43 6f 75 6e 74 20 3d 20  imit.cmdCount = 
9bb0: 30 3b 0a 2b 09 73 6c 61 76 65 50 74 72 2d 3e 6c  0;.+.slavePtr->l
9bc0: 69 6d 69 74 2e 63 6d 64 47 72 61 6e 75 6c 61 72  imit.cmdGranular
9bd0: 69 74 79 20 3d 20 6d 61 73 74 65 72 50 74 72 2d  ity = masterPtr-
9be0: 3e 6c 69 6d 69 74 2e 63 6d 64 47 72 61 6e 75 6c  >limit.cmdGranul
9bf0: 61 72 69 74 79 3b 0a 2b 20 20 20 20 7d 0a 2b 20  arity;.+    }.+ 
9c00: 20 20 20 69 66 20 28 6d 61 73 74 65 72 50 74 72     if (masterPtr
9c10: 2d 3e 6c 69 6d 69 74 2e 61 63 74 69 76 65 20 26  ->limit.active &
9c20: 20 54 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29   TCL_LIMIT_TIME)
9c30: 20 7b 0a 2b 09 73 6c 61 76 65 50 74 72 2d 3e 6c   {.+.slavePtr->l
9c40: 69 6d 69 74 2e 61 63 74 69 76 65 20 7c 3d 20 54  imit.active |= T
9c50: 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 3b 0a 2b  CL_LIMIT_TIME;.+
9c60: 09 6d 65 6d 63 70 79 28 26 73 6c 61 76 65 50 74  .memcpy(&slavePt
9c70: 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2c 20 26  r->limit.time, &
9c80: 6d 61 73 74 65 72 50 74 72 2d 3e 6c 69 6d 69 74  masterPtr->limit
9c90: 2e 74 69 6d 65 2c 0a 2b 09 09 73 69 7a 65 6f 66  .time,.+..sizeof
9ca0: 28 54 63 6c 5f 54 69 6d 65 29 29 3b 0a 2b 09 73  (Tcl_Time));.+.s
9cb0: 6c 61 76 65 50 74 72 2d 3e 6c 69 6d 69 74 2e 74  lavePtr->limit.t
9cc0: 69 6d 65 47 72 61 6e 75 6c 61 72 69 74 79 20 3d  imeGranularity =
9cd0: 20 6d 61 73 74 65 72 50 74 72 2d 3e 6c 69 6d 69   masterPtr->limi
9ce0: 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 72 69 74  t.timeGranularit
9cf0: 79 3b 0a 2b 20 20 20 20 7d 0a 2b 7d 0a 2b 0c 0a  y;.+    }.+}.+..
9d00: 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 53 6c 61  +static int.+Sla
9d10: 76 65 43 6f 6d 6d 61 6e 64 4c 69 6d 69 74 28 69  veCommandLimit(i
9d20: 6e 74 65 72 70 2c 20 73 6c 61 76 65 49 6e 74 65  nterp, slaveInte
9d30: 72 70 2c 20 63 6f 6e 73 75 6d 65 64 4f 62 6a 63  rp, consumedObjc
9d40: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 2b 20  , objc, objv).+ 
9d50: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
9d60: 6e 74 65 72 70 3b 09 09 09 2f 2a 20 43 75 72 72  nterp;.../* Curr
9d70: 65 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e  ent interpreter.
9d80: 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74   */.+    Tcl_Int
9d90: 65 72 70 20 2a 73 6c 61 76 65 49 6e 74 65 72 70  erp *slaveInterp
9da0: 3b 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65  ;../* Interprete
9db0: 72 20 62 65 69 6e 67 20 61 64 6a 75 73 74 65 64  r being adjusted
9dc0: 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 63 6f  . */.+    int co
9dd0: 6e 73 75 6d 65 64 4f 62 6a 63 3b 09 09 09 2f 2a  nsumedObjc;.../*
9de0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 73 20   Number of args 
9df0: 61 6c 72 65 61 64 79 20 70 61 72 73 65 64 2e 20  already parsed. 
9e00: 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63  */.+    int objc
9e10: 3b 09 09 09 09 2f 2a 20 54 6f 74 61 6c 20 6e 75  ;..../* Total nu
9e20: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
9e30: 73 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f  s. */.+    Tcl_O
9e40: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
9e50: 3b 09 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 6f  ;../* Argument o
9e60: 62 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20  bjects. */.+{.+ 
9e70: 20 20 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20     static CONST 
9e80: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 73 5b 5d 20  char *options[] 
9e90: 3d 20 7b 0a 2b 09 22 2d 63 6f 6d 6d 61 6e 64 22  = {.+."-command"
9ea0: 2c 20 22 2d 67 72 61 6e 75 6c 61 72 69 74 79 22  , "-granularity"
9eb0: 2c 20 22 2d 76 61 6c 75 65 22 2c 20 4e 55 4c 4c  , "-value", NULL
9ec0: 0a 2b 20 20 20 20 7d 3b 0a 2b 20 20 20 20 65 6e  .+    };.+    en
9ed0: 75 6d 20 4f 70 74 69 6f 6e 73 20 7b 0a 2b 09 4f  um Options {.+.O
9ee0: 50 54 5f 43 4d 44 2c 20 4f 50 54 5f 47 52 41 4e  PT_CMD, OPT_GRAN
9ef0: 2c 20 4f 50 54 5f 56 41 4c 0a 2b 20 20 20 20 7d  , OPT_VAL.+    }
9f00: 3b 0a 2b 20 20 20 20 49 6e 74 65 72 70 20 2a 69  ;.+    Interp *i
9f10: 50 74 72 20 3d 20 28 49 6e 74 65 72 70 20 2a 29  Ptr = (Interp *)
9f20: 20 69 6e 74 65 72 70 3b 0a 2b 20 20 20 20 69 6e   interp;.+    in
9f30: 74 20 69 6e 64 65 78 3b 0a 2b 20 20 20 20 73 74  t index;.+    st
9f40: 72 75 63 74 20 53 63 72 69 70 74 4c 69 6d 69 74  ruct ScriptLimit
9f50: 43 61 6c 6c 62 61 63 6b 4b 65 79 20 6b 65 79 3b  CallbackKey key;
9f60: 0a 2b 20 20 20 20 73 74 72 75 63 74 20 53 63 72  .+    struct Scr
9f70: 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b  iptLimitCallback
9f80: 20 2a 6c 69 6d 69 74 43 42 50 74 72 3b 0a 2b 20   *limitCBPtr;.+ 
9f90: 20 20 20 54 63 6c 5f 48 61 73 68 45 6e 74 72 79     Tcl_HashEntry
9fa0: 20 2a 68 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 69   *hPtr;.+.+    i
9fb0: 66 20 28 6f 62 6a 63 20 3d 3d 20 63 6f 6e 73 75  f (objc == consu
9fc0: 6d 65 64 4f 62 6a 63 29 20 7b 0a 2b 09 54 63 6c  medObjc) {.+.Tcl
9fd0: 5f 4f 62 6a 20 2a 64 69 63 74 50 74 72 3b 0a 2b  _Obj *dictPtr;.+
9fe0: 0a 2b 09 54 63 6c 4e 65 77 4f 62 6a 28 64 69 63  .+.TclNewObj(dic
9ff0: 74 50 74 72 29 3b 0a 2b 09 6b 65 79 2e 69 6e 74  tPtr);.+.key.int
a000: 65 72 70 20 3d 20 73 6c 61 76 65 49 6e 74 65 72  erp = slaveInter
a010: 70 3b 0a 2b 09 6b 65 79 2e 74 79 70 65 20 3d 20  p;.+.key.type = 
a020: 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e  TCL_LIMIT_COMMAN
a030: 44 53 3b 0a 2b 09 68 50 74 72 20 3d 20 54 63 6c  DS;.+.hPtr = Tcl
a040: 5f 46 69 6e 64 48 61 73 68 45 6e 74 72 79 28 26  _FindHashEntry(&
a050: 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 63 61 6c 6c  iPtr->limit.call
a060: 62 61 63 6b 73 2c 20 28 63 68 61 72 20 2a 29 20  backs, (char *) 
a070: 26 6b 65 79 29 3b 0a 2b 09 69 66 20 28 68 50 74  &key);.+.if (hPt
a080: 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20  r != NULL) {.+. 
a090: 20 20 20 6c 69 6d 69 74 43 42 50 74 72 20 3d 20     limitCBPtr = 
a0a0: 28 73 74 72 75 63 74 20 53 63 72 69 70 74 4c 69  (struct ScriptLi
a0b0: 6d 69 74 43 61 6c 6c 62 61 63 6b 20 2a 29 0a 2b  mitCallback *).+
a0c0: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 48 61 73  ..    Tcl_GetHas
a0d0: 68 56 61 6c 75 65 28 68 50 74 72 29 3b 0a 2b 09  hValue(hPtr);.+.
a0e0: 20 20 20 20 69 66 20 28 6c 69 6d 69 74 43 42 50      if (limitCBP
a0f0: 74 72 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 69  tr != NULL && li
a100: 6d 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70 74  mitCBPtr->script
a110: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b  Obj != NULL) {.+
a120: 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74  ..Tcl_DictObjPut
a130: 28 4e 55 4c 4c 2c 20 64 69 63 74 50 74 72 2c 20  (NULL, dictPtr, 
a140: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
a150: 28 6f 70 74 69 6f 6e 73 5b 30 5d 2c 20 2d 31 29  (options[0], -1)
a160: 2c 0a 2b 09 09 09 6c 69 6d 69 74 43 42 50 74 72  ,.+...limitCBPtr
a170: 2d 3e 73 63 72 69 70 74 4f 62 6a 29 3b 0a 2b 09  ->scriptObj);.+.
a180: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 09      } else {.+..
a190: 67 6f 74 6f 20 70 75 74 45 6d 70 74 79 43 6f 6d  goto putEmptyCom
a1a0: 6d 61 6e 64 49 6e 44 69 63 74 3b 0a 2b 09 20 20  mandInDict;.+.  
a1b0: 20 20 7d 0a 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b    }.+.} else {.+
a1c0: 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 6d  .    Tcl_Obj *em
a1d0: 70 74 79 3b 0a 2b 09 70 75 74 45 6d 70 74 79 43  pty;.+.putEmptyC
a1e0: 6f 6d 6d 61 6e 64 49 6e 44 69 63 74 3a 0a 2b 09  ommandInDict:.+.
a1f0: 20 20 20 20 54 63 6c 4e 65 77 4f 62 6a 28 65 6d      TclNewObj(em
a200: 70 74 79 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f  pty);.+.    Tcl_
a210: 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c  DictObjPut(NULL,
a220: 20 64 69 63 74 50 74 72 2c 0a 2b 09 09 20 20 20   dictPtr,.+..   
a230: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
a240: 6a 28 6f 70 74 69 6f 6e 73 5b 30 5d 2c 20 2d 31  j(options[0], -1
a250: 29 2c 20 65 6d 70 74 79 29 3b 0a 2b 09 7d 0a 2b  ), empty);.+.}.+
a260: 09 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28  .Tcl_DictObjPut(
a270: 4e 55 4c 4c 2c 20 64 69 63 74 50 74 72 2c 20 54  NULL, dictPtr, T
a280: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
a290: 6f 70 74 69 6f 6e 73 5b 31 5d 2c 20 2d 31 29 2c  options[1], -1),
a2a0: 0a 2b 09 09 54 63 6c 5f 4e 65 77 49 6e 74 4f 62  .+..Tcl_NewIntOb
a2b0: 6a 28 54 63 6c 5f 4c 69 6d 69 74 47 65 74 47 72  j(Tcl_LimitGetGr
a2c0: 61 6e 75 6c 61 72 69 74 79 28 73 6c 61 76 65 49  anularity(slaveI
a2d0: 6e 74 65 72 70 2c 0a 2b 09 09 54 43 4c 5f 4c 49  nterp,.+..TCL_LI
a2e0: 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 29 29 29 3b  MIT_COMMANDS)));
a2f0: 0a 2b 0a 2b 09 69 66 20 28 54 63 6c 5f 4c 69 6d  .+.+.if (Tcl_Lim
a300: 69 74 54 79 70 65 45 6e 61 62 6c 65 64 28 73 6c  itTypeEnabled(sl
a310: 61 76 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f 4c  aveInterp, TCL_L
a320: 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 29 29 20  IMIT_COMMANDS)) 
a330: 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 69 63 74  {.+.    Tcl_Dict
a340: 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 64 69 63  ObjPut(NULL, dic
a350: 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72  tPtr, Tcl_NewStr
a360: 69 6e 67 4f 62 6a 28 6f 70 74 69 6f 6e 73 5b 32  ingObj(options[2
a370: 5d 2c 20 2d 31 29 2c 0a 2b 09 09 20 20 20 20 54  ], -1),.+..    T
a380: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 54 63 6c  cl_NewIntObj(Tcl
a390: 5f 4c 69 6d 69 74 47 65 74 43 6f 6d 6d 61 6e 64  _LimitGetCommand
a3a0: 73 28 73 6c 61 76 65 49 6e 74 65 72 70 29 29 29  s(slaveInterp)))
a3b0: 3b 0a 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b 09 20  ;.+.} else {.+. 
a3c0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 65 6d 70 74     Tcl_Obj *empt
a3d0: 79 3b 0a 2b 0a 2b 09 20 20 20 20 54 63 6c 4e 65  y;.+.+.    TclNe
a3e0: 77 4f 62 6a 28 65 6d 70 74 79 29 3b 0a 2b 09 20  wObj(empty);.+. 
a3f0: 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a 50 75     Tcl_DictObjPu
a400: 74 28 4e 55 4c 4c 2c 20 64 69 63 74 50 74 72 2c  t(NULL, dictPtr,
a410: 0a 2b 09 09 20 20 20 20 54 63 6c 5f 4e 65 77 53  .+..    Tcl_NewS
a420: 74 72 69 6e 67 4f 62 6a 28 6f 70 74 69 6f 6e 73  tringObj(options
a430: 5b 32 5d 2c 20 2d 31 29 2c 20 65 6d 70 74 79 29  [2], -1), empty)
a440: 3b 0a 2b 09 7d 0a 2b 09 54 63 6c 5f 53 65 74 4f  ;.+.}.+.Tcl_SetO
a450: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
a460: 20 64 69 63 74 50 74 72 29 3b 0a 2b 09 72 65 74   dictPtr);.+.ret
a470: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 2b 20 20 20  urn TCL_OK;.+   
a480: 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63   } else if (objc
a490: 20 3d 3d 20 63 6f 6e 73 75 6d 65 64 4f 62 6a 63   == consumedObjc
a4a0: 2b 31 29 20 7b 0a 2b 09 69 66 20 28 54 63 6c 5f  +1) {.+.if (Tcl_
a4b0: 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28  GetIndexFromObj(
a4c0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 63 6f 6e  interp, objv[con
a4d0: 73 75 6d 65 64 4f 62 6a 63 5d 2c 20 6f 70 74 69  sumedObjc], opti
a4e0: 6f 6e 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 0a 2b  ons, "option",.+
a4f0: 09 09 30 2c 20 26 69 6e 64 65 78 29 20 21 3d 20  ..0, &index) != 
a500: 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 20 20 20 20  TCL_OK) {.+.    
a510: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a520: 3b 0a 2b 09 7d 0a 2b 09 73 77 69 74 63 68 20 28  ;.+.}.+.switch (
a530: 28 65 6e 75 6d 20 4f 70 74 69 6f 6e 73 29 20 69  (enum Options) i
a540: 6e 64 65 78 29 20 7b 0a 2b 09 63 61 73 65 20 4f  ndex) {.+.case O
a550: 50 54 5f 43 4d 44 3a 0a 2b 09 20 20 20 20 6b 65  PT_CMD:.+.    ke
a560: 79 2e 69 6e 74 65 72 70 20 3d 20 73 6c 61 76 65  y.interp = slave
a570: 49 6e 74 65 72 70 3b 0a 2b 09 20 20 20 20 6b 65  Interp;.+.    ke
a580: 79 2e 74 79 70 65 20 3d 20 54 43 4c 5f 4c 49 4d  y.type = TCL_LIM
a590: 49 54 5f 43 4f 4d 4d 41 4e 44 53 3b 0a 2b 09 20  IT_COMMANDS;.+. 
a5a0: 20 20 20 68 50 74 72 20 3d 20 54 63 6c 5f 46 69     hPtr = Tcl_Fi
a5b0: 6e 64 48 61 73 68 45 6e 74 72 79 28 26 69 50 74  ndHashEntry(&iPt
a5c0: 72 2d 3e 6c 69 6d 69 74 2e 63 61 6c 6c 62 61 63  r->limit.callbac
a5d0: 6b 73 2c 20 28 63 68 61 72 20 2a 29 20 26 6b 65  ks, (char *) &ke
a5e0: 79 29 3b 0a 2b 09 20 20 20 20 69 66 20 28 68 50  y);.+.    if (hP
a5f0: 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09  tr != NULL) {.+.
a600: 09 6c 69 6d 69 74 43 42 50 74 72 20 3d 20 28 73  .limitCBPtr = (s
a610: 74 72 75 63 74 20 53 63 72 69 70 74 4c 69 6d 69  truct ScriptLimi
a620: 74 43 61 6c 6c 62 61 63 6b 20 2a 29 0a 2b 09 09  tCallback *).+..
a630: 09 54 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75  .Tcl_GetHashValu
a640: 65 28 68 50 74 72 29 3b 0a 2b 09 09 69 66 20 28  e(hPtr);.+..if (
a650: 6c 69 6d 69 74 43 42 50 74 72 20 21 3d 20 4e 55  limitCBPtr != NU
a660: 4c 4c 20 26 26 20 6c 69 6d 69 74 43 42 50 74 72  LL && limitCBPtr
a670: 2d 3e 73 63 72 69 70 74 4f 62 6a 20 21 3d 20 4e  ->scriptObj != N
a680: 55 4c 4c 29 20 7b 0a 2b 09 09 20 20 20 20 54 63  ULL) {.+..    Tc
a690: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
a6a0: 6e 74 65 72 70 2c 20 6c 69 6d 69 74 43 42 50 74  nterp, limitCBPt
a6b0: 72 2d 3e 73 63 72 69 70 74 4f 62 6a 29 3b 0a 2b  r->scriptObj);.+
a6c0: 09 09 7d 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20  ..}.+.    }.+.  
a6d0: 20 20 62 72 65 61 6b 3b 0a 2b 09 63 61 73 65 20    break;.+.case 
a6e0: 4f 50 54 5f 47 52 41 4e 3a 0a 2b 09 20 20 20 20  OPT_GRAN:.+.    
a6f0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
a700: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77  (interp, Tcl_New
a710: 49 6e 74 4f 62 6a 28 0a 2b 09 09 20 20 20 20 54  IntObj(.+..    T
a720: 63 6c 5f 4c 69 6d 69 74 47 65 74 47 72 61 6e 75  cl_LimitGetGranu
a730: 6c 61 72 69 74 79 28 73 6c 61 76 65 49 6e 74 65  larity(slaveInte
a740: 72 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f  rp, TCL_LIMIT_CO
a750: 4d 4d 41 4e 44 53 29 29 29 3b 0a 2b 09 20 20 20  MMANDS)));.+.   
a760: 20 62 72 65 61 6b 3b 0a 2b 09 63 61 73 65 20 4f   break;.+.case O
a770: 50 54 5f 56 41 4c 3a 0a 2b 09 20 20 20 20 69 66  PT_VAL:.+.    if
a780: 20 28 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 45   (Tcl_LimitTypeE
a790: 6e 61 62 6c 65 64 28 73 6c 61 76 65 49 6e 74 65  nabled(slaveInte
a7a0: 72 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f  rp, TCL_LIMIT_CO
a7b0: 4d 4d 41 4e 44 53 29 29 20 7b 0a 2b 09 09 54 63  MMANDS)) {.+..Tc
a7c0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
a7d0: 6e 74 65 72 70 2c 0a 2b 09 09 09 54 63 6c 5f 4e  nterp,.+...Tcl_N
a7e0: 65 77 49 6e 74 4f 62 6a 28 54 63 6c 5f 4c 69 6d  ewIntObj(Tcl_Lim
a7f0: 69 74 47 65 74 43 6f 6d 6d 61 6e 64 73 28 73 6c  itGetCommands(sl
a800: 61 76 65 49 6e 74 65 72 70 29 29 29 3b 0a 2b 09  aveInterp)));.+.
a810: 20 20 20 20 7d 0a 2b 09 20 20 20 20 62 72 65 61      }.+.    brea
a820: 6b 3b 0a 2b 09 7d 0a 2b 09 72 65 74 75 72 6e 20  k;.+.}.+.return 
a830: 54 43 4c 5f 4f 4b 3b 0a 2b 20 20 20 20 7d 20 65  TCL_OK;.+    } e
a840: 6c 73 65 20 69 66 20 28 28 6f 62 6a 63 2d 63 6f  lse if ((objc-co
a850: 6e 73 75 6d 65 64 4f 62 6a 63 29 20 26 20 31 20  nsumedObjc) & 1 
a860: 2f 2a 20 69 73 4f 64 64 28 6f 62 6a 63 2d 63 6f  /* isOdd(objc-co
a870: 6e 73 75 6d 65 64 4f 62 6a 63 29 20 2a 2f 29 20  nsumedObjc) */) 
a880: 7b 0a 2b 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d  {.+.Tcl_WrongNum
a890: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 63 6f 6e  Args(interp, con
a8a0: 73 75 6d 65 64 4f 62 6a 63 2c 20 6f 62 6a 76 2c  sumedObjc, objv,
a8b0: 0a 2b 09 09 22 3f 2d 6f 70 74 69 6f 6e 3f 20 3f  .+.."?-option? ?
a8c0: 76 61 6c 75 65 3f 20 3f 2d 6f 70 74 69 6f 6e 20  value? ?-option 
a8d0: 76 61 6c 75 65 20 2e 2e 2e 3f 22 29 3b 0a 2b 09  value ...?");.+.
a8e0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a8f0: 3b 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  ;.+    } else {.
a900: 2b 09 69 6e 74 20 69 2c 20 73 63 72 69 70 74 4c  +.int i, scriptL
a910: 65 6e 20 3d 20 30 2c 20 6c 69 6d 69 74 4c 65 6e  en = 0, limitLen
a920: 20 3d 20 30 3b 0a 2b 09 54 63 6c 5f 4f 62 6a 20   = 0;.+.Tcl_Obj 
a930: 2a 73 63 72 69 70 74 4f 62 6a 20 3d 20 4e 55 4c  *scriptObj = NUL
a940: 4c 2c 20 2a 67 72 61 6e 4f 62 6a 20 3d 20 4e 55  L, *granObj = NU
a950: 4c 4c 2c 20 2a 6c 69 6d 69 74 4f 62 6a 20 3d 20  LL, *limitObj = 
a960: 4e 55 4c 4c 3b 0a 2b 09 69 6e 74 20 67 72 61 6e  NULL;.+.int gran
a970: 20 3d 20 30 2c 20 6c 69 6d 69 74 20 3d 20 30 3b   = 0, limit = 0;
a980: 0a 2b 0a 2b 09 66 6f 72 20 28 69 3d 63 6f 6e 73  .+.+.for (i=cons
a990: 75 6d 65 64 4f 62 6a 63 20 3b 20 69 3c 6f 62 6a  umedObjc ; i<obj
a9a0: 63 20 3b 20 69 2b 3d 32 29 20 7b 0a 2b 09 20 20  c ; i+=2) {.+.  
a9b0: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64    if (Tcl_GetInd
a9c0: 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  exFromObj(interp
a9d0: 2c 20 6f 62 6a 76 5b 69 5d 2c 20 6f 70 74 69 6f  , objv[i], optio
a9e0: 6e 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c  ns, "option", 0,
a9f0: 0a 2b 09 09 20 20 20 20 26 69 6e 64 65 78 29 20  .+..    &index) 
aa00: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09  != TCL_OK) {.+..
aa10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
aa20: 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 20  ;.+.    }.+.    
aa30: 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 4f 70  switch ((enum Op
aa40: 74 69 6f 6e 73 29 20 69 6e 64 65 78 29 20 7b 0a  tions) index) {.
aa50: 2b 09 20 20 20 20 63 61 73 65 20 4f 50 54 5f 43  +.    case OPT_C
aa60: 4d 44 3a 0a 2b 09 09 73 63 72 69 70 74 4f 62 6a  MD:.+..scriptObj
aa70: 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b 0a 2b 09   = objv[i+1];.+.
aa80: 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 53  .(void) Tcl_GetS
aa90: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
aaa0: 76 5b 69 2b 31 5d 2c 20 26 73 63 72 69 70 74 4c  v[i+1], &scriptL
aab0: 65 6e 29 3b 0a 2b 09 09 62 72 65 61 6b 3b 0a 2b  en);.+..break;.+
aac0: 09 20 20 20 20 63 61 73 65 20 4f 50 54 5f 47 52  .    case OPT_GR
aad0: 41 4e 3a 0a 2b 09 09 67 72 61 6e 4f 62 6a 20 3d  AN:.+..granObj =
aae0: 20 6f 62 6a 76 5b 69 2b 31 5d 3b 0a 2b 09 09 69   objv[i+1];.+..i
aaf0: 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f (Tcl_GetIntFro
ab00: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
ab10: 76 5b 69 2b 31 5d 2c 20 26 67 72 61 6e 29 20 21  v[i+1], &gran) !
ab20: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09 20  = TCL_OK) {.+.. 
ab30: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
ab40: 52 4f 52 3b 0a 2b 09 09 7d 0a 2b 09 09 69 66 20  ROR;.+..}.+..if 
ab50: 28 67 72 61 6e 20 3c 20 31 29 20 7b 0a 2b 09 09  (gran < 1) {.+..
ab60: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
ab70: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 67 72  sult(interp, "gr
ab80: 61 6e 75 6c 61 72 69 74 79 20 6d 75 73 74 20 62  anularity must b
ab90: 65 20 61 74 20 22 2c 0a 2b 09 09 09 20 20 20 20  e at ",.+...    
aba0: 22 6c 65 61 73 74 20 31 22 2c 20 4e 55 4c 4c 29  "least 1", NULL)
abb0: 3b 0a 2b 09 09 20 20 20 20 72 65 74 75 72 6e 20  ;.+..    return 
abc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 09 7d 0a  TCL_ERROR;.+..}.
abd0: 2b 09 09 62 72 65 61 6b 3b 0a 2b 09 20 20 20 20  +..break;.+.    
abe0: 63 61 73 65 20 4f 50 54 5f 56 41 4c 3a 0a 2b 09  case OPT_VAL:.+.
abf0: 09 6c 69 6d 69 74 4f 62 6a 20 3d 20 6f 62 6a 76  .limitObj = objv
ac00: 5b 69 2b 31 5d 3b 0a 2b 09 09 28 76 6f 69 64 29  [i+1];.+..(void)
ac10: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
ac20: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 2b 31 5d 2c  omObj(objv[i+1],
ac30: 20 26 6c 69 6d 69 74 4c 65 6e 29 3b 0a 2b 09 09   &limitLen);.+..
ac40: 69 66 20 28 6c 69 6d 69 74 4c 65 6e 20 3d 3d 20  if (limitLen == 
ac50: 30 29 20 7b 0a 2b 09 09 20 20 20 20 62 72 65 61  0) {.+..    brea
ac60: 6b 3b 0a 2b 09 09 7d 0a 2b 09 09 69 66 20 28 54  k;.+..}.+..if (T
ac70: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
ac80: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b  (interp, objv[i+
ac90: 31 5d 2c 20 26 6c 69 6d 69 74 29 20 21 3d 20 54  1], &limit) != T
aca0: 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09 20 20 20 20  CL_OK) {.+..    
acb0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
acc0: 3b 0a 2b 09 09 7d 0a 2b 09 09 69 66 20 28 6c 69  ;.+..}.+..if (li
acd0: 6d 69 74 20 3c 20 30 29 20 7b 0a 2b 09 09 20 20  mit < 0) {.+..  
ace0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
acf0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 6d 6d  lt(interp, "comm
ad00: 61 6e 64 20 6c 69 6d 69 74 20 76 61 6c 75 65 20  and limit value 
ad10: 6d 75 73 74 20 62 65 20 61 74 20 22 2c 0a 2b 09  must be at ",.+.
ad20: 09 09 20 20 20 20 22 6c 65 61 73 74 20 30 22 2c  ..    "least 0",
ad30: 20 4e 55 4c 4c 29 3b 0a 2b 09 09 20 20 20 20 72   NULL);.+..    r
ad40: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
ad50: 0a 2b 09 09 7d 0a 2b 09 09 62 72 65 61 6b 3b 0a  .+..}.+..break;.
ad60: 2b 09 20 20 20 20 7d 0a 2b 09 7d 0a 2b 09 69 66  +.    }.+.}.+.if
ad70: 20 28 73 63 72 69 70 74 4f 62 6a 20 21 3d 20 4e   (scriptObj != N
ad80: 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 53 65 74  ULL) {.+.    Set
ad90: 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b 28 69 6e  LimitCallback(in
ada0: 74 65 72 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f  terp, TCL_LIMIT_
adb0: 43 4f 4d 4d 41 4e 44 53 2c 20 73 6c 61 76 65 49  COMMANDS, slaveI
adc0: 6e 74 65 72 70 2c 0a 2b 09 09 20 20 20 20 28 73  nterp,.+..    (s
add0: 63 72 69 70 74 4c 65 6e 20 3e 20 30 20 3f 20 73  criptLen > 0 ? s
ade0: 63 72 69 70 74 4f 62 6a 20 3a 20 4e 55 4c 4c 29  criptObj : NULL)
adf0: 29 3b 0a 2b 09 7d 0a 2b 09 69 66 20 28 67 72 61  );.+.}.+.if (gra
ae00: 6e 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a  nObj != NULL) {.
ae10: 2b 09 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 53  +.    Tcl_LimitS
ae20: 65 74 47 72 61 6e 75 6c 61 72 69 74 79 28 73 6c  etGranularity(sl
ae30: 61 76 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f 4c  aveInterp, TCL_L
ae40: 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 2c 20 67  IMIT_COMMANDS, g
ae50: 72 61 6e 29 3b 0a 2b 09 7d 0a 2b 09 69 66 20 28  ran);.+.}.+.if (
ae60: 6c 69 6d 69 74 4f 62 6a 20 21 3d 20 4e 55 4c 4c  limitObj != NULL
ae70: 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 6c 69  ) {.+.    if (li
ae80: 6d 69 74 4c 65 6e 20 3e 20 30 29 20 7b 0a 2b 09  mitLen > 0) {.+.
ae90: 09 54 63 6c 5f 4c 69 6d 69 74 53 65 74 43 6f 6d  .Tcl_LimitSetCom
aea0: 6d 61 6e 64 73 28 73 6c 61 76 65 49 6e 74 65 72  mands(slaveInter
aeb0: 70 2c 20 6c 69 6d 69 74 29 3b 0a 2b 09 09 54 63  p, limit);.+..Tc
aec0: 6c 5f 4c 69 6d 69 74 54 79 70 65 53 65 74 28 73  l_LimitTypeSet(s
aed0: 6c 61 76 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f  laveInterp, TCL_
aee0: 4c 49 4d 49 54 5f 43 4f 4d 4d 41 4e 44 53 29 3b  LIMIT_COMMANDS);
aef0: 0a 2b 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  .+.    } else {.
af00: 2b 09 09 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65  +..Tcl_LimitType
af10: 52 65 73 65 74 28 73 6c 61 76 65 49 6e 74 65 72  Reset(slaveInter
af20: 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f 43 4f 4d  p, TCL_LIMIT_COM
af30: 4d 41 4e 44 53 29 3b 0a 2b 09 20 20 20 20 7d 0a  MANDS);.+.    }.
af40: 2b 09 7d 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c  +.}.+.return TCL
af50: 5f 4f 4b 3b 0a 2b 20 20 20 20 7d 0a 2b 7d 0a 2b  _OK;.+    }.+}.+
af60: 0c 0a 2b 73 74 61 74 69 63 20 69 6e 74 0a 2b 53  ..+static int.+S
af70: 6c 61 76 65 54 69 6d 65 4c 69 6d 69 74 28 69 6e  laveTimeLimit(in
af80: 74 65 72 70 2c 20 73 6c 61 76 65 49 6e 74 65 72  terp, slaveInter
af90: 70 2c 20 63 6f 6e 73 75 6d 65 64 4f 62 6a 63 2c  p, consumedObjc,
afa0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 2b 20 20   objc, objv).+  
afb0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
afc0: 74 65 72 70 3b 09 09 09 2f 2a 20 43 75 72 72 65  terp;.../* Curre
afd0: 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20  nt interpreter. 
afe0: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 49 6e 74 65  */.+    Tcl_Inte
aff0: 72 70 20 2a 73 6c 61 76 65 49 6e 74 65 72 70 3b  rp *slaveInterp;
b000: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72  ../* Interpreter
b010: 20 62 65 69 6e 67 20 61 64 6a 75 73 74 65 64 2e   being adjusted.
b020: 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 63 6f 6e   */.+    int con
b030: 73 75 6d 65 64 4f 62 6a 63 3b 09 09 09 2f 2a 20  sumedObjc;.../* 
b040: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 73 20 61  Number of args a
b050: 6c 72 65 61 64 79 20 70 61 72 73 65 64 2e 20 2a  lready parsed. *
b060: 2f 0a 2b 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b  /.+    int objc;
b070: 09 09 09 09 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d  ..../* Total num
b080: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
b090: 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4f 62  . */.+    Tcl_Ob
b0a0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b  j *CONST objv[];
b0b0: 09 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 6f 62  ../* Argument ob
b0c0: 6a 65 63 74 73 2e 20 2a 2f 0a 2b 7b 0a 2b 20 20  jects. */.+{.+  
b0d0: 20 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20 63    static CONST c
b0e0: 68 61 72 20 2a 6f 70 74 69 6f 6e 73 5b 5d 20 3d  har *options[] =
b0f0: 20 7b 0a 2b 09 22 2d 63 6f 6d 6d 61 6e 64 22 2c   {.+."-command",
b100: 20 22 2d 67 72 61 6e 75 6c 61 72 69 74 79 22 2c   "-granularity",
b110: 20 22 2d 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 22   "-milliseconds"
b120: 2c 20 22 2d 73 65 63 6f 6e 64 73 22 2c 20 4e 55  , "-seconds", NU
b130: 4c 4c 0a 2b 20 20 20 20 7d 3b 0a 2b 20 20 20 20  LL.+    };.+    
b140: 65 6e 75 6d 20 4f 70 74 69 6f 6e 73 20 7b 0a 2b  enum Options {.+
b150: 09 4f 50 54 5f 43 4d 44 2c 20 4f 50 54 5f 47 52  .OPT_CMD, OPT_GR
b160: 41 4e 2c 20 4f 50 54 5f 4d 49 4c 4c 49 2c 20 4f  AN, OPT_MILLI, O
b170: 50 54 5f 53 45 43 0a 2b 20 20 20 20 7d 3b 0a 2b  PT_SEC.+    };.+
b180: 20 20 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72      Interp *iPtr
b190: 20 3d 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e   = (Interp *) in
b1a0: 74 65 72 70 3b 0a 2b 20 20 20 20 69 6e 74 20 69  terp;.+    int i
b1b0: 6e 64 65 78 3b 0a 2b 20 20 20 20 73 74 72 75 63  ndex;.+    struc
b1c0: 74 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c  t ScriptLimitCal
b1d0: 6c 62 61 63 6b 4b 65 79 20 6b 65 79 3b 0a 2b 20  lbackKey key;.+ 
b1e0: 20 20 20 73 74 72 75 63 74 20 53 63 72 69 70 74     struct Script
b1f0: 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b 20 2a 6c  LimitCallback *l
b200: 69 6d 69 74 43 42 50 74 72 3b 0a 2b 20 20 20 20  imitCBPtr;.+    
b210: 54 63 6c 5f 48 61 73 68 45 6e 74 72 79 20 2a 68  Tcl_HashEntry *h
b220: 50 74 72 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28  Ptr;.+.+    if (
b230: 6f 62 6a 63 20 3d 3d 20 63 6f 6e 73 75 6d 65 64  objc == consumed
b240: 4f 62 6a 63 29 20 7b 0a 2b 09 54 63 6c 5f 4f 62  Objc) {.+.Tcl_Ob
b250: 6a 20 2a 64 69 63 74 50 74 72 3b 0a 2b 0a 2b 09  j *dictPtr;.+.+.
b260: 54 63 6c 4e 65 77 4f 62 6a 28 64 69 63 74 50 74  TclNewObj(dictPt
b270: 72 29 3b 0a 2b 09 6b 65 79 2e 69 6e 74 65 72 70  r);.+.key.interp
b280: 20 3d 20 73 6c 61 76 65 49 6e 74 65 72 70 3b 0a   = slaveInterp;.
b290: 2b 09 6b 65 79 2e 74 79 70 65 20 3d 20 54 43 4c  +.key.type = TCL
b2a0: 5f 4c 49 4d 49 54 5f 54 49 4d 45 3b 0a 2b 09 68  _LIMIT_TIME;.+.h
b2b0: 50 74 72 20 3d 20 54 63 6c 5f 46 69 6e 64 48 61  Ptr = Tcl_FindHa
b2c0: 73 68 45 6e 74 72 79 28 26 69 50 74 72 2d 3e 6c  shEntry(&iPtr->l
b2d0: 69 6d 69 74 2e 63 61 6c 6c 62 61 63 6b 73 2c 20  imit.callbacks, 
b2e0: 28 63 68 61 72 20 2a 29 20 26 6b 65 79 29 3b 0a  (char *) &key);.
b2f0: 2b 09 69 66 20 28 68 50 74 72 20 21 3d 20 4e 55  +.if (hPtr != NU
b300: 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 6c 69 6d 69  LL) {.+.    limi
b310: 74 43 42 50 74 72 20 3d 20 28 73 74 72 75 63 74  tCBPtr = (struct
b320: 20 53 63 72 69 70 74 4c 69 6d 69 74 43 61 6c 6c   ScriptLimitCall
b330: 62 61 63 6b 20 2a 29 0a 2b 09 09 20 20 20 20 54  back *).+..    T
b340: 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75 65 28  cl_GetHashValue(
b350: 68 50 74 72 29 3b 0a 2b 09 20 20 20 20 69 66 20  hPtr);.+.    if 
b360: 28 6c 69 6d 69 74 43 42 50 74 72 20 21 3d 20 4e  (limitCBPtr != N
b370: 55 4c 4c 20 26 26 20 6c 69 6d 69 74 43 42 50 74  ULL && limitCBPt
b380: 72 2d 3e 73 63 72 69 70 74 4f 62 6a 20 21 3d 20  r->scriptObj != 
b390: 4e 55 4c 4c 29 20 7b 0a 2b 09 09 54 63 6c 5f 44  NULL) {.+..Tcl_D
b3a0: 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20  ictObjPut(NULL, 
b3b0: 64 69 63 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77  dictPtr, Tcl_New
b3c0: 53 74 72 69 6e 67 4f 62 6a 28 6f 70 74 69 6f 6e  StringObj(option
b3d0: 73 5b 30 5d 2c 20 2d 31 29 2c 0a 2b 09 09 09 6c  s[0], -1),.+...l
b3e0: 69 6d 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70  imitCBPtr->scrip
b3f0: 74 4f 62 6a 29 3b 0a 2b 09 20 20 20 20 7d 20 65  tObj);.+.    } e
b400: 6c 73 65 20 7b 0a 2b 09 09 67 6f 74 6f 20 70 75  lse {.+..goto pu
b410: 74 45 6d 70 74 79 43 6f 6d 6d 61 6e 64 49 6e 44  tEmptyCommandInD
b420: 69 63 74 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d  ict;.+.    }.+.}
b430: 20 65 6c 73 65 20 7b 0a 2b 09 20 20 20 20 54 63   else {.+.    Tc
b440: 6c 5f 4f 62 6a 20 2a 65 6d 70 74 79 3b 0a 2b 09  l_Obj *empty;.+.
b450: 70 75 74 45 6d 70 74 79 43 6f 6d 6d 61 6e 64 49  putEmptyCommandI
b460: 6e 44 69 63 74 3a 0a 2b 09 20 20 20 20 54 63 6c  nDict:.+.    Tcl
b470: 4e 65 77 4f 62 6a 28 65 6d 70 74 79 29 3b 0a 2b  NewObj(empty);.+
b480: 09 20 20 20 20 54 63 6c 5f 44 69 63 74 4f 62 6a  .    Tcl_DictObj
b490: 50 75 74 28 4e 55 4c 4c 2c 20 64 69 63 74 50 74  Put(NULL, dictPt
b4a0: 72 2c 0a 2b 09 09 20 20 20 20 54 63 6c 5f 4e 65  r,.+..    Tcl_Ne
b4b0: 77 53 74 72 69 6e 67 4f 62 6a 28 6f 70 74 69 6f  wStringObj(optio
b4c0: 6e 73 5b 30 5d 2c 20 2d 31 29 2c 20 65 6d 70 74  ns[0], -1), empt
b4d0: 79 29 3b 0a 2b 09 7d 0a 2b 09 54 63 6c 5f 44 69  y);.+.}.+.Tcl_Di
b4e0: 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 64  ctObjPut(NULL, d
b4f0: 69 63 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53  ictPtr, Tcl_NewS
b500: 74 72 69 6e 67 4f 62 6a 28 6f 70 74 69 6f 6e 73  tringObj(options
b510: 5b 31 5d 2c 20 2d 31 29 2c 0a 2b 09 09 54 63 6c  [1], -1),.+..Tcl
b520: 5f 4e 65 77 49 6e 74 4f 62 6a 28 54 63 6c 5f 4c  _NewIntObj(Tcl_L
b530: 69 6d 69 74 47 65 74 47 72 61 6e 75 6c 61 72 69  imitGetGranulari
b540: 74 79 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 0a  ty(slaveInterp,.
b550: 2b 09 09 54 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d  +..TCL_LIMIT_TIM
b560: 45 29 29 29 3b 0a 2b 0a 2b 09 69 66 20 28 54 63  E)));.+.+.if (Tc
b570: 6c 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62 6c  l_LimitTypeEnabl
b580: 65 64 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20  ed(slaveInterp, 
b590: 54 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29 29  TCL_LIMIT_TIME))
b5a0: 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 54 69 6d   {.+.    Tcl_Tim
b5b0: 65 20 6c 69 6d 69 74 4d 6f 6d 65 6e 74 3b 0a 2b  e limitMoment;.+
b5c0: 0a 2b 09 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74  .+.    Tcl_Limit
b5d0: 47 65 74 54 69 6d 65 28 73 6c 61 76 65 49 6e 74  GetTime(slaveInt
b5e0: 65 72 70 2c 20 26 6c 69 6d 69 74 4d 6f 6d 65 6e  erp, &limitMomen
b5f0: 74 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 69  t);.+.    Tcl_Di
b600: 63 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 64  ctObjPut(NULL, d
b610: 69 63 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53  ictPtr, Tcl_NewS
b620: 74 72 69 6e 67 4f 62 6a 28 6f 70 74 69 6f 6e 73  tringObj(options
b630: 5b 32 5d 2c 20 2d 31 29 2c 0a 2b 09 09 20 20 20  [2], -1),.+..   
b640: 20 54 63 6c 5f 4e 65 77 4c 6f 6e 67 4f 62 6a 28   Tcl_NewLongObj(
b650: 6c 69 6d 69 74 4d 6f 6d 65 6e 74 2e 75 73 65 63  limitMoment.usec
b660: 2f 31 30 30 30 29 29 3b 0a 2b 09 20 20 20 20 54  /1000));.+.    T
b670: 63 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55  cl_DictObjPut(NU
b680: 4c 4c 2c 20 64 69 63 74 50 74 72 2c 20 54 63 6c  LL, dictPtr, Tcl
b690: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6f 70  _NewStringObj(op
b6a0: 74 69 6f 6e 73 5b 33 5d 2c 20 2d 31 29 2c 0a 2b  tions[3], -1),.+
b6b0: 09 09 20 20 20 20 54 63 6c 5f 4e 65 77 4c 6f 6e  ..    Tcl_NewLon
b6c0: 67 4f 62 6a 28 6c 69 6d 69 74 4d 6f 6d 65 6e 74  gObj(limitMoment
b6d0: 2e 73 65 63 29 29 3b 0a 2b 09 7d 20 65 6c 73 65  .sec));.+.} else
b6e0: 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 4f 62 6a   {.+.    Tcl_Obj
b6f0: 20 2a 65 6d 70 74 79 3b 0a 2b 0a 2b 09 20 20 20   *empty;.+.+.   
b700: 20 54 63 6c 4e 65 77 4f 62 6a 28 65 6d 70 74 79   TclNewObj(empty
b710: 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 44 69 63  );.+.    Tcl_Dic
b720: 74 4f 62 6a 50 75 74 28 4e 55 4c 4c 2c 20 64 69  tObjPut(NULL, di
b730: 63 74 50 74 72 2c 0a 2b 09 09 20 20 20 20 54 63  ctPtr,.+..    Tc
b740: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6f  l_NewStringObj(o
b750: 70 74 69 6f 6e 73 5b 32 5d 2c 20 2d 31 29 2c 20  ptions[2], -1), 
b760: 65 6d 70 74 79 29 3b 0a 2b 09 20 20 20 20 54 63  empty);.+.    Tc
b770: 6c 5f 44 69 63 74 4f 62 6a 50 75 74 28 4e 55 4c  l_DictObjPut(NUL
b780: 4c 2c 20 64 69 63 74 50 74 72 2c 0a 2b 09 09 20  L, dictPtr,.+.. 
b790: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
b7a0: 4f 62 6a 28 6f 70 74 69 6f 6e 73 5b 33 5d 2c 20  Obj(options[3], 
b7b0: 2d 31 29 2c 20 65 6d 70 74 79 29 3b 0a 2b 09 7d  -1), empty);.+.}
b7c0: 0a 2b 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .+.Tcl_SetObjRes
b7d0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 64 69 63 74  ult(interp, dict
b7e0: 50 74 72 29 3b 0a 2b 09 72 65 74 75 72 6e 20 54  Ptr);.+.return T
b7f0: 43 4c 5f 4f 4b 3b 0a 2b 20 20 20 20 7d 20 65 6c  CL_OK;.+    } el
b800: 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 63  se if (objc == c
b810: 6f 6e 73 75 6d 65 64 4f 62 6a 63 2b 31 29 20 7b  onsumedObjc+1) {
b820: 0a 2b 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e  .+.if (Tcl_GetIn
b830: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  dexFromObj(inter
b840: 70 2c 20 6f 62 6a 76 5b 63 6f 6e 73 75 6d 65 64  p, objv[consumed
b850: 4f 62 6a 63 5d 2c 20 6f 70 74 69 6f 6e 73 2c 20  Objc], options, 
b860: 22 6f 70 74 69 6f 6e 22 2c 0a 2b 09 09 30 2c 20  "option",.+..0, 
b870: 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f  &index) != TCL_O
b880: 4b 29 20 7b 0a 2b 09 20 20 20 20 72 65 74 75 72  K) {.+.    retur
b890: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 7d  n TCL_ERROR;.+.}
b8a0: 0a 2b 09 73 77 69 74 63 68 20 28 28 65 6e 75 6d  .+.switch ((enum
b8b0: 20 4f 70 74 69 6f 6e 73 29 20 69 6e 64 65 78 29   Options) index)
b8c0: 20 7b 0a 2b 09 63 61 73 65 20 4f 50 54 5f 43 4d   {.+.case OPT_CM
b8d0: 44 3a 0a 2b 09 20 20 20 20 6b 65 79 2e 69 6e 74  D:.+.    key.int
b8e0: 65 72 70 20 3d 20 73 6c 61 76 65 49 6e 74 65 72  erp = slaveInter
b8f0: 70 3b 0a 2b 09 20 20 20 20 6b 65 79 2e 74 79 70  p;.+.    key.typ
b900: 65 20 3d 20 54 43 4c 5f 4c 49 4d 49 54 5f 54 49  e = TCL_LIMIT_TI
b910: 4d 45 3b 0a 2b 09 20 20 20 20 68 50 74 72 20 3d  ME;.+.    hPtr =
b920: 20 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e 74   Tcl_FindHashEnt
b930: 72 79 28 26 69 50 74 72 2d 3e 6c 69 6d 69 74 2e  ry(&iPtr->limit.
b940: 63 61 6c 6c 62 61 63 6b 73 2c 20 28 63 68 61 72  callbacks, (char
b950: 20 2a 29 20 26 6b 65 79 29 3b 0a 2b 09 20 20 20   *) &key);.+.   
b960: 20 69 66 20 28 68 50 74 72 20 21 3d 20 4e 55 4c   if (hPtr != NUL
b970: 4c 29 20 7b 0a 2b 09 09 6c 69 6d 69 74 43 42 50  L) {.+..limitCBP
b980: 74 72 20 3d 20 28 73 74 72 75 63 74 20 53 63 72  tr = (struct Scr
b990: 69 70 74 4c 69 6d 69 74 43 61 6c 6c 62 61 63 6b  iptLimitCallback
b9a0: 20 2a 29 0a 2b 09 09 09 54 63 6c 5f 47 65 74 48   *).+...Tcl_GetH
b9b0: 61 73 68 56 61 6c 75 65 28 68 50 74 72 29 3b 0a  ashValue(hPtr);.
b9c0: 2b 09 09 69 66 20 28 6c 69 6d 69 74 43 42 50 74  +..if (limitCBPt
b9d0: 72 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 69 6d  r != NULL && lim
b9e0: 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70 74 4f  itCBPtr->scriptO
b9f0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09  bj != NULL) {.+.
ba00: 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  .    Tcl_SetObjR
ba10: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6c 69  esult(interp, li
ba20: 6d 69 74 43 42 50 74 72 2d 3e 73 63 72 69 70 74  mitCBPtr->script
ba30: 4f 62 6a 29 3b 0a 2b 09 09 7d 0a 2b 09 20 20 20  Obj);.+..}.+.   
ba40: 20 7d 0a 2b 09 20 20 20 20 62 72 65 61 6b 3b 0a   }.+.    break;.
ba50: 2b 09 63 61 73 65 20 4f 50 54 5f 47 52 41 4e 3a  +.case OPT_GRAN:
ba60: 0a 2b 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  .+.    Tcl_SetOb
ba70: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
ba80: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 0a 2b  Tcl_NewIntObj(.+
ba90: 09 09 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 47  ..    Tcl_LimitG
baa0: 65 74 47 72 61 6e 75 6c 61 72 69 74 79 28 73 6c  etGranularity(sl
bab0: 61 76 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f 4c  aveInterp, TCL_L
bac0: 49 4d 49 54 5f 54 49 4d 45 29 29 29 3b 0a 2b 09  IMIT_TIME)));.+.
bad0: 20 20 20 20 62 72 65 61 6b 3b 0a 2b 09 63 61 73      break;.+.cas
bae0: 65 20 4f 50 54 5f 4d 49 4c 4c 49 3a 0a 2b 09 20  e OPT_MILLI:.+. 
baf0: 20 20 20 69 66 20 28 54 63 6c 5f 4c 69 6d 69 74     if (Tcl_Limit
bb00: 54 79 70 65 45 6e 61 62 6c 65 64 28 73 6c 61 76  TypeEnabled(slav
bb10: 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f 4c 49 4d  eInterp, TCL_LIM
bb20: 49 54 5f 54 49 4d 45 29 29 20 7b 0a 2b 09 09 54  IT_TIME)) {.+..T
bb30: 63 6c 5f 54 69 6d 65 20 6c 69 6d 69 74 4d 6f 6d  cl_Time limitMom
bb40: 65 6e 74 3b 0a 2b 0a 2b 09 09 54 63 6c 5f 4c 69  ent;.+.+..Tcl_Li
bb50: 6d 69 74 47 65 74 54 69 6d 65 28 73 6c 61 76 65  mitGetTime(slave
bb60: 49 6e 74 65 72 70 2c 20 26 6c 69 6d 69 74 4d 6f  Interp, &limitMo
bb70: 6d 65 6e 74 29 3b 0a 2b 09 09 54 63 6c 5f 53 65  ment);.+..Tcl_Se
bb80: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
bb90: 70 2c 0a 2b 09 09 09 54 63 6c 5f 4e 65 77 4c 6f  p,.+...Tcl_NewLo
bba0: 6e 67 4f 62 6a 28 6c 69 6d 69 74 4d 6f 6d 65 6e  ngObj(limitMomen
bbb0: 74 2e 75 73 65 63 2f 31 30 30 30 29 29 3b 0a 2b  t.usec/1000));.+
bbc0: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 62 72 65  .    }.+.    bre
bbd0: 61 6b 3b 0a 2b 09 63 61 73 65 20 4f 50 54 5f 53  ak;.+.case OPT_S
bbe0: 45 43 3a 0a 2b 09 20 20 20 20 69 66 20 28 54 63  EC:.+.    if (Tc
bbf0: 6c 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61 62 6c  l_LimitTypeEnabl
bc00: 65 64 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20  ed(slaveInterp, 
bc10: 54 43 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29 29  TCL_LIMIT_TIME))
bc20: 20 7b 0a 2b 09 09 54 63 6c 5f 54 69 6d 65 20 6c   {.+..Tcl_Time l
bc30: 69 6d 69 74 4d 6f 6d 65 6e 74 3b 0a 2b 0a 2b 09  imitMoment;.+.+.
bc40: 09 54 63 6c 5f 4c 69 6d 69 74 47 65 74 54 69 6d  .Tcl_LimitGetTim
bc50: 65 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 26  e(slaveInterp, &
bc60: 6c 69 6d 69 74 4d 6f 6d 65 6e 74 29 3b 0a 2b 09  limitMoment);.+.
bc70: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c  .Tcl_SetObjResul
bc80: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
bc90: 77 4c 6f 6e 67 4f 62 6a 28 6c 69 6d 69 74 4d 6f  wLongObj(limitMo
bca0: 6d 65 6e 74 2e 73 65 63 29 29 3b 0a 2b 09 20 20  ment.sec));.+.  
bcb0: 20 20 7d 0a 2b 09 20 20 20 20 62 72 65 61 6b 3b    }.+.    break;
bcc0: 0a 2b 09 7d 0a 2b 09 72 65 74 75 72 6e 20 54 43  .+.}.+.return TC
bcd0: 4c 5f 4f 4b 3b 0a 2b 20 20 20 20 7d 20 65 6c 73  L_OK;.+    } els
bce0: 65 20 69 66 20 28 28 6f 62 6a 63 2d 63 6f 6e 73  e if ((objc-cons
bcf0: 75 6d 65 64 4f 62 6a 63 29 20 26 20 31 20 2f 2a  umedObjc) & 1 /*
bd00: 20 69 73 4f 64 64 28 6f 62 6a 63 2d 63 6f 6e 73   isOdd(objc-cons
bd10: 75 6d 65 64 4f 62 6a 63 29 20 2a 2f 29 20 7b 0a  umedObjc) */) {.
bd20: 2b 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72  +.Tcl_WrongNumAr
bd30: 67 73 28 69 6e 74 65 72 70 2c 20 63 6f 6e 73 75  gs(interp, consu
bd40: 6d 65 64 4f 62 6a 63 2c 20 6f 62 6a 76 2c 0a 2b  medObjc, objv,.+
bd50: 09 09 22 3f 2d 6f 70 74 69 6f 6e 3f 20 3f 76 61  .."?-option? ?va
bd60: 6c 75 65 3f 20 3f 2d 6f 70 74 69 6f 6e 20 76 61  lue? ?-option va
bd70: 6c 75 65 20 2e 2e 2e 3f 22 29 3b 0a 2b 09 72 65  lue ...?");.+.re
bd80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
bd90: 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09  +    } else {.+.
bda0: 69 6e 74 20 69 2c 20 73 63 72 69 70 74 4c 65 6e  int i, scriptLen
bdb0: 20 3d 20 30 2c 20 6d 69 6c 6c 69 4c 65 6e 20 3d   = 0, milliLen =
bdc0: 20 30 2c 20 73 65 63 4c 65 6e 20 3d 20 30 3b 0a   0, secLen = 0;.
bdd0: 2b 09 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70  +.Tcl_Obj *scrip
bde0: 74 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 67 72  tObj = NULL, *gr
bdf0: 61 6e 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 2b 09  anObj = NULL;.+.
be00: 54 63 6c 5f 4f 62 6a 20 2a 6d 69 6c 6c 69 4f 62  Tcl_Obj *milliOb
be10: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 73 65 63 4f 62  j = NULL, *secOb
be20: 6a 20 3d 20 4e 55 4c 4c 3b 0a 2b 09 69 6e 74 20  j = NULL;.+.int 
be30: 67 72 61 6e 20 3d 20 30 3b 0a 2b 09 54 63 6c 5f  gran = 0;.+.Tcl_
be40: 54 69 6d 65 20 6c 69 6d 69 74 4d 6f 6d 65 6e 74  Time limitMoment
be50: 3b 0a 2b 09 69 6e 74 20 74 6d 70 3b 0a 2b 0a 2b  ;.+.int tmp;.+.+
be60: 09 54 63 6c 5f 4c 69 6d 69 74 47 65 74 54 69 6d  .Tcl_LimitGetTim
be70: 65 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 26  e(slaveInterp, &
be80: 6c 69 6d 69 74 4d 6f 6d 65 6e 74 29 3b 0a 2b 09  limitMoment);.+.
be90: 66 6f 72 20 28 69 3d 63 6f 6e 73 75 6d 65 64 4f  for (i=consumedO
bea0: 62 6a 63 20 3b 20 69 3c 6f 62 6a 63 20 3b 20 69  bjc ; i<objc ; i
beb0: 2b 3d 32 29 20 7b 0a 2b 09 20 20 20 20 69 66 20  +=2) {.+.    if 
bec0: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f  (Tcl_GetIndexFro
bed0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
bee0: 76 5b 69 5d 2c 20 6f 70 74 69 6f 6e 73 2c 20 22  v[i], options, "
bef0: 6f 70 74 69 6f 6e 22 2c 20 30 2c 0a 2b 09 09 20  option", 0,.+.. 
bf00: 20 20 20 26 69 6e 64 65 78 29 20 21 3d 20 54 43     &index) != TC
bf10: 4c 5f 4f 4b 29 20 7b 0a 2b 09 09 72 65 74 75 72  L_OK) {.+..retur
bf20: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 20  n TCL_ERROR;.+. 
bf30: 20 20 20 7d 0a 2b 09 20 20 20 20 73 77 69 74 63     }.+.    switc
bf40: 68 20 28 28 65 6e 75 6d 20 4f 70 74 69 6f 6e 73  h ((enum Options
bf50: 29 20 69 6e 64 65 78 29 20 7b 0a 2b 09 20 20 20  ) index) {.+.   
bf60: 20 63 61 73 65 20 4f 50 54 5f 43 4d 44 3a 0a 2b   case OPT_CMD:.+
bf70: 09 09 73 63 72 69 70 74 4f 62 6a 20 3d 20 6f 62  ..scriptObj = ob
bf80: 6a 76 5b 69 2b 31 5d 3b 0a 2b 09 09 28 76 6f 69  jv[i+1];.+..(voi
bf90: 64 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  d) Tcl_GetString
bfa0: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 2b 31  FromObj(objv[i+1
bfb0: 5d 2c 20 26 73 63 72 69 70 74 4c 65 6e 29 3b 0a  ], &scriptLen);.
bfc0: 2b 09 09 62 72 65 61 6b 3b 0a 2b 09 20 20 20 20  +..break;.+.    
bfd0: 63 61 73 65 20 4f 50 54 5f 47 52 41 4e 3a 0a 2b  case OPT_GRAN:.+
bfe0: 09 09 67 72 61 6e 4f 62 6a 20 3d 20 6f 62 6a 76  ..granObj = objv
bff0: 5b 69 2b 31 5d 3b 0a 2b 09 09 69 66 20 28 54 63  [i+1];.+..if (Tc
c000: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28  l_GetIntFromObj(
c010: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31  interp, objv[i+1
c020: 5d 2c 20 26 67 72 61 6e 29 20 21 3d 20 54 43 4c  ], &gran) != TCL
c030: 5f 4f 4b 29 20 7b 0a 2b 09 09 20 20 20 20 72 65  _OK) {.+..    re
c040: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
c050: 2b 09 09 7d 0a 2b 09 09 69 66 20 28 67 72 61 6e  +..}.+..if (gran
c060: 20 3c 20 31 29 20 7b 0a 2b 09 09 20 20 20 20 54   < 1) {.+..    T
c070: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
c080: 69 6e 74 65 72 70 2c 20 22 67 72 61 6e 75 6c 61  interp, "granula
c090: 72 69 74 79 20 6d 75 73 74 20 62 65 20 61 74 20  rity must be at 
c0a0: 22 2c 0a 2b 09 09 09 20 20 20 20 22 6c 65 61 73  ",.+...    "leas
c0b0: 74 20 31 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09  t 1", NULL);.+..
c0c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
c0d0: 52 52 4f 52 3b 0a 2b 09 09 7d 0a 2b 09 09 62 72  RROR;.+..}.+..br
c0e0: 65 61 6b 3b 0a 2b 09 20 20 20 20 63 61 73 65 20  eak;.+.    case 
c0f0: 4f 50 54 5f 4d 49 4c 4c 49 3a 0a 2b 09 09 6d 69  OPT_MILLI:.+..mi
c100: 6c 6c 69 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 2b  lliObj = objv[i+
c110: 31 5d 3b 0a 2b 09 09 28 76 6f 69 64 29 20 54 63  1];.+..(void) Tc
c120: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f  l_GetStringFromO
c130: 62 6a 28 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 6d  bj(objv[i+1], &m
c140: 69 6c 6c 69 4c 65 6e 29 3b 0a 2b 09 09 69 66 20  illiLen);.+..if 
c150: 28 6d 69 6c 6c 69 4c 65 6e 20 3d 3d 20 30 29 20  (milliLen == 0) 
c160: 7b 0a 2b 09 09 20 20 20 20 62 72 65 61 6b 3b 0a  {.+..    break;.
c170: 2b 09 09 7d 0a 2b 09 09 69 66 20 28 54 63 6c 5f  +..}.+..if (Tcl_
c180: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  GetIntFromObj(in
c190: 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c  terp, objv[i+1],
c1a0: 20 26 74 6d 70 29 20 21 3d 20 54 43 4c 5f 4f 4b   &tmp) != TCL_OK
c1b0: 29 20 7b 0a 2b 09 09 20 20 20 20 72 65 74 75 72  ) {.+..    retur
c1c0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b 09 09  n TCL_ERROR;.+..
c1d0: 7d 0a 2b 09 09 69 66 20 28 74 6d 70 20 3c 20 30  }.+..if (tmp < 0
c1e0: 29 20 7b 0a 2b 09 09 20 20 20 20 54 63 6c 5f 41  ) {.+..    Tcl_A
c1f0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
c200: 72 70 2c 20 22 6d 69 6c 6c 69 73 65 63 6f 6e 64  rp, "millisecond
c210: 73 20 6d 75 73 74 20 62 65 20 61 74 20 6c 65 61  s must be at lea
c220: 73 74 20 30 22 2c 0a 2b 09 09 09 20 20 20 20 4e  st 0",.+...    N
c230: 55 4c 4c 29 3b 0a 2b 09 09 20 20 20 20 72 65 74  ULL);.+..    ret
c240: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 2b  urn TCL_ERROR;.+
c250: 09 09 7d 0a 2b 09 09 6c 69 6d 69 74 4d 6f 6d 65  ..}.+..limitMome
c260: 6e 74 2e 75 73 65 63 20 3d 20 28 28 6c 6f 6e 67  nt.usec = ((long
c270: 29 74 6d 70 29 2a 31 30 30 30 3b 0a 2b 09 09 62  )tmp)*1000;.+..b
c280: 72 65 61 6b 3b 0a 2b 09 20 20 20 20 63 61 73 65  reak;.+.    case
c290: 20 4f 50 54 5f 53 45 43 3a 0a 2b 09 09 73 65 63   OPT_SEC:.+..sec
c2a0: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 2b 31 5d 3b  Obj = objv[i+1];
c2b0: 0a 2b 09 09 28 76 6f 69 64 29 20 54 63 6c 5f 47  .+..(void) Tcl_G
c2c0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
c2d0: 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 73 65 63 4c  objv[i+1], &secL
c2e0: 65 6e 29 3b 0a 2b 09 09 69 66 20 28 73 65 63 4c  en);.+..if (secL
c2f0: 65 6e 20 3d 3d 20 30 29 20 7b 0a 2b 09 09 20 20  en == 0) {.+..  
c300: 20 20 62 72 65 61 6b 3b 0a 2b 09 09 7d 0a 2b 09    break;.+..}.+.
c310: 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46  .if (Tcl_GetIntF
c320: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
c330: 62 6a 76 5b 69 2b 31 5d 2c 20 26 74 6d 70 29 20  bjv[i+1], &tmp) 
c340: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 09 09  != TCL_OK) {.+..
c350: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
c360: 52 52 4f 52 3b 0a 2b 09 09 7d 0a 2b 09 09 69 66  RROR;.+..}.+..if
c370: 20 28 74 6d 70 20 3c 20 30 29 20 7b 0a 2b 09 09   (tmp < 0) {.+..
c380: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
c390: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 73 65  sult(interp, "se
c3a0: 63 6f 6e 64 73 20 6d 75 73 74 20 62 65 20 61 74  conds must be at
c3b0: 20 6c 65 61 73 74 20 30 22 2c 0a 2b 09 09 09 20   least 0",.+... 
c3c0: 20 20 20 4e 55 4c 4c 29 3b 0a 2b 09 09 20 20 20     NULL);.+..   
c3d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
c3e0: 52 3b 0a 2b 09 09 7d 0a 2b 09 09 6c 69 6d 69 74  R;.+..}.+..limit
c3f0: 4d 6f 6d 65 6e 74 2e 73 65 63 20 3d 20 74 6d 70  Moment.sec = tmp
c400: 3b 0a 2b 09 09 62 72 65 61 6b 3b 0a 2b 09 20 20  ;.+..break;.+.  
c410: 20 20 7d 0a 2b 09 7d 0a 2b 09 69 66 20 28 6d 69    }.+.}.+.if (mi
c420: 6c 6c 69 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 7c  lliObj != NULL |
c430: 7c 20 73 65 63 4f 62 6a 20 21 3d 20 4e 55 4c 4c  | secObj != NULL
c440: 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 6d 69  ) {.+.    if (mi
c450: 6c 6c 69 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20  lliObj != NULL) 
c460: 7b 0a 2b 09 09 2f 2a 0a 2b 09 09 20 2a 20 53 65  {.+../*.+.. * Se
c470: 74 74 69 6e 67 20 2d 6d 69 6c 6c 69 73 65 63 6f  tting -milliseco
c480: 6e 64 73 20 62 75 74 20 63 6c 65 61 72 69 6e 67  nds but clearing
c490: 20 2d 73 65 63 6f 6e 64 73 2c 20 6f 72 0a 2b 09   -seconds, or.+.
c4a0: 09 20 2a 20 72 65 73 65 74 74 69 6e 67 20 2d 6d  . * resetting -m
c4b0: 69 6c 6c 69 73 65 63 6f 6e 64 73 20 62 75 74 20  illiseconds but 
c4c0: 6e 6f 74 20 72 65 73 65 74 74 69 6e 67 20 2d 73  not resetting -s
c4d0: 65 63 6f 6e 64 73 3f 0a 2b 09 09 20 2a 20 42 61  econds?.+.. * Ba
c4e0: 64 20 76 6f 6f 64 6f 6f 21 0a 2b 09 09 20 2a 2f  d voodoo!.+.. */
c4f0: 0a 2b 09 09 69 66 20 28 73 65 63 4f 62 6a 20 21  .+..if (secObj !
c500: 3d 20 4e 55 4c 4c 20 26 26 20 73 65 63 4c 65 6e  = NULL && secLen
c510: 20 3d 3d 20 30 20 26 26 20 6d 69 6c 6c 69 4c 65   == 0 && milliLe
c520: 6e 20 3e 20 30 29 20 7b 0a 2b 09 09 20 20 20 20  n > 0) {.+..    
c530: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
c540: 28 69 6e 74 65 72 70 2c 20 22 6d 61 79 20 6f 6e  (interp, "may on
c550: 6c 79 20 73 65 74 20 2d 6d 69 6c 6c 69 73 65 63  ly set -millisec
c560: 6f 6e 64 73 20 22 2c 0a 2b 09 09 09 20 20 20 20  onds ",.+...    
c570: 22 69 66 20 2d 73 65 63 6f 6e 64 73 20 69 73 20  "if -seconds is 
c580: 6e 6f 74 20 61 6c 73 6f 20 62 65 69 6e 67 20 72  not also being r
c590: 65 73 65 74 22 2c 20 4e 55 4c 4c 29 3b 0a 2b 09  eset", NULL);.+.
c5a0: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
c5b0: 45 52 52 4f 52 3b 0a 2b 09 09 7d 0a 2b 09 09 69  ERROR;.+..}.+..i
c5c0: 66 20 28 6d 69 6c 6c 69 4c 65 6e 20 3d 3d 20 30  f (milliLen == 0
c5d0: 20 26 26 20 28 73 65 63 4f 62 6a 20 3d 3d 20 4e   && (secObj == N
c5e0: 55 4c 4c 20 7c 7c 20 73 65 63 4c 65 6e 20 3e 20  ULL || secLen > 
c5f0: 30 29 29 20 7b 0a 2b 09 09 20 20 20 20 54 63 6c  0)) {.+..    Tcl
c600: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
c610: 74 65 72 70 2c 20 22 6d 61 79 20 6f 6e 6c 79 20  terp, "may only 
c620: 72 65 73 65 74 20 2d 6d 69 6c 6c 69 73 65 63 6f  reset -milliseco
c630: 6e 64 73 20 22 2c 0a 2b 09 09 09 20 20 20 20 22  nds ",.+...    "
c640: 69 66 20 2d 73 65 63 6f 6e 64 73 20 69 73 20 61  if -seconds is a
c650: 6c 73 6f 20 62 65 69 6e 67 20 72 65 73 65 74 22  lso being reset"
c660: 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 09 20 20 20 20  , NULL);.+..    
c670: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
c680: 3b 0a 2b 09 09 7d 0a 2b 09 20 20 20 20 7d 0a 2b  ;.+..}.+.    }.+
c690: 0a 2b 09 20 20 20 20 69 66 20 28 6d 69 6c 6c 69  .+.    if (milli
c6a0: 4c 65 6e 20 3e 20 30 20 7c 7c 20 73 65 63 4c 65  Len > 0 || secLe
c6b0: 6e 20 3e 20 30 29 20 7b 0a 2b 09 09 2f 2a 0a 2b  n > 0) {.+../*.+
c6c0: 09 09 20 2a 20 46 6f 72 63 65 20 75 73 65 63 20  .. * Force usec 
c6d0: 74 6f 20 62 65 20 69 6e 20 72 61 6e 67 65 20 5b  to be in range [
c6e0: 30 2e 2e 31 30 30 30 30 30 30 29 2c 20 70 6f 73  0..1000000), pos
c6f0: 73 69 62 6c 79 0a 2b 09 09 20 2a 20 69 6e 63 72  sibly.+.. * incr
c700: 65 6d 65 6e 74 69 6e 67 20 73 65 63 20 69 6e 20  ementing sec in 
c710: 74 68 65 20 70 72 6f 63 65 73 73 2e 20 20 54 68  the process.  Th
c720: 69 73 20 6d 61 6b 65 73 20 69 74 0a 2b 09 09 20  is makes it.+.. 
c730: 2a 20 6d 75 63 68 20 65 61 73 69 65 72 20 66 6f  * much easier fo
c740: 72 20 70 65 6f 70 6c 65 20 74 6f 20 77 72 69 74  r people to writ
c750: 65 20 73 63 72 69 70 74 73 20 74 68 61 74 20 64  e scripts that d
c760: 6f 0a 2b 09 09 20 2a 20 73 6d 61 6c 6c 20 74 69  o.+.. * small ti
c770: 6d 65 20 69 6e 63 72 65 6d 65 6e 74 73 2e 0a 2b  me increments..+
c780: 09 09 20 2a 2f 0a 2b 09 09 6c 69 6d 69 74 4d 6f  .. */.+..limitMo
c790: 6d 65 6e 74 2e 73 65 63 20 2b 3d 20 6c 69 6d 69  ment.sec += limi
c7a0: 74 4d 6f 6d 65 6e 74 2e 75 73 65 63 20 2f 20 31  tMoment.usec / 1
c7b0: 30 30 30 30 30 30 3b 0a 2b 09 09 6c 69 6d 69 74  000000;.+..limit
c7c0: 4d 6f 6d 65 6e 74 2e 75 73 65 63 20 25 3d 20 31  Moment.usec %= 1
c7d0: 30 30 30 30 30 30 3b 0a 2b 0a 2b 09 09 54 63 6c  000000;.+.+..Tcl
c7e0: 5f 4c 69 6d 69 74 53 65 74 54 69 6d 65 28 73 6c  _LimitSetTime(sl
c7f0: 61 76 65 49 6e 74 65 72 70 2c 20 26 6c 69 6d 69  aveInterp, &limi
c800: 74 4d 6f 6d 65 6e 74 29 3b 0a 2b 09 09 54 63 6c  tMoment);.+..Tcl
c810: 5f 4c 69 6d 69 74 54 79 70 65 53 65 74 28 73 6c  _LimitTypeSet(sl
c820: 61 76 65 49 6e 74 65 72 70 2c 20 54 43 4c 5f 4c  aveInterp, TCL_L
c830: 49 4d 49 54 5f 54 49 4d 45 29 3b 0a 2b 09 20 20  IMIT_TIME);.+.  
c840: 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 09 54 63    } else {.+..Tc
c850: 6c 5f 4c 69 6d 69 74 54 79 70 65 52 65 73 65 74  l_LimitTypeReset
c860: 28 73 6c 61 76 65 49 6e 74 65 72 70 2c 20 54 43  (slaveInterp, TC
c870: 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29 3b 0a 2b  L_LIMIT_TIME);.+
c880: 09 20 20 20 20 7d 0a 2b 09 7d 0a 2b 09 69 66 20  .    }.+.}.+.if 
c890: 28 73 63 72 69 70 74 4f 62 6a 20 21 3d 20 4e 55  (scriptObj != NU
c8a0: 4c 4c 29 20 7b 0a 2b 09 20 20 20 20 53 65 74 4c  LL) {.+.    SetL
c8b0: 69 6d 69 74 43 61 6c 6c 62 61 63 6b 28 69 6e 74  imitCallback(int
c8c0: 65 72 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f 54  erp, TCL_LIMIT_T
c8d0: 49 4d 45 2c 20 73 6c 61 76 65 49 6e 74 65 72 70  IME, slaveInterp
c8e0: 2c 0a 2b 09 09 20 20 20 20 28 73 63 72 69 70 74  ,.+..    (script
c8f0: 4c 65 6e 20 3e 20 30 20 3f 20 73 63 72 69 70 74  Len > 0 ? script
c900: 4f 62 6a 20 3a 20 4e 55 4c 4c 29 29 3b 0a 2b 09  Obj : NULL));.+.
c910: 7d 0a 2b 09 69 66 20 28 67 72 61 6e 4f 62 6a 20  }.+.if (granObj 
c920: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20  != NULL) {.+.   
c930: 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 47 72 61   Tcl_LimitSetGra
c940: 6e 75 6c 61 72 69 74 79 28 73 6c 61 76 65 49 6e  nularity(slaveIn
c950: 74 65 72 70 2c 20 54 43 4c 5f 4c 49 4d 49 54 5f  terp, TCL_LIMIT_
c960: 54 49 4d 45 2c 20 67 72 61 6e 29 3b 0a 2b 09 7d  TIME, gran);.+.}
c970: 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .+.return TCL_OK
c980: 3b 0a 2b 20 20 20 20 7d 0a 2b 7d 0a 49 6e 64 65  ;.+    }.+}.Inde
c990: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 4d 61  x: generic/tclMa
c9a0: 69 6e 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  in.c.===========
c9b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
c9c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
c9d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
c9e0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c  ========.RCS fil
c9f0: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f  e: /cvsroot/tcl/
ca00: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 4d  tcl/generic/tclM
ca10: 61 69 6e 2e 63 2c 76 0a 72 65 74 72 69 65 76 69  ain.c,v.retrievi
ca20: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 35  ng revision 1.25
ca30: 0a 64 69 66 66 20 2d 75 20 2d 62 20 2d 42 20 2d  .diff -u -b -B -
ca40: 72 31 2e 32 35 20 74 63 6c 4d 61 69 6e 2e 63 0a  r1.25 tclMain.c.
ca50: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4d  --- generic/tclM
ca60: 61 69 6e 2e 63 09 36 20 41 70 72 20 32 30 30 34  ain.c.6 Apr 2004
ca70: 20 32 32 3a 32 35 3a 35 34 20 2d 30 30 30 30 09   22:25:54 -0000.
ca80: 31 2e 32 35 0a 2b 2b 2b 20 67 65 6e 65 72 69 63  1.25.+++ generic
ca90: 2f 74 63 6c 4d 61 69 6e 2e 63 09 31 39 20 41 70  /tclMain.c.19 Ap
caa0: 72 20 32 30 30 34 20 32 32 3a 31 38 3a 33 35 20  r 2004 22:18:35 
cab0: 2d 30 30 30 30 0a 40 40 20 2d 33 36 33 2c 36 20  -0000.@@ -363,6 
cac0: 2b 33 36 33 2c 39 20 40 40 0a 20 20 20 20 20 69  +363,9 @@.     i
cad0: 66 20 28 54 63 6c 5f 49 6e 74 65 72 70 44 65 6c  f (Tcl_InterpDel
cae0: 65 74 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a  eted(interp)) {.
caf0: 20 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20   .goto done;.   
cb00: 20 20 7d 0a 2b 20 20 20 20 69 66 20 28 54 63 6c    }.+    if (Tcl
cb10: 5f 4c 69 6d 69 74 45 78 63 65 65 64 65 64 28 69  _LimitExceeded(i
cb20: 6e 74 65 72 70 29 29 20 7b 0a 2b 09 67 6f 74 6f  nterp)) {.+.goto
cb30: 20 64 6f 6e 65 3b 0a 2b 20 20 20 20 7d 0a 20 0a   done;.+    }. .
cb40: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20       /*.      * 
cb50: 49 66 20 61 20 73 63 72 69 70 74 20 66 69 6c 65  If a script file
cb60: 20 77 61 73 20 73 70 65 63 69 66 69 65 64 20 74   was specified t
cb70: 68 65 6e 20 6a 75 73 74 20 73 6f 75 72 63 65 20  hen just source 
cb80: 74 68 61 74 20 66 69 6c 65 0a 40 40 20 2d 33 39  that file.@@ -39
cb90: 39 2c 36 20 2b 34 30 32 2c 39 20 40 40 0a 20 20  9,6 +402,9 @@.  
cba0: 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 54 63      */. .     Tc
cbb0: 6c 5f 53 6f 75 72 63 65 52 43 46 69 6c 65 28 69  l_SourceRCFile(i
cbc0: 6e 74 65 72 70 29 3b 0a 2b 20 20 20 20 69 66 20  nterp);.+    if 
cbd0: 28 54 63 6c 5f 4c 69 6d 69 74 45 78 63 65 65 64  (Tcl_LimitExceed
cbe0: 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a 2b 09  ed(interp)) {.+.
cbf0: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 2b 20 20 20 20  goto done;.+    
cc00: 7d 0a 20 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20  }. .     /*.    
cc10: 20 20 2a 20 50 72 6f 63 65 73 73 20 63 6f 6d 6d    * Process comm
cc20: 61 6e 64 73 20 66 72 6f 6d 20 73 74 64 69 6e 20  ands from stdin 
cc30: 75 6e 74 69 6c 20 74 68 65 72 65 27 73 20 61 6e  until there's an
cc40: 20 65 6e 64 2d 6f 66 2d 66 69 6c 65 2e 20 20 4e   end-of-file.  N
cc50: 6f 74 65 0a 40 40 20 2d 34 32 31 2c 36 20 2b 34  ote.@@ -421,6 +4
cc60: 32 37 2c 39 20 40 40 0a 20 09 20 20 20 20 69 66  27,9 @@. .    if
cc70: 20 28 54 63 6c 5f 49 6e 74 65 72 70 44 65 6c 65   (Tcl_InterpDele
cc80: 74 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a 20  ted(interp)) {. 
cc90: 09 09 62 72 65 61 6b 3b 0a 20 09 20 20 20 20 7d  ..break;. .    }
cca0: 0a 2b 09 20 20 20 20 69 66 20 28 54 63 6c 5f 4c  .+.    if (Tcl_L
ccb0: 69 6d 69 74 45 78 63 65 65 64 65 64 28 69 6e 74  imitExceeded(int
ccc0: 65 72 70 29 29 20 7b 0a 2b 09 09 62 72 65 61 6b  erp)) {.+..break
ccd0: 3b 0a 2b 09 20 20 20 20 7d 0a 20 09 20 20 20 20  ;.+.    }. .    
cce0: 69 6e 43 68 61 6e 6e 65 6c 20 3d 20 54 63 6c 5f  inChannel = Tcl_
ccf0: 47 65 74 53 74 64 43 68 61 6e 6e 65 6c 28 54 43  GetStdChannel(TC
cd00: 4c 5f 53 54 44 49 4e 29 3b 0a 20 09 20 20 20 20  L_STDIN);. .    
cd10: 69 66 20 28 69 6e 43 68 61 6e 6e 65 6c 20 3d 3d  if (inChannel ==
cd20: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e   (Tcl_Channel) N
cd30: 55 4c 4c 29 20 7b 0a 20 09 20 20 20 20 20 20 20  ULL) {. .       
cd40: 20 62 72 65 61 6b 3b 0a 40 40 20 2d 35 35 37 2c   break;.@@ -557,
cd50: 37 20 2b 35 36 36 2c 38 20 40 40 0a 20 20 20 20  7 +566,8 @@.    
cd60: 20 7d 0a 20 0a 20 20 20 20 20 64 6f 6e 65 3a 0a   }. .     done:.
cd70: 2d 20 20 20 20 69 66 20 28 28 65 78 69 74 43 6f  -    if ((exitCo
cd80: 64 65 20 3d 3d 20 30 29 20 26 26 20 28 6d 61 69  de == 0) && (mai
cd90: 6e 4c 6f 6f 70 50 72 6f 63 20 21 3d 20 4e 55 4c  nLoopProc != NUL
cda0: 4c 29 29 20 7b 0a 2b 20 20 20 20 69 66 20 28 28  L)) {.+    if ((
cdb0: 65 78 69 74 43 6f 64 65 20 3d 3d 20 30 29 20 26  exitCode == 0) &
cdc0: 26 20 28 6d 61 69 6e 4c 6f 6f 70 50 72 6f 63 20  & (mainLoopProc 
cdd0: 21 3d 20 4e 55 4c 4c 29 0a 2b 09 20 20 20 20 26  != NULL).+.    &
cde0: 26 20 21 54 63 6c 5f 4c 69 6d 69 74 45 78 63 65  & !Tcl_LimitExce
cdf0: 65 64 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a  eded(interp)) {.
ce00: 20 0a 20 09 2f 2a 0a 20 09 20 2a 20 49 66 20 65   . ./*. . * If e
ce10: 76 65 72 79 74 68 69 6e 67 20 68 61 73 20 67 6f  verything has go
ce20: 6e 65 20 4f 4b 20 73 6f 20 66 61 72 2c 20 63 61  ne OK so far, ca
ce30: 6c 6c 20 74 68 65 20 6d 61 69 6e 20 6c 6f 6f 70  ll the main loop
ce40: 20 70 72 6f 63 2c 0a 40 40 20 2d 35 37 38 2c 37   proc,.@@ -578,7
ce50: 20 2b 35 38 38 2c 37 20 40 40 0a 20 20 20 20 20   +588,7 @@.     
ce60: 20 2a 20 63 6c 65 61 6e 75 70 20 6f 6e 20 65 78   * cleanup on ex
ce70: 69 74 2e 20 20 54 68 65 20 54 63 6c 5f 45 76 61  it.  The Tcl_Eva
ce80: 6c 20 63 61 6c 6c 20 73 68 6f 75 6c 64 20 6e 65  l call should ne
ce90: 76 65 72 20 72 65 74 75 72 6e 2e 0a 20 20 20 20  ver return..    
cea0: 20 20 2a 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28    */. .-    if (
ceb0: 21 54 63 6c 5f 49 6e 74 65 72 70 44 65 6c 65 74  !Tcl_InterpDelet
cec0: 65 64 28 69 6e 74 65 72 70 29 29 20 7b 0a 2b 20  ed(interp)) {.+ 
ced0: 20 20 20 69 66 20 28 21 54 63 6c 5f 49 6e 74 65     if (!Tcl_Inte
cee0: 72 70 44 65 6c 65 74 65 64 28 69 6e 74 65 72 70  rpDeleted(interp
cef0: 29 20 26 26 20 21 54 63 6c 5f 4c 69 6d 69 74 45  ) && !Tcl_LimitE
cf00: 78 63 65 65 64 65 64 28 69 6e 74 65 72 70 29 29  xceeded(interp))
cf10: 20 7b 0a 20 20 20 20 20 20 20 20 20 73 70 72 69   {.         spri
cf20: 6e 74 66 28 62 75 66 66 65 72 2c 20 22 65 78 69  ntf(buffer, "exi
cf30: 74 20 25 64 22 2c 20 65 78 69 74 43 6f 64 65 29  t %d", exitCode)
cf40: 3b 0a 20 20 20 20 20 20 20 20 20 54 63 6c 5f 45  ;.         Tcl_E
cf50: 76 61 6c 28 69 6e 74 65 72 70 2c 20 62 75 66 66  val(interp, buff
cf60: 65 72 29 3b 0a 20 0a 49 6e 64 65 78 3a 20 67 65  er);. .Index: ge
cf70: 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 49 6e 69  neric/tclStubIni
cf80: 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  t.c.============
cf90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
cfa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
cfb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
cfc0: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65  =======.RCS file
cfd0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74  : /cvsroot/tcl/t
cfe0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 53 74  cl/generic/tclSt
cff0: 75 62 49 6e 69 74 2e 63 2c 76 0a 72 65 74 72 69  ubInit.c,v.retri
d000: 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31  eving revision 1
d010: 2e 39 34 0a 64 69 66 66 20 2d 75 20 2d 62 20 2d  .94.diff -u -b -
d020: 42 20 2d 72 31 2e 39 34 20 74 63 6c 53 74 75 62  B -r1.94 tclStub
d030: 49 6e 69 74 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72  Init.c.--- gener
d040: 69 63 2f 74 63 6c 53 74 75 62 49 6e 69 74 2e 63  ic/tclStubInit.c
d050: 09 36 20 41 70 72 20 32 30 30 34 20 32 32 3a 32  .6 Apr 2004 22:2
d060: 35 3a 35 35 20 2d 30 30 30 30 09 31 2e 39 34 0a  5:55 -0000.1.94.
d070: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 53  +++ generic/tclS
d080: 74 75 62 49 6e 69 74 2e 63 09 31 39 20 41 70 72  tubInit.c.19 Apr
d090: 20 32 30 30 34 20 32 32 3a 31 38 3a 33 35 20 2d   2004 22:18:35 -
d0a0: 30 30 30 30 0a 40 40 20 2d 38 39 38 2c 36 20 2b  0000.@@ -898,6 +
d0b0: 38 39 38 2c 32 31 20 40 40 0a 20 20 20 20 20 54  898,21 @@.     T
d0c0: 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 46 75 6c  cl_GetCommandFul
d0d0: 6c 4e 61 6d 65 2c 20 2f 2a 20 35 31 37 20 2a 2f  lName, /* 517 */
d0e0: 0a 20 20 20 20 20 54 63 6c 5f 46 53 45 76 61 6c  .     Tcl_FSEval
d0f0: 46 69 6c 65 45 78 2c 20 2f 2a 20 35 31 38 20 2a  FileEx, /* 518 *
d100: 2f 0a 20 20 20 20 20 54 63 6c 5f 53 65 74 45 78  /.     Tcl_SetEx
d110: 69 74 50 72 6f 63 2c 20 2f 2a 20 35 31 39 20 2a  itProc, /* 519 *
d120: 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74  /.+    Tcl_Limit
d130: 41 64 64 48 61 6e 64 6c 65 72 2c 20 2f 2a 20 35  AddHandler, /* 5
d140: 32 30 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c  20 */.+    Tcl_L
d150: 69 6d 69 74 52 65 6d 6f 76 65 48 61 6e 64 6c 65  imitRemoveHandle
d160: 72 2c 20 2f 2a 20 35 32 31 20 2a 2f 0a 2b 20 20  r, /* 521 */.+  
d170: 20 20 54 63 6c 5f 4c 69 6d 69 74 52 65 61 64 79    Tcl_LimitReady
d180: 2c 20 2f 2a 20 35 32 32 20 2a 2f 0a 2b 20 20 20  , /* 522 */.+   
d190: 20 54 63 6c 5f 4c 69 6d 69 74 43 68 65 63 6b 2c   Tcl_LimitCheck,
d1a0: 20 2f 2a 20 35 32 33 20 2a 2f 0a 2b 20 20 20 20   /* 523 */.+    
d1b0: 54 63 6c 5f 4c 69 6d 69 74 45 78 63 65 65 64 65  Tcl_LimitExceede
d1c0: 64 2c 20 2f 2a 20 35 32 34 20 2a 2f 0a 2b 20 20  d, /* 524 */.+  
d1d0: 20 20 54 63 6c 5f 4c 69 6d 69 74 53 65 74 43 6f    Tcl_LimitSetCo
d1e0: 6d 6d 61 6e 64 73 2c 20 2f 2a 20 35 32 35 20 2a  mmands, /* 525 *
d1f0: 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74  /.+    Tcl_Limit
d200: 53 65 74 54 69 6d 65 2c 20 2f 2a 20 35 32 36 20  SetTime, /* 526 
d210: 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69  */.+    Tcl_Limi
d220: 74 53 65 74 47 72 61 6e 75 6c 61 72 69 74 79 2c  tSetGranularity,
d230: 20 2f 2a 20 35 32 37 20 2a 2f 0a 2b 20 20 20 20   /* 527 */.+    
d240: 54 63 6c 5f 4c 69 6d 69 74 54 79 70 65 45 6e 61  Tcl_LimitTypeEna
d250: 62 6c 65 64 2c 20 2f 2a 20 35 32 38 20 2a 2f 0a  bled, /* 528 */.
d260: 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 54 79  +    Tcl_LimitTy
d270: 70 65 45 78 63 65 65 64 65 64 2c 20 2f 2a 20 35  peExceeded, /* 5
d280: 32 39 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f 4c  29 */.+    Tcl_L
d290: 69 6d 69 74 54 79 70 65 53 65 74 2c 20 2f 2a 20  imitTypeSet, /* 
d2a0: 35 33 30 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 5f  530 */.+    Tcl_
d2b0: 4c 69 6d 69 74 54 79 70 65 52 65 73 65 74 2c 20  LimitTypeReset, 
d2c0: 2f 2a 20 35 33 31 20 2a 2f 0a 2b 20 20 20 20 54  /* 531 */.+    T
d2d0: 63 6c 5f 4c 69 6d 69 74 47 65 74 43 6f 6d 6d 61  cl_LimitGetComma
d2e0: 6e 64 73 2c 20 2f 2a 20 35 33 32 20 2a 2f 0a 2b  nds, /* 532 */.+
d2f0: 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 47 65 74      Tcl_LimitGet
d300: 54 69 6d 65 2c 20 2f 2a 20 35 33 33 20 2a 2f 0a  Time, /* 533 */.
d310: 2b 20 20 20 20 54 63 6c 5f 4c 69 6d 69 74 47 65  +    Tcl_LimitGe
d320: 74 47 72 61 6e 75 6c 61 72 69 74 79 2c 20 2f 2a  tGranularity, /*
d330: 20 35 33 34 20 2a 2f 0a 20 7d 3b 0a 20 0a 20 2f   534 */. };. . /
d340: 2a 20 21 45 4e 44 21 3a 20 44 6f 20 6e 6f 74 20  * !END!: Do not 
d350: 65 64 69 74 20 61 62 6f 76 65 20 74 68 69 73 20  edit above this 
d360: 6c 69 6e 65 2e 20 2a 2f 0a 49 6e 64 65 78 3a 20  line. */.Index: 
d370: 67 65 6e 65 72 69 63 2f 74 63 6c 54 72 61 63 65  generic/tclTrace
d380: 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .c.=============
d390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
d3a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
d3b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
d3c0: 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a  ======.RCS file:
d3d0: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63   /cvsroot/tcl/tc
d3e0: 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 54 72 61  l/generic/tclTra
d3f0: 63 65 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e  ce.c,v.retrievin
d400: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 39 0a 64  g revision 1.9.d
d410: 69 66 66 20 2d 75 20 2d 62 20 2d 42 20 2d 72 31  iff -u -b -B -r1
d420: 2e 39 20 74 63 6c 54 72 61 63 65 2e 63 0a 2d 2d  .9 tclTrace.c.--
d430: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 54 72 61  - generic/tclTra
d440: 63 65 2e 63 09 31 20 4d 61 72 20 32 30 30 34 20  ce.c.1 Mar 2004 
d450: 31 37 3a 33 33 3a 34 35 20 2d 30 30 30 30 09 31  17:33:45 -0000.1
d460: 2e 39 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74  .9.+++ generic/t
d470: 63 6c 54 72 61 63 65 2e 63 09 31 39 20 41 70 72  clTrace.c.19 Apr
d480: 20 32 30 30 34 20 32 32 3a 31 38 3a 33 35 20 2d   2004 22:18:35 -
d490: 30 30 30 30 0a 40 40 20 2d 31 32 39 35 2c 37 20  0000.@@ -1295,7 
d4a0: 2b 31 32 39 35 2c 38 20 40 40 0a 20 20 20 20 20  +1295,8 @@.     
d4b0: 0a 20 20 20 20 20 74 63 6d 64 50 74 72 2d 3e 72  .     tcmdPtr->r
d4c0: 65 66 43 6f 75 6e 74 2b 2b 3b 0a 20 20 20 20 20  efCount++;.     
d4d0: 0a 2d 20 20 20 20 69 66 20 28 28 74 63 6d 64 50  .-    if ((tcmdP
d4e0: 74 72 2d 3e 66 6c 61 67 73 20 26 20 66 6c 61 67  tr->flags & flag
d4f0: 73 29 20 26 26 20 21 28 66 6c 61 67 73 20 26 20  s) && !(flags & 
d500: 54 43 4c 5f 49 4e 54 45 52 50 5f 44 45 53 54 52  TCL_INTERP_DESTR
d510: 4f 59 45 44 29 29 20 7b 0a 2b 20 20 20 20 69 66  OYED)) {.+    if
d520: 20 28 28 74 63 6d 64 50 74 72 2d 3e 66 6c 61 67   ((tcmdPtr->flag
d530: 73 20 26 20 66 6c 61 67 73 29 20 26 26 20 21 28  s & flags) && !(
d540: 66 6c 61 67 73 20 26 20 54 43 4c 5f 49 4e 54 45  flags & TCL_INTE
d550: 52 50 5f 44 45 53 54 52 4f 59 45 44 29 0a 2b 09  RP_DESTROYED).+.
d560: 20 20 20 20 26 26 20 21 54 63 6c 5f 4c 69 6d 69      && !Tcl_Limi
d570: 74 45 78 63 65 65 64 65 64 28 69 6e 74 65 72 70  tExceeded(interp
d580: 29 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 47  )) {. ./*. . * G
d590: 65 6e 65 72 61 74 65 20 61 20 63 6f 6d 6d 61 6e  enerate a comman
d5a0: 64 20 74 6f 20 65 78 65 63 75 74 65 20 62 79 20  d to execute by 
d5b0: 61 70 70 65 6e 64 69 6e 67 20 6c 69 73 74 20 65  appending list e
d5c0: 6c 65 6d 65 6e 74 73 0a 20 09 20 2a 20 66 6f 72  lements. . * for
d5d0: 20 74 68 65 20 6f 6c 64 20 61 6e 64 20 6e 65 77   the old and new
d5e0: 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 61 6e   command name an
d5f0: 64 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2e  d the operation.
d600: 0a 40 40 20 2d 31 33 33 33 2c 36 20 2b 31 33 33  .@@ -1333,6 +133
d610: 34 2c 37 20 40 40 0a 20 09 09 54 63 6c 5f 44 53  4,7 @@. ..Tcl_DS
d620: 74 72 69 6e 67 4c 65 6e 67 74 68 28 26 63 6d 64  tringLength(&cmd
d630: 29 2c 20 30 29 3b 0a 20 09 69 66 20 28 63 6f 64  ), 0);. .if (cod
d640: 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 09 20  e != TCL_OK) {. 
d650: 20 20 20 20 0a 20 09 20 20 20 20 2f 2a 20 57 65      . .    /* We
d660: 20 69 67 6e 6f 72 65 20 65 72 72 6f 72 73 20 69   ignore errors i
d670: 6e 20 74 68 65 73 65 20 74 72 61 63 65 64 20 63  n these traced c
d680: 6f 6d 6d 61 6e 64 73 20 2a 2f 0a 2b 09 20 20 20  ommands */.+.   
d690: 20 2f 2a 2a 2a 20 51 55 45 53 54 49 4f 4e 3a 20   /*** QUESTION: 
d6a0: 55 73 65 20 54 63 6c 5f 42 61 63 6b 67 72 6f 75  Use Tcl_Backgrou
d6b0: 6e 64 45 72 72 6f 72 28 69 6e 74 65 72 70 29 3b  ndError(interp);
d6c0: 20 69 6e 73 74 65 61 64 3f 20 2a 2a 2a 2f 0a 20   instead? ***/. 
d6d0: 09 7d 0a 20 0a 20 09 54 63 6c 5f 52 65 73 74 6f  .}. . .Tcl_Resto
d6e0: 72 65 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  reResult(interp,
d6f0: 20 26 73 74 61 74 65 29 3b 0a 40 40 20 2d 31 37   &state);.@@ -17
d700: 32 38 2c 37 20 2b 31 37 33 30 2c 37 20 40 40 0a  28,7 +1730,7 @@.
d710: 20 09 72 65 74 75 72 6e 20 74 72 61 63 65 43 6f   .return traceCo
d720: 64 65 3b 0a 20 20 20 20 20 7d 0a 20 20 20 20 20  de;.     }.     
d730: 0a 2d 20 20 20 20 69 66 20 28 21 28 66 6c 61 67  .-    if (!(flag
d740: 73 20 26 20 54 43 4c 5f 49 4e 54 45 52 50 5f 44  s & TCL_INTERP_D
d750: 45 53 54 52 4f 59 45 44 29 29 20 7b 0a 2b 20 20  ESTROYED)) {.+  
d760: 20 20 69 66 20 28 21 28 66 6c 61 67 73 20 26 20    if (!(flags & 
d770: 54 43 4c 5f 49 4e 54 45 52 50 5f 44 45 53 54 52  TCL_INTERP_DESTR
d780: 4f 59 45 44 29 20 26 26 20 21 54 63 6c 5f 4c 69  OYED) && !Tcl_Li
d790: 6d 69 74 45 78 63 65 65 64 65 64 28 69 6e 74 65  mitExceeded(inte
d7a0: 72 70 29 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a  rp)) {. ./*. . *
d7b0: 20 43 68 65 63 6b 20 77 68 65 74 68 65 72 20 74   Check whether t
d7c0: 68 65 20 63 75 72 72 65 6e 74 20 63 61 6c 6c 20  he current call 
d7d0: 69 73 20 67 6f 69 6e 67 20 74 6f 20 65 76 61 6c  is going to eval
d7e0: 20 61 72 62 69 74 72 61 72 79 0a 20 09 20 2a 20   arbitrary. . * 
d7f0: 54 63 6c 20 63 6f 64 65 20 77 69 74 68 20 61 20  Tcl code with a 
d800: 67 65 6e 65 72 61 74 65 64 20 74 72 61 63 65 2c  generated trace,
d810: 20 6f 72 20 77 68 65 74 68 65 72 20 77 65 20 61   or whether we a
d820: 72 65 20 6f 6e 6c 79 0a 40 40 20 2d 31 39 33 38  re only.@@ -1938
d830: 2c 37 20 2b 31 39 34 30 2c 38 20 40 40 0a 20 20  ,7 +1940,8 @@.  
d840: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28     Tcl_Preserve(
d850: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 74 76 61  (ClientData) tva
d860: 72 50 74 72 29 3b 0a 20 0a 20 20 20 20 20 72 65  rPtr);. .     re
d870: 73 75 6c 74 20 3d 20 4e 55 4c 4c 3b 0a 2d 20 20  sult = NULL;.-  
d880: 20 20 69 66 20 28 28 74 76 61 72 50 74 72 2d 3e    if ((tvarPtr->
d890: 66 6c 61 67 73 20 26 20 66 6c 61 67 73 29 20 26  flags & flags) &
d8a0: 26 20 21 28 66 6c 61 67 73 20 26 20 54 43 4c 5f  & !(flags & TCL_
d8b0: 49 4e 54 45 52 50 5f 44 45 53 54 52 4f 59 45 44  INTERP_DESTROYED
d8c0: 29 29 20 7b 0a 2b 20 20 20 20 69 66 20 28 28 74  )) {.+    if ((t
d8d0: 76 61 72 50 74 72 2d 3e 66 6c 61 67 73 20 26 20  varPtr->flags & 
d8e0: 66 6c 61 67 73 29 20 26 26 20 21 28 66 6c 61 67  flags) && !(flag
d8f0: 73 20 26 20 54 43 4c 5f 49 4e 54 45 52 50 5f 44  s & TCL_INTERP_D
d900: 45 53 54 52 4f 59 45 44 29 0a 2b 09 20 20 20 20  ESTROYED).+.    
d910: 26 26 20 21 54 63 6c 5f 4c 69 6d 69 74 45 78 63  && !Tcl_LimitExc
d920: 65 65 64 65 64 28 69 6e 74 65 72 70 29 29 20 7b  eeded(interp)) {
d930: 0a 20 09 69 66 20 28 74 76 61 72 50 74 72 2d 3e  . .if (tvarPtr->
d940: 6c 65 6e 67 74 68 20 21 3d 20 28 73 69 7a 65 5f  length != (size_
d950: 74 29 20 30 29 20 7b 0a 20 09 20 20 20 20 2f 2a  t) 0) {. .    /*
d960: 0a 20 09 20 20 20 20 20 2a 20 47 65 6e 65 72 61  . .     * Genera
d970: 74 65 20 61 20 63 6f 6d 6d 61 6e 64 20 74 6f 20  te a command to 
d980: 65 78 65 63 75 74 65 20 62 79 20 61 70 70 65 6e  execute by appen
d990: 64 69 6e 67 20 6c 69 73 74 20 65 6c 65 6d 65 6e  ding list elemen
d9a0: 74 73 0a                                         ts.