From 305a3e2e94d1517d0a526aeb34b52de42f86e4a5 Mon Sep 17 00:00:00 2001 From: PHO Date: Fri, 15 Oct 2010 00:11:47 +0900 Subject: [PATCH] Files.h --- Bindings/CoreServices/CarbonCore/Files.hsc | 499 ++++++++++++++++++++ Bindings/CoreServices/CarbonCore/Finder.hsc | 7 + bindings-carbon-core.cabal | 2 + cbits/helper_files.c | 13 + 4 files changed, 521 insertions(+) create mode 100644 Bindings/CoreServices/CarbonCore/Finder.hsc create mode 100644 cbits/helper_files.c diff --git a/Bindings/CoreServices/CarbonCore/Files.hsc b/Bindings/CoreServices/CarbonCore/Files.hsc index 03b03b0..df6bdcd 100644 --- a/Bindings/CoreServices/CarbonCore/Files.hsc +++ b/Bindings/CoreServices/CarbonCore/Files.hsc @@ -4,6 +4,7 @@ module Bindings.CoreServices.CarbonCore.Files where #strict_import +import Bindings.CoreServices.CarbonCore.Finder import Bindings.CoreServices.CarbonCore.MacTypes #starttype struct HFSUniStr255 @@ -1444,3 +1445,501 @@ import Bindings.CoreServices.CarbonCore.MacTypes #ccall FSCloseFork , -> IO #ccall PBCloseForkSync , Ptr -> IO #ccall PBCloseForkAsync , Ptr -> IO () +#ccall FSGetForkCBInfo , -> -> Ptr CShort -> Ptr -> Ptr -> Ptr -> Ptr -> IO +#ccall PBGetForkCBInfoSync , Ptr -> IO +#ccall PBGetForkCBInfoAsync , Ptr -> IO () +#ccall FSLockRange , -> -> -> -> Ptr -> IO +#ccall PBXLockRangeSync , -> IO +#ccall PBXLockRangeAsync , -> IO +#ccall FSUnlockRange , -> -> -> -> Ptr -> IO +#ccall PBXUnlockRangeSync , -> IO +#ccall PBXUnlockRangeAsync , -> IO +#ccall FSGetVolumeInfo , -> -> Ptr -> -> Ptr -> Ptr -> Ptr -> IO +#ccall PBGetVolumeInfoSync , Ptr -> IO +#ccall PBGetVolumeInfoAsync , Ptr -> IO () +#ccall FSSetVolumeInfo , -> -> Ptr -> IO +#ccall PBSetVolumeInfoSync , Ptr -> IO +#ccall PBSetVolumeInfoAsync , Ptr -> IO () +#ccall FSGetDataForkName , Ptr -> IO +#ccall FSGetResourceForkName, Ptr -> IO +#ccall FSRefMakePath , Ptr -> Ptr -> -> IO +#ccall FSPathMakeRef , Ptr -> Ptr -> Ptr -> IO + +#num kFSPathMakeRefDefaultOptions +#num kFSPathMakeRefDoNotFollowLeafSymlink + +#ccall FSPathMakeRefWithOptions, Ptr -> -> Ptr -> Ptr -> IO +#ccall FSIsFSRefValid , Ptr -> IO + +#synonym_t FNMessage, +#num kFNDirectoryModifiedMessage + +#ccall FNNotify , Ptr -> -> -> IO +#ccall FNNotifyByPath, Ptr -> -> -> IO +#ccall FNNotifyAll , -> -> IO + +#opaque_t OpaqueFNSubscriptionRef +#synonym_t FNSubscriptionRef, Ptr + +#num kFNNoImplicitAllSubscription +#num kFNNotifyInBackground + +#callback FNSubscriptionProcPtr, -> -> Ptr () -> -> IO () +#synonym_t FNSubscriptionUPP , + +#ccall FNSubscribe , Ptr -> -> Ptr () -> -> Ptr -> IO +#ccall FNSubscribeByPath, Ptr -> -> Ptr () -> -> Ptr -> IO +#ccall FNUnsubscribe , -> IO +#ccall FNGetDirectoryForSubscription, -> Ptr -> IO + +#num kAsyncMountInProgress +#num kAsyncMountComplete +#num kAsyncUnmountInProgress +#num kAsyncUnmountComplete +#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 , + +#num kFSMountServerMarkDoNotDisplay +#num kFSMountServerMountOnMountDir +#num kFSMountServerMountWithoutNotification +#num kFSEjectVolumeForceEject +#num kFSUnmountVolumeForceUnmount + +#ccall FSCreateVolumeOperation , Ptr -> IO +#ccall FSDisposeVolumeOperation, -> IO +#ccall FSMountLocalVolumeSync , -> -> Ptr -> -> IO +#ccall FSMountLocalVolumeAsync , -> -> -> Ptr () -> -> -> -> -> IO +#ccall FSMountServerVolumeSync , -> -> -> -> Ptr -> -> IO +#ccall FSMountServerVolumeAsync, -> -> -> -> -> Ptr () -> -> -> -> -> IO +#ccall FSGetAsyncMountStatus , -> Ptr -> Ptr -> Ptr -> Ptr (Ptr ()) -> IO +#ccall FSUnmountVolumeSync , -> -> Ptr CPid -> IO +#ccall FSUnmountVolumeAsync , -> -> -> Ptr () -> -> -> -> IO +#ccall FSGetAsyncUnmountStatus , -> Ptr -> Ptr -> Ptr -> Ptr CPid -> Ptr (Ptr ()) -> IO +#ccall FSCancelVolumeOperation , -> IO +#ccall FSEjectVolumeSync , -> -> Ptr CPid -> IO +#ccall FSEjectVolumeAsync , -> -> -> Ptr () -> -> -> -> IO +#ccall FSGetAsyncEjectStatus , -> Ptr -> Ptr -> Ptr -> Ptr CPid -> Ptr (Ptr ()) -> IO +#ccall FSCopyDiskIDForVolume , -> Ptr -> IO +#ccall FSCopyURLForVolume , -> Ptr -> IO +#ccall FSGetVolumeForDiskID , -> Ptr -> IO +#ccall FSCopyDADiskForVolume , -> Ptr -> IO +#ccall FSGetVolumeForDADisk , -> Ptr -> IO + +#opaque_t __FSFileOperation +#synonym_t FSFileOperationRef , Ptr <__FSFileOperation> +#synonym_t FSFileOperationStage, + +#starttype struct FSFileOperationClientContext +# field version, +# field info , Ptr () +# field retain , +# field release, +# field copyDescription, +#stoptype + +#callback FSFileOperationStatusProcPtr , -> Ptr -> -> -> -> Ptr () -> IO () +#callback FSPathFileOperationStatusProcPtr, -> Ptr CChar -> -> -> -> Ptr () -> IO () + +#num kFSFileOperationDefaultOptions +#num kFSFileOperationOverwrite +#num kFSFileOperationSkipSourcePermissionErrors +#num kFSFileOperationDoNotMoveAcrossVolumes +#num kFSFileOperationSkipPreflight + +#num kFSOperationStageUndefined +#num kFSOperationStagePreflighting +#num kFSOperationStageRunning +#num kFSOperationStageComplete + +#cinline kFSOperationTotalBytesKey , IO +#cinline kFSOperationBytesCompleteKey , IO +#cinline kFSOperationBytesRemainingKey , IO +#cinline kFSOperationTotalObjectsKey , IO +#cinline kFSOperationObjectsCompleteKey , IO +#cinline kFSOperationObjectsRemainingKey, IO +#cinline kFSOperationTotalUserVisibleObjectsKey , IO +#cinline kFSOperationUserVisibleObjectsCompleteKey , IO +#cinline kFSOperationUserVisibleObjectsRemainingKey, IO +#cinline kFSOperationThroughputKey , IO + +#ccall FSCopyObjectSync , Ptr -> Ptr -> -> Ptr -> -> IO +#ccall FSMoveObjectSync , Ptr -> Ptr -> -> Ptr -> -> IO +#ccall FSMoveObjectToTrashSync, Ptr -> Ptr -> -> IO +#ccall FSPathCopyObjectSync , Ptr CChar -> Ptr CChar -> -> Ptr (Ptr CChar) -> -> IO +#ccall FSPathMoveObjectSync , Ptr CChar -> Ptr CChar -> -> Ptr (Ptr CChar) -> -> IO +#ccall FSPathMoveObjectToTrashSync, Ptr CChar -> Ptr (Ptr CChar) -> -> IO +#ccall FSFileOperationGetTypeID , IO +#ccall FSFileOperationCreate , -> IO +#ccall FSFileOperationScheduleWithRunLoop , -> -> -> IO +#ccall FSFileOperationUnscheduleFromRunLoop, -> -> -> IO +#ccall FSCopyObjectAsync , -> Ptr -> Ptr -> -> -> -> -> Ptr -> IO +#ccall FSMoveObjectAsync , -> Ptr -> Ptr -> -> -> -> -> Ptr -> IO +#ccall FSMoveObjectToTrashAsync, -> Ptr -> -> -> -> Ptr -> IO +#ccall FSPathCopyObjectAsync , -> Ptr CChar -> Ptr CChar -> -> -> -> -> Ptr -> IO +#ccall FSPathMoveObjectAsync , -> Ptr CChar -> Ptr CChar -> -> -> -> -> Ptr -> IO +#ccall FSPathMoveObjectToTrashAsync, -> Ptr CChar -> -> -> -> Ptr -> IO +#ccall FSFileOperationCancel , -> IO +#ccall FSFileOperationCopyStatus , -> Ptr -> Ptr -> Ptr -> Ptr -> Ptr (Ptr ()) -> IO +#ccall FSPathFileOperationCopyStatus, -> Ptr (Ptr CChar) -> Ptr -> Ptr -> Ptr -> Ptr (Ptr ()) -> IO +#ccall FSCreateStringFromHFSUniStr , -> Ptr -> IO +#ccall FSGetHFSUniStrFromString , -> Ptr -> IO +#ccall FSFileSecurityGetTypeID , IO +#ccall FSFileSecurityCreate , -> IO +#ccall FSFileSecurityCreateWithFSPermissionInfo, -> Ptr -> IO +#ccall FSFileSecurityRefCreateCopy , -> -> IO +#ccall FSFileSecurityGetOwnerUUID , -> Ptr -> IO +#ccall FSFileSecuritySetOwnerUUID , -> Ptr -> IO +#ccall FSFileSecurityGetGroupUUID , -> Ptr -> IO +#ccall FSFileSecuritySetGroupUUID , -> Ptr -> IO +#ccall FSFileSecurityCopyAccessControlList, -> -> IO +#ccall FSFileSecuritySetAccessControlList , -> -> IO +#ccall FSFileSecurityGetOwner , -> Ptr -> IO +#ccall FSFileSecuritySetOwner , -> -> IO +#ccall FSFileSecurityGetGroup , -> Ptr -> IO +#ccall FSFileSecuritySetGroup , -> -> IO +#ccall FSFileSecurityGetMode , -> Ptr -> IO +#ccall FSFileSecuritySetMode , -> -> IO + +#num pleaseCacheBit +#num pleaseCacheMask +#num noCacheBit +#num noCacheMask +#num rdVerifyBit +#num rdVerifyMask +#num rdVerify +#num forceReadBit +#num forceReadMask +#num newLineBit +#num newLineMask +#num newLineCharMask + +#num kOwnerID2Name +#num kGroupID2Name +#num kOwnerName2ID +#num kGroupName2ID +#num kReturnNextUser +#num kReturnNextGroup +#num kReturnNextUG + +#num kVCBFlagsIdleFlushBit +#num kVCBFlagsIdleFlushMask +#num kVCBFlagsHFSPlusAPIsBit +#num kVCBFlagsHFSPlusAPIsMask +#num kVCBFlagsHardwareGoneBit +#num kVCBFlagsHardwareGoneMask +#num kVCBFlagsVolumeDirtyBit +#num kVCBFlagsVolumeDirtyMask + +#num kioVAtrbDefaultVolumeBit +#num kioVAtrbDefaultVolumeMask +#num kioVAtrbFilesOpenBit +#num kioVAtrbFilesOpenMask +#num kioVAtrbHardwareLockedBit +#num kioVAtrbHardwareLockedMask +#num kioVAtrbSoftwareLockedBit +#num kioVAtrbSoftwareLockedMask + +#num kioFlAttribLockedBit +#num kioFlAttribLockedMask +#num kioFlAttribResOpenBit +#num kioFlAttribResOpenMask +#num kioFlAttribDataOpenBit +#num kioFlAttribDataOpenMask +#num kioFlAttribDirBit +#num kioFlAttribDirMask +#num ioDirFlg +#num ioDirMask +#num kioFlAttribCopyProtBit +#num kioFlAttribCopyProtMask +#num kioFlAttribFileOpenBit +#num kioFlAttribFileOpenMask +#num kioFlAttribInSharedBit +#num kioFlAttribInSharedMask +#num kioFlAttribMountedBit +#num kioFlAttribMountedMask +#num kioFlAttribSharePointBit +#num kioFlAttribSharePointMask + +#num kioFCBWriteBit +#num kioFCBWriteMask +#num kioFCBResourceBit +#num kioFCBResourceMask +#num kioFCBWriteLockedBit +#num kioFCBWriteLockedMask +#num kioFCBLargeFileBit +#num kioFCBLargeFileMask +#num kioFCBSharedWriteBit +#num kioFCBSharedWriteMask +#num kioFCBFileLockedBit +#num kioFCBFileLockedMask +#num kioFCBOwnClumpBit +#num kioFCBOwnClumpMask +#num kioFCBModifiedBit +#num kioFCBModifiedMask + +#num kioACUserNoSeeFolderBit +#num kioACUserNoSeeFolderMask +#num kioACUserNoSeeFilesBit +#num kioACUserNoSeeFilesMask +#num kioACUserNoMakeChangesBit +#num kioACUserNoMakeChangesMask +#num kioACUserNotOwnerBit +#num kioACUserNotOwnerMask + +#num kioACAccessOwnerBit +#num kioACAccessOwnerMask +#num kioACAccessBlankAccessBit +#num kioACAccessBlankAccessMask +#num kioACAccessUserWriteBit +#num kioACAccessUserWriteMask +#num kioACAccessUserReadBit +#num kioACAccessUserReadMask +#num kioACAccessUserSearchBit +#num kioACAccessUserSearchMask +#num kioACAccessEveryoneWriteBit +#num kioACAccessEveryoneWriteMask +#num kioACAccessEveryoneReadBit +#num kioACAccessEveryoneReadMask +#num kioACAccessEveryoneSearchBit +#num kioACAccessEveryoneSearchMask +#num kioACAccessGroupWriteBit +#num kioACAccessGroupWriteMask +#num kioACAccessGroupReadBit +#num kioACAccessGroupReadMask +#num kioACAccessGroupSearchBit +#num kioACAccessGroupSearchMask +#num kioACAccessOwnerWriteBit +#num kioACAccessOwnerWriteMask +#num kioACAccessOwnerReadBit +#num kioACAccessOwnerReadMask +#num kioACAccessOwnerSearchBit +#num kioACAccessOwnerSearchMask +#num kfullPrivileges +#num kownerPrivileges + +#ccall FSGetVolumeParms , -> Ptr -> -> IO +#ccall FSGetVolumeMountInfoSize, -> Ptr -> IO +#ccall FSGetVolumeMountInfo , -> -> -> Ptr -> IO +#ccall FSVolumeMount , -> Ptr -> IO +#ccall FSFlushVolume , -> IO +#ccall PBFlushVolumeSync , -> IO +#ccall PBFlushVolumeAsync , -> IO +#ccall PBFSCopyFileSync , -> IO +#ccall PBFSCopyFileAsync , -> IO +#ccall FSResolveNodeID , -> -> -> IO +#ccall PBFSResolveNodeIDSync , -> IO +#ccall PBFSResolveNodeIDAsync , -> IO + +#if !__LP64__ +# ccall FSpMakeFSRef , Ptr -> Ptr -> IO +# ccall PBMakeFSRefSync , Ptr -> IO +# ccall PBMakeFSRefAsync, Ptr -> IO () +# ccall PBCloseSync , -> IO +# ccall PBCloseAsync , -> IO +# ccall PBReadSync , -> IO +# ccall PBReadAsync , -> IO +# ccall PBWriteSync , -> IO +# ccall PBWriteAsync , -> IO +# ccall PBWaitIOComplete, -> -> IO +# ccall PBHGetVolParmsSync , -> IO +# ccall PBHGetVolParmsAsync , -> IO +# ccall PBGetVolMountInfoSize, -> IO +# ccall PBGetVolMountInfo , -> IO +# ccall PBVolumeMount , -> IO +# ccall FlushVol , -> -> IO +# ccall PBFlushVolSync , -> IO +# ccall PBFlushVolAsync , -> IO +# ccall PBHOpenDenySync , -> IO +# ccall PBHOpenDenyAsync , -> IO +# ccall PBHOpenRFDenySync , -> IO +# ccall PBHOpenRFDenyAsync , -> IO +# ccall PBHGetDirAccessSync , -> IO +# ccall PBHGetDirAccessAsync , -> IO +# ccall PBHSetDirAccessSync , -> IO +# ccall PBHSetDirAccessAsync , -> IO +# ccall PBHMapIDSync , -> IO +# ccall PBHMapIDAsync , -> IO +# ccall PBHMapNameSync , -> IO +# ccall PBHMapNameAsync , -> IO +# ccall PBHCopyFileSync , -> IO +# ccall PBHCopyFileAsync , -> IO +# ccall PBCreateFileIDRefSync, -> IO +# ccall PBCreateFileIDRefAsync , -> IO +# ccall PBResolveFileIDRefSync , -> IO +# ccall PBResolveFileIDRefAsync, -> IO +# ccall PBDeleteFileIDRefSync , -> IO +# ccall PBDeleteFileIDRefAsync , -> IO +# ccall PBXGetVolInfoSync , -> IO +# ccall PBXGetVolInfoAsync , -> IO +# ccall PBAllocateSync , -> IO +# ccall PBAllocateAsync , -> IO +# ccall PBGetEOFSync , -> IO +# ccall PBGetEOFAsync , -> IO +# ccall PBSetEOFSync , -> IO +# ccall PBSetEOFAsync , -> IO +# ccall PBGetFPosSync , -> IO +# ccall PBGetFPosAsync , -> IO +# ccall PBSetFPosSync , -> IO +# ccall PBSetFPosAsync , -> IO +# ccall PBFlushFileSync , -> IO +# ccall PBFlushFileAsync , -> IO +# ccall PBUnmountVol , -> IO +# ccall PBCatSearchSync , -> IO +# ccall PBCatSearchAsync , -> IO +# ccall UnmountVol, -> -> IO +# ccall HSetVol , -> -> -> IO +# ccall FSClose , -> IO +# ccall FSRead , -> Ptr -> Ptr () -> IO +# ccall FSWrite , -> Ptr -> Ptr () -> IO +# ccall Allocate , -> Ptr -> IO +# ccall GetEOF , -> Ptr -> IO +# ccall SetEOF , -> -> IO +# ccall GetFPos , -> Ptr -> IO +# ccall SetFPos , -> -> -> IO +# ccall GetVRefNum, -> Ptr -> IO +# ccall PBLockRangeSync , -> IO +# ccall PBLockRangeAsync , -> IO +# ccall PBUnlockRangeSync , -> IO +# ccall PBUnlockRangeAsync, -> IO +# ccall PBHSetVolSync , -> IO +# ccall PBHSetVolAsync , -> IO +# ccall PBHGetVolSync , -> IO +# ccall PBHGetVolAsync , -> IO +# ccall PBCatMoveSync , -> IO +# ccall PBCatMoveAsync , -> IO +# ccall PBDirCreateSync , -> IO +# ccall PBDirCreateAsync , -> IO +# ccall PBGetFCBInfoSync , -> IO +# ccall PBGetFCBInfoAsync , -> IO +# ccall PBGetCatInfoSync , -> IO +# ccall PBGetCatInfoAsync , -> IO +# ccall PBSetCatInfoSync , -> IO +# ccall PBSetCatInfoAsync , -> IO +# ccall PBAllocContigSync , -> IO +# ccall PBAllocContigAsync, -> IO +# ccall PBSetVInfoSync , -> IO +# ccall PBSetVInfoAsync , -> IO +# ccall PBHGetVInfoSync , -> IO +# ccall PBHGetVInfoAsync , -> IO +# ccall PBHOpenSync , -> IO +# ccall PBHOpenAsync , -> IO +# ccall PBHOpenRFSync , -> IO +# ccall PBHOpenRFAsync , -> IO +# ccall PBHOpenDFSync , -> IO +# ccall PBHOpenDFAsync , -> IO +# ccall PBHCreateSync , -> IO +# ccall PBHCreateAsync , -> IO +# ccall PBHDeleteSync , -> IO +# ccall PBHDeleteAsync , -> IO +# ccall PBHRenameSync , -> IO +# ccall PBHRenameAsync , -> IO +# ccall PBHRstFLockSync , -> IO +# ccall PBHRstFLockAsync , -> IO +# ccall PBHSetFLockSync , -> IO +# ccall PBHSetFLockAsync , -> IO +# ccall PBHGetFInfoSync , -> IO +# ccall PBHGetFInfoAsync , -> IO +# ccall PBHSetFInfoSync , -> IO +# ccall PBHSetFInfoAsync , -> IO +# ccall PBMakeFSSpecSync , -> IO +# ccall PBMakeFSSpecAsync , -> IO +# ccall HGetVol , -> Ptr -> Ptr -> IO +# ccall HOpen , -> -> -> -> Ptr -> IO +# ccall HOpenDF , -> -> -> -> Ptr -> IO +# ccall HOpenRF , -> -> -> -> Ptr -> IO +# ccall AllocContig, -> Ptr -> IO +# ccall HCreate , -> -> -> -> -> IO +# ccall DirCreate , -> -> -> Ptr -> IO +# ccall HDelete , -> -> -> IO +# ccall HGetFInfo , -> -> -> Ptr -> IO +# ccall HSetFInfo , -> -> -> Ptr -> IO +# ccall HSetFLock , -> -> -> Ptr +# ccall HRstFLock , -> -> -> Ptr +# ccall HRename , -> -> -> -> IO +# ccall CatMove , -> -> -> -> -> IO +# ccall PBHGetLogInInfoSync , -> IO +# ccall PBHGetLogInInfoAsync , -> IO +# ccall PBHMoveRenameSync , -> IO +# ccall PBHMoveRenameAsync , -> IO +# ccall PBGetXCatInfoSync , -> IO +# ccall PBGetXCatInfoAsync , -> IO +# ccall PBExchangeFilesSync , -> IO +# ccall PBExchangeFilesAsync , -> IO +# ccall PBGetForeignPrivsSync , -> IO +# ccall PBGetForeignPrivsAsync, -> IO +# ccall PBSetForeignPrivsSync , -> IO +# ccall PBSetForeignPrivsAsync, -> IO +#endif + +#if !__LP64__ +# num kLargeIcon +# num kLarge4BitIcon +# num kLarge8BitIcon +# num kSmallIcon +# num kSmall4BitIcon +# num kSmall8BitIcon +# num kicnsIconFamily +#endif + +#if !__LP64__ +# ccall PBDTGetPath , -> IO +# ccall PBDTCloseDown , -> IO +# ccall PBDTAddIconSync , -> IO +# ccall PBDTAddIconAsync, -> IO +# ccall PBDTGetIconSync , -> IO +# ccall PBDTGetIconAsync, -> IO +# ccall PBDTGetIconInfoSync , -> IO +# ccall PBDTGetIconInfoAsync, -> IO +# ccall PBDTAddAPPLSync , -> IO +# ccall PBDTAddAPPLAsync , -> IO +# ccall PBDTRemoveAPPLSync , -> IO +# ccall PBDTRemoveAPPLAsync , -> IO +# ccall PBDTGetAPPLSync , -> IO +# ccall PBDTGetAPPLAsync , -> IO +# ccall PBDTSetCommentSync , -> IO +# ccall PBDTSetCommentAsync , -> IO +# ccall PBDTRemoveCommentSync , -> IO +# ccall PBDTRemoveCommentAsync, -> IO +# ccall PBDTGetCommentSync , -> IO +# ccall PBDTGetCommentAsync , -> IO +# ccall PBDTFlushSync , -> IO +# ccall PBDTFlushAsync , -> IO +# ccall PBDTResetSync , -> IO +# ccall PBDTResetAsync , -> IO +# ccall PBDTGetInfoSync , -> IO +# ccall PBDTGetInfoAsync , -> IO +# ccall PBDTOpenInform , -> IO +# ccall PBDTDeleteSync , -> IO +# ccall PBDTDeleteAsync , -> IO +# ccall FSMakeFSSpec, -> -> -> Ptr -> IO +# ccall FSpOpenDF , Ptr -> -> Ptr -> IO +# ccall FSpOpenRF , Ptr -> -> Ptr -> IO +# ccall FSpCreate , Ptr -> -> -> -> IO +# ccall FSpDirCreate, Ptr -> -> Ptr -> IO +# ccall FSpDelete , Ptr -> IO +# ccall FSpGetFInfo , Ptr -> Ptr -> IO +# ccall FSpSetFInfo , Ptr -> Ptr -> IO +# ccall FSpSetFLock , Ptr -> IO +# ccall FSpRstFLock , Ptr -> IO +# ccall FSpRename , Ptr -> -> IO +# ccall FSpCatMove , Ptr -> Ptr -> IO +# ccall FSpExchangeFiles , Ptr -> Ptr -> IO +# ccall PBShareSync , -> IO +# ccall PBShareAsync , -> IO +# ccall PBUnshareSync , -> IO +# ccall PBUnshareAsync , -> IO +# ccall PBGetUGEntrySync , -> IO +# ccall PBGetUGEntryAsync, -> IO +#endif diff --git a/Bindings/CoreServices/CarbonCore/Finder.hsc b/Bindings/CoreServices/CarbonCore/Finder.hsc new file mode 100644 index 0000000..e0ab1bf --- /dev/null +++ b/Bindings/CoreServices/CarbonCore/Finder.hsc @@ -0,0 +1,7 @@ +#include +#include + +module Bindings.CoreServices.CarbonCore.Finder where +#strict_import +import Bindings.CoreServices.CarbonCore.MacTypes + diff --git a/bindings-carbon-core.cabal b/bindings-carbon-core.cabal index fe03998..d23bd3a 100644 --- a/bindings-carbon-core.cabal +++ b/bindings-carbon-core.cabal @@ -33,11 +33,13 @@ Library Bindings.CoreServices.CarbonCore.AVLTree Bindings.CoreServices.CarbonCore.Aliases Bindings.CoreServices.CarbonCore.Files + Bindings.CoreServices.CarbonCore.Finder Bindings.CoreServices.CarbonCore.MacTypes Bindings.CoreServices.CarbonCore.UTCUtils C-Sources: cbits/helper_aiff.c + cbits/helper_files.c cbits/helper_mactypes.c CC-Options: diff --git a/cbits/helper_files.c b/cbits/helper_files.c new file mode 100644 index 0000000..e5bb41d --- /dev/null +++ b/cbits/helper_files.c @@ -0,0 +1,13 @@ +#include +#include + +BC_INLINE_(kFSOperationTotalBytesKey , CFStringRef) +BC_INLINE_(kFSOperationBytesCompleteKey , CFStringRef) +BC_INLINE_(kFSOperationBytesRemainingKey , CFStringRef) +BC_INLINE_(kFSOperationTotalObjectsKey , CFStringRef) +BC_INLINE_(kFSOperationObjectsCompleteKey , CFStringRef) +BC_INLINE_(kFSOperationObjectsRemainingKey, CFStringRef) +BC_INLINE_(kFSOperationTotalUserVisibleObjectsKey , CFStringRef) +BC_INLINE_(kFSOperationUserVisibleObjectsCompleteKey , CFStringRef) +BC_INLINE_(kFSOperationUserVisibleObjectsRemainingKey, CFStringRef) +BC_INLINE_(kFSOperationThroughputKey , CFStringRef) -- 2.40.0