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

Vocabulary

c.lexer

Inputs

sequence-parser

an object

Outputs

seq/f

an object

Definition

USING: kernel sequences.parser ;

IN: c.lexer

: take-c-comment ( sequence-parser -- seq/f )
    [
        dup "/*" take-sequence
        [ "*/" take-until-sequence* ] [ drop f ] if
    ] with-sequence-parser ;