From 871f4bf83fe6726dbc6aa441d1d20de434a97968 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 25 Aug 2003 21:04:56 +0000 Subject: Minor improvement to stubs generation to allow for harmless transfer of functions between stubs tables by just copying them about. --- ChangeLog | 4 ++++ tools/genStubs.tcl | 7 ++++--- 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 + * 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 -- -- cgit v0.12