1 #include <bindings.dsl.h>
2 #include <CoreServices/CoreServices.h>
4 module Bindings.CoreServices.CarbonCore.OSUtils where
6 import Bindings.CoreServices.CarbonCore.MacTypes
22 #synonym_t QTypes, <SignedByte>
24 #starttype struct QElem
25 # field qLink, Ptr <QElem>
27 # array_field qData, CShort
29 #synonym_t QElemPtr, Ptr <QElem>
31 #starttype struct QHdr
32 # field qFlags, CShort
33 # field qHead , <QElemPtr>
34 # field qTail , <QElemPtr>
36 #synonym_t QHdrPtr, Ptr <QHdr>
38 #starttype struct MachineLocation
39 # field latitude , <Fract>
40 # field longitude, <Fract>
41 # if TARGET_RT_BIG_ENDIAN
42 # union_field u.dlsDelta, <SInt8>
44 # union_field u.gmtDelta, CLong
45 # if TARGET_RT_LITTLE_ENDIAN
46 # array_field u.dls.pad, <SInt8>
48 # field u.dls.Delta, <SInt8>
51 #ccall IsMetric, IO <Boolean>
52 #ccall Delay , CULong -> Ptr CULong -> IO ()
53 #ccall Enqueue , <QElemPtr> -> <QHdrPtr> -> IO ()
54 #ccall Dequeue , <QElemPtr> -> <QHdrPtr> -> IO <OSErr>
57 # ccall MakeDataExecutable, Ptr () -> CULong -> IO ()
60 #ccall ReadLocation , Ptr <MachineLocation> -> IO ()
61 #ccall TickCount , IO <UInt32>
62 #ccall CSCopyUserName , <Boolean> -> IO <CFStringRef>
63 #ccall CSCopyMachineName, IO <CFStringRef>
74 #synonym_t SysPPtr, Ptr ()
77 # ccall GetSysPPtr, IO <SysPPtr>
80 #callback DeferredTaskProcPtr, CLong -> IO ()
81 #synonym_t DeferredTaskUPP, <DeferredTaskProcPtr>
83 #starttype struct DeferredTask
84 # field qLink , <QElemPtr>
85 # field qType , CShort
86 # field dtFlags , CShort
87 # field dtAddr , <DeferredTaskUPP>
88 # field dtParam , CLong
89 # field dtReserved, CLong
91 #synonym_t DeferredTaskPtr, Ptr <DeferredTask>
94 # ccall DTInstall , <DeferredTaskPtr> -> IO <OSErr>
95 # ccall DTUninstall , <DeferredTaskPtr> -> IO <OSErr>
96 # ccall SetCurrentA5 , IO CLong
97 # ccall SetA5 , CLong -> IO CLong
98 # ccall InitUtil , IO <OSErr>
99 # ccall WriteParam , IO <OSErr>
100 # ccall WriteLocation, Ptr <MachineLocation> -> IO ()