preprocess-line ( preprocessor-state sequence-parser -- )

Vocabulary

c.preprocessor

Inputs

preprocessor-state	an object
sequence-parser	an object

Outputs

None

Definition

USING: accessors io kernel sequences.parser ;

IN: c.preprocessor

: preprocess-line ( preprocessor-state sequence-parser -- )
    skip-whitespace/comments dup current 35 =
    [ parse-directive-line ] [
        swap processing-disabled?>>
        [ drop ] [ write-full nl ] if
    ] if ;