gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.211, 2008/08/16 16:31:16	version 1.212, 2008/08/16 17:54:23
Line 2277 int main(int argc, char argv, char e	Line 2277 int main(int argc, char argv, char e
progname = argv[0];	progname = argv[0];

#ifndef STANDALONE	#ifndef STANDALONE
	#ifdef HAVE_LIBLTDL
if (lt_dlinit()!=0) {	if (lt_dlinit()!=0) {
fprintf(stderr,"%s: lt_dlinit failed", progname);	fprintf(stderr,"%s: lt_dlinit failed", progname);
exit(1);	exit(1);
}	}
	#endif

#ifdef HAS_OS	#ifdef HAS_OS
gforth_args(argc, argv, &path, &imagename);	gforth_args(argc, argv, &path, &imagename);
Line 2330 int main(int argc, char argv, char e	Line 2332 int main(int argc, char argv, char e
#endif	#endif
deprep_terminal();	deprep_terminal();
#ifndef STANDALONE	#ifndef STANDALONE
	#ifdef HAVE_LIBLTDL
if (lt_dlexit()!=0)	if (lt_dlexit()!=0)
fprintf(stderr,"%s: lt_dlexit failed", progname);	fprintf(stderr,"%s: lt_dlexit failed", progname);
#endif	#endif
	#endif
}	}
if (print_metrics) {	if (print_metrics) {
int i;	int i;