read-standard-include ( preprocessor-state path -- )

Vocabulary

c.preprocessor

Inputs

preprocessor-state	an object
path	an object

Outputs

None

Definition

USING: accessors io.directories io.files io.pathnames kernel
sequences ;

IN: c.preprocessor

:: read-standard-include ( preprocessor-state path -- )
    preprocessor-state dup library-paths>>
    [ path append-path file-exists? ] find nip
    [ dup [ path append-path preprocess-file ] with-directory ]
    [ drop ] if* ;