From 565a4bd035b9d4a83955808efef20f1d8dfa24cf Mon Sep 17 00:00:00 2001
From: Frank Warmerdam <warmerdam@pobox.com>
Date: Thu, 18 Mar 1999 16:34:52 +0000
Subject: New

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@776 4e78687f-474d-0410-85f9-8d5e500ac6b2
---
 src/vector1.c | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/vector1.c

(limited to 'src/vector1.c')

diff --git a/src/vector1.c b/src/vector1.c
new file mode 100644
index 00000000..0ca3816b
--- /dev/null
+++ b/src/vector1.c
@@ -0,0 +1,32 @@
+/* make storage for one and two dimensional matricies */
+#ifndef lint
+static const char SCCSID[]="@(#)vector1.c	4.4	94/03/22	GIE	REL";
+#endif
+#include <stdlib.h>
+#include <projects.h>
+	void * /* one dimension array */
+vector1(int nvals, int size) { return((void *)pj_malloc(size * nvals)); }
+	void /* free 2D array */
+freev2(void **v, int nrows) {
+	if (v) {
+		for (v += nrows; nrows > 0; --nrows)
+			pj_dalloc(*--v);
+		pj_dalloc(v);
+	}
+}
+	void ** /* two dimension array */
+vector2(int nrows, int ncols, int size) {
+	void **s;
+
+	if (s = (void **)pj_malloc(sizeof(void *) * nrows)) {
+		int rsize, i;
+
+		rsize = size * ncols;
+		for (i = 0; i < nrows; ++i)
+			if (!(s[i] = pj_malloc(rsize))) {
+				freev2(s, i);
+				return (void **)0;
+			}
+	}
+	return s;
+}
-- 
cgit v1.2.3