diff options
author | vincentdarley <vincentdarley@noemail.net> | 2002-07-17 20:00:44 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2002-07-17 20:00:44 (GMT) |
commit | 8da9f5e952e536d074667c8c6e48da85176f0811 (patch) | |
tree | 7bf708f2c17514ad40291886268bc3cf73d95ddc /generic/tclInt.h | |
parent | bb4c26c9c7f06f9cf4dfa26d3f12d647336e6162 (diff) | |
download | tcl-8da9f5e952e536d074667c8c6e48da85176f0811.zip tcl-8da9f5e952e536d074667c8c6e48da85176f0811.tar.gz tcl-8da9f5e952e536d074667c8c6e48da85176f0811.tar.bz2 |
load internals refactoring
FossilOrigin-Name: bbffcec48d3efc0e02e13b0bbdcdb98281bf431f
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 3fca93b..ba9ebc3 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.101 2002/07/17 10:36:23 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.102 2002/07/17 20:00:45 vincentdarley Exp $ */ #ifndef _TCLINT @@ -1563,7 +1563,8 @@ typedef struct TclFile_ *TclFile; * Opaque names for platform specific types. */ -typedef struct TclpTime_t_ *TclpTime_t; +typedef struct TclpTime_t_ *TclpTime_t; +typedef struct TclLoadHandle_ *TclLoadHandle; /* * The "globParameters" argument of the function TclGlob is an @@ -1829,8 +1830,14 @@ EXTERN void TclTransferResult _ANSI_ARGS_((Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp)); EXTERN Tcl_Obj* TclpNativeToNormalized _ANSI_ARGS_((ClientData clientData)); -EXTERN Tcl_Obj* TclpFilesystemPathType +EXTERN Tcl_Obj* TclpFilesystemPathType _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); +EXTERN Tcl_PackageInitProc* TclpFindSymbol _ANSI_ARGS_((Tcl_Interp *interp, + TclLoadHandle loadHandle, CONST char *symbol)); +EXTERN int TclpDlopen _ANSI_ARGS_((Tcl_Interp *interp, + Tcl_Obj *pathPtr, + TclLoadHandle *loadHandle, + Tcl_FSUnloadFileProc **unloadProcPtr)); /* *---------------------------------------------------------------- |