1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax kernel math core-foundation ;
5 IN: core-foundation.numbers
7 TYPEDEF: void* CFNumberRef
9 TYPEDEF: int CFNumberType
10 CONSTANT: kCFNumberSInt8Type 1
11 CONSTANT: kCFNumberSInt16Type 2
12 CONSTANT: kCFNumberSInt32Type 3
13 CONSTANT: kCFNumberSInt64Type 4
14 CONSTANT: kCFNumberFloat32Type 5
15 CONSTANT: kCFNumberFloat64Type 6
16 CONSTANT: kCFNumberCharType 7
17 CONSTANT: kCFNumberShortType 8
18 CONSTANT: kCFNumberIntType 9
19 CONSTANT: kCFNumberLongType 10
20 CONSTANT: kCFNumberLongLongType 11
21 CONSTANT: kCFNumberFloatType 12
22 CONSTANT: kCFNumberDoubleType 13
23 CONSTANT: kCFNumberCFIndexType 14
24 CONSTANT: kCFNumberNSIntegerType 15
25 CONSTANT: kCFNumberCGFloatType 16
26 CONSTANT: kCFNumberMaxType 16
28 FUNCTION: CFNumberRef CFNumberCreate ( CFAllocatorRef allocator, CFNumberType theType, void* valuePtr ) ;
30 GENERIC: <CFNumber> ( number -- alien )
33 [ f kCFNumberLongLongType ] dip <longlong> CFNumberCreate ;
36 [ f kCFNumberDoubleType ] dip <double> CFNumberCreate ;
39 drop f kCFNumberIntType 1 <int> CFNumberCreate ;
42 drop f kCFNumberIntType 0 <int> CFNumberCreate ;