diff options
| author | stanton <stanton> | 1999-05-25 01:00:37 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-25 01:00:37 (GMT) |
| commit | 8046888a0635b03c1b9cb90d4e759a5e39baa820 (patch) | |
| tree | d9916e2e253ddca615773b0293b9e928f532ff33 | |
| parent | 7f971b8cac02f17596d5bc7fbb20d4eee85caa84 (diff) | |
| download | tcl-8046888a0635b03c1b9cb90d4e759a5e39baa820.zip tcl-8046888a0635b03c1b9cb90d4e759a5e39baa820.tar.gz tcl-8046888a0635b03c1b9cb90d4e759a5e39baa820.tar.bz2 | |
* tools/genStubs.tcl: Changed to allow a list of platforms instead
of just one at a time.
| -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 |