Artifact
54a0c3533765ec02b39425c011de1c8aa825062dfa90a328d24e47e4900e73e0
File
generic/tclStubLib.c
— part of check-in
[32f67e254a]
at
2025-04-10 12:24:51
on branch bug-fd8341e496
— Fix for [fd8341e496] : Tcl_InitStubs compatibility for 9.1
(user:
jan.nijtmans
size: 4602)
[more...]
0000: 2f 2a 0a 20 2a 20 74 63 6c 53 74 75 62 4c 69 62 /*. * tclStubLib
0010: 2e 63 20 2d 2d 0a 20 2a 0a 20 2a 09 53 74 75 62 .c --. *. *.Stub
0020: 20 6f 62 6a 65 63 74 20 74 68 61 74 20 77 69 6c object that wil
0030: 6c 20 62 65 20 73 74 61 74 69 63 61 6c 6c 79 20 l be statically
0040: 6c 69 6e 6b 65 64 20 69 6e 74 6f 20 65 78 74 65 linked into exte
0050: 6e 73 69 6f 6e 73 20 74 68 61 74 20 77 61 6e 74 nsions that want
0060: 0a 20 2a 09 74 6f 20 61 63 63 65 73 73 20 54 63 . *.to access Tc
0070: 6c 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 l.. *. * Copyrig
0080: 68 74 20 c2 a9 20 31 39 39 38 2d 31 39 39 39 20 ht © 1998-1999
0090: 53 63 72 69 70 74 69 63 73 20 43 6f 72 70 6f 72 Scriptics Corpor
00a0: 61 74 69 6f 6e 2e 0a 20 2a 20 43 6f 70 79 72 69 ation.. * Copyri
00b0: 67 68 74 20 c2 a9 20 31 39 39 38 20 50 61 75 6c ght © 1998 Paul
00c0: 20 44 75 66 66 69 6e 2e 0a 20 2a 0a 20 2a 20 53 Duffin.. *. * S
00d0: 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c 69 63 ee the file "lic
00e0: 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f 72 20 ense.terms" for
00f0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 information on u
0100: 73 61 67 65 20 61 6e 64 20 72 65 64 69 73 74 72 sage and redistr
0110: 69 62 75 74 69 6f 6e 20 6f 66 0a 20 2a 20 74 68 ibution of. * th
0120: 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66 6f 72 is file, and for
0130: 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20 4f 46 a DISCLAIMER OF
0140: 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45 53 2e ALL WARRANTIES.
0150: 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 . */..#include "
0160: 74 63 6c 49 6e 74 2e 68 22 0a 0a 4d 4f 44 55 4c tclInt.h"..MODUL
0170: 45 5f 53 43 4f 50 45 20 63 6f 6e 73 74 20 54 63 E_SCOPE const Tc
0180: 6c 53 74 75 62 73 20 2a 74 63 6c 53 74 75 62 73 lStubs *tclStubs
0190: 50 74 72 3b 0a 4d 4f 44 55 4c 45 5f 53 43 4f 50 Ptr;.MODULE_SCOP
01a0: 45 20 63 6f 6e 73 74 20 54 63 6c 50 6c 61 74 53 E const TclPlatS
01b0: 74 75 62 73 20 2a 74 63 6c 50 6c 61 74 53 74 75 tubs *tclPlatStu
01c0: 62 73 50 74 72 3b 0a 4d 4f 44 55 4c 45 5f 53 43 bsPtr;.MODULE_SC
01d0: 4f 50 45 20 63 6f 6e 73 74 20 54 63 6c 49 6e 74 OPE const TclInt
01e0: 53 74 75 62 73 20 2a 74 63 6c 49 6e 74 53 74 75 Stubs *tclIntStu
01f0: 62 73 50 74 72 3b 0a 4d 4f 44 55 4c 45 5f 53 43 bsPtr;.MODULE_SC
0200: 4f 50 45 20 63 6f 6e 73 74 20 54 63 6c 49 6e 74 OPE const TclInt
0210: 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 49 6e PlatStubs *tclIn
0220: 74 50 6c 61 74 53 74 75 62 73 50 74 72 3b 0a 4d tPlatStubsPtr;.M
0230: 4f 44 55 4c 45 5f 53 43 4f 50 45 20 76 6f 69 64 ODULE_SCOPE void
0240: 20 2a 74 63 6c 53 74 75 62 73 48 61 6e 64 6c 65 *tclStubsHandle
0250: 3b 0a 0a 63 6f 6e 73 74 20 54 63 6c 53 74 75 62 ;..const TclStub
0260: 73 20 2a 74 63 6c 53 74 75 62 73 50 74 72 20 3d s *tclStubsPtr =
0270: 20 4e 55 4c 4c 3b 0a 63 6f 6e 73 74 20 54 63 6c NULL;.const Tcl
0280: 50 6c 61 74 53 74 75 62 73 20 2a 74 63 6c 50 6c PlatStubs *tclPl
0290: 61 74 53 74 75 62 73 50 74 72 20 3d 20 4e 55 4c atStubsPtr = NUL
02a0: 4c 3b 0a 63 6f 6e 73 74 20 54 63 6c 49 6e 74 53 L;.const TclIntS
02b0: 74 75 62 73 20 2a 74 63 6c 49 6e 74 53 74 75 62 tubs *tclIntStub
02c0: 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 63 6f 6e sPtr = NULL;.con
02d0: 73 74 20 54 63 6c 49 6e 74 50 6c 61 74 53 74 75 st TclIntPlatStu
02e0: 62 73 20 2a 74 63 6c 49 6e 74 50 6c 61 74 53 74 bs *tclIntPlatSt
02f0: 75 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 76 ubsPtr = NULL;.v
0300: 6f 69 64 20 2a 74 63 6c 53 74 75 62 73 48 61 6e oid *tclStubsHan
0310: 64 6c 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 2f 2a 0a dle = NULL;../*.
0320: 20 2a 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 49 * Use our own I
0330: 53 44 49 47 49 54 20 74 6f 20 61 76 6f 69 64 20 SDIGIT to avoid
0340: 6c 69 6e 6b 69 6e 67 20 74 6f 20 6c 69 62 63 20 linking to libc
0350: 6f 6e 20 77 69 6e 64 6f 77 73 0a 20 2a 2f 0a 0a on windows. */..
0360: 23 64 65 66 69 6e 65 20 49 53 44 49 47 49 54 28 #define ISDIGIT(
0370: 63 29 20 28 28 28 75 6e 73 69 67 6e 65 64 29 28 c) (((unsigned)(
0380: 28 63 29 2d 27 30 27 29 29 20 3c 3d 20 39 29 0a (c)-'0')) <= 9).
0390: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
03e0: 0a 20 2a 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 . * Tcl_InitStub
03f0: 73 20 2d 2d 0a 20 2a 0a 20 2a 09 54 72 69 65 73 s --. *. *.Tries
0400: 20 74 6f 20 69 6e 69 74 69 61 6c 69 73 65 20 74 to initialise t
0410: 68 65 20 73 74 75 62 20 74 61 62 6c 65 20 70 6f he stub table po
0420: 69 6e 74 65 72 73 20 61 6e 64 20 65 6e 73 75 72 inters and ensur
0430: 65 73 20 74 68 61 74 20 74 68 65 0a 20 2a 09 63 es that the. *.c
0440: 6f 72 72 65 63 74 20 76 65 72 73 69 6f 6e 20 6f orrect version o
0450: 66 20 54 63 6c 20 69 73 20 6c 6f 61 64 65 64 2e f Tcl is loaded.
0460: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
0470: 20 2a 09 54 68 65 20 61 63 74 75 61 6c 20 76 65 *.The actual ve
0480: 72 73 69 6f 6e 20 6f 66 20 54 63 6c 20 74 68 61 rsion of Tcl tha
0490: 74 20 73 61 74 69 73 66 69 65 73 20 74 68 65 20 t satisfies the
04a0: 72 65 71 75 65 73 74 2c 20 6f 72 20 4e 55 4c 4c request, or NULL
04b0: 20 74 6f 0a 20 2a 09 69 6e 64 69 63 61 74 65 20 to. *.indicate
04c0: 74 68 61 74 20 61 6e 20 65 72 72 6f 72 20 6f 63 that an error oc
04d0: 63 75 72 72 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 curred.. *. * Si
04e0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
04f0: 65 74 73 20 74 68 65 20 73 74 75 62 20 74 61 62 ets the stub tab
0500: 6c 65 20 70 6f 69 6e 74 65 72 73 2e 0a 20 2a 0a le pointers.. *.
0510: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 75 6e --------. */.#un
0560: 64 65 66 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 def Tcl_InitStub
0570: 73 0a 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 20 63 s.MODULE_SCOPE c
0580: 6f 6e 73 74 20 63 68 61 72 20 2a 0a 54 63 6c 5f onst char *.Tcl_
0590: 49 6e 69 74 53 74 75 62 73 28 0a 20 20 20 20 54 InitStubs(. T
05a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
05b0: 70 2c 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 p,. const cha
05c0: 72 20 2a 76 65 72 73 69 6f 6e 2c 0a 20 20 20 20 r *version,.
05d0: 69 6e 74 20 65 78 61 63 74 2c 0a 20 20 20 20 69 int exact,. i
05e0: 6e 74 20 6d 61 67 69 63 29 0a 7b 0a 20 20 20 20 nt magic).{.
05f0: 49 6e 74 65 72 70 20 2a 69 50 74 72 20 3d 20 28 Interp *iPtr = (
0600: 49 6e 74 65 72 70 20 2a 29 69 6e 74 65 72 70 3b Interp *)interp;
0610: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
0620: 2a 61 63 74 75 61 6c 56 65 72 73 69 6f 6e 20 3d *actualVersion =
0630: 20 4e 55 4c 4c 3b 0a 20 20 20 20 76 6f 69 64 20 NULL;. void
0640: 2a 70 6b 67 44 61 74 61 20 3d 20 4e 55 4c 4c 3b *pkgData = NULL;
0650: 0a 20 20 20 20 63 6f 6e 73 74 20 54 63 6c 53 74 . const TclSt
0660: 75 62 73 20 2a 73 74 75 62 73 50 74 72 20 3d 20 ubs *stubsPtr =
0670: 69 50 74 72 2d 3e 73 74 75 62 54 61 62 6c 65 3b iPtr->stubTable;
0680: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
0690: 2a 74 63 6c 4e 61 6d 65 20 3d 20 22 74 63 6c 22 *tclName = "tcl"
06a0: 3b 0a 0a 20 20 20 20 69 66 20 28 28 65 78 61 63 ;.. if ((exac
06b0: 74 26 30 78 46 46 30 30 29 20 3c 20 30 78 39 30 t&0xFF00) < 0x90
06c0: 30 29 20 7b 0a 09 6d 61 67 69 63 20 3d 20 28 69 0) {..magic = (i
06d0: 6e 74 29 30 78 46 43 41 33 42 41 43 46 3b 20 2f nt)0xFCA3BACF; /
06e0: 2a 20 54 43 4c 5f 53 54 55 42 5f 4d 41 47 49 43 * TCL_STUB_MAGIC
06f0: 20 66 72 6f 6d 20 54 63 6c 20 38 2e 78 20 2a 2f from Tcl 8.x */
0700: 0a 09 74 63 6c 4e 61 6d 65 20 3d 20 22 54 63 6c ..tclName = "Tcl
0710: 22 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a ";. }. /*.
0720: 20 20 20 20 20 2a 20 57 65 20 63 61 6e 27 74 20 * We can't
0730: 6f 70 74 69 6d 69 7a 65 20 74 68 69 73 20 63 68 optimize this ch
0740: 65 63 6b 20 62 79 20 63 61 63 68 69 6e 67 20 74 eck by caching t
0750: 63 6c 53 74 75 62 73 50 74 72 20 62 65 63 61 75 clStubsPtr becau
0760: 73 65 20 74 68 61 74 0a 20 20 20 20 20 2a 20 70 se that. * p
0770: 72 65 76 65 6e 74 73 20 61 70 70 73 20 66 72 6f revents apps fro
0780: 6d 20 62 65 69 6e 67 20 61 62 6c 65 20 74 6f 20 m being able to
0790: 6c 6f 61 64 2f 75 6e 6c 6f 61 64 20 54 63 6c 20 load/unload Tcl
07a0: 64 79 6e 61 6d 69 63 61 6c 6c 79 20 6d 75 6c 74 dynamically mult
07b0: 69 70 6c 65 0a 20 20 20 20 20 2a 20 74 69 6d 65 iple. * time
07c0: 73 2e 20 5b 42 75 67 20 36 31 35 33 30 34 5d 0a s. [Bug 615304].
07d0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 */.. if
07e0: 28 21 73 74 75 62 73 50 74 72 20 7c 7c 20 28 73 (!stubsPtr || (s
07f0: 74 75 62 73 50 74 72 2d 3e 6d 61 67 69 63 20 21 tubsPtr->magic !
0800: 3d 20 6d 61 67 69 63 29 29 20 7b 0a 09 65 78 61 = magic)) {..exa
0810: 63 74 20 26 3d 20 30 78 46 46 46 46 30 30 3b 20 ct &= 0xFFFF00;
0820: 2f 2a 20 46 69 6c 74 65 72 20 6f 75 74 20 6d 69 /* Filter out mi
0830: 6e 6f 72 2f 6d 61 6a 6f 72 20 54 63 6c 20 76 65 nor/major Tcl ve
0840: 72 73 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 21 65 rsion */..if (!e
0850: 78 61 63 74 29 20 7b 0a 09 20 20 20 20 65 78 61 xact) {.. exa
0860: 63 74 20 3d 20 30 78 30 36 30 38 30 30 3b 0a 09 ct = 0x060800;..
0870: 7d 0a 09 69 66 20 28 73 74 75 62 73 50 74 72 20 }..if (stubsPtr
0880: 26 26 20 28 73 74 75 62 73 50 74 72 2d 3e 6d 61 && (stubsPtr->ma
0890: 67 69 63 20 3d 3d 20 54 43 4c 5f 53 54 55 42 5f gic == TCL_STUB_
08a0: 4d 41 47 49 43 29 0a 09 09 26 26 20 28 28 65 78 MAGIC)...&& ((ex
08b0: 61 63 74 7c 30 78 30 31 30 30 30 30 29 20 3d 3d act|0x010000) ==
08c0: 20 30 78 30 37 30 38 30 30 29 29 20 7b 0a 09 20 0x070800)) {..
08d0: 20 20 20 2f 2a 20 57 65 20 61 72 65 20 72 75 6e /* We are run
08e0: 6e 69 6e 67 20 69 6e 20 54 63 6c 20 39 2e 78 2c ning in Tcl 9.x,
08f0: 20 62 75 74 20 65 78 74 65 6e 73 69 6f 6e 20 69 but extension i
0900: 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 s compiled with
0910: 38 2e 36 20 6f 72 20 38 2e 37 20 2a 2f 0a 09 20 8.6 or 8.7 */..
0920: 20 20 20 73 74 75 62 73 50 74 72 2d 3e 74 63 6c stubsPtr->tcl
0930: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
0940: 74 65 72 70 2c 20 73 74 75 62 73 50 74 72 2d 3e terp, stubsPtr->
0950: 74 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 0a 09 tcl_ObjPrintf(..
0960: 09 20 20 20 20 22 74 68 69 73 20 65 78 74 65 6e . "this exten
0970: 73 69 6f 6e 20 69 73 20 63 6f 6d 70 69 6c 65 64 sion is compiled
0980: 20 66 6f 72 20 54 63 6c 20 25 64 2e 25 64 22 2c for Tcl %d.%d",
0990: 0a 09 09 20 20 20 20 28 65 78 61 63 74 20 26 20 ... (exact &
09a0: 30 78 30 46 46 30 30 29 3e 3e 38 2c 20 28 65 78 0x0FF00)>>8, (ex
09b0: 61 63 74 20 26 20 30 78 30 46 46 30 30 30 30 29 act & 0x0FF0000)
09c0: 3e 3e 31 36 29 29 3b 0a 09 7d 20 65 6c 73 65 20 >>16));..} else
09d0: 69 66 20 28 73 74 75 62 73 50 74 72 20 26 26 20 if (stubsPtr &&
09e0: 28 73 74 75 62 73 50 74 72 2d 3e 6d 61 67 69 63 (stubsPtr->magic
09f0: 20 3d 3d 20 28 69 6e 74 29 30 78 46 43 41 33 42 == (int)0xFCA3B
0a00: 41 43 46 29 0a 09 09 26 26 20 28 28 65 78 61 63 ACF)...&& ((exac
0a10: 74 20 26 20 30 78 30 46 46 30 30 29 20 3e 3d 20 t & 0x0FF00) >=
0a20: 30 78 30 39 30 30 29 29 20 7b 0a 09 20 20 20 20 0x0900)) {..
0a30: 2f 2a 20 57 65 20 61 72 65 20 72 75 6e 6e 69 6e /* We are runnin
0a40: 67 20 69 6e 20 54 63 6c 20 38 2e 78 2c 20 62 75 g in Tcl 8.x, bu
0a50: 74 20 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 63 t extension is c
0a60: 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 39 2e 30 ompiled with 9.0
0a70: 2b 20 2a 2f 0a 09 20 20 20 20 63 68 61 72 20 6d + */.. char m
0a80: 61 6a 6f 72 5b 34 5d 2c 20 6d 69 6e 6f 72 5b 34 ajor[4], minor[4
0a90: 5d 3b 0a 09 20 20 20 20 73 6e 70 72 69 6e 74 66 ];.. snprintf
0aa0: 28 6d 61 6a 6f 72 2c 20 73 69 7a 65 6f 66 28 6d (major, sizeof(m
0ab0: 61 6a 6f 72 29 2c 20 22 25 64 22 2c 20 28 65 78 ajor), "%d", (ex
0ac0: 61 63 74 20 26 20 30 78 46 46 30 30 29 3e 3e 38 act & 0xFF00)>>8
0ad0: 29 3b 0a 09 20 20 20 20 73 6e 70 72 69 6e 74 66 );.. snprintf
0ae0: 28 6d 69 6e 6f 72 2c 20 73 69 7a 65 6f 66 28 6d (minor, sizeof(m
0af0: 69 6e 6f 72 29 2c 20 22 25 64 22 2c 20 28 65 78 inor), "%d", (ex
0b00: 61 63 74 20 26 20 30 78 46 46 30 30 30 30 29 3e act & 0xFF0000)>
0b10: 3e 31 36 29 3b 0a 09 20 20 20 20 73 74 75 62 73 >16);.. stubs
0b20: 50 74 72 2d 3e 74 63 6c 5f 41 70 70 65 6e 64 52 Ptr->tcl_AppendR
0b30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 esult(interp,...
0b40: 20 20 20 20 22 74 68 69 73 20 65 78 74 65 6e 73 "this extens
0b50: 69 6f 6e 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 ion is compiled
0b60: 66 6f 72 20 54 63 6c 20 22 2c 20 6d 61 6a 6f 72 for Tcl ", major
0b70: 2c 20 22 2e 22 2c 20 6d 69 6e 6f 72 2c 20 28 63 , ".", minor, (c
0b80: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 7d 20 har *)NULL);..}
0b90: 65 6c 73 65 20 7b 0a 09 20 20 20 20 69 50 74 72 else {.. iPtr
0ba0: 2d 3e 6c 65 67 61 63 79 52 65 73 75 6c 74 20 3d ->legacyResult =
0bb0: 20 22 69 6e 74 65 72 70 72 65 74 65 72 20 75 73 "interpreter us
0bc0: 65 73 20 61 6e 20 69 6e 63 6f 6d 70 61 74 69 62 es an incompatib
0bd0: 6c 65 20 73 74 75 62 73 20 6d 65 63 68 61 6e 69 le stubs mechani
0be0: 73 6d 22 3b 0a 09 20 20 20 20 69 50 74 72 2d 3e sm";.. iPtr->
0bf0: 6c 65 67 61 63 79 46 72 65 65 50 72 6f 63 20 3d legacyFreeProc =
0c00: 20 30 3b 20 2f 2a 20 54 43 4c 5f 53 54 41 54 49 0; /* TCL_STATI
0c10: 43 20 2a 2f 0a 09 7d 0a 09 72 65 74 75 72 6e 20 C */..}..return
0c20: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 NULL;. }..
0c30: 20 61 63 74 75 61 6c 56 65 72 73 69 6f 6e 20 3d actualVersion =
0c40: 20 73 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 50 stubsPtr->tcl_P
0c50: 6b 67 52 65 71 75 69 72 65 45 78 28 69 6e 74 65 kgRequireEx(inte
0c60: 72 70 2c 20 74 63 6c 4e 61 6d 65 2c 20 76 65 72 rp, tclName, ver
0c70: 73 69 6f 6e 2c 20 30 2c 20 26 70 6b 67 44 61 74 sion, 0, &pkgDat
0c80: 61 29 3b 0a 20 20 20 20 69 66 20 28 61 63 74 75 a);. if (actu
0c90: 61 6c 56 65 72 73 69 6f 6e 20 3d 3d 20 4e 55 4c alVersion == NUL
0ca0: 4c 29 20 7b 0a 09 2f 2a 20 45 76 65 6e 20 77 68 L) {../* Even wh
0cb0: 65 6e 20 74 68 65 20 54 63 6c 20 76 65 72 73 69 en the Tcl versi
0cc0: 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 on does not matc
0cd0: 68 2c 20 74 68 65 20 63 61 6c 6c 65 72 20 73 68 h, the caller sh
0ce0: 6f 75 6c 64 20 61 74 20 6c 65 61 73 74 20 62 65 ould at least be
0cf0: 0a 09 20 2a 20 61 62 6c 65 20 74 6f 20 75 73 65 .. * able to use
0d00: 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c Tcl_GetObjResul
0d10: 74 2f 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 2f t/Tcl_GetString/
0d20: 54 63 6c 5f 50 61 6e 69 63 20 66 6f 72 20 65 72 Tcl_Panic for er
0d30: 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 20 2a 2f 0a ror-handling */.
0d40: 09 74 63 6c 53 74 75 62 73 50 74 72 20 3d 20 73 .tclStubsPtr = s
0d50: 74 75 62 73 50 74 72 3b 20 2f 2a 20 53 65 65 3a tubsPtr; /* See:
0d60: 20 5b 66 64 38 33 34 31 65 34 39 36 5d 20 2a 2f [fd8341e496] */
0d70: 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 ..return NULL;.
0d80: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 65 78 61 }. if (exa
0d90: 63 74 26 31 29 20 7b 0a 09 63 6f 6e 73 74 20 63 ct&1) {..const c
0da0: 68 61 72 20 2a 70 20 3d 20 76 65 72 73 69 6f 6e har *p = version
0db0: 3b 0a 09 69 6e 74 20 63 6f 75 6e 74 20 3d 20 30 ;..int count = 0
0dc0: 3b 0a 0a 09 77 68 69 6c 65 20 28 2a 70 29 20 7b ;...while (*p) {
0dd0: 0a 09 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 21 .. count += !
0de0: 49 53 44 49 47 49 54 28 2a 70 2b 2b 29 3b 0a 09 ISDIGIT(*p++);..
0df0: 7d 0a 09 69 66 20 28 63 6f 75 6e 74 20 3d 3d 20 }..if (count ==
0e00: 31 29 20 7b 0a 09 20 20 20 20 63 6f 6e 73 74 20 1) {.. const
0e10: 63 68 61 72 20 2a 71 20 3d 20 61 63 74 75 61 6c char *q = actual
0e20: 56 65 72 73 69 6f 6e 3b 0a 0a 09 20 20 20 20 70 Version;... p
0e30: 20 3d 20 76 65 72 73 69 6f 6e 3b 0a 09 20 20 20 = version;..
0e40: 20 77 68 69 6c 65 20 28 2a 70 20 26 26 20 28 2a while (*p && (*
0e50: 70 20 3d 3d 20 2a 71 29 29 20 7b 0a 09 09 70 2b p == *q)) {...p+
0e60: 2b 3b 20 71 2b 2b 3b 0a 09 20 20 20 20 7d 0a 09 +; q++;.. }..
0e70: 20 20 20 20 69 66 20 28 2a 70 20 7c 7c 20 49 53 if (*p || IS
0e80: 44 49 47 49 54 28 2a 71 29 29 20 7b 0a 09 09 2f DIGIT(*q)) {.../
0e90: 2a 20 43 6f 6e 73 74 72 75 63 74 20 65 72 72 6f * Construct erro
0ea0: 72 20 6d 65 73 73 61 67 65 20 2a 2f 0a 09 09 73 r message */...s
0eb0: 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 50 6b 67 tubsPtr->tcl_Pkg
0ec0: 52 65 71 75 69 72 65 45 78 28 69 6e 74 65 72 70 RequireEx(interp
0ed0: 2c 20 74 63 6c 4e 61 6d 65 2c 20 76 65 72 73 69 , tclName, versi
0ee0: 6f 6e 2c 20 31 2c 20 4e 55 4c 4c 29 3b 0a 09 09 on, 1, NULL);...
0ef0: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 20 return NULL;..
0f00: 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 }..} else {..
0f10: 20 20 20 61 63 74 75 61 6c 56 65 72 73 69 6f 6e actualVersion
0f20: 20 3d 20 73 74 75 62 73 50 74 72 2d 3e 74 63 6c = stubsPtr->tcl
0f30: 5f 50 6b 67 52 65 71 75 69 72 65 45 78 28 69 6e _PkgRequireEx(in
0f40: 74 65 72 70 2c 20 74 63 6c 4e 61 6d 65 2c 20 76 terp, tclName, v
0f50: 65 72 73 69 6f 6e 2c 20 31 2c 20 4e 55 4c 4c 29 ersion, 1, NULL)
0f60: 3b 0a 09 20 20 20 20 69 66 20 28 61 63 74 75 61 ;.. if (actua
0f70: 6c 56 65 72 73 69 6f 6e 20 3d 3d 20 4e 55 4c 4c lVersion == NULL
0f80: 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 4e 55 4c ) {...return NUL
0f90: 4c 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 L;.. }..}.
0fa0: 20 7d 0a 20 20 20 20 69 66 20 28 28 28 65 78 61 }. if (((exa
0fb0: 63 74 26 30 78 46 46 30 30 29 20 3c 20 30 78 39 ct&0xFF00) < 0x9
0fc0: 30 30 29 29 20 7b 0a 09 2f 2a 20 57 65 20 61 72 00)) {../* We ar
0fd0: 65 20 72 75 6e 6e 69 6e 67 20 54 63 6c 20 38 2e e running Tcl 8.
0fe0: 78 20 2a 2f 0a 09 73 74 75 62 73 50 74 72 20 3d x */..stubsPtr =
0ff0: 20 28 54 63 6c 53 74 75 62 73 20 2a 29 70 6b 67 (TclStubs *)pkg
1000: 44 61 74 61 3b 0a 20 20 20 20 7d 0a 20 20 20 20 Data;. }.
1010: 69 66 20 28 74 63 6c 53 74 75 62 73 48 61 6e 64 if (tclStubsHand
1020: 6c 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 74 le == NULL) {..t
1030: 63 6c 53 74 75 62 73 48 61 6e 64 6c 65 20 3d 20 clStubsHandle =
1040: 49 4e 54 32 50 54 52 28 2d 31 29 3b 0a 20 20 20 INT2PTR(-1);.
1050: 20 7d 0a 20 20 20 20 74 63 6c 53 74 75 62 73 50 }. tclStubsP
1060: 74 72 20 3d 20 73 74 75 62 73 50 74 72 3b 0a 0a tr = stubsPtr;..
1070: 20 20 20 20 69 66 20 28 73 74 75 62 73 50 74 72 if (stubsPtr
1080: 2d 3e 68 6f 6f 6b 73 29 20 7b 0a 09 74 63 6c 50 ->hooks) {..tclP
1090: 6c 61 74 53 74 75 62 73 50 74 72 20 3d 20 73 74 latStubsPtr = st
10a0: 75 62 73 50 74 72 2d 3e 68 6f 6f 6b 73 2d 3e 74 ubsPtr->hooks->t
10b0: 63 6c 50 6c 61 74 53 74 75 62 73 3b 0a 09 74 63 clPlatStubs;..tc
10c0: 6c 49 6e 74 53 74 75 62 73 50 74 72 20 3d 20 73 lIntStubsPtr = s
10d0: 74 75 62 73 50 74 72 2d 3e 68 6f 6f 6b 73 2d 3e tubsPtr->hooks->
10e0: 74 63 6c 49 6e 74 53 74 75 62 73 3b 0a 09 74 63 tclIntStubs;..tc
10f0: 6c 49 6e 74 50 6c 61 74 53 74 75 62 73 50 74 72 lIntPlatStubsPtr
1100: 20 3d 20 73 74 75 62 73 50 74 72 2d 3e 68 6f 6f = stubsPtr->hoo
1110: 6b 73 2d 3e 74 63 6c 49 6e 74 50 6c 61 74 53 74 ks->tclIntPlatSt
1120: 75 62 73 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ubs;. } else
1130: 7b 0a 09 74 63 6c 50 6c 61 74 53 74 75 62 73 50 {..tclPlatStubsP
1140: 74 72 20 3d 20 4e 55 4c 4c 3b 0a 09 74 63 6c 49 tr = NULL;..tclI
1150: 6e 74 53 74 75 62 73 50 74 72 20 3d 20 4e 55 4c ntStubsPtr = NUL
1160: 4c 3b 0a 09 74 63 6c 49 6e 74 50 6c 61 74 53 74 L;..tclIntPlatSt
1170: 75 62 73 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 20 ubsPtr = NULL;.
1180: 20 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e }.. return
1190: 20 61 63 74 75 61 6c 56 65 72 73 69 6f 6e 3b 0a actualVersion;.
11a0: 7d 0a 0c 0a 2f 2a 0a 20 2a 20 4c 6f 63 61 6c 20 }.../*. * Local
11b0: 56 61 72 69 61 62 6c 65 73 3a 0a 20 2a 20 6d 6f Variables:. * mo
11c0: 64 65 3a 20 63 0a 20 2a 20 63 2d 62 61 73 69 63 de: c. * c-basic
11d0: 2d 6f 66 66 73 65 74 3a 20 34 0a 20 2a 20 66 69 -offset: 4. * fi
11e0: 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 37 38 0a 20 2a ll-column: 78. *
11f0: 20 45 6e 64 3a 0a 20 2a 2f 0a End:. */.
