Anonymous user
Rosetta Code/Fix code tags: Difference between revisions
→{{header|REXX}}: fixed bad WHILE clause in DO loop, added whitespace, changed comments. -- ~~~~
(added "go" to language list.) |
(→{{header|REXX}}: fixed bad WHILE clause in DO loop, added whitespace, changed comments. -- ~~~~) |
||
Line 437:
=={{header|REXX}}==
<lang rexx>/*REXX program fixes (changes) depreciated code tags with newer tags.*/
@ = '<' /*ensure RC
old. = /*define a default value for OLD.*/
old.1 = @'%s>' ; new.1 = @'lang %s>'
Line 446 ⟶ 445:
old.4 = @'/code>' ; new.4 = @'/lang>'
ifid = 'Wikisource.txt' /*
ofid = 'converted.txt' /*
do while lines(ifid) \== 0
_=linein(ifid) /*read a record from
do
_=changestr(new.
end /*
call lineout ofid,_ /*write
end /*while lines(ifid
/*stick a fork in it, we're done.*/</lang>
Some older REXXes don't have the '''changestr''' bif, so one is include below.
| |||