[Gridflow-cvs] [svn] commit: r6064 - /trunk/doc/flow_classes/help_to_html

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Fri Aug 13 01:19:44 EDT 2010


Author: matju
Date: Fri Aug 13 01:19:43 2010
New Revision: 6064

Log:
fix img src again

Modified:
    trunk/doc/flow_classes/help_to_html

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:19:43 2010
@@ -2,12 +2,13 @@
 
 source ../../tcl/pd_parser.tcl
 
+proc basename {f} {lindex [file split $f] end}
+
 set files [glob *-help.pd cv/*-help.pd gf/*-help.pd]
 set n [llength $files]; set i 0
 foreach fname $files {
-  puts -nonewline "\r$i files out of $n"; flush stdout
   set f [open $fname]
-  set g [open png/[regsub {pd$} $fname html] w]
+  set g [open png/[regsub {pd$} [basename $fname] html] w]
   puts $g "<html><head><title>$fname</title></head>"
   puts $g "<style type=\"text/css\">.hidden\{font-size: 8px\; color: white\}</style>"
   puts $g "<body>"
@@ -19,6 +20,6 @@
   puts $g "</p></body></html>"
   close $f
   close $g
-  incr i
+  incr i; puts -nonewline "\r$i files out of $n"; flush stdout
 }
 puts ""



More information about the Gridflow-cvs mailing list