factor/vm/os-macosx.m

#include "factor.h"

#import "Foundation/NSAutoreleasePool.h"
#import "Foundation/NSBundle.h"
#import "Foundation/NSException.h"
#import "Foundation/NSString.h"
#import "Foundation/NSPathUtilities.h"

static CELL error;

/* This code is convoluted because Cocoa places restrictions on longjmp and
exception handling. In particular, a longjmp can never cross an NS_DURING,
NS_HANDLER or NS_ENDHANDLER. */
void run()
{
	error = F;

	for(;;)
	{
NS_DURING
		SETJMP(stack_chain->toplevel);
		handle_error();

		if(error != F)
		{
			CELL e = error;
			error = F;
			general_error(ERROR_OBJECTIVE_C,e,F,true);
		}

		interpreter_loop();
		NS_VOIDRETURN;
NS_HANDLER
		error = tag_object(make_alien(F,(CELL)localException));
NS_ENDHANDLER
	}
}

void run_toplevel(void)
{
	interpreter();
}

void early_init(void)
{
	[[NSAutoreleasePool alloc] init];
}

const char *default_image_path(void)
{
	NSBundle *bundle = [NSBundle mainBundle];
	NSString *path = [bundle bundlePath];
	NSString *image;
	if([path hasSuffix:@".app"] || [path hasSuffix:@".app/"])
		image = [[path stringByDeletingLastPathComponent] stringByAppendingString:@"/factor.image"];
	else
		image = [path stringByAppendingString:@"/factor.image"];
	return [image cString];
}

void init_signals(void)
{
	unix_init_signals();
	mach_initialize();
}