X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Bindings%2FCoreServices%2FCarbonCore%2FAliases.hsc;fp=Bindings%2FCoreServices%2FCarbonCore%2FAliases.hsc;h=8a0676a5d6bfa08ec627cf6477f04be2dc455cb2;hb=3082e8da09e36e40c8f2f9ae238b489ccf2479c5;hp=0000000000000000000000000000000000000000;hpb=40230c2d18a8a925f22add7f00e6ac7d98e2d5b3;p=bindings-CarbonCore.git diff --git a/Bindings/CoreServices/CarbonCore/Aliases.hsc b/Bindings/CoreServices/CarbonCore/Aliases.hsc new file mode 100644 index 0000000..8a0676a --- /dev/null +++ b/Bindings/CoreServices/CarbonCore/Aliases.hsc @@ -0,0 +1,114 @@ +#include +#include + +module Bindings.CoreServices.CarbonCore.Aliases where +#strict_import +import Bindings.CoreServices.CarbonCore.MacTypes +import Bindings.CoreServices.CarbonCore.UTCUtils + +#synonym_t FSAliasInfoBitmap, +#num kFSAliasInfoNone +#num kFSAliasInfoVolumeCreateDate +#num kFSAliasInfoTargetCreateDate +#num kFSAliasInfoFinderInfo +#num kFSAliasInfoIsDirectory +#num kFSAliasInfoIDs +#num kFSAliasInfoFSInfo +#num kFSAliasInfoVolumeFlags + +#num rAliasType + +#num kARMMountVol +#num kARMNoUI +#num kARMMultVols +#num kARMSearch +#num kARMSearchMore +#num kARMSearchRelFirst +#num kARMTryFileIDFirst + +#num asiZoneName +#num asiServerName +#num asiVolumeName +#num asiAliasName +#num asiParentName + +#num kResolveAliasFileNoUI +#num kResolveAliasTryFileIDFirst + +#if __AL_USE_OPAQUE_RECORD__ +# starttype struct AliasRecord +# array_field hidden, +# stoptype +#else +# starttype struct AliasRecord +# field userType , +# field aliasSize, CUShort +# stoptype +#endif +#synonym_t AliasPtr , Ptr +#synonym_t AliasHandle, Ptr + +#starttype struct FSAliasInfo +# field volumeCreateDate, +# field targetCreateDate, +# field fileType , +# field fileCreator , +# field parentDirID , +# field nodeID , +# field filesystemID , +# field signature , +# field volumeIsBootVolume , +# field volumeIsAutomounted, +# field volumeIsEjectable , +# field volumeHasPersistentFileIDs, +# field isDirectory , +#stoptype +#synonym_t FSAliasInfoPtr, Ptr +#integral_t AliasInfoType + +#if !__LP64__ +# callback AlisFilterProcPtr, -> Ptr -> -> IO +# synonym_t AlisFilterUPP , +#endif + +#callback FSAliasFilterProcPtr, Ptr -> Ptr -> -> IO + +#ccall FSNewAlias , Ptr -> Ptr -> Ptr -> IO +#ccall FSNewAliasMinimal , Ptr -> Ptr -> IO +#ccall FSIsAliasFile , Ptr -> Ptr -> Ptr -> IO +#ccall FSResolveAliasWithMountFlags, Ptr -> -> Ptr -> Ptr -> CULong -> IO +#ccall FSResolveAlias , Ptr -> -> Ptr -> Ptr -> IO +#ccall FSResolveAliasFileWithMountFlags, Ptr -> -> Ptr -> Ptr -> CULong -> IO +#ccall FSResolveAliasFile , Ptr -> -> Ptr -> Ptr -> IO +#ccall FSFollowFinderAlias, Ptr -> -> -> Ptr -> Ptr -> IO +#ccall FSUpdateAlias , Ptr -> Ptr -> -> Ptr -> IO +#ccall FSNewAliasUnicode , Ptr -> Ptr -> -> Ptr -> Ptr -> Ptr -> IO +#ccall FSNewAliasMinimalUnicode, Ptr -> -> Ptr -> Ptr -> Ptr -> IO +#ccall FSNewAliasFromPath , Ptr CChar -> Ptr CChar -> -> Ptr -> Ptr -> IO +#ccall FSMatchAliasBulk , Ptr -> CULong -> -> Ptr CShort -> Ptr -> Ptr -> -> Ptr () -> IO +#ccall FSCopyAliasInfo , -> Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO +#ccall GetAliasSize , -> IO +#ccall GetAliasUserType , -> IO +#ccall SetAliasUserType , -> -> IO () +#ccall GetAliasSizeFromPtr, Ptr -> IO +#ccall GetAliasUserTypeFromPtr, Ptr -> IO +#ccall SetAliasUserTypeWithPtr, -> -> IO () + +#if !__LP64__ +# ccall FSMatchAlias , Ptr -> CULong -> -> Ptr CShort -> Ptr -> Ptr -> -> Ptr () -> IO +# ccall FSMatchAliasNoUI , Ptr -> CULong -> -> Ptr CShort -> Ptr -> Ptr -> -> Ptr () -> IO +# ccall NewAlias , Ptr -> Ptr -> Ptr -> IO +# ccall NewAliasMinimal , Ptr -> Ptr -> IO +# ccall NewAliasMinimalFromFullPath, CShort -> Ptr () -> -> -> Ptr -> IO +# ccall ResolveAlias , Ptr -> -> Ptr -> Ptr -> IO +# ccall GetAliasInfo , -> -> -> IO +# ccall IsAliasFile , Ptr -> Ptr -> Ptr -> IO +# ccall ResolveAliasWithMountFlags, Ptr -> -> Ptr -> Ptr -> CULong -> IO +# ccall ResolveAliasFile , Ptr -> -> Ptr -> Ptr -> IO +# ccall ResolveAliasFileWithMountFlags, Ptr -> -> Ptr -> Ptr -> CULong -> IO +# ccall FollowFinderAlias, Ptr -> -> -> Ptr -> Ptr -> IO +# ccall UpdateAlias , Ptr -> Ptr -> -> Ptr -> IO +# ccall MatchAlias , Ptr -> CULong -> -> Ptr CShort -> -> Ptr -> -> Ptr () -> IO +# ccall ResolveAliasFileWithMountFlagsNoUI, Ptr -> -> Ptr -> Ptr -> CLong -> IO +# ccall MatchAliasNoUI , Ptr -> CULong -> -> Ptr CShort -> -> Ptr -> -> Ptr () -> IO +#endif \ No newline at end of file