Retro68/LaunchAPPL/Server/ToolLauncher.cc

/*
    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>();
}