31 lines
779 B
Text
31 lines
779 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const func string: stripComment (in string: line) is func
|
|
result
|
|
var string: lineWithoutComment is "";
|
|
local
|
|
var integer: lineEnd is 0;
|
|
var integer: pos is 0;
|
|
begin
|
|
lineEnd := length(line);
|
|
for pos range 1 to length(line) do
|
|
if line[pos] in {'#', ';'} then
|
|
lineEnd := pred(pos);
|
|
pos := length(line);
|
|
end if;
|
|
end for;
|
|
lineWithoutComment := line[.. lineEnd];
|
|
end func;
|
|
|
|
const proc: main is func
|
|
local
|
|
var string: stri is "apples, pears # and bananas\n\
|
|
\apples, pears ; and bananas";
|
|
var string: line is ""
|
|
begin
|
|
writeln(stri);
|
|
writeln("====>");
|
|
for line range split(stri, '\n') do
|
|
writeln(stripComment(line));
|
|
end for;
|
|
end func;
|