24 lines
608 B
Text
24 lines
608 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
const string: stri is "\
|
|
\ /**\n\
|
|
\ * Some comments\n\
|
|
\ * longer comments here that we can parse.\n\
|
|
\ *\n\
|
|
\ * Rahoo\n\
|
|
\ */\n\
|
|
\ function subroutine() {\n\
|
|
\ a = /* inline comment */ b + c ;\n\
|
|
\ }\n\
|
|
\ /*/ <-- tricky comments */\n\
|
|
\\n\
|
|
\ /**\n\
|
|
\ * Another comment.\n\
|
|
\ */\n\
|
|
\ function something() {\n\
|
|
\ }";
|
|
begin
|
|
writeln(replace2(stri, "/*", "*/", " "));
|
|
end func;
|