cpython/Mac/Contrib/BBPy/source/BBPy_lauch.c

95 lines
2.7 KiB
C
Raw Normal View History

1998-08-18 11:54:11 -03:00
/*
* Launch the PythonSlave.py script.
* This works exactly as if you'd double clicked on the file in the Finder, which
* not surprisingly is how its implemented (via the AppleEvents route of course).
*
* Largely based on code submitted by Mark Roseman <roseman@cpsc.ucalgary.ca>
* Thanks!
*/
#include "BBPy.h"
pascal Boolean MyFileFilter(CInfoPBPtr PB);
FileFilterUPP gMyFileFilterUPP = NULL;
Boolean GetPythonSlaveSpec(FSSpec * docSpec) {
StandardFileReply reply;
SFTypeList typeList;
typeList[0] = 'TEXT';
//if (!gMyFileFilterUPP)
gMyFileFilterUPP = NewFileFilterProc( MyFileFilter );
StandardGetFile(gMyFileFilterUPP, 0, typeList, &reply);
DisposePtr((Ptr)gMyFileFilterUPP);
if(!reply.sfGood)
return 0; /* user cancelled */
docSpec->vRefNum = reply.sfFile.vRefNum;
docSpec->parID = reply.sfFile.parID;
BlockMove(reply.sfFile.name, docSpec->name, 64);
return 1;
}
pascal Boolean MyFileFilter(CInfoPBPtr PB) {
OSType fType; /* file type */
OSType fCreator; /* file creator */
fType =((HParmBlkPtr)PB)->fileParam.ioFlFndrInfo.fdType;
fCreator = ((HParmBlkPtr)PB)->fileParam.ioFlFndrInfo.fdCreator;
if (fType == 'TEXT' &&
fCreator == 'Pyth')
return 0;
return 1;
}
OSErr LaunchPythonSlave(FSSpec * docSpec) {
OSErr err;
FSSpec dirSpec;
AEAddressDesc finderAddress;
AppleEvent theEvent, theReply;
OSType finderSig = 'MACS';
AliasHandle DirAlias, FileAlias;
AEDesc fileList;
AEDesc aeDirDesc, listElem;
err = AECreateDesc(typeApplSignature, (Ptr)&finderSig, 4, &finderAddress);
if(err != noErr) return err;
err = AECreateAppleEvent('FNDR', 'sope', &finderAddress,
kAutoGenerateReturnID, kAnyTransactionID, &theEvent);
if(err != noErr) return err;
FSMakeFSSpec(docSpec->vRefNum, docSpec->parID, NULL, &dirSpec);
NewAlias(NULL, &dirSpec, &DirAlias);
NewAlias(NULL, docSpec, &FileAlias);
err = AECreateList(NULL, 0, 0, &fileList);
HLock((Handle)DirAlias);
AECreateDesc(typeAlias, (Ptr)*DirAlias, GetHandleSize((Handle)DirAlias), &aeDirDesc);
HUnlock((Handle)DirAlias);
if ((err = AEPutParamDesc(&theEvent, keyDirectObject, &aeDirDesc)) == noErr) {
AEDisposeDesc(&aeDirDesc);
HLock((Handle)FileAlias);
AECreateDesc(typeAlias, (Ptr)*FileAlias, GetHandleSize((Handle)FileAlias), &listElem);
HLock((Handle)FileAlias);
err = AEPutDesc(&fileList, 0, &listElem);
}
AEDisposeDesc(&listElem);
err = AEPutParamDesc(&theEvent, 'fsel', &fileList);
AEDisposeDesc(&fileList);
err = AESend(&theEvent, &theReply, kAENoReply+kAENeverInteract,
kAENormalPriority, kAEDefaultTimeout, 0L, 0L);
if(err != noErr) return err;
err = AEDisposeDesc(&theEvent);
if(err != noErr) return err;
err = AEDisposeDesc(&theReply);
return err;
}