/*
    Copyright 2014 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 <stdio.h>
#include <Events.h>
#include <Processes.h>
#include <ToolUtils.h>
#include <Files.h>
#include <Resources.h>

#include <string.h>

void Explain(void)
{
    printf("*********************************************************\n");
    printf("This program is intended to make developing software\n");
    printf("using Retro68K and Mini vMac a little more convenient.\n");
    printf("\n");
    printf("If you insert a disk that contains a single application\n");
    printf("(= drag a disk image created by Retro68K to this window),\n");
    printf("the application will be automatically launched and the\n");
    printf("disk image unmounted again afterwards.\n");
    printf("\n");
    printf("It just saves a few repetitive clicks.\n");
    printf("*********************************************************\n");
}

void EjectOldDisk(void)
{
    Handle h = GetResource('LNCH', 128);
    if(h)
    {
        short refNum = **(short**)h;
        printf("Ejecting disk (refNum = %d)\n", (int)refNum);

        Eject(NULL, refNum);
        UnmountVol(NULL, refNum);
        RemoveResource(h);
    }
}

int main(void)
{
    Explain();
    EjectOldDisk();
    printf("Insert a disk or hit any key to abort.\n");

    FlushEvents(everyEvent, 0);

    for(;;)
    {
        EventRecord e;
        GetNextEvent(everyEvent, &e);

        switch(e.what)
        {
            case keyDown:
                return 0;
                break;

            case diskEvt:
                {
                    short refNum = LoWord(e.message);
                    short err = HiWord(e.message);
                    printf("Disk Inserted (refNum = %d, error = %d)\n", refNum, err);
                    if(err == 0)
                    {
                        {
                            Handle h = NewHandle(2);
                            **(short**)h = refNum;
                            AddResource(h, 'LNCH', 128, "");
                        }
                        SetVol(NULL, refNum);

                        CInfoPBRec cpb;
                        unsigned char name[257];
                        int i, nApps = 0;
                        unsigned char bestName[257];
                        for(i = 1;; i++)
                        {
                            memset(&cpb, 0, sizeof(cpb));
                            cpb.dirInfo.ioVRefNum = refNum;
                            cpb.dirInfo.ioFDirIndex = i;
                            cpb.dirInfo.ioNamePtr = name;
                            err = PBGetCatInfoSync(&cpb);

                            if(err != noErr)
                                break;

                            name[name[0]+1] = 0;
                            if(cpb.hFileInfo.ioFlFndrInfo.fdType == 'APPL')
                            {
                                printf("Application: %s\n", &name[1]);
                                memcpy(bestName, name, sizeof(bestName));
                                ++nApps;
                            }
                        }

                        if(nApps == 0)
                        {
                            printf("No applications found on disk.\n");
                            EjectOldDisk();
                        }
                        else if(nApps > 1)
                        {
                            printf("Multiple applications found on disk.\n");
                            EjectOldDisk();
                        }
                        else
                        {
                            LaunchParamBlockRec lpb;
                            memset(&lpb, 0, sizeof(lpb));

                            lpb.reserved1 = (unsigned long) bestName;
                            lpb.reserved2 = 0;
                            lpb.launchBlockID = extendedBlock;
                            lpb.launchEPBLength = 6;
                            lpb.launchFileFlags = 0;
                            lpb.launchControlFlags = 0xC000;

                            printf("Launching...\n");
                            err = LaunchApplication(&lpb);
                            printf("Still here after launch (err = %d). Press Enter to exit.\n", (int)err);
                            getchar();
                            return 0;
                        }
                    }
                    else
                        Eject(NULL, refNum);
                }
                break;
        }
    }
    return 0;
}