((fortran-invoke)) ( return library function parameters -- quot )

Vocabulary

alien.fortran

Inputs

return	an object
library	an object
function	an object
parameters	an object

Outputs

quot

an object

Definition

USING: alien.fortran.private generalizations kernel
sequences.generalizations ;

IN: alien.fortran

: ((fortran-invoke))
    ( return library function parameters -- quot )
    {
        [ 2nip [<fortran-result>] ]
        [ 3nip [fortran-args>c-args] ]
        [ [fortran-invoke] ]
        [ 2nip [fortran-results>] ]
    } 4 ncleave 4 nappend ;