/*    Copyright 2019 Wolfgang Thaller.     This file is part of Retro68.     Retro68 is free software: you can redistribute it and/or modify    it under the terms of the GNU General Public License as published by    the Free Software Foundation, either version 3 of the License, or    (at your option) any later version.     Retro68 is distributed in the hope that it will be useful,    but WITHOUT ANY WARRANTY; without even the implied warranty of    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    GNU General Public License for more details.     You should have received a copy of the GNU General Public License    along with Retro68.  If not, see <http://www.gnu.org/licenses/>.*/ #include "AppLauncher.h" #include <AppleEvents.h>#include <Files.h>#include <vector>#include <string.h> class ToolLauncher : public AppLauncher{    bool replyReceived;    AEEventHandlerUPP replyHandler = nullptr;     Handle buildCommandLine(ConstStr255Param name)    {        CInfoPBRec pb;        memset(&pb, 0, sizeof(pb));         pb.hFileInfo.ioNamePtr = (StringPtr)name;        PBGetCatInfoSync(&pb);        long dirID = pb.hFileInfo.ioFlParID;         std::vector<unsigned long> dirIDs;         while(dirID != 2)        {            dirIDs.push_back(dirID);                        pb.dirInfo.ioNamePtr = 0;            pb.dirInfo.ioDrDirID = dirID;            pb.dirInfo.ioFDirIndex = -1;            PBGetCatInfoSync(&pb);             dirID = pb.dirInfo.ioDrParID;        } while(dirID != 2);         dirIDs.push_back(dirID);         Handle text;        PtrToHand("\"", &text, 1);                for(int i = dirIDs.size() - 1; i >= 0; i--)        {            Str32 dirName;            pb.dirInfo.ioNamePtr = dirName;            pb.dirInfo.ioDrDirID = dirIDs[i];            pb.dirInfo.ioFDirIndex = -1;            PBGetCatInfoSync(&pb);            PtrAndHand(dirName+1, text, dirName[0]);            PtrAndHand(":", text, 1);        }         long sz1 = GetHandleSize(text);                PtrAndHand(name+1, text, name[0]);        PtrAndHand("\" > ", text, 4);         long sz2 = GetHandleSize(text);        SetHandleSize(text, sz2 + sz1 + 4);        memcpy((*text) + sz2, *text, sz1);        memcpy((*text) + sz1 + sz2, "out\"", 4);         return text;    }     static pascal OSErr handleReply(const AppleEvent *theAppleEvent, AppleEvent *reply, long handlerRefcon)    {        ToolLauncher *self = (ToolLauncher*)handlerRefcon;        self->replyReceived = true;         AERemoveEventHandler(kCoreEventClass, kAEAnswer, self->replyHandler, false);        return noErr;    } public:    virtual bool Launch(ConstStr255Param name)    {        if(!replyHandler)            replyHandler = NewAEEventHandlerUPP(&handleReply);        AEInstallEventHandler(kCoreEventClass, kAEAnswer, replyHandler, (long)this, false);         AEAddressDesc address;         OSType signature = 'MPS ';        OSErr err = AECreateDesc(typeApplSignature, &signature, 4, &address);         AppleEvent ae;        err = AECreateAppleEvent('misc', 'dosc', &address, kAutoGenerateReturnID, kAnyTransactionID, &ae);                Handle command = buildCommandLine(name);        Str255 commandP;        commandP[0] =GetHandleSize(command);        memcpy(commandP + 1, *command, commandP[0]);        HLock(command);        err = AEPutParamPtr(&ae, keyDirectObject, typeChar, *command, GetHandleSize(command));        DisposeHandle(command);         AppleEvent reply;         err = AESend(&ae, &reply, kAEQueueReply | kAEAlwaysInteract | kAECanSwitchLayer, kAENormalPriority, kAEDefaultTimeout, nullptr, nullptr);                AEDisposeDesc(&address);        AEDisposeDesc(&ae);                return err == noErr;    }    virtual bool IsRunning(ConstStr255Param name)    {        return !replyReceived;    }}; std::unique_ptr<AppLauncher> CreateToolLauncher(){    return std::make_unique<ToolLauncher>();}