skip-whitespace/comments ( sequence-parser -- sequence-parser )

Vocabulary

c.lexer

Inputs

sequence-parser

an object

Outputs

sequence-parser

an object

Definition

USING: combinators kernel sequences.parser ;

IN: c.lexer

: skip-whitespace/comments
    ( sequence-parser -- sequence-parser )
    skip-whitespace-eol {
        { [ dup take-c-comment ] [ skip-whitespace/comments ] }
        {
            [ dup take-c++-comment ]
            [ skip-whitespace/comments ]
        }
        [ ]
    } cond ;