(shuffle-map) ( return parameters -- ret par )

Vocabulary

alien.fortran.private

Inputs

return	an object
parameters	an object

Outputs

ret	an object
par	an object

Definition

USING: alien.c-types alien.fortran assocs kernel math sequences
;

IN: alien.fortran.private

: (shuffle-map) ( return parameters -- ret par )
    [
        fortran-ret-type>c-type length swap void? [ 1 + ] unless
        letters swap head [ "ret" swap suffix ] map
    ] [
        [ fortran-arg-type>c-type nip length 1 + ] map
        letters swap zip
        [ first2 letters swap head [ "" 2sequence ] with map ]
        map concat
    ] bi* ;