Anonymous user
Strip comments from a string: Difference between revisions
m
→{{header|Forth}}
Line 630:
1-
BEGIN
LASTCHAR COMMENT? 0= \ not a comment char?
WHILE \ while
1- \ reduce length by 1
REPEAT
Line 638:
: -TRAILING ( adr len -- adr len') \ remove trailing spaces
1-
BEGIN
LASTCHAR BL = \ BL is ASCII 32, Forth constant
WHILE \ while lastchar = blank
1- \ reduce length by 1
| |||