Return to formatpg.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / iutil

Annotation of 42BSD/ingres/source/iutil/formatpg.c, revision 1.1

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <access.h>
        !             3: # include      <sccs.h>
        !             4: 
        !             5: SCCSID(@(#)formatpg.c  7.1     2/5/81)
        !             6: 
        !             7: formatpg(d, n)
        !             8: DESC   *d;
        !             9: long   n;
        !            10: {
        !            11:        struct accbuf   buf;
        !            12:        register char   *p;
        !            13:        extern long     lseek();
        !            14: 
        !            15:        if (Acc_head == 0)
        !            16:                acc_init();
        !            17:        if (lseek(d->relfp, 0l, 0) == -1)
        !            18:                return (-2);
        !            19:        buf.rel_tupid = d->reltid.ltid;
        !            20:        buf.filedesc = d->relfp;
        !            21:        for (p = (char *) &buf; p <= (char *) buf.linetab; p++)
        !            22:                *p = NULL;
        !            23:        buf.nxtlino = 0;
        !            24:        buf.linetab[0] = (int) buf.firstup - (int) &buf;
        !            25:        buf.ovflopg = 0;
        !            26:        for (buf.mainpg = 1; buf.mainpg < n; (buf.mainpg)++)
        !            27:        {
        !            28:                if (write(buf.filedesc, (char *) &buf, PGSIZE) != PGSIZE)
        !            29:                        return (-3);
        !            30:        }
        !            31:        buf.mainpg = 0;
        !            32:        if (write(buf.filedesc, (char *) &buf, PGSIZE) != PGSIZE)
        !            33:                return (-4);
        !            34:        Accuwrite += n;
        !            35:        return (0);
        !            36: }

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