Return to getfont.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

researchv9-SUN3(old)

#include	<jerq.h>
#include	<font.h>
#include	<jerqio.h>

static FILE *inf;

static
cget()
{
	return(getc(inf));
}

Font *
getfont(s)
	char *s;
{
	Font *f;

	if((inf = fopen(s, "r")) == (FILE *)0)
	{
		return((Font *)0);
	}

	f = infont(cget);
	fclose(inf);
	return(f);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.