pascal OSStatus MoreAEOCreateObjSpecifierFromFSRef(const FSRefPtr pFSRefPtr, AEDesc *pObjSpecifier){
OSErr anErr = paramErr;
if (nil != pFSRefPtr) {
CFURLRef tCFURLRef = CFURLCreateFromFSRef(kCFAllocatorDefault, pFSRefPtr);
if (nil != tCFURLRef) {
anErr = MoreAEOCreateObjSpecifierFromCFURLRef(tCFURLRef, pObjSpecifier);
CFRelease(tCFURLRef);
} else
anErr = coreFoundationUnknownErr;
}
return anErr;
}
//********************************************************************************
// A simple wrapper around CreateObjSpecifier which creates
// an object specifier from a FSRef and using formName.
pascal OSStatus MoreAEOCreateObjSpecifierFromFSRef(const FSRefPtr pFSRefPtr,AEDesc *pObjSpecifier)
{
OSErr anErr = paramErr;
if (NULL != pFSRefPtr)
{
#if TARGET_API_MAC_CARBON
CFURLRef tCFURLRef = CFURLCreateFromFSRef(kCFAllocatorDefault,pFSRefPtr);
if (NULL != tCFURLRef)
{
anErr = MoreAEOCreateObjSpecifierFromCFURLRef(tCFURLRef,pObjSpecifier);
CFRelease(tCFURLRef);
}
else
anErr = coreFoundationUnknownErr;
#else
AEDesc containerAEDesc = {typeNull,NULL};
anErr = MoreAEOCreateAliasObjectFromFSRef(pFSRefPtr,&containerAEDesc,pObjSpecifier);
#endif TARGET_API_MAC_CARBON
}
return anErr;
}// end MoreAEOCreateObjSpecifierFromFSRef
