gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.71, 2002/11/24 21:02:04	version 1.72, 2002/12/07 17:43:35
Line 874 Address loader(FILE imagefile, char fi	Line 874 Address loader(FILE imagefile, char fi
return imp;	return imp;
}	}

/* index of last '/' or '\' in file, 0 if there is none. */	/* pointer to last '/' or '\' in file, 0 if there is none. */
int onlypath(char *file)	char onlypath(char filename)
{	{
return strrchr(file, DIRSEP)-file;	return strrchr(filename, DIRSEP);
}	}

FILE openimage(char fullfilename)	FILE openimage(char fullfilename)
Line 912 FILE * open_image_file(char * imagename,	Line 912 FILE * open_image_file(char * imagename,
if(strchr(imagename, DIRSEP)==NULL) {	if(strchr(imagename, DIRSEP)==NULL) {
/* first check the directory where the exe file is in !! 01may97jaw */	/* first check the directory where the exe file is in !! 01may97jaw */
if (onlypath(progname))	if (onlypath(progname))
image_file=checkimage(progname, onlypath(progname), imagename);	image_file=checkimage(progname, onlypath(progname)-progname, imagename);
if (!image_file)	if (!image_file)
do {	do {
char *pend=strchr(path, PATHSEP);	char *pend=strchr(path, PATHSEP);