integer-type

Vocabulary

alien.fortran.private

Definition

IN: alien.fortran.private

TUPLE: integer-type < number-type ;

Methods

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

M: integer-type (fortran-arg>c-args)
    [
        size>> {
            { f [ [ int <ref> ] [ drop ] ] }
            { 1 [ [ char <ref> ] [ drop ] ] }
            { 2 [ [ short <ref> ] [ drop ] ] }
            { 4 [ [ int <ref> ] [ drop ] ] }
            { 8 [ [ longlong <ref> ] [ drop ] ] }
            [ invalid-fortran-type ]
        } case
    ] args?dims ;


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

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


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 ;