diff options
| author | vincentdarley <vincentdarley> | 2002-07-17 20:00:44 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-07-17 20:00:44 (GMT) |
| commit | 7074d76f2ba74ea9a53f47fb4815145982285625 (patch) | |
| tree | 7bf708f2c17514ad40291886268bc3cf73d95ddc /generic/tclLoadNone.c | |
| parent | 5625494c13f92f83294785e3691a89450f40c21a (diff) | |
| download | tcl-7074d76f2ba74ea9a53f47fb4815145982285625.zip tcl-7074d76f2ba74ea9a53f47fb4815145982285625.tar.gz tcl-7074d76f2ba74ea9a53f47fb4815145982285625.tar.bz2 | |
load internals refactoring
Diffstat (limited to 'generic/tclLoadNone.c')
| -rw-r--r-- | generic/tclLoadNone.c | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c index ee79130..9d93ba1 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.8 2002/01/21 22:47:52 davygrvy Exp $ + * RCS: @(#) $Id: tclLoadNone.c,v 1.9 2002/07/17 20:00:46 vincentdarley Exp $ */ #include "tclInt.h" @@ -35,19 +35,17 @@ */ int -TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr, unloadProcPtr) +TclpDlopen(interp, pathPtr, loadHandle, unloadProcPtr) Tcl_Interp *interp; /* Used for error reporting. */ Tcl_Obj *pathPtr; /* Name of the file containing the desired - * code. */ - CONST char *sym1, *sym2; /* Names of two procedures to look up in - * the file's symbol table. */ - Tcl_PackageInitProc **proc1Ptr, **proc2Ptr; - /* Where to return the addresses corresponding - * to sym1 and sym2. */ - ClientData *clientDataPtr; /* Filled with token for dynamically loaded + * code (UTF-8). */ + TclLoadHandle *loadHandle; /* Filled with token for dynamically loaded * file which will be passed back to - * TclpUnloadFile() to unload the file. */ - Tcl_FSUnloadFileProc **unloadProcPtr; + * (*unloadProcPtr)() to unload the file. */ + Tcl_FSUnloadFileProc **unloadProcPtr; + /* Filled with address of Tcl_FSUnloadFileProc + * function which should be used for + * this file. */ { Tcl_SetResult(interp, "dynamic loading is not currently available on this system", @@ -55,6 +53,15 @@ TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr, unl return TCL_ERROR; } +Tcl_PackageInitProc* +TclpFindSymbol(interp, loadHandle, symbol) + Tcl_Interp *interp; + TclLoadHandle loadHandle; + CONST char *symbol; +{ + return NULL; +} + /* *---------------------------------------------------------------------- * |