basis/cocoa/types/types.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax combinators kernel layouts
   4 classes.struct cocoa.runtime core-graphics.types ;
   5 IN: cocoa.types
   6
   7 TYPEDEF: long NSInteger
   8 TYPEDEF: ulong NSUInteger
   9
  10 TYPEDEF: CGPoint NSPoint
  11 TYPEDEF: NSPoint _NSPoint
  12
  13 TYPEDEF: CGSize NSSize
  14 TYPEDEF: NSSize _NSSize
  15
  16 TYPEDEF: CGRect NSRect
  17 TYPEDEF: NSRect _NSRect
  18
  19 STRUCT: NSRange
  20     { location NSUInteger }
  21     { length NSUInteger } ;
  22
  23 TYPEDEF: NSRange _NSRange
  24
  25 ! The "lL" type encodings refer to 32-bit values even in 64-bit mode
  26 TYPEDEF: int long32
  27 TYPEDEF: uint ulong32
  28 TYPEDEF: void* unknown_type
  29
  30 : <NSRange> ( location length -- size )
  31     NSRange <struct-boa> ;
  32
  33 STRUCT: NSFastEnumerationState
  34     { state ulong }
  35     { itemsPtr id* }
  36     { mutationsPtr ulong* }
  37     { extra ulong[5] } ;