diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-02-24 22:58:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-02-24 22:58:28 (GMT) |
| commit | 0575111723f30910c2e2362a7dba2853c95c6969 (patch) | |
| tree | 28f7d836fd11991bcc636e6b4b31626abc424381 /generic/tcl.h | |
| parent | 6842d4e8779d8ccdfd67170215cef172e9474e9e (diff) | |
| download | tcl-0575111723f30910c2e2362a7dba2853c95c6969.zip tcl-0575111723f30910c2e2362a7dba2853c95c6969.tar.gz tcl-0575111723f30910c2e2362a7dba2853c95c6969.tar.bz2 | |
TIP#100 implementation largely based on work by Georgios Petasis.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 83ad1bd..e53fcf0 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.170 2004/01/09 20:55:26 davygrvy Exp $ + * RCS: @(#) $Id: tcl.h,v 1.171 2004/02/24 22:58:45 dkf Exp $ */ #ifndef _TCL @@ -697,6 +697,8 @@ typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); +typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, + int flags)); typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(CONST char *, format)); typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, Tcl_Channel chan, char *address, int port)); @@ -1627,6 +1629,11 @@ typedef struct Tcl_GlobTypeData { #define TCL_GLOB_PERM_W (1<<3) #define TCL_GLOB_PERM_X (1<<4) +/* + * Flags for the unload callback procedure + */ +#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) +#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) /* * Typedefs for the various filesystem operations: |