Rosetta Code/Fix code tags: Difference between revisions
Content added Content deleted
(→{{header|PureBasic}}: Added PureBasic) |
m (→{{header|R}}) |
||
Line 329: | Line 329: | ||
consectetur adipisicing elit,<code r>some r code</code>sed do eiusmod tempor incididunt" |
consectetur adipisicing elit,<code r>some r code</code>sed do eiusmod tempor incididunt" |
||
fixtags(page) |
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> |
</lang> |
||