(plist-NSNumber>) ( NSNumber -- number )

Vocabulary

cocoa.plists.private

Inputs

NSNumber

an object

Outputs

number

an object

Definition

USING: alien.c-types cocoa.messages cocoa.runtime kernel math ;

IN: cocoa.plists.private

: (plist-NSNumber>) ( NSNumber -- number )
    dup { double { id SEL } } "doubleValue" send dup >integer =
    [ { long { id SEL } } "longLongValue" send ]
    [ { double { id SEL } } "doubleValue" send ] if ;