diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-04-22 08:28:57 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-04-22 08:28:57 (GMT) |
commit | 0d4cf9e55d5aa4e3bbe050c5dc6ff3860102cbc1 (patch) | |
tree | f62192bebac6f647bb6b4bcd8cd0335aee34f2bc /tools | |
parent | 373d78b5a2f81bf3aefd6e0e6fab212c6d47ae74 (diff) | |
parent | 3d68e9781710f7ffb984a7e6ec2105ca91dccb92 (diff) | |
download | tcl-0d4cf9e55d5aa4e3bbe050c5dc6ff3860102cbc1.zip tcl-0d4cf9e55d5aa4e3bbe050c5dc6ff3860102cbc1.tar.gz tcl-0d4cf9e55d5aa4e3bbe050c5dc6ff3860102cbc1.tar.bz2 |
merge latest trunkjn_frq_3257396
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 163a354..a9a874a 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -190,6 +190,8 @@ proc genStubs::declare {args} { puts stderr "Duplicate entry: declare $args" } } + regsub -all {\*[ \t]*} $decl { *} decl + regsub -all {\* \*} $decl {**} decl regsub -all "\[ \t\n\]+" [string trim $decl] " " decl set decl [parseDecl $decl] |