real-type

Vocabulary

alien.fortran.private

Definition

IN: alien.fortran.private

TUPLE: real-type < number-type ;

Methods

USING: accessors alien.c-types alien.data alien.fortran
alien.fortran.private combinators kernel ;

M: real-type (fortran-arg>c-args)
    [
        size>> {
            { f [ [ float <ref> ] [ drop ] ] }
            { 4 [ [ float <ref> ] [ drop ] ] }
            { 8 [ [ double <ref> ] [ drop ] ] }
            [ invalid-fortran-type ]
        } case
    ] args?dims ;


USING: accessors alien.fortran alien.fortran.private combinators
;

M: real-type (fortran-result>)
    [
        size>> {
            { f [ { ~quotation~ } ] }
            { 4 [ { ~quotation~ } ] }
            { 8 [ { ~quotation~ } ] }
            [ invalid-fortran-type ]
        } case
    ] result?dims ;


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

M: real-type (fortran-ret-type>c-type)
    drop real-functions-return-double? [ double ] [ float ] if ;


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

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