gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.260, 2012/07/23 15:00:53	version 1.261, 2012/07/23 15:07:23
Line 2492 Xt gforth_find(Char * name)	Line 2492 Xt gforth_find(Char * name)
return xt;	return xt;
}	}

int gforth_main(int argc, char argv, char env)	int gforth_start(int argc, char ** argv)
{	{
char path, imagename;	char path, imagename;
int retvalue;

gforth_args(argc, argv, &path, &imagename);	gforth_args(argc, argv, &path, &imagename);
gforth_header = gforth_loader(imagename, path);	gforth_header = gforth_loader(imagename, path);
gforth_UP = gforth_stacks(dsize, rsize, fsize, lsize);	gforth_UP = gforth_stacks(dsize, rsize, fsize, lsize);
gforth_setstacks();	gforth_setstacks();
retvalue=gforth_boot(argc, argv, path);	return gforth_boot(argc, argv, path);
	}

	int gforth_main(int argc, char argv, char env)
	{
	int retvalue=gforth_start(argc, argv);

if(retvalue > 0) {	if(retvalue > 0) {
gforth_execute(gforth_find("bootmessage"));	gforth_execute(gforth_find("bootmessage"));
retvalue = gforth_quit();	retvalue = gforth_quit();