Return to wwalloc.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / window

Annotation of 43BSD/ucb/window/wwalloc.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)wwalloc.c  3.7 4/24/85";
        !             3: #endif
        !             4: 
        !             5: /*
        !             6:  * Copyright (c) 1983 Regents of the University of California,
        !             7:  * All rights reserved.  Redistribution permitted subject to
        !             8:  * the terms of the Berkeley Software License Agreement.
        !             9:  */
        !            10: 
        !            11: #include "ww.h"
        !            12: 
        !            13: char **
        !            14: wwalloc(row, col, nrow, ncol, size)
        !            15: {
        !            16:        register char *p, **pp;
        !            17:        register int i;
        !            18: 
        !            19:        /* fast, call malloc only once */
        !            20:        pp = (char **)
        !            21:                malloc((unsigned) sizeof (char **) * nrow + size * nrow * ncol);
        !            22:        if (pp == 0) {
        !            23:                wwerrno = WWE_NOMEM;
        !            24:                return 0;
        !            25:        }
        !            26:        p = (char *)&pp[nrow];
        !            27:        col *= size;
        !            28:        size /= sizeof (char);          /* paranoid */
        !            29:        size *= ncol;
        !            30:        for (i = 0; i < nrow; i++) {
        !            31:                pp[i] = p - col;
        !            32:                p += size;
        !            33:        }
        !            34:        return pp - row;
        !            35: }
        !            36: 
        !            37: wwfree(p, row)
        !            38: register char **p;
        !            39: {
        !            40:        free((char *)(p + row));
        !            41: }

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