summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-05-03 10:03:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-05-03 10:03:00 (GMT)
commit126d43773ca468803c238c2deb4c947f80f4f68d (patch)
treedbd0427d6b1849b96e11daacbebe2c45f381066c
parent7dc8ac4c07c22c671d73cda80c899a453da3407c (diff)
downloadtcl-126d43773ca468803c238c2deb4c947f80f4f68d.zip
tcl-126d43773ca468803c238c2deb4c947f80f4f68d.tar.gz
tcl-126d43773ca468803c238c2deb4c947f80f4f68d.tar.bz2
slightly better formatting, both in genStubs.tcl and in the generated XXX_DEPRECATED functions.
-rw-r--r--tools/genStubs.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 5956711..830ba2b 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -470,9 +470,10 @@ proc genStubs::makeDecl {name decl index} {
append text "/* $index */\n"
if {[info exists stubs($name,deprecated,$index)]} {
- set line "[string toupper $libraryName]_DEPRECATED(\"$stubs($name,deprecated,$index)\")\n$rtype"
+ append text "[string toupper $libraryName]_DEPRECATED(\"$stubs($name,deprecated,$index)\")\n"
+ set line "$rtype"
} else {
- set line "$scspec $rtype"
+ set line "$scspec $rtype"
}
set count [expr {2 - ([string length $line] / 8)}]
append line [string range "\t\t\t" 0 $count]