blob: 7767b0f442ace93bce020b2dd4095222d2bcc774 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
proc say {k v} {set ::say($k) $v}
proc category {k} {}
source locale/english.tcl
puts "#N canvas 0 0 640 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*7+2}]
if {$k == "#color"} {set w 156}
puts "#X obj [expr 180-$w] $y $k;"
regsub "," $v " \\, " v
regsub ";" $v " \\; " v
regsub "\\$" $v "\\$" v
puts "#X text 200 $y $v;"
if {$k == "#color"} {incr y 40}
incr y 32
}
|
