scan-c-args ( -- types names )

Vocabulary

alien.parser

Inputs

None

Outputs

types	an object
names	an object

Definition

USING: alien.parser.private arrays kernel lexer sequences
splitting ;

IN: alien.parser

:: scan-c-args ( -- types names )
    V{ } clone :> types V{ } clone :> names "(" expect
    scan-token
    [ dup ")" = ] [
        parse-c-type scan-token "," ?tail drop parse-pointers
        [ types push ] [ names push ] bi* scan-token
    ] until drop types names [ >array ] bi@ ;