diff options
author | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:37:00 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:37:00 +0000 |
commit | 5a6bee4fe076e06514c6e4e538590dd3a2a5cdc3 (patch) | |
tree | ecf543b363457a0c861bfb187080a45fdeffc349 /externals/gridflow/doc/make_index.tcl | |
parent | 5e6bb4f4786dd39158ffe02913590cc3dea21ebd (diff) |
upgrade gridflow
svn path=/trunk/; revision=12728
Diffstat (limited to 'externals/gridflow/doc/make_index.tcl')
-rw-r--r-- | externals/gridflow/doc/make_index.tcl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/externals/gridflow/doc/make_index.tcl b/externals/gridflow/doc/make_index.tcl new file mode 100644 index 00000000..8b95003e --- /dev/null +++ b/externals/gridflow/doc/make_index.tcl @@ -0,0 +1,29 @@ +proc say {k v} {set ::say($k) $v} +proc category {k} {} +source locale/english.tcl +puts "#N canvas 0 0 560 480 10 ;" +set y 50 +foreach k [lsort [array names ::say *]] { + set v $::say($k) + if {$k == "#"} {set k "# +"} + if {$k == "#fold"} {set k "#fold +"} + if {$k == "#scan"} {set k "#scan +"} + if {$k == "#outer"} {set k "#outer +"} + if {$k == "#cast"} {set k "#cast i"} + if {$k == "#for"} {set k "#for 0 4 1"} + if {$k == "#redim"} {set k "#redim ()"} + if {$k == "receives"} {set k "receives \$0-"} + if {$k == "send39"} {set k "send39 \$0-patchname"} + set w [string length $k] + regsub "\\$" $k "\\$" k + if {$w<3} {set w 3} + set w [expr {$w*6+2}] + if {$k == "#color"} {set w 156} + puts "#X obj [expr 160-$w] $y $k;" + regsub "," $v " \\, " v + regsub ";" $v " \\; " v + regsub "\\$" $v "\\$" v + puts "#X text 180 $y $v;" + if {$k == "#color"} {incr y 40} + incr y 32 +} |