string>cpu ( str -- class )

Vocabulary

system.private

Inputs

str

an object

Outputs

class

an object

Definition

USING: assocs system ;

IN: system.private

: string>cpu ( str -- class )
    H{
        { "ppc.32" ppc.32 }
        { "x86.32" x86.32 }
        { "x86.64" x86.64 }
        { "ppc.64" ppc.64 }
        { "arm.64" arm.64 }
        { "arm.32" arm.32 }
    } at ;