summaryrefslogtreecommitdiffstats
path: root/tools/genStubs.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-08-25 21:04:56 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-08-25 21:04:56 (GMT)
commit871f4bf83fe6726dbc6aa441d1d20de434a97968 (patch)
tree9e1d1f90787cac890fac03c9a0296ee5dd18875c /tools/genStubs.tcl
parent3def91af131df87f16522a71e524cdaf2f826614 (diff)
downloadtcl-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.tcl7
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 --