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

Prev:

SUBROUTINE:

Vocabulary
alien.fortran

Inputs

return	a string
library	a string
parameters	a sequence

Outputs
None

Word description
Invokes the Fortran subroutine or function procedure in library with parameters specified by the Fortran types specified in the parameters sequence. If the return value is f, no return value is expected, otherwise a return value of the specified Fortran type is expected. Input values are taken off the top of the datastack, and output values are left for the return value (if any) and any parameters specified as out parameters by prepending "!".

Definition

USING: generalizations kernel ;

IN: alien.fortran

MACRO: fortran-invoke
    ( return library function parameters -- quot )
    { [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4
    ncleave ;