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     ! 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.