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