Return to temp.tcl CVS log

Up to [LON-CAPA] / doc / homework

Annotation of doc/homework/temp.tcl, revision 1.1

1.1     ! albertel    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: }