scan-c-args* ( -- types names varargs? )

Vocabulary

alien.parser

Inputs

None

Outputs

types	an object
names	an object
varargs?	an object

Definition

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

IN: alien.parser

:: scan-c-args* ( -- types names varargs? )
    V{ } clone :> types
    V{ } clone :> names f :> varargs! "(" expect scan-token
    [ dup ")" = ] [
        dup "..." = [
            drop varargs [ duplicate-varargs-marker ] when
            types length varargs!
        ] [
            parse-c-type scan-token "," ?tail drop
            parse-pointers [ types push ] [ names push ] bi*
        ] if scan-token
    ] until drop types names [ >array ] bi@ varargs ;