Return to list.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam

Annotation of researchv9/jtools/src/sam/list.c, revision 1.1.1.1

1.1       root        1: #include "sam.h"
                      2: 
                      3: /*
                      4:  * Check that list has room for one more element.
                      5:  */
                      6: growlist(l)
                      7:        register List *l;
                      8: {
                      9:        if(l->ptr==0 || l->nalloc==0){
                     10:                gcnew(l->ptr, l->nalloc=INCR);
                     11:                l->nused=0;
                     12:        }else if(l->nused==l->nalloc)
                     13:                gcrenew(l->ptr, l->nalloc+=INCR);
                     14: }
                     15: /*
                     16:  * Remove the ith element from the list
                     17:  */
                     18: dellist(l, i)
                     19:        register List *l;
                     20: {
                     21:        bcopy((uchar *)&l->ptr[i+1], (uchar *)&l->ptr[l->nused],
                     22:                (uchar *)&l->ptr[i], 1);
                     23:        l->nused--;
                     24: }
                     25: /*
                     26:  * Add a new element, whose position is i, to the list
                     27:  */
                     28: inslist(l, i, val)
                     29:        register List *l;
                     30:        register i;
                     31:        long val;
                     32: {
                     33:        growlist(l);
                     34:        bcopy((uchar *)&l->ptr[i], (uchar *)&l->ptr[l->nused],
                     35:                (uchar *)&l->ptr[i+1], -1);
                     36:        l->ptr[i]=val;
                     37:        l->nused++;
                     38: }
                     39: listfree(l)
                     40:        register List *l;
                     41: {
                     42:        gcfree((uchar *)l->ptr);
                     43:        free((uchar *)l);
                     44: }

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