[fortran-invoke] ( [args>args] return library function parameters -- [args>args] quot )

Vocabulary

alien.fortran.private

Inputs

[args>args]	an object
return	an object
library	an object
function	an object
parameters	an object

Outputs

[args>args]	an object
quot	an object

Definition

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

IN: alien.fortran.private

:: [fortran-invoke]
    ( [args>args] return library function parameters -- [args>args] quot )
    return parameters fortran-sig>c-sig
    :> ( c-return c-parameters ) function
    fortran-name>symbol-name :> c-function [args>args] c-return
    library c-function c-parameters f \ alien-invoke 6
    [ ] nsequence c-parameters length \ nkeep [ ] 3sequence ;