Attachment "another-tip302.patch" to
ticket [3328635fff]
added by
chw
2018-03-08 23:36:57.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 61 66 74 65 72 Index: doc/after
0010: 2e 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .n.=============
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 0a 2d 2d 2d 20 64 6f 63 2f 61 66 =====.--- doc/af
0060: 74 65 72 2e 6e 0a 2b 2b 2b 20 64 6f 63 2f 61 66 ter.n.+++ doc/af
0070: 74 65 72 2e 6e 0a 40 40 20 2d 31 34 2c 31 30 20 ter.n.@@ -14,10
0080: 2b 31 34 2c 31 32 20 40 40 0a 20 2e 53 48 20 53 +14,12 @@. .SH S
0090: 59 4e 4f 50 53 49 53 0a 20 5c 66 42 61 66 74 65 YNOPSIS. \fBafte
00a0: 72 20 5c 66 49 6d 73 5c 66 52 0a 20 2e 73 70 0a r \fIms\fR. .sp.
00b0: 20 5c 66 42 61 66 74 65 72 20 5c 66 49 6d 73 20 \fBafter \fIms
00c0: 5c 66 52 3f 5c 66 49 73 63 72 69 70 74 20 73 63 \fR?\fIscript sc
00d0: 72 69 70 74 20 73 63 72 69 70 74 20 2e 2e 2e 5c ript script ...\
00e0: 66 52 3f 0a 20 2e 73 70 0a 2b 5c 66 42 61 66 74 fR?. .sp.+\fBaft
00f0: 65 72 20 5c 2d 61 74 20 5c 66 49 74 69 6d 65 20 er \-at \fItime
0100: 73 63 72 69 70 74 20 73 63 72 69 70 74 20 73 63 script script sc
0110: 72 69 70 74 20 2e 2e 2e 5c 66 52 0a 2b 2e 73 70 ript ...\fR.+.sp
0120: 0a 20 5c 66 42 61 66 74 65 72 20 63 61 6e 63 65 . \fBafter cance
0130: 6c 20 5c 66 49 69 64 5c 66 52 0a 20 2e 73 70 0a l \fIid\fR. .sp.
0140: 20 5c 66 42 61 66 74 65 72 20 63 61 6e 63 65 6c \fBafter cancel
0150: 20 5c 66 49 73 63 72 69 70 74 20 73 63 72 69 70 \fIscript scrip
0160: 74 20 73 63 72 69 70 74 20 2e 2e 2e 5c 66 52 0a t script ...\fR.
0170: 20 2e 73 70 0a 20 5c 66 42 61 66 74 65 72 20 69 .sp. \fBafter i
0180: 64 6c 65 20 5c 66 52 3f 5c 66 49 73 63 72 69 70 dle \fR?\fIscrip
0190: 74 20 73 63 72 69 70 74 20 73 63 72 69 70 74 20 t script script
01a0: 2e 2e 2e 5c 66 52 3f 0a 40 40 20 2d 35 30 2c 31 ...\fR?.@@ -50,1
01b0: 30 20 2b 35 32 2c 32 35 20 40 40 0a 20 49 66 20 0 +52,25 @@. If
01c0: 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 20 an error occurs
01d0: 77 68 69 6c 65 20 65 78 65 63 75 74 69 6e 67 20 while executing
01e0: 74 68 65 20 64 65 6c 61 79 65 64 20 63 6f 6d 6d the delayed comm
01f0: 61 6e 64 20 74 68 65 6e 0a 20 74 68 65 20 62 61 and then. the ba
0200: 63 6b 67 72 6f 75 6e 64 20 65 72 72 6f 72 20 77 ckground error w
0210: 69 6c 6c 20 62 65 20 72 65 70 6f 72 74 65 64 20 ill be reported
0220: 62 79 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 20 by the command.
0230: 72 65 67 69 73 74 65 72 65 64 20 77 69 74 68 20 registered with
0240: 5c 66 42 69 6e 74 65 72 70 20 62 67 65 72 72 6f \fBinterp bgerro
0250: 72 5c 66 52 2e 0a 20 54 68 65 20 5c 66 42 61 66 r\fR.. The \fBaf
0260: 74 65 72 5c 66 52 20 63 6f 6d 6d 61 6e 64 20 72 ter\fR command r
0270: 65 74 75 72 6e 73 20 61 6e 20 69 64 65 6e 74 69 eturns an identi
0280: 66 69 65 72 20 74 68 61 74 20 63 61 6e 20 62 65 fier that can be
0290: 20 75 73 65 64 0a 20 74 6f 20 63 61 6e 63 65 6c used. to cancel
02a0: 20 74 68 65 20 64 65 6c 61 79 65 64 20 63 6f 6d the delayed com
02b0: 6d 61 6e 64 20 75 73 69 6e 67 20 5c 66 42 61 66 mand using \fBaf
02c0: 74 65 72 20 63 61 6e 63 65 6c 5c 66 52 2e 0a 2b ter cancel\fR..+
02d0: 2e 54 50 0a 2b 5c 66 42 20 61 66 74 65 72 20 5c .TP.+\fB after \
02e0: 2d 61 74 20 5c 66 49 74 69 6d 65 20 73 63 72 69 -at \fItime scri
02f0: 70 74 20 73 63 72 69 70 74 20 73 63 72 69 70 74 pt script script
0300: 20 2e 2e 2e 5c 66 52 0a 2b 2e 0a 2b 54 68 69 73 ...\fR.+..+This
0310: 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 6d 20 69 73 command form is
0320: 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65 20 similar to the
0330: 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 66 6f 72 milliseconds for
0340: 6d 20 61 62 6f 76 65 20 62 75 74 0a 2b 61 72 72 m above but.+arr
0350: 61 6e 67 65 73 20 66 6f 72 20 61 20 54 63 6c 20 anges for a Tcl
0360: 63 6f 6d 6d 61 6e 64 20 74 6f 20 62 65 20 65 78 command to be ex
0370: 65 63 75 74 65 64 20 6e 6f 74 20 62 65 66 6f 72 ecuted not befor
0380: 65 20 5c 66 49 74 69 6d 65 5c 66 52 2c 0a 2b 77 e \fItime\fR,.+w
0390: 68 69 63 68 20 73 70 65 63 69 66 69 65 73 20 61 hich specifies a
03a0: 6e 20 61 62 73 6f 6c 75 74 65 20 70 6f 69 6e 74 n absolute point
03b0: 20 69 6e 20 74 69 6d 65 20 62 61 73 65 64 20 6f in time based o
03c0: 6e 20 74 68 65 20 5c 66 42 63 6c 6f 63 6b 5c 66 n the \fBclock\f
03d0: 52 0a 2b 63 6f 6d 6d 61 6e 64 2e 20 49 74 20 69 R.+command. It i
03e0: 6d 70 6c 69 65 73 20 61 20 72 65 73 6f 6c 75 74 mplies a resolut
03f0: 69 6f 6e 20 6f 66 20 6f 6e 65 20 73 65 63 6f 6e ion of one secon
0400: 64 2e 20 45 72 72 6f 72 20 68 61 6e 64 6c 69 6e d. Error handlin
0410: 67 0a 2b 61 6e 64 20 72 65 74 75 72 6e 20 76 61 g.+and return va
0420: 6c 75 65 20 61 72 65 20 69 64 65 6e 74 69 63 61 lue are identica
0430: 6c 20 74 6f 20 74 68 65 20 6d 69 6c 6c 69 73 65 l to the millise
0440: 63 6f 6e 64 20 66 6f 72 6d 20 6f 66 20 74 68 65 cond form of the
0450: 0a 2b 5c 66 42 61 66 74 65 72 5c 66 52 20 63 6f .+\fBafter\fR co
0460: 6d 6d 61 6e 64 2e 20 49 66 20 74 68 65 20 70 6c mmand. If the pl
0470: 61 74 66 6f 72 6d 20 73 75 70 70 6f 72 74 73 20 atform supports
0480: 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 6d 6f 6e some kind of mon
0490: 6f 74 6f 6e 69 63 0a 2b 63 6c 6f 63 6b 2c 20 74 otonic.+clock, t
04a0: 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6d 70 75 he initial compu
04b0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 75 tation of the du
04c0: 72 61 74 69 6f 6e 20 77 68 65 6e 20 74 68 65 20 ration when the
04d0: 73 63 72 69 70 74 20 69 73 20 74 6f 0a 2b 65 78 script is to.+ex
04e0: 65 63 75 74 65 20 69 73 20 62 61 73 65 64 20 6f ecute is based o
04f0: 6e 20 74 68 65 20 64 69 66 66 65 72 65 6e 63 65 n the difference
0500: 20 6f 66 20 74 68 65 20 77 61 6c 6c 20 74 69 6d of the wall tim
0510: 65 20 74 6f 20 74 68 65 20 6d 6f 6e 6f 74 6f 6e e to the monoton
0520: 69 63 0a 2b 63 6c 6f 63 6b 20 73 6f 75 72 63 65 ic.+clock source
0530: 20 61 74 20 63 6f 6d 6d 61 6e 64 20 65 76 61 6c at command eval
0540: 75 61 74 69 6f 6e 2e 20 53 68 6f 75 6c 64 20 74 uation. Should t
0550: 68 65 20 77 61 6c 6c 20 74 69 6d 65 20 63 68 61 he wall time cha
0560: 6e 67 65 0a 2b 75 6e 74 69 6c 20 74 68 61 74 20 nge.+until that
0570: 69 6e 69 74 69 61 6c 20 64 75 72 61 74 69 6f 6e initial duration
0580: 20 65 78 70 69 72 65 73 2c 20 74 68 65 20 74 69 expires, the ti
0590: 6d 65 20 74 6f 20 65 78 65 63 75 74 65 20 74 68 me to execute th
05a0: 65 20 73 63 72 69 70 74 0a 2b 69 73 20 72 65 63 e script.+is rec
05b0: 6f 6d 70 75 74 65 64 20 62 61 73 65 64 20 6f 6e omputed based on
05c0: 20 74 68 65 20 6e 65 77 20 77 61 6c 6c 20 74 69 the new wall ti
05d0: 6d 65 20 61 6e 64 20 74 68 65 20 74 69 6d 65 72 me and the timer
05e0: 20 69 73 20 72 65 73 74 61 72 74 65 64 0a 2b 74 is restarted.+t
05f0: 6f 20 66 69 74 20 74 68 65 20 6e 65 77 20 73 69 o fit the new si
0600: 74 75 61 74 69 6f 6e 2e 0a 20 2e 54 50 0a 20 5c tuation.. .TP. \
0610: 66 42 61 66 74 65 72 20 63 61 6e 63 65 6c 20 5c fBafter cancel \
0620: 66 49 69 64 5c 66 52 0a 20 2e 0a 20 43 61 6e 63 fIid\fR. .. Canc
0630: 65 6c 73 20 74 68 65 20 65 78 65 63 75 74 69 6f els the executio
0640: 6e 20 6f 66 20 61 20 64 65 6c 61 79 65 64 20 63 n of a delayed c
0650: 6f 6d 6d 61 6e 64 20 74 68 61 74 0a 20 77 61 73 ommand that. was
0660: 20 70 72 65 76 69 6f 75 73 6c 79 20 73 63 68 65 previously sche
0670: 64 75 6c 65 64 2e 0a 0a 49 6e 64 65 78 3a 20 67 duled...Index: g
0680: 65 6e 65 72 69 63 2f 74 63 6c 43 6c 6f 63 6b 2e eneric/tclClock.
0690: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
06a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
06b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
06c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
06d0: 3d 3d 3d 3d 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 ====.--- generic
06e0: 2f 74 63 6c 43 6c 6f 63 6b 2e 63 0a 2b 2b 2b 20 /tclClock.c.+++
06f0: 67 65 6e 65 72 69 63 2f 74 63 6c 43 6c 6f 63 6b generic/tclClock
0700: 2e 63 0a 40 40 20 2d 31 36 39 30 2c 31 36 20 2b .c.@@ -1690,16 +
0710: 31 36 39 30 2c 31 39 20 40 40 0a 20 7b 0a 20 20 1690,19 @@. {.
0720: 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 47 65 /*. * Ge
0730: 74 20 61 20 74 68 72 65 61 64 2d 6c 6f 63 61 6c t a thread-local
0740: 20 62 75 66 66 65 72 20 74 6f 20 68 6f 6c 64 20 buffer to hold
0750: 74 68 65 20 72 65 74 75 72 6e 65 64 20 74 69 6d the returned tim
0760: 65 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 2d 20 e.. */. .-
0770: 20 20 20 73 74 72 75 63 74 20 74 6d 20 2a 74 6d struct tm *tm
0780: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 54 68 72 Ptr = Tcl_GetThr
0790: 65 61 64 44 61 74 61 28 26 74 6d 4b 65 79 2c 20 eadData(&tmKey,
07a0: 73 69 7a 65 6f 66 28 73 74 72 75 63 74 20 74 6d sizeof(struct tm
07b0: 29 29 3b 0a 2d 23 69 66 64 65 66 20 48 41 56 45 ));.-#ifdef HAVE
07c0: 5f 4c 4f 43 41 4c 54 49 4d 45 5f 52 0a 2d 20 20 _LOCALTIME_R.-
07d0: 20 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 74 69 localtime_r(ti
07e0: 6d 65 50 74 72 2c 20 74 6d 50 74 72 29 3b 0a 2d mePtr, tmPtr);.-
07f0: 23 65 6c 73 65 0a 2b 20 20 20 20 73 74 72 75 63 #else.+ struc
0800: 74 20 74 6d 20 2a 74 6d 50 74 72 20 3d 20 54 63 t tm *tmPtr = Tc
0810: 6c 5f 47 65 74 54 68 72 65 61 64 44 61 74 61 28 l_GetThreadData(
0820: 26 74 6d 4b 65 79 2c 20 28 69 6e 74 29 20 73 69 &tmKey, (int) si
0830: 7a 65 6f 66 28 73 74 72 75 63 74 20 74 6d 29 29 zeof(struct tm))
0840: 3b 0a 20 20 20 20 20 73 74 72 75 63 74 20 74 6d ;. struct tm
0850: 20 2a 73 79 73 54 6d 50 74 72 3b 0a 20 0a 2b 23 *sysTmPtr;. .+#
0860: 69 66 64 65 66 20 48 41 56 45 5f 4c 4f 43 41 4c ifdef HAVE_LOCAL
0870: 54 49 4d 45 5f 52 0a 2b 20 20 20 20 73 79 73 54 TIME_R.+ sysT
0880: 6d 50 74 72 20 3d 20 6c 6f 63 61 6c 74 69 6d 65 mPtr = localtime
0890: 5f 72 28 74 69 6d 65 50 74 72 2c 20 74 6d 50 74 _r(timePtr, tmPt
08a0: 72 29 3b 0a 2b 20 20 20 20 69 66 20 28 73 79 73 r);.+ if (sys
08b0: 54 6d 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b TmPtr == NULL) {
08c0: 0a 2b 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a .+.return NULL;.
08d0: 2b 20 20 20 20 7d 0a 2b 23 65 6c 73 65 0a 20 20 + }.+#else.
08e0: 20 20 20 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b Tcl_MutexLock
08f0: 28 26 63 6c 6f 63 6b 4d 75 74 65 78 29 3b 0a 20 (&clockMutex);.
0900: 20 20 20 20 73 79 73 54 6d 50 74 72 20 3d 20 6c sysTmPtr = l
0910: 6f 63 61 6c 74 69 6d 65 28 74 69 6d 65 50 74 72 ocaltime(timePtr
0920: 29 3b 0a 20 20 20 20 20 69 66 20 28 73 79 73 54 );. if (sysT
0930: 6d 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a mPtr == NULL) {.
0940: 20 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 .Tcl_MutexUnloc
0950: 6b 28 26 63 6c 6f 63 6b 4d 75 74 65 78 29 3b 0a k(&clockMutex);.
0960: 20 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 0a .return NULL;..
0970: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0980: 63 6c 43 6d 64 4d 5a 2e 63 0a 3d 3d 3d 3d 3d 3d clCmdMZ.c.======
0990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
09a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
09b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
09c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d ============.---
09d0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 4d generic/tclCmdM
09e0: 5a 2e 63 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f Z.c.+++ generic/
09f0: 74 63 6c 43 6d 64 4d 5a 2e 63 0a 40 40 20 2d 34 tclCmdMZ.c.@@ -4
0a00: 31 35 36 2c 31 31 20 2b 34 31 35 36 2c 31 31 20 156,11 +4156,11
0a10: 40 40 0a 20 20 20 20 20 7d 0a 20 0a 20 20 20 20 @@. }. .
0a20: 20 6f 62 6a 50 74 72 20 3d 20 6f 62 6a 76 5b 31 objPtr = objv[1
0a30: 5d 3b 0a 20 20 20 20 20 69 20 3d 20 63 6f 75 6e ];. i = coun
0a40: 74 3b 0a 20 23 69 66 6e 64 65 66 20 54 43 4c 5f t;. #ifndef TCL_
0a50: 57 49 44 45 5f 43 4c 49 43 4b 53 0a 2d 20 20 20 WIDE_CLICKS.-
0a60: 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 73 74 Tcl_GetTime(&st
0a70: 61 72 74 29 3b 0a 2b 20 20 20 20 54 63 6c 70 47 art);.+ TclpG
0a80: 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 etMonotonicTime(
0a90: 26 73 74 61 72 74 29 3b 0a 20 23 65 6c 73 65 0a &start);. #else.
0aa0: 20 20 20 20 20 73 74 61 72 74 20 3d 20 54 63 6c start = Tcl
0ab0: 70 47 65 74 57 69 64 65 43 6c 69 63 6b 73 28 29 pGetWideClicks()
0ac0: 3b 0a 20 23 65 6e 64 69 66 0a 20 20 20 20 20 77 ;. #endif. w
0ad0: 68 69 6c 65 20 28 69 2d 2d 20 3e 20 30 29 20 7b hile (i-- > 0) {
0ae0: 0a 20 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f . .result = Tcl_
0af0: 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 EvalObjEx(interp
0b00: 2c 20 6f 62 6a 50 74 72 2c 20 30 29 3b 0a 40 40 , objPtr, 0);.@@
0b10: 20 2d 34 31 36 37 2c 31 31 20 2b 34 31 36 37 2c -4167,11 +4167,
0b20: 31 31 20 40 40 0a 20 09 69 66 20 28 72 65 73 75 11 @@. .if (resu
0b30: 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a lt != TCL_OK) {.
0b40: 20 09 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 . return res
0b50: 75 6c 74 3b 0a 20 09 7d 0a 20 20 20 20 20 7d 0a ult;. .}. }.
0b60: 20 23 69 66 6e 64 65 66 20 54 43 4c 5f 57 49 44 #ifndef TCL_WID
0b70: 45 5f 43 4c 49 43 4b 53 0a 2d 20 20 20 20 54 63 E_CLICKS.- Tc
0b80: 6c 5f 47 65 74 54 69 6d 65 28 26 73 74 6f 70 29 l_GetTime(&stop)
0b90: 3b 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f ;.+ TclpGetMo
0ba0: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 73 74 6f notonicTime(&sto
0bb0: 70 29 3b 0a 20 20 20 20 20 74 6f 74 61 6c 4d 69 p);. totalMi
0bc0: 63 72 6f 53 65 63 20 3d 20 28 28 64 6f 75 62 6c croSec = ((doubl
0bd0: 65 29 20 28 73 74 6f 70 2e 73 65 63 20 2d 20 73 e) (stop.sec - s
0be0: 74 61 72 74 2e 73 65 63 29 29 20 2a 20 31 2e 30 tart.sec)) * 1.0
0bf0: 65 36 0a 20 09 20 20 20 20 2b 20 28 73 74 6f 70 e6. . + (stop
0c00: 2e 75 73 65 63 20 2d 20 73 74 61 72 74 2e 75 73 .usec - start.us
0c10: 65 63 29 3b 0a 20 23 65 6c 73 65 0a 20 20 20 20 ec);. #else.
0c20: 20 73 74 6f 70 20 3d 20 54 63 6c 70 47 65 74 57 stop = TclpGetW
0c30: 69 64 65 43 6c 69 63 6b 73 28 29 3b 0a 20 20 20 ideClicks();.
0c40: 20 20 74 6f 74 61 6c 4d 69 63 72 6f 53 65 63 20 totalMicroSec
0c50: 3d 20 28 28 64 6f 75 62 6c 65 29 20 54 63 6c 70 = ((double) Tclp
0c60: 57 69 64 65 43 6c 69 63 6b 73 54 6f 4e 61 6e 6f WideClicksToNano
0c70: 73 65 63 6f 6e 64 73 28 73 74 6f 70 20 2d 20 73 seconds(stop - s
0c80: 74 61 72 74 29 29 2f 31 2e 30 65 33 3b 0a 0a 49 tart))/1.0e3;..I
0c90: 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 ndex: generic/tc
0ca0: 6c 49 6e 74 2e 64 65 63 6c 73 0a 3d 3d 3d 3d 3d lInt.decls.=====
0cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ce0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d =============.--
0cf0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 - generic/tclInt
0d00: 2e 64 65 63 6c 73 0a 2b 2b 2b 20 67 65 6e 65 72 .decls.+++ gener
0d10: 69 63 2f 74 63 6c 49 6e 74 2e 64 65 63 6c 73 0a ic/tclInt.decls.
0d20: 40 40 20 2d 31 32 37 37 2c 31 31 20 2b 31 32 37 @@ -1277,11 +127
0d30: 37 2c 31 34 20 40 40 0a 20 23 20 41 64 64 65 64 7,14 @@. # Added
0d40: 20 69 6e 20 38 2e 36 3b 20 63 6f 72 65 20 6f 66 in 8.6; core of
0d50: 20 54 63 6c 70 4f 70 65 6e 54 65 6d 70 6f 72 61 TclpOpenTempora
0d60: 72 79 46 69 6c 65 0a 20 64 65 63 6c 61 72 65 20 ryFile. declare
0d70: 33 30 20 7b 77 69 6e 20 75 6e 69 78 7d 20 7b 0a 30 {win unix} {.
0d80: 20 20 20 20 20 69 6e 74 20 54 63 6c 55 6e 69 78 int TclUnix
0d90: 4f 70 65 6e 54 65 6d 70 6f 72 61 72 79 46 69 6c OpenTemporaryFil
0da0: 65 28 54 63 6c 5f 4f 62 6a 20 2a 64 69 72 4f 62 e(Tcl_Obj *dirOb
0db0: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 62 61 73 65 j, Tcl_Obj *base
0dc0: 6e 61 6d 65 4f 62 6a 2c 0a 20 09 20 20 20 20 54 nameObj,. . T
0dd0: 63 6c 5f 4f 62 6a 20 2a 65 78 74 65 6e 73 69 6f cl_Obj *extensio
0de0: 6e 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 72 nObj, Tcl_Obj *r
0df0: 65 73 75 6c 74 69 6e 67 4e 61 6d 65 4f 62 6a 29 esultingNameObj)
0e00: 0a 20 7d 0a 2d 0a 2b 23 20 54 49 50 23 33 30 32 . }.-.+# TIP#302
0e10: 20 3f 3f 3f 0a 2b 64 65 63 6c 61 72 65 20 33 31 ???.+declare 31
0e20: 20 7b 77 69 6e 20 75 6e 69 78 20 6d 61 63 6f 73 {win unix macos
0e30: 78 7d 20 7b 0a 2b 20 20 20 20 69 6e 74 20 54 63 x} {.+ int Tc
0e40: 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 lpGetMonotonicTi
0e50: 6d 65 28 54 63 6c 5f 54 69 6d 65 20 2a 74 69 6d me(Tcl_Time *tim
0e60: 65 50 74 72 29 0a 2b 7d 0a 20 0a 20 0c 0a 20 23 ePtr).+}. . .. #
0e70: 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 Local Variables
0e80: 3a 0a 20 23 20 6d 6f 64 65 3a 20 74 63 6c 0a 20 :. # mode: tcl.
0e90: 23 20 45 6e 64 3a 0a 0a 49 6e 64 65 78 3a 20 67 # End:..Index: g
0ea0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c 61 eneric/tclIntPla
0eb0: 74 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d 3d 3d 3d tDecls.h.=======
0ec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ed0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 ===========.---
0f00: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c generic/tclIntPl
0f10: 61 74 44 65 63 6c 73 2e 68 0a 2b 2b 2b 20 67 65 atDecls.h.+++ ge
0f20: 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c 61 74 neric/tclIntPlat
0f30: 44 65 63 6c 73 2e 68 0a 40 40 20 2d 31 30 31 2c Decls.h.@@ -101,
0f40: 31 30 20 2b 31 30 31 2c 31 32 20 40 40 0a 20 45 10 +101,12 @@. E
0f50: 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 57 69 XTERN int..TclWi
0f60: 6e 43 50 55 49 44 28 75 6e 73 69 67 6e 65 64 20 nCPUID(unsigned
0f70: 69 6e 74 20 69 6e 64 65 78 2c 20 75 6e 73 69 67 int index, unsig
0f80: 6e 65 64 20 69 6e 74 20 2a 72 65 67 73 29 3b 0a ned int *regs);.
0f90: 20 2f 2a 20 33 30 20 2a 2f 0a 20 45 58 54 45 52 /* 30 */. EXTER
0fa0: 4e 20 69 6e 74 09 09 54 63 6c 55 6e 69 78 4f 70 N int..TclUnixOp
0fb0: 65 6e 54 65 6d 70 6f 72 61 72 79 46 69 6c 65 28 enTemporaryFile(
0fc0: 54 63 6c 5f 4f 62 6a 20 2a 64 69 72 4f 62 6a 2c Tcl_Obj *dirObj,
0fd0: 0a 20 09 09 09 09 54 63 6c 5f 4f 62 6a 20 2a 62 . ....Tcl_Obj *b
0fe0: 61 73 65 6e 61 6d 65 4f 62 6a 2c 20 54 63 6c 5f asenameObj, Tcl_
0ff0: 4f 62 6a 20 2a 65 78 74 65 6e 73 69 6f 6e 4f 62 Obj *extensionOb
1000: 6a 2c 0a 20 09 09 09 09 54 63 6c 5f 4f 62 6a 20 j,. ....Tcl_Obj
1010: 2a 72 65 73 75 6c 74 69 6e 67 4e 61 6d 65 4f 62 *resultingNameOb
1020: 6a 29 3b 0a 2b 2f 2a 20 33 31 20 2a 2f 0a 2b 45 j);.+/* 31 */.+E
1030: 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 70 47 XTERN int..TclpG
1040: 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 etMonotonicTime(
1050: 54 63 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 50 74 Tcl_Time *timePt
1060: 72 29 3b 0a 20 23 65 6e 64 69 66 20 2f 2a 20 55 r);. #endif /* U
1070: 4e 49 58 20 2a 2f 0a 20 23 69 66 20 64 65 66 69 NIX */. #if defi
1080: 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c 20 64 ned(_WIN32) || d
1090: 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f efined(__CYGWIN_
10a0: 5f 29 20 2f 2a 20 57 49 4e 20 2a 2f 0a 20 2f 2a _) /* WIN */. /*
10b0: 20 30 20 2a 2f 0a 20 45 58 54 45 52 4e 20 76 6f 0 */. EXTERN vo
10c0: 69 64 09 09 54 63 6c 57 69 6e 43 6f 6e 76 65 72 id..TclWinConver
10d0: 74 45 72 72 6f 72 28 44 57 4f 52 44 20 65 72 72 tError(DWORD err
10e0: 43 6f 64 65 29 3b 0a 20 2f 2a 20 31 20 2a 2f 0a Code);. /* 1 */.
10f0: 40 40 20 2d 31 37 36 2c 31 30 20 2b 31 37 38 2c @@ -176,10 +178,
1100: 31 32 20 40 40 0a 20 45 58 54 45 52 4e 20 69 6e 12 @@. EXTERN in
1110: 74 09 09 54 63 6c 57 69 6e 43 50 55 49 44 28 75 t..TclWinCPUID(u
1120: 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 6e 64 65 nsigned int inde
1130: 78 2c 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 x, unsigned int
1140: 2a 72 65 67 73 29 3b 0a 20 2f 2a 20 33 30 20 2a *regs);. /* 30 *
1150: 2f 0a 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 /. EXTERN int..T
1160: 63 6c 55 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 clUnixOpenTempor
1170: 61 72 79 46 69 6c 65 28 54 63 6c 5f 4f 62 6a 20 aryFile(Tcl_Obj
1180: 2a 64 69 72 4f 62 6a 2c 0a 20 09 09 09 09 54 63 *dirObj,. ....Tc
1190: 6c 5f 4f 62 6a 20 2a 62 61 73 65 6e 61 6d 65 4f l_Obj *basenameO
11a0: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 65 78 74 bj, Tcl_Obj *ext
11b0: 65 6e 73 69 6f 6e 4f 62 6a 2c 0a 20 09 09 09 09 ensionObj,. ....
11c0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 69 Tcl_Obj *resulti
11d0: 6e 67 4e 61 6d 65 4f 62 6a 29 3b 0a 2b 2f 2a 20 ngNameObj);.+/*
11e0: 33 31 20 2a 2f 0a 2b 45 58 54 45 52 4e 20 69 6e 31 */.+EXTERN in
11f0: 74 09 09 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f t..TclpGetMonoto
1200: 6e 69 63 54 69 6d 65 28 54 63 6c 5f 54 69 6d 65 nicTime(Tcl_Time
1210: 20 2a 74 69 6d 65 50 74 72 29 3b 0a 20 23 65 6e *timePtr);. #en
1220: 64 69 66 20 2f 2a 20 57 49 4e 20 2a 2f 0a 20 23 dif /* WIN */. #
1230: 69 66 64 65 66 20 4d 41 43 5f 4f 53 58 5f 54 43 ifdef MAC_OSX_TC
1240: 4c 20 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a 20 L /* MACOSX */.
1250: 2f 2a 20 30 20 2a 2f 0a 20 45 58 54 45 52 4e 20 /* 0 */. EXTERN
1260: 76 6f 69 64 09 09 54 63 6c 47 65 74 41 6e 64 44 void..TclGetAndD
1270: 65 74 61 63 68 50 69 64 73 28 54 63 6c 5f 49 6e etachPids(Tcl_In
1280: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 09 terp *interp,. .
1290: 09 09 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 ...Tcl_Channel c
12a0: 68 61 6e 29 3b 0a 40 40 20 2d 32 35 30 2c 31 30 han);.@@ -250,10
12b0: 20 2b 32 35 34 2c 31 32 20 40 40 0a 20 45 58 54 +254,12 @@. EXT
12c0: 45 52 4e 20 69 6e 74 09 09 54 63 6c 57 69 6e 43 ERN int..TclWinC
12d0: 50 55 49 44 28 75 6e 73 69 67 6e 65 64 20 69 6e PUID(unsigned in
12e0: 74 20 69 6e 64 65 78 2c 20 75 6e 73 69 67 6e 65 t index, unsigne
12f0: 64 20 69 6e 74 20 2a 72 65 67 73 29 3b 0a 20 2f d int *regs);. /
1300: 2a 20 33 30 20 2a 2f 0a 20 45 58 54 45 52 4e 20 * 30 */. EXTERN
1310: 69 6e 74 09 09 54 63 6c 55 6e 69 78 4f 70 65 6e int..TclUnixOpen
1320: 54 65 6d 70 6f 72 61 72 79 46 69 6c 65 28 54 63 TemporaryFile(Tc
1330: 6c 5f 4f 62 6a 20 2a 64 69 72 4f 62 6a 2c 0a 20 l_Obj *dirObj,.
1340: 09 09 09 09 54 63 6c 5f 4f 62 6a 20 2a 62 61 73 ....Tcl_Obj *bas
1350: 65 6e 61 6d 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 enameObj, Tcl_Ob
1360: 6a 20 2a 65 78 74 65 6e 73 69 6f 6e 4f 62 6a 2c j *extensionObj,
1370: 0a 20 09 09 09 09 54 63 6c 5f 4f 62 6a 20 2a 72 . ....Tcl_Obj *r
1380: 65 73 75 6c 74 69 6e 67 4e 61 6d 65 4f 62 6a 29 esultingNameObj)
1390: 3b 0a 2b 2f 2a 20 33 31 20 2a 2f 0a 2b 45 58 54 ;.+/* 31 */.+EXT
13a0: 45 52 4e 20 69 6e 74 09 09 54 63 6c 70 47 65 74 ERN int..TclpGet
13b0: 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 54 63 MonotonicTime(Tc
13c0: 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 50 74 72 29 l_Time *timePtr)
13d0: 3b 0a 20 23 65 6e 64 69 66 20 2f 2a 20 4d 41 43 ;. #endif /* MAC
13e0: 4f 53 58 20 2a 2f 0a 20 0a 20 74 79 70 65 64 65 OSX */. . typede
13f0: 66 20 73 74 72 75 63 74 20 54 63 6c 49 6e 74 50 f struct TclIntP
1400: 6c 61 74 53 74 75 62 73 20 7b 0a 20 20 20 20 20 latStubs {.
1410: 69 6e 74 20 6d 61 67 69 63 3b 0a 20 20 20 20 20 int magic;.
1420: 76 6f 69 64 20 2a 68 6f 6f 6b 73 3b 0a 40 40 20 void *hooks;.@@
1430: 2d 32 38 38 2c 31 30 20 2b 32 39 34 2c 31 31 20 -288,10 +294,11
1440: 40 40 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 72 @@. void (*r
1450: 65 73 65 72 76 65 64 32 36 29 28 76 6f 69 64 29 eserved26)(void)
1460: 3b 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 72 65 ;. void (*re
1470: 73 65 72 76 65 64 32 37 29 28 76 6f 69 64 29 3b served27)(void);
1480: 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 72 65 73 . void (*res
1490: 65 72 76 65 64 32 38 29 28 76 6f 69 64 29 3b 0a erved28)(void);.
14a0: 20 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 57 69 int (*tclWi
14b0: 6e 43 50 55 49 44 29 20 28 75 6e 73 69 67 6e 65 nCPUID) (unsigne
14c0: 64 20 69 6e 74 20 69 6e 64 65 78 2c 20 75 6e 73 d int index, uns
14d0: 69 67 6e 65 64 20 69 6e 74 20 2a 72 65 67 73 29 igned int *regs)
14e0: 3b 20 2f 2a 20 32 39 20 2a 2f 0a 20 20 20 20 20 ; /* 29 */.
14f0: 69 6e 74 20 28 2a 74 63 6c 55 6e 69 78 4f 70 65 int (*tclUnixOpe
1500: 6e 54 65 6d 70 6f 72 61 72 79 46 69 6c 65 29 20 nTemporaryFile)
1510: 28 54 63 6c 5f 4f 62 6a 20 2a 64 69 72 4f 62 6a (Tcl_Obj *dirObj
1520: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 62 61 73 65 6e , Tcl_Obj *basen
1530: 61 6d 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 ameObj, Tcl_Obj
1540: 2a 65 78 74 65 6e 73 69 6f 6e 4f 62 6a 2c 20 54 *extensionObj, T
1550: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 69 6e cl_Obj *resultin
1560: 67 4e 61 6d 65 4f 62 6a 29 3b 20 2f 2a 20 33 30 gNameObj); /* 30
1570: 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 28 2a 74 */.+ int (*t
1580: 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 clpGetMonotonicT
1590: 69 6d 65 29 20 28 54 63 6c 5f 54 69 6d 65 20 2a ime) (Tcl_Time *
15a0: 74 69 6d 65 50 74 72 29 3b 20 2f 2a 20 33 31 20 timePtr); /* 31
15b0: 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 2a 20 55 4e */. #endif /* UN
15c0: 49 58 20 2a 2f 0a 20 23 69 66 20 64 65 66 69 6e IX */. #if defin
15d0: 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c 20 64 65 ed(_WIN32) || de
15e0: 66 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f 5f fined(__CYGWIN__
15f0: 29 20 2f 2a 20 57 49 4e 20 2a 2f 0a 20 20 20 20 ) /* WIN */.
1600: 20 76 6f 69 64 20 28 2a 74 63 6c 57 69 6e 43 6f void (*tclWinCo
1610: 6e 76 65 72 74 45 72 72 6f 72 29 20 28 44 57 4f nvertError) (DWO
1620: 52 44 20 65 72 72 43 6f 64 65 29 3b 20 2f 2a 20 RD errCode); /*
1630: 30 20 2a 2f 0a 20 20 20 20 20 76 6f 69 64 20 28 0 */. void (
1640: 2a 74 63 6c 57 69 6e 43 6f 6e 76 65 72 74 57 53 *tclWinConvertWS
1650: 41 45 72 72 6f 72 29 20 28 44 57 4f 52 44 20 65 AError) (DWORD e
1660: 72 72 43 6f 64 65 29 3b 20 2f 2a 20 31 20 2a 2f rrCode); /* 1 */
1670: 0a 20 20 20 20 20 73 74 72 75 63 74 20 73 65 72 . struct ser
1680: 76 65 6e 74 20 2a 20 28 2a 74 63 6c 57 69 6e 47 vent * (*tclWinG
1690: 65 74 53 65 72 76 42 79 4e 61 6d 65 29 20 28 63 etServByName) (c
16a0: 6f 6e 73 74 20 63 68 61 72 20 2a 6e 6d 2c 20 63 onst char *nm, c
16b0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 72 6f 74 6f onst char *proto
16c0: 29 3b 20 2f 2a 20 32 20 2a 2f 0a 40 40 20 2d 33 ); /* 2 */.@@ -3
16d0: 32 31 2c 31 30 20 2b 33 32 38 2c 31 31 20 40 40 21,10 +328,11 @@
16e0: 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 74 63 6c . void (*tcl
16f0: 57 69 6e 53 65 74 49 6e 74 65 72 66 61 63 65 73 WinSetInterfaces
1700: 29 20 28 69 6e 74 20 77 69 64 65 29 3b 20 2f 2a ) (int wide); /*
1710: 20 32 36 20 2a 2f 0a 20 20 20 20 20 76 6f 69 64 26 */. void
1720: 20 28 2a 74 63 6c 57 69 6e 46 6c 75 73 68 44 69 (*tclWinFlushDi
1730: 72 74 79 43 68 61 6e 6e 65 6c 73 29 20 28 76 6f rtyChannels) (vo
1740: 69 64 29 3b 20 2f 2a 20 32 37 20 2a 2f 0a 20 20 id); /* 27 */.
1750: 20 20 20 76 6f 69 64 20 28 2a 74 63 6c 57 69 6e void (*tclWin
1760: 52 65 73 65 74 49 6e 74 65 72 66 61 63 65 73 29 ResetInterfaces)
1770: 20 28 76 6f 69 64 29 3b 20 2f 2a 20 32 38 20 2a (void); /* 28 *
1780: 2f 0a 20 20 20 20 20 69 6e 74 20 28 2a 74 63 6c /. int (*tcl
1790: 57 69 6e 43 50 55 49 44 29 20 28 75 6e 73 69 67 WinCPUID) (unsig
17a0: 6e 65 64 20 69 6e 74 20 69 6e 64 65 78 2c 20 75 ned int index, u
17b0: 6e 73 69 67 6e 65 64 20 69 6e 74 20 2a 72 65 67 nsigned int *reg
17c0: 73 29 3b 20 2f 2a 20 32 39 20 2a 2f 0a 20 20 20 s); /* 29 */.
17d0: 20 20 69 6e 74 20 28 2a 74 63 6c 55 6e 69 78 4f int (*tclUnixO
17e0: 70 65 6e 54 65 6d 70 6f 72 61 72 79 46 69 6c 65 penTemporaryFile
17f0: 29 20 28 54 63 6c 5f 4f 62 6a 20 2a 64 69 72 4f ) (Tcl_Obj *dirO
1800: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 62 61 73 bj, Tcl_Obj *bas
1810: 65 6e 61 6d 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 enameObj, Tcl_Ob
1820: 6a 20 2a 65 78 74 65 6e 73 69 6f 6e 4f 62 6a 2c j *extensionObj,
1830: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
1840: 69 6e 67 4e 61 6d 65 4f 62 6a 29 3b 20 2f 2a 20 ingNameObj); /*
1850: 33 30 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 28 30 */.+ int (
1860: 2a 74 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 *tclpGetMonotoni
1870: 63 54 69 6d 65 29 20 28 54 63 6c 5f 54 69 6d 65 cTime) (Tcl_Time
1880: 20 2a 74 69 6d 65 50 74 72 29 3b 20 2f 2a 20 33 *timePtr); /* 3
1890: 31 20 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 2a 20 1 */. #endif /*
18a0: 57 49 4e 20 2a 2f 0a 20 23 69 66 64 65 66 20 4d WIN */. #ifdef M
18b0: 41 43 5f 4f 53 58 5f 54 43 4c 20 2f 2a 20 4d 41 AC_OSX_TCL /* MA
18c0: 43 4f 53 58 20 2a 2f 0a 20 20 20 20 20 76 6f 69 COSX */. voi
18d0: 64 20 28 2a 74 63 6c 47 65 74 41 6e 64 44 65 74 d (*tclGetAndDet
18e0: 61 63 68 50 69 64 73 29 20 28 54 63 6c 5f 49 6e achPids) (Tcl_In
18f0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 terp *interp, Tc
1900: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 29 3b l_Channel chan);
1910: 20 2f 2a 20 30 20 2a 2f 0a 20 20 20 20 20 69 6e /* 0 */. in
1920: 74 20 28 2a 74 63 6c 70 43 6c 6f 73 65 46 69 6c t (*tclpCloseFil
1930: 65 29 20 28 54 63 6c 46 69 6c 65 20 66 69 6c 65 e) (TclFile file
1940: 29 3b 20 2f 2a 20 31 20 2a 2f 0a 20 20 20 20 20 ); /* 1 */.
1950: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 2a 74 63 Tcl_Channel (*tc
1960: 6c 70 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 43 lpCreateCommandC
1970: 68 61 6e 6e 65 6c 29 20 28 54 63 6c 46 69 6c 65 hannel) (TclFile
1980: 20 72 65 61 64 46 69 6c 65 2c 20 54 63 6c 46 69 readFile, TclFi
1990: 6c 65 20 77 72 69 74 65 46 69 6c 65 2c 20 54 63 le writeFile, Tc
19a0: 6c 46 69 6c 65 20 65 72 72 6f 72 46 69 6c 65 2c lFile errorFile,
19b0: 20 69 6e 74 20 6e 75 6d 50 69 64 73 2c 20 54 63 int numPids, Tc
19c0: 6c 5f 50 69 64 20 2a 70 69 64 50 74 72 29 3b 20 l_Pid *pidPtr);
19d0: 2f 2a 20 32 20 2a 2f 0a 40 40 20 2d 33 35 34 2c /* 2 */.@@ -354,
19e0: 31 30 20 2b 33 36 32 2c 31 31 20 40 40 0a 20 20 10 +362,11 @@.
19f0: 20 20 20 76 6f 69 64 20 28 2a 72 65 73 65 72 76 void (*reserv
1a00: 65 64 32 36 29 28 76 6f 69 64 29 3b 0a 20 20 20 ed26)(void);.
1a10: 20 20 76 6f 69 64 20 28 2a 72 65 73 65 72 76 65 void (*reserve
1a20: 64 32 37 29 28 76 6f 69 64 29 3b 0a 20 20 20 20 d27)(void);.
1a30: 20 76 6f 69 64 20 28 2a 72 65 73 65 72 76 65 64 void (*reserved
1a40: 32 38 29 28 76 6f 69 64 29 3b 0a 20 20 20 20 20 28)(void);.
1a50: 69 6e 74 20 28 2a 74 63 6c 57 69 6e 43 50 55 49 int (*tclWinCPUI
1a60: 44 29 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 D) (unsigned int
1a70: 20 69 6e 64 65 78 2c 20 75 6e 73 69 67 6e 65 64 index, unsigned
1a80: 20 69 6e 74 20 2a 72 65 67 73 29 3b 20 2f 2a 20 int *regs); /*
1a90: 32 39 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 28 29 */. int (
1aa0: 2a 74 63 6c 55 6e 69 78 4f 70 65 6e 54 65 6d 70 *tclUnixOpenTemp
1ab0: 6f 72 61 72 79 46 69 6c 65 29 20 28 54 63 6c 5f oraryFile) (Tcl_
1ac0: 4f 62 6a 20 2a 64 69 72 4f 62 6a 2c 20 54 63 6c Obj *dirObj, Tcl
1ad0: 5f 4f 62 6a 20 2a 62 61 73 65 6e 61 6d 65 4f 62 _Obj *basenameOb
1ae0: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 65 78 74 65 j, Tcl_Obj *exte
1af0: 6e 73 69 6f 6e 4f 62 6a 2c 20 54 63 6c 5f 4f 62 nsionObj, Tcl_Ob
1b00: 6a 20 2a 72 65 73 75 6c 74 69 6e 67 4e 61 6d 65 j *resultingName
1b10: 4f 62 6a 29 3b 20 2f 2a 20 33 30 20 2a 2f 0a 2b Obj); /* 30 */.+
1b20: 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 70 47 65 int (*tclpGe
1b30: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 29 20 tMonotonicTime)
1b40: 28 54 63 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 50 (Tcl_Time *timeP
1b50: 74 72 29 3b 20 2f 2a 20 33 31 20 2a 2f 0a 20 23 tr); /* 31 */. #
1b60: 65 6e 64 69 66 20 2f 2a 20 4d 41 43 4f 53 58 20 endif /* MACOSX
1b70: 2a 2f 0a 20 7d 20 54 63 6c 49 6e 74 50 6c 61 74 */. } TclIntPlat
1b80: 53 74 75 62 73 3b 0a 20 0a 20 65 78 74 65 72 6e Stubs;. . extern
1b90: 20 63 6f 6e 73 74 20 54 63 6c 49 6e 74 50 6c 61 const TclIntPla
1ba0: 74 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 6c tStubs *tclIntPl
1bb0: 61 74 53 74 75 62 73 50 74 72 3b 0a 20 0a 40 40 atStubsPtr;. .@@
1bc0: 20 2d 34 31 37 2c 31 30 20 2b 34 32 36 2c 31 32 -417,10 +426,12
1bd0: 20 40 40 0a 20 2f 2a 20 53 6c 6f 74 20 32 38 20 @@. /* Slot 28
1be0: 69 73 20 72 65 73 65 72 76 65 64 20 2a 2f 0a 20 is reserved */.
1bf0: 23 64 65 66 69 6e 65 20 54 63 6c 57 69 6e 43 50 #define TclWinCP
1c00: 55 49 44 20 5c 0a 20 09 28 74 63 6c 49 6e 74 50 UID \. .(tclIntP
1c10: 6c 61 74 53 74 75 62 73 50 74 72 2d 3e 74 63 6c latStubsPtr->tcl
1c20: 57 69 6e 43 50 55 49 44 29 20 2f 2a 20 32 39 20 WinCPUID) /* 29
1c30: 2a 2f 0a 20 23 64 65 66 69 6e 65 20 54 63 6c 55 */. #define TclU
1c40: 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 61 72 79 nixOpenTemporary
1c50: 46 69 6c 65 20 5c 0a 20 09 28 74 63 6c 49 6e 74 File \. .(tclInt
1c60: 50 6c 61 74 53 74 75 62 73 50 74 72 2d 3e 74 63 PlatStubsPtr->tc
1c70: 6c 55 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 61 lUnixOpenTempora
1c80: 72 79 46 69 6c 65 29 20 2f 2a 20 33 30 20 2a 2f ryFile) /* 30 */
1c90: 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 70 47 65 .+#define TclpGe
1ca0: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 20 5c tMonotonicTime \
1cb0: 0a 2b 09 28 74 63 6c 49 6e 74 50 6c 61 74 53 74 .+.(tclIntPlatSt
1cc0: 75 62 73 50 74 72 2d 3e 74 63 6c 70 47 65 74 4d ubsPtr->tclpGetM
1cd0: 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 29 20 2f 2a onotonicTime) /*
1ce0: 20 33 31 20 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 31 */. #endif /
1cf0: 2a 20 55 4e 49 58 20 2a 2f 0a 20 23 69 66 20 64 * UNIX */. #if d
1d00: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c efined(_WIN32) |
1d10: 7c 20 64 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 | defined(__CYGW
1d20: 49 4e 5f 5f 29 20 2f 2a 20 57 49 4e 20 2a 2f 0a IN__) /* WIN */.
1d30: 20 23 64 65 66 69 6e 65 20 54 63 6c 57 69 6e 43 #define TclWinC
1d40: 6f 6e 76 65 72 74 45 72 72 6f 72 20 5c 0a 20 09 onvertError \. .
1d50: 28 74 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 73 (tclIntPlatStubs
1d60: 50 74 72 2d 3e 74 63 6c 57 69 6e 43 6f 6e 76 65 Ptr->tclWinConve
1d70: 72 74 45 72 72 6f 72 29 20 2f 2a 20 30 20 2a 2f rtError) /* 0 */
1d80: 0a 20 23 64 65 66 69 6e 65 20 54 63 6c 57 69 6e . #define TclWin
1d90: 43 6f 6e 76 65 72 74 57 53 41 45 72 72 6f 72 20 ConvertWSAError
1da0: 5c 0a 40 40 20 2d 34 37 39 2c 31 30 20 2b 34 39 \.@@ -479,10 +49
1db0: 30 2c 31 32 20 40 40 0a 20 09 28 74 63 6c 49 6e 0,12 @@. .(tclIn
1dc0: 74 50 6c 61 74 53 74 75 62 73 50 74 72 2d 3e 74 tPlatStubsPtr->t
1dd0: 63 6c 57 69 6e 52 65 73 65 74 49 6e 74 65 72 66 clWinResetInterf
1de0: 61 63 65 73 29 20 2f 2a 20 32 38 20 2a 2f 0a 20 aces) /* 28 */.
1df0: 23 64 65 66 69 6e 65 20 54 63 6c 57 69 6e 43 50 #define TclWinCP
1e00: 55 49 44 20 5c 0a 20 09 28 74 63 6c 49 6e 74 50 UID \. .(tclIntP
1e10: 6c 61 74 53 74 75 62 73 50 74 72 2d 3e 74 63 6c latStubsPtr->tcl
1e20: 57 69 6e 43 50 55 49 44 29 20 2f 2a 20 32 39 20 WinCPUID) /* 29
1e30: 2a 2f 0a 20 23 64 65 66 69 6e 65 20 54 63 6c 55 */. #define TclU
1e40: 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 61 72 79 nixOpenTemporary
1e50: 46 69 6c 65 20 5c 0a 20 09 28 74 63 6c 49 6e 74 File \. .(tclInt
1e60: 50 6c 61 74 53 74 75 62 73 50 74 72 2d 3e 74 63 PlatStubsPtr->tc
1e70: 6c 55 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 61 lUnixOpenTempora
1e80: 72 79 46 69 6c 65 29 20 2f 2a 20 33 30 20 2a 2f ryFile) /* 30 */
1e90: 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c 70 47 65 .+#define TclpGe
1ea0: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 20 5c tMonotonicTime \
1eb0: 0a 2b 09 28 74 63 6c 49 6e 74 50 6c 61 74 53 74 .+.(tclIntPlatSt
1ec0: 75 62 73 50 74 72 2d 3e 74 63 6c 70 47 65 74 4d ubsPtr->tclpGetM
1ed0: 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 29 20 2f 2a onotonicTime) /*
1ee0: 20 33 31 20 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 31 */. #endif /
1ef0: 2a 20 57 49 4e 20 2a 2f 0a 20 23 69 66 64 65 66 * WIN */. #ifdef
1f00: 20 4d 41 43 5f 4f 53 58 5f 54 43 4c 20 2f 2a 20 MAC_OSX_TCL /*
1f10: 4d 41 43 4f 53 58 20 2a 2f 0a 20 23 64 65 66 69 MACOSX */. #defi
1f20: 6e 65 20 54 63 6c 47 65 74 41 6e 64 44 65 74 61 ne TclGetAndDeta
1f30: 63 68 50 69 64 73 20 5c 0a 20 09 28 74 63 6c 49 chPids \. .(tclI
1f40: 6e 74 50 6c 61 74 53 74 75 62 73 50 74 72 2d 3e ntPlatStubsPtr->
1f50: 74 63 6c 47 65 74 41 6e 64 44 65 74 61 63 68 50 tclGetAndDetachP
1f60: 69 64 73 29 20 2f 2a 20 30 20 2a 2f 0a 20 23 64 ids) /* 0 */. #d
1f70: 65 66 69 6e 65 20 54 63 6c 70 43 6c 6f 73 65 46 efine TclpCloseF
1f80: 69 6c 65 20 5c 0a 40 40 20 2d 35 33 33 2c 31 30 ile \.@@ -533,10
1f90: 20 2b 35 34 36 2c 31 32 20 40 40 0a 20 2f 2a 20 +546,12 @@. /*
1fa0: 53 6c 6f 74 20 32 38 20 69 73 20 72 65 73 65 72 Slot 28 is reser
1fb0: 76 65 64 20 2a 2f 0a 20 23 64 65 66 69 6e 65 20 ved */. #define
1fc0: 54 63 6c 57 69 6e 43 50 55 49 44 20 5c 0a 20 09 TclWinCPUID \. .
1fd0: 28 74 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 73 (tclIntPlatStubs
1fe0: 50 74 72 2d 3e 74 63 6c 57 69 6e 43 50 55 49 44 Ptr->tclWinCPUID
1ff0: 29 20 2f 2a 20 32 39 20 2a 2f 0a 20 23 64 65 66 ) /* 29 */. #def
2000: 69 6e 65 20 54 63 6c 55 6e 69 78 4f 70 65 6e 54 ine TclUnixOpenT
2010: 65 6d 70 6f 72 61 72 79 46 69 6c 65 20 5c 0a 20 emporaryFile \.
2020: 09 28 74 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 .(tclIntPlatStub
2030: 73 50 74 72 2d 3e 74 63 6c 55 6e 69 78 4f 70 65 sPtr->tclUnixOpe
2040: 6e 54 65 6d 70 6f 72 61 72 79 46 69 6c 65 29 20 nTemporaryFile)
2050: 2f 2a 20 33 30 20 2a 2f 0a 2b 23 64 65 66 69 6e /* 30 */.+#defin
2060: 65 20 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e e TclpGetMonoton
2070: 69 63 54 69 6d 65 20 5c 0a 2b 09 28 74 63 6c 49 icTime \.+.(tclI
2080: 6e 74 50 6c 61 74 53 74 75 62 73 50 74 72 2d 3e ntPlatStubsPtr->
2090: 74 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 tclpGetMonotonic
20a0: 54 69 6d 65 29 20 2f 2a 20 33 31 20 2a 2f 0a 20 Time) /* 31 */.
20b0: 23 65 6e 64 69 66 20 2f 2a 20 4d 41 43 4f 53 58 #endif /* MACOSX
20c0: 20 2a 2f 0a 20 0a 20 23 65 6e 64 69 66 20 2f 2a */. . #endif /*
20d0: 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c defined(USE_TCL
20e0: 5f 53 54 55 42 53 29 20 2a 2f 0a 20 0a 20 2f 2a _STUBS) */. . /*
20f0: 20 21 45 4e 44 21 3a 20 44 6f 20 6e 6f 74 20 65 !END!: Do not e
2100: 64 69 74 20 61 62 6f 76 65 20 74 68 69 73 20 6c dit above this l
2110: 69 6e 65 2e 20 2a 2f 0a 0a 49 6e 64 65 78 3a 20 ine. */..Index:
2120: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 65 72 generic/tclInter
2130: 70 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d p.c.============
2140: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2150: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2160: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2170: 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 67 65 6e 65 72 ======.--- gener
2180: 69 63 2f 74 63 6c 49 6e 74 65 72 70 2e 63 0a 2b ic/tclInterp.c.+
2190: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e ++ generic/tclIn
21a0: 74 65 72 70 2e 63 0a 40 40 20 2d 33 33 38 36 2c terp.c.@@ -3386,
21b0: 31 31 20 2b 33 33 38 36 2c 31 31 20 40 40 0a 20 11 +3386,11 @@.
21c0: 20 20 20 20 69 66 20 28 28 69 50 74 72 2d 3e 6c if ((iPtr->l
21d0: 69 6d 69 74 2e 61 63 74 69 76 65 20 26 20 54 43 imit.active & TC
21e0: 4c 5f 4c 49 4d 49 54 5f 54 49 4d 45 29 20 26 26 L_LIMIT_TIME) &&
21f0: 0a 20 09 20 20 20 20 28 28 69 50 74 72 2d 3e 6c . . ((iPtr->l
2200: 69 6d 69 74 2e 74 69 6d 65 47 72 61 6e 75 6c 61 imit.timeGranula
2210: 72 69 74 79 20 3d 3d 20 31 29 20 7c 7c 0a 20 09 rity == 1) ||. .
2220: 09 28 74 69 63 6b 65 72 20 25 20 69 50 74 72 2d .(ticker % iPtr-
2230: 3e 6c 69 6d 69 74 2e 74 69 6d 65 47 72 61 6e 75 >limit.timeGranu
2240: 6c 61 72 69 74 79 20 3d 3d 20 30 29 29 29 20 7b larity == 0))) {
2250: 0a 20 09 54 63 6c 5f 54 69 6d 65 20 6e 6f 77 3b . .Tcl_Time now;
2260: 0a 20 0a 2d 09 54 63 6c 5f 47 65 74 54 69 6d 65 . .-.Tcl_GetTime
2270: 28 26 6e 6f 77 29 3b 0a 2b 09 54 63 6c 70 47 65 (&now);.+.TclpGe
2280: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 tMonotonicTime(&
2290: 6e 6f 77 29 3b 0a 20 09 69 66 20 28 69 50 74 72 now);. .if (iPtr
22a0: 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2e 73 65 63 ->limit.time.sec
22b0: 20 3c 20 6e 6f 77 2e 73 65 63 20 7c 7c 0a 20 09 < now.sec ||. .
22c0: 09 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 .(iPtr->limit.ti
22d0: 6d 65 2e 73 65 63 20 3d 3d 20 6e 6f 77 2e 73 65 me.sec == now.se
22e0: 63 20 26 26 0a 20 09 09 69 50 74 72 2d 3e 6c 69 c &&. ..iPtr->li
22f0: 6d 69 74 2e 74 69 6d 65 2e 75 73 65 63 20 3c 20 mit.time.usec <
2300: 6e 6f 77 2e 75 73 65 63 29 29 20 7b 0a 20 09 20 now.usec)) {. .
2310: 20 20 20 69 50 74 72 2d 3e 6c 69 6d 69 74 2e 65 iPtr->limit.e
2320: 78 63 65 65 64 65 64 20 7c 3d 20 54 43 4c 5f 4c xceeded |= TCL_L
2330: 49 4d 49 54 5f 54 49 4d 45 3b 0a 20 09 20 20 20 IMIT_TIME;. .
2340: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 69 6e Tcl_Preserve(in
2350: 74 65 72 70 29 3b 0a 40 40 20 2d 33 39 34 31 2c terp);.@@ -3941,
2360: 31 31 20 2b 33 39 34 31 2c 32 39 20 40 40 0a 20 11 +3941,29 @@.
2370: 54 63 6c 5f 4c 69 6d 69 74 53 65 74 54 69 6d 65 Tcl_LimitSetTime
2380: 28 0a 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 (. Tcl_Inter
2390: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 20 20 20 p *interp,.
23a0: 54 63 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 4c 69 Tcl_Time *timeLi
23b0: 6d 69 74 50 74 72 29 0a 20 7b 0a 20 20 20 20 20 mitPtr). {.
23c0: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 Interp *iPtr = (
23d0: 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 72 70 Interp *) interp
23e0: 3b 0a 2d 20 20 20 20 54 63 6c 5f 54 69 6d 65 20 ;.- Tcl_Time
23f0: 6e 65 78 74 4d 6f 6d 65 6e 74 3b 0a 2b 20 20 20 nextMoment;.+
2400: 20 54 63 6c 5f 54 69 6d 65 20 6e 65 78 74 4d 6f Tcl_Time nextMo
2410: 6d 65 6e 74 2c 20 6d 6f 6e 6f 2c 20 72 65 61 6c ment, mono, real
2420: 2c 20 6c 69 6d 69 74 3b 0a 2b 0a 2b 20 20 20 20 , limit;.+.+
2430: 69 66 20 28 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 if (TclpGetMonot
2440: 6f 6e 69 63 54 69 6d 65 28 26 6d 6f 6e 6f 29 29 onicTime(&mono))
2450: 20 7b 0a 2b 09 54 63 6c 5f 47 65 74 54 69 6d 65 {.+.Tcl_GetTime
2460: 28 26 72 65 61 6c 29 3b 0a 2b 09 6c 69 6d 69 74 (&real);.+.limit
2470: 20 3d 20 2a 74 69 6d 65 4c 69 6d 69 74 50 74 72 = *timeLimitPtr
2480: 3b 0a 2b 09 6c 69 6d 69 74 2e 73 65 63 20 2d 3d ;.+.limit.sec -=
2490: 20 72 65 61 6c 2e 73 65 63 3b 0a 2b 09 6c 69 6d real.sec;.+.lim
24a0: 69 74 2e 75 73 65 63 20 2d 3d 20 72 65 61 6c 2e it.usec -= real.
24b0: 75 73 65 63 3b 0a 2b 09 69 66 20 28 6c 69 6d 69 usec;.+.if (limi
24c0: 74 2e 75 73 65 63 20 3c 20 30 29 20 7b 0a 2b 09 t.usec < 0) {.+.
24d0: 20 20 20 20 6c 69 6d 69 74 2e 73 65 63 20 2d 3d limit.sec -=
24e0: 20 31 3b 0a 2b 09 20 20 20 20 6c 69 6d 69 74 2e 1;.+. limit.
24f0: 75 73 65 63 20 2b 3d 20 31 30 30 30 30 30 30 3b usec += 1000000;
2500: 0a 2b 09 7d 0a 2b 09 6c 69 6d 69 74 2e 73 65 63 .+.}.+.limit.sec
2510: 20 2b 3d 20 6d 6f 6e 6f 2e 73 65 63 3b 0a 2b 09 += mono.sec;.+.
2520: 6c 69 6d 69 74 2e 75 73 65 63 20 2b 3d 20 6d 6f limit.usec += mo
2530: 6e 6f 2e 75 73 65 63 3b 0a 2b 09 69 66 20 28 6c no.usec;.+.if (l
2540: 69 6d 69 74 2e 75 73 65 63 20 3e 3d 20 31 30 30 imit.usec >= 100
2550: 30 30 30 30 29 20 7b 0a 2b 09 20 20 20 20 6c 69 0000) {.+. li
2560: 6d 69 74 2e 73 65 63 20 2b 3d 20 31 3b 0a 2b 09 mit.sec += 1;.+.
2570: 20 20 20 20 6c 69 6d 69 74 2e 75 73 65 63 20 2d limit.usec -
2580: 3d 20 31 30 30 30 30 30 30 3b 0a 2b 09 7d 0a 2b = 1000000;.+.}.+
2590: 09 74 69 6d 65 4c 69 6d 69 74 50 74 72 20 3d 20 .timeLimitPtr =
25a0: 26 6c 69 6d 69 74 3b 0a 2b 20 20 20 20 7d 0a 20 &limit;.+ }.
25b0: 0a 20 20 20 20 20 6d 65 6d 63 70 79 28 26 69 50 . memcpy(&iP
25c0: 74 72 2d 3e 6c 69 6d 69 74 2e 74 69 6d 65 2c 20 tr->limit.time,
25d0: 74 69 6d 65 4c 69 6d 69 74 50 74 72 2c 20 73 69 timeLimitPtr, si
25e0: 7a 65 6f 66 28 54 63 6c 5f 54 69 6d 65 29 29 3b zeof(Tcl_Time));
25f0: 0a 20 20 20 20 20 69 66 20 28 69 50 74 72 2d 3e . if (iPtr->
2600: 6c 69 6d 69 74 2e 74 69 6d 65 45 76 65 6e 74 20 limit.timeEvent
2610: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 54 63 6c != NULL) {. .Tcl
2620: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
2630: 6c 65 72 28 69 50 74 72 2d 3e 6c 69 6d 69 74 2e ler(iPtr->limit.
2640: 74 69 6d 65 45 76 65 6e 74 29 3b 0a 20 20 20 20 timeEvent);.
2650: 20 7d 0a 40 40 20 2d 34 30 32 36 2c 31 31 20 2b }.@@ -4026,11 +
2660: 34 30 34 34 2c 33 30 20 40 40 0a 20 54 63 6c 5f 4044,30 @@. Tcl_
2670: 4c 69 6d 69 74 47 65 74 54 69 6d 65 28 0a 20 20 LimitGetTime(.
2680: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
2690: 6e 74 65 72 70 2c 0a 20 20 20 20 20 54 63 6c 5f nterp,. Tcl_
26a0: 54 69 6d 65 20 2a 74 69 6d 65 4c 69 6d 69 74 50 Time *timeLimitP
26b0: 74 72 29 0a 20 7b 0a 20 20 20 20 20 49 6e 74 65 tr). {. Inte
26c0: 72 70 20 2a 69 50 74 72 20 3d 20 28 49 6e 74 65 rp *iPtr = (Inte
26d0: 72 70 20 2a 29 20 69 6e 74 65 72 70 3b 0a 2b 20 rp *) interp;.+
26e0: 20 20 20 54 63 6c 5f 54 69 6d 65 20 6d 6f 6e 6f Tcl_Time mono
26f0: 2c 20 72 65 61 6c 2c 20 6c 69 6d 69 74 3b 0a 20 , real, limit;.
2700: 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 70 47 65 .+ if (TclpGe
2710: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 tMonotonicTime(&
2720: 6d 6f 6e 6f 29 29 20 7b 0a 2b 09 54 63 6c 5f 47 mono)) {.+.Tcl_G
2730: 65 74 54 69 6d 65 28 26 72 65 61 6c 29 3b 0a 2b etTime(&real);.+
2740: 09 6c 69 6d 69 74 20 3d 20 69 50 74 72 2d 3e 6c .limit = iPtr->l
2750: 69 6d 69 74 2e 74 69 6d 65 3b 0a 2b 09 6c 69 6d imit.time;.+.lim
2760: 69 74 2e 73 65 63 20 2d 3d 20 6d 6f 6e 6f 2e 73 it.sec -= mono.s
2770: 65 63 3b 0a 2b 09 6c 69 6d 69 74 2e 75 73 65 63 ec;.+.limit.usec
2780: 20 2d 3d 20 6d 6f 6e 6f 2e 75 73 65 63 3b 0a 2b -= mono.usec;.+
2790: 09 69 66 20 28 6c 69 6d 69 74 2e 75 73 65 63 20 .if (limit.usec
27a0: 3c 20 30 29 20 7b 0a 2b 09 20 20 20 20 6c 69 6d < 0) {.+. lim
27b0: 69 74 2e 73 65 63 20 2d 3d 20 31 3b 0a 2b 09 20 it.sec -= 1;.+.
27c0: 20 20 20 6c 69 6d 69 74 2e 75 73 65 63 20 2b 3d limit.usec +=
27d0: 20 31 30 30 30 30 30 30 3b 0a 2b 09 7d 0a 2b 09 1000000;.+.}.+.
27e0: 6c 69 6d 69 74 2e 73 65 63 20 2b 3d 20 72 65 61 limit.sec += rea
27f0: 6c 2e 73 65 63 3b 0a 2b 09 6c 69 6d 69 74 2e 75 l.sec;.+.limit.u
2800: 73 65 63 20 2b 3d 20 72 65 61 6c 2e 75 73 65 63 sec += real.usec
2810: 3b 0a 2b 09 69 66 20 28 6c 69 6d 69 74 2e 75 73 ;.+.if (limit.us
2820: 65 63 20 3e 3d 20 31 30 30 30 30 30 30 29 20 7b ec >= 1000000) {
2830: 0a 2b 09 20 20 20 20 6c 69 6d 69 74 2e 73 65 63 .+. limit.sec
2840: 20 2b 3d 20 31 3b 0a 2b 09 20 20 20 20 6c 69 6d += 1;.+. lim
2850: 69 74 2e 75 73 65 63 20 2d 3d 20 31 30 30 30 30 it.usec -= 10000
2860: 30 30 3b 0a 2b 09 7d 0a 2b 09 6d 65 6d 63 70 79 00;.+.}.+.memcpy
2870: 28 74 69 6d 65 4c 69 6d 69 74 50 74 72 2c 20 26 (timeLimitPtr, &
2880: 6c 69 6d 69 74 2c 20 73 69 7a 65 6f 66 28 54 63 limit, sizeof(Tc
2890: 6c 5f 54 69 6d 65 29 29 3b 0a 2b 09 72 65 74 75 l_Time));.+.retu
28a0: 72 6e 3b 0a 2b 20 20 20 20 7d 0a 20 20 20 20 20 rn;.+ }.
28b0: 6d 65 6d 63 70 79 28 74 69 6d 65 4c 69 6d 69 74 memcpy(timeLimit
28c0: 50 74 72 2c 20 26 69 50 74 72 2d 3e 6c 69 6d 69 Ptr, &iPtr->limi
28d0: 74 2e 74 69 6d 65 2c 20 73 69 7a 65 6f 66 28 54 t.time, sizeof(T
28e0: 63 6c 5f 54 69 6d 65 29 29 3b 0a 20 7d 0a 20 0c cl_Time));. }. .
28f0: 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d . /*. *--------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
2940: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
2950: 63 6c 53 74 75 62 49 6e 69 74 2e 63 0a 3d 3d 3d clStubInit.c.===
2960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
29a0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 --- generic/tclS
29b0: 74 75 62 49 6e 69 74 2e 63 0a 2b 2b 2b 20 67 65 tubInit.c.+++ ge
29c0: 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 49 6e 69 neric/tclStubIni
29d0: 74 2e 63 0a 40 40 20 2d 36 33 34 2c 31 30 20 2b t.c.@@ -634,10 +
29e0: 36 33 34 2c 31 31 20 40 40 0a 20 20 20 20 20 30 634,11 @@. 0
29f0: 2c 20 2f 2a 20 32 36 20 2a 2f 0a 20 20 20 20 20 , /* 26 */.
2a00: 30 2c 20 2f 2a 20 32 37 20 2a 2f 0a 20 20 20 20 0, /* 27 */.
2a10: 20 30 2c 20 2f 2a 20 32 38 20 2a 2f 0a 20 20 20 0, /* 28 */.
2a20: 20 20 54 63 6c 57 69 6e 43 50 55 49 44 2c 20 2f TclWinCPUID, /
2a30: 2a 20 32 39 20 2a 2f 0a 20 20 20 20 20 54 63 6c * 29 */. Tcl
2a40: 55 6e 69 78 4f 70 65 6e 54 65 6d 70 6f 72 61 72 UnixOpenTemporar
2a50: 79 46 69 6c 65 2c 20 2f 2a 20 33 30 20 2a 2f 0a yFile, /* 30 */.
2a60: 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f + TclpGetMono
2a70: 74 6f 6e 69 63 54 69 6d 65 2c 20 2f 2a 20 33 31 tonicTime, /* 31
2a80: 20 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 2a 20 55 */. #endif /* U
2a90: 4e 49 58 20 2a 2f 0a 20 23 69 66 20 64 65 66 69 NIX */. #if defi
2aa0: 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c 20 64 ned(_WIN32) || d
2ab0: 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f efined(__CYGWIN_
2ac0: 5f 29 20 2f 2a 20 57 49 4e 20 2a 2f 0a 20 20 20 _) /* WIN */.
2ad0: 20 20 54 63 6c 57 69 6e 43 6f 6e 76 65 72 74 45 TclWinConvertE
2ae0: 72 72 6f 72 2c 20 2f 2a 20 30 20 2a 2f 0a 20 20 rror, /* 0 */.
2af0: 20 20 20 54 63 6c 57 69 6e 43 6f 6e 76 65 72 74 TclWinConvert
2b00: 57 53 41 45 72 72 6f 72 2c 20 2f 2a 20 31 20 2a WSAError, /* 1 *
2b10: 2f 0a 20 20 20 20 20 54 63 6c 57 69 6e 47 65 74 /. TclWinGet
2b20: 53 65 72 76 42 79 4e 61 6d 65 2c 20 2f 2a 20 32 ServByName, /* 2
2b30: 20 2a 2f 0a 40 40 20 2d 36 36 37 2c 31 30 20 2b */.@@ -667,10 +
2b40: 36 36 38 2c 31 31 20 40 40 0a 20 20 20 20 20 54 668,11 @@. T
2b50: 63 6c 57 69 6e 53 65 74 49 6e 74 65 72 66 61 63 clWinSetInterfac
2b60: 65 73 2c 20 2f 2a 20 32 36 20 2a 2f 0a 20 20 20 es, /* 26 */.
2b70: 20 20 54 63 6c 57 69 6e 46 6c 75 73 68 44 69 72 TclWinFlushDir
2b80: 74 79 43 68 61 6e 6e 65 6c 73 2c 20 2f 2a 20 32 tyChannels, /* 2
2b90: 37 20 2a 2f 0a 20 20 20 20 20 54 63 6c 57 69 6e 7 */. TclWin
2ba0: 52 65 73 65 74 49 6e 74 65 72 66 61 63 65 73 2c ResetInterfaces,
2bb0: 20 2f 2a 20 32 38 20 2a 2f 0a 20 20 20 20 20 54 /* 28 */. T
2bc0: 63 6c 57 69 6e 43 50 55 49 44 2c 20 2f 2a 20 32 clWinCPUID, /* 2
2bd0: 39 20 2a 2f 0a 20 20 20 20 20 54 63 6c 55 6e 69 9 */. TclUni
2be0: 78 4f 70 65 6e 54 65 6d 70 6f 72 61 72 79 46 69 xOpenTemporaryFi
2bf0: 6c 65 2c 20 2f 2a 20 33 30 20 2a 2f 0a 2b 20 20 le, /* 30 */.+
2c00: 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e TclpGetMonoton
2c10: 69 63 54 69 6d 65 2c 20 2f 2a 20 33 31 20 2a 2f icTime, /* 31 */
2c20: 0a 20 23 65 6e 64 69 66 20 2f 2a 20 57 49 4e 20 . #endif /* WIN
2c30: 2a 2f 0a 20 23 69 66 64 65 66 20 4d 41 43 5f 4f */. #ifdef MAC_O
2c40: 53 58 5f 54 43 4c 20 2f 2a 20 4d 41 43 4f 53 58 SX_TCL /* MACOSX
2c50: 20 2a 2f 0a 20 20 20 20 20 54 63 6c 47 65 74 41 */. TclGetA
2c60: 6e 64 44 65 74 61 63 68 50 69 64 73 2c 20 2f 2a ndDetachPids, /*
2c70: 20 30 20 2a 2f 0a 20 20 20 20 20 54 63 6c 70 43 0 */. TclpC
2c80: 6c 6f 73 65 46 69 6c 65 2c 20 2f 2a 20 31 20 2a loseFile, /* 1 *
2c90: 2f 0a 20 20 20 20 20 54 63 6c 70 43 72 65 61 74 /. TclpCreat
2ca0: 65 43 6f 6d 6d 61 6e 64 43 68 61 6e 6e 65 6c 2c eCommandChannel,
2cb0: 20 2f 2a 20 32 20 2a 2f 0a 40 40 20 2d 37 30 30 /* 2 */.@@ -700
2cc0: 2c 31 30 20 2b 37 30 32 2c 31 31 20 40 40 0a 20 ,10 +702,11 @@.
2cd0: 20 20 20 20 30 2c 20 2f 2a 20 32 36 20 2a 2f 0a 0, /* 26 */.
2ce0: 20 20 20 20 20 30 2c 20 2f 2a 20 32 37 20 2a 2f 0, /* 27 */
2cf0: 0a 20 20 20 20 20 30 2c 20 2f 2a 20 32 38 20 2a . 0, /* 28 *
2d00: 2f 0a 20 20 20 20 20 54 63 6c 57 69 6e 43 50 55 /. TclWinCPU
2d10: 49 44 2c 20 2f 2a 20 32 39 20 2a 2f 0a 20 20 20 ID, /* 29 */.
2d20: 20 20 54 63 6c 55 6e 69 78 4f 70 65 6e 54 65 6d TclUnixOpenTem
2d30: 70 6f 72 61 72 79 46 69 6c 65 2c 20 2f 2a 20 33 poraryFile, /* 3
2d40: 30 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 70 47 65 0 */.+ TclpGe
2d50: 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 2c 20 tMonotonicTime,
2d60: 2f 2a 20 33 31 20 2a 2f 0a 20 23 65 6e 64 69 66 /* 31 */. #endif
2d70: 20 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a 20 7d /* MACOSX */. }
2d80: 3b 0a 20 0a 20 73 74 61 74 69 63 20 63 6f 6e 73 ;. . static cons
2d90: 74 20 54 63 6c 50 6c 61 74 53 74 75 62 73 20 74 t TclPlatStubs t
2da0: 63 6c 50 6c 61 74 53 74 75 62 73 20 3d 20 7b 0a clPlatStubs = {.
2db0: 20 20 20 20 20 54 43 4c 5f 53 54 55 42 5f 4d 41 TCL_STUB_MA
2dc0: 47 49 43 2c 0a 0a 49 6e 64 65 78 3a 20 67 65 6e GIC,..Index: gen
2dd0: 65 72 69 63 2f 74 63 6c 54 69 6d 65 72 2e 63 0a eric/tclTimer.c.
2de0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2df0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2e00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2e10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2e20: 3d 3d 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 ==.--- generic/t
2e30: 63 6c 54 69 6d 65 72 2e 63 0a 2b 2b 2b 20 67 65 clTimer.c.+++ ge
2e40: 6e 65 72 69 63 2f 74 63 6c 54 69 6d 65 72 2e 63 neric/tclTimer.c
2e50: 0a 40 40 20 2d 34 30 2c 31 35 20 2b 34 30 2c 31 .@@ -40,15 +40,1
2e60: 39 20 40 40 0a 20 09 09 09 09 20 2a 20 69 6e 74 9 @@. .... * int
2e70: 65 72 70 20 69 6e 20 77 68 69 63 68 20 63 6f 6d erp in which com
2e80: 6d 61 6e 64 20 77 69 6c 6c 20 62 65 0a 20 09 09 mand will be. ..
2e90: 09 09 20 2a 20 65 78 65 63 75 74 65 64 2e 20 2a .. * executed. *
2ea0: 2f 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a /. Tcl_Obj *
2eb0: 63 6f 6d 6d 61 6e 64 50 74 72 3b 09 2f 2a 20 43 commandPtr;./* C
2ec0: 6f 6d 6d 61 6e 64 20 74 6f 20 65 78 65 63 75 74 ommand to execut
2ed0: 65 2e 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 69 e. */. int i
2ee0: 64 3b 09 09 09 2f 2a 20 49 6e 74 65 67 65 72 20 d;.../* Integer
2ef0: 69 64 65 6e 74 69 66 69 65 72 20 66 6f 72 20 63 identifier for c
2f00: 6f 6d 6d 61 6e 64 3b 20 75 73 65 64 20 74 6f 0a ommand; used to.
2f10: 20 09 09 09 09 20 2a 20 63 61 6e 63 65 6c 20 69 .... * cancel i
2f20: 74 2e 20 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 69 t. */.+ int i
2f30: 73 41 62 73 6f 6c 75 74 65 3b 09 09 2f 2a 20 54 sAbsolute;../* T
2f40: 72 75 65 20 66 6f 72 20 22 61 66 74 65 72 20 2d rue for "after -
2f50: 61 74 20 2e 2e 2e 22 20 63 6f 6d 6d 61 6e 64 20 at ..." command
2f60: 66 6f 72 6d 2e 20 2a 2f 0a 2b 20 20 20 20 54 63 form. */.+ Tc
2f70: 6c 5f 54 69 6d 65 20 61 62 73 6f 6c 75 74 65 54 l_Time absoluteT
2f80: 69 6d 65 3b 09 2f 2a 20 55 73 65 64 20 66 6f 72 ime;./* Used for
2f90: 20 22 61 66 74 65 72 20 2d 61 74 20 2e 2e 2e 22 "after -at ..."
2fa0: 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 6d 2e 20 2a command form. *
2fb0: 2f 0a 20 20 20 20 20 54 63 6c 5f 54 69 6d 65 72 /. Tcl_Timer
2fc0: 54 6f 6b 65 6e 20 74 6f 6b 65 6e 3b 09 2f 2a 20 Token token;./*
2fd0: 55 73 65 64 20 74 6f 20 63 61 6e 63 65 6c 20 74 Used to cancel t
2fe0: 68 65 20 22 61 66 74 65 72 22 20 63 6f 6d 6d 61 he "after" comma
2ff0: 6e 64 2e 20 4e 55 4c 4c 0a 20 09 09 09 09 20 2a nd. NULL. .... *
3000: 20 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 means that the
3010: 63 6f 6d 6d 61 6e 64 20 69 73 20 72 75 6e 20 61 command is run a
3020: 73 20 61 6e 20 69 64 6c 65 0a 20 09 09 09 09 20 s an idle. ....
3030: 2a 20 68 61 6e 64 6c 65 72 20 72 61 74 68 65 72 * handler rather
3040: 20 74 68 61 6e 20 61 73 20 61 20 74 69 6d 65 72 than as a timer
3050: 20 68 61 6e 64 6c 65 72 2e 0a 20 09 09 09 09 20 handler.. ....
3060: 2a 20 4e 55 4c 4c 20 6d 65 61 6e 73 20 74 68 69 * NULL means thi
3070: 73 20 69 73 20 61 6e 20 22 61 66 74 65 72 20 69 s is an "after i
3080: 64 6c 65 22 20 68 61 6e 64 6c 65 72 0a 20 09 09 dle" handler. ..
3090: 09 09 20 2a 20 72 61 74 68 65 72 20 74 68 61 6e .. * rather than
30a0: 20 61 20 74 69 6d 65 72 20 68 61 6e 64 6c 65 72 a timer handler
30b0: 2e 20 2a 2f 0a 2b 20 20 20 20 73 74 72 75 63 74 . */.+ struct
30c0: 20 41 66 74 65 72 49 6e 66 6f 20 2a 70 72 65 76 AfterInfo *prev
30d0: 50 74 72 3b 09 2f 2a 20 50 72 65 76 69 6f 75 73 Ptr;./* Previous
30e0: 20 69 6e 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 in list of all
30f0: 22 61 66 74 65 72 22 20 63 6f 6d 6d 61 6e 64 73 "after" commands
3100: 20 66 6f 72 0a 2b 09 09 09 09 20 2a 20 74 68 69 for.+.... * thi
3110: 73 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 2a s interpreter. *
3120: 2f 0a 20 20 20 20 20 73 74 72 75 63 74 20 41 66 /. struct Af
3130: 74 65 72 49 6e 66 6f 20 2a 6e 65 78 74 50 74 72 terInfo *nextPtr
3140: 3b 09 2f 2a 20 4e 65 78 74 20 69 6e 20 6c 69 73 ;./* Next in lis
3150: 74 20 6f 66 20 61 6c 6c 20 22 61 66 74 65 72 22 t of all "after"
3160: 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 0a 20 09 commands for. .
3170: 09 09 09 20 2a 20 74 68 69 73 20 69 6e 74 65 72 ... * this inter
3180: 70 72 65 74 65 72 2e 20 2a 2f 0a 20 7d 20 41 66 preter. */. } Af
3190: 74 65 72 49 6e 66 6f 3b 0a 20 0a 20 2f 2a 0a 40 terInfo;. . /*.@
31a0: 40 20 2d 31 31 39 2c 31 31 20 2b 31 32 33 2c 31 @ -119,11 +123,1
31b0: 32 20 40 40 0a 20 20 2a 20 73 74 61 74 69 63 20 2 @@. * static
31c0: 69 6e 74 09 54 43 4c 5f 54 49 4d 45 5f 42 45 46 int.TCL_TIME_BEF
31d0: 4f 52 45 28 54 63 6c 5f 54 69 6d 65 20 74 31 2c ORE(Tcl_Time t1,
31e0: 20 54 63 6c 5f 54 69 6d 65 20 74 32 29 3b 0a 20 Tcl_Time t2);.
31f0: 20 2a 20 73 74 61 74 69 63 20 6c 6f 6e 67 09 54 * static long.T
3200: 43 4c 5f 54 49 4d 45 5f 44 49 46 46 5f 4d 53 28 CL_TIME_DIFF_MS(
3210: 54 63 6c 5f 54 69 6d 65 20 74 31 2c 20 54 63 6c Tcl_Time t1, Tcl
3220: 5f 54 69 6d 65 20 74 32 29 3b 0a 20 20 2a 2f 0a _Time t2);. */.
3230: 20 0a 20 23 64 65 66 69 6e 65 20 54 43 4c 5f 54 . #define TCL_T
3240: 49 4d 45 5f 42 45 46 4f 52 45 28 74 31 2c 20 74 IME_BEFORE(t1, t
3250: 32 29 20 5c 0a 2d 20 20 20 20 28 28 28 74 31 29 2) \.- (((t1)
3260: 2e 73 65 63 3c 28 74 32 29 2e 73 65 63 29 20 7c .sec<(t2).sec) |
3270: 7c 20 28 28 74 31 29 2e 73 65 63 3d 3d 28 74 32 | ((t1).sec==(t2
3280: 29 2e 73 65 63 20 26 26 20 28 74 31 29 2e 75 73 ).sec && (t1).us
3290: 65 63 3c 28 74 32 29 2e 75 73 65 63 29 29 0a 2b ec<(t2).usec)).+
32a0: 20 20 20 20 28 28 28 28 74 31 29 2e 73 65 63 20 ((((t1).sec
32b0: 2d 20 28 74 32 29 2e 73 65 63 29 20 3c 20 30 29 - (t2).sec) < 0)
32c0: 20 7c 7c 20 5c 0a 2b 09 20 20 20 20 28 28 74 31 || \.+. ((t1
32d0: 29 2e 73 65 63 20 3d 3d 20 28 74 32 29 2e 73 65 ).sec == (t2).se
32e0: 63 20 26 26 20 28 28 74 31 29 2e 75 73 65 63 20 c && ((t1).usec
32f0: 2d 20 28 74 32 29 2e 75 73 65 63 29 20 3c 20 30 - (t2).usec) < 0
3300: 29 29 0a 20 0a 20 23 64 65 66 69 6e 65 20 54 43 )). . #define TC
3310: 4c 5f 54 49 4d 45 5f 44 49 46 46 5f 4d 53 28 74 L_TIME_DIFF_MS(t
3320: 31 2c 20 74 32 29 20 5c 0a 20 20 20 20 20 28 31 1, t2) \. (1
3330: 30 30 30 2a 28 28 54 63 6c 5f 57 69 64 65 49 6e 000*((Tcl_WideIn
3340: 74 29 28 74 31 29 2e 73 65 63 20 2d 20 28 54 63 t)(t1).sec - (Tc
3350: 6c 5f 57 69 64 65 49 6e 74 29 28 74 32 29 2e 73 l_WideInt)(t2).s
3360: 65 63 29 20 2b 20 5c 0a 20 09 20 20 20 20 28 28 ec) + \. . ((
3370: 6c 6f 6e 67 29 28 74 31 29 2e 75 73 65 63 20 2d long)(t1).usec -
3380: 20 28 6c 6f 6e 67 29 28 74 32 29 2e 75 73 65 63 (long)(t2).usec
3390: 29 2f 31 30 30 30 29 0a 20 0a 40 40 20 2d 32 35 )/1000). .@@ -25
33a0: 37 2c 31 31 20 2b 32 36 32 2c 31 34 20 40 40 0a 7,11 +262,14 @@.
33b0: 20 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 . /*.
33c0: 2a 20 43 6f 6d 70 75 74 65 20 77 68 65 6e 20 74 * Compute when t
33d0: 68 65 20 65 76 65 6e 74 20 73 68 6f 75 6c 64 20 he event should
33e0: 66 69 72 65 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 fire.. */.
33f0: 0a 2d 20 20 20 20 54 63 6c 5f 47 65 74 54 69 6d .- Tcl_GetTim
3400: 65 28 26 74 69 6d 65 29 3b 0a 2b 20 20 20 20 69 e(&time);.+ i
3410: 66 20 28 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 f (milliseconds
3420: 3c 20 30 29 20 7b 0a 2b 09 6d 69 6c 6c 69 73 65 < 0) {.+.millise
3430: 63 6f 6e 64 73 20 3d 20 30 3b 0a 2b 20 20 20 20 conds = 0;.+
3440: 7d 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f }.+ TclpGetMo
3450: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 74 69 6d notonicTime(&tim
3460: 65 29 3b 0a 20 20 20 20 20 74 69 6d 65 2e 73 65 e);. time.se
3470: 63 20 2b 3d 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 c += millisecond
3480: 73 2f 31 30 30 30 3b 0a 20 20 20 20 20 74 69 6d s/1000;. tim
3490: 65 2e 75 73 65 63 20 2b 3d 20 28 6d 69 6c 6c 69 e.usec += (milli
34a0: 73 65 63 6f 6e 64 73 25 31 30 30 30 29 2a 31 30 seconds%1000)*10
34b0: 30 30 3b 0a 20 20 20 20 20 69 66 20 28 74 69 6d 00;. if (tim
34c0: 65 2e 75 73 65 63 20 3e 3d 20 31 30 30 30 30 30 e.usec >= 100000
34d0: 30 29 20 7b 0a 20 09 74 69 6d 65 2e 75 73 65 63 0) {. .time.usec
34e0: 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 20 09 74 -= 1000000;. .t
34f0: 69 6d 65 2e 73 65 63 20 2b 3d 20 31 3b 0a 40 40 ime.sec += 1;.@@
3500: 20 2d 34 31 35 2c 31 31 20 2b 34 32 33 2c 31 31 -415,11 +423,11
3510: 20 40 40 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 @@. } else
3520: 69 66 20 28 28 66 6c 61 67 73 20 26 20 54 43 4c if ((flags & TCL
3530: 5f 54 49 4d 45 52 5f 45 56 45 4e 54 53 29 20 26 _TIMER_EVENTS) &
3540: 26 20 74 73 64 50 74 72 2d 3e 66 69 72 73 74 54 & tsdPtr->firstT
3550: 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 29 20 imerHandlerPtr)
3560: 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 43 6f 6d 70 {. ./*. . * Comp
3570: 75 74 65 20 74 68 65 20 74 69 6d 65 6f 75 74 20 ute the timeout
3580: 66 6f 72 20 74 68 65 20 6e 65 78 74 20 74 69 6d for the next tim
3590: 65 72 20 6f 6e 20 74 68 65 20 6c 69 73 74 2e 0a er on the list..
35a0: 20 09 20 2a 2f 0a 20 0a 2d 09 54 63 6c 5f 47 65 . */. .-.Tcl_Ge
35b0: 74 54 69 6d 65 28 26 62 6c 6f 63 6b 54 69 6d 65 tTime(&blockTime
35c0: 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f );.+.TclpGetMono
35d0: 74 6f 6e 69 63 54 69 6d 65 28 26 62 6c 6f 63 6b tonicTime(&block
35e0: 54 69 6d 65 29 3b 0a 20 09 62 6c 6f 63 6b 54 69 Time);. .blockTi
35f0: 6d 65 2e 73 65 63 20 3d 20 74 73 64 50 74 72 2d me.sec = tsdPtr-
3600: 3e 66 69 72 73 74 54 69 6d 65 72 48 61 6e 64 6c >firstTimerHandl
3610: 65 72 50 74 72 2d 3e 74 69 6d 65 2e 73 65 63 20 erPtr->time.sec
3620: 2d 20 62 6c 6f 63 6b 54 69 6d 65 2e 73 65 63 3b - blockTime.sec;
3630: 0a 20 09 62 6c 6f 63 6b 54 69 6d 65 2e 75 73 65 . .blockTime.use
3640: 63 20 3d 20 74 73 64 50 74 72 2d 3e 66 69 72 73 c = tsdPtr->firs
3650: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 tTimerHandlerPtr
3660: 2d 3e 74 69 6d 65 2e 75 73 65 63 20 2d 0a 20 09 ->time.usec -. .
3670: 09 62 6c 6f 63 6b 54 69 6d 65 2e 75 73 65 63 3b .blockTime.usec;
3680: 0a 20 09 69 66 20 28 62 6c 6f 63 6b 54 69 6d 65 . .if (blockTime
3690: 2e 75 73 65 63 20 3c 20 30 29 20 7b 0a 20 09 20 .usec < 0) {. .
36a0: 20 20 20 62 6c 6f 63 6b 54 69 6d 65 2e 73 65 63 blockTime.sec
36b0: 20 2d 3d 20 31 3b 0a 40 40 20 2d 34 36 36 2c 31 -= 1;.@@ -466,1
36c0: 31 20 2b 34 37 34 2c 31 31 20 40 40 0a 20 20 20 1 +474,11 @@.
36d0: 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 54 if ((flags & T
36e0: 43 4c 5f 54 49 4d 45 52 5f 45 56 45 4e 54 53 29 CL_TIMER_EVENTS)
36f0: 20 26 26 20 74 73 64 50 74 72 2d 3e 66 69 72 73 && tsdPtr->firs
3700: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 tTimerHandlerPtr
3710: 29 20 7b 0a 20 09 2f 2a 0a 20 09 20 2a 20 43 6f ) {. ./*. . * Co
3720: 6d 70 75 74 65 20 74 68 65 20 74 69 6d 65 6f 75 mpute the timeou
3730: 74 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 74 t for the next t
3740: 69 6d 65 72 20 6f 6e 20 74 68 65 20 6c 69 73 74 imer on the list
3750: 2e 0a 20 09 20 2a 2f 0a 20 0a 2d 09 54 63 6c 5f .. . */. .-.Tcl_
3760: 47 65 74 54 69 6d 65 28 26 62 6c 6f 63 6b 54 69 GetTime(&blockTi
3770: 6d 65 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f me);.+.TclpGetMo
3780: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 62 6c 6f notonicTime(&blo
3790: 63 6b 54 69 6d 65 29 3b 0a 20 09 62 6c 6f 63 6b ckTime);. .block
37a0: 54 69 6d 65 2e 73 65 63 20 3d 20 74 73 64 50 74 Time.sec = tsdPt
37b0: 72 2d 3e 66 69 72 73 74 54 69 6d 65 72 48 61 6e r->firstTimerHan
37c0: 64 6c 65 72 50 74 72 2d 3e 74 69 6d 65 2e 73 65 dlerPtr->time.se
37d0: 63 20 2d 20 62 6c 6f 63 6b 54 69 6d 65 2e 73 65 c - blockTime.se
37e0: 63 3b 0a 20 09 62 6c 6f 63 6b 54 69 6d 65 2e 75 c;. .blockTime.u
37f0: 73 65 63 20 3d 20 74 73 64 50 74 72 2d 3e 66 69 sec = tsdPtr->fi
3800: 72 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 50 rstTimerHandlerP
3810: 74 72 2d 3e 74 69 6d 65 2e 75 73 65 63 20 2d 0a tr->time.usec -.
3820: 20 09 09 62 6c 6f 63 6b 54 69 6d 65 2e 75 73 65 ..blockTime.use
3830: 63 3b 0a 20 09 69 66 20 28 62 6c 6f 63 6b 54 69 c;. .if (blockTi
3840: 6d 65 2e 75 73 65 63 20 3c 20 30 29 20 7b 0a 20 me.usec < 0) {.
3850: 09 20 20 20 20 62 6c 6f 63 6b 54 69 6d 65 2e 73 . blockTime.s
3860: 65 63 20 2d 3d 20 31 3b 0a 40 40 20 2d 35 36 32 ec -= 1;.@@ -562
3870: 2c 31 31 20 2b 35 37 30 2c 31 31 20 40 40 0a 20 ,11 +570,11 @@.
3880: 20 20 20 20 20 2a 09 20 20 74 69 6d 65 72 73 20 *. timers
3890: 61 70 70 65 61 72 69 6e 67 20 62 65 66 6f 72 65 appearing before
38a0: 20 6c 61 74 65 72 20 6f 6e 65 73 2e 0a 20 20 20 later ones..
38b0: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 74 73 64 */. . tsd
38c0: 50 74 72 2d 3e 74 69 6d 65 72 50 65 6e 64 69 6e Ptr->timerPendin
38d0: 67 20 3d 20 30 3b 0a 20 20 20 20 20 63 75 72 72 g = 0;. curr
38e0: 65 6e 74 54 69 6d 65 72 49 64 20 3d 20 74 73 64 entTimerId = tsd
38f0: 50 74 72 2d 3e 6c 61 73 74 54 69 6d 65 72 49 64 Ptr->lastTimerId
3900: 3b 0a 2d 20 20 20 20 54 63 6c 5f 47 65 74 54 69 ;.- Tcl_GetTi
3910: 6d 65 28 26 74 69 6d 65 29 3b 0a 2b 20 20 20 20 me(&time);.+
3920: 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 TclpGetMonotonic
3930: 54 69 6d 65 28 26 74 69 6d 65 29 3b 0a 20 20 20 Time(&time);.
3940: 20 20 77 68 69 6c 65 20 28 31 29 20 7b 0a 20 09 while (1) {. .
3950: 6e 65 78 74 50 74 72 50 74 72 20 3d 20 26 74 73 nextPtrPtr = &ts
3960: 64 50 74 72 2d 3e 66 69 72 73 74 54 69 6d 65 72 dPtr->firstTimer
3970: 48 61 6e 64 6c 65 72 50 74 72 3b 0a 20 09 74 69 HandlerPtr;. .ti
3980: 6d 65 72 48 61 6e 64 6c 65 72 50 74 72 20 3d 20 merHandlerPtr =
3990: 74 73 64 50 74 72 2d 3e 66 69 72 73 74 54 69 6d tsdPtr->firstTim
39a0: 65 72 48 61 6e 64 6c 65 72 50 74 72 3b 0a 20 09 erHandlerPtr;. .
39b0: 69 66 20 28 74 69 6d 65 72 48 61 6e 64 6c 65 72 if (timerHandler
39c0: 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 Ptr == NULL) {.
39d0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 40 40 20 2d . break;.@@ -
39e0: 37 38 38 2c 31 30 20 2b 37 39 36 2c 31 32 20 40 788,10 +796,12 @
39f0: 40 0a 20 20 20 20 20 54 63 6c 5f 54 69 6d 65 20 @. Tcl_Time
3a00: 77 61 6b 65 75 70 3b 0a 20 20 20 20 20 41 66 74 wakeup;. Aft
3a10: 65 72 49 6e 66 6f 20 2a 61 66 74 65 72 50 74 72 erInfo *afterPtr
3a20: 3b 0a 20 20 20 20 20 41 66 74 65 72 41 73 73 6f ;. AfterAsso
3a30: 63 44 61 74 61 20 2a 61 73 73 6f 63 50 74 72 3b cData *assocPtr;
3a40: 0a 20 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 . int length
3a50: 3b 0a 20 20 20 20 20 69 6e 74 20 69 6e 64 65 78 ;. int index
3a60: 3b 0a 2b 20 20 20 20 69 6e 74 20 69 73 41 62 73 ;.+ int isAbs
3a70: 6f 6c 75 74 65 20 3d 20 30 3b 0a 2b 20 20 20 20 olute = 0;.+
3a80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 72 67 3b const char *arg;
3a90: 0a 20 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e . static con
3aa0: 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 74 20 61 st char *const a
3ab0: 66 74 65 72 53 75 62 43 6d 64 73 5b 5d 20 3d 20 fterSubCmds[] =
3ac0: 7b 0a 20 09 22 63 61 6e 63 65 6c 22 2c 20 22 69 {. ."cancel", "i
3ad0: 64 6c 65 22 2c 20 22 69 6e 66 6f 22 2c 20 4e 55 dle", "info", NU
3ae0: 4c 4c 0a 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 LL. };.
3af0: 65 6e 75 6d 20 61 66 74 65 72 53 75 62 43 6d 64 enum afterSubCmd
3b00: 73 20 7b 41 46 54 45 52 5f 43 41 4e 43 45 4c 2c s {AFTER_CANCEL,
3b10: 20 41 46 54 45 52 5f 49 44 4c 45 2c 20 41 46 54 AFTER_IDLE, AFT
3b20: 45 52 5f 49 4e 46 4f 7d 3b 0a 20 20 20 20 20 54 ER_INFO};. T
3b30: 68 72 65 61 64 53 70 65 63 69 66 69 63 44 61 74 hreadSpecificDat
3b40: 61 20 2a 74 73 64 50 74 72 20 3d 20 49 6e 69 74 a *tsdPtr = Init
3b50: 54 69 6d 65 72 28 29 3b 0a 40 40 20 2d 38 31 36 Timer();.@@ -816
3b60: 2c 32 39 20 2b 38 32 36 2c 34 37 20 40 40 0a 20 ,29 +826,47 @@.
3b70: 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a . /*. *
3b80: 20 46 69 72 73 74 20 6c 65 74 73 20 73 65 65 20 First lets see
3b90: 69 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 77 if the command w
3ba0: 61 73 20 70 61 73 73 65 64 20 61 20 6e 75 6d 62 as passed a numb
3bb0: 65 72 20 61 73 20 74 68 65 20 66 69 72 73 74 20 er as the first
3bc0: 61 72 67 75 6d 65 6e 74 2e 0a 20 20 20 20 20 20 argument..
3bd0: 2a 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28 6f 62 */. .- if (ob
3be0: 6a 76 5b 31 5d 2d 3e 74 79 70 65 50 74 72 20 3d jv[1]->typePtr =
3bf0: 3d 20 26 74 63 6c 49 6e 74 54 79 70 65 0a 2b 20 = &tclIntType.+
3c00: 20 20 20 61 72 67 20 3d 20 54 63 6c 5f 47 65 74 arg = Tcl_Get
3c10: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b String(objv[1]);
3c20: 0a 2b 20 20 20 20 69 66 20 28 73 74 72 63 6d 70 .+ if (strcmp
3c30: 28 61 72 67 2c 20 22 2d 61 74 22 29 20 3d 3d 20 (arg, "-at") ==
3c40: 30 29 20 7b 0a 2b 09 69 66 20 28 6f 62 6a 63 20 0) {.+.if (objc
3c50: 3c 20 33 29 20 7b 0a 2b 09 20 20 20 20 67 6f 74 < 3) {.+. got
3c60: 6f 20 62 61 64 41 74 41 72 67 3b 0a 2b 09 7d 0a o badAtArg;.+.}.
3c70: 2b 09 69 73 41 62 73 6f 6c 75 74 65 20 3d 20 31 +.isAbsolute = 1
3c80: 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 66 ;.+ }.+ if
3c90: 20 28 6f 62 6a 76 5b 31 20 2b 20 69 73 41 62 73 (objv[1 + isAbs
3ca0: 6f 6c 75 74 65 5d 2d 3e 74 79 70 65 50 74 72 20 olute]->typePtr
3cb0: 3d 3d 20 26 74 63 6c 49 6e 74 54 79 70 65 0a 20 == &tclIntType.
3cc0: 23 69 66 6e 64 65 66 20 54 43 4c 5f 57 49 44 45 #ifndef TCL_WIDE
3cd0: 5f 49 4e 54 5f 49 53 5f 4c 4f 4e 47 0a 2d 09 20 _INT_IS_LONG.-.
3ce0: 20 20 20 7c 7c 20 6f 62 6a 76 5b 31 5d 2d 3e 74 || objv[1]->t
3cf0: 79 70 65 50 74 72 20 3d 3d 20 26 74 63 6c 57 69 ypePtr == &tclWi
3d00: 64 65 49 6e 74 54 79 70 65 0a 2b 09 20 20 20 20 deIntType.+.
3d10: 7c 7c 20 6f 62 6a 76 5b 31 20 2b 20 69 73 41 62 || objv[1 + isAb
3d20: 73 6f 6c 75 74 65 5d 2d 3e 74 79 70 65 50 74 72 solute]->typePtr
3d30: 20 3d 3d 20 26 74 63 6c 57 69 64 65 49 6e 74 54 == &tclWideIntT
3d40: 79 70 65 0a 20 23 65 6e 64 69 66 0a 2d 09 20 20 ype. #endif.-.
3d50: 20 20 7c 7c 20 6f 62 6a 76 5b 31 5d 2d 3e 74 79 || objv[1]->ty
3d60: 70 65 50 74 72 20 3d 3d 20 26 74 63 6c 42 69 67 pePtr == &tclBig
3d70: 6e 75 6d 54 79 70 65 0a 2d 09 20 20 20 20 7c 7c numType.-. ||
3d80: 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 (Tcl_GetIndexFr
3d90: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 omObj(NULL, objv
3da0: 5b 31 5d 2c 20 61 66 74 65 72 53 75 62 43 6d 64 [1], afterSubCmd
3db0: 73 2c 20 22 22 2c 20 30 2c 0a 2d 09 09 20 20 20 s, "", 0,.-..
3dc0: 20 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f &index) != TCL_
3dd0: 4f 4b 29 29 20 7b 0a 2b 09 20 20 20 20 7c 7c 20 OK)) {.+. ||
3de0: 6f 62 6a 76 5b 31 20 2b 20 69 73 41 62 73 6f 6c objv[1 + isAbsol
3df0: 75 74 65 5d 2d 3e 74 79 70 65 50 74 72 20 3d 3d ute]->typePtr ==
3e00: 20 26 74 63 6c 42 69 67 6e 75 6d 54 79 70 65 0a &tclBignumType.
3e10: 2b 09 20 20 20 20 7c 7c 20 28 54 63 6c 5f 47 65 +. || (Tcl_Ge
3e20: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 4e 55 tIndexFromObj(NU
3e30: 4c 4c 2c 20 6f 62 6a 76 5b 31 20 2b 20 69 73 41 LL, objv[1 + isA
3e40: 62 73 6f 6c 75 74 65 5d 2c 0a 2b 09 09 20 20 20 bsolute],.+..
3e50: 20 61 66 74 65 72 53 75 62 43 6d 64 73 2c 20 22 afterSubCmds, "
3e60: 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20 21 3d ", 0, &index) !=
3e70: 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 20 09 69 6e TCL_OK)) {. .in
3e80: 64 65 78 20 3d 20 2d 31 3b 0a 2d 09 69 66 20 28 dex = -1;.-.if (
3e90: 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 72 Tcl_GetWideIntFr
3ea0: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 omObj(NULL, objv
3eb0: 5b 31 5d 2c 20 26 6d 73 29 20 21 3d 20 54 43 4c [1], &ms) != TCL
3ec0: 5f 4f 4b 29 20 7b 0a 2d 20 20 20 20 20 20 20 20 _OK) {.-
3ed0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
3ee0: 61 72 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 arg = Tcl_GetStr
3ef0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 2d 0a ing(objv[1]);.-.
3f00: 2b 09 69 66 20 28 54 63 6c 5f 47 65 74 57 69 64 +.if (Tcl_GetWid
3f10: 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c eIntFromObj(NULL
3f20: 2c 20 6f 62 6a 76 5b 31 20 2b 20 69 73 41 62 73 , objv[1 + isAbs
3f30: 6f 6c 75 74 65 5d 2c 20 26 6d 73 29 20 21 3d 20 olute], &ms) !=
3f40: 54 43 4c 5f 4f 4b 29 20 7b 0a 2b 62 61 64 41 72 TCL_OK) {.+badAr
3f50: 67 3a 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 g:.+
3f60: 61 72 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 arg = Tcl_GetStr
3f70: 69 6e 67 28 6f 62 6a 76 5b 31 20 2b 20 69 73 41 ing(objv[1 + isA
3f80: 62 73 6f 6c 75 74 65 5d 29 3b 0a 20 09 20 20 20 bsolute]);. .
3f90: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
3fa0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 t(interp, Tcl_Ob
3fb0: 6a 50 72 69 6e 74 66 28 0a 20 20 20 20 20 20 20 jPrintf(.
3fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 62 "b
3fd0: 61 64 20 61 72 67 75 6d 65 6e 74 20 5c 22 25 73 ad argument \"%s
3fe0: 5c 22 3a 20 6d 75 73 74 20 62 65 22 0a 2d 20 20 \": must be".-
3ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4000: 20 20 22 20 63 61 6e 63 65 6c 2c 20 69 64 6c 65 " cancel, idle
4010: 2c 20 69 6e 66 6f 2c 20 6f 72 20 61 6e 20 69 6e , info, or an in
4020: 74 65 67 65 72 22 2c 20 61 72 67 29 29 3b 0a 2b teger", arg));.+
4030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4040: 20 20 20 20 22 20 63 61 6e 63 65 6c 2c 20 69 64 " cancel, id
4050: 6c 65 2c 20 69 6e 66 6f 2c 20 61 6e 20 69 6e 74 le, info, an int
4060: 65 67 65 72 2c 20 6f 72 20 5c 22 2d 61 74 5c 22 eger, or \"-at\"
4070: 20 69 6e 74 65 67 65 72 22 2c 0a 2b 09 09 20 20 integer",.+..
4080: 20 20 61 72 67 29 29 3b 0a 20 20 20 20 20 20 20 arg));.
4090: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 45 72 72 Tcl_SetErr
40a0: 6f 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 orCode(interp, "
40b0: 54 43 4c 22 2c 20 22 4c 4f 4f 4b 55 50 22 2c 20 TCL", "LOOKUP",
40c0: 22 49 4e 44 45 58 22 2c 20 22 61 72 67 75 6d 65 "INDEX", "argume
40d0: 6e 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 nt",.
40e0: 20 20 20 20 20 20 20 20 20 20 61 72 67 2c 20 4e arg, N
40f0: 55 4c 4c 29 3b 0a 20 09 20 20 20 20 72 65 74 75 ULL);. . retu
4100: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 09 rn TCL_ERROR;. .
4110: 7d 0a 20 20 20 20 20 7d 0a 2b 0a 2b 20 20 20 20 }. }.+.+
4120: 69 66 20 28 28 69 6e 64 65 78 20 3e 3d 20 30 29 if ((index >= 0)
4130: 20 26 26 20 69 73 41 62 73 6f 6c 75 74 65 29 20 && isAbsolute)
4140: 7b 0a 2b 09 69 73 41 62 73 6f 6c 75 74 65 20 3d {.+.isAbsolute =
4150: 20 30 3b 0a 2b 09 67 6f 74 6f 20 62 61 64 41 72 0;.+.goto badAr
4160: 67 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 g;.+ }.+ i
4170: 66 20 28 69 73 41 62 73 6f 6c 75 74 65 20 26 26 f (isAbsolute &&
4180: 20 28 6f 62 6a 63 20 3c 20 34 29 29 20 7b 0a 2b (objc < 4)) {.+
4190: 62 61 64 41 74 41 72 67 3a 0a 2b 09 54 63 6c 5f badAtArg:.+.Tcl_
41a0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
41b0: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 74 erp, 2, objv, "t
41c0: 69 6d 65 20 73 63 72 69 70 74 20 2e 2e 2e 22 29 ime script ...")
41d0: 3b 0a 2b 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;.+.return TCL_E
41e0: 52 52 4f 52 3b 0a 2b 20 20 20 20 7d 0a 20 0a 20 RROR;.+ }. .
41f0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 41 /*. * A
4200: 74 20 74 68 69 73 20 70 6f 69 6e 74 2c 20 65 69 t this point, ei
4210: 74 68 65 72 20 69 6e 64 65 78 20 3d 20 2d 31 20 ther index = -1
4220: 61 6e 64 20 6d 73 20 63 6f 6e 74 61 69 6e 73 20 and ms contains
4230: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 73 the number of ms
4240: 0a 20 20 20 20 20 20 2a 20 74 6f 20 77 61 69 74 . * to wait
4250: 2c 20 6f 72 20 65 6c 73 65 20 69 6e 64 65 78 20 , or else index
4260: 69 73 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 is the index of
4270: 61 20 73 75 62 63 6f 6d 6d 61 6e 64 2e 0a 20 20 a subcommand..
4280: 20 20 20 20 2a 2f 0a 40 40 20 2d 38 35 31 2c 31 */.@@ -851,1
4290: 34 20 2b 38 37 39 2c 31 35 20 40 40 0a 20 09 69 4 +879,15 @@. .i
42a0: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
42b0: 20 09 20 20 20 20 72 65 74 75 72 6e 20 41 66 74 . return Aft
42c0: 65 72 44 65 6c 61 79 28 69 6e 74 65 72 70 2c 20 erDelay(interp,
42d0: 6d 73 29 3b 0a 20 09 7d 0a 20 09 61 66 74 65 72 ms);. .}. .after
42e0: 50 74 72 20 3d 20 63 6b 61 6c 6c 6f 63 28 73 69 Ptr = ckalloc(si
42f0: 7a 65 6f 66 28 41 66 74 65 72 49 6e 66 6f 29 29 zeof(AfterInfo))
4300: 3b 0a 20 09 61 66 74 65 72 50 74 72 2d 3e 61 73 ;. .afterPtr->as
4310: 73 6f 63 50 74 72 20 3d 20 61 73 73 6f 63 50 74 socPtr = assocPt
4320: 72 3b 0a 2d 09 69 66 20 28 6f 62 6a 63 20 3d 3d r;.-.if (objc ==
4330: 20 33 29 20 7b 0a 2d 09 20 20 20 20 61 66 74 65 3) {.-. afte
4340: 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 72 rPtr->commandPtr
4350: 20 3d 20 6f 62 6a 76 5b 32 5d 3b 0a 2b 09 69 66 = objv[2];.+.if
4360: 20 28 6f 62 6a 63 20 3d 3d 20 33 20 2b 20 69 73 (objc == 3 + is
4370: 41 62 73 6f 6c 75 74 65 29 20 7b 0a 2b 09 20 20 Absolute) {.+.
4380: 20 20 61 66 74 65 72 50 74 72 2d 3e 63 6f 6d 6d afterPtr->comm
4390: 61 6e 64 50 74 72 20 3d 20 6f 62 6a 76 5b 32 20 andPtr = objv[2
43a0: 2b 20 69 73 41 62 73 6f 6c 75 74 65 5d 3b 0a 20 + isAbsolute];.
43b0: 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 20 20 20 20 .} else {.-.
43c0: 61 66 74 65 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e afterPtr->comman
43d0: 64 50 74 72 20 3d 20 54 63 6c 5f 43 6f 6e 63 61 dPtr = Tcl_Conca
43e0: 74 4f 62 6a 28 6f 62 6a 63 2d 32 2c 20 6f 62 6a tObj(objc-2, obj
43f0: 76 2b 32 29 3b 0a 2b 09 20 20 20 20 61 66 74 65 v+2);.+. afte
4400: 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 72 rPtr->commandPtr
4410: 20 3d 20 54 63 6c 5f 43 6f 6e 63 61 74 4f 62 6a = Tcl_ConcatObj
4420: 28 6f 62 6a 63 20 2d 20 32 20 2d 20 69 73 41 62 (objc - 2 - isAb
4430: 73 6f 6c 75 74 65 2c 0a 2b 09 09 09 09 09 6f 62 solute,.+.....ob
4440: 6a 76 20 2b 20 32 20 2b 20 69 73 41 62 73 6f 6c jv + 2 + isAbsol
4450: 75 74 65 29 3b 0a 20 09 7d 0a 20 09 54 63 6c 5f ute);. .}. .Tcl_
4460: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 61 66 74 IncrRefCount(aft
4470: 65 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 erPtr->commandPt
4480: 72 29 3b 0a 20 0a 20 09 2f 2a 0a 20 09 20 2a 20 r);. . ./*. . *
4490: 54 68 65 20 76 61 72 69 61 62 6c 65 20 62 65 6c The variable bel
44a0: 6f 77 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 ow is used to ge
44b0: 6e 65 72 61 74 65 20 75 6e 69 71 75 65 20 69 64 nerate unique id
44c0: 65 6e 74 69 66 69 65 72 73 20 66 6f 72 20 61 66 entifiers for af
44d0: 74 65 72 0a 40 40 20 2d 38 36 39 2c 32 31 20 2b ter.@@ -869,21 +
44e0: 38 39 38 2c 34 38 20 40 40 0a 20 09 20 2a 20 31 898,48 @@. . * 1
44f0: 2d 31 30 20 79 65 61 72 73 2e 20 54 68 75 73 20 -10 years. Thus
4500: 69 74 27 73 20 75 6e 6c 69 6b 65 6c 79 20 74 68 it's unlikely th
4510: 61 74 20 61 6e 79 20 6f 6c 64 20 69 64 73 20 77 at any old ids w
4520: 69 6c 6c 20 73 74 69 6c 6c 20 62 65 0a 20 09 20 ill still be. .
4530: 2a 20 61 72 6f 75 6e 64 20 77 68 65 6e 20 77 72 * around when wr
4540: 61 70 2d 61 72 6f 75 6e 64 20 6f 63 63 75 72 73 ap-around occurs
4550: 2e 0a 20 09 20 2a 2f 0a 20 0a 20 09 61 66 74 65 .. . */. . .afte
4560: 72 50 74 72 2d 3e 69 64 20 3d 20 74 73 64 50 74 rPtr->id = tsdPt
4570: 72 2d 3e 61 66 74 65 72 49 64 3b 0a 2b 09 61 66 r->afterId;.+.af
4580: 74 65 72 50 74 72 2d 3e 69 73 41 62 73 6f 6c 75 terPtr->isAbsolu
4590: 74 65 20 3d 20 69 73 41 62 73 6f 6c 75 74 65 3b te = isAbsolute;
45a0: 0a 20 09 74 73 64 50 74 72 2d 3e 61 66 74 65 72 . .tsdPtr->after
45b0: 49 64 20 2b 3d 20 31 3b 0a 2d 09 54 63 6c 5f 47 Id += 1;.-.Tcl_G
45c0: 65 74 54 69 6d 65 28 26 77 61 6b 65 75 70 29 3b etTime(&wakeup);
45d0: 0a 2d 09 77 61 6b 65 75 70 2e 73 65 63 20 2b 3d .-.wakeup.sec +=
45e0: 20 28 6c 6f 6e 67 29 28 6d 73 20 2f 20 31 30 30 (long)(ms / 100
45f0: 30 29 3b 0a 2d 09 77 61 6b 65 75 70 2e 75 73 65 0);.-.wakeup.use
4600: 63 20 2b 3d 20 28 28 6c 6f 6e 67 29 28 6d 73 20 c += ((long)(ms
4610: 25 20 31 30 30 30 29 29 20 2a 20 31 30 30 30 3b % 1000)) * 1000;
4620: 0a 2d 09 69 66 20 28 77 61 6b 65 75 70 2e 75 73 .-.if (wakeup.us
4630: 65 63 20 3e 20 31 30 30 30 30 30 30 29 20 7b 0a ec > 1000000) {.
4640: 2d 09 20 20 20 20 77 61 6b 65 75 70 2e 73 65 63 -. wakeup.sec
4650: 2b 2b 3b 0a 2d 09 20 20 20 20 77 61 6b 65 75 70 ++;.-. wakeup
4660: 2e 75 73 65 63 20 2d 3d 20 31 30 30 30 30 30 30 .usec -= 1000000
4670: 3b 0a 2b 09 69 66 20 28 61 66 74 65 72 50 74 72 ;.+.if (afterPtr
4680: 2d 3e 69 73 41 62 73 6f 6c 75 74 65 29 20 7b 0a ->isAbsolute) {.
4690: 2b 09 20 20 20 20 54 63 6c 5f 47 65 74 54 69 6d +. Tcl_GetTim
46a0: 65 28 26 77 61 6b 65 75 70 29 3b 0a 2b 09 20 20 e(&wakeup);.+.
46b0: 20 20 61 66 74 65 72 50 74 72 2d 3e 61 62 73 6f afterPtr->abso
46c0: 6c 75 74 65 54 69 6d 65 2e 73 65 63 20 3d 20 6d luteTime.sec = m
46d0: 73 3b 0a 2b 09 20 20 20 20 61 66 74 65 72 50 74 s;.+. afterPt
46e0: 72 2d 3e 61 62 73 6f 6c 75 74 65 54 69 6d 65 2e r->absoluteTime.
46f0: 75 73 65 63 20 3d 20 30 3b 0a 2b 09 20 20 20 20 usec = 0;.+.
4700: 6d 73 20 3d 20 54 43 4c 5f 54 49 4d 45 5f 44 49 ms = TCL_TIME_DI
4710: 46 46 5f 4d 53 5f 43 45 49 4c 49 4e 47 28 61 66 FF_MS_CEILING(af
4720: 74 65 72 50 74 72 2d 3e 61 62 73 6f 6c 75 74 65 terPtr->absolute
4730: 54 69 6d 65 2c 20 77 61 6b 65 75 70 29 3b 0a 2b Time, wakeup);.+
4740: 23 69 66 6e 64 65 66 20 54 43 4c 5f 57 49 44 45 #ifndef TCL_WIDE
4750: 5f 49 4e 54 5f 49 53 5f 4c 4f 4e 47 0a 2b 09 20 _INT_IS_LONG.+.
4760: 20 20 20 69 66 20 28 6d 73 20 3e 20 4c 4f 4e 47 if (ms > LONG
4770: 5f 4d 41 58 29 20 7b 0a 2b 09 09 6d 73 20 3d 20 _MAX) {.+..ms =
4780: 4c 4f 4e 47 5f 4d 41 58 3b 0a 2b 09 20 20 20 20 LONG_MAX;.+.
4790: 7d 0a 2b 23 65 6e 64 69 66 0a 2b 09 20 20 20 20 }.+#endif.+.
47a0: 69 66 20 28 6d 73 20 3c 20 30 29 20 7b 0a 2b 09 if (ms < 0) {.+.
47b0: 09 6d 73 20 3d 20 30 3b 0a 2b 09 20 20 20 20 7d .ms = 0;.+. }
47c0: 0a 2b 09 7d 20 65 6c 73 65 20 7b 0a 2b 09 20 20 .+.} else {.+.
47d0: 20 20 61 66 74 65 72 50 74 72 2d 3e 61 62 73 6f afterPtr->abso
47e0: 6c 75 74 65 54 69 6d 65 2e 73 65 63 20 3d 20 30 luteTime.sec = 0
47f0: 3b 0a 2b 09 20 20 20 20 61 66 74 65 72 50 74 72 ;.+. afterPtr
4800: 2d 3e 61 62 73 6f 6c 75 74 65 54 69 6d 65 2e 75 ->absoluteTime.u
4810: 73 65 63 20 3d 20 30 3b 0a 2b 09 7d 0a 2b 09 54 sec = 0;.+.}.+.T
4820: 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 clpGetMonotonicT
4830: 69 6d 65 28 26 77 61 6b 65 75 70 29 3b 0a 2b 09 ime(&wakeup);.+.
4840: 69 66 20 28 28 28 77 61 6b 65 75 70 2e 73 65 63 if (((wakeup.sec
4850: 20 2b 20 28 6c 6f 6e 67 29 28 6d 73 20 2f 20 31 + (long)(ms / 1
4860: 30 30 30 29 29 20 2d 20 28 77 61 6b 65 75 70 2e 000)) - (wakeup.
4870: 73 65 63 29 29 20 3c 20 30 29 20 7b 0a 2b 09 20 sec)) < 0) {.+.
4880: 20 20 20 77 61 6b 65 75 70 2e 73 65 63 20 2b 3d wakeup.sec +=
4890: 20 4c 4f 4e 47 5f 4d 41 58 20 2d 20 31 3b 0a 2b LONG_MAX - 1;.+
48a0: 09 20 20 20 20 2f 2a 20 44 6f 6e 27 74 20 63 6f . /* Don't co
48b0: 6e 73 69 64 65 72 20 66 72 61 63 74 69 6f 6e 61 nsider fractiona
48c0: 6c 20 70 61 72 74 2e 20 2a 2f 0a 2b 09 7d 20 65 l part. */.+.} e
48d0: 6c 73 65 20 7b 0a 2b 09 20 20 20 20 77 61 6b 65 lse {.+. wake
48e0: 75 70 2e 73 65 63 20 2b 3d 20 28 6c 6f 6e 67 29 up.sec += (long)
48f0: 28 6d 73 20 2f 20 31 30 30 30 29 3b 0a 2b 09 20 (ms / 1000);.+.
4900: 20 20 20 77 61 6b 65 75 70 2e 75 73 65 63 20 2b wakeup.usec +
4910: 3d 20 28 28 6c 6f 6e 67 29 28 6d 73 20 25 20 31 = ((long)(ms % 1
4920: 30 30 30 29 29 20 2a 20 31 30 30 30 3b 0a 2b 09 000)) * 1000;.+.
4930: 20 20 20 20 69 66 20 28 77 61 6b 65 75 70 2e 75 if (wakeup.u
4940: 73 65 63 20 3e 20 31 30 30 30 30 30 30 29 20 7b sec > 1000000) {
4950: 0a 2b 09 09 77 61 6b 65 75 70 2e 73 65 63 2b 2b .+..wakeup.sec++
4960: 3b 0a 2b 09 09 77 61 6b 65 75 70 2e 75 73 65 63 ;.+..wakeup.usec
4970: 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 2b 09 20 -= 1000000;.+.
4980: 20 20 20 7d 0a 20 09 7d 0a 20 09 61 66 74 65 72 }. .}. .after
4990: 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c Ptr->token = Tcl
49a0: 43 72 65 61 74 65 41 62 73 6f 6c 75 74 65 54 69 CreateAbsoluteTi
49b0: 6d 65 72 48 61 6e 64 6c 65 72 28 26 77 61 6b 65 merHandler(&wake
49c0: 75 70 2c 0a 20 09 09 41 66 74 65 72 50 72 6f 63 up,. ..AfterProc
49d0: 2c 20 61 66 74 65 72 50 74 72 29 3b 0a 2b 09 61 , afterPtr);.+.a
49e0: 66 74 65 72 50 74 72 2d 3e 70 72 65 76 50 74 72 fterPtr->prevPtr
49f0: 20 3d 20 4e 55 4c 4c 3b 0a 20 09 61 66 74 65 72 = NULL;. .after
4a00: 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20 61 Ptr->nextPtr = a
4a10: 73 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 41 66 ssocPtr->firstAf
4a20: 74 65 72 50 74 72 3b 0a 2b 09 69 66 20 28 61 66 terPtr;.+.if (af
4a30: 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 terPtr->nextPtr
4a40: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 20 != NULL) {.+.
4a50: 20 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 afterPtr->nextP
4a60: 74 72 2d 3e 70 72 65 76 50 74 72 20 3d 20 61 66 tr->prevPtr = af
4a70: 74 65 72 50 74 72 3b 0a 2b 09 7d 0a 20 09 61 73 terPtr;.+.}. .as
4a80: 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 41 66 74 socPtr->firstAft
4a90: 65 72 50 74 72 20 3d 20 61 66 74 65 72 50 74 72 erPtr = afterPtr
4aa0: 3b 0a 20 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 ;. .Tcl_SetObjRe
4ab0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
4ac0: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 61 66 74 65 _ObjPrintf("afte
4ad0: 72 23 25 64 22 2c 20 61 66 74 65 72 50 74 72 2d r#%d", afterPtr-
4ae0: 3e 69 64 29 29 3b 0a 20 09 72 65 74 75 72 6e 20 >id));. .return
4af0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 7d 0a 20 TCL_OK;. }.
4b00: 20 20 20 20 63 61 73 65 20 41 46 54 45 52 5f 43 case AFTER_C
4b10: 41 4e 43 45 4c 3a 20 7b 0a 40 40 20 2d 38 39 36 ANCEL: {.@@ -896
4b20: 2c 31 31 20 2b 39 35 32 2c 31 31 20 40 40 0a 20 ,11 +952,11 @@.
4b30: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4b40: 45 52 52 4f 52 3b 0a 20 09 7d 0a 20 09 69 66 20 ERROR;. .}. .if
4b50: 28 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 20 09 (objc == 3) {. .
4b60: 20 20 20 20 63 6f 6d 6d 61 6e 64 50 74 72 20 3d commandPtr =
4b70: 20 6f 62 6a 76 5b 32 5d 3b 0a 20 09 7d 20 65 6c objv[2];. .} el
4b80: 73 65 20 7b 0a 2d 09 20 20 20 20 63 6f 6d 6d 61 se {.-. comma
4b90: 6e 64 50 74 72 20 3d 20 54 63 6c 5f 43 6f 6e 63 ndPtr = Tcl_Conc
4ba0: 61 74 4f 62 6a 28 6f 62 6a 63 2d 32 2c 20 6f 62 atObj(objc-2, ob
4bb0: 6a 76 2b 32 29 3b 3b 0a 2b 09 20 20 20 20 63 6f jv+2);;.+. co
4bc0: 6d 6d 61 6e 64 50 74 72 20 3d 20 54 63 6c 5f 43 mmandPtr = Tcl_C
4bd0: 6f 6e 63 61 74 4f 62 6a 28 6f 62 6a 63 2d 32 2c oncatObj(objc-2,
4be0: 20 6f 62 6a 76 2b 32 29 3b 0a 20 09 7d 0a 20 09 objv+2);. .}. .
4bf0: 63 6f 6d 6d 61 6e 64 20 3d 20 54 63 6c 5f 47 65 command = Tcl_Ge
4c00: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 tStringFromObj(c
4c10: 6f 6d 6d 61 6e 64 50 74 72 2c 20 26 6c 65 6e 67 ommandPtr, &leng
4c20: 74 68 29 3b 0a 20 09 66 6f 72 20 28 61 66 74 65 th);. .for (afte
4c30: 72 50 74 72 20 3d 20 61 73 73 6f 63 50 74 72 2d rPtr = assocPtr-
4c40: 3e 66 69 72 73 74 41 66 74 65 72 50 74 72 3b 20 >firstAfterPtr;
4c50: 20 61 66 74 65 72 50 74 72 20 21 3d 20 4e 55 4c afterPtr != NUL
4c60: 4c 3b 0a 20 09 09 61 66 74 65 72 50 74 72 20 3d L;. ..afterPtr =
4c70: 20 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 afterPtr->nextP
4c80: 74 72 29 20 7b 0a 20 09 20 20 20 20 74 65 6d 70 tr) {. . temp
4c90: 43 6f 6d 6d 61 6e 64 20 3d 20 54 63 6c 5f 47 65 Command = Tcl_Ge
4ca0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 61 tStringFromObj(a
4cb0: 66 74 65 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 fterPtr->command
4cc0: 50 74 72 2c 0a 40 40 20 2d 39 33 38 2c 31 33 20 Ptr,.@@ -938,13
4cd0: 2b 39 39 34 2c 32 30 20 40 40 0a 20 09 7d 20 65 +994,20 @@. .} e
4ce0: 6c 73 65 20 7b 0a 20 09 20 20 20 20 61 66 74 65 lse {. . afte
4cf0: 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 72 rPtr->commandPtr
4d00: 20 3d 20 54 63 6c 5f 43 6f 6e 63 61 74 4f 62 6a = Tcl_ConcatObj
4d10: 28 6f 62 6a 63 2d 32 2c 20 6f 62 6a 76 2b 32 29 (objc-2, objv+2)
4d20: 3b 0a 20 09 7d 0a 20 09 54 63 6c 5f 49 6e 63 72 ;. .}. .Tcl_Incr
4d30: 52 65 66 43 6f 75 6e 74 28 61 66 74 65 72 50 74 RefCount(afterPt
4d40: 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 72 29 3b 0a r->commandPtr);.
4d50: 20 09 61 66 74 65 72 50 74 72 2d 3e 69 64 20 3d .afterPtr->id =
4d60: 20 74 73 64 50 74 72 2d 3e 61 66 74 65 72 49 64 tsdPtr->afterId
4d70: 3b 0a 2b 09 61 66 74 65 72 50 74 72 2d 3e 69 73 ;.+.afterPtr->is
4d80: 41 62 73 6f 6c 75 74 65 20 3d 20 30 3b 0a 2b 09 Absolute = 0;.+.
4d90: 61 66 74 65 72 50 74 72 2d 3e 61 62 73 6f 6c 75 afterPtr->absolu
4da0: 74 65 54 69 6d 65 2e 73 65 63 20 3d 20 30 3b 0a teTime.sec = 0;.
4db0: 2b 09 61 66 74 65 72 50 74 72 2d 3e 61 62 73 6f +.afterPtr->abso
4dc0: 6c 75 74 65 54 69 6d 65 2e 75 73 65 63 20 3d 20 luteTime.usec =
4dd0: 30 3b 0a 20 09 74 73 64 50 74 72 2d 3e 61 66 74 0;. .tsdPtr->aft
4de0: 65 72 49 64 20 2b 3d 20 31 3b 0a 20 09 61 66 74 erId += 1;. .aft
4df0: 65 72 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e erPtr->token = N
4e00: 55 4c 4c 3b 0a 2b 09 61 66 74 65 72 50 74 72 2d ULL;.+.afterPtr-
4e10: 3e 70 72 65 76 50 74 72 20 3d 20 4e 55 4c 4c 3b >prevPtr = NULL;
4e20: 0a 20 09 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 . .afterPtr->nex
4e30: 74 50 74 72 20 3d 20 61 73 73 6f 63 50 74 72 2d tPtr = assocPtr-
4e40: 3e 66 69 72 73 74 41 66 74 65 72 50 74 72 3b 0a >firstAfterPtr;.
4e50: 2b 09 69 66 20 28 61 66 74 65 72 50 74 72 2d 3e +.if (afterPtr->
4e60: 6e 65 78 74 50 74 72 20 21 3d 20 4e 55 4c 4c 29 nextPtr != NULL)
4e70: 20 7b 0a 2b 09 20 20 20 20 61 66 74 65 72 50 74 {.+. afterPt
4e80: 72 2d 3e 6e 65 78 74 50 74 72 2d 3e 70 72 65 76 r->nextPtr->prev
4e90: 50 74 72 20 3d 20 61 66 74 65 72 50 74 72 3b 0a Ptr = afterPtr;.
4ea0: 2b 09 7d 0a 20 09 61 73 73 6f 63 50 74 72 2d 3e +.}. .assocPtr->
4eb0: 66 69 72 73 74 41 66 74 65 72 50 74 72 20 3d 20 firstAfterPtr =
4ec0: 61 66 74 65 72 50 74 72 3b 0a 20 09 54 63 6c 5f afterPtr;. .Tcl_
4ed0: 44 6f 57 68 65 6e 49 64 6c 65 28 41 66 74 65 72 DoWhenIdle(After
4ee0: 50 72 6f 63 2c 20 61 66 74 65 72 50 74 72 29 3b Proc, afterPtr);
4ef0: 0a 20 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 . .Tcl_SetObjRes
4f00: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
4f10: 4f 62 6a 50 72 69 6e 74 66 28 22 61 66 74 65 72 ObjPrintf("after
4f20: 23 25 64 22 2c 20 61 66 74 65 72 50 74 72 2d 3e #%d", afterPtr->
4f30: 69 64 29 29 3b 0a 20 09 62 72 65 61 6b 3b 0a 20 id));. .break;.
4f40: 20 20 20 20 63 61 73 65 20 41 46 54 45 52 5f 49 case AFTER_I
4f50: 4e 46 4f 3a 0a 40 40 20 2d 31 30 31 35 2c 31 31 NFO:.@@ -1015,11
4f60: 20 2b 31 30 37 38 2c 31 31 20 40 40 0a 20 20 20 +1078,11 @@.
4f70: 20 20 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d Interp *iPtr =
4f80: 20 28 49 6e 74 65 72 70 20 2a 29 20 69 6e 74 65 (Interp *) inte
4f90: 72 70 3b 0a 20 0a 20 20 20 20 20 54 63 6c 5f 54 rp;. . Tcl_T
4fa0: 69 6d 65 20 65 6e 64 54 69 6d 65 2c 20 6e 6f 77 ime endTime, now
4fb0: 3b 0a 20 20 20 20 20 54 63 6c 5f 57 69 64 65 49 ;. Tcl_WideI
4fc0: 6e 74 20 64 69 66 66 3b 0a 20 0a 2d 20 20 20 20 nt diff;. .-
4fd0: 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 Tcl_GetTime(&now
4fe0: 29 3b 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d );.+ TclpGetM
4ff0: 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 6e 6f onotonicTime(&no
5000: 77 29 3b 0a 20 20 20 20 20 65 6e 64 54 69 6d 65 w);. endTime
5010: 20 3d 20 6e 6f 77 3b 0a 20 20 20 20 20 65 6e 64 = now;. end
5020: 54 69 6d 65 2e 73 65 63 20 2b 3d 20 28 6c 6f 6e Time.sec += (lon
5030: 67 29 28 6d 73 2f 31 30 30 30 29 3b 0a 20 20 20 g)(ms/1000);.
5040: 20 20 65 6e 64 54 69 6d 65 2e 75 73 65 63 20 2b endTime.usec +
5050: 3d 20 28 28 69 6e 74 29 28 6d 73 25 31 30 30 30 = ((int)(ms%1000
5060: 29 29 2a 31 30 30 30 3b 0a 20 20 20 20 20 69 66 ))*1000;. if
5070: 20 28 65 6e 64 54 69 6d 65 2e 75 73 65 63 20 3e (endTime.usec >
5080: 3d 20 31 30 30 30 30 30 30 29 20 7b 0a 20 09 65 = 1000000) {. .e
5090: 6e 64 54 69 6d 65 2e 73 65 63 2b 2b 3b 0a 40 40 ndTime.sec++;.@@
50a0: 20 2d 31 30 38 31 2c 31 31 20 2b 31 31 34 34 2c -1081,11 +1144,
50b0: 31 31 20 40 40 0a 20 09 20 20 20 20 7d 0a 20 09 11 @@. . }. .
50c0: 20 20 20 20 69 66 20 28 54 63 6c 5f 4c 69 6d 69 if (Tcl_Limi
50d0: 74 43 68 65 63 6b 28 69 6e 74 65 72 70 29 20 21 tCheck(interp) !
50e0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 20 09 09 72 = TCL_OK) {. ..r
50f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5100: 0a 20 09 20 20 20 20 7d 0a 20 09 7d 0a 2d 20 20 . . }. .}.-
5110: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 54 69 6d Tcl_GetTim
5120: 65 28 26 6e 6f 77 29 3b 0a 2b 20 20 20 20 20 20 e(&now);.+
5130: 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e TclpGetMonoton
5140: 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 20 icTime(&now);.
5150: 20 20 20 7d 20 77 68 69 6c 65 20 28 54 43 4c 5f } while (TCL_
5160: 54 49 4d 45 5f 42 45 46 4f 52 45 28 6e 6f 77 2c TIME_BEFORE(now,
5170: 20 65 6e 64 54 69 6d 65 29 29 3b 0a 20 20 20 20 endTime));.
5180: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
5190: 20 7d 0a 20 0c 0a 20 2f 2a 0a 40 40 20 2d 31 31 }. .. /*.@@ -11
51a0: 36 30 2c 31 33 20 2b 31 32 32 33 2c 34 35 20 40 60,13 +1223,45 @
51b0: 40 0a 20 41 66 74 65 72 50 72 6f 63 28 0a 20 20 @. AfterProc(.
51c0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
51d0: 69 65 6e 74 44 61 74 61 29 09 2f 2a 20 44 65 73 ientData)./* Des
51e0: 63 72 69 62 65 73 20 63 6f 6d 6d 61 6e 64 20 74 cribes command t
51f0: 6f 20 65 78 65 63 75 74 65 2e 20 2a 2f 0a 20 7b o execute. */. {
5200: 0a 20 20 20 20 20 41 66 74 65 72 49 6e 66 6f 20 . AfterInfo
5210: 2a 61 66 74 65 72 50 74 72 20 3d 20 63 6c 69 65 *afterPtr = clie
5220: 6e 74 44 61 74 61 3b 0a 20 20 20 20 20 41 66 74 ntData;. Aft
5230: 65 72 41 73 73 6f 63 44 61 74 61 20 2a 61 73 73 erAssocData *ass
5240: 6f 63 50 74 72 20 3d 20 61 66 74 65 72 50 74 72 ocPtr = afterPtr
5250: 2d 3e 61 73 73 6f 63 50 74 72 3b 0a 2d 20 20 20 ->assocPtr;.-
5260: 20 41 66 74 65 72 49 6e 66 6f 20 2a 70 72 65 76 AfterInfo *prev
5270: 50 74 72 3b 0a 20 20 20 20 20 69 6e 74 20 72 65 Ptr;. int re
5280: 73 75 6c 74 3b 0a 20 20 20 20 20 54 63 6c 5f 49 sult;. Tcl_I
5290: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 2b nterp *interp;.+
52a0: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
52b0: 20 46 6f 72 20 61 62 73 6f 6c 75 74 65 20 74 69 For absolute ti
52c0: 6d 65 64 20 65 76 65 6e 74 73 20 73 65 65 20 69 med events see i
52d0: 66 20 74 68 65 20 74 69 6d 65 72 20 6e 65 65 64 f the timer need
52e0: 73 0a 2b 20 20 20 20 20 2a 20 74 6f 20 62 65 20 s.+ * to be
52f0: 72 65 2d 73 63 68 65 64 75 6c 65 64 20 64 75 65 re-scheduled due
5300: 20 74 6f 20 6e 6f 74 20 68 61 76 69 6e 67 20 72 to not having r
5310: 65 61 63 68 65 64 20 74 68 65 0a 2b 20 20 20 20 eached the.+
5320: 20 2a 20 61 62 73 6f 6c 75 74 65 20 70 6f 69 6e * absolute poin
5330: 74 20 69 6e 20 77 61 6c 6c 2d 74 69 6d 65 2e 0a t in wall-time..
5340: 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 20 20 20 + */.+.+
5350: 69 66 20 28 61 66 74 65 72 50 74 72 2d 3e 69 73 if (afterPtr->is
5360: 41 62 73 6f 6c 75 74 65 29 20 7b 0a 2b 09 54 63 Absolute) {.+.Tc
5370: 6c 5f 54 69 6d 65 20 6e 6f 77 2c 20 77 61 6b 65 l_Time now, wake
5380: 75 70 3b 0a 2b 09 54 63 6c 5f 57 69 64 65 49 6e up;.+.Tcl_WideIn
5390: 74 20 6d 73 3b 0a 2b 0a 2b 09 54 63 6c 5f 47 65 t ms;.+.+.Tcl_Ge
53a0: 74 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 2b 09 69 tTime(&now);.+.i
53b0: 66 20 28 54 43 4c 5f 54 49 4d 45 5f 42 45 46 4f f (TCL_TIME_BEFO
53c0: 52 45 28 6e 6f 77 2c 20 61 66 74 65 72 50 74 72 RE(now, afterPtr
53d0: 2d 3e 61 62 73 6f 6c 75 74 65 54 69 6d 65 29 29 ->absoluteTime))
53e0: 20 7b 0a 2b 09 20 20 20 20 6d 73 20 3d 20 54 43 {.+. ms = TC
53f0: 4c 5f 54 49 4d 45 5f 44 49 46 46 5f 4d 53 5f 43 L_TIME_DIFF_MS_C
5400: 45 49 4c 49 4e 47 28 61 66 74 65 72 50 74 72 2d EILING(afterPtr-
5410: 3e 61 62 73 6f 6c 75 74 65 54 69 6d 65 2c 20 6e >absoluteTime, n
5420: 6f 77 29 3b 0a 2b 09 20 20 20 20 69 66 20 28 6d ow);.+. if (m
5430: 73 20 3e 20 30 29 20 7b 0a 2b 09 09 54 63 6c 70 s > 0) {.+..Tclp
5440: 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 GetMonotonicTime
5450: 28 26 77 61 6b 65 75 70 29 3b 0a 2b 09 09 69 66 (&wakeup);.+..if
5460: 20 28 28 28 77 61 6b 65 75 70 2e 73 65 63 20 2b (((wakeup.sec +
5470: 20 28 6c 6f 6e 67 29 28 6d 73 20 2f 20 31 30 30 (long)(ms / 100
5480: 30 29 29 20 2d 20 28 77 61 6b 65 75 70 2e 73 65 0)) - (wakeup.se
5490: 63 29 29 20 3c 20 30 29 20 7b 0a 2b 09 09 20 20 c)) < 0) {.+..
54a0: 20 20 77 61 6b 65 75 70 2e 73 65 63 20 2b 3d 20 wakeup.sec +=
54b0: 4c 4f 4e 47 5f 4d 41 58 20 2d 20 31 3b 0a 2b 09 LONG_MAX - 1;.+.
54c0: 09 20 20 20 20 2f 2a 20 44 6f 6e 27 74 20 63 6f . /* Don't co
54d0: 6e 73 69 64 65 72 20 66 72 61 63 74 69 6f 6e 61 nsider fractiona
54e0: 6c 20 70 61 72 74 2e 20 2a 2f 0a 2b 09 09 7d 20 l part. */.+..}
54f0: 65 6c 73 65 20 7b 0a 2b 09 09 20 20 20 20 77 61 else {.+.. wa
5500: 6b 65 75 70 2e 73 65 63 20 2b 3d 20 28 6c 6f 6e keup.sec += (lon
5510: 67 29 28 6d 73 20 2f 20 31 30 30 30 29 3b 0a 2b g)(ms / 1000);.+
5520: 09 09 20 20 20 20 77 61 6b 65 75 70 2e 75 73 65 .. wakeup.use
5530: 63 20 2b 3d 20 28 28 6c 6f 6e 67 29 28 6d 73 20 c += ((long)(ms
5540: 25 20 31 30 30 30 29 29 20 2a 20 31 30 30 30 3b % 1000)) * 1000;
5550: 0a 2b 09 09 20 20 20 20 69 66 20 28 77 61 6b 65 .+.. if (wake
5560: 75 70 2e 75 73 65 63 20 3e 20 31 30 30 30 30 30 up.usec > 100000
5570: 30 29 20 7b 0a 2b 09 09 09 77 61 6b 65 75 70 2e 0) {.+...wakeup.
5580: 73 65 63 2b 2b 3b 0a 2b 09 09 09 77 61 6b 65 75 sec++;.+...wakeu
5590: 70 2e 75 73 65 63 20 2d 3d 20 31 30 30 30 30 30 p.usec -= 100000
55a0: 30 3b 0a 2b 09 09 20 20 20 20 7d 0a 2b 09 09 7d 0;.+.. }.+..}
55b0: 0a 2b 09 09 61 66 74 65 72 50 74 72 2d 3e 74 6f .+..afterPtr->to
55c0: 6b 65 6e 20 3d 20 54 63 6c 43 72 65 61 74 65 41 ken = TclCreateA
55d0: 62 73 6f 6c 75 74 65 54 69 6d 65 72 48 61 6e 64 bsoluteTimerHand
55e0: 6c 65 72 28 26 77 61 6b 65 75 70 2c 0a 2b 09 09 ler(&wakeup,.+..
55f0: 09 09 09 41 66 74 65 72 50 72 6f 63 2c 20 61 66 ...AfterProc, af
5600: 74 65 72 50 74 72 29 3b 0a 2b 09 09 72 65 74 75 terPtr);.+..retu
5610: 72 6e 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 7d 0a rn;.+. }.+.}.
5620: 2b 20 20 20 20 7d 0a 20 0a 20 20 20 20 20 2f 2a + }. . /*
5630: 0a 20 20 20 20 20 20 2a 20 46 69 72 73 74 20 72 . * First r
5640: 65 6d 6f 76 65 20 74 68 65 20 63 61 6c 6c 62 61 emove the callba
5650: 63 6b 20 66 72 6f 6d 20 6f 75 72 20 6c 69 73 74 ck from our list
5660: 20 6f 66 20 63 61 6c 6c 62 61 63 6b 73 3b 20 6f of callbacks; o
5670: 74 68 65 72 77 69 73 65 20 73 6f 6d 65 6f 6e 65 therwise someone
5680: 0a 20 20 20 20 20 20 2a 20 63 6f 75 6c 64 20 64 . * could d
5690: 65 6c 65 74 65 20 74 68 65 20 63 61 6c 6c 62 61 elete the callba
56a0: 63 6b 20 77 68 69 6c 65 20 69 74 27 73 20 62 65 ck while it's be
56b0: 69 6e 67 20 65 78 65 63 75 74 65 64 2c 20 77 68 ing executed, wh
56c0: 69 63 68 20 63 6f 75 6c 64 20 63 61 75 73 65 0a ich could cause.
56d0: 20 20 20 20 20 20 2a 20 61 20 63 6f 72 65 20 64 * a core d
56e0: 75 6d 70 2e 0a 40 40 20 2d 31 31 37 33 2c 31 35 ump..@@ -1173,15
56f0: 20 2b 31 32 36 38 2c 31 34 20 40 40 0a 20 20 20 +1268,14 @@.
5700: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 69 66 20 */. . if
5710: 28 61 73 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 (assocPtr->first
5720: 41 66 74 65 72 50 74 72 20 3d 3d 20 61 66 74 65 AfterPtr == afte
5730: 72 50 74 72 29 20 7b 0a 20 09 61 73 73 6f 63 50 rPtr) {. .assocP
5740: 74 72 2d 3e 66 69 72 73 74 41 66 74 65 72 50 74 tr->firstAfterPt
5750: 72 20 3d 20 61 66 74 65 72 50 74 72 2d 3e 6e 65 r = afterPtr->ne
5760: 78 74 50 74 72 3b 0a 20 20 20 20 20 7d 20 65 6c xtPtr;. } el
5770: 73 65 20 7b 0a 2d 09 66 6f 72 20 28 70 72 65 76 se {.-.for (prev
5780: 50 74 72 20 3d 20 61 73 73 6f 63 50 74 72 2d 3e Ptr = assocPtr->
5790: 66 69 72 73 74 41 66 74 65 72 50 74 72 3b 20 70 firstAfterPtr; p
57a0: 72 65 76 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 revPtr->nextPtr
57b0: 21 3d 20 61 66 74 65 72 50 74 72 3b 0a 2d 09 09 != afterPtr;.-..
57c0: 70 72 65 76 50 74 72 20 3d 20 70 72 65 76 50 74 prevPtr = prevPt
57d0: 72 2d 3e 6e 65 78 74 50 74 72 29 20 7b 0a 2d 09 r->nextPtr) {.-.
57e0: 20 20 20 20 2f 2a 20 45 6d 70 74 79 20 6c 6f 6f /* Empty loo
57f0: 70 20 62 6f 64 79 2e 20 2a 2f 0a 2d 09 7d 0a 2d p body. */.-.}.-
5800: 09 70 72 65 76 50 74 72 2d 3e 6e 65 78 74 50 74 .prevPtr->nextPt
5810: 72 20 3d 20 61 66 74 65 72 50 74 72 2d 3e 6e 65 r = afterPtr->ne
5820: 78 74 50 74 72 3b 0a 2b 09 61 66 74 65 72 50 74 xtPtr;.+.afterPt
5830: 72 2d 3e 70 72 65 76 50 74 72 2d 3e 6e 65 78 74 r->prevPtr->next
5840: 50 74 72 20 3d 20 61 66 74 65 72 50 74 72 2d 3e Ptr = afterPtr->
5850: 6e 65 78 74 50 74 72 3b 0a 2b 20 20 20 20 7d 0a nextPtr;.+ }.
5860: 2b 20 20 20 20 69 66 20 28 61 66 74 65 72 50 74 + if (afterPt
5870: 72 2d 3e 6e 65 78 74 50 74 72 20 21 3d 20 4e 55 r->nextPtr != NU
5880: 4c 4c 29 20 7b 0a 2b 09 61 66 74 65 72 50 74 72 LL) {.+.afterPtr
5890: 2d 3e 6e 65 78 74 50 74 72 2d 3e 70 72 65 76 50 ->nextPtr->prevP
58a0: 74 72 20 3d 20 61 66 74 65 72 50 74 72 2d 3e 70 tr = afterPtr->p
58b0: 72 65 76 50 74 72 3b 0a 20 20 20 20 20 7d 0a 20 revPtr;. }.
58c0: 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a . /*. *
58d0: 20 45 78 65 63 75 74 65 20 74 68 65 20 63 61 6c Execute the cal
58e0: 6c 62 61 63 6b 2e 0a 20 20 20 20 20 20 2a 2f 0a lback.. */.
58f0: 40 40 20 2d 31 32 32 33 2c 32 31 20 2b 31 33 31 @@ -1223,21 +131
5900: 37 2c 31 39 20 40 40 0a 20 0a 20 73 74 61 74 69 7,19 @@. . stati
5910: 63 20 76 6f 69 64 0a 20 46 72 65 65 41 66 74 65 c void. FreeAfte
5920: 72 50 74 72 28 0a 20 20 20 20 20 41 66 74 65 72 rPtr(. After
5930: 49 6e 66 6f 20 2a 61 66 74 65 72 50 74 72 29 09 Info *afterPtr).
5940: 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f 20 62 ./* Command to b
5950: 65 20 64 65 6c 65 74 65 64 2e 20 2a 2f 0a 20 7b e deleted. */. {
5960: 0a 2d 20 20 20 20 41 66 74 65 72 49 6e 66 6f 20 .- AfterInfo
5970: 2a 70 72 65 76 50 74 72 3b 0a 20 20 20 20 20 41 *prevPtr;. A
5980: 66 74 65 72 41 73 73 6f 63 44 61 74 61 20 2a 61 fterAssocData *a
5990: 73 73 6f 63 50 74 72 20 3d 20 61 66 74 65 72 50 ssocPtr = afterP
59a0: 74 72 2d 3e 61 73 73 6f 63 50 74 72 3b 0a 20 0a tr->assocPtr;. .
59b0: 20 20 20 20 20 69 66 20 28 61 73 73 6f 63 50 74 if (assocPt
59c0: 72 2d 3e 66 69 72 73 74 41 66 74 65 72 50 74 72 r->firstAfterPtr
59d0: 20 3d 3d 20 61 66 74 65 72 50 74 72 29 20 7b 0a == afterPtr) {.
59e0: 20 09 61 73 73 6f 63 50 74 72 2d 3e 66 69 72 73 .assocPtr->firs
59f0: 74 41 66 74 65 72 50 74 72 20 3d 20 61 66 74 65 tAfterPtr = afte
5a00: 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 20 rPtr->nextPtr;.
5a10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 66 } else {.-.f
5a20: 6f 72 20 28 70 72 65 76 50 74 72 20 3d 20 61 73 or (prevPtr = as
5a30: 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 41 66 74 socPtr->firstAft
5a40: 65 72 50 74 72 3b 20 70 72 65 76 50 74 72 2d 3e erPtr; prevPtr->
5a50: 6e 65 78 74 50 74 72 20 21 3d 20 61 66 74 65 72 nextPtr != after
5a60: 50 74 72 3b 0a 2d 09 09 70 72 65 76 50 74 72 20 Ptr;.-..prevPtr
5a70: 3d 20 70 72 65 76 50 74 72 2d 3e 6e 65 78 74 50 = prevPtr->nextP
5a80: 74 72 29 20 7b 0a 2d 09 20 20 20 20 2f 2a 20 45 tr) {.-. /* E
5a90: 6d 70 74 79 20 6c 6f 6f 70 20 62 6f 64 79 2e 20 mpty loop body.
5aa0: 2a 2f 0a 2d 09 7d 0a 2d 09 70 72 65 76 50 74 72 */.-.}.-.prevPtr
5ab0: 2d 3e 6e 65 78 74 50 74 72 20 3d 20 61 66 74 65 ->nextPtr = afte
5ac0: 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 2b rPtr->nextPtr;.+
5ad0: 09 61 66 74 65 72 50 74 72 2d 3e 70 72 65 76 50 .afterPtr->prevP
5ae0: 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20 61 66 tr->nextPtr = af
5af0: 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b terPtr->nextPtr;
5b00: 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 69 66 20 .+ }.+ if
5b10: 28 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 (afterPtr->nextP
5b20: 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 tr != NULL) {.+.
5b30: 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 afterPtr->nextPt
5b40: 72 2d 3e 70 72 65 76 50 74 72 20 3d 20 61 66 74 r->prevPtr = aft
5b50: 65 72 50 74 72 2d 3e 70 72 65 76 50 74 72 3b 0a erPtr->prevPtr;.
5b60: 20 20 20 20 20 7d 0a 20 20 20 20 20 54 63 6c 5f }. Tcl_
5b70: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 61 66 74 DecrRefCount(aft
5b80: 65 72 50 74 72 2d 3e 63 6f 6d 6d 61 6e 64 50 74 erPtr->commandPt
5b90: 72 29 3b 0a 20 20 20 20 20 63 6b 66 72 65 65 28 r);. ckfree(
5ba0: 61 66 74 65 72 50 74 72 29 3b 0a 20 7d 0a 20 0c afterPtr);. }. .
5bb0: 0a 40 40 20 2d 31 32 36 39 2c 31 30 20 2b 31 33 .@@ -1269,10 +13
5bc0: 36 31 2c 31 33 20 40 40 0a 20 20 20 20 20 41 66 61,13 @@. Af
5bd0: 74 65 72 49 6e 66 6f 20 2a 61 66 74 65 72 50 74 terInfo *afterPt
5be0: 72 3b 0a 20 0a 20 20 20 20 20 77 68 69 6c 65 20 r;. . while
5bf0: 28 61 73 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 (assocPtr->first
5c00: 41 66 74 65 72 50 74 72 20 21 3d 20 4e 55 4c 4c AfterPtr != NULL
5c10: 29 20 7b 0a 20 09 61 66 74 65 72 50 74 72 20 3d ) {. .afterPtr =
5c20: 20 61 73 73 6f 63 50 74 72 2d 3e 66 69 72 73 74 assocPtr->first
5c30: 41 66 74 65 72 50 74 72 3b 0a 20 09 61 73 73 6f AfterPtr;. .asso
5c40: 63 50 74 72 2d 3e 66 69 72 73 74 41 66 74 65 72 cPtr->firstAfter
5c50: 50 74 72 20 3d 20 61 66 74 65 72 50 74 72 2d 3e Ptr = afterPtr->
5c60: 6e 65 78 74 50 74 72 3b 0a 2b 09 69 66 20 28 61 nextPtr;.+.if (a
5c70: 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 50 74 72 fterPtr->nextPtr
5c80: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 20 20 != NULL) {.+.
5c90: 20 20 61 66 74 65 72 50 74 72 2d 3e 6e 65 78 74 afterPtr->next
5ca0: 50 74 72 2d 3e 70 72 65 76 50 74 72 20 3d 20 61 Ptr->prevPtr = a
5cb0: 66 74 65 72 50 74 72 2d 3e 70 72 65 76 50 74 72 fterPtr->prevPtr
5cc0: 3b 0a 2b 09 7d 0a 20 09 69 66 20 28 61 66 74 65 ;.+.}. .if (afte
5cd0: 72 50 74 72 2d 3e 74 6f 6b 65 6e 20 21 3d 20 4e rPtr->token != N
5ce0: 55 4c 4c 29 20 7b 0a 20 09 20 20 20 20 54 63 6c ULL) {. . Tcl
5cf0: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
5d00: 6c 65 72 28 61 66 74 65 72 50 74 72 2d 3e 74 6f ler(afterPtr->to
5d10: 6b 65 6e 29 3b 0a 20 09 7d 20 65 6c 73 65 20 7b ken);. .} else {
5d20: 0a 20 09 20 20 20 20 54 63 6c 5f 43 61 6e 63 65 . . Tcl_Cance
5d30: 6c 49 64 6c 65 43 61 6c 6c 28 41 66 74 65 72 50 lIdleCall(AfterP
5d40: 72 6f 63 2c 20 61 66 74 65 72 50 74 72 29 3b 0a roc, afterPtr);.
5d50: 20 09 7d 0a 0a 49 6e 64 65 78 3a 20 6d 61 63 6f .}..Index: maco
5d60: 73 78 2f 74 63 6c 4d 61 63 4f 53 58 4e 6f 74 69 sx/tclMacOSXNoti
5d70: 66 79 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d fy.c.===========
5d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5db0: 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 6d 61 63 6f =======.--- maco
5dc0: 73 78 2f 74 63 6c 4d 61 63 4f 53 58 4e 6f 74 69 sx/tclMacOSXNoti
5dd0: 66 79 2e 63 0a 2b 2b 2b 20 6d 61 63 6f 73 78 2f fy.c.+++ macosx/
5de0: 74 63 6c 4d 61 63 4f 53 58 4e 6f 74 69 66 79 2e tclMacOSXNotify.
5df0: 63 0a 40 40 20 2d 31 36 32 39 2c 31 31 20 2b 31 c.@@ -1629,11 +1
5e00: 36 32 39 2c 31 31 20 40 40 0a 20 20 20 20 20 20 629,11 @@.
5e10: 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 61 20 * If there is a
5e20: 6e 6f 6e 2d 7a 65 72 6f 20 66 69 6e 69 74 65 20 non-zero finite
5e30: 74 69 6d 65 6f 75 74 2c 20 63 6f 6d 70 75 74 65 timeout, compute
5e40: 20 74 68 65 20 74 69 6d 65 20 77 68 65 6e 20 77 the time when w
5e50: 65 20 67 69 76 65 0a 20 20 20 20 20 20 2a 20 75 e give. * u
5e60: 70 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 p.. */. .
5e70: 20 20 20 69 66 20 28 74 69 6d 65 6f 75 74 20 3e if (timeout >
5e80: 20 30 29 20 7b 0a 2d 09 54 63 6c 5f 47 65 74 54 0) {.-.Tcl_GetT
5e90: 69 6d 65 28 26 6e 6f 77 29 3b 0a 2b 09 54 63 6c ime(&now);.+.Tcl
5ea0: 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d pGetMonotonicTim
5eb0: 65 28 26 6e 6f 77 29 3b 0a 20 09 61 62 6f 72 74 e(&now);. .abort
5ec0: 54 69 6d 65 2e 73 65 63 20 3d 20 6e 6f 77 2e 73 Time.sec = now.s
5ed0: 65 63 20 2b 20 74 69 6d 65 6f 75 74 2f 31 30 30 ec + timeout/100
5ee0: 30 3b 0a 20 09 61 62 6f 72 74 54 69 6d 65 2e 75 0;. .abortTime.u
5ef0: 73 65 63 20 3d 20 6e 6f 77 2e 75 73 65 63 20 2b sec = now.usec +
5f00: 20 28 74 69 6d 65 6f 75 74 25 31 30 30 30 29 2a (timeout%1000)*
5f10: 31 30 30 30 3b 0a 20 09 69 66 20 28 61 62 6f 72 1000;. .if (abor
5f20: 74 54 69 6d 65 2e 75 73 65 63 20 3e 3d 20 31 30 tTime.usec >= 10
5f30: 30 30 30 30 30 29 20 7b 0a 20 09 20 20 20 20 61 00000) {. . a
5f40: 62 6f 72 74 54 69 6d 65 2e 75 73 65 63 20 2d 3d bortTime.usec -=
5f50: 20 31 30 30 30 30 30 30 3b 0a 20 09 20 20 20 20 1000000;. .
5f60: 61 62 6f 72 74 54 69 6d 65 2e 73 65 63 20 2b 3d abortTime.sec +=
5f70: 20 31 3b 0a 40 40 20 2d 31 37 31 38 2c 31 31 20 1;.@@ -1718,11
5f80: 2b 31 37 31 38 2c 31 31 20 40 40 0a 20 0a 20 09 +1718,11 @@. . .
5f90: 2f 2a 0a 20 09 20 2a 20 54 68 65 20 73 65 6c 65 /*. . * The sele
5fa0: 63 74 20 72 65 74 75 72 6e 65 64 20 65 61 72 6c ct returned earl
5fb0: 79 2c 20 73 6f 20 77 65 20 6e 65 65 64 20 74 6f y, so we need to
5fc0: 20 72 65 63 6f 6d 70 75 74 65 20 74 68 65 20 74 recompute the t
5fd0: 69 6d 65 6f 75 74 2e 0a 20 09 20 2a 2f 0a 20 0a imeout.. . */. .
5fe0: 2d 09 54 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e -.Tcl_GetTime(&n
5ff0: 6f 77 29 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f ow);.+.TclpGetMo
6000: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 6e 6f 77 notonicTime(&now
6010: 29 3b 0a 20 09 69 66 20 28 28 61 62 6f 72 74 54 );. .if ((abortT
6020: 69 6d 65 2e 73 65 63 20 3c 20 6e 6f 77 2e 73 65 ime.sec < now.se
6030: 63 29 0a 20 09 09 7c 7c 20 28 61 62 6f 72 74 54 c). ..|| (abortT
6040: 69 6d 65 2e 73 65 63 3d 3d 6e 6f 77 2e 73 65 63 ime.sec==now.sec
6050: 20 26 26 20 61 62 6f 72 74 54 69 6d 65 2e 75 73 && abortTime.us
6060: 65 63 3c 3d 6e 6f 77 2e 75 73 65 63 29 29 20 7b ec<=now.usec)) {
6070: 0a 20 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 . . break;. .
6080: 7d 0a 20 20 20 20 20 7d 0a 0a 49 6e 64 65 78 3a }. }..Index:
6090: 20 74 65 73 74 73 2f 74 69 6d 65 72 2e 74 65 73 tests/timer.tes
60a0: 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t.==============
60b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
60c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
60d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
60e0: 3d 3d 3d 3d 0a 2d 2d 2d 20 74 65 73 74 73 2f 74 ====.--- tests/t
60f0: 69 6d 65 72 2e 74 65 73 74 0a 2b 2b 2b 20 74 65 imer.test.+++ te
6100: 73 74 73 2f 74 69 6d 65 72 2e 74 65 73 74 0a 40 sts/timer.test.@
6110: 40 20 2d 31 38 37 2c 31 34 20 2b 31 38 37 2c 31 @ -187,14 +187,1
6120: 34 20 40 40 0a 20 74 65 73 74 20 74 69 6d 65 72 4 @@. test timer
6130: 2d 36 2e 31 20 7b 54 63 6c 5f 41 66 74 65 72 43 -6.1 {Tcl_AfterC
6140: 6d 64 20 70 72 6f 63 65 64 75 72 65 2c 20 62 61 md procedure, ba
6150: 73 69 63 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 sics} -returnCod
6160: 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b es error -body {
6170: 0a 20 20 20 20 20 61 66 74 65 72 0a 20 7d 20 2d . after. } -
6180: 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 result {wrong #
6190: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
61a0: 22 61 66 74 65 72 20 6f 70 74 69 6f 6e 20 3f 61 "after option ?a
61b0: 72 67 20 2e 2e 2e 3f 22 7d 0a 20 74 65 73 74 20 rg ...?"}. test
61c0: 74 69 6d 65 72 2d 36 2e 32 20 7b 54 63 6c 5f 41 timer-6.2 {Tcl_A
61d0: 66 74 65 72 43 6d 64 20 70 72 6f 63 65 64 75 72 fterCmd procedur
61e0: 65 2c 20 62 61 73 69 63 73 7d 20 2d 72 65 74 75 e, basics} -retu
61f0: 72 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 rnCodes error -b
6200: 6f 64 79 20 7b 0a 20 20 20 20 20 61 66 74 65 72 ody {. after
6210: 20 32 78 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 2x.-} -result {
6220: 62 61 64 20 61 72 67 75 6d 65 6e 74 20 22 32 78 bad argument "2x
6230: 22 3a 20 6d 75 73 74 20 62 65 20 63 61 6e 63 65 ": must be cance
6240: 6c 2c 20 69 64 6c 65 2c 20 69 6e 66 6f 2c 20 6f l, idle, info, o
6250: 72 20 61 6e 20 69 6e 74 65 67 65 72 7d 0a 2b 7d r an integer}.+}
6260: 20 2d 72 65 73 75 6c 74 20 7b 62 61 64 20 61 72 -result {bad ar
6270: 67 75 6d 65 6e 74 20 22 32 78 22 3a 20 6d 75 73 gument "2x": mus
6280: 74 20 62 65 20 63 61 6e 63 65 6c 2c 20 69 64 6c t be cancel, idl
6290: 65 2c 20 69 6e 66 6f 2c 20 61 6e 20 69 6e 74 65 e, info, an inte
62a0: 67 65 72 2c 20 6f 72 20 22 2d 61 74 22 20 69 6e ger, or "-at" in
62b0: 74 65 67 65 72 7d 0a 20 74 65 73 74 20 74 69 6d teger}. test tim
62c0: 65 72 2d 36 2e 33 20 7b 54 63 6c 5f 41 66 74 65 er-6.3 {Tcl_Afte
62d0: 72 43 6d 64 20 70 72 6f 63 65 64 75 72 65 2c 20 rCmd procedure,
62e0: 62 61 73 69 63 73 7d 20 2d 72 65 74 75 72 6e 43 basics} -returnC
62f0: 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 odes error -body
6300: 20 7b 0a 20 20 20 20 20 61 66 74 65 72 20 67 6f {. after go
6310: 72 70 0a 2d 7d 20 2d 72 65 73 75 6c 74 20 7b 62 rp.-} -result {b
6320: 61 64 20 61 72 67 75 6d 65 6e 74 20 22 67 6f 72 ad argument "gor
6330: 70 22 3a 20 6d 75 73 74 20 62 65 20 63 61 6e 63 p": must be canc
6340: 65 6c 2c 20 69 64 6c 65 2c 20 69 6e 66 6f 2c 20 el, idle, info,
6350: 6f 72 20 61 6e 20 69 6e 74 65 67 65 72 7d 0a 2b or an integer}.+
6360: 7d 20 2d 72 65 73 75 6c 74 20 7b 62 61 64 20 61 } -result {bad a
6370: 72 67 75 6d 65 6e 74 20 22 67 6f 72 70 22 3a 20 rgument "gorp":
6380: 6d 75 73 74 20 62 65 20 63 61 6e 63 65 6c 2c 20 must be cancel,
6390: 69 64 6c 65 2c 20 69 6e 66 6f 2c 20 61 6e 20 69 idle, info, an i
63a0: 6e 74 65 67 65 72 2c 20 6f 72 20 22 2d 61 74 22 nteger, or "-at"
63b0: 20 69 6e 74 65 67 65 72 7d 0a 20 74 65 73 74 20 integer}. test
63c0: 74 69 6d 65 72 2d 36 2e 34 20 7b 54 63 6c 5f 41 timer-6.4 {Tcl_A
63d0: 66 74 65 72 43 6d 64 20 70 72 6f 63 65 64 75 72 fterCmd procedur
63e0: 65 2c 20 6d 73 20 61 72 67 75 6d 65 6e 74 7d 20 e, ms argument}
63f0: 7b 0a 20 20 20 20 20 73 65 74 20 78 20 62 65 66 {. set x bef
6400: 6f 72 65 0a 20 20 20 20 20 61 66 74 65 72 20 34 ore. after 4
6410: 30 30 20 7b 73 65 74 20 78 20 61 66 74 65 72 7d 00 {set x after}
6420: 0a 20 20 20 20 20 61 66 74 65 72 20 32 30 30 0a . after 200.
6430: 20 20 20 20 20 75 70 64 61 74 65 0a 40 40 20 2d update.@@ -
6440: 34 34 34 2c 31 30 20 2b 34 34 34 2c 33 34 20 40 444,10 +444,34 @
6450: 40 0a 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a @. } -cleanup {.
6460: 20 20 20 20 20 66 6f 72 65 61 63 68 20 69 20 5b foreach i [
6470: 61 66 74 65 72 20 69 6e 66 6f 5d 20 7b 0a 20 09 after info] {. .
6480: 61 66 74 65 72 20 63 61 6e 63 65 6c 20 24 69 0a after cancel $i.
6490: 20 20 20 20 20 7d 0a 20 7d 20 2d 72 65 73 75 6c }. } -resul
64a0: 74 20 35 0a 2b 74 65 73 74 20 74 69 6d 65 72 2d t 5.+test timer-
64b0: 36 2e 33 30 20 7b 54 63 6c 5f 41 66 74 65 72 43 6.30 {Tcl_AfterC
64c0: 6d 64 20 70 72 6f 63 65 64 75 72 65 2c 20 62 61 md procedure, ba
64d0: 73 69 63 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 sics} -returnCod
64e0: 65 73 20 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b es error -body {
64f0: 0a 2b 20 20 20 20 61 66 74 65 72 20 2d 61 74 20 .+ after -at
6500: 63 61 6e 63 65 6c 0a 2b 7d 20 2d 72 65 73 75 6c cancel.+} -resul
6510: 74 20 7b 62 61 64 20 61 72 67 75 6d 65 6e 74 20 t {bad argument
6520: 22 2d 61 74 22 3a 20 6d 75 73 74 20 62 65 20 63 "-at": must be c
6530: 61 6e 63 65 6c 2c 20 69 64 6c 65 2c 20 69 6e 66 ancel, idle, inf
6540: 6f 2c 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 6f o, an integer, o
6550: 72 20 22 2d 61 74 22 20 69 6e 74 65 67 65 72 7d r "-at" integer}
6560: 0a 2b 74 65 73 74 20 74 69 6d 65 72 2d 36 2e 33 .+test timer-6.3
6570: 31 20 7b 54 63 6c 5f 41 66 74 65 72 43 6d 64 20 1 {Tcl_AfterCmd
6580: 70 72 6f 63 65 64 75 72 65 2c 20 62 61 73 69 63 procedure, basic
6590: 73 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 s} -returnCodes
65a0: 65 72 72 6f 72 20 2d 62 6f 64 79 20 7b 0a 2b 20 error -body {.+
65b0: 20 20 20 61 66 74 65 72 20 2d 61 74 0a 2b 7d 20 after -at.+}
65c0: 2d 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 -result {wrong #
65d0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
65e0: 20 22 61 66 74 65 72 20 2d 61 74 20 74 69 6d 65 "after -at time
65f0: 20 73 63 72 69 70 74 20 2e 2e 2e 22 7d 0a 2b 74 script ..."}.+t
6600: 65 73 74 20 74 69 6d 65 72 2d 36 2e 33 32 20 7b est timer-6.32 {
6610: 54 63 6c 5f 41 66 74 65 72 43 6d 64 20 70 72 6f Tcl_AfterCmd pro
6620: 63 65 64 75 72 65 2c 20 62 61 73 69 63 73 7d 20 cedure, basics}
6630: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 65 72 72 -returnCodes err
6640: 6f 72 20 2d 62 6f 64 79 20 7b 0a 2b 20 20 20 20 or -body {.+
6650: 61 66 74 65 72 20 2d 61 74 20 31 30 30 30 0a 2b after -at 1000.+
6660: 7d 20 2d 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 } -result {wrong
6670: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
6680: 62 65 20 22 61 66 74 65 72 20 2d 61 74 20 74 69 be "after -at ti
6690: 6d 65 20 73 63 72 69 70 74 20 2e 2e 2e 22 7d 0a me script ..."}.
66a0: 2b 74 65 73 74 20 74 69 6d 65 72 2d 36 2e 33 33 +test timer-6.33
66b0: 20 7b 54 63 6c 5f 41 66 74 65 72 43 6d 64 20 70 {Tcl_AfterCmd p
66c0: 72 6f 63 65 64 75 72 65 2c 20 2d 61 74 20 6f 70 rocedure, -at op
66d0: 74 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 2b 20 tion} -body {.+
66e0: 20 20 20 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 set now [cloc
66f0: 6b 20 73 65 63 6f 6e 64 73 5d 0a 2b 20 20 20 20 k seconds].+
6700: 61 66 74 65 72 20 2d 61 74 20 24 6e 6f 77 20 7b after -at $now {
6710: 73 65 74 20 74 68 65 6e 20 24 6e 6f 77 7d 0a 2b set then $now}.+
6720: 20 20 20 20 61 66 74 65 72 20 31 30 30 30 0a 2b after 1000.+
6730: 20 20 20 20 75 70 64 61 74 65 0a 2b 20 20 20 20 update.+
6740: 65 78 70 72 20 7b 24 74 68 65 6e 20 3d 3d 20 24 expr {$then == $
6750: 6e 6f 77 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 now}.+} -result
6760: 7b 31 7d 0a 2b 74 65 73 74 20 74 69 6d 65 72 2d {1}.+test timer-
6770: 36 2e 33 34 20 7b 54 63 6c 5f 41 66 74 65 72 43 6.34 {Tcl_AfterC
6780: 6d 64 20 70 72 6f 63 65 64 75 72 65 2c 20 2d 61 md procedure, -a
6790: 74 20 6f 70 74 69 6f 6e 7d 20 2d 62 6f 64 79 20 t option} -body
67a0: 7b 0a 2b 20 20 20 20 73 65 74 20 6e 6f 77 20 5b {.+ set now [
67b0: 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0a 2b clock seconds].+
67c0: 20 20 20 20 69 6e 63 72 20 6e 6f 77 0a 2b 20 20 incr now.+
67d0: 20 20 61 66 74 65 72 20 2d 61 74 20 24 6e 6f 77 after -at $now
67e0: 20 7b 73 65 74 20 74 68 65 6e 20 5b 63 6c 6f 63 {set then [cloc
67f0: 6b 20 73 65 63 6f 6e 64 73 5d 7d 0a 2b 20 20 20 k seconds]}.+
6800: 20 61 66 74 65 72 20 31 30 30 30 0a 2b 20 20 20 after 1000.+
6810: 20 75 70 64 61 74 65 0a 2b 20 20 20 20 65 78 70 update.+ exp
6820: 72 20 7b 24 74 68 65 6e 20 3e 3d 20 24 6e 6f 77 r {$then >= $now
6830: 7d 0a 2b 7d 20 2d 72 65 73 75 6c 74 20 7b 31 7d }.+} -result {1}
6840: 0a 20 0a 20 73 65 74 20 65 76 65 6e 74 20 5b 61 . . set event [a
6850: 66 74 65 72 20 69 64 6c 65 20 66 6f 6f 20 62 61 fter idle foo ba
6860: 72 5d 0a 20 73 63 61 6e 20 24 65 76 65 6e 74 20 r]. scan $event
6870: 61 66 74 65 72 23 25 64 20 6c 61 73 74 49 64 0a after#%d lastId.
6880: 20 74 65 73 74 20 74 69 6d 65 72 2d 37 2e 31 20 test timer-7.1
6890: 7b 47 65 74 41 66 74 65 72 45 76 65 6e 74 20 70 {GetAfterEvent p
68a0: 72 6f 63 65 64 75 72 65 7d 20 2d 72 65 74 75 72 rocedure} -retur
68b0: 6e 43 6f 64 65 73 20 65 72 72 6f 72 20 2d 62 6f nCodes error -bo
68c0: 64 79 20 7b 0a 20 20 20 20 20 61 66 74 65 72 20 dy {. after
68d0: 69 6e 66 6f 20 78 66 74 65 72 23 24 6c 61 73 74 info xfter#$last
68e0: 49 64 0a 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f Id..Index: unix/
68f0: 63 6f 6e 66 69 67 75 72 65 0a 3d 3d 3d 3d 3d 3d configure.======
6900: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6910: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6920: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6930: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d ============.---
6940: 20 75 6e 69 78 2f 63 6f 6e 66 69 67 75 72 65 0a unix/configure.
6950: 2b 2b 2b 20 75 6e 69 78 2f 63 6f 6e 66 69 67 75 +++ unix/configu
6960: 72 65 0a 40 40 20 2d 34 36 37 34 2c 31 31 20 2b re.@@ -4674,11 +
6970: 34 36 37 34 2c 31 32 20 40 40 0a 20 0a 20 09 61 4674,12 @@. . .a
6980: 63 5f 73 61 76 65 64 5f 6c 69 62 73 3d 24 4c 49 c_saved_libs=$LI
6990: 42 53 0a 20 09 4c 49 42 53 3d 22 24 4c 49 42 53 BS. .LIBS="$LIBS
69a0: 20 24 54 48 52 45 41 44 53 5f 4c 49 42 53 22 0a $THREADS_LIBS".
69b0: 20 0a 20 0a 2d 66 6f 72 20 61 63 5f 66 75 6e 63 . .-for ac_func
69c0: 20 69 6e 20 70 74 68 72 65 61 64 5f 61 74 74 72 in pthread_attr
69d0: 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 20 70 74 _setstacksize pt
69e0: 68 72 65 61 64 5f 61 74 66 6f 72 6b 0a 2b 0a 2b hread_atfork.+.+
69f0: 66 6f 72 20 61 63 5f 66 75 6e 63 20 69 6e 20 70 for ac_func in p
6a00: 74 68 72 65 61 64 5f 61 74 74 72 5f 73 65 74 73 thread_attr_sets
6a10: 74 61 63 6b 73 69 7a 65 20 70 74 68 72 65 61 64 tacksize pthread
6a20: 5f 61 74 66 6f 72 6b 20 70 74 68 72 65 61 64 5f _atfork pthread_
6a30: 63 6f 6e 64 61 74 74 72 5f 73 65 74 63 6c 6f 63 condattr_setcloc
6a40: 6b 0a 20 64 6f 0a 20 61 73 5f 61 63 5f 76 61 72 k. do. as_ac_var
6a50: 3d 60 65 63 68 6f 20 22 61 63 5f 63 76 5f 66 75 =`echo "ac_cv_fu
6a60: 6e 63 5f 24 61 63 5f 66 75 6e 63 22 20 7c 20 24 nc_$ac_func" | $
6a70: 61 73 5f 74 72 5f 73 68 60 0a 20 65 63 68 6f 20 as_tr_sh`. echo
6a80: 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a "$as_me:$LINENO:
6a90: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 24 61 checking for $a
6aa0: 63 5f 66 75 6e 63 22 20 3e 26 35 0a 20 65 63 68 c_func" >&5. ech
6ab0: 6f 20 24 45 43 48 4f 5f 4e 20 22 63 68 65 63 6b o $ECHO_N "check
6ac0: 69 6e 67 20 66 6f 72 20 24 61 63 5f 66 75 6e 63 ing for $ac_func
6ad0: 2e 2e 2e 20 24 45 43 48 4f 5f 43 22 20 3e 26 36 ... $ECHO_C" >&6
6ae0: 0a 20 69 66 20 65 76 61 6c 20 22 74 65 73 74 20 . if eval "test
6af0: 5c 22 5c 24 7b 24 61 73 5f 61 63 5f 76 61 72 2b \"\${$as_ac_var+
6b00: 73 65 74 7d 5c 22 20 3d 20 73 65 74 22 3b 20 74 set}\" = set"; t
6b10: 68 65 6e 0a 40 40 20 2d 35 36 39 37 2c 31 30 20 hen.@@ -5697,10
6b20: 2b 35 36 39 38 2c 31 38 32 20 40 40 0a 20 20 20 +5698,182 @@.
6b30: 4c 49 42 53 3d 22 24 4c 49 42 53 20 2d 6c 6e 73 LIBS="$LIBS -lns
6b40: 6c 22 0a 20 66 69 0a 20 0a 20 66 69 0a 20 0a 2b l". fi. . fi. .+
6b50: 0a 2b 20 20 20 20 65 63 68 6f 20 22 24 61 73 5f .+ echo "$as_
6b60: 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 63 68 65 63 me:$LINENO: chec
6b70: 6b 69 6e 67 20 66 6f 72 20 63 6c 6f 63 6b 5f 67 king for clock_g
6b80: 65 74 74 69 6d 65 20 69 6e 20 2d 6c 72 74 22 20 ettime in -lrt"
6b90: 3e 26 35 0a 2b 65 63 68 6f 20 24 45 43 48 4f 5f >&5.+echo $ECHO_
6ba0: 4e 20 22 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 N "checking for
6bb0: 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 20 69 6e clock_gettime in
6bc0: 20 2d 6c 72 74 2e 2e 2e 20 24 45 43 48 4f 5f 43 -lrt... $ECHO_C
6bd0: 22 20 3e 26 36 0a 2b 69 66 20 74 65 73 74 20 22 " >&6.+if test "
6be0: 24 7b 61 63 5f 63 76 5f 6c 69 62 5f 72 74 5f 63 ${ac_cv_lib_rt_c
6bf0: 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 2b 73 65 74 lock_gettime+set
6c00: 7d 22 20 3d 20 73 65 74 3b 20 74 68 65 6e 0a 2b }" = set; then.+
6c10: 20 20 65 63 68 6f 20 24 45 43 48 4f 5f 4e 20 22 echo $ECHO_N "
6c20: 28 63 61 63 68 65 64 29 20 24 45 43 48 4f 5f 43 (cached) $ECHO_C
6c30: 22 20 3e 26 36 0a 2b 65 6c 73 65 0a 2b 20 20 61 " >&6.+else.+ a
6c40: 63 5f 63 68 65 63 6b 5f 6c 69 62 5f 73 61 76 65 c_check_lib_save
6c50: 5f 4c 49 42 53 3d 24 4c 49 42 53 0a 2b 4c 49 42 _LIBS=$LIBS.+LIB
6c60: 53 3d 22 2d 6c 72 74 20 20 24 4c 49 42 53 22 0a S="-lrt $LIBS".
6c70: 2b 63 61 74 20 3e 63 6f 6e 66 74 65 73 74 2e 24 +cat >conftest.$
6c80: 61 63 5f 65 78 74 20 3c 3c 5f 41 43 45 4f 46 0a ac_ext <<_ACEOF.
6c90: 2b 2f 2a 20 63 6f 6e 66 64 65 66 73 2e 68 2e 20 +/* confdefs.h.
6ca0: 20 2a 2f 0a 2b 5f 41 43 45 4f 46 0a 2b 63 61 74 */.+_ACEOF.+cat
6cb0: 20 63 6f 6e 66 64 65 66 73 2e 68 20 3e 3e 63 6f confdefs.h >>co
6cc0: 6e 66 74 65 73 74 2e 24 61 63 5f 65 78 74 0a 2b nftest.$ac_ext.+
6cd0: 63 61 74 20 3e 3e 63 6f 6e 66 74 65 73 74 2e 24 cat >>conftest.$
6ce0: 61 63 5f 65 78 74 20 3c 3c 5f 41 43 45 4f 46 0a ac_ext <<_ACEOF.
6cf0: 2b 2f 2a 20 65 6e 64 20 63 6f 6e 66 64 65 66 73 +/* end confdefs
6d00: 2e 68 2e 20 20 2a 2f 0a 2b 0a 2b 2f 2a 20 4f 76 .h. */.+.+/* Ov
6d10: 65 72 72 69 64 65 20 61 6e 79 20 67 63 63 32 20 erride any gcc2
6d20: 69 6e 74 65 72 6e 61 6c 20 70 72 6f 74 6f 74 79 internal prototy
6d30: 70 65 20 74 6f 20 61 76 6f 69 64 20 61 6e 20 65 pe to avoid an e
6d40: 72 72 6f 72 2e 20 20 2a 2f 0a 2b 23 69 66 64 65 rror. */.+#ifde
6d50: 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2b 65 f __cplusplus.+e
6d60: 78 74 65 72 6e 20 22 43 22 0a 2b 23 65 6e 64 69 xtern "C".+#endi
6d70: 66 0a 2b 2f 2a 20 57 65 20 75 73 65 20 63 68 61 f.+/* We use cha
6d80: 72 20 62 65 63 61 75 73 65 20 69 6e 74 20 6d 69 r because int mi
6d90: 67 68 74 20 6d 61 74 63 68 20 74 68 65 20 72 65 ght match the re
6da0: 74 75 72 6e 20 74 79 70 65 20 6f 66 20 61 20 67 turn type of a g
6db0: 63 63 32 0a 2b 20 20 20 62 75 69 6c 74 69 6e 20 cc2.+ builtin
6dc0: 61 6e 64 20 74 68 65 6e 20 69 74 73 20 61 72 67 and then its arg
6dd0: 75 6d 65 6e 74 20 70 72 6f 74 6f 74 79 70 65 20 ument prototype
6de0: 77 6f 75 6c 64 20 73 74 69 6c 6c 20 61 70 70 6c would still appl
6df0: 79 2e 20 20 2a 2f 0a 2b 63 68 61 72 20 63 6c 6f y. */.+char clo
6e00: 63 6b 5f 67 65 74 74 69 6d 65 20 28 29 3b 0a 2b ck_gettime ();.+
6e10: 69 6e 74 0a 2b 6d 61 69 6e 20 28 29 0a 2b 7b 0a int.+main ().+{.
6e20: 2b 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 20 28 +clock_gettime (
6e30: 29 3b 0a 2b 20 20 3b 0a 2b 20 20 72 65 74 75 72 );.+ ;.+ retur
6e40: 6e 20 30 3b 0a 2b 7d 0a 2b 5f 41 43 45 4f 46 0a n 0;.+}.+_ACEOF.
6e50: 2b 72 6d 20 2d 66 20 63 6f 6e 66 74 65 73 74 2e +rm -f conftest.
6e60: 24 61 63 5f 6f 62 6a 65 78 74 20 63 6f 6e 66 74 $ac_objext conft
6e70: 65 73 74 24 61 63 5f 65 78 65 65 78 74 0a 2b 69 est$ac_exeext.+i
6e80: 66 20 7b 20 28 65 76 61 6c 20 65 63 68 6f 20 22 f { (eval echo "
6e90: 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 $as_me:$LINENO:
6ea0: 5c 22 24 61 63 5f 6c 69 6e 6b 5c 22 22 29 20 3e \"$ac_link\"") >
6eb0: 26 35 0a 2b 20 20 28 65 76 61 6c 20 24 61 63 5f &5.+ (eval $ac_
6ec0: 6c 69 6e 6b 29 20 32 3e 63 6f 6e 66 74 65 73 74 link) 2>conftest
6ed0: 2e 65 72 31 0a 2b 20 20 61 63 5f 73 74 61 74 75 .er1.+ ac_statu
6ee0: 73 3d 24 3f 0a 2b 20 20 67 72 65 70 20 2d 76 20 s=$?.+ grep -v
6ef0: 27 5e 20 2a 2b 27 20 63 6f 6e 66 74 65 73 74 2e '^ *+' conftest.
6f00: 65 72 31 20 3e 63 6f 6e 66 74 65 73 74 2e 65 72 er1 >conftest.er
6f10: 72 0a 2b 20 20 72 6d 20 2d 66 20 63 6f 6e 66 74 r.+ rm -f conft
6f20: 65 73 74 2e 65 72 31 0a 2b 20 20 63 61 74 20 63 est.er1.+ cat c
6f30: 6f 6e 66 74 65 73 74 2e 65 72 72 20 3e 26 35 0a onftest.err >&5.
6f40: 2b 20 20 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a + echo "$as_me:
6f50: 24 4c 49 4e 45 4e 4f 3a 20 5c 24 3f 20 3d 20 24 $LINENO: \$? = $
6f60: 61 63 5f 73 74 61 74 75 73 22 20 3e 26 35 0a 2b ac_status" >&5.+
6f70: 20 20 28 65 78 69 74 20 24 61 63 5f 73 74 61 74 (exit $ac_stat
6f80: 75 73 29 3b 20 7d 20 26 26 0a 2b 09 20 7b 20 61 us); } &&.+. { a
6f90: 63 5f 74 72 79 3d 27 74 65 73 74 20 2d 7a 20 22 c_try='test -z "
6fa0: 24 61 63 5f 63 5f 77 65 72 72 6f 72 5f 66 6c 61 $ac_c_werror_fla
6fb0: 67 22 0a 2b 09 09 09 20 7c 7c 20 74 65 73 74 20 g".+... || test
6fc0: 21 20 2d 73 20 63 6f 6e 66 74 65 73 74 2e 65 72 ! -s conftest.er
6fd0: 72 27 0a 2b 20 20 7b 20 28 65 76 61 6c 20 65 63 r'.+ { (eval ec
6fe0: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
6ff0: 4e 4f 3a 20 5c 22 24 61 63 5f 74 72 79 5c 22 22 NO: \"$ac_try\""
7000: 29 20 3e 26 35 0a 2b 20 20 28 65 76 61 6c 20 24 ) >&5.+ (eval $
7010: 61 63 5f 74 72 79 29 20 32 3e 26 35 0a 2b 20 20 ac_try) 2>&5.+
7020: 61 63 5f 73 74 61 74 75 73 3d 24 3f 0a 2b 20 20 ac_status=$?.+
7030: 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 echo "$as_me:$LI
7040: 4e 45 4e 4f 3a 20 5c 24 3f 20 3d 20 24 61 63 5f NENO: \$? = $ac_
7050: 73 74 61 74 75 73 22 20 3e 26 35 0a 2b 20 20 28 status" >&5.+ (
7060: 65 78 69 74 20 24 61 63 5f 73 74 61 74 75 73 29 exit $ac_status)
7070: 3b 20 7d 3b 20 7d 20 26 26 0a 2b 09 20 7b 20 61 ; }; } &&.+. { a
7080: 63 5f 74 72 79 3d 27 74 65 73 74 20 2d 73 20 63 c_try='test -s c
7090: 6f 6e 66 74 65 73 74 24 61 63 5f 65 78 65 65 78 onftest$ac_exeex
70a0: 74 27 0a 2b 20 20 7b 20 28 65 76 61 6c 20 65 63 t'.+ { (eval ec
70b0: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
70c0: 4e 4f 3a 20 5c 22 24 61 63 5f 74 72 79 5c 22 22 NO: \"$ac_try\""
70d0: 29 20 3e 26 35 0a 2b 20 20 28 65 76 61 6c 20 24 ) >&5.+ (eval $
70e0: 61 63 5f 74 72 79 29 20 32 3e 26 35 0a 2b 20 20 ac_try) 2>&5.+
70f0: 61 63 5f 73 74 61 74 75 73 3d 24 3f 0a 2b 20 20 ac_status=$?.+
7100: 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 echo "$as_me:$LI
7110: 4e 45 4e 4f 3a 20 5c 24 3f 20 3d 20 24 61 63 5f NENO: \$? = $ac_
7120: 73 74 61 74 75 73 22 20 3e 26 35 0a 2b 20 20 28 status" >&5.+ (
7130: 65 78 69 74 20 24 61 63 5f 73 74 61 74 75 73 29 exit $ac_status)
7140: 3b 20 7d 3b 20 7d 3b 20 74 68 65 6e 0a 2b 20 20 ; }; }; then.+
7150: 61 63 5f 63 76 5f 6c 69 62 5f 72 74 5f 63 6c 6f ac_cv_lib_rt_clo
7160: 63 6b 5f 67 65 74 74 69 6d 65 3d 79 65 73 0a 2b ck_gettime=yes.+
7170: 65 6c 73 65 0a 2b 20 20 65 63 68 6f 20 22 24 61 else.+ echo "$a
7180: 73 5f 6d 65 3a 20 66 61 69 6c 65 64 20 70 72 6f s_me: failed pro
7190: 67 72 61 6d 20 77 61 73 3a 22 20 3e 26 35 0a 2b gram was:" >&5.+
71a0: 73 65 64 20 27 73 2f 5e 2f 7c 20 2f 27 20 63 6f sed 's/^/| /' co
71b0: 6e 66 74 65 73 74 2e 24 61 63 5f 65 78 74 20 3e nftest.$ac_ext >
71c0: 26 35 0a 2b 0a 2b 61 63 5f 63 76 5f 6c 69 62 5f &5.+.+ac_cv_lib_
71d0: 72 74 5f 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 rt_clock_gettime
71e0: 3d 6e 6f 0a 2b 66 69 0a 2b 72 6d 20 2d 66 20 63 =no.+fi.+rm -f c
71f0: 6f 6e 66 74 65 73 74 2e 65 72 72 20 63 6f 6e 66 onftest.err conf
7200: 74 65 73 74 2e 24 61 63 5f 6f 62 6a 65 78 74 20 test.$ac_objext
7210: 5c 0a 2b 20 20 20 20 20 20 63 6f 6e 66 74 65 73 \.+ conftes
7220: 74 24 61 63 5f 65 78 65 65 78 74 20 63 6f 6e 66 t$ac_exeext conf
7230: 74 65 73 74 2e 24 61 63 5f 65 78 74 0a 2b 4c 49 test.$ac_ext.+LI
7240: 42 53 3d 24 61 63 5f 63 68 65 63 6b 5f 6c 69 62 BS=$ac_check_lib
7250: 5f 73 61 76 65 5f 4c 49 42 53 0a 2b 66 69 0a 2b _save_LIBS.+fi.+
7260: 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 echo "$as_me:$LI
7270: 4e 45 4e 4f 3a 20 72 65 73 75 6c 74 3a 20 24 61 NENO: result: $a
7280: 63 5f 63 76 5f 6c 69 62 5f 72 74 5f 63 6c 6f 63 c_cv_lib_rt_cloc
7290: 6b 5f 67 65 74 74 69 6d 65 22 20 3e 26 35 0a 2b k_gettime" >&5.+
72a0: 65 63 68 6f 20 22 24 7b 45 43 48 4f 5f 54 7d 24 echo "${ECHO_T}$
72b0: 61 63 5f 63 76 5f 6c 69 62 5f 72 74 5f 63 6c 6f ac_cv_lib_rt_clo
72c0: 63 6b 5f 67 65 74 74 69 6d 65 22 20 3e 26 36 0a ck_gettime" >&6.
72d0: 2b 69 66 20 74 65 73 74 20 24 61 63 5f 63 76 5f +if test $ac_cv_
72e0: 6c 69 62 5f 72 74 5f 63 6c 6f 63 6b 5f 67 65 74 lib_rt_clock_get
72f0: 74 69 6d 65 20 3d 20 79 65 73 3b 20 74 68 65 6e time = yes; then
7300: 0a 2b 20 20 4c 49 42 53 3d 22 24 4c 49 42 53 20 .+ LIBS="$LIBS
7310: 2d 6c 72 74 22 0a 2b 66 69 0a 2b 0a 2b 0a 2b 0a -lrt".+fi.+.+.+.
7320: 2b 66 6f 72 20 61 63 5f 66 75 6e 63 20 69 6e 20 +for ac_func in
7330: 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 20 63 6c clock_gettime cl
7340: 6f 63 6b 5f 6e 61 6e 6f 73 6c 65 65 70 0a 2b 64 ock_nanosleep.+d
7350: 6f 0a 2b 61 73 5f 61 63 5f 76 61 72 3d 60 65 63 o.+as_ac_var=`ec
7360: 68 6f 20 22 61 63 5f 63 76 5f 66 75 6e 63 5f 24 ho "ac_cv_func_$
7370: 61 63 5f 66 75 6e 63 22 20 7c 20 24 61 73 5f 74 ac_func" | $as_t
7380: 72 5f 73 68 60 0a 2b 65 63 68 6f 20 22 24 61 73 r_sh`.+echo "$as
7390: 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 63 68 65 _me:$LINENO: che
73a0: 63 6b 69 6e 67 20 66 6f 72 20 24 61 63 5f 66 75 cking for $ac_fu
73b0: 6e 63 22 20 3e 26 35 0a 2b 65 63 68 6f 20 24 45 nc" >&5.+echo $E
73c0: 43 48 4f 5f 4e 20 22 63 68 65 63 6b 69 6e 67 20 CHO_N "checking
73d0: 66 6f 72 20 24 61 63 5f 66 75 6e 63 2e 2e 2e 20 for $ac_func...
73e0: 24 45 43 48 4f 5f 43 22 20 3e 26 36 0a 2b 69 66 $ECHO_C" >&6.+if
73f0: 20 65 76 61 6c 20 22 74 65 73 74 20 5c 22 5c 24 eval "test \"\$
7400: 7b 24 61 73 5f 61 63 5f 76 61 72 2b 73 65 74 7d {$as_ac_var+set}
7410: 5c 22 20 3d 20 73 65 74 22 3b 20 74 68 65 6e 0a \" = set"; then.
7420: 2b 20 20 65 63 68 6f 20 24 45 43 48 4f 5f 4e 20 + echo $ECHO_N
7430: 22 28 63 61 63 68 65 64 29 20 24 45 43 48 4f 5f "(cached) $ECHO_
7440: 43 22 20 3e 26 36 0a 2b 65 6c 73 65 0a 2b 20 20 C" >&6.+else.+
7450: 63 61 74 20 3e 63 6f 6e 66 74 65 73 74 2e 24 61 cat >conftest.$a
7460: 63 5f 65 78 74 20 3c 3c 5f 41 43 45 4f 46 0a 2b c_ext <<_ACEOF.+
7470: 2f 2a 20 63 6f 6e 66 64 65 66 73 2e 68 2e 20 20 /* confdefs.h.
7480: 2a 2f 0a 2b 5f 41 43 45 4f 46 0a 2b 63 61 74 20 */.+_ACEOF.+cat
7490: 63 6f 6e 66 64 65 66 73 2e 68 20 3e 3e 63 6f 6e confdefs.h >>con
74a0: 66 74 65 73 74 2e 24 61 63 5f 65 78 74 0a 2b 63 ftest.$ac_ext.+c
74b0: 61 74 20 3e 3e 63 6f 6e 66 74 65 73 74 2e 24 61 at >>conftest.$a
74c0: 63 5f 65 78 74 20 3c 3c 5f 41 43 45 4f 46 0a 2b c_ext <<_ACEOF.+
74d0: 2f 2a 20 65 6e 64 20 63 6f 6e 66 64 65 66 73 2e /* end confdefs.
74e0: 68 2e 20 20 2a 2f 0a 2b 2f 2a 20 44 65 66 69 6e h. */.+/* Defin
74f0: 65 20 24 61 63 5f 66 75 6e 63 20 74 6f 20 61 6e e $ac_func to an
7500: 20 69 6e 6e 6f 63 75 6f 75 73 20 76 61 72 69 61 innocuous varia
7510: 6e 74 2c 20 69 6e 20 63 61 73 65 20 3c 6c 69 6d nt, in case <lim
7520: 69 74 73 2e 68 3e 20 64 65 63 6c 61 72 65 73 20 its.h> declares
7530: 24 61 63 5f 66 75 6e 63 2e 0a 2b 20 20 20 46 6f $ac_func..+ Fo
7540: 72 20 65 78 61 6d 70 6c 65 2c 20 48 50 2d 55 58 r example, HP-UX
7550: 20 31 31 69 20 3c 6c 69 6d 69 74 73 2e 68 3e 20 11i <limits.h>
7560: 64 65 63 6c 61 72 65 73 20 67 65 74 74 69 6d 65 declares gettime
7570: 6f 66 64 61 79 2e 20 20 2a 2f 0a 2b 23 64 65 66 ofday. */.+#def
7580: 69 6e 65 20 24 61 63 5f 66 75 6e 63 20 69 6e 6e ine $ac_func inn
7590: 6f 63 75 6f 75 73 5f 24 61 63 5f 66 75 6e 63 0a ocuous_$ac_func.
75a0: 2b 0a 2b 2f 2a 20 53 79 73 74 65 6d 20 68 65 61 +.+/* System hea
75b0: 64 65 72 20 74 6f 20 64 65 66 69 6e 65 20 5f 5f der to define __
75c0: 73 74 75 62 20 6d 61 63 72 6f 73 20 61 6e 64 20 stub macros and
75d0: 68 6f 70 65 66 75 6c 6c 79 20 66 65 77 20 70 72 hopefully few pr
75e0: 6f 74 6f 74 79 70 65 73 2c 0a 2b 20 20 20 20 77 ototypes,.+ w
75f0: 68 69 63 68 20 63 61 6e 20 63 6f 6e 66 6c 69 63 hich can conflic
7600: 74 20 77 69 74 68 20 63 68 61 72 20 24 61 63 5f t with char $ac_
7610: 66 75 6e 63 20 28 29 3b 20 62 65 6c 6f 77 2e 0a func (); below..
7620: 2b 20 20 20 20 50 72 65 66 65 72 20 3c 6c 69 6d + Prefer <lim
7630: 69 74 73 2e 68 3e 20 74 6f 20 3c 61 73 73 65 72 its.h> to <asser
7640: 74 2e 68 3e 20 69 66 20 5f 5f 53 54 44 43 5f 5f t.h> if __STDC__
7650: 20 69 73 20 64 65 66 69 6e 65 64 2c 20 73 69 6e is defined, sin
7660: 63 65 0a 2b 20 20 20 20 3c 6c 69 6d 69 74 73 2e ce.+ <limits.
7670: 68 3e 20 65 78 69 73 74 73 20 65 76 65 6e 20 6f h> exists even o
7680: 6e 20 66 72 65 65 73 74 61 6e 64 69 6e 67 20 63 n freestanding c
7690: 6f 6d 70 69 6c 65 72 73 2e 20 20 2a 2f 0a 2b 0a ompilers. */.+.
76a0: 2b 23 69 66 64 65 66 20 5f 5f 53 54 44 43 5f 5f +#ifdef __STDC__
76b0: 0a 2b 23 20 69 6e 63 6c 75 64 65 20 3c 6c 69 6d .+# include <lim
76c0: 69 74 73 2e 68 3e 0a 2b 23 65 6c 73 65 0a 2b 23 its.h>.+#else.+#
76d0: 20 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 include <assert
76e0: 2e 68 3e 0a 2b 23 65 6e 64 69 66 0a 2b 0a 2b 23 .h>.+#endif.+.+#
76f0: 75 6e 64 65 66 20 24 61 63 5f 66 75 6e 63 0a 2b undef $ac_func.+
7700: 0a 2b 2f 2a 20 4f 76 65 72 72 69 64 65 20 61 6e .+/* Override an
7710: 79 20 67 63 63 32 20 69 6e 74 65 72 6e 61 6c 20 y gcc2 internal
7720: 70 72 6f 74 6f 74 79 70 65 20 74 6f 20 61 76 6f prototype to avo
7730: 69 64 20 61 6e 20 65 72 72 6f 72 2e 20 20 2a 2f id an error. */
7740: 0a 2b 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 .+#ifdef __cplus
7750: 70 6c 75 73 0a 2b 65 78 74 65 72 6e 20 22 43 22 plus.+extern "C"
7760: 0a 2b 7b 0a 2b 23 65 6e 64 69 66 0a 2b 2f 2a 20 .+{.+#endif.+/*
7770: 57 65 20 75 73 65 20 63 68 61 72 20 62 65 63 61 We use char beca
7780: 75 73 65 20 69 6e 74 20 6d 69 67 68 74 20 6d 61 use int might ma
7790: 74 63 68 20 74 68 65 20 72 65 74 75 72 6e 20 74 tch the return t
77a0: 79 70 65 20 6f 66 20 61 20 67 63 63 32 0a 2b 20 ype of a gcc2.+
77b0: 20 20 62 75 69 6c 74 69 6e 20 61 6e 64 20 74 68 builtin and th
77c0: 65 6e 20 69 74 73 20 61 72 67 75 6d 65 6e 74 20 en its argument
77d0: 70 72 6f 74 6f 74 79 70 65 20 77 6f 75 6c 64 20 prototype would
77e0: 73 74 69 6c 6c 20 61 70 70 6c 79 2e 20 20 2a 2f still apply. */
77f0: 0a 2b 63 68 61 72 20 24 61 63 5f 66 75 6e 63 20 .+char $ac_func
7800: 28 29 3b 0a 2b 2f 2a 20 54 68 65 20 47 4e 55 20 ();.+/* The GNU
7810: 43 20 6c 69 62 72 61 72 79 20 64 65 66 69 6e 65 C library define
7820: 73 20 74 68 69 73 20 66 6f 72 20 66 75 6e 63 74 s this for funct
7830: 69 6f 6e 73 20 77 68 69 63 68 20 69 74 20 69 6d ions which it im
7840: 70 6c 65 6d 65 6e 74 73 0a 2b 20 20 20 20 74 6f plements.+ to
7850: 20 61 6c 77 61 79 73 20 66 61 69 6c 20 77 69 74 always fail wit
7860: 68 20 45 4e 4f 53 59 53 2e 20 20 53 6f 6d 65 20 h ENOSYS. Some
7870: 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 61 63 functions are ac
7880: 74 75 61 6c 6c 79 20 6e 61 6d 65 64 0a 2b 20 20 tually named.+
7890: 20 20 73 6f 6d 65 74 68 69 6e 67 20 73 74 61 72 something star
78a0: 74 69 6e 67 20 77 69 74 68 20 5f 5f 20 61 6e 64 ting with __ and
78b0: 20 74 68 65 20 6e 6f 72 6d 61 6c 20 6e 61 6d 65 the normal name
78c0: 20 69 73 20 61 6e 20 61 6c 69 61 73 2e 20 20 2a is an alias. *
78d0: 2f 0a 2b 23 69 66 20 64 65 66 69 6e 65 64 20 28 /.+#if defined (
78e0: 5f 5f 73 74 75 62 5f 24 61 63 5f 66 75 6e 63 29 __stub_$ac_func)
78f0: 20 7c 7c 20 64 65 66 69 6e 65 64 20 28 5f 5f 73 || defined (__s
7900: 74 75 62 5f 5f 5f 24 61 63 5f 66 75 6e 63 29 0a tub___$ac_func).
7910: 2b 63 68 6f 6b 65 20 6d 65 0a 2b 23 65 6c 73 65 +choke me.+#else
7920: 0a 2b 63 68 61 72 20 28 2a 66 29 20 28 29 20 3d .+char (*f) () =
7930: 20 24 61 63 5f 66 75 6e 63 3b 0a 2b 23 65 6e 64 $ac_func;.+#end
7940: 69 66 0a 2b 23 69 66 64 65 66 20 5f 5f 63 70 6c if.+#ifdef __cpl
7950: 75 73 70 6c 75 73 0a 2b 7d 0a 2b 23 65 6e 64 69 usplus.+}.+#endi
7960: 66 0a 2b 0a 2b 69 6e 74 0a 2b 6d 61 69 6e 20 28 f.+.+int.+main (
7970: 29 0a 2b 7b 0a 2b 72 65 74 75 72 6e 20 66 20 21 ).+{.+return f !
7980: 3d 20 24 61 63 5f 66 75 6e 63 3b 0a 2b 20 20 3b = $ac_func;.+ ;
7990: 0a 2b 20 20 72 65 74 75 72 6e 20 30 3b 0a 2b 7d .+ return 0;.+}
79a0: 0a 2b 5f 41 43 45 4f 46 0a 2b 72 6d 20 2d 66 20 .+_ACEOF.+rm -f
79b0: 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f 6f 62 6a conftest.$ac_obj
79c0: 65 78 74 20 63 6f 6e 66 74 65 73 74 24 61 63 5f ext conftest$ac_
79d0: 65 78 65 65 78 74 0a 2b 69 66 20 7b 20 28 65 76 exeext.+if { (ev
79e0: 61 6c 20 65 63 68 6f 20 22 24 61 73 5f 6d 65 3a al echo "$as_me:
79f0: 24 4c 49 4e 45 4e 4f 3a 20 5c 22 24 61 63 5f 6c $LINENO: \"$ac_l
7a00: 69 6e 6b 5c 22 22 29 20 3e 26 35 0a 2b 20 20 28 ink\"") >&5.+ (
7a10: 65 76 61 6c 20 24 61 63 5f 6c 69 6e 6b 29 20 32 eval $ac_link) 2
7a20: 3e 63 6f 6e 66 74 65 73 74 2e 65 72 31 0a 2b 20 >conftest.er1.+
7a30: 20 61 63 5f 73 74 61 74 75 73 3d 24 3f 0a 2b 20 ac_status=$?.+
7a40: 20 67 72 65 70 20 2d 76 20 27 5e 20 2a 2b 27 20 grep -v '^ *+'
7a50: 63 6f 6e 66 74 65 73 74 2e 65 72 31 20 3e 63 6f conftest.er1 >co
7a60: 6e 66 74 65 73 74 2e 65 72 72 0a 2b 20 20 72 6d nftest.err.+ rm
7a70: 20 2d 66 20 63 6f 6e 66 74 65 73 74 2e 65 72 31 -f conftest.er1
7a80: 0a 2b 20 20 63 61 74 20 63 6f 6e 66 74 65 73 74 .+ cat conftest
7a90: 2e 65 72 72 20 3e 26 35 0a 2b 20 20 65 63 68 6f .err >&5.+ echo
7aa0: 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f "$as_me:$LINENO
7ab0: 3a 20 5c 24 3f 20 3d 20 24 61 63 5f 73 74 61 74 : \$? = $ac_stat
7ac0: 75 73 22 20 3e 26 35 0a 2b 20 20 28 65 78 69 74 us" >&5.+ (exit
7ad0: 20 24 61 63 5f 73 74 61 74 75 73 29 3b 20 7d 20 $ac_status); }
7ae0: 26 26 0a 2b 09 20 7b 20 61 63 5f 74 72 79 3d 27 &&.+. { ac_try='
7af0: 74 65 73 74 20 2d 7a 20 22 24 61 63 5f 63 5f 77 test -z "$ac_c_w
7b00: 65 72 72 6f 72 5f 66 6c 61 67 22 0a 2b 09 09 09 error_flag".+...
7b10: 20 7c 7c 20 74 65 73 74 20 21 20 2d 73 20 63 6f || test ! -s co
7b20: 6e 66 74 65 73 74 2e 65 72 72 27 0a 2b 20 20 7b nftest.err'.+ {
7b30: 20 28 65 76 61 6c 20 65 63 68 6f 20 22 24 61 73 (eval echo "$as
7b40: 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 22 24 _me:$LINENO: \"$
7b50: 61 63 5f 74 72 79 5c 22 22 29 20 3e 26 35 0a 2b ac_try\"") >&5.+
7b60: 20 20 28 65 76 61 6c 20 24 61 63 5f 74 72 79 29 (eval $ac_try)
7b70: 20 32 3e 26 35 0a 2b 20 20 61 63 5f 73 74 61 74 2>&5.+ ac_stat
7b80: 75 73 3d 24 3f 0a 2b 20 20 65 63 68 6f 20 22 24 us=$?.+ echo "$
7b90: 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c as_me:$LINENO: \
7ba0: 24 3f 20 3d 20 24 61 63 5f 73 74 61 74 75 73 22 $? = $ac_status"
7bb0: 20 3e 26 35 0a 2b 20 20 28 65 78 69 74 20 24 61 >&5.+ (exit $a
7bc0: 63 5f 73 74 61 74 75 73 29 3b 20 7d 3b 20 7d 20 c_status); }; }
7bd0: 26 26 0a 2b 09 20 7b 20 61 63 5f 74 72 79 3d 27 &&.+. { ac_try='
7be0: 74 65 73 74 20 2d 73 20 63 6f 6e 66 74 65 73 74 test -s conftest
7bf0: 24 61 63 5f 65 78 65 65 78 74 27 0a 2b 20 20 7b $ac_exeext'.+ {
7c00: 20 28 65 76 61 6c 20 65 63 68 6f 20 22 24 61 73 (eval echo "$as
7c10: 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c 22 24 _me:$LINENO: \"$
7c20: 61 63 5f 74 72 79 5c 22 22 29 20 3e 26 35 0a 2b ac_try\"") >&5.+
7c30: 20 20 28 65 76 61 6c 20 24 61 63 5f 74 72 79 29 (eval $ac_try)
7c40: 20 32 3e 26 35 0a 2b 20 20 61 63 5f 73 74 61 74 2>&5.+ ac_stat
7c50: 75 73 3d 24 3f 0a 2b 20 20 65 63 68 6f 20 22 24 us=$?.+ echo "$
7c60: 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 5c as_me:$LINENO: \
7c70: 24 3f 20 3d 20 24 61 63 5f 73 74 61 74 75 73 22 $? = $ac_status"
7c80: 20 3e 26 35 0a 2b 20 20 28 65 78 69 74 20 24 61 >&5.+ (exit $a
7c90: 63 5f 73 74 61 74 75 73 29 3b 20 7d 3b 20 7d 3b c_status); }; };
7ca0: 20 74 68 65 6e 0a 2b 20 20 65 76 61 6c 20 22 24 then.+ eval "$
7cb0: 61 73 5f 61 63 5f 76 61 72 3d 79 65 73 22 0a 2b as_ac_var=yes".+
7cc0: 65 6c 73 65 0a 2b 20 20 65 63 68 6f 20 22 24 61 else.+ echo "$a
7cd0: 73 5f 6d 65 3a 20 66 61 69 6c 65 64 20 70 72 6f s_me: failed pro
7ce0: 67 72 61 6d 20 77 61 73 3a 22 20 3e 26 35 0a 2b gram was:" >&5.+
7cf0: 73 65 64 20 27 73 2f 5e 2f 7c 20 2f 27 20 63 6f sed 's/^/| /' co
7d00: 6e 66 74 65 73 74 2e 24 61 63 5f 65 78 74 20 3e nftest.$ac_ext >
7d10: 26 35 0a 2b 0a 2b 65 76 61 6c 20 22 24 61 73 5f &5.+.+eval "$as_
7d20: 61 63 5f 76 61 72 3d 6e 6f 22 0a 2b 66 69 0a 2b ac_var=no".+fi.+
7d30: 72 6d 20 2d 66 20 63 6f 6e 66 74 65 73 74 2e 65 rm -f conftest.e
7d40: 72 72 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f rr conftest.$ac_
7d50: 6f 62 6a 65 78 74 20 5c 0a 2b 20 20 20 20 20 20 objext \.+
7d60: 63 6f 6e 66 74 65 73 74 24 61 63 5f 65 78 65 65 conftest$ac_exee
7d70: 78 74 20 63 6f 6e 66 74 65 73 74 2e 24 61 63 5f xt conftest.$ac_
7d80: 65 78 74 0a 2b 66 69 0a 2b 65 63 68 6f 20 22 24 ext.+fi.+echo "$
7d90: 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a 20 72 as_me:$LINENO: r
7da0: 65 73 75 6c 74 3a 20 60 65 76 61 6c 20 65 63 68 esult: `eval ech
7db0: 6f 20 27 24 7b 27 24 61 73 5f 61 63 5f 76 61 72 o '${'$as_ac_var
7dc0: 27 7d 27 60 22 20 3e 26 35 0a 2b 65 63 68 6f 20 '}'`" >&5.+echo
7dd0: 22 24 7b 45 43 48 4f 5f 54 7d 60 65 76 61 6c 20 "${ECHO_T}`eval
7de0: 65 63 68 6f 20 27 24 7b 27 24 61 73 5f 61 63 5f echo '${'$as_ac_
7df0: 76 61 72 27 7d 27 60 22 20 3e 26 36 0a 2b 69 66 var'}'`" >&6.+if
7e00: 20 74 65 73 74 20 60 65 76 61 6c 20 65 63 68 6f test `eval echo
7e10: 20 27 24 7b 27 24 61 73 5f 61 63 5f 76 61 72 27 '${'$as_ac_var'
7e20: 7d 27 60 20 3d 20 79 65 73 3b 20 74 68 65 6e 0a }'` = yes; then.
7e30: 2b 20 20 63 61 74 20 3e 3e 63 6f 6e 66 64 65 66 + cat >>confdef
7e40: 73 2e 68 20 3c 3c 5f 41 43 45 4f 46 0a 2b 23 64 s.h <<_ACEOF.+#d
7e50: 65 66 69 6e 65 20 60 65 63 68 6f 20 22 48 41 56 efine `echo "HAV
7e60: 45 5f 24 61 63 5f 66 75 6e 63 22 20 7c 20 24 61 E_$ac_func" | $a
7e70: 73 5f 74 72 5f 63 70 70 60 20 31 0a 2b 5f 41 43 s_tr_cpp` 1.+_AC
7e80: 45 4f 46 0a 2b 0a 2b 66 69 0a 2b 64 6f 6e 65 0a EOF.+.+fi.+done.
7e90: 2b 0a 20 0a 20 0a 20 23 20 41 64 64 20 74 68 65 +. . . # Add the
7ea0: 20 74 68 72 65 61 64 73 20 73 75 70 70 6f 72 74 threads support
7eb0: 20 6c 69 62 72 61 72 69 65 73 0a 20 4c 49 42 53 libraries. LIBS
7ec0: 3d 22 24 4c 49 42 53 24 54 48 52 45 41 44 53 5f ="$LIBS$THREADS_
7ed0: 4c 49 42 53 22 0a 20 0a 0a 49 6e 64 65 78 3a 20 LIBS". ..Index:
7ee0: 75 6e 69 78 2f 74 63 6c 2e 6d 34 0a 3d 3d 3d 3d unix/tcl.m4.====
7ef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7f00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7f10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7f20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d ==============.-
7f30: 2d 2d 20 75 6e 69 78 2f 74 63 6c 2e 6d 34 0a 2b -- unix/tcl.m4.+
7f40: 2b 2b 20 75 6e 69 78 2f 74 63 6c 2e 6d 34 0a 40 ++ unix/tcl.m4.@
7f50: 40 20 2d 36 37 36 2c 31 31 20 2b 36 37 36 2c 31 @ -676,11 +676,1
7f60: 31 20 40 40 0a 20 09 23 20 44 6f 65 73 20 74 68 1 @@. .# Does th
7f70: 65 20 70 74 68 72 65 61 64 2d 69 6d 70 6c 65 6d e pthread-implem
7f80: 65 6e 74 61 74 69 6f 6e 20 70 72 6f 76 69 64 65 entation provide
7f90: 0a 20 09 23 20 27 70 74 68 72 65 61 64 5f 61 74 . .# 'pthread_at
7fa0: 74 72 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 27 tr_setstacksize'
7fb0: 20 3f 0a 20 0a 20 09 61 63 5f 73 61 76 65 64 5f ?. . .ac_saved_
7fc0: 6c 69 62 73 3d 24 4c 49 42 53 0a 20 09 4c 49 42 libs=$LIBS. .LIB
7fd0: 53 3d 22 24 4c 49 42 53 20 24 54 48 52 45 41 44 S="$LIBS $THREAD
7fe0: 53 5f 4c 49 42 53 22 0a 2d 09 41 43 5f 43 48 45 S_LIBS".-.AC_CHE
7ff0: 43 4b 5f 46 55 4e 43 53 28 70 74 68 72 65 61 64 CK_FUNCS(pthread
8000: 5f 61 74 74 72 5f 73 65 74 73 74 61 63 6b 73 69 _attr_setstacksi
8010: 7a 65 20 70 74 68 72 65 61 64 5f 61 74 66 6f 72 ze pthread_atfor
8020: 6b 29 0a 2b 09 41 43 5f 43 48 45 43 4b 5f 46 55 k).+.AC_CHECK_FU
8030: 4e 43 53 28 70 74 68 72 65 61 64 5f 61 74 74 72 NCS(pthread_attr
8040: 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 20 70 74 _setstacksize pt
8050: 68 72 65 61 64 5f 61 74 66 6f 72 6b 20 70 74 68 hread_atfork pth
8060: 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 73 65 read_condattr_se
8070: 74 63 6c 6f 63 6b 29 0a 20 09 4c 49 42 53 3d 24 tclock). .LIBS=$
8080: 61 63 5f 73 61 76 65 64 5f 6c 69 62 73 0a 20 20 ac_saved_libs.
8090: 20 20 20 65 6c 73 65 0a 20 09 54 43 4c 5f 54 48 else. .TCL_TH
80a0: 52 45 41 44 53 3d 30 0a 20 20 20 20 20 66 69 0a READS=0. fi.
80b0: 20 20 20 20 20 23 20 44 6f 20 63 68 65 63 6b 69 # Do checki
80c0: 6e 67 20 6d 65 73 73 61 67 65 20 68 65 72 65 20 ng message here
80d0: 74 6f 20 6e 6f 74 20 6d 65 73 73 20 75 70 20 69 to not mess up i
80e0: 6e 74 65 72 6c 65 61 76 65 64 20 63 6f 6e 66 69 nterleaved confi
80f0: 67 75 72 65 20 6f 75 74 70 75 74 0a 40 40 20 2d gure output.@@ -
8100: 32 35 31 32 2c 31 30 20 2b 32 35 31 32 2c 31 33 2512,10 +2512,13
8110: 20 40 40 0a 20 09 4c 49 42 53 3d 22 24 4c 49 42 @@. .LIBS="$LIB
8120: 53 20 2d 6c 73 6f 63 6b 65 74 20 2d 6c 6e 73 6c S -lsocket -lnsl
8130: 22 0a 20 09 41 43 5f 43 48 45 43 4b 5f 46 55 4e ". .AC_CHECK_FUN
8140: 43 28 61 63 63 65 70 74 2c 20 74 63 6c 5f 63 68 C(accept, tcl_ch
8150: 65 63 6b 4e 73 6c 3d 30 2c 20 5b 4c 49 42 53 3d eckNsl=0, [LIBS=
8160: 24 74 6b 5f 6f 6c 64 4c 69 62 73 5d 29 0a 20 20 $tk_oldLibs]).
8170: 20 20 20 66 69 0a 20 20 20 20 20 41 43 5f 43 48 fi. AC_CH
8180: 45 43 4b 5f 46 55 4e 43 28 67 65 74 68 6f 73 74 ECK_FUNC(gethost
8190: 62 79 6e 61 6d 65 2c 20 2c 20 5b 41 43 5f 43 48 byname, , [AC_CH
81a0: 45 43 4b 5f 4c 49 42 28 6e 73 6c 2c 20 67 65 74 ECK_LIB(nsl, get
81b0: 68 6f 73 74 62 79 6e 61 6d 65 2c 0a 20 09 20 20 hostbyname,. .
81c0: 20 20 5b 4c 49 42 53 3d 22 24 4c 49 42 53 20 2d [LIBS="$LIBS -
81d0: 6c 6e 73 6c 22 5d 29 5d 29 0a 2b 0a 2b 20 20 20 lnsl"])]).+.+
81e0: 20 41 43 5f 43 48 45 43 4b 5f 4c 49 42 28 72 74 AC_CHECK_LIB(rt
81f0: 2c 20 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 2c , clock_gettime,
8200: 20 5b 4c 49 42 53 3d 22 24 4c 49 42 53 20 2d 6c [LIBS="$LIBS -l
8210: 72 74 22 5d 29 0a 2b 20 20 20 20 41 43 5f 43 48 rt"]).+ AC_CH
8220: 45 43 4b 5f 46 55 4e 43 53 28 63 6c 6f 63 6b 5f ECK_FUNCS(clock_
8230: 67 65 74 74 69 6d 65 20 63 6c 6f 63 6b 5f 6e 61 gettime clock_na
8240: 6e 6f 73 6c 65 65 70 29 0a 20 5d 29 0a 20 0a 20 nosleep). ]). .
8250: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d #---------------
8260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8290: 2d 2d 2d 2d 2d 0a 20 23 20 53 43 5f 54 43 4c 5f -----. # SC_TCL_
82a0: 45 41 52 4c 59 5f 46 4c 41 47 53 0a 20 23 0a 0a EARLY_FLAGS. #..
82b0: 49 6e 64 65 78 3a 20 75 6e 69 78 2f 74 63 6c 43 Index: unix/tclC
82c0: 6f 6e 66 69 67 2e 68 2e 69 6e 0a 3d 3d 3d 3d 3d onfig.h.in.=====
82d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
82e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
82f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d =============.--
8310: 2d 20 75 6e 69 78 2f 74 63 6c 43 6f 6e 66 69 67 - unix/tclConfig
8320: 2e 68 2e 69 6e 0a 2b 2b 2b 20 75 6e 69 78 2f 74 .h.in.+++ unix/t
8330: 63 6c 43 6f 6e 66 69 67 2e 68 2e 69 6e 0a 40 40 clConfig.h.in.@@
8340: 20 2d 31 36 2c 31 30 20 2b 31 36 2c 31 33 20 40 -16,10 +16,13 @
8350: 40 0a 20 2f 2a 20 44 65 66 69 6e 65 64 20 77 68 @. /* Defined wh
8360: 65 6e 20 63 6f 6d 70 69 6c 65 72 20 73 75 70 70 en compiler supp
8370: 6f 72 74 73 20 63 61 73 74 69 6e 67 20 74 6f 20 orts casting to
8380: 75 6e 69 6f 6e 20 74 79 70 65 2e 20 2a 2f 0a 20 union type. */.
8390: 23 75 6e 64 65 66 20 48 41 56 45 5f 43 41 53 54 #undef HAVE_CAST
83a0: 5f 54 4f 5f 55 4e 49 4f 4e 0a 20 0a 20 2f 2a 20 _TO_UNION. . /*
83b0: 44 65 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 Define to 1 if y
83c0: 6f 75 20 68 61 76 65 20 74 68 65 20 60 63 68 66 ou have the `chf
83d0: 6c 61 67 73 27 20 66 75 6e 63 74 69 6f 6e 2e 20 lags' function.
83e0: 2a 2f 0a 20 23 75 6e 64 65 66 20 48 41 56 45 5f */. #undef HAVE_
83f0: 43 48 46 4c 41 47 53 0a 2b 0a 2b 2f 2a 20 44 65 CHFLAGS.+.+/* De
8400: 66 69 6e 65 20 74 6f 20 31 20 69 66 20 79 6f 75 fine to 1 if you
8410: 20 68 61 76 65 20 74 68 65 20 60 63 6c 6f 63 6b have the `clock
8420: 5f 67 65 74 74 69 6d 65 27 20 66 75 6e 63 74 69 _gettime' functi
8430: 6f 6e 2e 20 2a 2f 0a 2b 23 75 6e 64 65 66 20 48 on. */.+#undef H
8440: 41 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d AVE_CLOCK_GETTIM
8450: 45 0a 20 0a 20 2f 2a 20 44 65 66 69 6e 65 20 74 E. . /* Define t
8460: 6f 20 31 20 69 66 20 79 6f 75 20 68 61 76 65 20 o 1 if you have
8470: 74 68 65 20 60 63 6f 70 79 66 69 6c 65 27 20 66 the `copyfile' f
8480: 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 20 23 75 6e unction. */. #un
8490: 64 65 66 20 48 41 56 45 5f 43 4f 50 59 46 49 4c def HAVE_COPYFIL
84a0: 45 0a 20 0a 20 2f 2a 20 44 65 66 69 6e 65 20 74 E. . /* Define t
84b0: 6f 20 31 20 69 66 20 79 6f 75 20 68 61 76 65 20 o 1 if you have
84c0: 74 68 65 20 3c 63 6f 70 79 66 69 6c 65 2e 68 3e the <copyfile.h>
84d0: 20 68 65 61 64 65 72 20 66 69 6c 65 2e 20 2a 2f header file. */
84e0: 0a 40 40 20 2d 31 36 36 2c 31 30 20 2b 31 36 39 .@@ -166,10 +169
84f0: 2c 31 33 20 40 40 0a 20 2f 2a 20 44 65 66 69 6e ,13 @@. /* Defin
8500: 65 20 74 6f 20 31 20 69 66 20 79 6f 75 20 68 61 e to 1 if you ha
8510: 76 65 20 74 68 65 20 60 70 74 68 72 65 61 64 5f ve the `pthread_
8520: 61 74 66 6f 72 6b 27 20 66 75 6e 63 74 69 6f 6e atfork' function
8530: 2e 20 2a 2f 0a 20 23 75 6e 64 65 66 20 48 41 56 . */. #undef HAV
8540: 45 5f 50 54 48 52 45 41 44 5f 41 54 46 4f 52 4b E_PTHREAD_ATFORK
8550: 0a 20 0a 20 2f 2a 20 44 65 66 69 6e 65 20 74 6f . . /* Define to
8560: 20 31 20 69 66 20 79 6f 75 20 68 61 76 65 20 74 1 if you have t
8570: 68 65 20 60 70 74 68 72 65 61 64 5f 61 74 74 72 he `pthread_attr
8580: 5f 73 65 74 73 74 61 63 6b 73 69 7a 65 27 20 66 _setstacksize' f
8590: 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 20 23 75 6e unction. */. #un
85a0: 64 65 66 20 48 41 56 45 5f 50 54 48 52 45 41 44 def HAVE_PTHREAD
85b0: 5f 41 54 54 52 5f 53 45 54 53 54 41 43 4b 53 49 _ATTR_SETSTACKSI
85c0: 5a 45 0a 2b 0a 2b 2f 2a 20 44 65 66 69 6e 65 20 ZE.+.+/* Define
85d0: 74 6f 20 31 20 69 66 20 79 6f 75 20 68 61 76 65 to 1 if you have
85e0: 20 74 68 65 20 60 70 74 68 72 65 61 64 5f 63 6f the `pthread_co
85f0: 6e 64 61 74 74 72 5f 73 65 74 63 6c 6f 63 6b 27 ndattr_setclock'
8600: 20 66 75 6e 63 74 69 6f 6e 2e 20 2a 2f 0a 2b 23 function. */.+#
8610: 75 6e 64 65 66 20 48 41 56 45 5f 50 54 48 52 45 undef HAVE_PTHRE
8620: 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 45 54 43 AD_CONDATTR_SETC
8630: 4c 4f 43 4b 0a 20 0a 20 2f 2a 20 44 6f 65 73 20 LOCK. . /* Does
8640: 70 75 74 65 6e 76 28 29 20 63 6f 70 79 20 73 74 putenv() copy st
8650: 72 69 6e 67 73 20 6f 72 20 69 6e 63 6f 72 70 6f rings or incorpo
8660: 72 61 74 65 20 74 68 65 6d 20 62 79 20 72 65 66 rate them by ref
8670: 65 72 65 6e 63 65 3f 20 2a 2f 0a 20 23 75 6e 64 erence? */. #und
8680: 65 66 20 48 41 56 45 5f 50 55 54 45 4e 56 5f 54 ef HAVE_PUTENV_T
8690: 48 41 54 5f 43 4f 50 49 45 53 0a 20 0a 20 2f 2a HAT_COPIES. . /*
86a0: 20 41 72 65 20 63 68 61 72 61 63 74 65 72 73 20 Are characters
86b0: 73 69 67 6e 65 64 3f 20 2a 2f 0a 0a 49 6e 64 65 signed? */..Inde
86c0: 78 3a 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 43 x: unix/tclUnixC
86d0: 68 61 6e 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d han.c.==========
86e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
86f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8710: 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 ========.--- uni
8720: 78 2f 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 0a x/tclUnixChan.c.
8730: 2b 2b 2b 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 +++ unix/tclUnix
8740: 43 68 61 6e 2e 63 0a 40 40 20 2d 31 37 38 35 2c Chan.c.@@ -1785,
8750: 31 31 20 2b 31 37 38 35 2c 31 31 20 40 40 0a 20 11 +1785,11 @@.
8760: 20 20 20 20 20 2a 20 49 66 20 74 68 65 72 65 20 * If there
8770: 69 73 20 61 20 6e 6f 6e 2d 7a 65 72 6f 20 66 69 is a non-zero fi
8780: 6e 69 74 65 20 74 69 6d 65 6f 75 74 2c 20 63 6f nite timeout, co
8790: 6d 70 75 74 65 20 74 68 65 20 74 69 6d 65 20 77 mpute the time w
87a0: 68 65 6e 20 77 65 20 67 69 76 65 0a 20 20 20 20 hen we give.
87b0: 20 20 2a 20 75 70 2e 0a 20 20 20 20 20 20 2a 2f * up.. */
87c0: 0a 20 0a 20 20 20 20 20 69 66 20 28 74 69 6d 65 . . if (time
87d0: 6f 75 74 20 3e 20 30 29 20 7b 0a 2d 09 54 63 6c out > 0) {.-.Tcl
87e0: 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 29 3b 0a _GetTime(&now);.
87f0: 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e +.TclpGetMonoton
8800: 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 09 icTime(&now);. .
8810: 61 62 6f 72 74 54 69 6d 65 2e 73 65 63 20 3d 20 abortTime.sec =
8820: 6e 6f 77 2e 73 65 63 20 2b 20 74 69 6d 65 6f 75 now.sec + timeou
8830: 74 2f 31 30 30 30 3b 0a 20 09 61 62 6f 72 74 54 t/1000;. .abortT
8840: 69 6d 65 2e 75 73 65 63 20 3d 20 6e 6f 77 2e 75 ime.usec = now.u
8850: 73 65 63 20 2b 20 28 74 69 6d 65 6f 75 74 25 31 sec + (timeout%1
8860: 30 30 30 29 2a 31 30 30 30 3b 0a 20 09 69 66 20 000)*1000;. .if
8870: 28 61 62 6f 72 74 54 69 6d 65 2e 75 73 65 63 20 (abortTime.usec
8880: 3e 3d 20 31 30 30 30 30 30 30 29 20 7b 0a 20 09 >= 1000000) {. .
8890: 20 20 20 20 61 62 6f 72 74 54 69 6d 65 2e 75 73 abortTime.us
88a0: 65 63 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 20 ec -= 1000000;.
88b0: 09 20 20 20 20 61 62 6f 72 74 54 69 6d 65 2e 73 . abortTime.s
88c0: 65 63 20 2b 3d 20 31 3b 0a 40 40 20 2d 31 38 37 ec += 1;.@@ -187
88d0: 34 2c 31 31 20 2b 31 38 37 34 2c 31 31 20 40 40 4,11 +1874,11 @@
88e0: 0a 20 0a 20 09 2f 2a 0a 20 09 20 2a 20 54 68 65 . . ./*. . * The
88f0: 20 73 65 6c 65 63 74 20 72 65 74 75 72 6e 65 64 select returned
8900: 20 65 61 72 6c 79 2c 20 73 6f 20 77 65 20 6e 65 early, so we ne
8910: 65 64 20 74 6f 20 72 65 63 6f 6d 70 75 74 65 20 ed to recompute
8920: 74 68 65 20 74 69 6d 65 6f 75 74 2e 0a 20 09 20 the timeout.. .
8930: 2a 2f 0a 20 0a 2d 09 54 63 6c 5f 47 65 74 54 69 */. .-.Tcl_GetTi
8940: 6d 65 28 26 6e 6f 77 29 3b 0a 2b 09 54 63 6c 70 me(&now);.+.Tclp
8950: 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 GetMonotonicTime
8960: 28 26 6e 6f 77 29 3b 0a 20 09 69 66 20 28 28 61 (&now);. .if ((a
8970: 62 6f 72 74 54 69 6d 65 2e 73 65 63 20 3c 20 6e bortTime.sec < n
8980: 6f 77 2e 73 65 63 29 0a 20 09 09 7c 7c 20 28 61 ow.sec). ..|| (a
8990: 62 6f 72 74 54 69 6d 65 2e 73 65 63 3d 3d 6e 6f bortTime.sec==no
89a0: 77 2e 73 65 63 20 26 26 20 61 62 6f 72 74 54 69 w.sec && abortTi
89b0: 6d 65 2e 75 73 65 63 3c 3d 6e 6f 77 2e 75 73 65 me.usec<=now.use
89c0: 63 29 29 20 7b 0a 20 09 20 20 20 20 62 72 65 61 c)) {. . brea
89d0: 6b 3b 0a 20 09 7d 0a 20 20 20 20 20 7d 0a 0a 49 k;. .}. }..I
89e0: 6e 64 65 78 3a 20 75 6e 69 78 2f 74 63 6c 55 6e ndex: unix/tclUn
89f0: 69 78 45 76 65 6e 74 2e 63 0a 3d 3d 3d 3d 3d 3d ixEvent.c.======
8a00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8a10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8a20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8a30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d ============.---
8a40: 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 45 76 65 unix/tclUnixEve
8a50: 6e 74 2e 63 0a 2b 2b 2b 20 75 6e 69 78 2f 74 63 nt.c.+++ unix/tc
8a60: 6c 55 6e 69 78 45 76 65 6e 74 2e 63 0a 40 40 20 lUnixEvent.c.@@
8a70: 2d 34 30 2c 31 31 20 2b 34 30 2c 31 31 20 40 40 -40,11 +40,11 @@
8a80: 0a 20 20 20 20 20 20 2a 20 54 68 65 20 6f 6e 6c . * The onl
8a90: 79 20 74 72 69 63 6b 20 68 65 72 65 20 69 73 20 y trick here is
8aa0: 74 68 61 74 20 73 65 6c 65 63 74 20 61 70 70 65 that select appe
8ab0: 61 72 73 20 74 6f 20 72 65 74 75 72 6e 20 65 61 ars to return ea
8ac0: 72 6c 79 20 75 6e 64 65 72 20 73 6f 6d 65 0a 20 rly under some.
8ad0: 20 20 20 20 20 2a 20 63 6f 6e 64 69 74 69 6f 6e * condition
8ae0: 73 2c 20 73 6f 20 77 65 20 68 61 76 65 20 74 6f s, so we have to
8af0: 20 63 68 65 63 6b 20 74 6f 20 6d 61 6b 65 20 73 check to make s
8b00: 75 72 65 20 74 68 61 74 20 74 68 65 20 72 69 67 ure that the rig
8b10: 68 74 20 61 6d 6f 75 6e 74 20 6f 66 0a 20 20 20 ht amount of.
8b20: 20 20 20 2a 20 74 69 6d 65 20 72 65 61 6c 6c 79 * time really
8b30: 20 68 61 73 20 65 6c 61 70 73 65 64 2e 20 20 49 has elapsed. I
8b40: 66 20 69 74 27 73 20 74 6f 6f 20 65 61 72 6c 79 f it's too early
8b50: 2c 20 67 6f 20 62 61 63 6b 20 74 6f 20 73 6c 65 , go back to sle
8b60: 65 70 20 61 67 61 69 6e 2e 0a 20 20 20 20 20 20 ep again..
8b70: 2a 2f 0a 20 0a 2d 20 20 20 20 54 63 6c 5f 47 65 */. .- Tcl_Ge
8b80: 74 54 69 6d 65 28 26 62 65 66 6f 72 65 29 3b 0a tTime(&before);.
8b90: 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f 6e 6f + TclpGetMono
8ba0: 74 6f 6e 69 63 54 69 6d 65 28 26 62 65 66 6f 72 tonicTime(&befor
8bb0: 65 29 3b 0a 20 20 20 20 20 61 66 74 65 72 20 3d e);. after =
8bc0: 20 62 65 66 6f 72 65 3b 0a 20 20 20 20 20 61 66 before;. af
8bd0: 74 65 72 2e 73 65 63 20 2b 3d 20 6d 73 2f 31 30 ter.sec += ms/10
8be0: 30 30 3b 0a 20 20 20 20 20 61 66 74 65 72 2e 75 00;. after.u
8bf0: 73 65 63 20 2b 3d 20 28 6d 73 25 31 30 30 30 29 sec += (ms%1000)
8c00: 2a 31 30 30 30 3b 0a 20 20 20 20 20 69 66 20 28 *1000;. if (
8c10: 61 66 74 65 72 2e 75 73 65 63 20 3e 20 31 30 30 after.usec > 100
8c20: 30 30 30 30 29 20 7b 0a 20 09 61 66 74 65 72 2e 0000) {. .after.
8c30: 75 73 65 63 20 2d 3d 20 31 30 30 30 30 30 30 3b usec -= 1000000;
8c40: 0a 40 40 20 2d 37 39 2c 31 31 20 2b 37 39 2c 31 .@@ -79,11 +79,1
8c50: 31 20 40 40 0a 20 09 09 7c 7c 20 28 28 64 65 6c 1 @@. ..|| ((del
8c60: 61 79 2e 74 76 5f 75 73 65 63 20 3d 3d 20 30 29 ay.tv_usec == 0)
8c70: 20 26 26 20 28 64 65 6c 61 79 2e 74 76 5f 73 65 && (delay.tv_se
8c80: 63 20 3d 3d 20 30 29 29 29 20 7b 0a 20 09 20 20 c == 0))) {. .
8c90: 20 20 62 72 65 61 6b 3b 0a 20 09 7d 0a 20 09 28 break;. .}. .(
8ca0: 76 6f 69 64 29 20 73 65 6c 65 63 74 28 30 2c 20 void) select(0,
8cb0: 28 53 45 4c 45 43 54 5f 4d 41 53 4b 20 2a 29 20 (SELECT_MASK *)
8cc0: 30 2c 20 28 53 45 4c 45 43 54 5f 4d 41 53 4b 20 0, (SELECT_MASK
8cd0: 2a 29 20 30 2c 0a 20 09 09 28 53 45 4c 45 43 54 *) 0,. ..(SELECT
8ce0: 5f 4d 41 53 4b 20 2a 29 20 30 2c 20 26 64 65 6c _MASK *) 0, &del
8cf0: 61 79 29 3b 0a 2d 09 54 63 6c 5f 47 65 74 54 69 ay);.-.Tcl_GetTi
8d00: 6d 65 28 26 62 65 66 6f 72 65 29 3b 0a 2b 09 54 me(&before);.+.T
8d10: 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 clpGetMonotonicT
8d20: 69 6d 65 28 26 62 65 66 6f 72 65 29 3b 0a 20 20 ime(&before);.
8d30: 20 20 20 7d 0a 20 7d 0a 20 0c 0a 20 23 65 6e 64 }. }. .. #end
8d40: 69 66 20 2f 2a 20 48 41 56 45 5f 43 4f 52 45 46 if /* HAVE_COREF
8d50: 4f 55 4e 44 41 54 49 4f 4e 20 2a 2f 0a 20 2f 2a OUNDATION */. /*
8d60: 0a 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f 74 63 ..Index: unix/tc
8d70: 6c 55 6e 69 78 4e 6f 74 66 79 2e 63 0a 3d 3d 3d lUnixNotfy.c.===
8d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8db0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
8dc0: 2d 2d 2d 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 --- unix/tclUnix
8dd0: 4e 6f 74 66 79 2e 63 0a 2b 2b 2b 20 75 6e 69 78 Notfy.c.+++ unix
8de0: 2f 74 63 6c 55 6e 69 78 4e 6f 74 66 79 2e 63 0a /tclUnixNotfy.c.
8df0: 40 40 20 2d 31 30 30 2c 31 30 20 2b 31 30 30 2c @@ -100,10 +100,
8e00: 31 33 20 40 40 0a 20 20 20 20 20 76 6f 69 64 20 13 @@. void
8e10: 2a 68 77 6e 64 3b 09 09 09 2f 2a 20 4d 65 73 73 *hwnd;.../* Mess
8e20: 61 67 69 6e 67 20 77 69 6e 64 6f 77 2e 20 2a 2f aging window. */
8e30: 0a 20 23 65 6c 73 65 20 2f 2a 20 21 5f 5f 43 59 . #else /* !__CY
8e40: 47 57 49 4e 5f 5f 20 2a 2f 0a 20 20 20 20 20 70 GWIN__ */. p
8e50: 74 68 72 65 61 64 5f 63 6f 6e 64 5f 74 20 77 61 thread_cond_t wa
8e60: 69 74 43 56 3b 09 2f 2a 20 41 6e 79 20 6f 74 68 itCV;./* Any oth
8e70: 65 72 20 74 68 72 65 61 64 20 61 6c 65 72 74 73 er thread alerts
8e80: 20 61 20 6e 6f 74 69 66 69 65 72 20 74 68 61 74 a notifier that
8e90: 20 61 6e 0a 20 09 09 09 09 20 2a 20 65 76 65 6e an. .... * even
8ea0: 74 20 69 73 20 72 65 61 64 79 20 74 6f 20 62 65 t is ready to be
8eb0: 20 70 72 6f 63 65 73 73 65 64 20 62 79 20 73 69 processed by si
8ec0: 67 6e 61 6c 69 6e 67 0a 20 09 09 09 09 20 2a 20 gnaling. .... *
8ed0: 74 68 69 73 20 63 6f 6e 64 69 74 69 6f 6e 20 76 this condition v
8ee0: 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 2b 23 69 66 ariable. */.+#if
8ef0: 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 43 4c defined(HAVE_CL
8f00: 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 26 26 20 OCK_GETTIME) &&
8f10: 64 65 66 69 6e 65 64 28 48 41 56 45 5f 50 54 48 defined(HAVE_PTH
8f20: 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 45 READ_CONDATTR_SE
8f30: 54 43 4c 4f 43 4b 29 0a 2b 20 20 20 20 69 6e 74 TCLOCK).+ int
8f40: 20 75 73 65 4d 6f 6e 6f 54 69 6d 65 3b 09 09 2f useMonoTime;../
8f50: 2a 20 57 68 65 6e 20 74 72 75 65 20 75 73 65 20 * When true use
8f60: 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 20 CLOCK_MONOTONIC
8f70: 2a 2f 0a 2b 23 65 6e 64 69 66 0a 20 23 65 6e 64 */.+#endif. #end
8f80: 69 66 20 2f 2a 20 5f 5f 43 59 47 57 49 4e 5f 5f if /* __CYGWIN__
8f90: 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 77 61 69 */. int wai
8fa0: 74 43 56 69 6e 69 74 69 61 6c 69 7a 65 64 3b 09 tCVinitialized;.
8fb0: 2f 2a 20 56 61 72 69 61 62 6c 65 20 74 6f 20 66 /* Variable to f
8fc0: 6c 61 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 lag initializati
8fd0: 6f 6e 20 6f 66 20 74 68 65 20 73 74 72 75 63 74 on of the struct
8fe0: 75 72 65 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 ure */. int
8ff0: 65 76 65 6e 74 52 65 61 64 79 3b 09 09 2f 2a 20 eventReady;../*
9000: 54 72 75 65 20 69 66 20 61 6e 20 65 76 65 6e 74 True if an event
9010: 20 69 73 20 72 65 61 64 79 20 74 6f 20 62 65 20 is ready to be
9020: 70 72 6f 63 65 73 73 65 64 2e 0a 20 09 09 09 09 processed.. ....
9030: 20 2a 20 55 73 65 64 20 61 73 20 63 6f 6e 64 69 * Used as condi
9040: 74 69 6f 6e 20 66 6c 61 67 20 74 6f 67 65 74 68 tion flag togeth
9050: 65 72 20 77 69 74 68 20 77 61 69 74 43 56 0a 20 er with waitCV.
9060: 09 09 09 09 20 2a 20 61 62 6f 76 65 2e 20 2a 2f .... * above. */
9070: 0a 40 40 20 2d 33 35 34 2c 31 32 20 2b 33 35 37 .@@ -354,12 +357
9080: 2c 32 39 20 40 40 0a 20 09 20 20 20 20 74 73 64 ,29 @@. . tsd
9090: 50 74 72 2d 3e 68 77 6e 64 20 3d 20 43 72 65 61 Ptr->hwnd = Crea
90a0: 74 65 57 69 6e 64 6f 77 45 78 57 28 4e 55 4c 4c teWindowExW(NULL
90b0: 2c 20 63 6c 61 73 73 2e 6c 70 73 7a 43 6c 61 73 , class.lpszClas
90c0: 73 4e 61 6d 65 2c 0a 20 09 09 20 20 20 20 63 6c sName,. .. cl
90d0: 61 73 73 2e 6c 70 73 7a 43 6c 61 73 73 4e 61 6d ass.lpszClassNam
90e0: 65 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 e, 0, 0, 0, 0, 0
90f0: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 0a 20 09 , NULL, NULL,. .
9100: 09 20 20 20 20 54 63 6c 57 69 6e 47 65 74 54 63 . TclWinGetTc
9110: 6c 49 6e 73 74 61 6e 63 65 28 29 2c 20 4e 55 4c lInstance(), NUL
9120: 4c 29 3b 0a 20 09 20 20 20 20 74 73 64 50 74 72 L);. . tsdPtr
9130: 2d 3e 65 76 65 6e 74 20 3d 20 43 72 65 61 74 65 ->event = Create
9140: 45 76 65 6e 74 57 28 4e 55 4c 4c 2c 20 31 20 2f EventW(NULL, 1 /
9150: 2a 20 6d 61 6e 75 61 6c 20 2a 2f 2c 0a 20 09 09 * manual */,. ..
9160: 20 20 20 20 30 20 2f 2a 20 21 73 69 67 6e 61 6c 0 /* !signal
9170: 65 64 20 2a 2f 2c 20 4e 55 4c 4c 29 3b 0a 2b 23 ed */, NULL);.+#
9180: 65 6c 73 65 0a 2b 23 69 66 20 64 65 66 69 6e 65 else.+#if define
9190: 64 28 48 41 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 d(HAVE_CLOCK_GET
91a0: 54 49 4d 45 29 20 26 26 20 64 65 66 69 6e 65 64 TIME) && defined
91b0: 28 48 41 56 45 5f 50 54 48 52 45 41 44 5f 43 4f (HAVE_PTHREAD_CO
91c0: 4e 44 41 54 54 52 5f 53 45 54 43 4c 4f 43 4b 29 NDATTR_SETCLOCK)
91d0: 0a 2b 09 20 20 20 20 70 74 68 72 65 61 64 5f 63 .+. pthread_c
91e0: 6f 6e 64 61 74 74 72 5f 74 20 61 74 74 72 3b 0a ondattr_t attr;.
91f0: 2b 0a 2b 09 20 20 20 20 70 74 68 72 65 61 64 5f +.+. pthread_
9200: 63 6f 6e 64 61 74 74 72 5f 69 6e 69 74 28 26 61 condattr_init(&a
9210: 74 74 72 29 3b 0a 2b 09 20 20 20 20 74 73 64 50 ttr);.+. tsdP
9220: 74 72 2d 3e 75 73 65 4d 6f 6e 6f 54 69 6d 65 20 tr->useMonoTime
9230: 3d 0a 2b 09 09 20 20 20 20 70 74 68 72 65 61 64 =.+.. pthread
9240: 5f 63 6f 6e 64 61 74 74 72 5f 73 65 74 63 6c 6f _condattr_setclo
9250: 63 6b 28 26 61 74 74 72 2c 20 43 4c 4f 43 4b 5f ck(&attr, CLOCK_
9260: 4d 4f 4e 4f 54 4f 4e 49 43 29 20 3d 3d 20 30 3b MONOTONIC) == 0;
9270: 0a 2b 09 20 20 20 20 69 66 20 28 74 73 64 50 74 .+. if (tsdPt
9280: 72 2d 3e 75 73 65 4d 6f 6e 6f 54 69 6d 65 29 20 r->useMonoTime)
9290: 7b 0a 2b 09 09 69 66 20 28 70 74 68 72 65 61 64 {.+..if (pthread
92a0: 5f 63 6f 6e 64 5f 69 6e 69 74 28 26 74 73 64 50 _cond_init(&tsdP
92b0: 74 72 2d 3e 77 61 69 74 43 56 2c 20 26 61 74 74 tr->waitCV, &att
92c0: 72 29 29 20 7b 0a 2b 09 09 20 20 20 20 74 73 64 r)) {.+.. tsd
92d0: 50 74 72 2d 3e 75 73 65 4d 6f 6e 6f 54 69 6d 65 Ptr->useMonoTime
92e0: 20 3d 20 30 3b 0a 2b 09 09 20 20 20 20 70 74 68 = 0;.+.. pth
92f0: 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 26 read_cond_init(&
9300: 74 73 64 50 74 72 2d 3e 77 61 69 74 43 56 2c 20 tsdPtr->waitCV,
9310: 4e 55 4c 4c 29 3b 0a 2b 09 09 7d 0a 2b 09 20 20 NULL);.+..}.+.
9320: 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 09 09 70 74 } else {.+..pt
9330: 68 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 hread_cond_init(
9340: 26 74 73 64 50 74 72 2d 3e 77 61 69 74 43 56 2c &tsdPtr->waitCV,
9350: 20 4e 55 4c 4c 29 3b 0a 2b 09 20 20 20 20 7d 0a NULL);.+. }.
9360: 2b 09 20 20 20 20 70 74 68 72 65 61 64 5f 63 6f +. pthread_co
9370: 6e 64 61 74 74 72 5f 64 65 73 74 72 6f 79 28 26 ndattr_destroy(&
9380: 61 74 74 72 29 3b 0a 20 23 65 6c 73 65 0a 20 09 attr);. #else. .
9390: 20 20 20 20 70 74 68 72 65 61 64 5f 63 6f 6e 64 pthread_cond
93a0: 5f 69 6e 69 74 28 26 74 73 64 50 74 72 2d 3e 77 _init(&tsdPtr->w
93b0: 61 69 74 43 56 2c 20 4e 55 4c 4c 29 3b 0a 2b 23 aitCV, NULL);.+#
93c0: 65 6e 64 69 66 0a 20 23 65 6e 64 69 66 20 2f 2a endif. #endif /*
93d0: 20 5f 5f 43 59 47 57 49 4e 5f 5f 20 2a 2f 0a 20 __CYGWIN__ */.
93e0: 09 20 20 20 20 74 73 64 50 74 72 2d 3e 77 61 69 . tsdPtr->wai
93f0: 74 43 56 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d tCVinitialized =
9400: 20 31 3b 0a 20 09 7d 0a 20 0a 20 09 70 74 68 72 1;. .}. . .pthr
9410: 65 61 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 26 ead_mutex_lock(&
9420: 6e 6f 74 69 66 69 65 72 49 6e 69 74 4d 75 74 65 notifierInitMute
9430: 78 29 3b 0a 40 40 20 2d 39 39 37 2c 32 30 20 2b x);.@@ -997,20 +
9440: 31 30 31 37 2c 33 33 20 40 40 0a 20 09 09 4d 73 1017,33 @@. ..Ms
9450: 67 57 61 69 74 46 6f 72 4d 75 6c 74 69 70 6c 65 gWaitForMultiple
9460: 4f 62 6a 65 63 74 73 28 31 2c 20 26 74 73 64 50 Objects(1, &tsdP
9470: 74 72 2d 3e 65 76 65 6e 74 2c 20 30 2c 20 74 69 tr->event, 0, ti
9480: 6d 65 6f 75 74 2c 20 31 32 37 39 29 3b 0a 20 09 meout, 1279);. .
9490: 09 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 6c .pthread_mutex_l
94a0: 6f 63 6b 28 26 6e 6f 74 69 66 69 65 72 4d 75 74 ock(¬ifierMut
94b0: 65 78 29 3b 0a 20 09 20 20 20 20 7d 0a 20 23 65 ex);. . }. #e
94c0: 6c 73 65 0a 20 09 20 20 20 20 69 66 20 28 74 69 lse. . if (ti
94d0: 6d 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b mePtr != NULL) {
94e0: 0a 2d 09 20 20 20 20 20 20 20 54 63 6c 5f 54 69 .-. Tcl_Ti
94f0: 6d 65 20 6e 6f 77 3b 0a 2d 09 20 20 20 20 20 20 me now;.-.
9500: 20 73 74 72 75 63 74 20 74 69 6d 65 73 70 65 63 struct timespec
9510: 20 70 74 69 6d 65 3b 0a 2b 09 09 73 74 72 75 63 ptime;.+..struc
9520: 74 20 74 69 6d 65 73 70 65 63 20 70 74 69 6d 65 t timespec ptime
9530: 3b 0a 20 0a 2d 09 20 20 20 20 20 20 20 54 63 6c ;. .-. Tcl
9540: 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 29 3b 0a _GetTime(&now);.
9550: 2d 09 20 20 20 20 20 20 20 70 74 69 6d 65 2e 74 -. ptime.t
9560: 76 5f 73 65 63 20 3d 20 74 69 6d 65 50 74 72 2d v_sec = timePtr-
9570: 3e 73 65 63 20 2b 20 6e 6f 77 2e 73 65 63 20 2b >sec + now.sec +
9580: 20 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 (timePtr->usec
9590: 2b 20 6e 6f 77 2e 75 73 65 63 29 20 2f 20 31 30 + now.usec) / 10
95a0: 30 30 30 30 30 3b 0a 2d 09 20 20 20 20 20 20 20 00000;.-.
95b0: 70 74 69 6d 65 2e 74 76 5f 6e 73 65 63 20 3d 20 ptime.tv_nsec =
95c0: 31 30 30 30 20 2a 20 28 28 74 69 6d 65 50 74 72 1000 * ((timePtr
95d0: 2d 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 ->usec + now.use
95e0: 63 29 20 25 20 31 30 30 30 30 30 30 29 3b 0a 2b c) % 1000000);.+
95f0: 23 69 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 #if defined(HAVE
9600: 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 _CLOCK_GETTIME)
9610: 26 26 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f && defined(HAVE_
9620: 50 54 48 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 PTHREAD_CONDATTR
9630: 5f 53 45 54 43 4c 4f 43 4b 29 0a 2b 09 09 69 66 _SETCLOCK).+..if
9640: 20 28 74 73 64 50 74 72 2d 3e 75 73 65 4d 6f 6e (tsdPtr->useMon
9650: 6f 54 69 6d 65 29 20 7b 0a 2b 09 09 20 20 20 20 oTime) {.+..
9660: 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 28 43 4c clock_gettime(CL
9670: 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 2c 20 26 OCK_MONOTONIC, &
9680: 70 74 69 6d 65 29 3b 0a 2b 09 09 7d 20 65 6c 73 ptime);.+..} els
9690: 65 20 7b 0a 2b 09 09 20 20 20 20 63 6c 6f 63 6b e {.+.. clock
96a0: 5f 67 65 74 74 69 6d 65 28 43 4c 4f 43 4b 5f 52 _gettime(CLOCK_R
96b0: 45 41 4c 54 49 4d 45 2c 20 26 70 74 69 6d 65 29 EALTIME, &ptime)
96c0: 3b 0a 2b 09 09 7d 0a 2b 09 09 70 74 69 6d 65 2e ;.+..}.+..ptime.
96d0: 74 76 5f 73 65 63 20 2b 3d 20 74 69 6d 65 50 74 tv_sec += timePt
96e0: 72 2d 3e 73 65 63 20 2b 0a 2b 09 09 20 20 20 20 r->sec +.+..
96f0: 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 2a (timePtr->usec *
9700: 20 31 30 30 30 20 2b 20 70 74 69 6d 65 2e 74 76 1000 + ptime.tv
9710: 5f 6e 73 65 63 29 20 2f 20 31 30 30 30 30 30 30 _nsec) / 1000000
9720: 30 30 30 3b 0a 2b 09 09 70 74 69 6d 65 2e 74 76 000;.+..ptime.tv
9730: 5f 6e 73 65 63 20 3d 20 28 74 69 6d 65 50 74 72 _nsec = (timePtr
9740: 2d 3e 75 73 65 63 20 2a 20 31 30 30 30 20 2b 20 ->usec * 1000 +
9750: 70 74 69 6d 65 2e 74 76 5f 6e 73 65 63 29 20 25 ptime.tv_nsec) %
9760: 0a 2b 09 09 20 20 20 20 31 30 30 30 30 30 30 30 .+.. 10000000
9770: 30 30 3b 0a 2b 23 65 6c 73 65 0a 2b 09 09 54 63 00;.+#else.+..Tc
9780: 6c 5f 54 69 6d 65 20 6e 6f 77 3b 0a 20 0a 2d 09 l_Time now;. .-.
9790: 20 20 20 20 20 20 20 70 74 68 72 65 61 64 5f 63 pthread_c
97a0: 6f 6e 64 5f 74 69 6d 65 64 77 61 69 74 28 26 74 ond_timedwait(&t
97b0: 73 64 50 74 72 2d 3e 77 61 69 74 43 56 2c 20 26 sdPtr->waitCV, &
97c0: 6e 6f 74 69 66 69 65 72 4d 75 74 65 78 2c 20 26 notifierMutex, &
97d0: 70 74 69 6d 65 29 3b 0a 2b 09 09 54 63 6c 5f 47 ptime);.+..Tcl_G
97e0: 65 74 54 69 6d 65 28 26 6e 6f 77 29 3b 0a 2b 09 etTime(&now);.+.
97f0: 09 70 74 69 6d 65 2e 74 76 5f 73 65 63 20 3d 20 .ptime.tv_sec =
9800: 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 2b 20 6e timePtr->sec + n
9810: 6f 77 2e 73 65 63 20 2b 0a 2b 09 09 20 20 20 20 ow.sec +.+..
9820: 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 2b (timePtr->usec +
9830: 20 6e 6f 77 2e 75 73 65 63 29 20 2f 20 31 30 30 now.usec) / 100
9840: 30 30 30 30 3b 0a 2b 09 09 70 74 69 6d 65 2e 74 0000;.+..ptime.t
9850: 76 5f 6e 73 65 63 20 3d 20 31 30 30 30 20 2a 20 v_nsec = 1000 *
9860: 28 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 ((timePtr->usec
9870: 2b 20 6e 6f 77 2e 75 73 65 63 29 20 25 20 31 30 + now.usec) % 10
9880: 30 30 30 30 30 29 3b 0a 2b 23 65 6e 64 69 66 0a 00000);.+#endif.
9890: 2b 09 09 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f +..pthread_cond_
98a0: 74 69 6d 65 64 77 61 69 74 28 26 74 73 64 50 74 timedwait(&tsdPt
98b0: 72 2d 3e 77 61 69 74 43 56 2c 20 26 6e 6f 74 69 r->waitCV, ¬i
98c0: 66 69 65 72 4d 75 74 65 78 2c 20 26 70 74 69 6d fierMutex, &ptim
98d0: 65 29 3b 0a 20 09 20 20 20 20 7d 20 65 6c 73 65 e);. . } else
98e0: 20 7b 0a 2d 09 20 20 20 20 20 20 20 70 74 68 72 {.-. pthr
98f0: 65 61 64 5f 63 6f 6e 64 5f 77 61 69 74 28 26 74 ead_cond_wait(&t
9900: 73 64 50 74 72 2d 3e 77 61 69 74 43 56 2c 20 26 sdPtr->waitCV, &
9910: 6e 6f 74 69 66 69 65 72 4d 75 74 65 78 29 3b 0a notifierMutex);.
9920: 2b 09 09 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f +..pthread_cond_
9930: 77 61 69 74 28 26 74 73 64 50 74 72 2d 3e 77 61 wait(&tsdPtr->wa
9940: 69 74 43 56 2c 20 26 6e 6f 74 69 66 69 65 72 4d itCV, ¬ifierM
9950: 75 74 65 78 29 3b 0a 20 09 20 20 20 20 7d 0a 20 utex);. . }.
9960: 23 65 6e 64 69 66 20 2f 2a 20 5f 5f 43 59 47 57 #endif /* __CYGW
9970: 49 4e 5f 5f 20 2a 2f 0a 20 09 7d 0a 20 09 74 73 IN__ */. .}. .ts
9980: 64 50 74 72 2d 3e 65 76 65 6e 74 52 65 61 64 79 dPtr->eventReady
9990: 20 3d 20 30 3b 0a 20 0a 0a 49 6e 64 65 78 3a 20 = 0;. ..Index:
99a0: 75 6e 69 78 2f 74 63 6c 55 6e 69 78 50 6f 72 74 unix/tclUnixPort
99b0: 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .h.=============
99c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
99d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
99e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
99f0: 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 75 6e 69 78 2f 74 =====.--- unix/t
9a00: 63 6c 55 6e 69 78 50 6f 72 74 2e 68 0a 2b 2b 2b clUnixPort.h.+++
9a10: 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 50 6f 72 unix/tclUnixPor
9a20: 74 2e 68 0a 40 40 20 2d 36 33 35 2c 31 30 20 2b t.h.@@ -635,10 +
9a30: 36 33 35 2c 33 30 20 40 40 0a 20 09 20 20 20 20 635,30 @@. .
9a40: 28 5f 5f 47 4e 55 43 5f 5f 20 3e 20 34 20 7c 7c (__GNUC__ > 4 ||
9a50: 20 28 5f 5f 47 4e 55 43 5f 5f 20 3d 3d 20 34 20 (__GNUC__ == 4
9a60: 26 26 20 28 5f 5f 47 4e 55 43 5f 4d 49 4e 4f 52 && (__GNUC_MINOR
9a70: 5f 5f 20 3e 20 32 20 7c 7c 20 5c 0a 20 09 20 20 __ > 2 || \. .
9a80: 20 20 28 5f 5f 47 4e 55 43 5f 4d 49 4e 4f 52 5f (__GNUC_MINOR_
9a90: 5f 20 3d 3d 20 32 20 26 26 20 5f 5f 47 4e 55 43 _ == 2 && __GNUC
9aa0: 5f 50 41 54 43 48 4c 45 56 45 4c 5f 5f 20 3e 20 _PATCHLEVEL__ >
9ab0: 30 29 29 29 29 0a 20 23 09 75 6e 64 65 66 20 55 0)))). #.undef U
9ac0: 53 45 5f 56 46 4f 52 4b 0a 20 23 20 20 20 65 6e SE_VFORK. # en
9ad0: 64 69 66 20 2f 2a 20 5f 5f 6c 6c 76 6d 5f 5f 20 dif /* __llvm__
9ae0: 2a 2f 0a 20 23 65 6e 64 69 66 20 2f 2a 20 5f 5f */. #endif /* __
9af0: 41 50 50 4c 45 5f 5f 20 2a 2f 0a 2b 0c 0a 2b 2f APPLE__ */.+..+/
9b00: 2a 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.+ *-----------
9b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b50: 0a 2b 20 2a 20 55 73 65 20 63 6c 6f 63 6b 5f 67 .+ * Use clock_g
9b60: 65 74 74 69 6d 65 28 29 20 6f 6e 6c 79 20 69 66 ettime() only if
9b70: 20 5f 50 4f 53 49 58 5f 4d 4f 4e 4f 54 4f 4e 49 _POSIX_MONOTONI
9b80: 43 5f 43 4c 4f 43 4b 20 70 72 65 73 65 6e 74 2e C_CLOCK present.
9b90: 0a 2b 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .+ *------------
9ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9be0: 2b 20 2a 2f 0a 2b 0a 2b 23 69 66 20 64 65 66 69 + */.+.+#if defi
9bf0: 6e 65 64 28 48 41 56 45 5f 43 4c 4f 43 4b 5f 47 ned(HAVE_CLOCK_G
9c00: 45 54 54 49 4d 45 29 20 26 26 20 21 64 65 66 69 ETTIME) && !defi
9c10: 6e 65 64 28 5f 50 4f 53 49 58 5f 4d 4f 4e 4f 54 ned(_POSIX_MONOT
9c20: 4f 4e 49 43 5f 43 4c 4f 43 4b 29 0a 2b 23 20 20 ONIC_CLOCK).+#
9c30: 20 75 6e 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 undef HAVE_CLOC
9c40: 4b 5f 47 45 54 54 49 4d 45 0a 2b 23 65 6e 64 69 K_GETTIME.+#endi
9c50: 66 0a 2b 0a 2b 23 69 66 64 65 66 20 54 43 4c 5f f.+.+#ifdef TCL_
9c60: 54 48 52 45 41 44 53 0a 2b 23 20 20 20 69 66 6e THREADS.+# ifn
9c70: 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 4b 5f 47 def HAVE_CLOCK_G
9c80: 45 54 54 49 4d 45 0a 2b 23 09 75 6e 64 65 66 20 ETTIME.+#.undef
9c90: 48 41 56 45 5f 50 54 48 52 45 41 44 5f 43 4f 4e HAVE_PTHREAD_CON
9ca0: 44 41 54 54 52 5f 53 45 54 43 4c 4f 43 4b 0a 2b DATTR_SETCLOCK.+
9cb0: 23 20 20 20 65 6e 64 69 66 0a 2b 23 20 20 20 69 # endif.+# i
9cc0: 66 6e 64 65 66 20 48 41 56 45 5f 50 54 48 52 45 fndef HAVE_PTHRE
9cd0: 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 45 54 43 AD_CONDATTR_SETC
9ce0: 4c 4f 43 4b 0a 2b 23 09 75 6e 64 65 66 20 48 41 LOCK.+#.undef HA
9cf0: 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 VE_CLOCK_GETTIME
9d00: 0a 2b 23 20 20 20 65 6e 64 69 66 0a 2b 23 65 6e .+# endif.+#en
9d10: 64 69 66 0a 2b 0a 20 0c 0a 20 2f 2a 0a 20 20 2a dif.+. .. /*. *
9d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 20 -----------. *
9d70: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 61 The following ma
9d80: 63 72 6f 73 20 61 6e 64 20 64 65 63 6c 61 72 61 cros and declara
9d90: 74 69 6f 6e 73 20 72 65 70 72 65 73 65 6e 74 20 tions represent
9da0: 74 68 65 20 69 6e 74 65 72 66 61 63 65 20 62 65 the interface be
9db0: 74 77 65 65 6e 0a 20 20 2a 20 67 65 6e 65 72 69 tween. * generi
9dc0: 63 20 61 6e 64 20 75 6e 69 78 2d 73 70 65 63 69 c and unix-speci
9dd0: 66 69 63 20 70 61 72 74 73 20 6f 66 20 54 63 6c fic parts of Tcl
9de0: 2e 20 53 6f 6d 65 20 6f 66 20 74 68 65 20 6d 61 . Some of the ma
9df0: 63 72 6f 73 20 6d 61 79 20 6f 76 65 72 72 69 64 cros may overrid
9e00: 65 0a 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f 74 e..Index: unix/t
9e10: 63 6c 55 6e 69 78 54 68 72 64 2e 63 0a 3d 3d 3d clUnixThrd.c.===
9e20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9e30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9e40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9e50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
9e60: 2d 2d 2d 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 --- unix/tclUnix
9e70: 54 68 72 64 2e 63 0a 2b 2b 2b 20 75 6e 69 78 2f Thrd.c.+++ unix/
9e80: 74 63 6c 55 6e 69 78 54 68 72 64 2e 63 0a 40 40 tclUnixThrd.c.@@
9e90: 20 2d 35 32 35 2c 31 30 20 2b 35 32 35 2c 31 33 -525,10 +525,13
9ea0: 20 40 40 0a 20 20 20 20 20 63 6f 6e 73 74 20 54 @@. const T
9eb0: 63 6c 5f 54 69 6d 65 20 2a 74 69 6d 65 50 74 72 cl_Time *timePtr
9ec0: 29 20 2f 2a 20 54 69 6d 65 6f 75 74 20 6f 6e 20 ) /* Timeout on
9ed0: 77 61 69 74 69 6e 67 20 70 65 72 69 6f 64 20 2a waiting period *
9ee0: 2f 0a 20 7b 0a 20 20 20 20 20 70 74 68 72 65 61 /. {. pthrea
9ef0: 64 5f 63 6f 6e 64 5f 74 20 2a 70 63 6f 6e 64 50 d_cond_t *pcondP
9f00: 74 72 3b 0a 20 20 20 20 20 70 74 68 72 65 61 64 tr;. pthread
9f10: 5f 6d 75 74 65 78 5f 74 20 2a 70 6d 75 74 65 78 _mutex_t *pmutex
9f20: 50 74 72 3b 0a 20 20 20 20 20 73 74 72 75 63 74 Ptr;. struct
9f30: 20 74 69 6d 65 73 70 65 63 20 70 74 69 6d 65 3b timespec ptime;
9f40: 0a 2b 23 69 66 20 64 65 66 69 6e 65 64 28 48 41 .+#if defined(HA
9f50: 56 45 5f 43 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 VE_CLOCK_GETTIME
9f60: 29 20 26 26 20 64 65 66 69 6e 65 64 28 48 41 56 ) && defined(HAV
9f70: 45 5f 50 54 48 52 45 41 44 5f 43 4f 4e 44 41 54 E_PTHREAD_CONDAT
9f80: 54 52 5f 53 45 54 43 4c 4f 43 4b 29 0a 2b 20 20 TR_SETCLOCK).+
9f90: 20 20 69 6e 74 20 2a 6d 6f 6e 6f 46 6c 61 67 50 int *monoFlagP
9fa0: 74 72 3b 0a 2b 23 65 6e 64 69 66 0a 20 0a 20 20 tr;.+#endif. .
9fb0: 20 20 20 69 66 20 28 2a 63 6f 6e 64 50 74 72 20 if (*condPtr
9fc0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 4d 41 53 == NULL) {. .MAS
9fd0: 54 45 52 5f 4c 4f 43 4b 3b 0a 20 0a 20 09 2f 2a TER_LOCK;. . ./*
9fe0: 0a 40 40 20 2d 35 33 35 2c 31 32 20 2b 35 33 38 .@@ -535,12 +538
9ff0: 2c 33 30 20 40 40 0a 20 09 20 2a 20 44 6f 75 62 ,30 @@. . * Doub
a000: 6c 65 20 63 68 65 63 6b 20 69 6e 73 69 64 65 20 le check inside
a010: 6d 75 74 65 78 20 74 6f 20 61 76 6f 69 64 20 72 mutex to avoid r
a020: 61 63 65 2c 20 74 68 65 6e 20 69 6e 69 74 69 61 ace, then initia
a030: 6c 69 7a 65 20 63 6f 6e 64 69 74 69 6f 6e 0a 20 lize condition.
a040: 09 20 2a 20 76 61 72 69 61 62 6c 65 20 69 66 20 . * variable if
a050: 6e 65 63 65 73 73 61 72 79 2e 0a 20 09 20 2a 2f necessary.. . */
a060: 0a 20 0a 20 09 69 66 20 28 2a 63 6f 6e 64 50 74 . . .if (*condPt
a070: 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 23 69 r == NULL) {.+#i
a080: 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 43 f defined(HAVE_C
a090: 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 26 26 LOCK_GETTIME) &&
a0a0: 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 50 54 defined(HAVE_PT
a0b0: 48 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 HREAD_CONDATTR_S
a0c0: 45 54 43 4c 4f 43 4b 29 0a 2b 09 20 20 20 20 70 ETCLOCK).+. p
a0d0: 74 68 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f thread_condattr_
a0e0: 74 20 61 74 74 72 3b 0a 2b 0a 2b 09 20 20 20 20 t attr;.+.+.
a0f0: 70 63 6f 6e 64 50 74 72 20 3d 20 63 6b 61 6c 6c pcondPtr = ckall
a100: 6f 63 28 73 69 7a 65 6f 66 28 70 74 68 72 65 61 oc(sizeof(pthrea
a110: 64 5f 63 6f 6e 64 5f 74 29 20 2b 20 73 69 7a 65 d_cond_t) + size
a120: 6f 66 28 69 6e 74 29 29 3b 0a 2b 09 20 20 20 20 of(int));.+.
a130: 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3d 20 28 69 monoFlagPtr = (i
a140: 6e 74 20 2a 29 20 28 70 63 6f 6e 64 50 74 72 20 nt *) (pcondPtr
a150: 2b 20 31 29 3b 0a 2b 09 20 20 20 20 70 74 68 72 + 1);.+. pthr
a160: 65 61 64 5f 63 6f 6e 64 61 74 74 72 5f 69 6e 69 ead_condattr_ini
a170: 74 28 26 61 74 74 72 29 3b 0a 2b 09 20 20 20 20 t(&attr);.+.
a180: 2a 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3d 20 28 *monoFlagPtr = (
a190: 70 74 68 72 65 61 64 5f 63 6f 6e 64 61 74 74 72 pthread_condattr
a1a0: 5f 73 65 74 63 6c 6f 63 6b 28 26 61 74 74 72 2c _setclock(&attr,
a1b0: 20 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 CLOCK_MONOTONIC
a1c0: 29 20 3d 3d 20 30 29 3b 0a 2b 09 20 20 20 20 69 ) == 0);.+. i
a1d0: 66 20 28 2a 6d 6f 6e 6f 46 6c 61 67 50 74 72 29 f (*monoFlagPtr)
a1e0: 20 7b 0a 2b 09 09 69 66 20 28 70 74 68 72 65 61 {.+..if (pthrea
a1f0: 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 63 6f 6e d_cond_init(pcon
a200: 64 50 74 72 2c 20 26 61 74 74 72 29 29 20 7b 0a dPtr, &attr)) {.
a210: 2b 09 09 20 20 20 20 2a 6d 6f 6e 6f 46 6c 61 67 +.. *monoFlag
a220: 50 74 72 20 3d 20 30 3b 0a 2b 09 09 20 20 20 20 Ptr = 0;.+..
a230: 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f 69 6e 69 pthread_cond_ini
a240: 74 28 70 63 6f 6e 64 50 74 72 2c 20 4e 55 4c 4c t(pcondPtr, NULL
a250: 29 3b 0a 2b 09 09 7d 0a 2b 09 20 20 20 20 7d 20 );.+..}.+. }
a260: 65 6c 73 65 20 7b 0a 2b 09 09 70 74 68 72 65 61 else {.+..pthrea
a270: 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 63 6f 6e d_cond_init(pcon
a280: 64 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a 2b 09 20 dPtr, NULL);.+.
a290: 20 20 20 7d 0a 2b 09 20 20 20 20 70 74 68 72 65 }.+. pthre
a2a0: 61 64 5f 63 6f 6e 64 61 74 74 72 5f 64 65 73 74 ad_condattr_dest
a2b0: 72 6f 79 28 26 61 74 74 72 29 3b 0a 2b 23 65 6c roy(&attr);.+#el
a2c0: 73 65 0a 20 09 20 20 20 20 70 63 6f 6e 64 50 74 se. . pcondPt
a2d0: 72 20 3d 20 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 r = ckalloc(size
a2e0: 6f 66 28 70 74 68 72 65 61 64 5f 63 6f 6e 64 5f of(pthread_cond_
a2f0: 74 29 29 3b 0a 20 09 20 20 20 20 70 74 68 72 65 t));. . pthre
a300: 61 64 5f 63 6f 6e 64 5f 69 6e 69 74 28 70 63 6f ad_cond_init(pco
a310: 6e 64 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a 2b 23 ndPtr, NULL);.+#
a320: 65 6e 64 69 66 0a 20 09 20 20 20 20 2a 63 6f 6e endif. . *con
a330: 64 50 74 72 20 3d 20 28 54 63 6c 5f 43 6f 6e 64 dPtr = (Tcl_Cond
a340: 69 74 69 6f 6e 29 20 70 63 6f 6e 64 50 74 72 3b ition) pcondPtr;
a350: 0a 20 09 20 20 20 20 54 63 6c 52 65 6d 65 6d 62 . . TclRememb
a360: 65 72 43 6f 6e 64 69 74 69 6f 6e 28 63 6f 6e 64 erCondition(cond
a370: 50 74 72 29 3b 0a 20 09 7d 0a 20 09 4d 41 53 54 Ptr);. .}. .MAST
a380: 45 52 5f 55 4e 4c 4f 43 4b 3b 0a 20 20 20 20 20 ER_UNLOCK;.
a390: 7d 0a 40 40 20 2d 35 34 37 2c 31 30 20 2b 35 36 }.@@ -547,10 +56
a3a0: 38 2c 31 37 20 40 40 0a 20 20 20 20 20 70 6d 75 8,17 @@. pmu
a3b0: 74 65 78 50 74 72 20 3d 20 2a 28 28 70 74 68 72 texPtr = *((pthr
a3c0: 65 61 64 5f 6d 75 74 65 78 5f 74 20 2a 2a 29 6d ead_mutex_t **)m
a3d0: 75 74 65 78 50 74 72 29 3b 0a 20 20 20 20 20 70 utexPtr);. p
a3e0: 63 6f 6e 64 50 74 72 20 3d 20 2a 28 28 70 74 68 condPtr = *((pth
a3f0: 72 65 61 64 5f 63 6f 6e 64 5f 74 20 2a 2a 29 63 read_cond_t **)c
a400: 6f 6e 64 50 74 72 29 3b 0a 20 20 20 20 20 69 66 ondPtr);. if
a410: 20 28 74 69 6d 65 50 74 72 20 3d 3d 20 4e 55 4c (timePtr == NUL
a420: 4c 29 20 7b 0a 20 09 70 74 68 72 65 61 64 5f 63 L) {. .pthread_c
a430: 6f 6e 64 5f 77 61 69 74 28 70 63 6f 6e 64 50 74 ond_wait(pcondPt
a440: 72 2c 20 70 6d 75 74 65 78 50 74 72 29 3b 0a 20 r, pmutexPtr);.
a450: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b 23 69 } else {.+#i
a460: 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 43 f defined(HAVE_C
a470: 4c 4f 43 4b 5f 47 45 54 54 49 4d 45 29 20 26 26 LOCK_GETTIME) &&
a480: 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 50 54 defined(HAVE_PT
a490: 48 52 45 41 44 5f 43 4f 4e 44 41 54 54 52 5f 53 HREAD_CONDATTR_S
a4a0: 45 54 43 4c 4f 43 4b 29 0a 2b 09 6d 6f 6e 6f 46 ETCLOCK).+.monoF
a4b0: 6c 61 67 50 74 72 20 3d 20 28 69 6e 74 20 2a 29 lagPtr = (int *)
a4c0: 20 28 70 63 6f 6e 64 50 74 72 20 2b 20 31 29 3b (pcondPtr + 1);
a4d0: 0a 2b 09 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 .+.clock_gettime
a4e0: 28 2a 6d 6f 6e 6f 46 6c 61 67 50 74 72 20 3f 20 (*monoFlagPtr ?
a4f0: 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 43 20 CLOCK_MONOTONIC
a500: 3a 20 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 4d 45 : CLOCK_REALTIME
a510: 2c 20 26 70 74 69 6d 65 29 3b 0a 2b 09 70 74 69 , &ptime);.+.pti
a520: 6d 65 2e 74 76 5f 73 65 63 20 2b 3d 20 74 69 6d me.tv_sec += tim
a530: 65 50 74 72 2d 3e 73 65 63 20 2b 0a 2b 09 20 20 ePtr->sec +.+.
a540: 20 20 28 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 (timePtr->usec
a550: 20 2a 20 31 30 30 30 20 2b 20 70 74 69 6d 65 2e * 1000 + ptime.
a560: 74 76 5f 6e 73 65 63 29 20 2f 20 31 30 30 30 30 tv_nsec) / 10000
a570: 30 30 30 30 30 3b 0a 2b 09 70 74 69 6d 65 2e 74 00000;.+.ptime.t
a580: 76 5f 6e 73 65 63 20 3d 20 28 74 69 6d 65 50 74 v_nsec = (timePt
a590: 72 2d 3e 75 73 65 63 20 2a 20 31 30 30 30 20 2b r->usec * 1000 +
a5a0: 20 70 74 69 6d 65 2e 74 76 5f 6e 73 65 63 29 20 ptime.tv_nsec)
a5b0: 25 20 31 30 30 30 30 30 30 30 30 30 3b 0a 2b 23 % 1000000000;.+#
a5c0: 65 6c 73 65 0a 20 09 54 63 6c 5f 54 69 6d 65 20 else. .Tcl_Time
a5d0: 6e 6f 77 3b 0a 20 0a 20 09 2f 2a 0a 20 09 20 2a now;. . ./*. . *
a5e0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 74 61 Make sure to ta
a5f0: 6b 65 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74 20 ke into account
a600: 74 68 65 20 6d 69 63 72 6f 73 65 63 6f 6e 64 20 the microsecond
a610: 63 6f 6d 70 6f 6e 65 6e 74 20 6f 66 20 74 68 65 component of the
a620: 0a 20 09 20 2a 20 63 75 72 72 65 6e 74 20 74 69 . . * current ti
a630: 6d 65 2c 20 69 6e 63 6c 75 64 69 6e 67 20 70 6f me, including po
a640: 73 73 69 62 6c 65 20 6f 76 65 72 66 6c 6f 77 20 ssible overflow
a650: 73 69 74 75 61 74 69 6f 6e 73 2e 20 5b 42 75 67 situations. [Bug
a660: 20 23 34 31 31 36 30 33 5d 0a 40 40 20 2d 35 35 #411603].@@ -55
a670: 38 2c 31 30 20 2b 35 38 36 2c 31 31 20 40 40 0a 8,10 +586,11 @@.
a680: 20 0a 20 09 54 63 6c 5f 47 65 74 54 69 6d 65 28 . .Tcl_GetTime(
a690: 26 6e 6f 77 29 3b 0a 20 09 70 74 69 6d 65 2e 74 &now);. .ptime.t
a6a0: 76 5f 73 65 63 20 3d 20 74 69 6d 65 50 74 72 2d v_sec = timePtr-
a6b0: 3e 73 65 63 20 2b 20 6e 6f 77 2e 73 65 63 20 2b >sec + now.sec +
a6c0: 0a 20 09 20 20 20 20 28 74 69 6d 65 50 74 72 2d . . (timePtr-
a6d0: 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 63 >usec + now.usec
a6e0: 29 20 2f 20 31 30 30 30 30 30 30 3b 0a 20 09 70 ) / 1000000;. .p
a6f0: 74 69 6d 65 2e 74 76 5f 6e 73 65 63 20 3d 20 31 time.tv_nsec = 1
a700: 30 30 30 20 2a 20 28 28 74 69 6d 65 50 74 72 2d 000 * ((timePtr-
a710: 3e 75 73 65 63 20 2b 20 6e 6f 77 2e 75 73 65 63 >usec + now.usec
a720: 29 20 25 20 31 30 30 30 30 30 30 29 3b 0a 2b 23 ) % 1000000);.+#
a730: 65 6e 64 69 66 0a 20 09 70 74 68 72 65 61 64 5f endif. .pthread_
a740: 63 6f 6e 64 5f 74 69 6d 65 64 77 61 69 74 28 70 cond_timedwait(p
a750: 63 6f 6e 64 50 74 72 2c 20 70 6d 75 74 65 78 50 condPtr, pmutexP
a760: 74 72 2c 20 26 70 74 69 6d 65 29 3b 0a 20 20 20 tr, &ptime);.
a770: 20 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 0a 49 }. }. .. /*..I
a780: 6e 64 65 78 3a 20 75 6e 69 78 2f 74 63 6c 55 6e ndex: unix/tclUn
a790: 69 78 54 69 6d 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d ixTime.c.=======
a7a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
a7b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
a7c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
a7d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 ===========.---
a7e0: 75 6e 69 78 2f 74 63 6c 55 6e 69 78 54 69 6d 65 unix/tclUnixTime
a7f0: 2e 63 0a 2b 2b 2b 20 75 6e 69 78 2f 74 63 6c 55 .c.+++ unix/tclU
a800: 6e 69 78 54 69 6d 65 2e 63 0a 40 40 20 2d 31 30 nixTime.c.@@ -10
a810: 33 2c 31 30 20 2b 31 30 33 2c 31 36 20 40 40 0a 3,10 +103,16 @@.
a820: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 0a 20 unsigned long.
a830: 54 63 6c 70 47 65 74 43 6c 69 63 6b 73 28 76 6f TclpGetClicks(vo
a840: 69 64 29 0a 20 7b 0a 20 20 20 20 20 75 6e 73 69 id). {. unsi
a850: 67 6e 65 64 20 6c 6f 6e 67 20 6e 6f 77 3b 0a 20 gned long now;.
a860: 0a 2b 23 69 66 64 65 66 20 48 41 56 45 5f 43 4c .+#ifdef HAVE_CL
a870: 4f 43 4b 5f 47 45 54 54 49 4d 45 0a 2b 20 20 20 OCK_GETTIME.+
a880: 20 54 63 6c 5f 54 69 6d 65 20 74 69 6d 65 3b 0a Tcl_Time time;.
a890: 2b 0a 2b 20 20 20 20 54 63 6c 70 47 65 74 4d 6f +.+ TclpGetMo
a8a0: 6e 6f 74 6f 6e 69 63 54 69 6d 65 28 26 74 69 6d notonicTime(&tim
a8b0: 65 29 3b 0a 2b 20 20 20 20 6e 6f 77 20 3d 20 74 e);.+ now = t
a8c0: 69 6d 65 2e 73 65 63 2a 31 30 30 30 30 30 30 20 ime.sec*1000000
a8d0: 2b 20 74 69 6d 65 2e 75 73 65 63 3b 0a 2b 23 65 + time.usec;.+#e
a8e0: 6c 73 65 0a 20 23 69 66 64 65 66 20 4e 4f 5f 47 lse. #ifdef NO_G
a8f0: 45 54 54 4f 44 0a 20 20 20 20 20 69 66 20 28 74 ETTOD. if (t
a900: 63 6c 47 65 74 54 69 6d 65 50 72 6f 63 50 74 72 clGetTimeProcPtr
a910: 20 21 3d 20 4e 61 74 69 76 65 47 65 74 54 69 6d != NativeGetTim
a920: 65 29 20 7b 0a 20 09 54 63 6c 5f 54 69 6d 65 20 e) {. .Tcl_Time
a930: 74 69 6d 65 3b 0a 20 0a 20 09 74 63 6c 47 65 74 time;. . .tclGet
a940: 54 69 6d 65 50 72 6f 63 50 74 72 28 26 74 69 6d TimeProcPtr(&tim
a950: 65 2c 20 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 e, tclTimeClient
a960: 44 61 74 61 29 3b 0a 40 40 20 2d 31 32 32 2c 31 Data);.@@ -122,1
a970: 30 20 2b 31 32 38 2c 31 31 20 40 40 0a 20 23 65 0 +128,11 @@. #e
a980: 6c 73 65 0a 20 20 20 20 20 54 63 6c 5f 54 69 6d lse. Tcl_Tim
a990: 65 20 74 69 6d 65 3b 0a 20 0a 20 20 20 20 20 74 e time;. . t
a9a0: 63 6c 47 65 74 54 69 6d 65 50 72 6f 63 50 74 72 clGetTimeProcPtr
a9b0: 28 26 74 69 6d 65 2c 20 74 63 6c 54 69 6d 65 43 (&time, tclTimeC
a9c0: 6c 69 65 6e 74 44 61 74 61 29 3b 0a 20 20 20 20 lientData);.
a9d0: 20 6e 6f 77 20 3d 20 74 69 6d 65 2e 73 65 63 2a now = time.sec*
a9e0: 31 30 30 30 30 30 30 20 2b 20 74 69 6d 65 2e 75 1000000 + time.u
a9f0: 73 65 63 3b 0a 2b 23 65 6e 64 69 66 0a 20 23 65 sec;.+#endif. #e
aa00: 6e 64 69 66 0a 20 0a 20 20 20 20 20 72 65 74 75 ndif. . retu
aa10: 72 6e 20 6e 6f 77 3b 0a 20 7d 0a 20 23 69 66 64 rn now;. }. #ifd
aa20: 65 66 20 54 43 4c 5f 57 49 44 45 5f 43 4c 49 43 ef TCL_WIDE_CLIC
aa30: 4b 53 0a 40 40 20 2d 33 37 34 2c 31 33 20 2b 33 KS.@@ -374,13 +3
aa40: 38 31 2c 31 35 20 40 40 0a 20 54 63 6c 5f 53 65 81,15 @@. Tcl_Se
aa50: 74 54 69 6d 65 50 72 6f 63 28 0a 20 20 20 20 20 tTimeProc(.
aa60: 54 63 6c 5f 47 65 74 54 69 6d 65 50 72 6f 63 20 Tcl_GetTimeProc
aa70: 2a 67 65 74 50 72 6f 63 2c 0a 20 20 20 20 20 54 *getProc,. T
aa80: 63 6c 5f 53 63 61 6c 65 54 69 6d 65 50 72 6f 63 cl_ScaleTimeProc
aa90: 20 2a 73 63 61 6c 65 50 72 6f 63 2c 0a 20 20 20 *scaleProc,.
aaa0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
aab0: 65 6e 74 44 61 74 61 29 0a 20 7b 0a 2b 23 69 66 entData). {.+#if
aac0: 6e 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 4b 5f ndef HAVE_CLOCK_
aad0: 47 45 54 54 49 4d 45 0a 20 20 20 20 20 74 63 6c GETTIME. tcl
aae0: 47 65 74 54 69 6d 65 50 72 6f 63 50 74 72 20 3d GetTimeProcPtr =
aaf0: 20 67 65 74 50 72 6f 63 3b 0a 20 20 20 20 20 74 getProc;. t
ab00: 63 6c 53 63 61 6c 65 54 69 6d 65 50 72 6f 63 50 clScaleTimeProcP
ab10: 74 72 20 3d 20 73 63 61 6c 65 50 72 6f 63 3b 0a tr = scaleProc;.
ab20: 20 20 20 20 20 74 63 6c 54 69 6d 65 43 6c 69 65 tclTimeClie
ab30: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 ntData = clientD
ab40: 61 74 61 3b 0a 2b 23 65 6e 64 69 66 0a 20 7d 0a ata;.+#endif. }.
ab50: 20 0c 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d .. /*. *------
ab60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aba0: 0a 20 20 2a 0a 40 40 20 2d 34 36 35 2c 31 30 20 . *.@@ -465,10
abb0: 2b 34 37 34 2c 36 33 20 40 40 0a 20 0a 20 20 20 +474,63 @@. .
abc0: 20 20 28 76 6f 69 64 29 20 67 65 74 74 69 6d 65 (void) gettime
abd0: 6f 66 64 61 79 28 26 74 76 2c 20 4e 55 4c 4c 29 ofday(&tv, NULL)
abe0: 3b 0a 20 20 20 20 20 74 69 6d 65 50 74 72 2d 3e ;. timePtr->
abf0: 73 65 63 20 3d 20 74 76 2e 74 76 5f 73 65 63 3b sec = tv.tv_sec;
ac00: 0a 20 20 20 20 20 74 69 6d 65 50 74 72 2d 3e 75 . timePtr->u
ac10: 73 65 63 20 3d 20 74 76 2e 74 76 5f 75 73 65 63 sec = tv.tv_usec
ac20: 3b 0a 20 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d ;. }.+..+/*.+ *-
ac30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac70: 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 63 -----.+ *.+ * Tc
ac80: 6c 70 47 65 74 4d 6f 6e 6f 6e 6f 74 69 63 54 69 lpGetMononoticTi
ac90: 6d 65 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 4c 69 me --.+ *.+ *.Li
aca0: 6b 65 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 29 ke Tcl_GetTime()
acb0: 20 62 75 74 20 72 65 74 75 72 6e 20 61 20 6d 6f but return a mo
acc0: 6e 6f 74 6f 6e 69 63 20 63 6c 6f 63 6b 20 73 6f notonic clock so
acd0: 75 72 63 65 2c 0a 2b 20 2a 09 69 66 20 70 6f 73 urce,.+ *.if pos
ace0: 73 69 62 6c 65 2e 20 4f 74 68 65 72 77 69 73 65 sible. Otherwise
acf0: 20 66 61 6c 6c 20 62 61 63 6b 20 74 6f 20 72 65 fall back to re
ad00: 61 6c 20 28 77 61 6c 6c 20 63 6c 6f 63 6b 29 20 al (wall clock)
ad10: 74 69 6d 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 time..+ *.+ * Re
ad20: 73 75 6c 74 73 3a 0a 2b 20 2a 09 31 20 69 66 20 sults:.+ *.1 if
ad30: 6d 6f 6e 6f 74 6f 6e 69 63 2c 20 30 20 6f 74 68 monotonic, 0 oth
ad40: 65 72 77 69 73 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 erwise..+ *.+ *
ad50: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 Side effects:.+
ad60: 2a 09 4e 6f 6e 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d *.None..+ *.+ *-
ad70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ad80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ad90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ada0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
adb0: 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 69 6e -----.+ */.+.+in
adc0: 74 0a 2b 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f t.+TclpGetMonoto
add0: 6e 69 63 54 69 6d 65 28 54 63 6c 5f 54 69 6d 65 nicTime(Tcl_Time
ade0: 20 2a 74 69 6d 65 50 74 72 29 0a 2b 7b 0a 2b 23 *timePtr).+{.+#
adf0: 69 66 64 65 66 20 48 41 56 45 5f 43 4c 4f 43 4b ifdef HAVE_CLOCK
ae00: 5f 47 45 54 54 49 4d 45 0a 2b 20 20 20 20 69 6e _GETTIME.+ in
ae10: 74 20 72 65 74 3b 0a 2b 20 20 20 20 73 74 72 75 t ret;.+ stru
ae20: 63 74 20 74 69 6d 65 73 70 65 63 20 74 73 3b 0a ct timespec ts;.
ae30: 2b 20 20 20 20 73 74 61 74 69 63 20 69 6e 74 20 + static int
ae40: 75 73 65 4d 6f 6e 6f 43 6c 6f 63 6b 20 3d 20 2d useMonoClock = -
ae50: 31 3b 0a 2b 0a 2b 20 20 20 20 69 66 20 28 75 73 1;.+.+ if (us
ae60: 65 4d 6f 6e 6f 43 6c 6f 63 6b 29 20 7b 0a 2b 09 eMonoClock) {.+.
ae70: 72 65 74 20 3d 20 28 63 6c 6f 63 6b 5f 67 65 74 ret = (clock_get
ae80: 74 69 6d 65 28 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 time(CLOCK_MONOT
ae90: 4f 4e 49 43 2c 20 26 74 73 29 20 3d 3d 20 30 29 ONIC, &ts) == 0)
aea0: 3b 0a 2b 09 69 66 20 28 75 73 65 4d 6f 6e 6f 43 ;.+.if (useMonoC
aeb0: 6c 6f 63 6b 20 3c 20 30 29 20 7b 0a 2b 09 20 20 lock < 0) {.+.
aec0: 20 20 75 73 65 4d 6f 6e 6f 43 6c 6f 63 6b 20 3d useMonoClock =
aed0: 20 72 65 74 3b 0a 2b 09 20 20 20 20 69 66 20 28 ret;.+. if (
aee0: 21 72 65 74 29 20 7b 0a 2b 09 09 28 76 6f 69 64 !ret) {.+..(void
aef0: 29 20 63 6c 6f 63 6b 5f 67 65 74 74 69 6d 65 28 ) clock_gettime(
af00: 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 4d 45 2c 20 CLOCK_REALTIME,
af10: 26 74 73 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 &ts);.+. }.+.
af20: 7d 20 65 6c 73 65 20 69 66 20 28 21 72 65 74 29 } else if (!ret)
af30: 20 7b 0a 2b 09 20 20 20 20 54 63 6c 5f 50 61 6e {.+. Tcl_Pan
af40: 69 63 28 22 63 6c 6f 63 6b 5f 67 65 74 74 69 6d ic("clock_gettim
af50: 65 28 43 4c 4f 43 4b 5f 4d 4f 4e 4f 54 4f 4e 49 e(CLOCK_MONOTONI
af60: 43 29 20 66 61 69 6c 65 64 22 29 3b 0a 2b 09 7d C) failed");.+.}
af70: 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2b .+ } else {.+
af80: 09 28 76 6f 69 64 29 20 63 6c 6f 63 6b 5f 67 65 .(void) clock_ge
af90: 74 74 69 6d 65 28 43 4c 4f 43 4b 5f 52 45 41 4c ttime(CLOCK_REAL
afa0: 54 49 4d 45 2c 20 26 74 73 29 3b 0a 2b 09 72 65 TIME, &ts);.+.re
afb0: 74 20 3d 20 30 3b 0a 2b 20 20 20 20 7d 0a 2b 20 t = 0;.+ }.+
afc0: 20 20 20 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 timePtr->sec
afd0: 3d 20 74 73 2e 74 76 5f 73 65 63 3b 0a 2b 20 20 = ts.tv_sec;.+
afe0: 20 20 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 timePtr->usec
aff0: 3d 20 74 73 2e 74 76 5f 6e 73 65 63 20 2f 20 31 = ts.tv_nsec / 1
b000: 30 30 30 3b 0a 2b 20 20 20 20 72 65 74 75 72 6e 000;.+ return
b010: 20 72 65 74 3b 0a 2b 23 65 6c 73 65 0a 2b 20 20 ret;.+#else.+
b020: 20 20 73 74 72 75 63 74 20 74 69 6d 65 76 61 6c struct timeval
b030: 20 74 76 3b 0a 2b 0a 2b 20 20 20 20 28 76 6f 69 tv;.+.+ (voi
b040: 64 29 20 67 65 74 74 69 6d 65 6f 66 64 61 79 28 d) gettimeofday(
b050: 26 74 76 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 20 20 &tv, NULL);.+
b060: 20 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 3d 20 timePtr->sec =
b070: 74 76 2e 74 76 5f 73 65 63 3b 0a 2b 20 20 20 20 tv.tv_sec;.+
b080: 74 69 6d 65 50 74 72 2d 3e 75 73 65 63 20 3d 20 timePtr->usec =
b090: 74 76 2e 74 76 5f 75 73 65 63 3b 0a 2b 20 20 20 tv.tv_usec;.+
b0a0: 20 72 65 74 75 72 6e 20 30 3b 0a 2b 23 65 6e 64 return 0;.+#end
b0b0: 69 66 0a 2b 7d 0a 2b 0c 0a 20 2f 2a 0a 20 20 2a if.+}.+.. /*. *
b0c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b0d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b0e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b0f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b100: 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 20 20 2a 20 53 ------. *. * S
b110: 65 74 54 5a 49 66 4e 65 63 65 73 73 61 72 79 20 etTZIfNecessary
b120: 2d 2d 0a 20 20 2a 0a 0a 49 6e 64 65 78 3a 20 77 --. *..Index: w
b130: 69 6e 2f 63 6f 6e 66 69 67 75 72 65 0a 3d 3d 3d in/configure.===
b140: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b150: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b160: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b170: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
b180: 2d 2d 2d 20 77 69 6e 2f 63 6f 6e 66 69 67 75 72 --- win/configur
b190: 65 0a 2b 2b 2b 20 77 69 6e 2f 63 6f 6e 66 69 67 e.+++ win/config
b1a0: 75 72 65 0a 40 40 20 2d 38 35 31 2c 31 30 20 2b ure.@@ -851,10 +
b1b0: 38 35 31 2c 31 31 20 40 40 0a 20 4f 70 74 69 6f 851,11 @@. Optio
b1c0: 6e 61 6c 20 50 61 63 6b 61 67 65 73 3a 0a 20 20 nal Packages:.
b1d0: 20 2d 2d 77 69 74 68 2d 50 41 43 4b 41 47 45 5b --with-PACKAGE[
b1e0: 3d 41 52 47 5d 20 20 20 20 75 73 65 20 50 41 43 =ARG] use PAC
b1f0: 4b 41 47 45 20 5b 41 52 47 3d 79 65 73 5d 0a 20 KAGE [ARG=yes].
b200: 20 20 2d 2d 77 69 74 68 6f 75 74 2d 50 41 43 4b --without-PACK
b210: 41 47 45 20 20 20 20 20 20 20 64 6f 20 6e 6f 74 AGE do not
b220: 20 75 73 65 20 50 41 43 4b 41 47 45 20 28 73 61 use PACKAGE (sa
b230: 6d 65 20 61 73 20 2d 2d 77 69 74 68 2d 50 41 43 me as --with-PAC
b240: 4b 41 47 45 3d 6e 6f 29 0a 20 20 20 2d 2d 77 69 KAGE=no). --wi
b250: 74 68 2d 65 6e 63 6f 64 69 6e 67 20 20 20 20 20 th-encoding
b260: 20 20 20 20 65 6e 63 6f 64 69 6e 67 20 66 6f 72 encoding for
b270: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 configuration v
b280: 61 6c 75 65 73 0a 20 20 20 2d 2d 77 69 74 68 2d alues. --with-
b290: 63 65 6c 69 62 3d 44 49 52 20 20 20 20 20 20 20 celib=DIR
b2a0: 20 75 73 65 20 57 69 6e 64 6f 77 73 2f 43 45 20 use Windows/CE
b2b0: 73 75 70 70 6f 72 74 20 6c 69 62 72 61 72 79 20 support library
b2c0: 66 72 6f 6d 20 44 49 52 0a 2b 20 20 2d 2d 77 69 from DIR.+ --wi
b2d0: 74 68 2d 74 69 63 6b 63 6f 75 6e 74 20 20 20 20 th-tickcount
b2e0: 20 20 20 20 75 73 65 20 47 65 74 54 69 63 6b 43 use GetTickC
b2f0: 6f 75 6e 74 20 66 6f 72 20 74 69 6d 65 72 73 2c ount for timers,
b300: 20 74 75 72 6e 73 20 6f 66 66 20 54 49 50 20 23 turns off TIP #
b310: 32 33 33 0a 20 0a 20 53 6f 6d 65 20 69 6e 66 6c 233. . Some infl
b320: 75 65 6e 74 69 61 6c 20 65 6e 76 69 72 6f 6e 6d uential environm
b330: 65 6e 74 20 76 61 72 69 61 62 6c 65 73 3a 0a 20 ent variables:.
b340: 20 20 43 43 20 20 20 20 20 20 20 20 20 20 43 20 CC C
b350: 63 6f 6d 70 69 6c 65 72 20 63 6f 6d 6d 61 6e 64 compiler command
b360: 0a 20 20 20 43 46 4c 41 47 53 20 20 20 20 20 20 . CFLAGS
b370: 43 20 63 6f 6d 70 69 6c 65 72 20 66 6c 61 67 73 C compiler flags
b380: 0a 20 20 20 4c 44 46 4c 41 47 53 20 20 20 20 20 . LDFLAGS
b390: 6c 69 6e 6b 65 72 20 66 6c 61 67 73 2c 20 65 2e linker flags, e.
b3a0: 67 2e 20 2d 4c 3c 6c 69 62 20 64 69 72 3e 20 69 g. -L<lib dir> i
b3b0: 66 20 79 6f 75 20 68 61 76 65 20 6c 69 62 72 61 f you have libra
b3c0: 72 69 65 73 20 69 6e 20 61 0a 40 40 20 2d 34 34 ries in a.@@ -44
b3d0: 30 36 2c 31 30 20 2b 34 34 30 37 2c 32 38 20 40 06,10 +4407,28 @
b3e0: 40 0a 20 63 61 74 20 3e 3e 63 6f 6e 66 64 65 66 @. cat >>confdef
b3f0: 73 2e 68 20 3c 3c 5c 5f 41 43 45 4f 46 0a 20 23 s.h <<\_ACEOF. #
b400: 64 65 66 69 6e 65 20 48 41 56 45 5f 5a 4c 49 42 define HAVE_ZLIB
b410: 20 31 0a 20 5f 41 43 45 4f 46 0a 20 0a 20 0a 2b 1. _ACEOF. . .+
b420: 0a 2b 23 20 43 68 65 63 6b 20 77 68 65 74 68 65 .+# Check whethe
b430: 72 20 2d 2d 77 69 74 68 2d 74 69 63 6b 63 6f 75 r --with-tickcou
b440: 6e 74 20 6f 72 20 2d 2d 77 69 74 68 6f 75 74 2d nt or --without-
b450: 74 69 63 6b 63 6f 75 6e 74 20 77 61 73 20 67 69 tickcount was gi
b460: 76 65 6e 2e 0a 2b 69 66 20 74 65 73 74 20 22 24 ven..+if test "$
b470: 7b 77 69 74 68 5f 74 69 63 6b 63 6f 75 6e 74 2b {with_tickcount+
b480: 73 65 74 7d 22 20 3d 20 73 65 74 3b 20 74 68 65 set}" = set; the
b490: 6e 0a 2b 20 20 77 69 74 68 76 61 6c 3d 22 24 77 n.+ withval="$w
b4a0: 69 74 68 5f 74 69 63 6b 63 6f 75 6e 74 22 0a 2b ith_tickcount".+
b4b0: 20 20 74 63 6c 5f 6f 6b 3d 24 77 69 74 68 76 61 tcl_ok=$withva
b4c0: 6c 0a 2b 65 6c 73 65 0a 2b 20 20 74 63 6c 5f 6f l.+else.+ tcl_o
b4d0: 6b 3d 6e 6f 0a 2b 66 69 3b 0a 2b 65 63 68 6f 20 k=no.+fi;.+echo
b4e0: 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 4e 4f 3a "$as_me:$LINENO:
b4f0: 20 72 65 73 75 6c 74 3a 20 24 74 63 6c 5f 6f 6b result: $tcl_ok
b500: 22 20 3e 26 35 0a 2b 65 63 68 6f 20 22 24 7b 45 " >&5.+echo "${E
b510: 43 48 4f 5f 54 7d 24 74 63 6c 5f 6f 6b 22 20 3e CHO_T}$tcl_ok" >
b520: 26 36 0a 2b 69 66 20 74 65 73 74 20 24 74 63 6c &6.+if test $tcl
b530: 5f 6f 6b 20 3d 20 79 65 73 3b 20 74 68 65 6e 0a _ok = yes; then.
b540: 2b 0a 2b 63 61 74 20 3e 3e 63 6f 6e 66 64 65 66 +.+cat >>confdef
b550: 73 2e 68 20 3c 3c 5c 5f 41 43 45 4f 46 0a 2b 23 s.h <<\_ACEOF.+#
b560: 64 65 66 69 6e 65 20 57 49 4e 33 32 5f 55 53 45 define WIN32_USE
b570: 5f 54 49 43 4b 43 4f 55 4e 54 20 31 0a 2b 5f 41 _TICKCOUNT 1.+_A
b580: 43 45 4f 46 0a 2b 0a 2b 66 69 0a 2b 0a 20 65 63 CEOF.+.+fi.+. ec
b590: 68 6f 20 22 24 61 73 5f 6d 65 3a 24 4c 49 4e 45 ho "$as_me:$LINE
b5a0: 4e 4f 3a 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 NO: checking for
b5b0: 20 69 6e 74 70 74 72 5f 74 22 20 3e 26 35 0a 20 intptr_t" >&5.
b5c0: 65 63 68 6f 20 24 45 43 48 4f 5f 4e 20 22 63 68 echo $ECHO_N "ch
b5d0: 65 63 6b 69 6e 67 20 66 6f 72 20 69 6e 74 70 74 ecking for intpt
b5e0: 72 5f 74 2e 2e 2e 20 24 45 43 48 4f 5f 43 22 20 r_t... $ECHO_C"
b5f0: 3e 26 36 0a 20 69 66 20 74 65 73 74 20 22 24 7b >&6. if test "${
b600: 61 63 5f 63 76 5f 74 79 70 65 5f 69 6e 74 70 74 ac_cv_type_intpt
b610: 72 5f 74 2b 73 65 74 7d 22 20 3d 20 73 65 74 3b r_t+set}" = set;
b620: 20 74 68 65 6e 0a 20 20 20 65 63 68 6f 20 24 45 then. echo $E
b630: 43 48 4f 5f 4e 20 22 28 63 61 63 68 65 64 29 20 CHO_N "(cached)
b640: 24 45 43 48 4f 5f 43 22 20 3e 26 36 0a 20 65 6c $ECHO_C" >&6. el
b650: 73 65 0a 0a 49 6e 64 65 78 3a 20 77 69 6e 2f 63 se..Index: win/c
b660: 6f 6e 66 69 67 75 72 65 2e 69 6e 0a 3d 3d 3d 3d onfigure.in.====
b670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b6a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d ==============.-
b6b0: 2d 2d 20 77 69 6e 2f 63 6f 6e 66 69 67 75 72 65 -- win/configure
b6c0: 2e 69 6e 0a 2b 2b 2b 20 77 69 6e 2f 63 6f 6e 66 .in.+++ win/conf
b6d0: 69 67 75 72 65 2e 69 6e 0a 40 40 20 2d 31 33 39 igure.in.@@ -139
b6e0: 2c 31 30 20 2b 31 33 39 2c 31 39 20 40 40 0a 20 ,10 +139,19 @@.
b6f0: 20 20 5d 29 0a 20 5d 2c 20 5b 0a 20 20 20 41 43 ]). ], [. AC
b700: 5f 53 55 42 53 54 28 5a 4c 49 42 5f 4f 42 4a 53 _SUBST(ZLIB_OBJS
b710: 2c 5b 5c 24 7b 5a 4c 49 42 5f 4f 42 4a 53 7d 5d ,[\${ZLIB_OBJS}]
b720: 29 0a 20 5d 29 0a 20 41 43 5f 44 45 46 49 4e 45 ). ]). AC_DEFINE
b730: 28 48 41 56 45 5f 5a 4c 49 42 2c 20 31 2c 20 5b (HAVE_ZLIB, 1, [
b740: 49 73 20 74 68 65 72 65 20 61 6e 20 69 6e 73 74 Is there an inst
b750: 61 6c 6c 65 64 20 7a 6c 69 62 3f 5d 29 0a 2b 0a alled zlib?]).+.
b760: 2b 41 43 5f 41 52 47 5f 57 49 54 48 28 74 69 63 +AC_ARG_WITH(tic
b770: 6b 63 6f 75 6e 74 2c 0a 2b 20 20 20 20 41 43 5f kcount,.+ AC_
b780: 48 45 4c 50 5f 53 54 52 49 4e 47 28 5b 2d 2d 77 HELP_STRING([--w
b790: 69 74 68 2d 74 69 63 6b 63 6f 75 6e 74 5d 2c 0a ith-tickcount],.
b7a0: 2b 09 5b 75 73 65 20 47 65 74 54 69 63 6b 43 6f +.[use GetTickCo
b7b0: 75 6e 74 20 66 6f 72 20 74 69 6d 65 72 73 2c 20 unt for timers,
b7c0: 74 75 72 6e 73 20 6f 66 66 20 54 49 50 20 23 32 turns off TIP #2
b7d0: 33 33 5d 29 2c 0a 2b 20 20 20 20 5b 74 63 6c 5f 33]),.+ [tcl_
b7e0: 6f 6b 3d 24 77 69 74 68 76 61 6c 5d 2c 20 5b 74 ok=$withval], [t
b7f0: 63 6c 5f 6f 6b 3d 6e 6f 5d 29 0a 2b 41 43 5f 4d cl_ok=no]).+AC_M
b800: 53 47 5f 52 45 53 55 4c 54 28 5b 24 74 63 6c 5f SG_RESULT([$tcl_
b810: 6f 6b 5d 29 0a 2b 69 66 20 74 65 73 74 20 24 74 ok]).+if test $t
b820: 63 6c 5f 6f 6b 20 3d 20 79 65 73 3b 20 74 68 65 cl_ok = yes; the
b830: 6e 0a 2b 20 20 20 20 41 43 5f 44 45 46 49 4e 45 n.+ AC_DEFINE
b840: 28 57 49 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 (WIN32_USE_TICKC
b850: 4f 55 4e 54 2c 20 31 2c 20 5b 55 73 65 20 47 65 OUNT, 1, [Use Ge
b860: 74 54 69 63 6b 43 6f 75 6e 74 20 66 6f 72 20 74 tTickCount for t
b870: 69 6d 65 72 73 3f 5d 29 0a 2b 66 69 0a 20 0a 20 imers?]).+fi. .
b880: 41 43 5f 43 48 45 43 4b 5f 54 59 50 45 28 5b 69 AC_CHECK_TYPE([i
b890: 6e 74 70 74 72 5f 74 5d 2c 20 5b 0a 20 20 20 20 ntptr_t], [.
b8a0: 20 41 43 5f 44 45 46 49 4e 45 28 5b 48 41 56 45 AC_DEFINE([HAVE
b8b0: 5f 49 4e 54 50 54 52 5f 54 5d 2c 20 31 2c 20 5b _INTPTR_T], 1, [
b8c0: 44 6f 20 77 65 20 68 61 76 65 20 74 68 65 20 69 Do we have the i
b8d0: 6e 74 70 74 72 5f 74 20 74 79 70 65 3f 5d 29 5d ntptr_t type?])]
b8e0: 2c 20 5b 0a 20 20 20 20 20 41 43 5f 43 41 43 48 , [. AC_CACH
b8f0: 45 5f 43 48 45 43 4b 28 5b 66 6f 72 20 70 6f 69 E_CHECK([for poi
b900: 6e 74 65 72 2d 73 69 7a 65 20 73 69 67 6e 65 64 nter-size signed
b910: 20 69 6e 74 65 67 65 72 20 74 79 70 65 5d 2c 20 integer type],
b920: 74 63 6c 5f 63 76 5f 69 6e 74 70 74 72 5f 74 2c tcl_cv_intptr_t,
b930: 20 5b 0a 20 20 20 20 20 66 6f 72 20 74 63 6c 5f [. for tcl_
b940: 63 76 5f 69 6e 74 70 74 72 5f 74 20 69 6e 20 22 cv_intptr_t in "
b950: 69 6e 74 22 20 22 6c 6f 6e 67 22 20 22 6c 6f 6e int" "long" "lon
b960: 67 20 6c 6f 6e 67 22 20 6e 6f 6e 65 3b 20 64 6f g long" none; do
b970: 0a 0a 49 6e 64 65 78 3a 20 77 69 6e 2f 74 63 6c ..Index: win/tcl
b980: 57 69 6e 49 6e 69 74 2e 63 0a 3d 3d 3d 3d 3d 3d WinInit.c.======
b990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b9a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b9b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
b9c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d ============.---
b9d0: 20 77 69 6e 2f 74 63 6c 57 69 6e 49 6e 69 74 2e win/tclWinInit.
b9e0: 63 0a 2b 2b 2b 20 77 69 6e 2f 74 63 6c 57 69 6e c.+++ win/tclWin
b9f0: 49 6e 69 74 2e 63 0a 40 40 20 2d 31 31 31 2c 31 Init.c.@@ -111,1
ba00: 30 20 2b 31 31 31 2c 31 39 20 40 40 0a 20 73 74 0 +111,19 @@. st
ba10: 61 74 69 63 20 50 72 6f 63 65 73 73 47 6c 6f 62 atic ProcessGlob
ba20: 61 6c 56 61 6c 75 65 20 73 6f 75 72 63 65 4c 69 alValue sourceLi
ba30: 62 72 61 72 79 44 69 72 20 3d 0a 20 09 7b 30 2c braryDir =. .{0,
ba40: 20 30 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 0, NULL, NULL,
ba50: 49 6e 69 74 69 61 6c 69 7a 65 53 6f 75 72 63 65 InitializeSource
ba60: 4c 69 62 72 61 72 79 44 69 72 2c 20 4e 55 4c 4c LibraryDir, NULL
ba70: 2c 20 4e 55 4c 4c 7d 3b 0a 20 0a 20 73 74 61 74 , NULL};. . stat
ba80: 69 63 20 76 6f 69 64 09 09 41 70 70 65 6e 64 45 ic void..AppendE
ba90: 6e 76 69 72 6f 6e 6d 65 6e 74 28 54 63 6c 5f 4f nvironment(Tcl_O
baa0: 62 6a 20 2a 6c 69 73 74 50 74 72 2c 20 63 6f 6e bj *listPtr, con
bab0: 73 74 20 63 68 61 72 20 2a 6c 69 62 29 3b 0a 20 st char *lib);.
bac0: 73 74 61 74 69 63 20 69 6e 74 09 09 54 6f 55 74 static int..ToUt
bad0: 66 28 63 6f 6e 73 74 20 57 43 48 41 52 20 2a 77 f(const WCHAR *w
bae0: 53 72 63 2c 20 63 68 61 72 20 2a 64 73 74 29 3b Src, char *dst);
baf0: 0a 2b 0a 2b 23 69 66 64 65 66 20 57 49 4e 33 32 .+.+#ifdef WIN32
bb00: 5f 55 53 45 5f 54 49 43 4b 43 4f 55 4e 54 0a 2b _USE_TICKCOUNT.+
bb10: 74 79 70 65 64 65 66 20 55 4c 4f 4e 47 4c 4f 4e typedef ULONGLON
bb20: 47 20 57 49 4e 41 50 49 20 28 47 65 74 54 69 63 G WINAPI (GetTic
bb30: 6b 43 6f 75 6e 74 36 34 50 72 6f 63 29 28 76 6f kCount64Proc)(vo
bb40: 69 64 29 3b 0a 2b 73 74 61 74 69 63 20 47 65 74 id);.+static Get
bb50: 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 6f 63 20 TickCount64Proc
bb60: 2a 47 65 74 54 69 63 6b 43 6f 75 6e 74 36 34 50 *GetTickCount64P
bb70: 72 6f 63 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b rocPtr = NULL;.+
bb80: 73 74 61 74 69 63 20 43 52 49 54 49 43 41 4c 5f static CRITICAL_
bb90: 53 45 43 54 49 4f 4e 20 54 69 63 6b 4d 75 74 65 SECTION TickMute
bba0: 78 3b 0a 2b 73 74 61 74 69 63 20 44 57 4f 52 44 x;.+static DWORD
bbb0: 20 54 69 63 6b 4f 66 66 73 65 74 2c 20 4c 61 73 TickOffset, Las
bbc0: 74 54 69 63 6b 3b 0a 2b 73 74 61 74 69 63 20 55 tTick;.+static U
bbd0: 4c 4f 4e 47 4c 4f 4e 47 20 54 69 63 6b 55 70 70 LONGLONG TickUpp
bbe0: 65 72 3b 0a 2b 23 65 6e 64 69 66 0a 2b 0a 20 0c er;.+#endif.+. .
bbf0: 0a 20 2f 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d . /*. *--------
bc00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bc10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bc20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bc30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bc40: 2d 2d 2d 0a 20 20 2a 0a 20 20 2a 20 54 63 6c 70 ---. *. * Tclp
bc50: 49 6e 69 74 50 6c 61 74 66 6f 72 6d 20 2d 2d 0a InitPlatform --.
bc60: 40 40 20 2d 31 34 35 2c 31 30 20 2b 31 35 34 2c @@ -145,10 +154,
bc70: 33 33 20 40 40 0a 20 20 20 20 20 2f 2a 0a 20 20 33 @@. /*.
bc80: 20 20 20 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 * Initialize
bc90: 20 74 68 65 20 77 69 6e 73 6f 63 6b 20 6c 69 62 the winsock lib
bca0: 72 61 72 79 2e 20 4f 6e 20 57 69 6e 64 6f 77 73 rary. On Windows
bcb0: 20 58 50 20 61 6e 64 20 68 69 67 68 65 72 20 74 XP and higher t
bcc0: 68 69 73 0a 20 20 20 20 20 20 2a 20 63 61 6e 20 his. * can
bcd0: 6e 65 76 65 72 20 66 61 69 6c 2e 0a 20 20 20 20 never fail..
bce0: 20 20 2a 2f 0a 20 20 20 20 20 57 53 41 53 74 61 */. WSASta
bcf0: 72 74 75 70 28 77 56 65 72 73 69 6f 6e 52 65 71 rtup(wVersionReq
bd00: 75 65 73 74 65 64 2c 20 26 77 73 61 44 61 74 61 uested, &wsaData
bd10: 29 3b 0a 2b 0a 2b 23 69 66 64 65 66 20 57 49 4e );.+.+#ifdef WIN
bd20: 33 32 5f 55 53 45 5f 54 49 43 4b 43 4f 55 4e 54 32_USE_TICKCOUNT
bd30: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
bd40: 20 43 68 65 63 6b 20 66 6f 72 20 61 76 61 69 6c Check for avail
bd50: 61 62 69 6c 69 74 79 20 6f 66 20 74 68 65 20 47 ability of the G
bd60: 65 74 54 69 63 6b 43 6f 75 6e 74 36 34 28 29 20 etTickCount64()
bd70: 41 50 49 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a API..+ */.+.
bd80: 2b 20 20 20 20 68 61 6e 64 6c 65 20 3d 20 47 65 + handle = Ge
bd90: 74 4d 6f 64 75 6c 65 48 61 6e 64 6c 65 28 54 45 tModuleHandle(TE
bda0: 58 54 28 22 4b 45 52 4e 45 4c 33 32 22 29 29 3b XT("KERNEL32"));
bdb0: 0a 2b 20 20 20 20 69 66 20 28 68 61 6e 64 6c 65 .+ if (handle
bdc0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 2b 09 47 65 != NULL) {.+.Ge
bdd0: 74 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 6f 63 tTickCount64Proc
bde0: 50 74 72 20 3d 20 28 47 65 74 54 69 63 6b 43 6f Ptr = (GetTickCo
bdf0: 75 6e 74 36 34 50 72 6f 63 20 2a 29 0a 2b 09 09 unt64Proc *).+..
be00: 47 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 68 GetProcAddress(h
be10: 61 6e 64 6c 65 2c 20 22 47 65 74 54 69 63 6b 43 andle, "GetTickC
be20: 6f 75 6e 74 36 34 22 29 3b 0a 2b 20 20 20 20 7d ount64");.+ }
be30: 0a 2b 0a 2b 20 20 20 20 49 6e 69 74 69 61 6c 69 .+.+ Initiali
be40: 7a 65 43 72 69 74 69 63 61 6c 53 65 63 74 69 6f zeCriticalSectio
be50: 6e 28 26 54 69 63 6b 4d 75 74 65 78 29 3b 0a 2b n(&TickMutex);.+
be60: 0a 2b 20 20 20 20 2f 2a 0a 2b 20 20 20 20 20 2a .+ /*.+ *
be70: 20 46 6f 72 63 65 20 61 20 77 72 61 70 20 61 72 Force a wrap ar
be80: 6f 75 6e 64 20 77 69 74 68 69 6e 20 74 68 65 20 ound within the
be90: 66 69 72 73 74 20 66 65 77 20 73 65 63 6f 6e 64 first few second
bea0: 73 20 77 68 65 6e 0a 2b 20 20 20 20 20 2a 20 77 s when.+ * w
beb0: 65 20 6e 65 65 64 20 74 6f 20 66 61 6c 6c 20 62 e need to fall b
bec0: 61 63 6b 20 74 6f 20 47 65 74 54 69 63 6b 43 6f ack to GetTickCo
bed0: 75 6e 74 28 29 2c 20 65 2e 67 2e 20 6f 6e 20 58 unt(), e.g. on X
bee0: 50 2e 0a 2b 20 20 20 20 20 2a 2f 0a 2b 0a 2b 20 P..+ */.+.+
bef0: 20 20 20 54 69 63 6b 4f 66 66 73 65 74 20 3d 20 TickOffset =
bf00: 30 78 66 66 66 66 65 30 30 30 20 2d 20 47 65 74 0xffffe000 - Get
bf10: 54 69 63 6b 43 6f 75 6e 74 28 29 3b 0a 2b 20 20 TickCount();.+
bf20: 20 20 4c 61 73 74 54 69 63 6b 20 3d 20 54 69 63 LastTick = Tic
bf30: 6b 4f 66 66 73 65 74 3b 0a 2b 20 20 20 20 54 69 kOffset;.+ Ti
bf40: 63 6b 55 70 70 65 72 20 3d 20 30 3b 0a 2b 23 65 ckUpper = 0;.+#e
bf50: 6e 64 69 66 0a 20 0a 20 23 69 66 64 65 66 20 53 ndif. . #ifdef S
bf60: 54 41 54 49 43 5f 42 55 49 4c 44 0a 20 20 20 20 TATIC_BUILD.
bf70: 20 2f 2a 0a 20 20 20 20 20 20 2a 20 49 66 20 77 /*. * If w
bf80: 65 20 61 72 65 20 69 6e 20 61 20 73 74 61 74 69 e are in a stati
bf90: 63 61 6c 6c 79 20 6c 69 6e 6b 65 64 20 65 78 65 cally linked exe
bfa0: 63 75 74 61 62 6c 65 2c 20 74 68 65 6e 20 77 65 cutable, then we
bfb0: 20 6e 65 65 64 20 74 6f 20 65 78 70 6c 69 63 69 need to explici
bfc0: 74 6c 79 0a 20 20 20 20 20 20 2a 20 69 6e 69 74 tly. * init
bfd0: 69 61 6c 69 7a 65 20 74 68 65 20 57 69 6e 64 6f ialize the Windo
bfe0: 77 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 62 6c ws function tabl
bff0: 65 73 20 68 65 72 65 20 73 69 6e 63 65 20 44 6c es here since Dl
c000: 6c 4d 61 69 6e 28 29 20 77 69 6c 6c 20 6e 6f 74 lMain() will not
c010: 20 62 65 0a 40 40 20 2d 37 32 31 2c 31 33 20 2b be.@@ -721,13 +
c020: 37 35 33 2c 36 32 20 40 40 0a 20 20 20 64 6f 6e 753,62 @@. don
c030: 65 3a 0a 20 20 20 20 20 54 63 6c 5f 44 53 74 72 e:. Tcl_DStr
c040: 69 6e 67 46 72 65 65 28 26 65 6e 76 53 74 72 69 ingFree(&envStri
c050: 6e 67 29 3b 0a 20 20 20 20 20 63 6b 66 72 65 65 ng);. ckfree
c060: 28 6e 61 6d 65 55 70 70 65 72 29 3b 0a 20 20 20 (nameUpper);.
c070: 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b return result;
c080: 0a 20 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d 2d . }.+..+/*.+ *--
c090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0d0: 2d 2d 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 54 63 6c ----.+ *.+ * Tcl
c0e0: 70 47 65 74 4d 6f 6e 6f 6e 6f 74 69 63 54 69 6d pGetMononoticTim
c0f0: 65 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 09 4c 69 6b e --.+ *.+ *.Lik
c100: 65 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 29 20 e Tcl_GetTime()
c110: 62 75 74 20 72 65 74 75 72 6e 20 61 20 6d 6f 6e but return a mon
c120: 6f 74 6f 6e 69 63 20 63 6c 6f 63 6b 20 73 6f 75 otonic clock sou
c130: 72 63 65 2c 0a 2b 20 2a 09 69 66 20 70 6f 73 73 rce,.+ *.if poss
c140: 69 62 6c 65 2e 20 4f 74 68 65 72 77 69 73 65 20 ible. Otherwise
c150: 66 61 6c 6c 20 62 61 63 6b 20 74 6f 20 72 65 61 fall back to rea
c160: 6c 20 28 77 61 6c 6c 20 63 6c 6f 63 6b 29 20 74 l (wall clock) t
c170: 69 6d 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 52 65 73 ime..+ *.+ * Res
c180: 75 6c 74 73 3a 0a 2b 20 2a 09 31 20 69 66 20 6d ults:.+ *.1 if m
c190: 6f 6e 6f 74 6f 6e 69 63 2c 20 30 20 6f 74 68 65 onotonic, 0 othe
c1a0: 72 77 69 73 65 2e 0a 2b 20 2a 0a 2b 20 2a 20 53 rwise..+ *.+ * S
c1b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 2a ide effects:.+ *
c1c0: 09 4e 6f 6e 65 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d .None..+ *.+ *--
c1d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c1e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c1f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c210: 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b 69 6e 74 ----.+ */.+.+int
c220: 0a 2b 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 6f 6e .+TclpGetMonoton
c230: 69 63 54 69 6d 65 28 54 63 6c 5f 54 69 6d 65 20 icTime(Tcl_Time
c240: 2a 74 69 6d 65 50 74 72 29 0a 2b 7b 0a 2b 23 69 *timePtr).+{.+#i
c250: 66 64 65 66 20 57 49 4e 33 32 5f 55 53 45 5f 54 fdef WIN32_USE_T
c260: 49 43 4b 43 4f 55 4e 54 0a 2b 20 20 20 20 55 4c ICKCOUNT.+ UL
c270: 4f 4e 47 4c 4f 4e 47 20 6d 73 3b 0a 2b 20 20 20 ONGLONG ms;.+
c280: 20 44 57 4f 52 44 20 74 69 63 6b 3b 0a 2b 0a 2b DWORD tick;.+.+
c290: 20 20 20 20 69 66 20 28 47 65 74 54 69 63 6b 43 if (GetTickC
c2a0: 6f 75 6e 74 36 34 50 72 6f 63 50 74 72 20 21 3d ount64ProcPtr !=
c2b0: 20 4e 55 4c 4c 29 20 7b 0a 2b 09 6d 73 20 3d 20 NULL) {.+.ms =
c2c0: 47 65 74 54 69 63 6b 43 6f 75 6e 74 36 34 50 72 GetTickCount64Pr
c2d0: 6f 63 50 74 72 28 29 3b 0a 2b 20 20 20 20 7d 20 ocPtr();.+ }
c2e0: 65 6c 73 65 20 7b 0a 2b 09 2f 2a 0a 2b 09 20 2a else {.+./*.+. *
c2f0: 20 45 6d 75 6c 61 74 65 20 36 34 20 62 69 74 20 Emulate 64 bit
c300: 77 69 64 65 20 74 69 63 6b 20 63 6f 75 6e 74 65 wide tick counte
c310: 72 2c 20 65 2e 67 2e 20 6f 6e 20 58 50 2e 0a 2b r, e.g. on XP..+
c320: 09 20 2a 2f 0a 2b 0a 2b 09 45 6e 74 65 72 43 72 . */.+.+.EnterCr
c330: 69 74 69 63 61 6c 53 65 63 74 69 6f 6e 28 26 54 iticalSection(&T
c340: 69 63 6b 4d 75 74 65 78 29 3b 0a 2b 09 74 69 63 ickMutex);.+.tic
c350: 6b 20 3d 20 47 65 74 54 69 63 6b 43 6f 75 6e 74 k = GetTickCount
c360: 28 29 20 2b 20 54 69 63 6b 4f 66 66 73 65 74 3b () + TickOffset;
c370: 0a 2b 09 69 66 20 28 28 4c 61 73 74 54 69 63 6b .+.if ((LastTick
c380: 20 26 20 30 78 38 30 30 30 30 30 30 30 29 20 26 & 0x80000000) &
c390: 26 20 21 28 74 69 63 6b 20 26 20 30 78 38 30 30 & !(tick & 0x800
c3a0: 30 30 30 30 30 29 29 20 7b 0a 2b 09 20 20 20 20 00000)) {.+.
c3b0: 54 69 63 6b 55 70 70 65 72 20 2b 3d 20 30 78 31 TickUpper += 0x1
c3c0: 30 30 30 30 30 30 30 30 55 4c 4c 3b 0a 2b 09 7d 00000000ULL;.+.}
c3d0: 0a 2b 09 4c 61 73 74 54 69 63 6b 20 3d 20 74 69 .+.LastTick = ti
c3e0: 63 6b 3b 0a 2b 09 6d 73 20 3d 20 54 69 63 6b 55 ck;.+.ms = TickU
c3f0: 70 70 65 72 20 7c 20 4c 61 73 74 54 69 63 6b 3b pper | LastTick;
c400: 0a 2b 09 4c 65 61 76 65 43 72 69 74 69 63 61 6c .+.LeaveCritical
c410: 53 65 63 74 69 6f 6e 28 26 54 69 63 6b 4d 75 74 Section(&TickMut
c420: 65 78 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 ex);.+ }.+
c430: 20 74 69 6d 65 50 74 72 2d 3e 73 65 63 20 3d 20 timePtr->sec =
c440: 28 6c 6f 6e 67 29 28 6d 73 2f 31 30 30 30 29 3b (long)(ms/1000);
c450: 0a 2b 20 20 20 20 74 69 6d 65 50 74 72 2d 3e 75 .+ timePtr->u
c460: 73 65 63 20 3d 20 28 28 6c 6f 6e 67 29 28 6d 73 sec = ((long)(ms
c470: 25 31 30 30 30 29 29 2a 31 30 30 30 3b 0a 2b 20 %1000))*1000;.+
c480: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 2b 23 65 return 1;.+#e
c490: 6c 73 65 0a 2b 20 20 20 20 54 63 6c 5f 47 65 74 lse.+ Tcl_Get
c4a0: 54 69 6d 65 28 74 69 6d 65 50 74 72 29 3b 0a 2b Time(timePtr);.+
c4b0: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 2b 23 return 0;.+#
c4c0: 65 6e 64 69 66 0a 2b 7d 0a 20 0c 0a 20 2f 2a 0a endif.+}. .. /*.
c4d0: 20 20 2a 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 * Local Variab
c4e0: 6c 65 73 3a 0a 20 20 2a 20 6d 6f 64 65 3a 20 63 les:. * mode: c
c4f0: 0a 20 20 2a 20 63 2d 62 61 73 69 63 2d 6f 66 66 . * c-basic-off
c500: 73 65 74 3a 20 34 0a 20 20 2a 20 66 69 6c 6c 2d set: 4. * fill-
c510: 63 6f 6c 75 6d 6e 3a 20 37 38 0a 20 20 2a 20 45 column: 78. * E
c520: 6e 64 3a 0a 20 20 2a 2f 0a 0a 49 6e 64 65 78 3a nd:. */..Index:
c530: 20 77 69 6e 2f 74 63 6c 57 69 6e 4e 6f 74 69 66 win/tclWinNotif
c540: 79 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d y.c.============
c550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
c560: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
c570: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
c580: 3d 3d 3d 3d 3d 3d 0a 2d 2d 2d 20 77 69 6e 2f 74 ======.--- win/t
c590: 63 6c 57 69 6e 4e 6f 74 69 66 79 2e 63 0a 2b 2b clWinNotify.c.++
c5a0: 2b 20 77 69 6e 2f 74 63 6c 57 69 6e 4e 6f 74 69 + win/tclWinNoti
c5b0: 66 79 2e 63 0a 40 40 20 2d 34 35 38 2c 31 30 20 fy.c.@@ -458,10
c5c0: 2b 34 35 38 2c 31 33 20 40 40 0a 20 09 20 20 20 +458,13 @@. .
c5d0: 20 69 66 20 28 6d 79 54 69 6d 65 2e 73 65 63 20 if (myTime.sec
c5e0: 21 3d 20 30 20 7c 7c 20 6d 79 54 69 6d 65 2e 75 != 0 || myTime.u
c5f0: 73 65 63 20 21 3d 20 30 29 20 7b 0a 20 09 09 74 sec != 0) {. ..t
c600: 63 6c 53 63 61 6c 65 54 69 6d 65 50 72 6f 63 50 clScaleTimeProcP
c610: 74 72 28 26 6d 79 54 69 6d 65 2c 20 74 63 6c 54 tr(&myTime, tclT
c620: 69 6d 65 43 6c 69 65 6e 74 44 61 74 61 29 3b 0a imeClientData);.
c630: 20 09 20 20 20 20 7d 0a 20 0a 20 09 20 20 20 20 . }. . .
c640: 74 69 6d 65 6f 75 74 20 3d 20 6d 79 54 69 6d 65 timeout = myTime
c650: 2e 73 65 63 20 2a 20 31 30 30 30 20 2b 20 6d 79 .sec * 1000 + my
c660: 54 69 6d 65 2e 75 73 65 63 20 2f 20 31 30 30 30 Time.usec / 1000
c670: 3b 0a 2b 09 20 20 20 20 69 66 20 28 74 69 6d 65 ;.+. if (time
c680: 6f 75 74 20 3d 3d 20 49 4e 46 49 4e 49 54 45 29 out == INFINITE)
c690: 20 7b 0a 2b 09 09 74 69 6d 65 6f 75 74 2d 2d 3b {.+..timeout--;
c6a0: 0a 2b 09 20 20 20 20 7d 20 0a 20 09 7d 20 65 6c .+. } . .} el
c6b0: 73 65 20 7b 0a 20 09 20 20 20 20 74 69 6d 65 6f se {. . timeo
c6c0: 75 74 20 3d 20 49 4e 46 49 4e 49 54 45 3b 0a 20 ut = INFINITE;.
c6d0: 09 7d 0a 20 0a 20 09 2f 2a 0a 40 40 20 2d 35 36 .}. . ./*.@@ -56
c6e0: 35 2c 31 31 20 2b 35 36 38 2c 31 31 20 40 40 0a 5,11 +568,11 @@.
c6f0: 20 20 20 20 20 44 57 4f 52 44 20 73 6c 65 65 70 DWORD sleep
c700: 54 69 6d 65 3b 09 09 2f 2a 20 54 69 6d 65 20 74 Time;../* Time t
c710: 6f 20 73 6c 65 65 70 2c 20 72 65 61 6c 2d 74 69 o sleep, real-ti
c720: 6d 65 20 2a 2f 0a 20 0a 20 20 20 20 20 76 64 65 me */. . vde
c730: 6c 61 79 2e 73 65 63 20 20 3d 20 6d 73 20 2f 20 lay.sec = ms /
c740: 31 30 30 30 3b 0a 20 20 20 20 20 76 64 65 6c 61 1000;. vdela
c750: 79 2e 75 73 65 63 20 3d 20 28 6d 73 20 25 20 31 y.usec = (ms % 1
c760: 30 30 30 29 20 2a 20 31 30 30 30 3b 0a 20 0a 2d 000) * 1000;. .-
c770: 20 20 20 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 Tcl_GetTime(
c780: 26 6e 6f 77 29 3b 0a 2b 20 20 20 20 54 63 6c 70 &now);.+ Tclp
c790: 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 GetMonotonicTime
c7a0: 28 26 6e 6f 77 29 3b 0a 20 20 20 20 20 64 65 73 (&now);. des
c7b0: 69 72 65 64 2e 73 65 63 20 20 3d 20 6e 6f 77 2e ired.sec = now.
c7c0: 73 65 63 20 20 2b 20 76 64 65 6c 61 79 2e 73 65 sec + vdelay.se
c7d0: 63 3b 0a 20 20 20 20 20 64 65 73 69 72 65 64 2e c;. desired.
c7e0: 75 73 65 63 20 3d 20 6e 6f 77 2e 75 73 65 63 20 usec = now.usec
c7f0: 2b 20 76 64 65 6c 61 79 2e 75 73 65 63 3b 0a 20 + vdelay.usec;.
c800: 20 20 20 20 69 66 20 28 64 65 73 69 72 65 64 2e if (desired.
c810: 75 73 65 63 20 3e 20 31 30 30 30 30 30 30 29 20 usec > 1000000)
c820: 7b 0a 20 09 2b 2b 64 65 73 69 72 65 64 2e 73 65 {. .++desired.se
c830: 63 3b 0a 20 09 64 65 73 69 72 65 64 2e 75 73 65 c;. .desired.use
c840: 63 20 2d 3d 20 31 30 30 30 30 30 30 3b 0a 40 40 c -= 1000000;.@@
c850: 20 2d 35 37 39 2c 31 34 20 2b 35 38 32 2c 31 37 -579,14 +582,17
c860: 20 40 40 0a 20 20 20 20 20 20 2a 20 54 49 50 20 @@. * TIP
c870: 23 32 33 33 3a 20 53 63 61 6c 65 20 64 65 6c 61 #233: Scale dela
c880: 79 20 66 72 6f 6d 20 76 69 72 74 75 61 6c 20 74 y from virtual t
c890: 6f 20 72 65 61 6c 2d 74 69 6d 65 2e 0a 20 20 20 o real-time..
c8a0: 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 74 63 6c */. . tcl
c8b0: 53 63 61 6c 65 54 69 6d 65 50 72 6f 63 50 74 72 ScaleTimeProcPtr
c8c0: 28 26 76 64 65 6c 61 79 2c 20 74 63 6c 54 69 6d (&vdelay, tclTim
c8d0: 65 43 6c 69 65 6e 74 44 61 74 61 29 3b 0a 20 20 eClientData);.
c8e0: 20 20 20 73 6c 65 65 70 54 69 6d 65 20 3d 20 76 sleepTime = v
c8f0: 64 65 6c 61 79 2e 73 65 63 20 2a 20 31 30 30 30 delay.sec * 1000
c900: 20 2b 20 76 64 65 6c 61 79 2e 75 73 65 63 20 2f + vdelay.usec /
c910: 20 31 30 30 30 3b 0a 2b 20 20 20 20 69 66 20 28 1000;.+ if (
c920: 73 6c 65 65 70 54 69 6d 65 20 3d 3d 20 49 4e 46 sleepTime == INF
c930: 49 4e 49 54 45 29 20 7b 0a 2b 09 2d 2d 73 6c 65 INITE) {.+.--sle
c940: 65 70 54 69 6d 65 3b 0a 2b 20 20 20 20 7d 0a 20 epTime;.+ }.
c950: 0a 20 20 20 20 20 66 6f 72 20 28 3b 3b 29 20 7b . for (;;) {
c960: 0a 20 09 53 6c 65 65 70 45 78 28 73 6c 65 65 70 . .SleepEx(sleep
c970: 54 69 6d 65 2c 20 54 52 55 45 29 3b 0a 2d 09 54 Time, TRUE);.-.T
c980: 63 6c 5f 47 65 74 54 69 6d 65 28 26 6e 6f 77 29 cl_GetTime(&now)
c990: 3b 0a 2b 09 54 63 6c 70 47 65 74 4d 6f 6e 6f 74 ;.+.TclpGetMonot
c9a0: 6f 6e 69 63 54 69 6d 65 28 26 6e 6f 77 29 3b 0a onicTime(&now);.
c9b0: 20 09 69 66 20 28 6e 6f 77 2e 73 65 63 20 3e 20 .if (now.sec >
c9c0: 64 65 73 69 72 65 64 2e 73 65 63 29 20 7b 0a 20 desired.sec) {.
c9d0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 7d 20 . break;. .}
c9e0: 65 6c 73 65 20 69 66 20 28 28 6e 6f 77 2e 73 65 else if ((now.se
c9f0: 63 20 3d 3d 20 64 65 73 69 72 65 64 2e 73 65 63 c == desired.sec
ca00: 29 20 26 26 20 28 6e 6f 77 2e 75 73 65 63 20 3e ) && (now.usec >
ca10: 3d 20 64 65 73 69 72 65 64 2e 75 73 65 63 29 29 = desired.usec))
ca20: 20 7b 0a 20 09 20 20 20 20 62 72 65 61 6b 3b 0a {. . break;.
ca30: 20 09 7d 0a 40 40 20 2d 35 39 34 2c 31 30 20 2b .}.@@ -594,10 +
ca40: 36 30 30 2c 31 33 20 40 40 0a 20 09 76 64 65 6c 600,13 @@. .vdel
ca50: 61 79 2e 73 65 63 20 20 3d 20 64 65 73 69 72 65 ay.sec = desire
ca60: 64 2e 73 65 63 20 20 2d 20 6e 6f 77 2e 73 65 63 d.sec - now.sec
ca70: 3b 0a 20 09 76 64 65 6c 61 79 2e 75 73 65 63 20 ;. .vdelay.usec
ca80: 3d 20 64 65 73 69 72 65 64 2e 75 73 65 63 20 2d = desired.usec -
ca90: 20 6e 6f 77 2e 75 73 65 63 3b 0a 20 0a 20 09 74 now.usec;. . .t
caa0: 63 6c 53 63 61 6c 65 54 69 6d 65 50 72 6f 63 50 clScaleTimeProcP
cab0: 74 72 28 26 76 64 65 6c 61 79 2c 20 74 63 6c 54 tr(&vdelay, tclT
cac0: 69 6d 65 43 6c 69 65 6e 74 44 61 74 61 29 3b 0a imeClientData);.
cad0: 20 09 73 6c 65 65 70 54 69 6d 65 20 3d 20 76 64 .sleepTime = vd
cae0: 65 6c 61 79 2e 73 65 63 20 2a 20 31 30 30 30 20 elay.sec * 1000
caf0: 2b 20 76 64 65 6c 61 79 2e 75 73 65 63 20 2f 20 + vdelay.usec /
cb00: 31 30 30 30 3b 0a 2b 09 69 66 20 28 73 6c 65 65 1000;.+.if (slee
cb10: 70 54 69 6d 65 20 3d 3d 20 49 4e 46 49 4e 49 54 pTime == INFINIT
cb20: 45 29 20 7b 0a 2b 09 20 20 20 20 2d 2d 73 6c 65 E) {.+. --sle
cb30: 65 70 54 69 6d 65 3b 0a 2b 09 7d 0a 20 20 20 20 epTime;.+.}.
cb40: 20 7d 0a 20 7d 0a 20 0c 0a 20 2f 2a 0a 20 20 2a }. }. .. /*. *
cb50: 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 Local Variables
cb60: 3a 0a 0a 49 6e 64 65 78 3a 20 77 69 6e 2f 74 63 :..Index: win/tc
cb70: 6c 57 69 6e 53 65 72 69 61 6c 2e 63 0a 3d 3d 3d lWinSerial.c.===
cb80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cb90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cba0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cbb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
cbc0: 2d 2d 2d 20 77 69 6e 2f 74 63 6c 57 69 6e 53 65 --- win/tclWinSe
cbd0: 72 69 61 6c 2e 63 0a 2b 2b 2b 20 77 69 6e 2f 74 rial.c.+++ win/t
cbe0: 63 6c 57 69 6e 53 65 72 69 61 6c 2e 63 0a 40 40 clWinSerial.c.@@
cbf0: 20 2d 33 36 37 2c 31 31 20 2b 33 36 37 2c 31 31 -367,11 +367,11
cc00: 20 40 40 0a 20 73 74 61 74 69 63 20 75 6e 73 69 @@. static unsi
cc10: 67 6e 65 64 20 69 6e 74 0a 20 53 65 72 69 61 6c gned int. Serial
cc20: 47 65 74 4d 69 6c 6c 69 73 65 63 6f 6e 64 73 28 GetMilliseconds(
cc30: 76 6f 69 64 29 0a 20 7b 0a 20 20 20 20 20 54 63 void). {. Tc
cc40: 6c 5f 54 69 6d 65 20 74 69 6d 65 3b 0a 20 0a 2d l_Time time;. .-
cc50: 20 20 20 20 54 63 6c 5f 47 65 74 54 69 6d 65 28 Tcl_GetTime(
cc60: 26 74 69 6d 65 29 3b 0a 2b 20 20 20 20 54 63 6c &time);.+ Tcl
cc70: 70 47 65 74 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d pGetMonotonicTim
cc80: 65 28 26 74 69 6d 65 29 3b 0a 20 0a 20 20 20 20 e(&time);. .
cc90: 20 72 65 74 75 72 6e 20 28 74 69 6d 65 2e 73 65 return (time.se
cca0: 63 20 2a 20 31 30 30 30 20 2b 20 74 69 6d 65 2e c * 1000 + time.
ccb0: 75 73 65 63 20 2f 20 31 30 30 30 29 3b 0a 20 7d usec / 1000);. }
ccc0: 0a 20 0c 0a 20 2f 2a 0a 40 40 20 2d 31 34 32 39 . .. /*.@@ -1429
ccd0: 2c 31 31 20 2b 31 34 32 39 2c 31 31 20 40 40 0a ,11 +1429,11 @@.
cce0: 20 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 63 68 infoPtr->ch
ccf0: 61 6e 6e 65 6c 20 3d 20 28 54 63 6c 5f 43 68 61 annel = (Tcl_Cha
cd00: 6e 6e 65 6c 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 nnel) NULL;.
cd10: 20 69 6e 66 6f 50 74 72 2d 3e 72 65 61 64 61 62 infoPtr->readab
cd20: 6c 65 20 3d 20 30 3b 0a 20 20 20 20 20 69 6e 66 le = 0;. inf
cd30: 6f 50 74 72 2d 3e 77 72 69 74 61 62 6c 65 20 3d oPtr->writable =
cd40: 20 31 3b 0a 20 20 20 20 20 69 6e 66 6f 50 74 72 1;. infoPtr
cd50: 2d 3e 74 6f 57 72 69 74 65 20 3d 20 69 6e 66 6f ->toWrite = info
cd60: 50 74 72 2d 3e 77 72 69 74 65 51 75 65 75 65 20 Ptr->writeQueue
cd70: 3d 20 30 3b 0a 20 20 20 20 20 69 6e 66 6f 50 74 = 0;. infoPt
cd80: 72 2d 3e 62 6c 6f 63 6b 54 69 6d 65 20 3d 20 53 r->blockTime = S
cd90: 45 52 49 41 4c 5f 44 45 46 41 55 4c 54 5f 42 4c ERIAL_DEFAULT_BL
cda0: 4f 43 4b 54 49 4d 45 3b 0a 2d 20 20 20 20 69 6e OCKTIME;.- in
cdb0: 66 6f 50 74 72 2d 3e 6c 61 73 74 45 76 65 6e 74 foPtr->lastEvent
cdc0: 54 69 6d 65 20 3d 20 30 3b 0a 2b 20 20 20 20 69 Time = 0;.+ i
cdd0: 6e 66 6f 50 74 72 2d 3e 6c 61 73 74 45 76 65 6e nfoPtr->lastEven
cde0: 74 54 69 6d 65 20 3d 20 53 65 72 69 61 6c 47 65 tTime = SerialGe
cdf0: 74 4d 69 6c 6c 69 73 65 63 6f 6e 64 73 28 29 3b tMilliseconds();
ce00: 0a 20 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 6c . infoPtr->l
ce10: 61 73 74 45 72 72 6f 72 20 3d 20 69 6e 66 6f 50 astError = infoP
ce20: 74 72 2d 3e 65 72 72 6f 72 20 3d 20 30 3b 0a 20 tr->error = 0;.
ce30: 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 74 68 72 infoPtr->thr
ce40: 65 61 64 49 64 20 3d 20 54 63 6c 5f 47 65 74 43 eadId = Tcl_GetC
ce50: 75 72 72 65 6e 74 54 68 72 65 61 64 28 29 3b 0a urrentThread();.
ce60: 20 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 73 79 infoPtr->sy
ce70: 73 42 75 66 52 65 61 64 20 3d 20 34 30 39 36 3b sBufRead = 4096;
ce80: 0a 20 20 20 20 20 69 6e 66 6f 50 74 72 2d 3e 73 . infoPtr->s
ce90: 79 73 42 75 66 57 72 69 74 65 20 3d 20 34 30 39 ysBufWrite = 409
cea0: 36 3b 0a 20 0a 0a 49 6e 64 65 78 3a 20 77 69 6e 6;. ..Index: win
ceb0: 2f 74 63 6c 57 69 6e 54 69 6d 65 2e 63 0a 3d 3d /tclWinTime.c.==
cec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
ced0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
cf00: 0a 2d 2d 2d 20 77 69 6e 2f 74 63 6c 57 69 6e 54 .--- win/tclWinT
cf10: 69 6d 65 2e 63 0a 2b 2b 2b 20 77 69 6e 2f 74 63 ime.c.+++ win/tc
cf20: 6c 57 69 6e 54 69 6d 65 2e 63 0a 40 40 20 2d 31 lWinTime.c.@@ -1
cf30: 31 33 34 2c 31 33 20 2b 31 31 33 34 2c 31 35 20 134,13 +1134,15
cf40: 40 40 0a 20 54 63 6c 5f 53 65 74 54 69 6d 65 50 @@. Tcl_SetTimeP
cf50: 72 6f 63 28 0a 20 20 20 20 20 54 63 6c 5f 47 65 roc(. Tcl_Ge
cf60: 74 54 69 6d 65 50 72 6f 63 20 2a 67 65 74 50 72 tTimeProc *getPr
cf70: 6f 63 2c 0a 20 20 20 20 20 54 63 6c 5f 53 63 61 oc,. Tcl_Sca
cf80: 6c 65 54 69 6d 65 50 72 6f 63 20 2a 73 63 61 6c leTimeProc *scal
cf90: 65 50 72 6f 63 2c 0a 20 20 20 20 20 43 6c 69 65 eProc,. Clie
cfa0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
cfb0: 61 29 0a 20 7b 0a 2b 23 69 66 6e 64 65 66 20 57 a). {.+#ifndef W
cfc0: 49 4e 33 32 5f 55 53 45 5f 54 49 43 4b 43 4f 55 IN32_USE_TICKCOU
cfd0: 4e 54 0a 20 20 20 20 20 74 63 6c 47 65 74 54 69 NT. tclGetTi
cfe0: 6d 65 50 72 6f 63 50 74 72 20 3d 20 67 65 74 50 meProcPtr = getP
cff0: 72 6f 63 3b 0a 20 20 20 20 20 74 63 6c 53 63 61 roc;. tclSca
d000: 6c 65 54 69 6d 65 50 72 6f 63 50 74 72 20 3d 20 leTimeProcPtr =
d010: 73 63 61 6c 65 50 72 6f 63 3b 0a 20 20 20 20 20 scaleProc;.
d020: 74 63 6c 54 69 6d 65 43 6c 69 65 6e 74 44 61 74 tclTimeClientDat
d030: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a a = clientData;.
d040: 2b 23 65 6e 64 69 66 0a 20 7d 0a 20 0c 0a 20 2f +#endif. }. .. /
d050: 2a 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
d060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a -----------. *.
d0a0: 0a .
