Strip comments from a string: Difference between revisions

Content added Content deleted
Line 626: Line 626:
: LASTCHAR ( addr len -- addr len c) 2DUP + C@ ;
: LASTCHAR ( addr len -- addr len c) 2DUP + C@ ;
: COMMENT? ( char -- ? ) S" #;" ROT SCAN NIP ; \ test char for "#;"
: COMMENT? ( char -- ? ) S" #;" ROT SCAN NIP ; \ test char for "#;"
: -LEADING ( addr len -- addr' len') 2DUP BL SKIP ; \ remove leading space characters
: -LEADING ( addr len -- addr' len') BL SKIP ; \ remove leading space characters
: -COMMENT ( addr len -- addr len') \ removes # or ; comments
: -COMMENT ( addr len -- addr len') \ removes # or ; comments
Retrieved from "https://rosettacode.org/wiki/Strip_comments_from_a_string"