parse-dims ( string -- string' dim )

Vocabulary

alien.fortran.private

Inputs

string

an object

Outputs

string'	an object
dim	an object

Definition

USING: ascii kernel sequences splitting ;

IN: alien.fortran.private

: parse-dims ( string -- string' dim )
    "(" split1 dup [
        ")" ?tail drop "," split
        [ [ blank? ] trim dimension>number ] map
    ] when ;