Anonymous user
Rosetta Code/Fix code tags: Difference between revisions
m
→{{header|REXX}}: re-aligned first comment, added whitespace. -- ~~~~
Capra Hircus (talk | contribs) No edit summary |
m (→{{header|REXX}}: re-aligned first comment, added whitespace. -- ~~~~) |
||
Line 348:
=={{header|REXX}}==
Some older REXXes don't have the '''changestr''' bif, so one is include here.
<lang rexx>/*REXX program fixes (changes) depreciated code tags with newer tags.
old.='' /*define a default value for OLD.*/
old.1='<%s>' ; new.1='<lang %s>'
old.2='</%s>' ; new.2='</lang>'
old.3='<code %s>' ; new.3='<lang %s>'
old.4='</code>' ; new.4='</lang>'
ifid='Wikisource.txt' /* input file identifier. */
Line 363 ⟶ 364:
do k=1 while old.j\=='' /*change old --> new until done. */
_=changestr(
end
call lineout ofid,_ /*write out the re-formatted rec.*/
end
exit /*stick a fork in it, we're done.*/
/*───────────────────────────CHANGESTR subroutine───────────────────────*/
changestr: procedure; parse arg o,h,n; r=; w=length(o); if w==0 then return n||h
|