#!/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}
set files [glob *-help.pd cv/*-help.pd gf/*-help.pd]
set n [llength $files]; set i 0
foreach fname $files {
set f [open $fname]
set g [open png/[regsub {pd$} $fname html] w]
puts $g "$fname"
puts $g ""
puts $g ""
puts $g "![](\"[regsub)
"
puts $g ""
foreach line [pd_mess_split [read $f]] {
if {[lindex $line 1] == "text"} {puts $g [scrounche [lrange $line 4 end]]}
}
puts $g "
"
close $f
close $g
incr i; puts -nonewline "\r$i files out of $n"; flush stdout
}
puts ""