Hex Artifact Content

Artifact 95a5c09a03d95bea7071d6b6cbf846a739c79cc5:


0000: 64 69 66 66 20 2d 75 4e 72 20 6d 65 74 61 6b 69  diff -uNr metaki
0010: 74 2d 32 2e 34 2e 39 2e 37 2e 6f 72 69 67 2f 74  t-2.4.9.7.orig/t
0020: 63 6c 2f 6d 6b 34 74 63 6c 2e 63 70 70 20 6d 65  cl/mk4tcl.cpp me
0030: 74 61 6b 69 74 2d 32 2e 34 2e 39 2e 37 2d 31 70  takit-2.4.9.7-1p
0040: 74 72 73 6b 2f 74 63 6c 2f 6d 6b 34 74 63 6c 2e  trsk/tcl/mk4tcl.
0050: 63 70 70 0a 2d 2d 2d 20 6d 65 74 61 6b 69 74 2d  cpp.--- metakit-
0060: 32 2e 34 2e 39 2e 37 2e 6f 72 69 67 2f 74 63 6c  2.4.9.7.orig/tcl
0070: 2f 6d 6b 34 74 63 6c 2e 63 70 70 09 32 30 30 37  /mk4tcl.cpp.2007
0080: 2d 30 36 2d 31 38 20 31 36 3a 30 35 3a 32 34 2e  -06-18 16:05:24.
0090: 30 30 30 30 30 30 30 30 30 20 2d 30 35 30 30 0a  000000000 -0500.
00a0: 2b 2b 2b 20 6d 65 74 61 6b 69 74 2d 32 2e 34 2e  +++ metakit-2.4.
00b0: 39 2e 37 2d 31 70 74 72 73 6b 2f 74 63 6c 2f 6d  9.7-1ptrsk/tcl/m
00c0: 6b 34 74 63 6c 2e 63 70 70 09 32 30 31 30 2d 31  k4tcl.cpp.2010-1
00d0: 30 2d 31 38 20 30 39 3a 30 39 3a 32 38 2e 30 30  0-18 09:09:28.00
00e0: 30 30 30 30 30 30 30 20 2d 30 35 30 30 0a 40 40  0000000 -0500.@@
00f0: 20 2d 31 38 32 2c 31 31 20 2b 31 38 32 2c 31 34   -182,11 +182,14
0100: 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 43 68 61   @@.     Tcl_Cha
0110: 6e 6e 65 6c 20 5f 63 68 61 6e 3b 0a 20 20 20 20  nnel _chan;.    
0120: 20 69 6e 74 20 5f 76 61 6c 69 64 4d 61 73 6b 3b   int _validMask;
0130: 0a 20 20 20 20 20 69 6e 74 20 5f 77 61 74 63 68  .     int _watch
0140: 4d 61 73 6b 3b 0a 2b 20 20 20 20 69 6e 74 20 5f  Mask;.+    int _
0150: 66 6c 61 67 73 3b 0a 2b 20 20 20 20 53 69 61 73  flags;.+    Sias
0160: 53 74 72 61 74 65 67 79 20 2a 5f 6e 65 78 74 3b  Strategy *_next;
0170: 0a 2b 20 20 20 20 4d 6b 57 6f 72 6b 73 70 61 63  .+    MkWorkspac
0180: 65 20 2a 5f 77 6f 72 6b 73 70 61 63 65 3b 0a 20  e *_workspace;. 
0190: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a      Tcl_Interp *
01a0: 5f 69 6e 74 65 72 70 3b 0a 20 0a 20 20 20 20 20  _interp;. .     
01b0: 53 69 61 73 53 74 72 61 74 65 67 79 28 63 34 5f  SiasStrategy(c4_
01c0: 53 74 6f 72 61 67 65 20 26 73 74 6f 72 61 67 65  Storage &storage
01d0: 5f 2c 20 63 6f 6e 73 74 20 63 34 5f 56 69 65 77  _, const c4_View
01e0: 20 26 76 69 65 77 5f 2c 20 63 6f 6e 73 74 20 63   &view_, const c
01f0: 34 5f 42 79 74 65 73 50 72 6f 70 0a 20 20 20 20  4_BytesProp.    
0200: 20 20 20 26 6d 65 6d 6f 5f 2c 20 69 6e 74 20 72     &memo_, int r
0210: 6f 77 5f 29 3a 20 5f 73 74 6f 72 61 67 65 28 73  ow_): _storage(s
0220: 74 6f 72 61 67 65 5f 29 2c 20 5f 76 69 65 77 28  torage_), _view(
0230: 76 69 65 77 5f 29 2c 20 5f 6d 65 6d 6f 28 6d 65  view_), _memo(me
0240: 6d 6f 5f 29 2c 20 5f 72 6f 77 0a 2d 20 20 20 20  mo_), _row.-    
0250: 20 20 28 72 6f 77 5f 29 2c 20 5f 70 6f 73 69 74    (row_), _posit
0260: 69 6f 6e 28 30 29 2c 20 5f 69 6e 74 65 72 70 28  ion(0), _interp(
0270: 30 29 20 7b 0a 2b 20 20 20 20 20 20 28 72 6f 77  0) {.+      (row
0280: 5f 29 2c 20 5f 70 6f 73 69 74 69 6f 6e 28 30 29  _), _position(0)
0290: 2c 20 5f 69 6e 74 65 72 70 28 30 29 2c 20 5f 6e  , _interp(0), _n
02a0: 65 78 74 28 30 29 2c 20 5f 77 6f 72 6b 73 70 61  ext(0), _workspa
02b0: 63 65 28 30 29 20 7b 0a 20 20 20 20 20 20 20 20  ce(0) {.        
02c0: 20 2f 2f 20 73 65 74 20 75 70 20 6d 61 70 70 69   // set up mappi
02d0: 6e 67 20 69 66 20 74 68 65 20 6d 65 6d 6f 20 69  ng if the memo i
02e0: 74 73 65 6c 66 20 69 73 20 6d 61 70 70 65 64 20  tself is mapped 
02f0: 69 6e 20 69 74 73 20 65 6e 74 69 72 65 74 79 0a  in its entirety.
0300: 20 20 20 20 20 20 20 20 20 63 34 5f 53 74 72 61           c4_Stra
0310: 74 65 67 79 20 26 73 74 72 61 74 20 3d 20 73 74  tegy &strat = st
0320: 6f 72 61 67 65 5f 2e 53 74 72 61 74 65 67 79 28  orage_.Strategy(
0330: 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 28  );.         if (
0340: 73 74 72 61 74 2e 5f 6d 61 70 53 74 61 72 74 20  strat._mapStart 
0350: 21 3d 20 30 29 20 7b 0a 40 40 20 2d 32 35 39 2c  != 0) {.@@ -259,
0360: 32 33 20 2b 32 36 32 2c 35 37 20 40 40 0a 20 2f  23 +262,57 @@. /
0370: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0380: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0390: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
03a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
03b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 20  //////////////. 
03c0: 2f 2f 20 4e 65 77 20 69 6e 20 31 2e 32 3a 20 63  // New in 1.2: c
03d0: 68 61 6e 6e 65 6c 20 69 6e 74 65 72 66 61 63 65  hannel interface
03e0: 20 74 6f 20 6d 65 6d 6f 20 66 69 65 6c 64 73 0a   to memo fields.
03f0: 20 0a 2d 74 79 70 65 64 65 66 20 53 69 61 73 53   .-typedef SiasS
0400: 74 72 61 74 65 67 79 20 4d 6b 43 68 61 6e 6e 65  trategy MkChanne
0410: 6c 3b 0a 2d 0a 20 74 79 70 65 64 65 66 20 73 74  l;.-. typedef st
0420: 72 75 63 74 20 7b 0a 20 20 20 54 63 6c 5f 45 76  ruct {.   Tcl_Ev
0430: 65 6e 74 20 68 65 61 64 65 72 3b 0a 20 20 20 4d  ent header;.   M
0440: 6b 43 68 61 6e 6e 65 6c 20 2a 63 68 61 6e 3b 0a  kChannel *chan;.
0450: 2b 20 20 69 6e 74 20 66 6c 61 67 73 3b 0a 20 7d  +  int flags;. }
0460: 20 4d 6b 45 76 65 6e 74 3b 0a 20 0a 2b 23 64 65   MkEvent;. .+#de
0470: 66 69 6e 65 20 43 48 41 4e 4e 45 4c 5f 46 4c 41  fine CHANNEL_FLA
0480: 47 5f 50 45 4e 44 49 4e 47 20 28 31 3c 3c 31 29  G_PENDING (1<<1)
0490: 0a 2b 0a 20 73 74 61 74 69 63 20 69 6e 74 20 6d  .+. static int m
04a0: 6b 45 76 65 6e 74 50 72 6f 63 28 54 63 6c 5f 45  kEventProc(Tcl_E
04b0: 76 65 6e 74 20 2a 65 76 50 74 72 2c 20 69 6e 74  vent *evPtr, int
04c0: 20 66 6c 61 67 73 29 20 7b 0a 20 20 20 4d 6b 45   flags) {.   MkE
04d0: 76 65 6e 74 20 2a 6d 65 20 3d 20 28 4d 6b 45 76  vent *me = (MkEv
04e0: 65 6e 74 2a 29 65 76 50 74 72 3b 0a 20 0a 2d 20  ent*)evPtr;. .- 
04f0: 20 69 66 20 28 21 28 66 6c 61 67 73 20 26 54 43   if (!(flags &TC
0500: 4c 5f 46 49 4c 45 5f 45 56 45 4e 54 53 29 29 0a  L_FILE_EVENTS)).
0510: 2b 20 20 69 66 20 28 21 28 66 6c 61 67 73 20 26  +  if (!(flags &
0520: 20 54 43 4c 5f 46 49 4c 45 5f 45 56 45 4e 54 53   TCL_FILE_EVENTS
0530: 29 29 0a 20 20 20 20 20 72 65 74 75 72 6e 20 30  )).     return 0
0540: 3b 0a 20 0a 2d 20 20 54 63 6c 5f 4e 6f 74 69 66  ;. .-  Tcl_Notif
0550: 79 43 68 61 6e 6e 65 6c 28 6d 65 2d 3e 63 68 61  yChannel(me->cha
0560: 6e 2d 3e 5f 63 68 61 6e 2c 20 6d 65 2d 3e 63 68  n->_chan, me->ch
0570: 61 6e 2d 3e 5f 77 61 74 63 68 4d 61 73 6b 29 3b  an->_watchMask);
0580: 0a 2b 20 20 6d 65 2d 3e 63 68 61 6e 2d 3e 5f 66  .+  me->chan->_f
0590: 6c 61 67 73 20 26 3d 20 7e 43 48 41 4e 4e 45 4c  lags &= ~CHANNEL
05a0: 5f 46 4c 41 47 5f 50 45 4e 44 49 4e 47 3b 0a 2b  _FLAG_PENDING;.+
05b0: 20 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e    Tcl_NotifyChan
05c0: 6e 65 6c 28 6d 65 2d 3e 63 68 61 6e 2d 3e 5f 63  nel(me->chan->_c
05d0: 68 61 6e 2c 20 6d 65 2d 3e 63 68 61 6e 2d 3e 5f  han, me->chan->_
05e0: 77 61 74 63 68 4d 61 73 6b 20 26 20 6d 65 2d 3e  watchMask & me->
05f0: 66 6c 61 67 73 29 3b 0a 20 20 20 72 65 74 75 72  flags);.   retur
0600: 6e 20 31 3b 0a 20 7d 0a 20 0a 2b 73 74 61 74 69  n 1;. }. .+stati
0610: 63 20 76 6f 69 64 20 53 65 74 75 70 50 72 6f 63  c void SetupProc
0620: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
0630: 6e 74 44 61 74 61 2c 20 69 6e 74 20 66 6c 61 67  ntData, int flag
0640: 73 29 20 7b 0a 2b 20 20 4d 6b 57 6f 72 6b 73 70  s) {.+  MkWorksp
0650: 61 63 65 20 2a 77 73 20 3d 20 28 4d 6b 57 6f 72  ace *ws = (MkWor
0660: 6b 73 70 61 63 65 20 2a 29 63 6c 69 65 6e 74 44  kspace *)clientD
0670: 61 74 61 3b 0a 2b 20 20 69 6e 74 20 6d 73 65 63  ata;.+  int msec
0680: 20 3d 20 31 30 30 30 30 3b 0a 2b 20 20 54 63 6c   = 10000;.+  Tcl
0690: 5f 54 69 6d 65 20 62 6c 6f 63 6b 54 69 6d 65 20  _Time blockTime 
06a0: 3d 20 7b 30 2c 20 30 7d 3b 0a 2b 20 20 69 66 20  = {0, 0};.+  if 
06b0: 28 21 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 46  (!(flags & TCL_F
06c0: 49 4c 45 5f 45 56 45 4e 54 53 29 29 0a 2b 20 20  ILE_EVENTS)).+  
06d0: 20 20 72 65 74 75 72 6e 3b 0a 2b 20 20 69 66 20    return;.+  if 
06e0: 28 77 73 2d 3e 5f 63 68 61 6e 4c 69 73 74 20 21  (ws->_chanList !
06f0: 3d 20 30 29 0a 2b 20 20 20 20 6d 73 65 63 20 3d  = 0).+    msec =
0700: 20 31 30 3b 0a 2b 20 20 62 6c 6f 63 6b 54 69 6d   10;.+  blockTim
0710: 65 2e 73 65 63 20 3d 20 6d 73 65 63 20 2f 20 31  e.sec = msec / 1
0720: 30 30 30 3b 0a 2b 20 20 62 6c 6f 63 6b 54 69 6d  000;.+  blockTim
0730: 65 2e 75 73 65 63 20 3d 20 28 6d 73 65 63 20 25  e.usec = (msec %
0740: 20 31 30 30 30 29 20 2a 20 31 30 30 30 3b 0a 2b   1000) * 1000;.+
0750: 20 20 54 63 6c 5f 53 65 74 4d 61 78 42 6c 6f 63    Tcl_SetMaxBloc
0760: 6b 54 69 6d 65 28 26 62 6c 6f 63 6b 54 69 6d 65  kTime(&blockTime
0770: 29 3b 0a 2b 7d 0a 2b 0a 2b 73 74 61 74 69 63 20  );.+}.+.+static 
0780: 76 6f 69 64 20 43 68 65 63 6b 50 72 6f 63 28 43  void CheckProc(C
0790: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
07a0: 44 61 74 61 2c 20 69 6e 74 20 66 6c 61 67 73 29  Data, int flags)
07b0: 20 7b 0a 2b 20 20 4d 6b 57 6f 72 6b 73 70 61 63   {.+  MkWorkspac
07c0: 65 20 2a 77 73 20 3d 20 28 4d 6b 57 6f 72 6b 73  e *ws = (MkWorks
07d0: 70 61 63 65 20 2a 29 63 6c 69 65 6e 74 44 61 74  pace *)clientDat
07e0: 61 3b 0a 2b 20 20 69 66 20 28 21 28 66 6c 61 67  a;.+  if (!(flag
07f0: 73 20 26 20 54 43 4c 5f 46 49 4c 45 5f 45 56 45  s & TCL_FILE_EVE
0800: 4e 54 53 29 29 0a 2b 20 20 20 20 72 65 74 75 72  NTS)).+    retur
0810: 6e 3b 0a 2b 20 20 66 6f 72 20 28 4d 6b 43 68 61  n;.+  for (MkCha
0820: 6e 6e 65 6c 20 2a 63 68 61 6e 20 3d 20 77 73 2d  nnel *chan = ws-
0830: 3e 5f 63 68 61 6e 4c 69 73 74 3b 20 63 68 61 6e  >_chanList; chan
0840: 20 21 3d 20 4e 55 4c 4c 3b 20 63 68 61 6e 20 3d   != NULL; chan =
0850: 20 63 68 61 6e 2d 3e 5f 6e 65 78 74 29 20 7b 0a   chan->_next) {.
0860: 2b 20 20 20 20 69 66 20 28 63 68 61 6e 2d 3e 5f  +    if (chan->_
0870: 77 61 74 63 68 4d 61 73 6b 20 3d 3d 20 30 29 0a  watchMask == 0).
0880: 2b 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b  +      continue;
0890: 0a 2b 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d  .+    int mask =
08a0: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 7c 20   TCL_WRITABLE | 
08b0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 2b 20  TCL_READABLE;.+ 
08c0: 20 20 20 69 66 20 28 63 68 61 6e 2d 3e 5f 77 61     if (chan->_wa
08d0: 74 63 68 4d 61 73 6b 20 26 20 6d 61 73 6b 29 20  tchMask & mask) 
08e0: 7b 0a 2b 20 20 20 20 20 20 4d 6b 45 76 65 6e 74  {.+      MkEvent
08f0: 20 2a 6d 65 20 3d 20 28 4d 6b 45 76 65 6e 74 20   *me = (MkEvent 
0900: 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66  *)ckalloc(sizeof
0910: 28 4d 6b 45 76 65 6e 74 29 29 3b 0a 2b 20 20 20  (MkEvent));.+   
0920: 20 20 20 63 68 61 6e 2d 3e 5f 66 6c 61 67 73 20     chan->_flags 
0930: 7c 3d 20 43 48 41 4e 4e 45 4c 5f 46 4c 41 47 5f  |= CHANNEL_FLAG_
0940: 50 45 4e 44 49 4e 47 3b 0a 2b 20 20 20 20 20 20  PENDING;.+      
0950: 6d 65 2d 3e 68 65 61 64 65 72 2e 70 72 6f 63 20  me->header.proc 
0960: 3d 20 6d 6b 45 76 65 6e 74 50 72 6f 63 3b 0a 2b  = mkEventProc;.+
0970: 20 20 20 20 20 20 6d 65 2d 3e 63 68 61 6e 20 3d        me->chan =
0980: 20 63 68 61 6e 3b 0a 2b 20 20 20 20 20 20 6d 65   chan;.+      me
0990: 2d 3e 66 6c 61 67 73 20 3d 20 6d 61 73 6b 3b 0a  ->flags = mask;.
09a0: 2b 20 20 20 20 20 20 54 63 6c 5f 51 75 65 75 65  +      Tcl_Queue
09b0: 45 76 65 6e 74 28 28 54 63 6c 5f 45 76 65 6e 74  Event((Tcl_Event
09c0: 20 2a 29 6d 65 2c 20 54 43 4c 5f 51 55 45 55 45   *)me, TCL_QUEUE
09d0: 5f 54 41 49 4c 29 3b 0a 2b 20 20 20 20 7d 0a 2b  _TAIL);.+    }.+
09e0: 20 20 7d 0a 2b 7d 0a 2b 0a 20 73 74 61 74 69 63    }.+}.+. static
09f0: 20 69 6e 74 20 6d 6b 45 76 65 6e 74 46 69 6c 74   int mkEventFilt
0a00: 65 72 28 54 63 6c 5f 45 76 65 6e 74 20 2a 65 76  er(Tcl_Event *ev
0a10: 50 74 72 2c 20 43 6c 69 65 6e 74 44 61 74 61 20  Ptr, ClientData 
0a20: 69 6e 73 74 61 6e 63 65 44 61 74 61 29 20 7b 0a  instanceData) {.
0a30: 20 20 20 4d 6b 45 76 65 6e 74 20 2a 6d 65 20 3d     MkEvent *me =
0a40: 20 28 4d 6b 45 76 65 6e 74 2a 29 65 76 50 74 72   (MkEvent*)evPtr
0a50: 3b 0a 20 20 20 4d 6b 43 68 61 6e 6e 65 6c 20 2a  ;.   MkChannel *
0a60: 63 68 61 6e 20 3d 20 28 4d 6b 43 68 61 6e 6e 65  chan = (MkChanne
0a70: 6c 2a 29 69 6e 73 74 61 6e 63 65 44 61 74 61 3b  l*)instanceData;
0a80: 0a 40 40 20 2d 32 38 34 2c 38 20 2b 33 32 31 2c  .@@ -284,8 +321,
0a90: 32 31 20 40 40 0a 20 0a 20 73 74 61 74 69 63 20  21 @@. . static 
0aa0: 69 6e 74 20 6d 6b 43 6c 6f 73 65 28 43 6c 69 65  int mkClose(Clie
0ab0: 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44  ntData instanceD
0ac0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20  ata, Tcl_Interp 
0ad0: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 4d 6b  *interp) {.   Mk
0ae0: 43 68 61 6e 6e 65 6c 20 2a 63 68 61 6e 20 3d 20  Channel *chan = 
0af0: 28 4d 6b 43 68 61 6e 6e 65 6c 2a 29 69 6e 73 74  (MkChannel*)inst
0b00: 61 6e 63 65 44 61 74 61 3b 0a 2b 20 20 4d 6b 57  anceData;.+  MkW
0b10: 6f 72 6b 73 70 61 63 65 20 2a 77 73 20 3d 20 63  orkspace *ws = c
0b20: 68 61 6e 2d 3e 5f 77 6f 72 6b 73 70 61 63 65 3b  han->_workspace;
0b30: 0a 2b 20 20 4d 6b 43 68 61 6e 6e 65 6c 20 2a 2a  .+  MkChannel **
0b40: 74 6d 70 50 74 72 50 74 72 20 3d 20 26 77 73 2d  tmpPtrPtr = &ws-
0b50: 3e 5f 63 68 61 6e 4c 69 73 74 3b 0a 20 0a 20 20  >_chanList;. .  
0b60: 20 54 63 6c 5f 44 65 6c 65 74 65 45 76 65 6e 74   Tcl_DeleteEvent
0b70: 73 28 6d 6b 45 76 65 6e 74 46 69 6c 74 65 72 2c  s(mkEventFilter,
0b80: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 63 68 61   (ClientData)cha
0b90: 6e 29 3b 0a 2b 0a 2b 20 20 2f 2a 20 72 65 6d 6f  n);.+.+  /* remo
0ba0: 76 65 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20  ve this channel 
0bb0: 66 72 6f 6d 20 74 68 65 20 70 61 63 6b 61 67 65  from the package
0bc0: 20 6c 69 73 74 20 2a 2f 0a 2b 20 20 77 68 69 6c   list */.+  whil
0bd0: 65 20 28 2a 74 6d 70 50 74 72 50 74 72 20 26 26  e (*tmpPtrPtr &&
0be0: 20 28 2a 74 6d 70 50 74 72 50 74 72 20 21 3d 20   (*tmpPtrPtr != 
0bf0: 63 68 61 6e 29 29 20 7b 0a 2b 20 20 20 20 74 6d  chan)) {.+    tm
0c00: 70 50 74 72 50 74 72 20 3d 20 26 28 2a 74 6d 70  pPtrPtr = &(*tmp
0c10: 50 74 72 50 74 72 29 2d 3e 5f 6e 65 78 74 3b 0a  PtrPtr)->_next;.
0c20: 2b 20 20 7d 0a 2b 20 20 69 66 20 28 2a 74 6d 70  +  }.+  if (*tmp
0c30: 50 74 72 50 74 72 20 3d 3d 20 63 68 61 6e 29 20  PtrPtr == chan) 
0c40: 7b 0a 2b 20 20 20 20 20 20 2a 74 6d 70 50 74 72  {.+      *tmpPtr
0c50: 50 74 72 20 3d 20 63 68 61 6e 2d 3e 5f 6e 65 78  Ptr = chan->_nex
0c60: 74 3b 0a 2b 20 20 20 20 20 20 63 68 61 6e 2d 3e  t;.+      chan->
0c70: 5f 6e 65 78 74 20 3d 20 30 3b 0a 2b 20 20 7d 20  _next = 0;.+  } 
0c80: 65 6c 73 65 20 7b 0a 2b 20 20 20 20 20 20 64 34  else {.+      d4
0c90: 5f 61 73 73 65 72 74 28 66 61 6c 73 65 29 3b 0a  _assert(false);.
0ca0: 2b 20 20 7d 0a 20 20 20 63 68 61 6e 2d 3e 5f 63  +  }.   chan->_c
0cb0: 68 61 6e 20 3d 20 30 3b 0a 20 20 20 64 65 6c 65  han = 0;.   dele
0cc0: 74 65 20 63 68 61 6e 3b 0a 20 0a 40 40 20 2d 37  te chan;. .@@ -7
0cd0: 32 36 2c 32 31 20 2b 37 37 36 2c 32 34 20 40 40  26,21 +776,24 @@
0ce0: 0a 20 20 20 2b 2b 67 65 6e 65 72 61 74 69 6f 6e  .   ++generation
0cf0: 3b 20 2f 2f 20 6d 61 6b 65 20 73 75 72 65 20 61  ; // make sure a
0d00: 6c 6c 20 63 61 63 68 65 64 20 70 61 74 68 73 20  ll cached paths 
0d10: 72 65 66 72 65 73 68 20 6f 6e 20 6e 65 78 74 20  refresh on next 
0d20: 61 63 63 65 73 73 0a 20 7d 0a 20 0a 2d 4d 6b 57  access. }. .-MkW
0d30: 6f 72 6b 73 70 61 63 65 3a 3a 4d 6b 57 6f 72 6b  orkspace::MkWork
0d40: 73 70 61 63 65 28 54 63 6c 5f 49 6e 74 65 72 70  space(Tcl_Interp
0d50: 20 2a 69 70 5f 29 3a 20 5f 69 6e 74 65 72 70 28   *ip_): _interp(
0d60: 69 70 5f 29 20 7b 0a 2b 4d 6b 57 6f 72 6b 73 70  ip_) {.+MkWorksp
0d70: 61 63 65 3a 3a 4d 6b 57 6f 72 6b 73 70 61 63 65  ace::MkWorkspace
0d80: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 70 5f  (Tcl_Interp *ip_
0d90: 29 3a 20 5f 69 6e 74 65 72 70 28 69 70 5f 29 2c  ): _interp(ip_),
0da0: 20 5f 63 68 61 6e 4c 69 73 74 28 30 29 20 7b 0a   _chanList(0) {.
0db0: 20 20 20 6e 65 77 20 49 74 65 6d 28 22 22 2c 20     new Item("", 
0dc0: 22 22 2c 20 30 2c 20 5f 69 74 65 6d 73 2c 20 30  "", 0, _items, 0
0dd0: 29 3b 0a 20 0a 20 20 20 2f 2f 20 6e 65 76 65 72  );. .   // never
0de0: 20 75 73 65 73 20 65 6e 74 72 79 20 7a 65 72 6f   uses entry zero
0df0: 20 28 73 6f 20 61 74 6f 69 20 66 61 69 6c 75 72   (so atoi failur
0e00: 65 20 69 6e 20 46 6f 72 67 65 74 50 61 74 68 20  e in ForgetPath 
0e10: 69 73 20 68 61 72 6d 6c 65 73 73 29 0a 20 20 20  is harmless).   
0e20: 5f 75 73 65 64 52 6f 77 73 20 3d 20 5f 75 73 65  _usedRows = _use
0e30: 64 42 75 66 66 65 72 2e 53 65 74 42 75 66 66 65  dBuffer.SetBuffe
0e40: 72 43 6c 65 61 72 28 31 36 29 3b 20 0a 2d 20 20  rClear(16); .-  
0e50: 20 20 2f 2f 20 6e 6f 20 72 65 61 6c 6c 6f 63 20    // no realloc 
0e60: 66 6f 72 20 66 69 72 73 74 20 31 36 20 74 65 6d  for first 16 tem
0e70: 70 20 72 6f 77 73 0a 2b 20 20 2f 2f 20 6e 6f 20  p rows.+  // no 
0e80: 72 65 61 6c 6c 6f 63 20 66 6f 72 20 66 69 72 73  realloc for firs
0e90: 74 20 31 36 20 74 65 6d 70 20 72 6f 77 73 0a 20  t 16 temp rows. 
0ea0: 7d 0a 20 0a 20 4d 6b 57 6f 72 6b 73 70 61 63 65  }. . MkWorkspace
0eb0: 3a 3a 7e 4d 6b 57 6f 72 6b 73 70 61 63 65 28 29  ::~MkWorkspace()
0ec0: 20 7b 0a 20 20 20 43 6c 65 61 6e 75 70 43 6f 6d   {.   CleanupCom
0ed0: 6d 61 6e 64 73 28 29 3b 0a 20 0a 2b 20 20 64 34  mands();. .+  d4
0ee0: 5f 61 73 73 65 72 74 28 5f 63 68 61 6e 4c 69 73  _assert(_chanLis
0ef0: 74 20 3d 3d 20 30 29 3b 0a 2b 0a 20 20 20 66 6f  t == 0);.+.   fo
0f00: 72 20 28 69 6e 74 20 69 20 3d 20 5f 69 74 65 6d  r (int i = _item
0f10: 73 2e 47 65 74 53 69 7a 65 28 29 3b 20 2d 2d 69  s.GetSize(); --i
0f20: 20 3e 3d 20 30 3b 29 0a 20 20 20 20 20 64 65 6c   >= 0;).     del
0f30: 65 74 65 20 4e 74 68 28 69 29 3b 0a 20 0a 20 20  ete Nth(i);. .  
0f40: 20 2f 2f 20 6e 65 65 64 20 74 68 69 73 20 74 6f   // need this to
0f50: 20 70 72 65 76 65 6e 74 20 72 65 63 75 72 73 69   prevent recursi
0f60: 6f 6e 20 69 6e 20 54 63 6c 5f 44 65 6c 65 74 65  on in Tcl_Delete
0f70: 41 73 73 6f 63 44 61 74 61 20 69 6e 20 38 2e 32  AssocData in 8.2
0f80: 20 28 6e 6f 74 20 38 2e 30 21 29 0a 2b 20 20 54   (not 8.0!).+  T
0f90: 63 6c 5f 44 65 6c 65 74 65 45 76 65 6e 74 53 6f  cl_DeleteEventSo
0fa0: 75 72 63 65 28 53 65 74 75 70 50 72 6f 63 2c 20  urce(SetupProc, 
0fb0: 43 68 65 63 6b 50 72 6f 63 2c 20 74 68 69 73 29  CheckProc, this)
0fc0: 3b 0a 20 20 20 54 63 6c 5f 53 65 74 41 73 73 6f  ;.   Tcl_SetAsso
0fd0: 63 44 61 74 61 28 5f 69 6e 74 65 72 70 2c 20 22  cData(_interp, "
0fe0: 6d 6b 34 74 63 6c 22 2c 20 30 2c 20 30 29 3b 0a  mk4tcl", 0, 0);.
0ff0: 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 41 73 73     Tcl_DeleteAss
1000: 6f 63 44 61 74 61 28 5f 69 6e 74 65 72 70 2c 20  ocData(_interp, 
1010: 22 6d 6b 34 74 63 6c 22 29 3b 0a 20 7d 0a 40 40  "mk4tcl");. }.@@
1020: 20 2d 32 33 37 31 2c 36 20 2b 32 34 32 34 2c 37   -2371,6 +2424,7
1030: 20 40 40 0a 20 0a 20 20 20 6d 6b 43 68 61 6e 2d   @@. .   mkChan-
1040: 3e 5f 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b  >_watchMask = 0;
1050: 0a 20 20 20 6d 6b 43 68 61 6e 2d 3e 5f 76 61 6c  .   mkChan->_val
1060: 69 64 4d 61 73 6b 20 3d 20 6d 6f 64 65 3b 0a 2b  idMask = mode;.+
1070: 20 20 6d 6b 43 68 61 6e 2d 3e 5f 66 6c 61 67 73    mkChan->_flags
1080: 20 3d 20 30 3b 0a 20 20 20 6d 6b 43 68 61 6e 2d   = 0;.   mkChan-
1090: 3e 5f 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72  >_interp = inter
10a0: 70 3b 0a 20 20 20 6d 6b 43 68 61 6e 2d 3e 5f 63  p;.   mkChan->_c
10b0: 68 61 6e 20 3d 20 54 63 6c 5f 43 72 65 61 74 65  han = Tcl_Create
10c0: 43 68 61 6e 6e 65 6c 28 26 6d 6b 43 68 61 6e 6e  Channel(&mkChann
10d0: 65 6c 54 79 70 65 2c 20 62 75 66 66 65 72 2c 20  elType, buffer, 
10e0: 28 43 6c 69 65 6e 74 44 61 74 61 29 6d 6b 43 68  (ClientData)mkCh
10f0: 61 6e 2c 0a 20 20 20 20 20 6d 6f 64 65 29 3b 0a  an,.     mode);.
1100: 40 40 20 2d 32 33 38 33 2c 36 20 2b 32 34 33 37  @@ -2383,6 +2437
1110: 2c 31 31 20 40 40 0a 20 20 20 69 66 20 28 5f 65  ,11 @@.   if (_e
1120: 72 72 6f 72 29 0a 20 20 20 20 20 72 65 74 75 72  rror).     retur
1130: 6e 20 5f 65 72 72 6f 72 3b 0a 20 0a 2b 20 20 2f  n _error;. .+  /
1140: 2a 20 69 6e 73 65 72 74 20 74 68 69 73 20 63 68  * insert this ch
1150: 61 6e 6e 65 6c 20 61 74 20 74 68 65 20 66 72 6f  annel at the fro
1160: 6e 74 20 6f 66 20 74 68 65 20 77 6f 72 6b 73 70  nt of the worksp
1170: 61 63 65 20 63 68 61 6e 6e 65 6c 73 20 6c 69 73  ace channels lis
1180: 74 20 2a 2f 0a 2b 20 20 6d 6b 43 68 61 6e 2d 3e  t */.+  mkChan->
1190: 5f 77 6f 72 6b 73 70 61 63 65 20 3d 20 26 77 6f  _workspace = &wo
11a0: 72 6b 3b 0a 2b 20 20 6d 6b 43 68 61 6e 2d 3e 5f  rk;.+  mkChan->_
11b0: 6e 65 78 74 20 3d 20 77 6f 72 6b 2e 5f 63 68 61  next = work._cha
11c0: 6e 4c 69 73 74 3b 0a 2b 20 20 77 6f 72 6b 2e 5f  nList;.+  work._
11d0: 63 68 61 6e 4c 69 73 74 20 3d 20 6d 6b 43 68 61  chanList = mkCha
11e0: 6e 3b 0a 2b 0a 20 20 20 4b 65 65 70 52 65 66 20  n;.+.   KeepRef 
11f0: 6f 20 3d 20 74 63 6c 5f 4e 65 77 53 74 72 69 6e  o = tcl_NewStrin
1200: 67 4f 62 6a 28 62 75 66 66 65 72 29 3b 0a 20 20  gObj(buffer);.  
1210: 20 72 65 74 75 72 6e 20 74 63 6c 5f 53 65 74 4f   return tcl_SetO
1220: 62 6a 52 65 73 75 6c 74 28 6f 29 3b 0a 20 7d 0a  bjResult(o);. }.
1230: 40 40 20 2d 32 35 37 39 2c 36 20 2b 32 36 33 38  @@ -2579,6 +2638
1240: 2c 37 20 40 40 0a 20 7d 0a 20 0a 20 73 74 61 74  ,7 @@. }. . stat
1250: 69 63 20 76 6f 69 64 20 45 78 69 74 50 72 6f 63  ic void ExitProc
1260: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 64 5f 29  (ClientData cd_)
1270: 20 7b 0a 2b 20 20 54 63 6c 5f 44 65 6c 65 74 65   {.+  Tcl_Delete
1280: 45 76 65 6e 74 53 6f 75 72 63 65 28 53 65 74 75  EventSource(Setu
1290: 70 50 72 6f 63 2c 20 43 68 65 63 6b 50 72 6f 63  pProc, CheckProc
12a0: 2c 20 63 64 5f 29 3b 0a 20 20 20 64 65 6c 65 74  , cd_);.   delet
12b0: 65 20 28 4d 6b 57 6f 72 6b 73 70 61 63 65 2a 29  e (MkWorkspace*)
12c0: 63 64 5f 3b 0a 20 7d 0a 20 0a 40 40 20 2d 32 36  cd_;. }. .@@ -26
12d0: 30 33 2c 36 20 2b 32 36 36 33 2c 37 20 40 40 0a  03,6 +2663,7 @@.
12e0: 20 20 20 20 20 2f 2f 20 73 69 6e 63 65 20 74 68       // since th
12f0: 61 74 20 64 6f 65 73 20 6e 6f 74 20 73 65 65 6d  at does not seem
1300: 20 74 6f 20 74 72 69 67 67 65 72 20 65 78 69 74   to trigger exit
1310: 70 72 6f 63 20 68 61 6e 64 6c 69 6e 67 20 28 21  proc handling (!
1320: 29 0a 20 20 20 20 20 54 63 6c 5f 53 65 74 41 73  ).     Tcl_SetAs
1330: 73 6f 63 44 61 74 61 28 69 6e 74 65 72 70 2c 20  socData(interp, 
1340: 22 6d 6b 34 74 63 6c 22 2c 20 44 65 6c 50 72 6f  "mk4tcl", DelPro
1350: 63 2c 20 77 73 29 3b 0a 20 20 20 20 20 54 63 6c  c, ws);.     Tcl
1360: 5f 43 72 65 61 74 65 45 78 69 74 48 61 6e 64 6c  _CreateExitHandl
1370: 65 72 28 45 78 69 74 50 72 6f 63 2c 20 77 73 29  er(ExitProc, ws)
1380: 3b 0a 2b 20 20 20 20 54 63 6c 5f 43 72 65 61 74  ;.+    Tcl_Creat
1390: 65 45 76 65 6e 74 53 6f 75 72 63 65 28 53 65 74  eEventSource(Set
13a0: 75 70 50 72 6f 63 2c 20 43 68 65 63 6b 50 72 6f  upProc, CheckPro
13b0: 63 2c 20 77 73 29 3b 0a 20 20 20 7d 0a 20 0a 20  c, ws);.   }. . 
13c0: 20 20 2f 2f 20 74 68 69 73 20 6c 69 73 74 20 6d    // this list m
13d0: 75 73 74 20 6d 61 74 63 68 20 74 68 65 20 22 43  ust match the "C
13e0: 6d 64 44 65 66 20 64 65 66 54 61 62 20 5b 5d 22  mdDef defTab []"
13f0: 20 61 62 6f 76 65 2e 0a 40 40 20 2d 32 36 34 38   above..@@ -2648
1400: 2c 33 20 2b 32 37 30 39 2c 31 31 20 40 40 0a 20  ,3 +2709,11 @@. 
1410: 7d 0a 20 0a 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  }. . ///////////
1420: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1430: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1440: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1450: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1460: 2f 2f 2f 2f 0a 2b 0a 2b 2f 2a 0a 2b 20 2a 20 4c  ////.+.+/*.+ * L
1470: 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 3a 0a  ocal variables:.
1480: 2b 20 2a 20 6d 6f 64 65 3a 20 63 0a 2b 20 2a 20  + * mode: c.+ * 
1490: 63 2d 62 61 73 69 63 2d 6f 66 66 73 65 74 3a 20  c-basic-offset: 
14a0: 32 0a 2b 20 2a 20 69 6e 64 65 6e 74 2d 74 61 62  2.+ * indent-tab
14b0: 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 2b 20 2a 20  s-mode: nil.+ * 
14c0: 45 6e 64 3a 0a 2b 20 2a 2f 0a 64 69 66 66 20 2d  End:.+ */.diff -
14d0: 75 4e 72 20 6d 65 74 61 6b 69 74 2d 32 2e 34 2e  uNr metakit-2.4.
14e0: 39 2e 37 2e 6f 72 69 67 2f 74 63 6c 2f 6d 6b 34  9.7.orig/tcl/mk4
14f0: 74 63 6c 2e 68 20 6d 65 74 61 6b 69 74 2d 32 2e  tcl.h metakit-2.
1500: 34 2e 39 2e 37 2d 31 70 74 72 73 6b 2f 74 63 6c  4.9.7-1ptrsk/tcl
1510: 2f 6d 6b 34 74 63 6c 2e 68 0a 2d 2d 2d 20 6d 65  /mk4tcl.h.--- me
1520: 74 61 6b 69 74 2d 32 2e 34 2e 39 2e 37 2e 6f 72  takit-2.4.9.7.or
1530: 69 67 2f 74 63 6c 2f 6d 6b 34 74 63 6c 2e 68 09  ig/tcl/mk4tcl.h.
1540: 32 30 30 37 2d 30 36 2d 31 35 20 31 38 3a 32 36  2007-06-15 18:26
1550: 3a 34 30 2e 30 30 30 30 30 30 30 30 30 20 2d 30  :40.000000000 -0
1560: 35 30 30 0a 2b 2b 2b 20 6d 65 74 61 6b 69 74 2d  500.+++ metakit-
1570: 32 2e 34 2e 39 2e 37 2d 31 70 74 72 73 6b 2f 74  2.4.9.7-1ptrsk/t
1580: 63 6c 2f 6d 6b 34 74 63 6c 2e 68 09 32 30 31 30  cl/mk4tcl.h.2010
1590: 2d 31 30 2d 31 38 20 30 39 3a 30 39 3a 30 30 2e  -10-18 09:09:00.
15a0: 30 30 30 30 30 30 30 30 30 20 2d 30 35 30 30 0a  000000000 -0500.
15b0: 40 40 20 2d 32 30 35 2c 36 20 2b 32 30 35 2c 39  @@ -205,6 +205,9
15c0: 20 40 40 0a 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f   @@. ///////////
15d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
15e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
15f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1600: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1610: 2f 2f 2f 2f 0a 20 2f 2f 20 41 20 77 6f 72 6b 73  ////. // A works
1620: 70 61 63 65 20 6d 61 6e 61 67 65 73 20 61 20 6e  pace manages a n
1630: 75 6d 62 65 72 20 6f 66 20 73 74 6f 72 61 67 65  umber of storage
1640: 20 6f 62 6a 65 63 74 73 20 61 6e 64 20 74 68 65   objects and the
1650: 69 72 20 61 73 73 6f 63 69 61 74 65 64 20 70 61  ir associated pa
1660: 74 68 73 2e 0a 20 0a 2b 63 6c 61 73 73 20 53 69  ths.. .+class Si
1670: 61 73 53 74 72 61 74 65 67 79 3b 0a 2b 74 79 70  asStrategy;.+typ
1680: 65 64 65 66 20 53 69 61 73 53 74 72 61 74 65 67  edef SiasStrateg
1690: 79 20 4d 6b 43 68 61 6e 6e 65 6c 3b 0a 2b 0a 20  y MkChannel;.+. 
16a0: 63 6c 61 73 73 20 4d 6b 57 6f 72 6b 73 70 61 63  class MkWorkspac
16b0: 65 20 7b 0a 20 20 20 20 20 63 34 5f 50 74 72 41  e {.     c4_PtrA
16c0: 72 72 61 79 20 5f 69 74 65 6d 73 3b 20 2f 2f 20  rray _items; // 
16d0: 69 74 65 6d 73 2c 20 6f 72 20 6e 75 6c 6c 20 69  items, or null i
16e0: 66 20 72 65 6c 65 61 73 65 64 0a 20 20 20 20 20  f released.     
16f0: 63 34 5f 42 79 74 65 73 20 5f 75 73 65 64 42 75  c4_Bytes _usedBu
1700: 66 66 65 72 3b 20 2f 2f 20 62 75 66 66 65 72 2c  ffer; // buffer,
1710: 20 75 73 69 6e 67 20 31 20 62 79 74 65 20 70 65   using 1 byte pe
1720: 72 20 65 6e 74 72 79 0a 40 40 20 2d 32 31 33 2c  r entry.@@ -213,
1730: 36 20 2b 32 31 36 2c 37 20 40 40 0a 20 0a 20 20  6 +216,7 @@. .  
1740: 20 70 75 62 6c 69 63 3a 0a 20 20 20 20 20 54 63   public:.     Tc
1750: 6c 5f 49 6e 74 65 72 70 20 2a 5f 69 6e 74 65 72  l_Interp *_inter
1760: 70 3b 0a 2b 20 20 20 20 4d 6b 43 68 61 6e 6e 65  p;.+    MkChanne
1770: 6c 20 2a 5f 63 68 61 6e 4c 69 73 74 3b 0a 20 0a  l *_chanList;. .
1780: 20 20 20 20 20 73 74 72 75 63 74 20 49 74 65 6d       struct Item
1790: 20 7b 0a 20 20 20 20 20 20 20 20 20 63 6f 6e 73   {.         cons
17a0: 74 20 63 34 5f 53 74 72 69 6e 67 20 5f 6e 61 6d  t c4_String _nam
17b0: 65 3b 20 2f 2f 20 74 68 65 20 61 6c 69 61 73 20  e; // the alias 
17c0: 66 6f 72 20 74 68 69 73 20 73 74 6f 72 61 67 65  for this storage
17d0: 0a                                               .