Use #integral_t whenever possible

[bindings-CarbonCore.git] / Bindings / CoreServices / CarbonCore / Files.hsc

diff --git a/Bindings/CoreServices/CarbonCore/Files.hsc b/Bindings/CoreServices/CarbonCore/Files.hsc
index df6bdcd0b108a20689fcbff498847bba1330b07c..c320115c9f529b92d3e6ac12bd8ffc2950b540f0 100644 (file)
--- a/Bindings/CoreServices/CarbonCore/Files.hsc
+++ b/Bindings/CoreServices/CarbonCore/Files.hsc
@@ -6,6 +6,8 @@ module Bindings.CoreServices.CarbonCore.Files where
 #strict_import
 import Bindings.CoreServices.CarbonCore.Finder
 import Bindings.CoreServices.CarbonCore.MacTypes
+import Bindings.CoreServices.CarbonCore.OSUtils
+import System.Posix.Types
 
 #starttype struct HFSUniStr255
 #  field       length , <UInt16>
@@ -180,7 +182,7 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 
 #num knoGroup
 
-#synonym_t  FSVolumeRefNum, <SInt16>
+#integral_t FSVolumeRefNum
 #integral_t FSIORefNum
 
 #num kFSInvalidVolumeRefNum
@@ -904,7 +906,7 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #  field fileSec   , <FSFileSecurityRef>
 #stoptype
 
-#synonym_t FSCatalogInfoBitmap, <UInt32>
+#integral_t FSCatalogInfoBitmap
 #num kFSCatInfoNone
 #num kFSCatInfoTextEncoding
 #num kFSCatInfoNodeFlags
@@ -1096,7 +1098,7 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #stoptype
 #synonym_t FSCatalogBulkParamPtr, Ptr <FSCatalogBulkParam>
 
-#synonym_t FSAllocationFlags, <UInt16>
+#integral_t FSAllocationFlags
 #num kFSAllocDefaultFlags
 #num kFSAllocAllOrNothingMask
 #num kFSAllocContiguousMask
@@ -1187,7 +1189,7 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #stoptype
 #synonym_t FSRangeLockParamPtr, Ptr <FSRangeLockParam>
 
-#synonym_t FSVolumeInfoBitmap, <UInt32>
+#integral_t FSVolumeInfoBitmap
 #num kFSVolInfoNone
 #num kFSVolInfoCreateDate
 #num kFSVolInfoModDate
@@ -1471,7 +1473,7 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #ccall FSPathMakeRefWithOptions, Ptr <UInt8> -> <OptionBits> -> Ptr <FSRef> -> Ptr <Boolean> -> IO <OSStatus>
 #ccall FSIsFSRefValid          , Ptr <FSRef> -> IO <Boolean>
 
-#synonym_t FNMessage, <UInt32>
+#integral_t FNMessage
 #num kFNDirectoryModifiedMessage
 
 #ccall FNNotify      , Ptr <FSRef> -> <FNMessage> -> <OptionBits> -> IO <OSStatus>
@@ -1499,17 +1501,17 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #num kAsyncEjectInProgress
 #num kAsyncEjectComplete
 
-#synonym_t FSMountStatus    , <UInt32>
-#synonym_t FSEjectStatus    , <UInt32>
-#synonym_t FSUnmountStatus  , <UInt32>
-#opaque_t  OpaqueFSVolumeOperation
-#synonym_t FSVolumeOperation     , Ptr <OpaqueFSVolumeOperation>
-#callback  FSVolumeMountProcPtr  , <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> IO ()
-#callback  FSVolumeUnmountProcPtr, <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> CPid -> IO ()
-#callback  FSVolumeEjectProcPtr  , <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> CPid -> IO ()
-#synonym_t FSVolumeMountUPP      , <FSVolumeMountProcPtr>
-#synonym_t FSVolumeUnmountUPP    , <FSVolumeUnmountProcPtr>
-#synonym_t FSVolumeEjectUPP      , <FSVolumeEjectProcPtr>
+#integral_t FSMountStatus
+#integral_t FSEjectStatus
+#integral_t FSUnmountStatus
+#opaque_t   OpaqueFSVolumeOperation
+#synonym_t  FSVolumeOperation     , Ptr <OpaqueFSVolumeOperation>
+#callback   FSVolumeMountProcPtr  , <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> IO ()
+#callback   FSVolumeUnmountProcPtr, <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> CPid -> IO ()
+#callback   FSVolumeEjectProcPtr  , <FSVolumeOperation> -> Ptr () -> <OSStatus> -> <FSVolumeRefNum> -> CPid -> IO ()
+#synonym_t  FSVolumeMountUPP      , <FSVolumeMountProcPtr>
+#synonym_t  FSVolumeUnmountUPP    , <FSVolumeUnmountProcPtr>
+#synonym_t  FSVolumeEjectUPP      , <FSVolumeEjectProcPtr>
 
 #num kFSMountServerMarkDoNotDisplay
 #num kFSMountServerMountOnMountDir
@@ -1537,9 +1539,9 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #ccall FSCopyDADiskForVolume   , <FSVolumeRefNum> -> Ptr <DADiskRef> -> IO <OSStatus>
 #ccall FSGetVolumeForDADisk    , <DADiskRef> -> Ptr <FSVolumeRefNum> -> IO <OSStatus>
 
-#opaque_t  __FSFileOperation
-#synonym_t FSFileOperationRef  , Ptr <__FSFileOperation>
-#synonym_t FSFileOperationStage, <UInt32>
+#opaque_t   __FSFileOperation
+#synonym_t  FSFileOperationRef  , Ptr <__FSFileOperation>
+#integral_t FSFileOperationStage
 
 #starttype struct FSFileOperationClientContext
 #  field version, <CFIndex>
@@ -1603,8 +1605,9 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #ccall FSFileSecuritySetOwnerUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
 #ccall FSFileSecurityGetGroupUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
 #ccall FSFileSecuritySetGroupUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
-#ccall FSFileSecurityCopyAccessControlList, <FSFileSecurityRef> -> <acl_t> -> IO <OSStatus>
-#ccall FSFileSecuritySetAccessControlList , <FSFileSecurityRef> -> <acl_t> -> IO <OSStatus>
+-- FIXME: acl_t
+-- #ccall FSFileSecurityCopyAccessControlList, <FSFileSecurityRef> -> CACL -> IO <OSStatus>
+-- #ccall FSFileSecuritySetAccessControlList , <FSFileSecurityRef> -> CACL -> IO <OSStatus>
 #ccall FSFileSecurityGetOwner       , <FSFileSecurityRef> -> Ptr <UInt32> -> IO <OSStatus>
 #ccall FSFileSecuritySetOwner       , <FSFileSecurityRef> -> <UInt32> -> IO <OSStatus>
 #ccall FSFileSecurityGetGroup       , <FSFileSecurityRef> -> Ptr <UInt32> -> IO <OSStatus>