Return to _new.c CVS log

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

Annotation of researchv9/jerq/src/lib/C/_new.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: typedef void* PV;
        !             3: typedef void (*PF)(PV);
        !             4: typedef void (*PFVV)();
        !             5: 
        !             6: PFVV _new_handler = 0;
        !             7: 
        !             8: PFVV set_new_handler(PFVV handler)
        !             9: {
        !            10:        PFVV rr = _new_handler;
        !            11:        _new_handler = handler;
        !            12:        return rr;
        !            13: }
        !            14: 
        !            15: PV _new(unsigned size)
        !            16: {
        !            17:        char* p;
        !            18: /*     extern char* alloc(unsigned);    not for mux! */
        !            19:        while ( (p=alloc(size))==0 ) {
        !            20:                if(_new_handler)
        !            21:                        (*_new_handler)();
        !            22:                else return 0;
        !            23:        }
        !            24:        return PV(p);
        !            25: }
        !            26: 
        !            27: void _delete(PV p)
        !            28: {
        !            29:        if (p) free( (char*)p );
        !            30: }
        !            31: 
        !            32: PV _vec_new(PV op, int n, int sz, PV f)
        !            33: /*
        !            34:        allocate a vector of "n" elements of size "sz"
        !            35:        and initialize each by a call of "f"
        !            36: */
        !            37: {
        !            38:        register int i;
        !            39:        register char* p;
        !            40:        if (op == 0) op = PV( new char[n*sz] );
        !            41:        p = (char*) op;
        !            42:        for (i=0; i<n; i++) ( *PF(f) )( PV(p+i*sz) );
        !            43:        return PV(p);
        !            44: }
        !            45: 
        !            46: void _vec_delete(PV op, int n, int sz, PV f)
        !            47: {
        !            48:        register int i;
        !            49:        register char* p = (char*) op;
        !            50:        for (i=0; i<n; i++) ( *(PF)f )( (PV)(p+i*sz) );
        !            51: }

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