[fortran-args>c-args] ( parameters -- quot )

Vocabulary

alien.fortran.private

Inputs

parameters

an object

Outputs

quot

an object

Definition

USING: arrays combinators generalizations kernel sequences ;

IN: alien.fortran.private

: [fortran-args>c-args] ( parameters -- quot )
    [ [ ] ] [
        [ parse-fortran-type (fortran-arg>c-args) 2array ] map
        flip first2
        [ [ \ spread [ ] 2sequence ] bi@ 2array ] [ length ] bi
        \ ncleave [ ] 3sequence
    ] if-empty ;