Return to newlino.c CVS log

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

Annotation of 42BSD/ingres/source/iutil/newlino.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <access.h>
                      3: # include      <sccs.h>
                      4: 
                      5: SCCSID(@(#)newlino.c   7.1     2/5/81)
                      6: 
                      7: /*
                      8: ** newlino finds a free line number which it returns and adjusts
                      9: **     the next line counter (Nxtlino) by the length of the tuple (len).
                     10: **     This routine is used to recover unused sections of the
                     11: **     line number table (Acc_head->linetab).
                     12: */
                     13: 
                     14: newlino(len)
                     15: int    len;
                     16: {
                     17:        register int    newlno, nextlno;
                     18:        register short  *lp;
                     19: 
                     20:        nextlno = Acc_head->nxtlino;
                     21:        lp = &Acc_head->linetab[0];
                     22:        for (newlno = 0; newlno < nextlno; newlno++)
                     23:        {
                     24:                if (*lp == 0)
                     25:                {
                     26:                        /* found a free line number */
                     27:                        *lp = Acc_head->linetab[-nextlno];
                     28:                        Acc_head->linetab[-nextlno] += len;
                     29:                        return (newlno);
                     30:                }
                     31:                lp--;
                     32:        }
                     33: 
                     34:        /* no free line numbers. use nxtlino */
                     35:        Acc_head->linetab[-(nextlno + 1)] = *lp + len;
                     36:        Acc_head->nxtlino++;
                     37:        return (nextlno);
                     38: }

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