parse-directive-line ( preprocessor-state sequence-parser -- )

Vocabulary

c.preprocessor

Inputs

preprocessor-state	an object
sequence-parser	an object

Outputs

None

Definition

USING: accessors c.lexer kernel math sequences.parser ;

IN: c.preprocessor

: parse-directive-line
    ( preprocessor-state sequence-parser -- )
    advance dup take-token pick processing-disabled?>> [
        "endif" = [
            drop f >>processing-disabled?
            [ 1 - ] change-ifdef-nesting drop
        ] [ 2drop ] if
    ] [ parse-directive ] if ;