Anonymous user
Rosetta Code/Fix code tags: Difference between revisions
m
→{{header|R}}
(→{{header|PureBasic}}: Added PureBasic) |
m (→{{header|R}}) |
||
Line 329:
consectetur adipisicing elit,<code r>some r code</code>sed do eiusmod tempor incididunt"
fixtags(page)
</lang>
=={{header|REXX}}==
<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. */
ofid='converted.txt' /*output " " */
do while lines(ifid)\==0 /*keep trunkin' until done. */
_=linein(ifid) /*read a record from the input. */
do k=1 while old.j\=='' /*change old --> new until done. */
_=changestr('<'new.k">",_,'<'old.k">") /*change the text.*/
end
call lineout ofid,_ /*write out the re-formatted rec.*/
end
</lang>
| |||