Return to temp.tcl CVS log | Up to [LON-CAPA] / doc / homework |
-adding homework documentation
set tag "" while {1} { set aline [gets file0] if {[eof file0]} { exit} regsub -all {<tag>} $aline {<b>\<} aline regsub -all {</tag>} $aline {\></b>} aline regsub -all {<arg>} $aline {<i>} aline regsub -all {</arg>} $aline {</i>} aline puts $aline }