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