147 lines
3.5 KiB
C
147 lines
3.5 KiB
C
/*
|
||
* tkStubLib.c --
|
||
*
|
||
* Stub object that will be statically linked into extensions that want
|
||
* to access Tk.
|
||
*
|
||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||
* Copyright (c) 1998 Paul Duffin.
|
||
*
|
||
* See the file "license.terms" for information on usage and redistribution of
|
||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||
*/
|
||
|
||
#include "tkInt.h"
|
||
|
||
#ifdef _WIN32
|
||
#include "tkWinInt.h"
|
||
#endif
|
||
|
||
#ifdef MAC_OSX_TK
|
||
#include "tkMacOSXInt.h"
|
||
#endif
|
||
|
||
#if !(defined(_WIN32) || defined(MAC_OSX_TK))
|
||
#include "tkUnixInt.h"
|
||
#endif
|
||
|
||
/* TODO: These ought to come in some other way */
|
||
#include "tkPlatDecls.h"
|
||
#include "tkIntXlibDecls.h"
|
||
|
||
MODULE_SCOPE const TkStubs *tkStubsPtr;
|
||
MODULE_SCOPE const TkPlatStubs *tkPlatStubsPtr;
|
||
MODULE_SCOPE const TkIntStubs *tkIntStubsPtr;
|
||
MODULE_SCOPE const TkIntPlatStubs *tkIntPlatStubsPtr;
|
||
MODULE_SCOPE const TkIntXlibStubs *tkIntXlibStubsPtr;
|
||
|
||
const TkStubs *tkStubsPtr = NULL;
|
||
const TkPlatStubs *tkPlatStubsPtr = NULL;
|
||
const TkIntStubs *tkIntStubsPtr = NULL;
|
||
const TkIntPlatStubs *tkIntPlatStubsPtr = NULL;
|
||
const TkIntXlibStubs *tkIntXlibStubsPtr = NULL;
|
||
|
||
/*
|
||
* Use our own isdigit to avoid linking to libc on windows
|
||
*/
|
||
|
||
static int
|
||
isDigit(const int c)
|
||
{
|
||
return (c >= '0' && c <= '9');
|
||
}
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* Tk_InitStubs --
|
||
*
|
||
* Checks that the correct version of Tk is loaded and that it supports
|
||
* stubs. It then initialises the stub table pointers.
|
||
*
|
||
* Results:
|
||
* The actual version of Tk that satisfies the request, or NULL to
|
||
* indicate that an error occurred.
|
||
*
|
||
* Side effects:
|
||
* Sets the stub table pointers.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
#undef Tk_InitStubs
|
||
MODULE_SCOPE const char *
|
||
Tk_InitStubs(
|
||
Tcl_Interp *interp,
|
||
const char *version,
|
||
int exact)
|
||
{
|
||
const char *packageName = "Tk";
|
||
const char *errMsg = NULL;
|
||
ClientData clientData = NULL;
|
||
const char *actualVersion = tclStubsPtr->tcl_PkgRequireEx(interp,
|
||
packageName, version, 0, &clientData);
|
||
const TkStubs *stubsPtr = clientData;
|
||
|
||
if (actualVersion == NULL) {
|
||
return NULL;
|
||
}
|
||
|
||
if (exact) {
|
||
const char *p = version;
|
||
int count = 0;
|
||
|
||
while (*p) {
|
||
count += !isDigit(*p++);
|
||
}
|
||
if (count == 1) {
|
||
const char *q = actualVersion;
|
||
|
||
p = version;
|
||
while (*p && (*p == *q)) {
|
||
p++; q++;
|
||
}
|
||
if (*p || isDigit(*q)) {
|
||
/* Construct error message */
|
||
tclStubsPtr->tcl_PkgRequireEx(interp, packageName, version, 1, NULL);
|
||
return NULL;
|
||
}
|
||
} else {
|
||
actualVersion = tclStubsPtr->tcl_PkgRequireEx(interp, packageName,
|
||
version, 1, NULL);
|
||
if (actualVersion == NULL) {
|
||
return NULL;
|
||
}
|
||
}
|
||
}
|
||
if (stubsPtr == NULL) {
|
||
errMsg = "missing stub table pointer";
|
||
} else {
|
||
tkStubsPtr = stubsPtr;
|
||
if (stubsPtr->hooks) {
|
||
tkPlatStubsPtr = stubsPtr->hooks->tkPlatStubs;
|
||
tkIntStubsPtr = stubsPtr->hooks->tkIntStubs;
|
||
tkIntPlatStubsPtr = stubsPtr->hooks->tkIntPlatStubs;
|
||
tkIntXlibStubsPtr = stubsPtr->hooks->tkIntXlibStubs;
|
||
} else {
|
||
tkPlatStubsPtr = NULL;
|
||
tkIntStubsPtr = NULL;
|
||
tkIntPlatStubsPtr = NULL;
|
||
tkIntXlibStubsPtr = NULL;
|
||
}
|
||
return actualVersion;
|
||
}
|
||
tclStubsPtr->tcl_ResetResult(interp);
|
||
tclStubsPtr->tcl_AppendResult(interp, "Error loading ", packageName,
|
||
" (requested version ", version, ", actual version ",
|
||
actualVersion, "): ", errMsg, NULL);
|
||
return NULL;
|
||
}
|
||
|
||
/*
|
||
* Local Variables:
|
||
* mode: c
|
||
* c-basic-offset: 4
|
||
* fill-column: 78
|
||
* End:
|
||
*/
|