diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 52 |
1 files changed, 49 insertions, 3 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 0f8935d..fe9ceba 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -11,7 +11,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.decls,v 1.98 2003/06/09 22:48:32 andreas_kupries Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.99 2003/08/25 20:06:04 dkf Exp $ library tcl @@ -1799,8 +1799,54 @@ declare 504 generic { # New export due to TIP#59 declare 505 generic { - void Tcl_RegisterConfig (Tcl_Interp* interp, CONST char* pkgName, Tcl_Config* configuration, \ - CONST char* valEncoding) + void Tcl_RegisterConfig(Tcl_Interp* interp, CONST char* pkgName, + Tcl_Config* configuration, CONST char* valEncoding) +} + +# Transferred from tclInt.decls due to TIP #139 +declare 506 generic { + Tcl_Namespace *Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name, + ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc) +} +declare 507 generic { + void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) +} +declare 508 generic { + int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + Tcl_Obj *objPtr) +} +declare 509 generic { + int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + CONST char *pattern, int resetListFirst) +} +declare 510 generic { + int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + CONST char *pattern, int allowOverwrite) +} +declare 511 generic { + int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, + CONST char *pattern) +} +declare 512 generic { + Tcl_Namespace *Tcl_GetCurrentNamespace(Tcl_Interp *interp) +} +declare 513 generic { + Tcl_Namespace *Tcl_GetGlobalNamespace(Tcl_Interp *interp) +} +declare 514 generic { + Tcl_Namespace *Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name, + Tcl_Namespace *contextNsPtr, int flags) +} +declare 515 generic { + Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, + Tcl_Namespace *contextNsPtr, int flags) +} +declare 516 generic { + Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) +} +declare 517 generic { + void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, + Tcl_Obj *objPtr) } ############################################################################## |