From 29826f66ff19f23d00fdf93cccc2d4b4e6738365 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 25 Aug 2003 20:06:04 +0000 Subject: Duplicated declarations for TIP#139; docs still to do. --- ChangeLog | 10 ++++++++++ generic/tcl.decls | 52 +++++++++++++++++++++++++++++++++++++++++++++++++--- 2 files changed, 59 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 467bf73..ae67a74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2003-08-25 Donal K. Fellows + + * generic/tcl.decls: Duplicated some namespace declarations from + tclInt.decls here, as mandated by TIP #139. This is OK since the + declarations match and will end up using the declarations in the + public code from now on because of #include ordering. Keeping the + old declarations in tclInt.decls; there's no need to gratuitously + break compatability for those extensions which are already clients + of the namespace code. + 2003-08-23 Zoran Vasiljevic * generic/tclIOUtil.c: merged fixes for thread-unsafe 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) } ############################################################################## -- cgit v0.12