16 lines
434 B
Text
16 lines
434 B
Text
procedure main()
|
|
every (unstripped := "") ||:= !&input || "\n" # Load file as one string
|
|
write(stripBlockComment(unstripped,"/*","*/"))
|
|
end
|
|
|
|
procedure stripBlockComment(s1,s2,s3) #: strip comments between s2-s3 from s1
|
|
result := ""
|
|
s1 ? {
|
|
while result ||:= tab(find(s2)) do {
|
|
move(*s2)
|
|
tab(find(s3)|0) # or end of string
|
|
move(*s3)
|
|
}
|
|
return result || tab(0)
|
|
}
|
|
end
|