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

Vocabulary

c.preprocessor

Inputs

sequence-parser

an object

Outputs

sequence-parser

an object

Definition

USING: c.lexer combinators kernel sequences.parser ;

IN: c.preprocessor

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