steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.numbers: support converting CFNumber back to factor.

John Benediktsson 2013-03-29 20:24:39 -07:00
parent 7ecee87707
commit 3e79d0d7d1
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
basis/core-foundation/numbers/numbers.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.data alien.syntax kernel math USING: alien.c-types alien.data alien.syntax combinators
core-foundation ; core-foundation kernel math ;
QUALIFIED-WITH: alien.c-types c
FROM: math => float ; FROM: math => float ;
IN: core-foundation.numbers IN: core-foundation.numbers
@ -28,6 +29,10 @@ CONSTANT: kCFNumberMaxType 16
FUNCTION: CFNumberRef CFNumberCreate ( CFAllocatorRef allocator, CFNumberType theType, void* valuePtr ) ; FUNCTION: CFNumberRef CFNumberCreate ( CFAllocatorRef allocator, CFNumberType theType, void* valuePtr ) ;
FUNCTION: CFNumberType CFNumberGetType ( CFNumberRef number ) ;
FUNCTION: Boolean CFNumberGetValue ( CFNumberRef number, CFNumberType theType, void* valuePtr ) ;
GENERIC: <CFNumber> ( number -- alien ) GENERIC: <CFNumber> ( number -- alien )
M: integer <CFNumber> M: integer <CFNumber>
@ -42,3 +47,25 @@ M: t <CFNumber>
M: f <CFNumber> M: f <CFNumber>
drop f kCFNumberIntType 0 int <ref> CFNumberCreate ; drop f kCFNumberIntType 0 int <ref> CFNumberCreate ;
ERROR: unsupported-number-type type ;
: (CFNumber>number) ( alien c-type -- number )
[
0 swap <ref> [ CFNumberGetValue drop ] keep
] keep deref ; inline
: CFNumber>number ( alien -- number )
dup CFNumberGetType dup {
{ kCFNumberSInt8Type [ SInt8 (CFNumber>number) ] }
{ kCFNumberSInt16Type [ SInt16 (CFNumber>number) ] }
{ kCFNumberSInt32Type [ SInt32 (CFNumber>number) ] }
{ kCFNumberSInt64Type [ SInt64 (CFNumber>number) ] }
{ kCFNumberFloat64Type [ double (CFNumber>number) ] }
{ kCFNumberCharType [ char (CFNumber>number) ] }
{ kCFNumberShortType [ c:short (CFNumber>number) ] }
{ kCFNumberIntType [ int (CFNumber>number) ] }
{ kCFNumberLongType [ long (CFNumber>number) ] }
{ kCFNumberLongLongType [ longlong (CFNumber>number) ] }
{ kCFNumberDoubleType [ double (CFNumber>number) ] }
[ unsupported-number-type ]
} case ;