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>\&lt;} aline
    6: 	regsub -all {</tag>} $aline {\&gt;</b>} aline
    7: 	regsub -all {<arg>} $aline {<i>} aline
    8: 	regsub -all {</arg>} $aline {</i>} aline
    9: 	puts $aline
   10: }