(fortran-type>c-type) ( type -- c-type )

Vocabulary

alien.fortran.private

Inputs

type

an object

Outputs

c-type

an object

Definition

IN: alien.fortran.private

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

Methods

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 ;