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