From 089475041fe26964d72cb2ebc3559a36ba89a2f2 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Tue, 8 Jul 2008 05:56:10 +0000
Subject: trying to import gridflow 0.9.4

svn path=/trunk/; revision=10148
---
 externals/gridflow/doc/make_index.tcl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 externals/gridflow/doc/make_index.tcl

(limited to 'externals/gridflow/doc/make_index.tcl')

diff --git a/externals/gridflow/doc/make_index.tcl b/externals/gridflow/doc/make_index.tcl
new file mode 100644
index 00000000..7767b0f4
--- /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 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
+}
-- 
cgit v1.2.1