Return to _vec.c CVS log

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

Annotation of researchv9/jerq/src/lib/C/_vec.c, revision 1.1.1.1

1.1       root        1: typedef void* PV;
                      2: typedef void (*PF)(PV);
                      3: typedef void (*PFI)(PV,int);
                      4: 
                      5: PV _vec_new(PV op, int n, int sz, PV f)
                      6: /*
                      7:        allocate a vector of "n" elements of size "sz"
                      8:        and initialize each by a call of "f"
                      9: */
                     10: {
                     11:        if (op == 0) op = PV( new char[n*sz] );
                     12:        register char* p = (char*) op;
                     13:        if (f) for (register int i=0; i<n; i++) ( *PF(f) )( PV(p+i*sz) );
                     14:        return PV(p);
                     15: }
                     16: 
                     17: void _vec_delete(PV op, int n, int sz, PV f, int del)
                     18: {
                     19:        if (op == 0) return;
                     20:        if (f) {
                     21:                register char* p = (char*) op;
                     22:                for (register int i=0; i<n; i++) PFI(f)(PV(p+i*sz),0);
                     23:        }
                     24:        if (del) delete op;
                     25: }

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