gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.258, 2012/07/23 14:46:31	version 1.259, 2012/07/23 14:53:53
Line 2472 int gforth_quit()	Line 2472 int gforth_quit()

int gforth_execute(Xt xt)	int gforth_execute(Xt xt)
{	{
debugp(stderr, "Execte Gforth xt %p: %p\n", xt, gforth_header->execute_entry);	debugp(stderr, "Execute Gforth xt %p: %p\n", xt, gforth_header->execute_entry);

*--gforth_SP = (Cell)xt;	*--gforth_SP = (Cell)xt;

return gforth_go(gforth_header->quit_entry);	return gforth_go(gforth_header->execute_entry);
}	}

Xt gforth_find(Char * name)	Xt gforth_find(Char * name)
{	{
	Xt xt;
debugp(stderr, "Find '%s' in Gforth: %p\n", name, gforth_header->find_entry);	debugp(stderr, "Find '%s' in Gforth: %p\n", name, gforth_header->find_entry);

*--gforth_SP = (Cell)name;	*--gforth_SP = (Cell)name;
*--gforth_SP = strlen(name);	*--gforth_SP = strlen(name);

return (Xt)gforth_go(gforth_header->find_entry);	xt = (Xt)gforth_go(gforth_header->find_entry);
	debugp(stderr, "Found %p\n", xt);
	return xt;
}	}

int gforth_main(int argc, char argv, char env)	int gforth_main(int argc, char argv, char env)
Line 2500 int gforth_main(int argc, char **argv, c	Line 2503 int gforth_main(int argc, char **argv, c
gforth_setstacks();	gforth_setstacks();
retvalue=gforth_boot(argc, argv, path);	retvalue=gforth_boot(argc, argv, path);
if(retvalue > 0) {	if(retvalue > 0) {
	/* gforth_execute(gforth_find("license")); */
retvalue = gforth_quit();	retvalue = gforth_quit();
}	}
gforth_cleanup();	gforth_cleanup();