IN: alien.fortran.private

GENERIC: (fortran-type>c-type) ( type -- c-type )

USING: alien.c-types alien.fortran.private ;

M: character-type (fortran-type>c-type)
fix-character-type char simple-type ;

USING: alien.complex alien.fortran.private ;

M: double-complex-type (fortran-type>c-type)
complex-double simple-type ;

USING: alien.c-types alien.fortran.private ;

M: double-precision-type (fortran-type>c-type)
double simple-type ;

USING: alien.c-types alien.fortran.private kernel ;

M: f (fortran-type>c-type) drop void ;

USING: alien.c-types alien.fortran.private ;

M: integer-type (fortran-type>c-type)
{
{ f [ int ] }
{ 1 [ char ] }
{ 2 [ short ] }
{ 4 [ int ] }
{ 8 [ longlong ] }
} size-case-type ;

USING: accessors alien.fortran.private alien.parser kernel ;

M: misc-type (fortran-type>c-type)
dup name>> parse-c-type simple-type ;

USING: alien.complex alien.fortran.private ;

M: real-complex-type (fortran-type>c-type)
{
{ f [ complex-float ] }
{ 8 [ complex-float ] }
{ 16 [ complex-double ] }
} size-case-type ;

USING: alien.c-types alien.fortran.private ;

M: real-type (fortran-type>c-type)
{ { f [ float ] } { 4 [ float ] } { 8 [ double ] } }
size-case-type ;