Rosetta Code/Fix code tags: Difference between revisions

Content added Content deleted
m (added whitespace before the TOC (table of contents), added a ;Task: and ;Usage: (bold) headers.)
m (→‎{{header|REXX}}: added/changed comments and whitespace, changed indentations.)
Line 729: Line 729:


=={{header|REXX}}==
=={{header|REXX}}==
<lang rexx>/*REXX program fixes (changes) depreciated code tags with newer tags.*/
<lang rexx>/*REXX program fixes (changes) depreciated HTML code tags with newer tags. */
@ = '<' /*ensure RC doesn't get confused.*/
@.=; @.1 = '<%s>' ; new.1 = "<lang %s>"
old. = /*define a default value for OLD.*/
@.2 = '</%s>' ; new.2 = "</lang>"
old.1 = @'%s>' ; new.1 = @'lang %s>'
@.3 = '<code %s>' ; new.3 = "<lang %s>"
old.2 = @'/%s>' ; new.2 = @'/lang>'
@.4 = '</code>' ; new.4 = "</lang>"
old.3 = @'code %s>' ; new.3 = @'lang %s>'
old.4 = @'/code>' ; new.4 = @'/lang>'


ifid = 'Wikisource.txt' /* Input File IDentifier. */
iFID = 'Wikisource.txt' /*the Input File IDentifier. */
ofid = 'converted.txt' /*Output " " */
oFID = 'converted.txt' /*the Output " " */


do while lines(ifid) \== 0 /*keep trunkin' until it's done. */
do while lines(iFID)\==0 /*keep reading the file until finished.*/
_=linein(ifid) /*read a record from input file. */
_=linein(iFID) /*read a record from the input file. */
do j=1 while @.j \== '' /*change old ──► new until finished. */

do j=1 while old.j \== '' /*change old ──► new until done. */
_=changestr(@.j,_,new.j) /*let REXX do the heavy lifting. */
_=changestr(new.j,_,old.j) /*let REXX do the heavy lifting. */
end /*j*/
call lineout oFID,_ /*write re-formatted record to output. */
end /*j*/
end /*while*/ /*stick a fork in it, we're all done. */</lang>

Some older REXXes don't have a &nbsp; '''changestr''' &nbsp; BIF, so one is included here &nbsp; ───► &nbsp; [[CHANGESTR.REX]].
call lineout ofid,_ /*write the re-formatted record. */
end /*while lines(ifid...*/
/*stick a fork in it, we're done.*/</lang>
Some older REXXes don't have a '''changestr''' bif, so one is included here ───► [[CHANGESTR.REX]].
<br><br>
<br><br>