1 /* 2 * Copyright (c) 1983 Regents of the University of California. 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms are permitted 6 * provided that the above copyright notice and this paragraph are 7 * duplicated in all such forms and that any documentation, 8 * advertising materials, and other materials related to such 9 * distribution and use acknowledge that the software was developed 10 * by the University of California, Berkeley. The name of the 11 * University may not be used to endorse or promote products derived 12 * from this software without specific prior written permission. 13 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 14 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 15 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. 16 */ 17 18 #ifndef lint 19 static char sccsid[] = "@(#)wwalloc.c 3.9 (Berkeley) 06/29/88"; 20 #endif /* not lint */ 21 22 #include "ww.h" 23 24 char ** 25 wwalloc(row, col, nrow, ncol, size) 26 { 27 register char *p, **pp; 28 register int i; 29 30 /* fast, call malloc only once */ 31 pp = (char **) 32 malloc((unsigned) sizeof (char **) * nrow + size * nrow * ncol); 33 if (pp == 0) { 34 wwerrno = WWE_NOMEM; 35 return 0; 36 } 37 p = (char *)&pp[nrow]; 38 col *= size; 39 size /= sizeof (char); /* paranoid */ 40 size *= ncol; 41 for (i = 0; i < nrow; i++) { 42 pp[i] = p - col; 43 p += size; 44 } 45 return pp - row; 46 } 47 48 wwfree(p, row) 49 register char **p; 50 { 51 free((char *)(p + row)); 52 } 53