[Gridflow-cvs] [svn] commit: r6067 - in /trunk/doc/flow_classes: help_to_html shoot.pd

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Fri Aug 13 01:52:56 EDT 2010


Author: matju
Date: Fri Aug 13 01:52:56 2010
New Revision: 6067

Log:
fix html generation and reenable autoquit

Modified:
    trunk/doc/flow_classes/help_to_html
    trunk/doc/flow_classes/shoot.pd

Modified: trunk/doc/flow_classes/help_to_html
==============================================================================
--- trunk/doc/flow_classes/help_to_html (original)
+++ trunk/doc/flow_classes/help_to_html Fri Aug 13 01:52:56 2010
@@ -1,6 +1,15 @@
 #!/usr/bin/env tclsh
 
 source ../../tcl/pd_parser.tcl
+
+proc scrounche {list} {
+  set s [join $list " "]
+  regsub -all { \\,} $s ,
+}
+
+#puts      [join [list hello \\, world] " "]
+#puts [scrounche [list hello \\, world]]
+#exit
 
 proc basename {f} {lindex [file split $f] end}
 
@@ -15,7 +24,7 @@
   puts $g "<img src=\"[regsub # [regsub {pd$} [basename $fname] png] %23]\"><br clear=\"left\">"
   puts $g "<p class=\"hidden\">"
   foreach line [pd_mess_split [read $f]] {
-    if {[lindex $line 1] == "text"} {puts $g [lrange $line 4 end]}
+    if {[lindex $line 1] == "text"} {puts $g [scrounche [lrange $line 4 end]]}
   }
   puts $g "</p></body></html>"
   close $f

Modified: trunk/doc/flow_classes/shoot.pd
==============================================================================
--- trunk/doc/flow_classes/shoot.pd (original)
+++ trunk/doc/flow_classes/shoot.pd Fri Aug 13 01:52:56 2010
@@ -71,7 +71,7 @@
 #X obj 142 459 shunt;
 #X obj 185 207 t b s b;
 #X msg 178 459 \; pd quit;
-#X msg 309 382 1;
+#X msg 224 227 1;
 #X msg 82 245 list \$2 \$1;
 #X connect 0 0 27 1;
 #X connect 1 0 0 0;



More information about the Gridflow-cvs mailing list