Return to get.c CVS log

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

Annotation of researchv9/jerq/src/lib/j/get.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: #include <jerqio.h>
        !             3: #define _SYSREAD       5
        !             4: 
        !             5: getchar()
        !             6: {
        !             7:        return(getc(stdin));
        !             8: }
        !             9: 
        !            10: getc(f)
        !            11: register FILE *f;
        !            12: {
        !            13:        register int c;
        !            14: 
        !            15:        if (f->base == NULL)
        !            16:                f->cp = f->base = alloc(BUFSIZ);
        !            17:        if (f->count == 0) {
        !            18:                f->count = _read(fileno(f),f->base,BUFSIZ);
        !            19:                if (f->count == 0)
        !            20:                        return(EOF);
        !            21:                f->cp = f->base;
        !            22:        }
        !            23:        f->count--;
        !            24:        c = *f->cp++;
        !            25:        c &= 0xff;
        !            26:        return(c);
        !            27: }
        !            28: 
        !            29: _read(i,buf,n)
        !            30: char *buf;
        !            31: {
        !            32:        tag(_SYSREAD);
        !            33:        jputshort(i);
        !            34:        jflush();
        !            35:        return(jgetbuf(buf,n));
        !            36: }

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