diff options
| -rw-r--r-- | generic/tclLoadNone.c | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c index ca0046e..5228292 100644 --- a/generic/tclLoadNone.c +++ b/generic/tclLoadNone.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadNone.c,v 1.3 1999/04/16 00:46:50 stanton Exp $ + * RCS: @(#) $Id: tclLoadNone.c,v 1.4 1999/05/07 20:07:40 stanton Exp $ */ #include "tclInt.h" @@ -18,7 +18,7 @@ /* *---------------------------------------------------------------------- * - * TclLoadFile -- + * TclpLoadFile -- * * This procedure is called to carry out dynamic loading of binary * code; it is intended for use only on systems that don't support @@ -35,7 +35,7 @@ */ int -TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) +TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) Tcl_Interp *interp; /* Used for error reporting. */ char *fileName; /* Name of the file containing the desired * code. */ @@ -44,6 +44,9 @@ TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) Tcl_PackageInitProc **proc1Ptr, **proc2Ptr; /* Where to return the addresses corresponding * to sym1 and sym2. */ + ClientData *clientDataPtr; /* Filled with token for dynamically loaded + * file which will be passed back to + * TclpUnloadFile() to unload the file. */ { Tcl_SetResult(interp, "dynamic loading is not currently available on this system", @@ -80,3 +83,30 @@ TclGuessPackageName(fileName, bufPtr) { return 0; } + +/* + *---------------------------------------------------------------------- + * + * TclpUnloadFile -- + * + * This procedure is called to carry out dynamic unloading of binary + * code; it is intended for use only on systems that don't support + * dynamic loading (it does nothing). + * + * Results: + * None. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +void +TclpUnloadFile(clientData) + ClientData clientData; /* ClientData returned by a previous call + * to TclpLoadFile(). The clientData is + * a token that represents the loaded + * file. */ +{ +} |