testdata/mkhtml.tcl

   1 set f [open admin.leg]
   2 set out [open admin_html.leg w]
   3 while {[gets $f line]>=0} {
   4   if ![regexp {^ *([0-9]+)  (.*)$} $line all code text] continue
   5   if {$code<0} continue
   6   set outname "html/$code.html"
   7   puts $out "$code  $outname"
   8   set f2 [open $outname "w"]
   9   puts $f2 "<HTML>
  10 <HEAD>
  11 <TITLE>$text</TITLE>
  12 </HEAD>
  13 <BODY>
  14 <H1>$text</H1>
  15
  16 üÔÏ ÏÐÉÓÁÎÉÅ ÒÅÇÉÏÎÁ &quot;$text&quot;
  17 </BODY>
  18 </HTML>"
  19 close $f2
  20 }
  21 close $out
  22 close $f
  23
  24