#include #include module Bindings.CoreServices.CarbonCore.UTCUtils where #strict_import import Bindings.CoreServices.CarbonCore.MacTypes #num kUTCDefaultOptions #starttype struct UTCDateTime # field highSeconds, # field lowSeconds , # field fraction , #stoptype #synonym_t UTCDateTimePtr , Ptr #synonym_t UTCDateTimeHandle, Ptr #starttype struct LocalDateTime # field highSeconds, # field lowSeconds , # field fraction , #stoptype #synonym_t LocalDateTimePtr , Ptr #synonym_t LocalDateTimeHandle, Ptr #if !__LP64__ # ccall ConvertLocalTimeToUTC , -> Ptr -> IO # ccall ConvertUTCToLocalTime , -> Ptr -> IO # ccall ConvertUTCToLocalDateTime, Ptr -> Ptr -> IO # ccall ConvertLocalToUTCDateTime, Ptr -> Ptr -> IO # ccall GetUTCDateTime , Ptr -> -> IO # ccall SetUTCDateTime , Ptr -> -> IO # ccall GetLocalDateTime , Ptr -> -> IO # ccall SetLocalDateTime , Ptr -> -> IO #endif