/********************************************************************************
Send an Apple event to the Finder to set the finder comment of the item
specified by the FSSpecPtr.
pFSSpecPtr ==> The item to set the file kind of.
pCommentStr ==> A string to which the file comment will be set
pIdleProcUPP ==> A UPP for an idle function, or nil.
See note about idle functions above.
*/
pascal OSErr MoreFESetComment(const FSRef *pFSRefPtr, const FSSpecPtr pFSSpecPtr, const Str255 pCommentStr, const AEIdleUPP pIdleProcUPP)
{
AppleEvent tAppleEvent = {typeNull,nil}; // If you always init AEDescs, it's always safe to dispose of them.
AEBuildError tAEBuildError;
AEDesc tAEDesc = {typeNull,nil};
OSErr anErr = noErr;
anErr = MoreAEOCreateObjSpecifierFromFSRef(pFSRefPtr,&tAEDesc);
if (noErr == anErr)
{
char* dataPtr = NewPtr(pCommentStr[0] + 1);
strncpy(dataPtr, (char*)pCommentStr + 1, pCommentStr[0]);
anErr = AEBuildAppleEvent(
kAECoreSuite,kAESetData,
typeApplSignature,&gFinderSignature,sizeof(OSType),
kAutoGenerateReturnID,kAnyTransactionID,
&tAppleEvent,&tAEBuildError,
"'----':obj {form:prop,want:type(prop),seld:type(comt),from:(@)},data:'TEXT'(@)",
&tAEDesc,dataPtr);
DisposePtr(dataPtr);
if (noErr == anErr)
{
// Send the event. In this case we don't care about the reply
anErr = MoreAESendEventNoReturnValue(pIdleProcUPP,&tAppleEvent);
(void) MoreAEDisposeDesc(&tAppleEvent); // always dispose of AEDescs when you are finished with them
}
}
return anErr;
} // end MoreFESetComment
pascal OSErr MoreFEGetCommentCFString(const FSRefPtr pFSRefPtr, CFStringRef* pCommentStr,const AEIdleUPP pIdleProcUPP)
{
AppleEvent tAppleEvent = {typeNull,NULL}; // If you always init AEDescs, it's always safe to dispose of them.
AEDesc tAEDesc = {typeNull,NULL};
OSErr anErr = noErr;
if (NULL == pIdleProcUPP) // the idle proc is required
return paramErr;
anErr = MoreAEOCreateObjSpecifierFromFSRef(pFSRefPtr,&tAEDesc);
if (noErr == anErr)
{
AEBuildError tAEBuildError;
anErr = AEBuildAppleEvent(
kAECoreSuite,kAEGetData,
typeApplSignature,&gFinderSignature,sizeof(OSType),
kAutoGenerateReturnID,kAnyTransactionID,
&tAppleEvent,&tAEBuildError,
"'----':obj {form:prop,want:type(prop),seld:type(comt),from:(@)}",&tAEDesc);
// always dispose of AEDescs when you are finished with them
(void) MoreAEDisposeDesc(&tAEDesc);
if (noErr == anErr)
{
#if 0 // Set this true to printf the Apple Event before you send it.
Handle strHdl;
anErr = AEPrintDescToHandle(&tAppleEvent,&strHdl);
if (noErr == anErr)
{
char nul = '\0';
PtrAndHand(&nul,strHdl,1);
printf("\n-MoreFEGetCommentCFString: tAppleEvent=%s.",*strHdl); fflush(stdout);
DisposeHandle(strHdl);
}
#endif
// Send the event.
anErr = MoreAESendEventReturnAEDesc(pIdleProcUPP,&tAppleEvent,typeUnicodeText,&tAEDesc);
// always dispose of AEDescs when you are finished with them
(void) MoreAEDisposeDesc(&tAppleEvent);
if (noErr == anErr)
{
anErr = MoreAEGetCFStringFromDescriptor(&tAEDesc,pCommentStr);
// always dispose of AEDescs when you are finished with them
(void) MoreAEDisposeDesc(&tAEDesc);
}
}
}
return anErr;
} // end MoreFEGetCommentCFString
pascal OSStatus MoreAEOCreateObjSpecifierFromFSSpec(const FSSpecPtr pFSSpecPtr, AEDesc *pObjSpecifier){
OSErr anErr = paramErr;
if (nil != pFSSpecPtr) {
FSRef tFSRef;
anErr = FSpMakeFSRef(pFSSpecPtr, &tFSRef);
if (noErr == anErr) {
anErr = MoreAEOCreateObjSpecifierFromFSRef(&tFSRef, pObjSpecifier);
}
}
return anErr;
}
pascal OSErr MoreFEGetComment(const FSRef *pFSRefPtr, const FSSpecPtr pFSSpecPtr,Str255 pCommentStr,const AEIdleUPP pIdleProcUPP)
{
AppleEvent tAppleEvent = {typeNull,NULL}; // If you always init AEDescs, it's always safe to dispose of them.
AEDesc tAEDesc = {typeNull,NULL};
OSErr anErr = noErr;
if (NULL == pIdleProcUPP) // the idle proc is required
{
fprintf(stderr, "No proc pointer\n");
return paramErr;
}
anErr = MoreAEOCreateObjSpecifierFromFSRef(pFSRefPtr,&tAEDesc);
if (anErr)
{
fprintf(stderr, "Error creating objspecifier from fsspec\n");
return paramErr;
}
if (noErr == anErr)
{
AEBuildError tAEBuildError;
anErr = AEBuildAppleEvent(
kAECoreSuite,kAEGetData,
typeApplSignature,&gFinderSignature,sizeof(OSType),
kAutoGenerateReturnID,kAnyTransactionID,
&tAppleEvent,&tAEBuildError,
"'----':obj {form:prop,want:type(prop),seld:type(comt),from:(@)}",&tAEDesc);
// always dispose of AEDescs when you are finished with them
(void) MoreAEDisposeDesc(&tAEDesc);
if (noErr == anErr)
{
// Send the event.
anErr = MoreAESendEventReturnPString(pIdleProcUPP,&tAppleEvent,pCommentStr);
if (anErr)
{
fprintf(stderr, "Error sending event to get pascal string\n");
}
// always dispose of AEDescs when you are finished with them
(void) MoreAEDisposeDesc(&tAppleEvent);
}
else
{
fprintf(stderr, "Error building Apple Event\n");
}
}
return anErr;
} // end MoreFEGetComment
//********************************************************************************
// A simple wrapper around CreateObjSpecifier which creates
// an object specifier from a FSSpec using formName.
pascal OSStatus MoreAEOCreateObjSpecifierFromFSSpec(const FSSpecPtr pFSSpecPtr,AEDesc *pObjSpecifier)
{
OSErr anErr = paramErr;
if (NULL != pFSSpecPtr)
{
#if TARGET_API_MAC_CARBON
FSRef tFSRef;
anErr = FSpMakeFSRef(pFSSpecPtr,&tFSRef);
if (noErr == anErr)
{
anErr = MoreAEOCreateObjSpecifierFromFSRef(&tFSRef,pObjSpecifier);
}
#else
AEDesc containerAEDesc = {typeNull,NULL};
anErr = MoreAEOCreateAliasObjectFromFSSpec(pFSSpecPtr,&containerAEDesc,pObjSpecifier);
#endif TARGET_API_MAC_CARBON
}
return anErr;
}//end MoreAEOCreateObjSpecifierFromFSSpec
