Bindings/CoreServices/CarbonCore/MacTypes.hsc

   1 #include <bindings.dsl.h>
   2 #include <CoreServices/../Frameworks/CarbonCore.framework/Headers/MacTypes.h>
   3
   4 module Bindings.CoreServices.CarbonCore.MacTypes where
   5 #strict_import
   6
   7 #integral_t UInt8
   8 #integral_t SInt8
   9 #integral_t UInt16
  10 #integral_t SInt16
  11 #integral_t UInt32
  12 #integral_t SInt32
  13
  14 #starttype struct wide
  15 #  field hi, <SInt32>
  16 #  field lo, <UInt32>
  17 #stoptype
  18
  19 #starttype struct UnsignedWide
  20 #  field hi, <UInt32>
  21 #  field lo, <UInt32>
  22 #stoptype
  23
  24 #if TYPE_LONGLONG
  25 #  integral_t SInt64
  26 #  integral_t UInt64
  27 #else
  28 #  synonym_t SInt64, <wide>
  29 #  synonym_t UInt64, <UnsignedWide>
  30 #endif
  31
  32 #integral_t Fixed
  33 #synonym_t  FixedPtr, Ptr <Fixed>
  34 #integral_t Fract
  35 #synonym_t  FractPtr, Ptr <Fract>
  36 #integral_t UnsignedFixed
  37 #synonym_t  UnsignedFixedPtr, Ptr <UnsignedFixed>
  38 #integral_t ShortFixed
  39 #synonym_t  ShortFixedPtr, Ptr <ShortFixed>
  40
  41 #synonym_t Float32, CFloat
  42 #synonym_t Float64, CDouble
  43
  44 #starttype struct Float80
  45 #  field       exp, <SInt16>
  46 #  array_field man, <UInt16>
  47 #stoptype
  48
  49 #starttype struct Float96
  50 #  array_field exp, <SInt16>
  51 #  array_field man, <UInt16>
  52 #stoptype
  53
  54 #starttype struct Float32Point
  55 #  field x, <Float32>
  56 #  field y, <Float32>
  57 #stoptype
  58
  59 #synonym_t  Ptr   , Ptr CChar
  60 #synonym_t  Handle, Ptr <Ptr>
  61 #integral_t Size
  62
  63 #integral_t OSErr
  64 #integral_t OSStatus
  65 #synonym_t  LogicalAddress     , Ptr ()
  66 #synonym_t  ConstLogicalAddress, Ptr ()
  67 #synonym_t  PhysicalAddress    , Ptr ()
  68 #synonym_t  BytePtr            , Ptr <UInt8>
  69 #integral_t ByteCount
  70 #integral_t ByteOffset
  71 #integral_t Duration
  72 #synonym_t  AbsoluteTime, <UnsignedWide>
  73 #integral_t OptionBits
  74 #integral_t ItemCount
  75 #integral_t PBVersion
  76 #integral_t ScriptCode
  77 #integral_t LangCode
  78 #integral_t RegionCode
  79 #integral_t FourCharCode
  80 #integral_t OSType
  81 #integral_t ResType
  82 #synonym_t  OSTypePtr , Ptr <OSType>
  83 #synonym_t  ResTypePtr, Ptr <ResType>
  84
  85 #integral_t Boolean
  86
  87 #callback  ProcPtr, IO CLong
  88 #callback  Register68kProcPtr, IO ()
  89
  90 #if TARGET_RT_MAC_CFM
  91 #  error CFM Carbon is not supported.
  92 #else
  93 #  synonym_t UniversalProcPtr  , <ProcPtr>
  94 #endif
  95
  96 #synonym_t ProcHandle         , Ptr <ProcPtr>
  97 #synonym_t UniversalProcHandle, Ptr <UniversalProcPtr>
  98
  99 #synonym_t PRefCon, Ptr ()
 100
 101 #if __LP64__
 102 #  synonym_t  URefCon, Ptr ()
 103 #  synonym_t  SRefCon, Ptr ()
 104 #else
 105 #  integral_t URefCon
 106 #  integral_t SRefCon
 107 #endif
 108
 109 #num noErr
 110 #num kNilOptions
 111 #num kInvalidID
 112 #num kVariableLengthArray
 113 #num kUnknownType
 114
 115 #integral_t UnicodeScalarValue
 116 #integral_t UTF32Char
 117 #integral_t UniChar
 118 #integral_t UTF16Char
 119 #integral_t UTF8Char
 120 #synonym_t  UniCharPtr, Ptr <UniChar>
 121 #integral_t UniCharCount
 122 #synonym_t  UniCharCountPtr , Ptr <UniCharCount>
 123 #synonym_t  Str255          , Ptr CUChar
 124 #synonym_t  Str63           , Ptr CUChar
 125 #synonym_t  Str32           , Ptr CUChar
 126 #synonym_t  Str31           , Ptr CUChar
 127 #synonym_t  Str27           , Ptr CUChar
 128 #synonym_t  Str15           , Ptr CUChar
 129 #synonym_t  Str32Field      , Ptr CUChar
 130 #synonym_t  StrFileName     , <Str63>
 131 #synonym_t  StringPtr       , Ptr CUChar
 132 #synonym_t  StringHandle    , Ptr <StringPtr>
 133 #synonym_t  ConstStringPtr  , Ptr CUChar
 134 #synonym_t  ConstStr255Param, Ptr CUChar
 135 #synonym_t  ConstStr63Param , Ptr CUChar
 136 #synonym_t  ConstStr32Param , Ptr CUChar
 137 #synonym_t  ConstStr31Param , Ptr CUChar
 138 #synonym_t  ConstStr27Param , Ptr CUChar
 139 #synonym_t  ConstStr15Param , Ptr CUChar
 140 #synonym_t  ConstStrFileNameParam, <ConstStr63Param>
 141
 142 #cinline StrLength, <ConstStr255Param> -> IO CUChar
 143
 144 #starttype struct ProcessSerialNumber
 145 #  field highLongOfPSN, <UInt32>
 146 #  field lowLongOfPSN , <UInt32>
 147 #stoptype
 148 #synonym_t ProcessSerialNumberPtr, Ptr <ProcessSerialNumber>
 149
 150 #starttype struct Point
 151 #  field v, CShort
 152 #  field h, CShort
 153 #stoptype
 154 #synonym_t PointPtr, Ptr <Point>
 155
 156 #starttype struct Rect
 157 #  field top   , CShort
 158 #  field left  , CShort
 159 #  field bottom, CShort
 160 #  field right , CShort
 161 #stoptype
 162 #synonym_t RectPtr, Ptr <Rect>
 163
 164 #starttype struct FixedPoint
 165 #  field x, <Fixed>
 166 #  field y, <Fixed>
 167 #stoptype
 168
 169 #starttype struct FixedRect
 170 #  field top   , <Fixed>
 171 #  field left  , <Fixed>
 172 #  field bottom, <Fixed>
 173 #  field right , <Fixed>
 174 #stoptype
 175
 176 #integral_t CharParameter
 177 #num normal
 178 #num bold
 179 #num italic
 180 #num underline
 181 #num outline
 182 #num shadow
 183 #num condense
 184 #num extend
 185
 186 #integral_t Style
 187 #integral_t StyleParameter
 188 #synonym_t  StyleField, <Style>
 189
 190 #synonym_t TimeValue    , <SInt32>
 191 #synonym_t TimeScale    , <SInt32>
 192 #synonym_t CompTimeValue, <wide>
 193 #synonym_t TimeValue64  , <SInt64>
 194
 195 #opaque_t  TimeBaseRecord
 196 #synonym_t TimeBase, Ptr <TimeBaseRecord>
 197
 198 #starttype TimeRecord
 199 #  field value, <CompTimeValue>
 200 #  field scale, <TimeScale>
 201 #  field base , <TimeBase>
 202 #stoptype
 203
 204 #starttype struct NumVersion
 205 #  field majorRev      , <UInt8>
 206 #  field minorAndBugRev, <UInt8>
 207 #  field stage         , <UInt8>
 208 #  field nonRelRev     , <UInt8>
 209 #stoptype
 210
 211 #num developStage
 212 #num alphaStage
 213 #num betaStage
 214 #num finalStage
 215
 216 #starttype union NumVersionVariant
 217 #  union_field parts, <NumVersion>
 218 #  union_field whole, <UInt32>
 219 #stoptype
 220 #synonym_t NumVersionVariantPtr   , Ptr <NumVersionVariant>
 221 #synonym_t NumVersionVariantHandle, Ptr <NumVersionVariantPtr>
 222
 223 #starttype struct VersRec
 224 #  field numericVersion, <NumVersion>
 225 #  field countryCode   , CShort
 226 #  field shortVersion  , <Str255>
 227 #  field reserved      , <Str255>
 228 #stoptype
 229 #synonym_t VersRecPtr , Ptr <VersRec>
 230 #synonym_t VersRecHndl, Ptr <VersRecPtr>
 231
 232 #synonym_t Byte           , <UInt8>
 233 #synonym_t SignedByte     , <SInt8>
 234 #synonym_t WidePtr        , Ptr <wide>
 235 #synonym_t UnsignedWidePtr, Ptr <UnsignedWide>
 236 #synonym_t extended80     , <Float80>
 237 #synonym_t extended96     , <Float96>
 238 #synonym_t VHSelect       , <SInt8>
 239
 240 #ccall Debugger    , IO ()
 241 #ccall DebugStr    , <ConstStr255Param> -> IO ()
 242 #ccall SysBreak    , IO ()
 243 #ccall SysBreakStr , <ConstStr255Param> -> IO ()
 244 #ccall SysBreakFunc, <ConstStr255Param> -> IO ()