Bindings/CoreServices/CarbonCore/UTCUtils.hsc

   1 #include <bindings.dsl.h>
   2 #include <CoreServices/CoreServices.h>
   3
   4 module Bindings.CoreServices.CarbonCore.UTCUtils where
   5 #strict_import
   6 import Bindings.CoreServices.CarbonCore.MacTypes
   7
   8 #num kUTCDefaultOptions
   9
  10 #starttype struct UTCDateTime
  11 #  field highSeconds, <UInt16>
  12 #  field lowSeconds , <UInt32>
  13 #  field fraction   , <UInt16>
  14 #stoptype
  15 #synonym_t UTCDateTimePtr   , Ptr <UTCDateTime>
  16 #synonym_t UTCDateTimeHandle, Ptr <UTCDateTimePtr>
  17
  18 #starttype struct LocalDateTime
  19 #  field highSeconds, <UInt16>
  20 #  field lowSeconds , <UInt32>
  21 #  field fraction   , <UInt16>
  22 #stoptype
  23 #synonym_t LocalDateTimePtr   , Ptr <LocalDateTime>
  24 #synonym_t LocalDateTimeHandle, Ptr <LocalDateTimePtr>
  25
  26 #if !__LP64__
  27 #  ccall ConvertLocalTimeToUTC    , <UInt32> -> Ptr <UInt32> -> IO <OSStatus>
  28 #  ccall ConvertUTCToLocalTime    , <UInt32> -> Ptr <UInt32> -> IO <OSStatus>
  29 #  ccall ConvertUTCToLocalDateTime, Ptr <UTCDateTime> -> Ptr <LocalDateTime> -> IO <OSStatus>
  30 #  ccall ConvertLocalToUTCDateTime, Ptr <LocalDateTime> -> Ptr <UTCDateTime> -> IO <OSStatus>
  31 #  ccall GetUTCDateTime           , Ptr <UTCDateTime> -> <OptionBits> -> IO <OSStatus>
  32 #  ccall SetUTCDateTime           , Ptr <UTCDateTime> -> <OptionBits> -> IO <OSStatus>
  33 #  ccall GetLocalDateTime         , Ptr <LocalDateTime> -> <OptionBits> -> IO <OSStatus>
  34 #  ccall SetLocalDateTime         , Ptr <LocalDateTime> -> <OptionBits> -> IO <OSStatus>
  35 #endif