take-c++-comment ( sequence-parser -- seq/f )

Vocabulary

c.lexer

Inputs

sequence-parser

an object

Outputs

seq/f

an object

Definition

USING: combinators.short-circuit kernel sequences.parser ;

IN: c.lexer

: take-c++-comment ( sequence-parser -- seq/f )
    [
        dup "//" take-sequence [
            [ [ { ~quotation~ ~quotation~ } 1|| ] take-until ]
            [ advance drop ] bi
        ] [ drop f ] if
    ] with-sequence-parser ;