diff options
author | stanton <stanton@noemail.net> | 1999-05-25 01:00:36 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-05-25 01:00:36 (GMT) |
commit | a5bced7773739c5367666b23cbd49804f1faeec1 (patch) | |
tree | d9916e2e253ddca615773b0293b9e928f532ff33 /tools | |
parent | d4d822458f5aba15cf3f7545f93d197b3ac2cb2c (diff) | |
download | tcl-a5bced7773739c5367666b23cbd49804f1faeec1.zip tcl-a5bced7773739c5367666b23cbd49804f1faeec1.tar.gz tcl-a5bced7773739c5367666b23cbd49804f1faeec1.tar.bz2 |
* tools/genStubs.tcl: Changed to allow a list of platforms instead
of just one at a time.
FossilOrigin-Name: 4c82ed51c1b0a6c0d76dfd01368f5014f419fc30
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index e4bc088..16033cb 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.5 1999/04/30 22:45:03 stanton Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.6 1999/05/25 01:00:37 stanton Exp $ namespace eval genStubs { # libraryName -- @@ -134,21 +134,26 @@ proc genStubs::declare {args} { if {[llength $args] != 3} { puts stderr "wrong # args: declare $args" } - lassign $args index platform decl + lassign $args index platformList decl # Check for duplicate declarations, then add the declaration and # bump the lastNum counter if necessary. - if {[info exists stubs($curName,$platform,$index)]} { - puts stderr "Duplicate entry: declare $args" + foreach platform $platformList { + if {[info exists stubs($curName,$platform,$index)]} { + puts stderr "Duplicate entry: declare $args" + } } regsub -all "\[ \t\n\]+" [string trim $decl] " " decl set decl [parseDecl $decl] - if {$decl != ""} { - set stubs($curName,$platform,$index) $decl - if {![info exists stubs($curName,$platform,lastNum)] \ - || ($index > $stubs($curName,$platform,lastNum))} { - set stubs($curName,$platform,lastNum) $index + + foreach platform $platformList { + if {$decl != ""} { + set stubs($curName,$platform,$index) $decl + if {![info exists stubs($curName,$platform,lastNum)] \ + || ($index > $stubs($curName,$platform,lastNum))} { + set stubs($curName,$platform,lastNum) $index + } } } return |