Return to t0 CVS log

Up to [Research Unix] / researchv10dc / cmd / oworm

Annotation of researchv10dc/cmd/oworm/t0, revision 1.1

1.1     ! root        1: 
        !             2: static Inode *inodes;
        !             3: static long ip;
        !             4: static long ninodes = 0;
        !             5: static char *nameb;
        !             6: static long np;
        !             7: static long nnameb = 0;
        !             8: static long nblocks;
        !             9: #define                IINC            1024
        !            10: #define                NINC            (64*IINC)
        !            11: 
        !            12: ininit()
        !            13: {
        !            14:        if(nnameb == 0){
        !            15:                nameb = malloc((unsigned)(nnameb = NINC));
        !            16:                if(nameb == 0){
        !            17:                        fprint(2, "wmv: malloc fail, %d bytes\n", nnameb);
        !            18:                        exit(1);
        !            19:                }
        !            20:        }
        !            21:        np = 0;
        !            22:        if(ninodes == 0){
        !            23:                inodes = (Inode *)malloc(sizeof(Inode)*(unsigned)(ninodes = IINC));
        !            24:                if(inodes == 0){
        !            25:                        fprint(2, "wmv: malloc fail, %d inodes %d bytes\n", ninodes, ninodes*sizeof(Inode));
        !            26:                        exit(1);
        !            27:                }
        !            28:        }
        !            29:        ip = 0;
        !            30: }
        !            31: 
        !            32: inadd(s, i)
        !            33:        Superblock *s;
        !            34:        register Inode *i;
        !            35: {
        !            36:        register long len;
        !            37: 
        !            38:        len = strlen(i->name.n)+1;
        !            39:        if(np+len > nnameb){
        !            40:                while(np+len > nnameb)
        !            41:                        nnameb += NINC;
        !            42:                nameb = realloc(nameb, (unsigned)nnameb);
        !            43:                if(nameb == 0){
        !            44:                        fprint(2, "wmv: realloc fail, %d bytes\n", nnameb);
        !            45:                        exit(1);
        !            46:                }
        !            47:        }
        !            48:        strcpy(nameb+np, i->name.n);
        !            49:        i->name.o = np;
        !            50:        np += len;
        !            51:        if(ip == ninodes){
        !            52:                ninodes += IINC;
        !            53:                inodes = (Inode *)realloc((char *)inodes, (unsigned)ninodes*sizeof(Inode));
        !            54:                if(inodes == 0){
        !            55:                        fprint(2, "wmv: realloc fail, %d inodes %d bytes\n", ninodes, ninodes*sizeof(Inode));
        !            56:                        exit(1);
        !            57:                }
        !            58:        }
        !            59:        inodes[ip++] = *i;
        !            60: }
        !            61: 
        !            62: inwrite(s)
        !            63:        Superblock *s;
        !            64: {
        !            65:        char *e;
        !            66: 
        !            67:        if(e = lkwri(s, inodes, ip, nameb, np, 0L)){
        !            68:                fprint(2, "%s\n", e);
        !            69:                return(1);
        !            70:        }
        !            71:        return(0);
        !            72: }

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