character-type

Vocabulary

alien.fortran.private

Definition

IN: alien.fortran.private

TUPLE: character-type < fortran-type ;

Methods

USING: accessors alien.fortran.private byte-arrays kernel
sequences ;

M: character-type (<fortran-result>)
    fix-character-type dims>> product dup [ \ <byte-array> ] dip
    [ ] 3sequence ;


USING: alien.c-types alien.data alien.fortran.private
alien.strings io.encodings.ascii kernel sequences ;

M: character-type (fortran-arg>c-args)
    fix-character-type single-char?
    [ [ first char <ref> ] [ drop ] ]
    [ [ ascii string>alien ] [ length ] ] if ;


USING: alien.c-types alien.data alien.fortran
alien.fortran.private io.encodings.ascii kernel strings ;

M: character-type (fortran-result>)
    fix-character-type single-char?
    [ { [ char deref 1string ] } ]
    [ { [ ] [ ascii alien>nstring ] } ] if ;


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

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


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

M: character-type added-c-args
    fix-character-type single-char? [ { } ] [ { long } ] if ;


USING: alien.fortran.private ;

M: character-type returns-by-value?
    fix-character-type single-char? ;