Rosetta Code/Fix code tags: Difference between revisions

</pre>

<pre>

<lang AutoHotkey>; usage: > fixtags.ahk input.txt ouput.txt

{{trans|Java}}

‘ada’, ‘apache’, ‘applescript’, ‘apt_sources’, ‘asm’, ‘asp’,

‘autoit’, ‘avisynth’, ‘bar’, ‘bash’, ‘basic4gl’, ‘bf’,

text = text.replace(‘</code>’, ‘</’""‘lang>’)

{{out}}

=={{header|AutoHotkey}}==

FileRead, text, %1%

langs = ada,awk,autohotkey,etc

}

FileAppend, % text, %2%

=={{header|D}}==

{{trans|Python}}

immutable langs = "_div abap actionscript actionscript3 ada apache

.fixTags

.writeln;

{{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>

{{libheader| System.RegularExpressions}}

{{Trans|Go}}

program Fix_code_tags;

begin

Fix;

=={{header|Erlang}}==

Commented away are 3 lines that would create a dict of the existing languages on Rosetta Code. Since the examples have 3 imaginary code tags, I replaced that code this way.

#! /usr/bin/env escript

-module( fix_code_tags ).

loop( eof, Acc ) -> lists:reverse( Acc );

loop( Line, Acc ) -> loop( io:get_line(""), [Line | Acc] ).

{{out}}

<pre>

=={{header|F_Sharp|F#}}==

While the ubiquitous loop over languages approach can be used, here we capture all tag variations to fix in one dotNet regex.

open System.Text.RegularExpressions

printfn "%s" (regexForOldLangSyntax.Replace(Console.In.ReadToEnd(), replaceEvaluator))

Output

<pre>&gt;Rosetta.exe

=={{header|Go}}==

import "fmt"

return in

=={{header|J}}==

'''Solution:'''

langs=. <;._1 LF -.~ noun define NB. replace with real lang strings

foo bar

baz

<pre>patterns=. noun define

<%s>|<lang %s>|

</code>|</lang>|

)</pre>

'''Example Usage:'''

constituto id, mea an omittam fierent vituperatoribus.</pre>

Reading/writing file:

=={{header|Java}}==

import java.io.File;

import java.io.FileReader;

}

}

Example:

=={{header|JavaScript}}==

{{works with|SpiderMonkey}}

var end_tag = '</'+'lang>';

.replace(new RegExp('</' + langs[i] + '>', 'gi'), end_tag);

print(line);

=={{header|Julia}}==

{{trans|Python}}

langs = ["ada", "cpp-qt", "pascal", "lscript", "z80", "visualprolog",

"html4strict", "cil", "objc", "asm", "progress", "teraterm", "hq9plus",

const txt = readstring(ARGS[1])

=={{header|Lua}}==

--thanks, random python guy

langs = {'ada', 'cpp-qt', 'pascal', 'lscript', 'z80', 'visualprolog',

print(line)

end

=={{header|Maple}}==

txt := FileTools[Text][ReadFile]("C:/Users/username/Desktop/text.txt"):

#langs should be a real list of programming languages

txt := StringTools:-SubstituteAll(txt, "</code>", "<#/lang>"):

end do;

{{Out|Output}}

<pre>

=={{header|Mathematica}}/{{header|Wolfram Language}}==

{"</"~~Shortest[__]~~">"->"</lang>",

("<code "|"<")~~Shortest[x__]~~">"->"<lang "~~ x~~">"}

{{out}}

<pre>Lorem ipsum<lang foo>saepe audire</lang>elaboraret ne quo,id equidem

=={{header|Nim}}==

{{trans|Python}}

const

text = text.replacef(re"(?s)<code (.+?)>(.*?)</code>", r"<lang $1>$2</lang>")

=={{header|OCaml}}==

let langs =

List.fold_left (fun str lang ->

(repl4 lang (repl3 lang (repl2 lang (repl1 lang str))))

(in the code the strings <nowiki></lang></nowiki> have been split in order to not confuse the wiki)

this line of code:

could also be written like this:

=={{header|Perl}}==

html4strict cil objc asm progress teraterm hq9plus genero tsql

email pic16 tcl apt_sources io apache vhdl avisynth winbatch

$text =~ s|<code (.+?)>(.*?)</code>|<lang $1>$2<$slang>|sg;

=={{header|Phix}}==

{{trans|D}}

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">ltext</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">`_div abap actionscript actionscript3 ada apache

"""</span>

<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fix_tags</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test</span><span style="color: #0000FF;">))</span>

{{out}}

<pre>

=={{header|PicoLisp}}==

(let Lang '("ada" "awk" "c" "forth" "prolog" "python" "z80")

(prin "</lang") )

(T (prin "<" S)) ) ) ) ) )

=={{header|PureBasic}}==

End

ElseIf CountProgramParameters() <> 2

CloseFile(1)

EndIf

=={{header|Python}}==

print(txt, '\n=>\n', text2)

<pre>

<lang AutoHotkey>; usage: > fixtags.ahk input.txt ouput.txt

print $text;</lang>

=>

html4strict cil objc asm progress teraterm hq9plus genero tsql

email pic16 tcl apt_sources io apache vhdl avisynth winbatch

=>

I HAS A bottles ITZ 99 I HAS A plural ITZ "Z" I HAS A lyric ITZ "99 BOTTLZ OV BEER"

=={{header|R}}==

Note that the instances of ##### are to stop the wiki getting confused. Please remove them before running the code.

fixtags <- function(page)

{

consectetur adipisicing elit,<code r>some r code</code>sed do eiusmod tempor incididunt"

fixtags(page)

=={{header|Racket}}==

#lang racket

[else all]))

(loop)))

=={{header|Raku}}==

=={{header|REXX}}==

@="<"; old.=; old.1 = @'%s>' ; new.1 = @"lang %s>"

old.2 = @'/%s>' ; new.2 = @"/lang>"

end /*j*/

call lineout oFID,$ /*write re-formatted record to output. */

Some older REXXes don't have a &nbsp; '''changestr''' &nbsp; BIF, so one is included here &nbsp; ───► &nbsp; [[CHANGESTR.REX]].

<br><br>

=={{header|Ruby}}==

#text = $stdin.read

# for testing, use

altera electram. Tota adhuc altera te sea, <code bar>soluta appetere ut mel</bar>.

Quo quis graecis vivendo te, <baz>posse nullam lobortis ex usu</code>. Eam volumus perpetua

<pre>Lorem ipsum <lang foo>saepe audire</lang> elaboraret ne quo, id equidem

=={{header|Rust}}==

extern crate regex;

}

=={{header|Scala}}==

{{Out}}

Experience it running in your browser at [https://scastie.scala-lang.org/5U6vqsOaTi6AU5FcqfA2lA Scastie (remote JVM)].

val rx = // See for regex explanation: https://regex101.com/r/N8X4x7/3/

// Flags ignore case, dot matching line breaks, unicode support

})) // ${"/lan"}g is the <noWiki> escape.

=={{header|Sidef}}==

html4strict cil objc asm progress teraterm hq9plus genero tsql

email pic16 tcl apt_sources io apache vhdl avisynth winbatch

);

=={{header|Tcl}}==

ada cpp-qt pascal lscript z80 visualprolog html4strict cil objc asm progress teraterm

hq9plus genero tsql email pic16 tcl apt_sources io apache vhdl avisynth winbatch vbnet

lappend replacements "<code $lang>" "<lang $lang>"

}

=={{header|Wren}}==

{{libheader|Wren-pattern}}

var source = """

}

{{out}}

=={{header|zkl}}==

re,n,buf:=RegExp(src),0,Data();

while(re.search(data,True,n)){

replace(data,src,dst)

}

Note: the "</" "lang>" to keep /lang the wiki from getting confused (it is string concatenation).

{{out}}