Anonymous user
Strip comments from a string: Difference between revisions
m
→{{header|Forth}}
Line 626:
: LASTCHAR ( addr len -- addr len c) 2DUP + C@ ;
: COMMENT? ( char -- ? ) S" #;" ROT SCAN NIP ; \ test char for "#;"
: -LEADING ( addr len -- addr' len')
: -COMMENT ( addr len -- addr len') \ removes # or ; comments
| |||