Return to _vec.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libC / new

Annotation of researchv10no/cmd/cfront/libC/new/_vec.c, revision 1.1.1.1

1.1       root        1: typedef void* PV;
                      2: typedef void (*PF)(PV,int,int,int,int,int,int,int,int);
                      3: typedef void (*PFI)(PV,int ...);
                      4: /*
                      5:        ERROR: cannot handle classes with more than 8 virtual bases
                      6: */
                      7: 
                      8: // functions that manage the map from arrays to their element counts
                      9: extern void    __insert_new_array(PV key, int count);
                     10:        // key is a pointer to a new array.  It must
                     11:        //      be non-zero
                     12:        //      not already be in the table
                     13:        // count is the number of elements in the array.  May be zero
                     14: extern int     __remove_old_array(PV key);
                     15:        // removes an old array from the table.  Returns the count or -1 if not found
                     16: 
                     17: #ifdef __cplusplus
                     18: extern "C"
                     19: #endif
                     20: PV __vec_new(PV op, int n, int sz, PV f)
                     21: /*
                     22:        allocate a vector of "n" elements of size "sz"
                     23:        and initialize each by a call of "f"
                     24: */
                     25: {
                     26:        if (op == 0) {
                     27:                op = PV( new char[n*sz] );
                     28:                if (op) __insert_new_array(op, n);
                     29:        }
                     30:        if (op && f) {
                     31:                register char* p = (char*) op;
                     32:                register char* lim = p + n*sz;
                     33:                register PF fp = PF(f);
                     34:                while (p < lim) {
                     35:                        (*fp) (PV(p),0,0,0,0,0,0,0,0);
                     36:                        p += sz;
                     37:                }
                     38:        }
                     39:        return PV(op);
                     40: }
                     41: 
                     42: #ifdef __cplusplus
                     43: extern "C"
                     44: #endif
                     45: void __vec_delete(PV op, int n, int sz, PV f, int del, int)
                     46: {
                     47:        if (op) {
                     48:                if (f) {
                     49:                        if (del && n == -1)
                     50:                                n = __remove_old_array(op);     // -1 if not found
                     51:                        register char* cp = (char*) op;
                     52:                        register char* p = cp;
                     53:                        register PFI fp = PFI(f);
                     54:                        p += n*sz;
                     55:                        while (p > cp) {
                     56:                                p -= sz;
                     57:                                (*fp)(PV(p), 2);  // destroy VBC, don't delete
                     58:                        }
                     59:                }
                     60:                if (del) delete op;
                     61:        }
                     62: }
                     63: 

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