diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-08-25 21:04:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-08-25 21:04:56 (GMT) |
| commit | 871f4bf83fe6726dbc6aa441d1d20de434a97968 (patch) | |
| tree | 9e1d1f90787cac890fac03c9a0296ee5dd18875c /tools/genStubs.tcl | |
| parent | 3def91af131df87f16522a71e524cdaf2f826614 (diff) | |
| download | tcl-871f4bf83fe6726dbc6aa441d1d20de434a97968.zip tcl-871f4bf83fe6726dbc6aa441d1d20de434a97968.tar.gz tcl-871f4bf83fe6726dbc6aa441d1d20de434a97968.tar.bz2 | |
Minor improvement to stubs generation to allow for harmless transfer of
functions between stubs tables by just copying them about.
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
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 -- |