Return to getfont.c CVS log

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

Annotation of researchv9/jerq/src/lib/j/getfont.c, revision 1.1.1.1

1.1       root        1: #include       <jerq.h>
                      2: #include       <font.h>
                      3: #include       <jerqio.h>
                      4: 
                      5: static FILE *inf;
                      6: 
                      7: static
                      8: cget()
                      9: {
                     10:        return(getc(inf));
                     11: }
                     12: 
                     13: Font *
                     14: getfont(s)
                     15:        char *s;
                     16: {
                     17:        Font *f;
                     18: 
                     19:        if((inf = fopen(s, "r")) == (FILE *)0)
                     20:        {
                     21:                return((Font *)0);
                     22:        }
                     23: 
                     24:        f = infont(cget);
                     25:        fclose(inf);
                     26:        return(f);
                     27: }

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