real-complex-type

Vocabulary

alien.fortran.private

Definition

IN: alien.fortran.private

TUPLE: real-complex-type < complex-type ;

Methods

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

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


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

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


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 ;