oops--broke the alien>objc-types reverse mapping
parent
32dfcd36ac
commit
6575c06816
|
@ -108,22 +108,34 @@ H{
|
|||
{ "c" "char" }
|
||||
{ "i" "int" }
|
||||
{ "s" "short" }
|
||||
{ "l" "int" }
|
||||
{ "q" "longlong" }
|
||||
{ "C" "uchar" }
|
||||
{ "I" "uint" }
|
||||
{ "S" "ushort" }
|
||||
{ "L" "uint" }
|
||||
{ "Q" "ulonglong" }
|
||||
{ "f" "float" }
|
||||
{ "d" "double" }
|
||||
{ "B" "bool" }
|
||||
{ "v" "void" }
|
||||
{ "*" "char*" }
|
||||
{ "?" "unknown_type" }
|
||||
{ "@" "id" }
|
||||
{ "#" "id" }
|
||||
{ ":" "SEL" }
|
||||
} objc>alien-types set-global
|
||||
}
|
||||
"ptrdiff_t" heap-size {
|
||||
{ 4 [ H{
|
||||
{ "l" "long" }
|
||||
{ "q" "longlong" }
|
||||
{ "L" "ulong" }
|
||||
{ "Q" "ulonglong" }
|
||||
} ] }
|
||||
{ 8 [ H{
|
||||
{ "l" "long32" }
|
||||
{ "q" "long" }
|
||||
{ "L" "ulong32" }
|
||||
{ "Q" "ulong" }
|
||||
} ] }
|
||||
} case
|
||||
assoc-union objc>alien-types set-global
|
||||
|
||||
! The transpose of the above map
|
||||
SYMBOL: alien>objc-types
|
||||
|
|
|
@ -27,7 +27,7 @@ C-STRUCT: NSSize
|
|||
{ "CGFloat" "h" } ;
|
||||
|
||||
TYPEDEF: NSSize _NSSize
|
||||
TYPEDEF: NSPoint CGPoint
|
||||
TYPEDEF: NSSize CGSize
|
||||
|
||||
: <NSSize> ( w h -- size )
|
||||
"NSSize" <c-object>
|
||||
|
@ -75,6 +75,11 @@ C-STRUCT: NSRange
|
|||
|
||||
TYPEDEF: NSRange _NSRange
|
||||
|
||||
! The "lL" type encodings refer to 32-bit values even in 64-bit mode
|
||||
TYPEDEF: int long32
|
||||
TYPEDEF: uint long32
|
||||
TYPEDEF: void* unknown_type
|
||||
|
||||
: <NSRange> ( length location -- size )
|
||||
"NSRange" <c-object>
|
||||
[ set-NSRange-length ] keep
|
||||
|
|
Loading…
Reference in New Issue