summaryrefslogtreecommitdiffstats
path: root/tools
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)
commit709366bdfe97b432487806c7cdbfe1eed1c365f2 (patch)
treedbd0427d6b1849b96e11daacbebe2c45f381066c /tools
parent910200b637f2025d21da89213ea124bb28785632 (diff)
downloadtcl-709366bdfe97b432487806c7cdbfe1eed1c365f2.zip
tcl-709366bdfe97b432487806c7cdbfe1eed1c365f2.tar.gz
tcl-709366bdfe97b432487806c7cdbfe1eed1c365f2.tar.bz2
slightly better formatting, both in genStubs.tcl and in the generated XXX_DEPRECATED functions.
Diffstat (limited to 'tools')
-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]