Attachment "tcl-stubs-modulescope.diff" to
ticket [1819422fff]
added by
das
2008-04-03 04:40:38.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 2e 64 65 63 6c 73 0a 3d 3d 3d 3d 3d 3d 3d cl.decls.=======
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
0060: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
0070: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
0080: 74 63 6c 2e 64 65 63 6c 73 2c 76 0a 72 65 74 72 tcl.decls,v.retr
0090: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
00a0: 31 2e 31 33 31 0a 64 69 66 66 20 2d 75 20 2d 70 1.131.diff -u -p
00b0: 20 2d 72 31 2e 31 33 31 20 74 63 6c 2e 64 65 63 -r1.131 tcl.dec
00c0: 6c 73 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 ls.--- generic/t
00d0: 63 6c 2e 64 65 63 6c 73 09 31 39 20 4d 61 72 20 cl.decls.19 Mar
00e0: 32 30 30 38 20 31 36 3a 35 36 3a 31 33 20 2d 30 2008 16:56:13 -0
00f0: 30 30 30 09 31 2e 31 33 31 0a 2b 2b 2b 20 67 65 000.1.131.+++ ge
0100: 6e 65 72 69 63 2f 74 63 6c 2e 64 65 63 6c 73 09 neric/tcl.decls.
0110: 32 20 41 70 72 20 32 30 30 38 20 31 37 3a 30 32 2 Apr 2008 17:02
0120: 3a 32 32 20 2d 30 30 30 30 0a 40 40 20 2d 32 31 :22 -0000.@@ -21
0130: 34 39 2c 33 35 20 2b 32 31 34 39 2c 39 20 40 40 49,35 +2149,9 @@
0140: 20 65 78 70 6f 72 74 20 7b 0a 20 20 20 20 20 76 export {. v
0150: 6f 69 64 20 54 63 6c 5f 4d 61 69 6e 28 69 6e 74 oid Tcl_Main(int
0160: 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 argc, char **ar
0170: 67 76 2c 20 54 63 6c 5f 41 70 70 49 6e 69 74 50 gv, Tcl_AppInitP
0180: 72 6f 63 20 2a 61 70 70 49 6e 69 74 50 72 6f 63 roc *appInitProc
0190: 29 0a 20 7d 0a 20 65 78 70 6f 72 74 20 7b 0a 2d ). }. export {.-
01a0: 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a CONST char *
01b0: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 54 63 Tcl_InitStubs(Tc
01c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
01d0: 2c 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 76 65 , CONST char *ve
01e0: 72 73 69 6f 6e 2c 0a 2d 09 69 6e 74 20 65 78 61 rsion,.-.int exa
01f0: 63 74 29 0a 2d 7d 0a 2d 65 78 70 6f 72 74 20 7b ct).-}.-export {
0200: 0a 2d 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 .- CONST char
0210: 20 2a 54 63 6c 54 6f 6d 4d 61 74 68 49 6e 69 74 *TclTomMathInit
0220: 69 61 6c 69 7a 65 53 74 75 62 73 28 54 63 6c 5f ializeStubs(Tcl_
0230: 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 2c 0a Interp* interp,.
0240: 2d 09 43 4f 4e 53 54 20 63 68 61 72 2a 20 76 65 -.CONST char* ve
0250: 72 73 69 6f 6e 2c 20 69 6e 74 20 65 70 6f 63 68 rsion, int epoch
0260: 2c 20 69 6e 74 20 72 65 76 69 73 69 6f 6e 29 0a , int revision).
0270: 2d 7d 0a 2d 65 78 70 6f 72 74 20 7b 0a 20 20 20 -}.-export {.
0280: 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 54 63 CONST char *Tc
0290: 6c 5f 50 6b 67 49 6e 69 74 53 74 75 62 73 43 68 l_PkgInitStubsCh
02a0: 65 63 6b 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a eck(Tcl_Interp *
02b0: 69 6e 74 65 72 70 2c 20 43 4f 4e 53 54 20 63 68 interp, CONST ch
02c0: 61 72 20 2a 76 65 72 73 69 6f 6e 2c 0a 20 09 69 ar *version,. .i
02d0: 6e 74 20 65 78 61 63 74 29 0a 20 7d 0a 20 65 78 nt exact). }. ex
02e0: 70 6f 72 74 20 7b 0a 20 20 20 20 20 76 6f 69 64 port {. void
02f0: 20 54 63 6c 5f 47 65 74 4d 65 6d 6f 72 79 49 6e Tcl_GetMemoryIn
0300: 66 6f 28 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a fo(Tcl_DString *
0310: 64 73 50 74 72 29 0a 20 7d 0a 2d 0a 2d 23 20 47 dsPtr). }.-.-# G
0320: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 lobal variables
0330: 74 68 61 74 20 6e 65 65 64 20 74 6f 20 62 65 20 that need to be
0340: 65 78 70 6f 72 74 65 64 20 66 72 6f 6d 20 74 68 exported from th
0350: 65 20 74 63 6c 20 73 68 61 72 65 64 20 6c 69 62 e tcl shared lib
0360: 72 61 72 79 2e 0a 2d 0a 2d 65 78 70 6f 72 74 20 rary..-.-export
0370: 7b 0a 2d 20 20 20 20 54 63 6c 53 74 75 62 73 20 {.- TclStubs
0380: 2a 74 63 6c 53 74 75 62 73 50 74 72 20 20 20 20 *tclStubsPtr
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03a0: 20 20 20 28 66 6f 6f 6c 20 63 68 65 63 6b 73 74 (fool checkst
03b0: 75 62 73 29 0a 2d 7d 0a 2d 65 78 70 6f 72 74 20 ubs).-}.-export
03c0: 7b 0a 2d 20 20 20 20 54 63 6c 50 6c 61 74 53 74 {.- TclPlatSt
03d0: 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 75 62 ubs *tclPlatStub
03e0: 73 50 74 72 20 20 20 20 20 20 20 20 20 20 20 20 sPtr
03f0: 20 20 20 28 66 6f 6f 6c 20 63 68 65 63 6b 73 74 (fool checkst
0400: 75 62 73 29 0a 2d 7d 0a 2d 65 78 70 6f 72 74 20 ubs).-}.-export
0410: 7b 0a 2d 20 20 20 20 54 63 6c 49 6e 74 53 74 75 {.- TclIntStu
0420: 62 73 20 2a 74 63 6c 49 6e 74 53 74 75 62 73 50 bs *tclIntStubsP
0430: 74 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tr
0440: 20 20 20 28 66 6f 6f 6c 20 63 68 65 63 6b 73 74 (fool checkst
0450: 75 62 73 29 0a 2d 7d 0a 2d 65 78 70 6f 72 74 20 ubs).-}.-export
0460: 7b 0a 2d 20 20 20 20 54 63 6c 49 6e 74 50 6c 61 {.- TclIntPla
0470: 74 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 6c tStubs *tclIntPl
0480: 61 74 53 74 75 62 73 50 74 72 20 20 20 20 20 20 atStubsPtr
0490: 20 20 20 28 66 6f 6f 6c 20 63 68 65 63 6b 73 74 (fool checkst
04a0: 75 62 73 29 0a 2d 7d 0a 2d 65 78 70 6f 72 74 20 ubs).-}.-export
04b0: 7b 0a 2d 20 20 20 20 54 63 6c 54 6f 6d 4d 61 74 {.- TclTomMat
04c0: 68 53 74 75 62 73 2a 20 74 63 6c 54 6f 6d 4d 61 hStubs* tclTomMa
04d0: 74 68 53 74 75 62 73 50 74 72 20 20 20 20 20 20 thStubsPtr
04e0: 20 20 20 28 66 6f 6f 6c 20 63 68 65 63 6b 73 74 (fool checkst
04f0: 75 62 73 29 0a 2d 7d 0a 49 6e 64 65 78 3a 20 67 ubs).-}.Index: g
0500: 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c 73 2e eneric/tclDecls.
0510: 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d h.==============
0520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0550: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0560: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0570: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c /generic/tclDecl
0580: 73 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 s.h,v.retrieving
0590: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 33 31 0a revision 1.131.
05a0: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 31 diff -u -p -r1.1
05b0: 33 31 20 74 63 6c 44 65 63 6c 73 2e 68 0a 2d 2d 31 tclDecls.h.--
05c0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 - generic/tclDec
05d0: 6c 73 2e 68 09 31 20 41 70 72 20 32 30 30 38 20 ls.h.1 Apr 2008
05e0: 31 36 3a 32 33 3a 34 30 20 2d 30 30 30 30 09 31 16:23:40 -0000.1
05f0: 2e 31 33 31 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 .131.+++ generic
0600: 2f 74 63 6c 44 65 63 6c 73 2e 68 09 32 20 41 70 /tclDecls.h.2 Ap
0610: 72 20 32 30 30 38 20 31 37 3a 30 32 3a 32 33 20 r 2008 17:02:23
0620: 2d 30 30 30 30 0a 40 40 20 2d 33 35 30 33 2c 31 -0000.@@ -3503,1
0630: 34 20 2b 33 35 30 33 2c 31 34 20 40 40 20 45 58 4 +3503,14 @@ EX
0640: 54 45 52 4e 20 76 6f 69 64 09 09 54 63 6c 5f 41 TERN void..Tcl_A
0650: 70 70 65 6e 64 50 72 69 6e 74 66 54 6f 4f 62 6a ppendPrintfToObj
0660: 20 28 54 63 6c 5f 0a 20 23 65 6e 64 69 66 0a 20 (Tcl_. #endif.
0670: 0a 20 74 79 70 65 64 65 66 20 73 74 72 75 63 74 . typedef struct
0680: 20 54 63 6c 53 74 75 62 48 6f 6f 6b 73 20 7b 0a TclStubHooks {.
0690: 2d 20 20 20 20 73 74 72 75 63 74 20 54 63 6c 50 - struct TclP
06a0: 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 50 6c 61 latStubs *tclPla
06b0: 74 53 74 75 62 73 3b 0a 2d 20 20 20 20 73 74 72 tStubs;.- str
06c0: 75 63 74 20 54 63 6c 49 6e 74 53 74 75 62 73 20 uct TclIntStubs
06d0: 2a 74 63 6c 49 6e 74 53 74 75 62 73 3b 0a 2d 20 *tclIntStubs;.-
06e0: 20 20 20 73 74 72 75 63 74 20 54 63 6c 49 6e 74 struct TclInt
06f0: 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 49 6e PlatStubs *tclIn
0700: 74 50 6c 61 74 53 74 75 62 73 3b 0a 2b 20 20 20 tPlatStubs;.+
0710: 20 43 4f 4e 53 54 20 73 74 72 75 63 74 20 54 63 CONST struct Tc
0720: 6c 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 50 lPlatStubs *tclP
0730: 6c 61 74 53 74 75 62 73 3b 0a 2b 20 20 20 20 43 latStubs;.+ C
0740: 4f 4e 53 54 20 73 74 72 75 63 74 20 54 63 6c 49 ONST struct TclI
0750: 6e 74 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 53 ntStubs *tclIntS
0760: 74 75 62 73 3b 0a 2b 20 20 20 20 43 4f 4e 53 54 tubs;.+ CONST
0770: 20 73 74 72 75 63 74 20 54 63 6c 49 6e 74 50 6c struct TclIntPl
0780: 61 74 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 atStubs *tclIntP
0790: 6c 61 74 53 74 75 62 73 3b 0a 20 7d 20 54 63 6c latStubs;. } Tcl
07a0: 53 74 75 62 48 6f 6f 6b 73 3b 0a 20 0a 20 74 79 StubHooks;. . ty
07b0: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c pedef struct Tcl
07c0: 53 74 75 62 73 20 7b 0a 20 20 20 20 20 69 6e 74 Stubs {. int
07d0: 20 6d 61 67 69 63 3b 0a 2d 20 20 20 20 73 74 72 magic;.- str
07e0: 75 63 74 20 54 63 6c 53 74 75 62 48 6f 6f 6b 73 uct TclStubHooks
07f0: 20 2a 68 6f 6f 6b 73 3b 0a 2b 20 20 20 20 43 4f *hooks;.+ CO
0800: 4e 53 54 20 73 74 72 75 63 74 20 54 63 6c 53 74 NST struct TclSt
0810: 75 62 48 6f 6f 6b 73 20 2a 68 6f 6f 6b 73 3b 0a ubHooks *hooks;.
0820: 20 0a 20 20 20 20 20 69 6e 74 20 28 2a 74 63 6c . int (*tcl
0830: 5f 50 6b 67 50 72 6f 76 69 64 65 45 78 29 20 28 _PkgProvideEx) (
0840: 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 Tcl_Interp* inte
0850: 72 70 2c 20 43 4f 4e 53 54 20 63 68 61 72 2a 20 rp, CONST char*
0860: 6e 61 6d 65 2c 20 43 4f 4e 53 54 20 63 68 61 72 name, CONST char
0870: 2a 20 76 65 72 73 69 6f 6e 2c 20 43 6c 69 65 6e * version, Clien
0880: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0890: 29 3b 20 2f 2a 20 30 20 2a 2f 0a 20 20 20 20 20 ); /* 0 */.
08a0: 43 4f 4e 53 54 38 34 5f 52 45 54 55 52 4e 20 63 CONST84_RETURN c
08b0: 68 61 72 20 2a 20 28 2a 74 63 6c 5f 50 6b 67 52 har * (*tcl_PkgR
08c0: 65 71 75 69 72 65 45 78 29 20 28 54 63 6c 5f 49 equireEx) (Tcl_I
08d0: 6e 74 65 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 nterp * interp,
08e0: 43 4f 4e 53 54 20 63 68 61 72 20 2a 20 6e 61 6d CONST char * nam
08f0: 65 2c 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 20 e, CONST char *
0900: 76 65 72 73 69 6f 6e 2c 20 69 6e 74 20 65 78 61 version, int exa
0910: 63 74 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 2a ct, ClientData *
0920: 20 63 6c 69 65 6e 74 44 61 74 61 50 74 72 29 3b clientDataPtr);
0930: 20 2f 2a 20 31 20 2a 2f 0a 40 40 20 2d 34 31 34 /* 1 */.@@ -414
0940: 33 2c 31 35 20 2b 34 31 34 33 2c 37 20 40 40 20 3,15 +4143,7 @@
0950: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54 typedef struct T
0960: 63 6c 53 74 75 62 73 20 7b 0a 20 7d 20 54 63 6c clStubs {. } Tcl
0970: 53 74 75 62 73 3b 0a 20 0a 20 23 69 66 20 64 65 Stubs;. . #if de
0980: 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 fined(USE_TCL_ST
0990: 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 UBS) && !defined
09a0: 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 (USE_TCL_STUB_PR
09b0: 4f 43 53 29 0a 2d 0a 2d 23 69 66 64 65 66 20 5f OCS).-.-#ifdef _
09c0: 5f 63 70 6c 75 73 70 6c 75 73 0a 2d 65 78 74 65 _cplusplus.-exte
09d0: 72 6e 20 22 43 22 20 7b 0a 2d 23 65 6e 64 69 66 rn "C" {.-#endif
09e0: 0a 2d 65 78 74 65 72 6e 20 54 63 6c 53 74 75 62 .-extern TclStub
09f0: 73 20 2a 74 63 6c 53 74 75 62 73 50 74 72 3b 0a s *tclStubsPtr;.
0a00: 2d 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 -#ifdef __cplusp
0a10: 6c 75 73 0a 2d 7d 0a 2d 23 65 6e 64 69 66 0a 2d lus.-}.-#endif.-
0a20: 0a 2b 45 58 54 45 52 4e 20 43 4f 4e 53 54 20 54 .+EXTERN CONST T
0a30: 63 6c 53 74 75 62 73 20 2a 74 63 6c 53 74 75 62 clStubs *tclStub
0a40: 73 50 74 72 3b 0a 20 23 65 6e 64 69 66 20 2f 2a sPtr;. #endif /*
0a50: 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c defined(USE_TCL
0a60: 5f 53 54 55 42 53 29 20 26 26 20 21 64 65 66 69 _STUBS) && !defi
0a70: 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 ned(USE_TCL_STUB
0a80: 5f 50 52 4f 43 53 29 20 2a 2f 0a 20 0a 20 23 69 _PROCS) */. . #i
0a90: 66 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 f defined(USE_TC
0aa0: 4c 5f 53 54 55 42 53 29 20 26 26 20 21 64 65 66 L_STUBS) && !def
0ab0: 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 ined(USE_TCL_STU
0ac0: 42 5f 50 52 4f 43 53 29 0a 49 6e 64 65 78 3a 20 B_PROCS).Index:
0ad0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 44 65 generic/tclIntDe
0ae0: 63 6c 73 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d cls.h.==========
0af0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0b20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
0b30: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
0b40: 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c /tcl/generic/tcl
0b50: 49 6e 74 44 65 63 6c 73 2e 68 2c 76 0a 72 65 74 IntDecls.h,v.ret
0b60: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
0b70: 20 31 2e 31 31 33 0a 64 69 66 66 20 2d 75 20 2d 1.113.diff -u -
0b80: 70 20 2d 72 31 2e 31 31 33 20 74 63 6c 49 6e 74 p -r1.113 tclInt
0b90: 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 67 65 6e 65 Decls.h.--- gene
0ba0: 72 69 63 2f 74 63 6c 49 6e 74 44 65 63 6c 73 2e ric/tclIntDecls.
0bb0: 68 09 31 20 41 70 72 20 32 30 30 38 20 31 36 3a h.1 Apr 2008 16:
0bc0: 32 33 3a 34 31 20 2d 30 30 30 30 09 31 2e 31 31 23:41 -0000.1.11
0bd0: 33 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 3.+++ generic/tc
0be0: 6c 49 6e 74 44 65 63 6c 73 2e 68 09 32 20 41 70 lIntDecls.h.2 Ap
0bf0: 72 20 32 30 30 38 20 31 37 3a 30 32 3a 32 36 20 r 2008 17:02:26
0c00: 2d 30 30 30 30 0a 40 40 20 2d 31 30 37 39 2c 37 -0000.@@ -1079,7
0c10: 20 2b 31 30 37 39 2c 37 20 40 40 20 45 58 54 45 +1079,7 @@ EXTE
0c20: 52 4e 20 76 6f 69 64 09 09 54 63 6c 42 61 63 6b RN void..TclBack
0c30: 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f 6e 20 groundException
0c40: 28 54 63 6c 0a 20 0a 20 74 79 70 65 64 65 66 20 (Tcl. . typedef
0c50: 73 74 72 75 63 74 20 54 63 6c 49 6e 74 53 74 75 struct TclIntStu
0c60: 62 73 20 7b 0a 20 20 20 20 20 69 6e 74 20 6d 61 bs {. int ma
0c70: 67 69 63 3b 0a 2d 20 20 20 20 73 74 72 75 63 74 gic;.- struct
0c80: 20 54 63 6c 49 6e 74 53 74 75 62 48 6f 6f 6b 73 TclIntStubHooks
0c90: 20 2a 68 6f 6f 6b 73 3b 0a 2b 20 20 20 20 43 4f *hooks;.+ CO
0ca0: 4e 53 54 20 73 74 72 75 63 74 20 54 63 6c 49 6e NST struct TclIn
0cb0: 74 53 74 75 62 48 6f 6f 6b 73 20 2a 68 6f 6f 6b tStubHooks *hook
0cc0: 73 3b 0a 20 0a 20 20 20 20 20 76 6f 69 64 20 2a s;. . void *
0cd0: 72 65 73 65 72 76 65 64 30 3b 0a 20 20 20 20 20 reserved0;.
0ce0: 76 6f 69 64 20 2a 72 65 73 65 72 76 65 64 31 3b void *reserved1;
0cf0: 0a 40 40 20 2d 31 33 34 35 2c 31 35 20 2b 31 33 .@@ -1345,15 +13
0d00: 34 35 2c 37 20 40 40 20 74 79 70 65 64 65 66 20 45,7 @@ typedef
0d10: 73 74 72 75 63 74 20 54 63 6c 49 6e 74 53 74 75 struct TclIntStu
0d20: 62 73 20 7b 0a 20 7d 20 54 63 6c 49 6e 74 53 74 bs {. } TclIntSt
0d30: 75 62 73 3b 0a 20 0a 20 23 69 66 20 64 65 66 69 ubs;. . #if defi
0d40: 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 ned(USE_TCL_STUB
0d50: 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 S) && !defined(U
0d60: 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 SE_TCL_STUB_PROC
0d70: 53 29 0a 2d 0a 2d 23 69 66 64 65 66 20 5f 5f 63 S).-.-#ifdef __c
0d80: 70 6c 75 73 70 6c 75 73 0a 2d 65 78 74 65 72 6e plusplus.-extern
0d90: 20 22 43 22 20 7b 0a 2d 23 65 6e 64 69 66 0a 2d "C" {.-#endif.-
0da0: 65 78 74 65 72 6e 20 54 63 6c 49 6e 74 53 74 75 extern TclIntStu
0db0: 62 73 20 2a 74 63 6c 49 6e 74 53 74 75 62 73 50 bs *tclIntStubsP
0dc0: 74 72 3b 0a 2d 23 69 66 64 65 66 20 5f 5f 63 70 tr;.-#ifdef __cp
0dd0: 6c 75 73 70 6c 75 73 0a 2d 7d 0a 2d 23 65 6e 64 lusplus.-}.-#end
0de0: 69 66 0a 2d 0a 2b 45 58 54 45 52 4e 20 43 4f 4e if.-.+EXTERN CON
0df0: 53 54 20 54 63 6c 49 6e 74 53 74 75 62 73 20 2a ST TclIntStubs *
0e00: 74 63 6c 49 6e 74 53 74 75 62 73 50 74 72 3b 0a tclIntStubsPtr;.
0e10: 20 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e #endif /* defin
0e20: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
0e30: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
0e40: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
0e50: 29 20 2a 2f 0a 20 0a 20 23 69 66 20 64 65 66 69 ) */. . #if defi
0e60: 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 ned(USE_TCL_STUB
0e70: 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 S) && !defined(U
0e80: 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 SE_TCL_STUB_PROC
0e90: 53 29 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 S).Index: generi
0ea0: 63 2f 74 63 6c 49 6e 74 50 6c 61 74 44 65 63 6c c/tclIntPlatDecl
0eb0: 73 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d s.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 0a 52 43 53 20 66 69 6c 65 =======.RCS file
0f00: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
0f10: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e cl/generic/tclIn
0f20: 74 50 6c 61 74 44 65 63 6c 73 2e 68 2c 76 0a 72 tPlatDecls.h,v.r
0f30: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
0f40: 6f 6e 20 31 2e 33 33 0a 64 69 66 66 20 2d 75 20 on 1.33.diff -u
0f50: 2d 70 20 2d 72 31 2e 33 33 20 74 63 6c 49 6e 74 -p -r1.33 tclInt
0f60: 50 6c 61 74 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 PlatDecls.h.---
0f70: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c generic/tclIntPl
0f80: 61 74 44 65 63 6c 73 2e 68 09 31 20 41 70 72 20 atDecls.h.1 Apr
0f90: 32 30 30 38 20 31 36 3a 32 33 3a 34 31 20 2d 30 2008 16:23:41 -0
0fa0: 30 30 30 09 31 2e 33 33 0a 2b 2b 2b 20 67 65 6e 000.1.33.+++ gen
0fb0: 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c 61 74 44 eric/tclIntPlatD
0fc0: 65 63 6c 73 2e 68 09 32 20 41 70 72 20 32 30 30 ecls.h.2 Apr 200
0fd0: 38 20 31 37 3a 30 32 3a 32 36 20 2d 30 30 30 30 8 17:02:26 -0000
0fe0: 0a 40 40 20 2d 33 37 32 2c 37 20 2b 33 37 32 2c .@@ -372,7 +372,
0ff0: 37 20 40 40 20 45 58 54 45 52 4e 20 69 6e 74 09 7 @@ EXTERN int.
1000: 09 54 63 6c 4d 61 63 4f 53 58 4d 61 74 63 68 54 .TclMacOSXMatchT
1010: 79 70 65 20 28 54 63 6c 5f 49 6e 74 65 0a 20 0a ype (Tcl_Inte. .
1020: 20 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 typedef struct
1030: 54 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 73 20 TclIntPlatStubs
1040: 7b 0a 20 20 20 20 20 69 6e 74 20 6d 61 67 69 63 {. int magic
1050: 3b 0a 2d 20 20 20 20 73 74 72 75 63 74 20 54 63 ;.- struct Tc
1060: 6c 49 6e 74 50 6c 61 74 53 74 75 62 48 6f 6f 6b lIntPlatStubHook
1070: 73 20 2a 68 6f 6f 6b 73 3b 0a 2b 20 20 20 20 43 s *hooks;.+ C
1080: 4f 4e 53 54 20 73 74 72 75 63 74 20 54 63 6c 49 ONST struct TclI
1090: 6e 74 50 6c 61 74 53 74 75 62 48 6f 6f 6b 73 20 ntPlatStubHooks
10a0: 2a 68 6f 6f 6b 73 3b 0a 20 0a 20 23 69 66 20 21 *hooks;. . #if !
10b0: 64 65 66 69 6e 65 64 28 5f 5f 57 49 4e 33 32 5f defined(__WIN32_
10c0: 5f 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4d _) && !defined(M
10d0: 41 43 5f 4f 53 58 5f 54 43 4c 29 20 2f 2a 20 55 AC_OSX_TCL) /* U
10e0: 4e 49 58 20 2a 2f 0a 20 20 20 20 20 76 6f 69 64 NIX */. void
10f0: 20 28 2a 74 63 6c 47 65 74 41 6e 64 44 65 74 61 (*tclGetAndDeta
1100: 63 68 50 69 64 73 29 20 28 54 63 6c 5f 49 6e 74 chPids) (Tcl_Int
1110: 65 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 54 63 erp * interp, Tc
1120: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 29 3b l_Channel chan);
1130: 20 2f 2a 20 30 20 2a 2f 0a 40 40 20 2d 34 34 37 /* 0 */.@@ -447
1140: 2c 31 35 20 2b 34 34 37 2c 37 20 40 40 20 74 79 ,15 +447,7 @@ ty
1150: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c pedef struct Tcl
1160: 49 6e 74 50 6c 61 74 53 74 75 62 73 20 7b 0a 20 IntPlatStubs {.
1170: 7d 20 54 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 } TclIntPlatStub
1180: 73 3b 0a 20 0a 20 23 69 66 20 64 65 66 69 6e 65 s;. . #if define
1190: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 d(USE_TCL_STUBS)
11a0: 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 && !defined(USE
11b0: 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 _TCL_STUB_PROCS)
11c0: 0a 2d 0a 2d 23 69 66 64 65 66 20 5f 5f 63 70 6c .-.-#ifdef __cpl
11d0: 75 73 70 6c 75 73 0a 2d 65 78 74 65 72 6e 20 22 usplus.-extern "
11e0: 43 22 20 7b 0a 2d 23 65 6e 64 69 66 0a 2d 65 78 C" {.-#endif.-ex
11f0: 74 65 72 6e 20 54 63 6c 49 6e 74 50 6c 61 74 53 tern TclIntPlatS
1200: 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 6c 61 74 tubs *tclIntPlat
1210: 53 74 75 62 73 50 74 72 3b 0a 2d 23 69 66 64 65 StubsPtr;.-#ifde
1220: 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2d 7d f __cplusplus.-}
1230: 0a 2d 23 65 6e 64 69 66 0a 2d 0a 2b 45 58 54 45 .-#endif.-.+EXTE
1240: 52 4e 20 43 4f 4e 53 54 20 54 63 6c 49 6e 74 50 RN CONST TclIntP
1250: 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 latStubs *tclInt
1260: 50 6c 61 74 53 74 75 62 73 50 74 72 3b 0a 20 23 PlatStubsPtr;. #
1270: 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e 65 64 endif /* defined
1280: 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 20 (USE_TCL_STUBS)
1290: 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 5f && !defined(USE_
12a0: 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 20 TCL_STUB_PROCS)
12b0: 2a 2f 0a 20 0a 20 23 69 66 20 64 65 66 69 6e 65 */. . #if define
12c0: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 d(USE_TCL_STUBS)
12d0: 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 && !defined(USE
12e0: 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 _TCL_STUB_PROCS)
12f0: 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f .Index: generic/
1300: 74 63 6c 50 6c 61 74 44 65 63 6c 73 2e 68 0a 3d tclPlatDecls.h.=
1310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1320: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1330: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1340: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1350: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
1360: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 sroot/tcl/tcl/ge
1370: 6e 65 72 69 63 2f 74 63 6c 50 6c 61 74 44 65 63 neric/tclPlatDec
1380: 6c 73 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e ls.h,v.retrievin
1390: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 38 0a g revision 1.28.
13a0: 64 69 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 diff -u -p -r1.2
13b0: 38 20 74 63 6c 50 6c 61 74 44 65 63 6c 73 2e 68 8 tclPlatDecls.h
13c0: 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c .--- generic/tcl
13d0: 50 6c 61 74 44 65 63 6c 73 2e 68 09 31 20 41 70 PlatDecls.h.1 Ap
13e0: 72 20 32 30 30 38 20 31 36 3a 32 33 3a 34 31 20 r 2008 16:23:41
13f0: 2d 30 30 30 30 09 31 2e 32 38 0a 2b 2b 2b 20 67 -0000.1.28.+++ g
1400: 65 6e 65 72 69 63 2f 74 63 6c 50 6c 61 74 44 65 eneric/tclPlatDe
1410: 63 6c 73 2e 68 09 32 20 41 70 72 20 32 30 30 38 cls.h.2 Apr 2008
1420: 20 31 37 3a 30 32 3a 32 37 20 2d 30 30 30 30 0a 17:02:27 -0000.
1430: 40 40 20 2d 38 32 2c 37 20 2b 38 32 2c 37 20 40 @@ -82,7 +82,7 @
1440: 40 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 @ EXTERN int..Tc
1450: 6c 5f 4d 61 63 4f 53 58 4f 70 65 6e 56 65 72 73 l_MacOSXOpenVers
1460: 69 6f 6e 65 64 42 75 6e 64 6c 0a 20 0a 20 74 79 ionedBundl. . ty
1470: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c pedef struct Tcl
1480: 50 6c 61 74 53 74 75 62 73 20 7b 0a 20 20 20 20 PlatStubs {.
1490: 20 69 6e 74 20 6d 61 67 69 63 3b 0a 2d 20 20 20 int magic;.-
14a0: 20 73 74 72 75 63 74 20 54 63 6c 50 6c 61 74 53 struct TclPlatS
14b0: 74 75 62 48 6f 6f 6b 73 20 2a 68 6f 6f 6b 73 3b tubHooks *hooks;
14c0: 0a 2b 20 20 20 20 43 4f 4e 53 54 20 73 74 72 75 .+ CONST stru
14d0: 63 74 20 54 63 6c 50 6c 61 74 53 74 75 62 48 6f ct TclPlatStubHo
14e0: 6f 6b 73 20 2a 68 6f 6f 6b 73 3b 0a 20 0a 20 23 oks *hooks;. . #
14f0: 69 66 64 65 66 20 5f 5f 57 49 4e 33 32 5f 5f 20 ifdef __WIN32__
1500: 2f 2a 20 57 49 4e 20 2a 2f 0a 20 20 20 20 20 54 /* WIN */. T
1510: 43 48 41 52 20 2a 20 28 2a 74 63 6c 5f 57 69 6e CHAR * (*tcl_Win
1520: 55 74 66 54 6f 54 43 68 61 72 29 20 28 43 4f 4e UtfToTChar) (CON
1530: 53 54 20 63 68 61 72 20 2a 20 73 74 72 2c 20 69 ST char * str, i
1540: 6e 74 20 6c 65 6e 2c 20 54 63 6c 5f 44 53 74 72 nt len, Tcl_DStr
1550: 69 6e 67 20 2a 20 64 73 50 74 72 29 3b 20 2f 2a ing * dsPtr); /*
1560: 20 30 20 2a 2f 0a 40 40 20 2d 39 35 2c 31 35 20 0 */.@@ -95,15
1570: 2b 39 35 2c 37 20 40 40 20 74 79 70 65 64 65 66 +95,7 @@ typedef
1580: 20 73 74 72 75 63 74 20 54 63 6c 50 6c 61 74 53 struct TclPlatS
1590: 74 75 62 73 20 7b 0a 20 7d 20 54 63 6c 50 6c 61 tubs {. } TclPla
15a0: 74 53 74 75 62 73 3b 0a 20 0a 20 23 69 66 20 64 tStubs;. . #if d
15b0: 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 efined(USE_TCL_S
15c0: 54 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 TUBS) && !define
15d0: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 d(USE_TCL_STUB_P
15e0: 52 4f 43 53 29 0a 2d 0a 2d 23 69 66 64 65 66 20 ROCS).-.-#ifdef
15f0: 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2d 65 78 74 __cplusplus.-ext
1600: 65 72 6e 20 22 43 22 20 7b 0a 2d 23 65 6e 64 69 ern "C" {.-#endi
1610: 66 0a 2d 65 78 74 65 72 6e 20 54 63 6c 50 6c 61 f.-extern TclPla
1620: 74 53 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 tStubs *tclPlatS
1630: 74 75 62 73 50 74 72 3b 0a 2d 23 69 66 64 65 66 tubsPtr;.-#ifdef
1640: 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2d 7d 0a __cplusplus.-}.
1650: 2d 23 65 6e 64 69 66 0a 2d 0a 2b 45 58 54 45 52 -#endif.-.+EXTER
1660: 4e 20 43 4f 4e 53 54 20 54 63 6c 50 6c 61 74 53 N CONST TclPlatS
1670: 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 75 tubs *tclPlatStu
1680: 62 73 50 74 72 3b 0a 20 23 65 6e 64 69 66 20 2f bsPtr;. #endif /
1690: 2a 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 * defined(USE_TC
16a0: 4c 5f 53 54 55 42 53 29 20 26 26 20 21 64 65 66 L_STUBS) && !def
16b0: 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 ined(USE_TCL_STU
16c0: 42 5f 50 52 4f 43 53 29 20 2a 2f 0a 20 0a 20 23 B_PROCS) */. . #
16d0: 69 66 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 if defined(USE_T
16e0: 43 4c 5f 53 54 55 42 53 29 20 26 26 20 21 64 65 CL_STUBS) && !de
16f0: 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 fined(USE_TCL_ST
1700: 55 42 5f 50 52 4f 43 53 29 0a 49 6e 64 65 78 3a UB_PROCS).Index:
1710: 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 generic/tclStub
1720: 49 6e 69 74 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d Init.c.=========
1730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1740: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1750: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1760: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1770: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1780: 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 l/tcl/generic/tc
1790: 6c 53 74 75 62 49 6e 69 74 2e 63 2c 76 0a 72 65 lStubInit.c,v.re
17a0: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
17b0: 6e 20 31 2e 31 35 30 0a 64 69 66 66 20 2d 75 20 n 1.150.diff -u
17c0: 2d 70 20 2d 72 31 2e 31 35 30 20 74 63 6c 53 74 -p -r1.150 tclSt
17d0: 75 62 49 6e 69 74 2e 63 0a 2d 2d 2d 20 67 65 6e ubInit.c.--- gen
17e0: 65 72 69 63 2f 74 63 6c 53 74 75 62 49 6e 69 74 eric/tclStubInit
17f0: 2e 63 09 32 33 20 4a 61 6e 20 32 30 30 38 20 31 .c.23 Jan 2008 1
1800: 37 3a 33 31 3a 34 32 20 2d 30 30 30 30 09 31 2e 7:31:42 -0000.1.
1810: 31 35 30 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 150.+++ generic/
1820: 74 63 6c 53 74 75 62 49 6e 69 74 2e 63 09 32 20 tclStubInit.c.2
1830: 41 70 72 20 32 30 30 38 20 31 37 3a 30 32 3a 32 Apr 2008 17:02:2
1840: 37 20 2d 30 30 30 30 0a 40 40 20 2d 34 39 31 2c 7 -0000.@@ -491,
1850: 37 20 2b 34 39 31 2c 37 20 40 40 20 54 63 6c 54 7 +491,7 @@ TclT
1860: 6f 6d 4d 61 74 68 53 74 75 62 73 20 74 63 6c 54 omMathStubs tclT
1870: 6f 6d 4d 61 74 68 53 74 75 62 73 20 3d 20 7b 0a omMathStubs = {.
1880: 20 20 20 20 20 54 63 6c 42 4e 5f 73 5f 6d 70 5f TclBN_s_mp_
1890: 73 75 62 2c 20 2f 2a 20 36 30 20 2a 2f 0a 20 7d sub, /* 60 */. }
18a0: 3b 0a 20 0a 2d 73 74 61 74 69 63 20 54 63 6c 53 ;. .-static TclS
18b0: 74 75 62 48 6f 6f 6b 73 20 74 63 6c 53 74 75 62 tubHooks tclStub
18c0: 48 6f 6f 6b 73 20 3d 20 7b 0a 2b 73 74 61 74 69 Hooks = {.+stati
18d0: 63 20 63 6f 6e 73 74 20 54 63 6c 53 74 75 62 48 c const TclStubH
18e0: 6f 6f 6b 73 20 74 63 6c 53 74 75 62 48 6f 6f 6b ooks tclStubHook
18f0: 73 20 3d 20 7b 0a 20 20 20 20 20 26 74 63 6c 50 s = {. &tclP
1900: 6c 61 74 53 74 75 62 73 2c 0a 20 20 20 20 20 26 latStubs,. &
1910: 74 63 6c 49 6e 74 53 74 75 62 73 2c 0a 20 20 20 tclIntStubs,.
1920: 20 20 26 74 63 6c 49 6e 74 50 6c 61 74 53 74 75 &tclIntPlatStu
1930: 62 73 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 bs.Index: generi
1940: 63 2f 74 63 6c 53 74 75 62 4c 69 62 2e 63 0a 3d c/tclStubLib.c.=
1950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1990: 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 ==.RCS file: /cv
19a0: 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 sroot/tcl/tcl/ge
19b0: 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 4c 69 62 neric/tclStubLib
19c0: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
19d0: 72 65 76 69 73 69 6f 6e 20 31 2e 32 33 0a 64 69 revision 1.23.di
19e0: 66 66 20 2d 75 20 2d 70 20 2d 72 31 2e 32 33 20 ff -u -p -r1.23
19f0: 74 63 6c 53 74 75 62 4c 69 62 2e 63 0a 2d 2d 2d tclStubLib.c.---
1a00: 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 generic/tclStub
1a10: 4c 69 62 2e 63 09 32 20 41 70 72 20 32 30 30 38 Lib.c.2 Apr 2008
1a20: 20 30 33 3a 33 37 3a 33 32 20 2d 30 30 30 30 09 03:37:32 -0000.
1a30: 31 2e 32 33 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 1.23.+++ generic
1a40: 2f 74 63 6c 53 74 75 62 4c 69 62 2e 63 09 32 20 /tclStubLib.c.2
1a50: 41 70 72 20 32 30 30 38 20 31 37 3a 30 32 3a 32 Apr 2008 17:02:2
1a60: 37 20 2d 30 30 30 30 0a 40 40 20 2d 32 34 2c 31 7 -0000.@@ -24,1
1a70: 35 20 2b 32 34 2c 31 37 20 40 40 0a 20 0a 20 23 5 +24,17 @@. . #
1a80: 69 6e 63 6c 75 64 65 20 22 74 63 6c 49 6e 74 2e include "tclInt.
1a90: 68 22 0a 20 0a 2d 2f 2a 0a 2d 20 2a 20 54 63 6c h". .-/*.- * Tcl
1aa0: 5f 49 6e 69 74 53 74 75 62 73 20 61 6e 64 20 73 _InitStubs and s
1ab0: 74 75 62 20 74 61 62 6c 65 20 70 6f 69 6e 74 65 tub table pointe
1ac0: 72 73 20 61 72 65 20 62 75 69 6c 74 20 61 73 20 rs are built as
1ad0: 65 78 70 6f 72 74 65 64 20 73 79 6d 62 6f 6c 73 exported symbols
1ae0: 2e 0a 2d 20 2a 2f 0a 2d 0a 2d 54 63 6c 53 74 75 ..- */.-.-TclStu
1af0: 62 73 20 2a 74 63 6c 53 74 75 62 73 50 74 72 20 bs *tclStubsPtr
1b00: 3d 20 4e 55 4c 4c 3b 0a 2d 54 63 6c 50 6c 61 74 = NULL;.-TclPlat
1b10: 53 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 Stubs *tclPlatSt
1b20: 75 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2d ubsPtr = NULL;.-
1b30: 54 63 6c 49 6e 74 53 74 75 62 73 20 2a 74 63 6c TclIntStubs *tcl
1b40: 49 6e 74 53 74 75 62 73 50 74 72 20 3d 20 4e 55 IntStubsPtr = NU
1b50: 4c 4c 3b 0a 2d 54 63 6c 49 6e 74 50 6c 61 74 53 LL;.-TclIntPlatS
1b60: 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 6c 61 74 tubs *tclIntPlat
1b70: 53 74 75 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b StubsPtr = NULL;
1b80: 0a 2d 54 63 6c 54 6f 6d 4d 61 74 68 53 74 75 62 .-TclTomMathStub
1b90: 73 2a 20 74 63 6c 54 6f 6d 4d 61 74 68 53 74 75 s* tclTomMathStu
1ba0: 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 4d bsPtr = NULL;.+M
1bb0: 4f 44 55 4c 45 5f 53 43 4f 50 45 20 63 6f 6e 73 ODULE_SCOPE cons
1bc0: 74 20 54 63 6c 53 74 75 62 73 20 2a 74 63 6c 53 t TclStubs *tclS
1bd0: 74 75 62 73 50 74 72 3b 0a 2b 4d 4f 44 55 4c 45 tubsPtr;.+MODULE
1be0: 5f 53 43 4f 50 45 20 63 6f 6e 73 74 20 54 63 6c _SCOPE const Tcl
1bf0: 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 50 6c PlatStubs *tclPl
1c00: 61 74 53 74 75 62 73 50 74 72 3b 0a 2b 4d 4f 44 atStubsPtr;.+MOD
1c10: 55 4c 45 5f 53 43 4f 50 45 20 63 6f 6e 73 74 20 ULE_SCOPE const
1c20: 54 63 6c 49 6e 74 53 74 75 62 73 20 2a 74 63 6c TclIntStubs *tcl
1c30: 49 6e 74 53 74 75 62 73 50 74 72 3b 0a 2b 4d 4f IntStubsPtr;.+MO
1c40: 44 55 4c 45 5f 53 43 4f 50 45 20 63 6f 6e 73 74 DULE_SCOPE const
1c50: 20 54 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 73 TclIntPlatStubs
1c60: 20 2a 74 63 6c 49 6e 74 50 6c 61 74 53 74 75 62 *tclIntPlatStub
1c70: 73 50 74 72 3b 0a 2b 4d 4f 44 55 4c 45 5f 53 43 sPtr;.+MODULE_SC
1c80: 4f 50 45 20 63 6f 6e 73 74 20 54 63 6c 54 6f 6d OPE const TclTom
1c90: 4d 61 74 68 53 74 75 62 73 2a 20 74 63 6c 54 6f MathStubs* tclTo
1ca0: 6d 4d 61 74 68 53 74 75 62 73 50 74 72 3b 0a 2b mMathStubsPtr;.+
1cb0: 0a 2b 63 6f 6e 73 74 20 54 63 6c 53 74 75 62 73 .+const TclStubs
1cc0: 20 2a 74 63 6c 53 74 75 62 73 50 74 72 20 3d 20 *tclStubsPtr =
1cd0: 4e 55 4c 4c 3b 0a 2b 63 6f 6e 73 74 20 54 63 6c NULL;.+const Tcl
1ce0: 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 50 6c PlatStubs *tclPl
1cf0: 61 74 53 74 75 62 73 50 74 72 20 3d 20 4e 55 4c atStubsPtr = NUL
1d00: 4c 3b 0a 2b 63 6f 6e 73 74 20 54 63 6c 49 6e 74 L;.+const TclInt
1d10: 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 53 74 75 Stubs *tclIntStu
1d20: 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 2b 63 bsPtr = NULL;.+c
1d30: 6f 6e 73 74 20 54 63 6c 49 6e 74 50 6c 61 74 53 onst TclIntPlatS
1d40: 74 75 62 73 20 2a 74 63 6c 49 6e 74 50 6c 61 74 tubs *tclIntPlat
1d50: 53 74 75 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b StubsPtr = NULL;
1d60: 0a 2b 63 6f 6e 73 74 20 54 63 6c 54 6f 6d 4d 61 .+const TclTomMa
1d70: 74 68 53 74 75 62 73 2a 20 74 63 6c 54 6f 6d 4d thStubs* tclTomM
1d80: 61 74 68 53 74 75 62 73 50 74 72 20 3d 20 4e 55 athStubsPtr = NU
1d90: 4c 4c 3b 0a 20 0a 20 73 74 61 74 69 63 20 54 63 LL;. . static Tc
1da0: 6c 53 74 75 62 73 20 2a 0a 20 48 61 73 53 74 75 lStubs *. HasStu
1db0: 62 53 75 70 70 6f 72 74 28 0a 40 40 20 2d 37 37 bSupport(.@@ -77
1dc0: 2c 37 20 2b 37 39 2c 37 20 40 40 20 73 74 61 74 ,7 +79,7 @@ stat
1dd0: 69 63 20 69 6e 74 20 69 73 44 69 67 69 74 28 63 ic int isDigit(c
1de0: 6f 6e 73 74 20 69 6e 74 20 63 29 0a 20 20 2a 2d onst int c). *-
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 0a 20 20 2a 2f 0a 20 0a 2d 43 4f -----. */. .-CO
1e40: 4e 53 54 20 63 68 61 72 20 2a 0a 2b 4d 4f 44 55 NST char *.+MODU
1e50: 4c 45 5f 53 43 4f 50 45 20 43 4f 4e 53 54 20 63 LE_SCOPE CONST c
1e60: 68 61 72 20 2a 0a 20 54 63 6c 5f 49 6e 69 74 53 har *. Tcl_InitS
1e70: 74 75 62 73 28 0a 20 20 20 20 20 54 63 6c 5f 49 tubs(. Tcl_I
1e80: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
1e90: 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a CONST char *
1ea0: 76 65 72 73 69 6f 6e 2c 0a 40 40 20 2d 31 35 39 version,.@@ -159
1eb0: 2c 37 20 2b 31 36 31 2c 37 20 40 40 20 54 63 6c ,7 +161,7 @@ Tcl
1ec0: 5f 49 6e 69 74 53 74 75 62 73 28 0a 20 20 2a 2d _InitStubs(. *-
1ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f10: 2d 2d 2d 2d 2d 0a 20 20 2a 2f 0a 20 0a 2d 43 4f -----. */. .-CO
1f20: 4e 53 54 20 63 68 61 72 2a 0a 2b 4d 4f 44 55 4c NST char*.+MODUL
1f30: 45 5f 53 43 4f 50 45 20 43 4f 4e 53 54 20 63 68 E_SCOPE CONST ch
1f40: 61 72 2a 0a 20 54 63 6c 54 6f 6d 4d 61 74 68 49 ar*. TclTomMathI
1f50: 6e 69 74 69 61 6c 69 7a 65 53 74 75 62 73 28 0a nitializeStubs(.
1f60: 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 2a Tcl_Interp*
1f70: 20 69 6e 74 65 72 70 2c 09 09 2f 2a 20 54 63 6c interp,../* Tcl
1f80: 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a interpreter */.
1f90: 20 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 2a CONST char*
1fa0: 20 76 65 72 73 69 6f 6e 2c 09 2f 2a 20 54 63 6c version,./* Tcl
1fb0: 20 76 65 72 73 69 6f 6e 20 6e 65 65 64 65 64 20 version needed
1fc0: 2a 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 */.Index: generi
1fd0: 63 2f 74 63 6c 54 6f 6d 4d 61 74 68 44 65 63 6c c/tclTomMathDecl
1fe0: 73 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d s.h.============
1ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2020: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
2030: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
2040: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 54 6f cl/generic/tclTo
2050: 6d 4d 61 74 68 44 65 63 6c 73 2e 68 2c 76 0a 72 mMathDecls.h,v.r
2060: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
2070: 6f 6e 20 31 2e 33 0a 64 69 66 66 20 2d 75 20 2d on 1.3.diff -u -
2080: 70 20 2d 72 31 2e 33 20 74 63 6c 54 6f 6d 4d 61 p -r1.3 tclTomMa
2090: 74 68 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 67 65 thDecls.h.--- ge
20a0: 6e 65 72 69 63 2f 74 63 6c 54 6f 6d 4d 61 74 68 neric/tclTomMath
20b0: 44 65 63 6c 73 2e 68 09 31 20 41 70 72 20 32 30 Decls.h.1 Apr 20
20c0: 30 38 20 31 36 3a 32 33 3a 34 32 20 2d 30 30 30 08 16:23:42 -000
20d0: 30 09 31 2e 33 0a 2b 2b 2b 20 67 65 6e 65 72 69 0.1.3.+++ generi
20e0: 63 2f 74 63 6c 54 6f 6d 4d 61 74 68 44 65 63 6c c/tclTomMathDecl
20f0: 73 2e 68 09 32 20 41 70 72 20 32 30 30 38 20 31 s.h.2 Apr 2008 1
2100: 37 3a 30 32 3a 32 37 20 2d 30 30 30 30 0a 40 40 7:02:27 -0000.@@
2110: 20 2d 34 35 35 2c 37 20 2b 34 35 35 2c 37 20 40 -455,7 +455,7 @
2120: 40 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 @ EXTERN int..Tc
2130: 6c 42 4e 5f 73 5f 6d 70 5f 73 75 62 20 28 6d 70 lBN_s_mp_sub (mp
2140: 5f 69 6e 74 2a 20 61 2c 20 6d 0a 20 0a 20 74 79 _int* a, m. . ty
2150: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c pedef struct Tcl
2160: 54 6f 6d 4d 61 74 68 53 74 75 62 73 20 7b 0a 20 TomMathStubs {.
2170: 20 20 20 20 69 6e 74 20 6d 61 67 69 63 3b 0a 2d int magic;.-
2180: 20 20 20 20 73 74 72 75 63 74 20 54 63 6c 54 6f struct TclTo
2190: 6d 4d 61 74 68 53 74 75 62 48 6f 6f 6b 73 20 2a mMathStubHooks *
21a0: 68 6f 6f 6b 73 3b 0a 2b 20 20 20 20 43 4f 4e 53 hooks;.+ CONS
21b0: 54 20 73 74 72 75 63 74 20 54 63 6c 54 6f 6d 4d T struct TclTomM
21c0: 61 74 68 53 74 75 62 48 6f 6f 6b 73 20 2a 68 6f athStubHooks *ho
21d0: 6f 6b 73 3b 0a 20 0a 20 20 20 20 20 69 6e 74 20 oks;. . int
21e0: 28 2a 74 63 6c 42 4e 5f 65 70 6f 63 68 29 20 28 (*tclBN_epoch) (
21f0: 76 6f 69 64 29 3b 20 2f 2a 20 30 20 2a 2f 0a 20 void); /* 0 */.
2200: 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 42 4e 5f int (*tclBN_
2210: 72 65 76 69 73 69 6f 6e 29 20 28 76 6f 69 64 29 revision) (void)
2220: 3b 20 2f 2a 20 31 20 2a 2f 0a 40 40 20 2d 35 32 ; /* 1 */.@@ -52
2230: 31 2c 31 35 20 2b 35 32 31 2c 37 20 40 40 20 74 1,15 +521,7 @@ t
2240: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54 63 ypedef struct Tc
2250: 6c 54 6f 6d 4d 61 74 68 53 74 75 62 73 20 7b 0a lTomMathStubs {.
2260: 20 7d 20 54 63 6c 54 6f 6d 4d 61 74 68 53 74 75 } TclTomMathStu
2270: 62 73 3b 0a 20 0a 20 23 69 66 20 64 65 66 69 6e bs;. . #if defin
2280: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
2290: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
22a0: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
22b0: 29 0a 2d 0a 2d 23 69 66 64 65 66 20 5f 5f 63 70 ).-.-#ifdef __cp
22c0: 6c 75 73 70 6c 75 73 0a 2d 65 78 74 65 72 6e 20 lusplus.-extern
22d0: 22 43 22 20 7b 0a 2d 23 65 6e 64 69 66 0a 2d 65 "C" {.-#endif.-e
22e0: 78 74 65 72 6e 20 54 63 6c 54 6f 6d 4d 61 74 68 xtern TclTomMath
22f0: 53 74 75 62 73 20 2a 74 63 6c 54 6f 6d 4d 61 74 Stubs *tclTomMat
2300: 68 53 74 75 62 73 50 74 72 3b 0a 2d 23 69 66 64 hStubsPtr;.-#ifd
2310: 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 2d ef __cplusplus.-
2320: 7d 0a 2d 23 65 6e 64 69 66 0a 2d 0a 2b 45 58 54 }.-#endif.-.+EXT
2330: 45 52 4e 20 43 4f 4e 53 54 20 54 63 6c 54 6f 6d ERN CONST TclTom
2340: 4d 61 74 68 53 74 75 62 73 20 2a 74 63 6c 54 6f MathStubs *tclTo
2350: 6d 4d 61 74 68 53 74 75 62 73 50 74 72 3b 0a 20 mMathStubsPtr;.
2360: 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e 65 #endif /* define
2370: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 d(USE_TCL_STUBS)
2380: 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 && !defined(USE
2390: 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 _TCL_STUB_PROCS)
23a0: 20 2a 2f 0a 20 0a 20 23 69 66 20 64 65 66 69 6e */. . #if defin
23b0: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
23c0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
23d0: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
23e0: 29 0a 49 6e 64 65 78 3a 20 74 6f 6f 6c 73 2f 67 ).Index: tools/g
23f0: 65 6e 53 74 75 62 73 2e 74 63 6c 0a 3d 3d 3d 3d enStubs.tcl.====
2400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2420: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
2440: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
2450: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 6f 6f 6c 73 ot/tcl/tcl/tools
2460: 2f 67 65 6e 53 74 75 62 73 2e 74 63 6c 2c 76 0a /genStubs.tcl,v.
2470: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
2480: 69 6f 6e 20 31 2e 32 33 0a 64 69 66 66 20 2d 75 ion 1.23.diff -u
2490: 20 2d 70 20 2d 72 31 2e 32 33 20 67 65 6e 53 74 -p -r1.23 genSt
24a0: 75 62 73 2e 74 63 6c 0a 2d 2d 2d 20 74 6f 6f 6c ubs.tcl.--- tool
24b0: 73 2f 67 65 6e 53 74 75 62 73 2e 74 63 6c 09 31 s/genStubs.tcl.1
24c0: 20 41 70 72 20 32 30 30 38 20 31 36 3a 32 33 3a Apr 2008 16:23:
24d0: 34 32 20 2d 30 30 30 30 09 31 2e 32 33 0a 2b 2b 42 -0000.1.23.++
24e0: 2b 20 74 6f 6f 6c 73 2f 67 65 6e 53 74 75 62 73 + tools/genStubs
24f0: 2e 74 63 6c 09 32 20 41 70 72 20 32 30 30 38 20 .tcl.2 Apr 2008
2500: 31 37 3a 30 32 3a 32 38 20 2d 30 30 30 30 0a 40 17:02:28 -0000.@
2510: 40 20 2d 39 38 34 2c 31 33 20 2b 39 38 34 2c 31 @ -984,13 +984,1
2520: 33 20 40 40 20 70 72 6f 63 20 67 65 6e 53 74 75 3 @@ proc genStu
2530: 62 73 3a 3a 65 6d 69 74 48 65 61 64 65 72 20 7b bs::emitHeader {
2540: 6e 61 6d 65 7d 20 7b 0a 20 09 66 6f 72 65 61 63 name} {. .foreac
2550: 68 20 68 6f 6f 6b 20 24 68 6f 6f 6b 73 28 24 6e h hook $hooks($n
2560: 61 6d 65 29 20 7b 0a 20 09 20 20 20 20 73 65 74 ame) {. . set
2570: 20 63 61 70 48 6f 6f 6b 20 5b 73 74 72 69 6e 67 capHook [string
2580: 20 74 6f 75 70 70 65 72 20 5b 73 74 72 69 6e 67 toupper [string
2590: 20 69 6e 64 65 78 20 24 68 6f 6f 6b 20 30 5d 5d index $hook 0]]
25a0: 0a 20 09 20 20 20 20 61 70 70 65 6e 64 20 63 61 . . append ca
25b0: 70 48 6f 6f 6b 20 5b 73 74 72 69 6e 67 20 72 61 pHook [string ra
25c0: 6e 67 65 20 24 68 6f 6f 6b 20 31 20 65 6e 64 5d nge $hook 1 end]
25d0: 0a 2d 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 .-. append te
25e0: 78 74 20 22 20 20 20 20 73 74 72 75 63 74 20 24 xt " struct $
25f0: 7b 63 61 70 48 6f 6f 6b 7d 53 74 75 62 73 20 2a {capHook}Stubs *
2600: 24 7b 68 6f 6f 6b 7d 53 74 75 62 73 3b 5c 6e 22 ${hook}Stubs;\n"
2610: 0a 2b 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 .+. append te
2620: 78 74 20 22 20 20 20 20 43 4f 4e 53 54 20 73 74 xt " CONST st
2630: 72 75 63 74 20 24 7b 63 61 70 48 6f 6f 6b 7d 53 ruct ${capHook}S
2640: 74 75 62 73 20 2a 24 7b 68 6f 6f 6b 7d 53 74 75 tubs *${hook}Stu
2650: 62 73 3b 5c 6e 22 0a 20 09 7d 0a 20 09 61 70 70 bs;\n". .}. .app
2660: 65 6e 64 20 74 65 78 74 20 22 7d 20 24 7b 63 61 end text "} ${ca
2670: 70 4e 61 6d 65 7d 53 74 75 62 48 6f 6f 6b 73 3b pName}StubHooks;
2680: 5c 6e 22 0a 20 20 20 20 20 7d 0a 20 20 20 20 20 \n". }.
2690: 61 70 70 65 6e 64 20 74 65 78 74 20 22 5c 6e 74 append text "\nt
26a0: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 24 7b ypedef struct ${
26b0: 63 61 70 4e 61 6d 65 7d 53 74 75 62 73 20 7b 5c capName}Stubs {\
26c0: 6e 22 0a 20 20 20 20 20 61 70 70 65 6e 64 20 74 n". append t
26d0: 65 78 74 20 22 20 20 20 20 69 6e 74 20 6d 61 67 ext " int mag
26e0: 69 63 3b 5c 6e 22 0a 2d 20 20 20 20 61 70 70 65 ic;\n".- appe
26f0: 6e 64 20 74 65 78 74 20 22 20 20 20 20 73 74 72 nd text " str
2700: 75 63 74 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 uct ${capName}St
2710: 75 62 48 6f 6f 6b 73 20 2a 68 6f 6f 6b 73 3b 5c ubHooks *hooks;\
2720: 6e 5c 6e 22 0a 2b 20 20 20 20 61 70 70 65 6e 64 n\n".+ append
2730: 20 74 65 78 74 20 22 20 20 20 20 43 4f 4e 53 54 text " CONST
2740: 20 73 74 72 75 63 74 20 24 7b 63 61 70 4e 61 6d struct ${capNam
2750: 65 7d 53 74 75 62 48 6f 6f 6b 73 20 2a 68 6f 6f e}StubHooks *hoo
2760: 6b 73 3b 5c 6e 5c 6e 22 0a 20 0a 20 20 20 20 20 ks;\n\n". .
2770: 65 6d 69 74 53 6c 6f 74 73 20 24 6e 61 6d 65 20 emitSlots $name
2780: 74 65 78 74 0a 20 0a 40 40 20 2d 39 39 38 2c 39 text. .@@ -998,9
2790: 20 2b 39 39 38 2c 37 20 40 40 20 70 72 6f 63 20 +998,7 @@ proc
27a0: 67 65 6e 53 74 75 62 73 3a 3a 65 6d 69 74 48 65 genStubs::emitHe
27b0: 61 64 65 72 20 7b 6e 61 6d 65 7d 20 7b 0a 20 0a ader {name} {. .
27c0: 20 20 20 20 20 73 65 74 20 75 70 4e 61 6d 65 20 set upName
27d0: 5b 73 74 72 69 6e 67 20 74 6f 75 70 70 65 72 20 [string toupper
27e0: 24 6c 69 62 72 61 72 79 4e 61 6d 65 5d 0a 20 20 $libraryName].
27f0: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 append text "
2800: 5c 6e 23 69 66 20 64 65 66 69 6e 65 64 28 55 53 \n#if defined(US
2810: 45 5f 24 7b 75 70 4e 61 6d 65 7d 5f 53 54 55 42 E_${upName}_STUB
2820: 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 S) && !defined(U
2830: 53 45 5f 24 7b 75 70 4e 61 6d 65 7d 5f 53 54 55 SE_${upName}_STU
2840: 42 5f 50 52 4f 43 53 29 5c 6e 22 0a 2d 20 20 20 B_PROCS)\n".-
2850: 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 5c 6e append text "\n
2860: 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c #ifdef __cpluspl
2870: 75 73 5c 6e 65 78 74 65 72 6e 20 5c 22 43 5c 22 us\nextern \"C\"
2880: 20 7b 5c 6e 23 65 6e 64 69 66 5c 6e 22 0a 2d 20 {\n#endif\n".-
2890: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 append text "
28a0: 65 78 74 65 72 6e 20 24 7b 63 61 70 4e 61 6d 65 extern ${capName
28b0: 7d 53 74 75 62 73 20 2a 24 7b 6e 61 6d 65 7d 53 }Stubs *${name}S
28c0: 74 75 62 73 50 74 72 3b 5c 6e 22 0a 2d 20 20 20 tubsPtr;\n".-
28d0: 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 23 69 append text "#i
28e0: 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 fdef __cplusplus
28f0: 5c 6e 7d 5c 6e 23 65 6e 64 69 66 5c 6e 22 0a 2b \n}\n#endif\n".+
2900: 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 append text
2910: 22 45 58 54 45 52 4e 20 43 4f 4e 53 54 20 24 7b "EXTERN CONST ${
2920: 63 61 70 4e 61 6d 65 7d 53 74 75 62 73 20 2a 24 capName}Stubs *$
2930: 7b 6e 61 6d 65 7d 53 74 75 62 73 50 74 72 3b 22 {name}StubsPtr;"
2940: 0a 20 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 . append tex
2950: 74 20 22 5c 6e 23 65 6e 64 69 66 20 2f 2a 20 64 t "\n#endif /* d
2960: 65 66 69 6e 65 64 28 55 53 45 5f 24 7b 75 70 4e efined(USE_${upN
2970: 61 6d 65 7d 5f 53 54 55 42 53 29 20 26 26 20 21 ame}_STUBS) && !
2980: 64 65 66 69 6e 65 64 28 55 53 45 5f 24 7b 75 70 defined(USE_${up
2990: 4e 61 6d 65 7d 5f 53 54 55 42 5f 50 52 4f 43 53 Name}_STUB_PROCS
29a0: 29 20 2a 2f 5c 6e 22 0a 20 0a 20 20 20 20 20 65 ) */\n". . e
29b0: 6d 69 74 4d 61 63 72 6f 73 20 24 6e 61 6d 65 20 mitMacros $name
29c0: 74 65 78 74 0a 40 40 20 2d 31 30 35 30 2c 37 20 text.@@ -1050,7
29d0: 2b 31 30 34 38 2c 37 20 40 40 20 70 72 6f 63 20 +1048,7 @@ proc
29e0: 67 65 6e 53 74 75 62 73 3a 3a 65 6d 69 74 49 6e genStubs::emitIn
29f0: 69 74 20 7b 6e 61 6d 65 20 74 65 78 74 56 61 72 it {name textVar
2a00: 7d 20 7b 0a 20 20 20 20 20 61 70 70 65 6e 64 20 } {. append
2a10: 63 61 70 4e 61 6d 65 20 5b 73 74 72 69 6e 67 20 capName [string
2a20: 72 61 6e 67 65 20 24 6e 61 6d 65 20 31 20 65 6e range $name 1 en
2a30: 64 5d 0a 20 0a 20 20 20 20 20 69 66 20 7b 5b 69 d]. . if {[i
2a40: 6e 66 6f 20 65 78 69 73 74 73 20 68 6f 6f 6b 73 nfo exists hooks
2a50: 28 24 6e 61 6d 65 29 5d 7d 20 7b 0a 2d 09 61 70 ($name)]} {.-.ap
2a60: 70 65 6e 64 20 74 65 78 74 20 22 5c 6e 73 74 61 pend text "\nsta
2a70: 74 69 63 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 tic ${capName}St
2a80: 75 62 48 6f 6f 6b 73 20 24 7b 6e 61 6d 65 7d 53 ubHooks ${name}S
2a90: 74 75 62 48 6f 6f 6b 73 20 3d 20 5c 7b 5c 6e 22 tubHooks = \{\n"
2aa0: 0a 2b 09 61 70 70 65 6e 64 20 74 65 78 74 20 22 .+.append text "
2ab0: 5c 6e 73 74 61 74 69 63 20 63 6f 6e 73 74 20 24 \nstatic const $
2ac0: 7b 63 61 70 4e 61 6d 65 7d 53 74 75 62 48 6f 6f {capName}StubHoo
2ad0: 6b 73 20 24 7b 6e 61 6d 65 7d 53 74 75 62 48 6f ks ${name}StubHo
2ae0: 6f 6b 73 20 3d 20 5c 7b 5c 6e 22 0a 20 09 73 65 oks = \{\n". .se
2af0: 74 20 73 65 70 20 22 20 20 20 20 22 0a 20 09 66 t sep " ". .f
2b00: 6f 72 65 61 63 68 20 73 75 62 20 24 68 6f 6f 6b oreach sub $hook
2b10: 73 28 24 6e 61 6d 65 29 20 7b 0a 20 09 20 20 20 s($name) {. .
2b20: 20 61 70 70 65 6e 64 20 74 65 78 74 20 24 73 65 append text $se
2b30: 70 20 22 26 24 7b 73 75 62 7d 53 74 75 62 73 22 p "&${sub}Stubs"
2b40: 0a .
