void AliasToFullPath(Handle aliasValue, char* fullPath, int32 maxPathLength)
{
if (fullPath != NULL)
{
*fullPath = 0;
#ifdef __PIMac__
OSErr err;
Boolean wasChanged = false;
FSRef fileRef;
err = FSResolveAlias(nil, (AliasHandle)aliasValue, &fileRef, &wasChanged);
if (err != noErr) return;
err = FSRefMakePath(&fileRef, (unsigned char*)fullPath, maxPathLength);
#elif defined(__PIWin__)
int32 length = sPSHandle->GetSize(aliasValue);
Boolean oldLock = FALSE;
Ptr pointer = NULL;
sPSHandle->SetLock(aliasValue, true, &pointer, &oldLock);
if (pointer != NULL)
{
strcpy(fullPath, pointer);
sPSHandle->SetLock(aliasValue, oldLock, &pointer, &oldLock);
}
#endif
}
}
Boolean GetFileFromObjectAndKey(const AEDescList* desc, AEKeyword keyword, FSRef* file, Boolean create)
{
DescType data_desc;
MacSize data_size;
OSErr err;
err = AESizeOfKeyDesc(desc, keyword, &data_desc, &data_size);
if (err == noErr)
{
if (data_desc == typeObjectSpecifier) {
// file object...
AEDesc fileObject;
err = AEGetKeyDesc(desc, keyword, typeObjectSpecifier, &fileObject);
if (err == noErr)
{
Boolean ok = GetFileFromObjectAndKey(&fileObject, keyAEKeyData, file, create);
AEDisposeDesc(&fileObject);
return ok;
}
}
else if (data_desc == typeChar && data_size <= 255) {
// file path...
FSRef spec;
Str255 path;
err = AEGetKeyPtr(desc, keyword, typeChar, &data_desc, &path[1], 255, &data_size);
path[0] = data_size;
if (err == noErr)
{
FSRef folderRef;
OpString unicode_path;
unicode_path.SetL((const char*)path);
err = FSFindFolder(kLocalDomain, kVolumeRootFolderType, kDontCreateFolder, &folderRef);
// FIXME: ismailp - test rhoroughly
err = FSMakeFSRefUnicode(&folderRef, unicode_path.Length(), (const UniChar*)unicode_path.CStr(), kTextEncodingUnknown, &spec); //FSMakeFSSpec(0, 0, path, &spec);
if (create && (err == noErr || err == fnfErr))
{
if (noErr == err)
{
FSDeleteObject(&spec);
}
err = FSCreateFileUnicode(&spec, 0, NULL, kFSCatInfoNone, NULL, file, NULL);
}
}
}
else if (data_desc == typeAlias) {
// file alias...
Handle alias = NewHandle(data_size);
FSRef spec;
HLock(alias);
err = AEGetKeyPtr(desc, keyword, typeAlias, &data_desc, *alias, data_size, &data_size);
if (err == noErr)
{
Boolean changed;
err = FSResolveAlias(NULL, (AliasHandle)alias, &spec, &changed);
if (create && (err == noErr || err == fnfErr))
{
if (noErr == err)
{
FSDeleteObject(&spec);
}
err = FSCreateFileUnicode(&spec, 0, NULL, kFSCatInfoNone, NULL, file, NULL); //FSpCreate(&spec, '\?\?\?\?', '\?\?\?\?', NULL);
}
}
DisposeHandle(alias);
}
else {
err = paramErr;
}
}
return (err == noErr);
}
static OSErr
ScriptHandler(
const AppleEvent *event,
AppleEvent *reply,
SRefCon handlerRefcon)
{
OSStatus theErr;
AEDescList theDesc;
int tclErr = -1;
Tcl_Interp *interp = (Tcl_Interp *) handlerRefcon;
char errString[128];
/*
* The do script event receives one parameter that should be data or a
* file.
*/
theErr = AEGetParamDesc(event, keyDirectObject, typeWildCard,
&theDesc);
if (theErr != noErr) {
sprintf(errString, "AEDoScriptHandler: GetParamDesc error %d",
(int)theErr);
theErr = AEPutParamPtr(reply, keyErrorString, typeChar, errString,
strlen(errString));
} else if (MissedAnyParameters(event)) {
/*
* Return error if parameter is missing.
*/
sprintf(errString, "AEDoScriptHandler: extra parameters");
AEPutParamPtr(reply, keyErrorString, typeChar, errString,
strlen(errString));
theErr = -1771;
} else if (theDesc.descriptorType == (DescType) typeChar) {
/*
* We've had some data sent to us. Evaluate it.
*/
Tcl_DString encodedText;
short i;
Size size = AEGetDescDataSize(&theDesc);
char *data = ckalloc(size + 1);
AEGetDescData(&theDesc, data, size);
data[size] = 0;
for (i = 0; i < size; i++) {
if (data[i] == '\r') {
data[i] = '\n';
}
}
AEReplaceDescData(theDesc.descriptorType, data, size + 1, &theDesc);
Tcl_ExternalToUtfDString(NULL, data, size, &encodedText);
tclErr = Tcl_EvalEx(interp, Tcl_DStringValue(&encodedText),
Tcl_DStringLength(&encodedText), TCL_EVAL_GLOBAL);
Tcl_DStringFree(&encodedText);
} else if (theDesc.descriptorType == (DescType) typeAlias) {
/*
* We've had a file sent to us. Source it.
*/
Boolean dummy;
FSRef file;
Size theSize = AEGetDescDataSize(&theDesc);
AliasPtr alias = (AliasPtr) ckalloc(theSize);
if (alias) {
AEGetDescData(&theDesc, alias, theSize);
theErr = FSResolveAlias(NULL, &alias, &file, &dummy);
ckfree((char*)alias);
} else {
theErr = memFullErr;
}
if (theErr == noErr) {
Tcl_DString scriptName;
theErr = FSRefToDString(&file, &scriptName);
if (theErr == noErr) {
Tcl_EvalFile(interp, Tcl_DStringValue(&scriptName));
Tcl_DStringFree(&scriptName);
}
} else {
sprintf(errString, "AEDoScriptHandler: file not found");
AEPutParamPtr(reply, keyErrorString, typeChar, errString,
strlen(errString));
}
} else {
/*
* Umm, don't recognize what we've got...
*/
sprintf(errString, "AEDoScriptHandler: invalid script type '%-4.4s',"
" must be 'alis' or 'TEXT'", (char*) &theDesc.descriptorType);
AEPutParamPtr(reply, keyErrorString, typeChar, errString,
strlen(errString));
theErr = -1770;
}
/*
* If we actually go to run Tcl code - put the result in the reply.
*/
if (tclErr >= 0) {
int reslen;
const char *result =
Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &reslen);
if (tclErr == TCL_OK) {
AEPutParamPtr(reply, keyDirectObject, typeChar, result, reslen);
} else {
AEPutParamPtr(reply, keyErrorString, typeChar, result, reslen);
AEPutParamPtr(reply, keyErrorNumber, typeSInt32, (Ptr) &tclErr,
sizeof(int));
}
}
AEDisposeDesc(&theDesc);
return theErr;
}
