1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
|
/*
* trfStubLib.c --
*
* Stub object that will be statically linked into extensions that wish
* to access Trf.
*/
/*
* We need to ensure that we use the stub macros so that this file contains
* no references to any of the stub functions. This will make it possible
* to build an extension that references Trf_InitStubs but doesn't end up
* including the rest of the stub functions.
*/
#ifndef USE_TCL_STUBS
#define USE_TCL_STUBS
#endif
#undef USE_TCL_STUB_PROCS
#ifndef USE_TRF_STUBS
#define USE_TRF_STUBS
#endif
#undef USE_TRF_STUB_PROCS
#include "transform.h"
#include "trfIntDecls.h"
/*
* Ensure that Trf_InitStubs is built as an exported symbol. The other stub
* functions should be built as non-exported symbols.
*/
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT
TrfStubs *trfStubsPtr;
TrfIntStubs *trfIntStubsPtr;
/*
*----------------------------------------------------------------------
*
* Trf_InitStubs --
*
* Checks that the correct version of Trf is loaded and that it
* supports stubs. It then initialises the stub table pointers.
*
* Results:
* The actual version of Trf that satisfies the request, or
* NULL to indicate that an error occurred.
*
* Side effects:
* Sets the stub table pointers.
*
*----------------------------------------------------------------------
*/
#ifdef Trf_InitStubs
#undef Trf_InitStubs
#endif
char *
Trf_InitStubs(interp, version, exact)
Tcl_Interp *interp;
CONST char *version;
int exact;
{
CONST char *actualVersion;
actualVersion = Tcl_PkgRequireEx(interp, "Trf", (char *) version, exact,
(ClientData *) &trfStubsPtr);
if (!actualVersion) {
return NULL;
}
if (!trfStubsPtr) {
Tcl_SetResult(interp,
"This implementation of Trf does not support stubs",
TCL_STATIC);
return NULL;
}
trfIntStubsPtr = trfStubsPtr->hooks->trfIntStubs;
return (char*) actualVersion;
}
|