From: PHO Date: Thu, 14 Oct 2010 22:45:48 +0000 (+0900) Subject: Use #integral_t whenever possible X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fmaster;p=bindings-CarbonCore.git Use #integral_t whenever possible --- diff --git a/Bindings/CoreServices/CarbonCore/AIFF.hsc b/Bindings/CoreServices/CarbonCore/AIFF.hsc index 2d4d397..1ad7359 100644 --- a/Bindings/CoreServices/CarbonCore/AIFF.hsc +++ b/Bindings/CoreServices/CarbonCore/AIFF.hsc @@ -40,8 +40,8 @@ import Bindings.CoreServices.CarbonCore.MacTypes #num MACE3Type #num MACE6Type -#synonym_t ID , -#synonym_t MarkerIdType, +#integral_t ID +#integral_t MarkerIdType #starttype struct ChunkHeader # field ckID , diff --git a/Bindings/CoreServices/CarbonCore/AVLTree.hsc b/Bindings/CoreServices/CarbonCore/AVLTree.hsc index 7692547..e33dab2 100644 --- a/Bindings/CoreServices/CarbonCore/AVLTree.hsc +++ b/Bindings/CoreServices/CarbonCore/AVLTree.hsc @@ -5,16 +5,16 @@ module Bindings.CoreServices.CarbonCore.AVLTree where #strict_import import Bindings.CoreServices.CarbonCore.MacTypes -#synonym_t AVLVisitStage, +#integral_t AVLVisitStage #num kAVLPreOrder #num kAVLInOrder #num kAVLPostOrder -#synonym_t AVLOrder, +#integral_t AVLOrder #num kLeftToRight #num kRightToLeft -#synonym_t AVLNodeType, +#integral_t AVLNodeType #num kAVLIsTree #num kAVLIsLeftBranch #num kAVLIsRightBranch diff --git a/Bindings/CoreServices/CarbonCore/Aliases.hsc b/Bindings/CoreServices/CarbonCore/Aliases.hsc index f8a1345..c013c6f 100644 --- a/Bindings/CoreServices/CarbonCore/Aliases.hsc +++ b/Bindings/CoreServices/CarbonCore/Aliases.hsc @@ -7,7 +7,7 @@ import Bindings.CoreServices.CarbonCore.Files import Bindings.CoreServices.CarbonCore.MacTypes import Bindings.CoreServices.CarbonCore.UTCUtils -#synonym_t FSAliasInfoBitmap, +#integral_t FSAliasInfoBitmap #num kFSAliasInfoNone #num kFSAliasInfoVolumeCreateDate #num kFSAliasInfoTargetCreateDate diff --git a/Bindings/CoreServices/CarbonCore/Files.hsc b/Bindings/CoreServices/CarbonCore/Files.hsc index 0a8f481..c320115 100644 --- a/Bindings/CoreServices/CarbonCore/Files.hsc +++ b/Bindings/CoreServices/CarbonCore/Files.hsc @@ -182,7 +182,7 @@ import System.Posix.Types #num knoGroup -#synonym_t FSVolumeRefNum, +#integral_t FSVolumeRefNum #integral_t FSIORefNum #num kFSInvalidVolumeRefNum @@ -906,7 +906,7 @@ import System.Posix.Types # field fileSec , #stoptype -#synonym_t FSCatalogInfoBitmap, +#integral_t FSCatalogInfoBitmap #num kFSCatInfoNone #num kFSCatInfoTextEncoding #num kFSCatInfoNodeFlags @@ -1098,7 +1098,7 @@ import System.Posix.Types #stoptype #synonym_t FSCatalogBulkParamPtr, Ptr -#synonym_t FSAllocationFlags, +#integral_t FSAllocationFlags #num kFSAllocDefaultFlags #num kFSAllocAllOrNothingMask #num kFSAllocContiguousMask @@ -1189,7 +1189,7 @@ import System.Posix.Types #stoptype #synonym_t FSRangeLockParamPtr, Ptr -#synonym_t FSVolumeInfoBitmap, +#integral_t FSVolumeInfoBitmap #num kFSVolInfoNone #num kFSVolInfoCreateDate #num kFSVolInfoModDate @@ -1473,7 +1473,7 @@ import System.Posix.Types #ccall FSPathMakeRefWithOptions, Ptr -> -> Ptr -> Ptr -> IO #ccall FSIsFSRefValid , Ptr -> IO -#synonym_t FNMessage, +#integral_t FNMessage #num kFNDirectoryModifiedMessage #ccall FNNotify , Ptr -> -> -> IO @@ -1501,17 +1501,17 @@ import System.Posix.Types #num kAsyncEjectInProgress #num kAsyncEjectComplete -#synonym_t FSMountStatus , -#synonym_t FSEjectStatus , -#synonym_t FSUnmountStatus , -#opaque_t OpaqueFSVolumeOperation -#synonym_t FSVolumeOperation , Ptr -#callback FSVolumeMountProcPtr , -> Ptr () -> -> -> IO () -#callback FSVolumeUnmountProcPtr, -> Ptr () -> -> -> CPid -> IO () -#callback FSVolumeEjectProcPtr , -> Ptr () -> -> -> CPid -> IO () -#synonym_t FSVolumeMountUPP , -#synonym_t FSVolumeUnmountUPP , -#synonym_t FSVolumeEjectUPP , +#integral_t FSMountStatus +#integral_t FSEjectStatus +#integral_t FSUnmountStatus +#opaque_t OpaqueFSVolumeOperation +#synonym_t FSVolumeOperation , Ptr +#callback FSVolumeMountProcPtr , -> Ptr () -> -> -> IO () +#callback FSVolumeUnmountProcPtr, -> Ptr () -> -> -> CPid -> IO () +#callback FSVolumeEjectProcPtr , -> Ptr () -> -> -> CPid -> IO () +#synonym_t FSVolumeMountUPP , +#synonym_t FSVolumeUnmountUPP , +#synonym_t FSVolumeEjectUPP , #num kFSMountServerMarkDoNotDisplay #num kFSMountServerMountOnMountDir @@ -1539,9 +1539,9 @@ import System.Posix.Types #ccall FSCopyDADiskForVolume , -> Ptr -> IO #ccall FSGetVolumeForDADisk , -> Ptr -> IO -#opaque_t __FSFileOperation -#synonym_t FSFileOperationRef , Ptr <__FSFileOperation> -#synonym_t FSFileOperationStage, +#opaque_t __FSFileOperation +#synonym_t FSFileOperationRef , Ptr <__FSFileOperation> +#integral_t FSFileOperationStage #starttype struct FSFileOperationClientContext # field version, diff --git a/Bindings/CoreServices/CarbonCore/MacTypes.hsc b/Bindings/CoreServices/CarbonCore/MacTypes.hsc index 41b21b8..05cc03f 100644 --- a/Bindings/CoreServices/CarbonCore/MacTypes.hsc +++ b/Bindings/CoreServices/CarbonCore/MacTypes.hsc @@ -187,10 +187,10 @@ module Bindings.CoreServices.CarbonCore.MacTypes where #integral_t StyleParameter #synonym_t StyleField,