parse-arglist ( parameters return -- types effect )

Vocabulary

alien.fortran

Inputs

parameters	an object
return	an object

Outputs

types	an object
effect	an object

Definition

USING: alien.c-types assocs effects grouping kernel sequences
splitting ;

IN: alien.fortran

: parse-arglist ( parameters return -- types effect )
    [
        2 group
        [ unzip [ "," ?tail drop ] map ] [
            [ first "!" head? ] filter
            [ second "," ?tail drop "'" append ] map
        ] bi
    ] [ [ ] [ prefix ] if-void ] bi* <effect> ;