24 lines
393 B
Plaintext
24 lines
393 B
Plaintext
$ENTRY Go {
|
|
= <Prout <StripComments 'apples, pears # and bananas'>>
|
|
<Prout <StripComments 'apples, pears ; and bananas'>>;
|
|
};
|
|
|
|
StripComments {
|
|
e.X = <Trim <StripAll (';#') e.X>>;
|
|
};
|
|
|
|
Trim {
|
|
e.X ' ' = <Trim e.X>;
|
|
e.X = e.X;
|
|
};
|
|
|
|
StripAll {
|
|
() e.X = e.X;
|
|
(s.C e.C) e.X = <StripAll (e.C) <Strip s.C e.X>>;
|
|
};
|
|
|
|
Strip {
|
|
s.C e.X s.C e.Y = e.X;
|
|
s.C e.X = e.X;
|
|
};
|