fix-character-type ( character-type -- character-type' )

Vocabulary

alien.fortran.private

Inputs

character-type

an object

Outputs

character-type'

an object

Definition

USING: accessors alien.fortran arrays kernel ;

IN: alien.fortran.private

: fix-character-type ( character-type -- character-type' )
    clone dup size>> [
        dup dims>>
        [ invalid-fortran-type ]
        [ dup size>> 1array >>dims f >>size ] if
    ] [ dup dims>> [ ] [ f >>dims ] if ] if dup single-char?
    [ f >>dims ] when ;