Rosetta Code/Fix code tags: Difference between revisions
→{{header|Phix}}
Line 658:
:g,
).print</lang>
=={{header|Phix}}==
{{trans|D}}
<lang Phix>constant ltext = `_div abap actionscript actionscript3 ada apache
applescript apt_sources asm asp autoit avisynth bash basic4gl bf
blitzbasic bnf boo c c_mac caddcl cadlisp cfdg cfm cil cobol cpp
cpp-qt csharp css d delphi diff dos dot eiffel email fortran
freebasic genero gettext glsl gml gnuplot groovy haskell hq9plus
html4strict idl ini inno intercal io java java5 javascript kixtart
klonec klonecpp latex lisp lolcode lotusformulas lotusscript
lscript lua m68k make matlab mirc modula3 mpasm mxml mysql nsis
objc ocaml ocaml-brief oobas oracle11 oracle8 pascal per perl php
php-brief pic16 pixelbender plsql povray powershell progress
prolog providex python qbasic r rails reg robots ruby sas scala
scheme scilab sdlbasic smalltalk smarty sql tcl teraterm text
thinbasic tsql typoscript vb vbnet verilog vhdl vim visualfoxpro
visualprolog whitespace winbatch xml xorg_conf xpp z80`,
langs = split(substitute(ltext,"\n"," "))
function fix_tags(string text)
for i=1 to length(langs) do
string lang = langs[i],
openl = sprintf("<%s>",{lang}),
openc = sprintf("<code %s>",{lang}),
lopen = sprintf("<lang %s>",{lang}),
closl = sprintf("</%s>",{lang}),
closc = sprintf("</%s>",{"code"}),
lclos = sprintf("</%s>",{"lang"})
text = substitute_all(text,{openl,openc,closl,closc},
{lopen,lopen,lclos,lclos})
end for
return text
end function
constant test = """
lorem ipsum <c>some c code</c>dolor sit amet, <csharp>some
csharp code</csharp> consectetur adipisicing elit, <code r>
some r code </code>sed do eiusmod tempor incididunt
"""
puts(1,fix_tags(test))</lang>
{{out}}
<pre>
lorem ipsum <lang c>some c code</lang>dolor sit amet, <lang csharp>some
csharp code</lang> consectetur adipisicing elit, <lang r>
some r code </lang>sed do eiusmod tempor incididunt
</pre>
=={{header|PicoLisp}}==
Line 674 ⟶ 721:
(T (prin "<" S)) ) ) ) ) )
(bye)</lang>
=={{header|PureBasic}}==
<lang PureBasic>If Not OpenConsole()
| |||