X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Bindings%2FCoreServices%2FCarbonCore%2FUTCUtils.hsc;fp=Bindings%2FCoreServices%2FCarbonCore%2FUTCUtils.hsc;h=0115a5251eae28aeeec3647ba8800c75c0687074;hb=3082e8da09e36e40c8f2f9ae238b489ccf2479c5;hp=0000000000000000000000000000000000000000;hpb=40230c2d18a8a925f22add7f00e6ac7d98e2d5b3;p=bindings-CarbonCore.git

diff --git a/Bindings/CoreServices/CarbonCore/UTCUtils.hsc b/Bindings/CoreServices/CarbonCore/UTCUtils.hsc
new file mode 100644
index 0000000..0115a52
--- /dev/null
+++ b/Bindings/CoreServices/CarbonCore/UTCUtils.hsc
@@ -0,0 +1,35 @@
+#include <bindings.dsl.h>
+#include <CoreServices/CoreServices.h>
+
+module Bindings.CoreServices.CarbonCore.UTCUtils where
+#strict_import
+import Bindings.CoreServices.CarbonCore.MacTypes
+
+#num kUTCDefaultOptions
+
+#starttype struct UTCDateTime
+#  field highSeconds, <UInt16>
+#  field lowSeconds , <UInt32>
+#  field fraction   , <UInt16>
+#stoptype
+#synonym_t UTCDateTimePtr   , Ptr <UTCDateTime>
+#synonym_t UTCDateTimeHandle, Ptr <UTCDateTimePtr>
+
+#starttype struct LocalDateTime
+#  field highSeconds, <UInt16>
+#  field lowSeconds , <UInt32>
+#  field fraction   , <UInt16>
+#stoptype
+#synonym_t LocalDateTimePtr   , Ptr <LocalDateTime>
+#synonym_t LocalDateTimeHandle, Ptr <LocalDateTimePtr>
+
+#if !__LP64__
+#  ccall ConvertLocalTimeToUTC    , <UInt32> -> Ptr <UInt32> -> IO <OSStatus>
+#  ccall ConvertUTCToLocalTime    , <UInt32> -> Ptr <UInt32> -> IO <OSStatus>
+#  ccall ConvertUTCToLocalDateTime, Ptr <UTCDateTime> -> Ptr <LocalDateTime> -> IO <OSStatus>
+#  ccall ConvertLocalToUTCDateTime, Ptr <LocalDateTime> -> Ptr <UTCDateTime> -> IO <OSStatus>
+#  ccall GetUTCDateTime           , Ptr <UTCDateTime> -> <OptionBits> -> IO <OSStatus>
+#  ccall SetUTCDateTime           , Ptr <UTCDateTime> -> <OptionBits> -> IO <OSStatus>
+#  ccall GetLocalDateTime         , Ptr <LocalDateTime> -> <OptionBits> -> IO <OSStatus>
+#  ccall SetLocalDateTime         , Ptr <LocalDateTime> -> <OptionBits> -> IO <OSStatus>
+#endif
\ No newline at end of file