Minor improvement to stubs generation to allow for harmless transfer of

functions between stubs tables by just copying them about.

2 files changed, 8 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index ae67a74..ad9b26d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-08-25  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
 
+	* tools/genStubs.tcl (genStubs::makeDecl): A more subtle way of
+	generating stubbed declarations allows us to have declarations of
+	a function in multiple interfaces simultaneously.
+
 	* 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
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 36e17db..ca9a01b 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: genStubs.tcl,v 1.15 2003/05/14 19:21:25 das Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.16 2003/08/25 21:04:57 dkf Exp $
 
 package require Tcl 8
 
@@ -397,8 +397,9 @@ proc genStubs::makeDecl {name decl index} {
     }
     append text $line
     
-    append text ");\n"
-    return $text
+    append text ");"
+    format "#ifndef %s_TCL_DECLARED\n#define %s_TCL_DECLARED\n%s\n#endif\n" \
+	    $fname $fname $text
 }
 
 # genStubs::makeMacro --