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

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Thu Aug 12 23:02:42 EDT 2010


Author: matju
Date: Thu Aug 12 23:02:39 2010
New Revision: 6060

Log:
progress report

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 Thu Aug 12 23:02:39 2010
@@ -2,7 +2,10 @@
 
 source ../../tcl/pd_parser.tcl
 
-foreach fname [glob *-help.pd cv/*-help.pd gf/*-help.pd] {
+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]
   puts $g "<html><head><title>$fname</title></head>"
@@ -16,6 +19,6 @@
   puts $g "</p></body></html>"
   close $f
   close $g
-  #exit
+  incr i
 }
-
+puts ""



More information about the Gridflow-cvs mailing list