diff options
Diffstat (limited to 'tcl8.6/generic/tclTomMathStubLib.c')
-rw-r--r-- | tcl8.6/generic/tclTomMathStubLib.c | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/tcl8.6/generic/tclTomMathStubLib.c b/tcl8.6/generic/tclTomMathStubLib.c deleted file mode 100644 index 324f2a3..0000000 --- a/tcl8.6/generic/tclTomMathStubLib.c +++ /dev/null @@ -1,79 +0,0 @@ -/* - * tclTomMathStubLib.c -- - * - * Stub object that will be statically linked into extensions that want - * to access Tcl. - * - * 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 "tclInt.h" - -MODULE_SCOPE const TclTomMathStubs *tclTomMathStubsPtr; - -const TclTomMathStubs *tclTomMathStubsPtr = NULL; - - -/* - *---------------------------------------------------------------------- - * - * TclTomMathInitStubs -- - * - * Initializes the Stubs table for Tcl's subset of libtommath - * - * Results: - * Returns a standard Tcl result. - * - * This procedure should not be called directly, but rather through - * the TclTomMath_InitStubs macro, to insure that the Stubs table - * matches the header files used in compilation. - * - *---------------------------------------------------------------------- - */ - -MODULE_SCOPE const char * -TclTomMathInitializeStubs( - Tcl_Interp *interp, /* Tcl interpreter */ - const char *version, /* Tcl version needed */ - int epoch, /* Stubs table epoch from the header files */ - int revision) /* Stubs table revision number from the - * header files */ -{ - int exact = 0; - const char *packageName = "tcl::tommath"; - const char *errMsg = NULL; - TclTomMathStubs *stubsPtr = NULL; - const char *actualVersion = tclStubsPtr->tcl_PkgRequireEx(interp, - packageName, version, exact, &stubsPtr); - - if (actualVersion == NULL) { - return NULL; - } - if (stubsPtr == NULL) { - errMsg = "missing stub table pointer"; - } else if(stubsPtr->tclBN_epoch() != epoch) { - errMsg = "epoch number mismatch"; - } else if(stubsPtr->tclBN_revision() != revision) { - errMsg = "requires a later revision"; - } else { - tclTomMathStubsPtr = stubsPtr; - 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: - */ |