diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tools/genStubs.tcl | 7 |
2 files changed, 8 insertions, 3 deletions
@@ -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 -- |