Rosetta Code/Fix code tags: Difference between revisions

{{task|Text processing}}

[[Category:Rosetta Code related]]

 

;Task:

Fix Rosetta Code deprecated code tags, with these rules:

<pre>

</pre>

 

 

<pre>

</pre>

<br><br>

 

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

String lang=languages[i];

line=line.replaceAll("<"+lang+">", "<lang "+lang+">");

line=line.replaceAll("<code "+lang+">", "<lang "+lang+">");

line=line.replaceAll("</code>", "</"+"lang>");

}

}

 

Example:

user@ubuntu:~$ cat fix.out

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

ius ex tale civibus omittam. <barf>Vix ut doctus cetero invenire</barf>, his eu

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

constituto id, mea an omittam fierent vituperatoribus.

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

</pre>

 

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

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

atomorum inciderint usu. <lang foo>In sit inermis deleniti percipit</lang>,

ius ex tale civibus omittam. <lang barf>Vix ut doctus cetero invenire</lang>,

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

Quo quis graecis vivendo te, <lang baz>posse nullam lobortis ex usu</lang>.

 

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

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

 

 

 

 

 

 

 

 

 

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

(formerly Perl 6)

abap actionscript actionscript3 ada apache applescript apt_sources

asm asp autoit avisynth bash basic4gl bf blitzbasic bnf boo c caddcl

s:g [ '<code '(.+?) '>' (.*?) '</code>' ] = "<lang $0>{$1}</"~"lang>";

 

 

constant @langs = < abap actionscript actionscript3 ada … >;

'lang' ~ " " x *<need-add-space>.so,

:g,

 

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

some r code </lang>sed do eiusmod tempor incididunt

</pre>

 

{{omit from|Brlcad}}