Duplicated declarations for TIP#139; docs still to do.

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  <fellowsd@cs.man.ac.uk>
+
+	* 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  <zoran@archiwrae.com>
 
 	* 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)
 }
 
 ##############################################################################