Return to put.c CVS log

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

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

1.1     ! root        1: #include <jerq.h>
        !             2: #include <jerqio.h>
        !             3: #define _SYSWRITE      3
        !             4: 
        !             5: putchar(c)
        !             6: {
        !             7:        putc(c,stdout);
        !             8: }
        !             9: 
        !            10: putc(c,f)
        !            11: register FILE *f;
        !            12: {
        !            13:        register i = 0;
        !            14: 
        !            15:        if (f->base == NULL)
        !            16:        {
        !            17:                f->cp = f->base = alloc(BUFSIZ);
        !            18:                if (f->base == NULL)
        !            19:                        return(-1);
        !            20:                f->count = BUFSIZ;
        !            21:        }
        !            22:        *f->cp++ = c;
        !            23:        if (--f->count == 0 || ((c == '\n') && isatty(f)))
        !            24:                i = fflush(f);
        !            25:        return(i);
        !            26: }
        !            27: 
        !            28: fflush(f)
        !            29: register FILE *f;
        !            30: {
        !            31:        register int n, r;
        !            32: 
        !            33:        if ((f->flag & _IOWRT) && ((n = f->cp - f->base) > 0))
        !            34:                r = _write(fileno(f),f->base,n);
        !            35:        f->cp = f->base;
        !            36:        f->count = BUFSIZ;
        !            37:        return((r == n) - 1);
        !            38: }
        !            39: 
        !            40: puts(s)
        !            41: register char *s;
        !            42: {
        !            43:        fputs(s,stdout);
        !            44: }
        !            45: 
        !            46: fputs(s,f)
        !            47: register char *s;
        !            48: register FILE *f;
        !            49: {
        !            50:        register int c;
        !            51:        while (c = *s++)
        !            52:                putc(c,f);
        !            53: }
        !            54: 
        !            55: _write(fd,buf,n)
        !            56: char *buf;
        !            57: {
        !            58:        tag(_SYSWRITE);
        !            59:        jputshort(fd);
        !            60:        jputbuf(buf,n);
        !            61:        return(jgetshort());
        !            62: }
        !            63: 

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