/* need to utilize some simple managers */
/* #define DEBUG */

#include <FragLoad.h>
#include <MixedMode.h>
#ifdef DEBUG
#include <stdio.h>
#endif DEBUG

static unsigned char *LibraryName = "\pSqueakVM";
static unsigned char *EntryPoint  = "\pshlib_main";

int main()
{
	int err;
	ConnectionID connID;
	Ptr mainAddr, symAddr;
	Str255 errName;
	SymClass symClass;
	UniversalProcPtr real_main_ptr;

	err = GetSharedLibrary(LibraryName, kPowerPCArch, kLoadNewCopy, &connID, &mainAddr, errName);
	if (err != noErr) {
#ifdef DEBUG
		fprintf(stderr, "error %d getting lib SqueakVM\n", err);
#endif
		return err;
	}
	err = FindSymbol(connID, EntryPoint, &symAddr, &symClass);
	if (err != noErr) {
#ifdef DEBUG
		fprintf(stderr, "error %d getting entry shlib_main\n", err);
#endif
		 return err;
	}
	real_main_ptr = NewRoutineDescriptorTrap((ProcPtr)symAddr, kCStackBased, kPowerPCISA);
	(*real_main_ptr)();
}