🚀 go-pugleaf

   Date: Fri 20 Mar 87 15:06:11-PST
   From: Richard Hodges <HODGES@sri-stripe.arpa>

   When I try to use vfonts, they do indeed work, but it seems necessary
   to rename them to have a suffix of .onx 
   Is this the way it should work?

Well, I don't think so.  It seems very silly to *always* append the
default suffix.  I think you should try looking for the name you get
as an argument, and if you can't find that then look for the name with
the default suffix tacked on.  The following is the relevant code I'm running
from font.c (I'm not sure if it was in the V10R4, I seem to have
slipped and forgot to RCS things, but it certainly wasn't in V10R3).

		-- Jon

static caddr_t
SearchXFontPath(fname)
register caddr_t	fname;
{
	register caddr_t	cp, pp, c2p;
	static char		xfontpath[MAXPATHLEN];

	/* check for an absolute pathname */
	if (*fname == '/') {
		if (access(fname, R_OK) == 0)
			return(fname);
		else
			return((caddr_t) NULL);
	}

	/* get the environment variable for XFONTPATH */
	if ((pp = getenv("XFONTPATH")) == (caddr_t) NULL) {
		pp = DEFAULT_FONT_PATH;
	}

	for (; *pp != '\0'; pp++) {
		for (cp = xfontpath; *pp != ':' && *pp != '\0'; *cp++ = *pp++);
		*cp++ = '/';
		for (c2p = fname; *c2p != '\0'; *cp++ = *c2p++);
		*cp = '\0';
		if (access(xfontpath, R_OK) == 0) {
			return(xfontpath);
		}
		for (c2p = DEFAULT_FONT_SUFFIX; *c2p != '\0'; *cp++ = *c2p++);
		*cp = '\0';
		if (access(xfontpath, R_OK) == 0) {
			return(xfontpath);
		}
	}
	return ((caddr_t) NULL);
} /* end SearchXFontPath() */