--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dmd/Array.d	Sat Oct 24 08:42:06 2009 +0400
@@ -0,0 +1,183 @@
+module dmd.Array;
+
+import std.contracts;
+import core.stdc.stdlib;
+import core.stdc.string;
+
+class Array
+{
+	uint dim = 0;
+    uint allocdim = 0;
+    void** data = null;
+
+    ~this()
+	{
+		///mem.free(data);
+		free(data);
+	}
+	
+    void mark()
+	{
+		///unsigned u;
+		///mem.mark(data);
+		///for (u = 0; u < dim; u++)
+		///mem.mark(data[u]);	// BUG: what if arrays of Object's?
+	}
+	
+    string toString()
+	{
+		char *p;
+
+		///char **buf = cast(char**)alloca(dim * (char*).sizeof);
+		scope string[] buf = new string[dim];
+		uint len = 2;
+		for (uint u = 0; u < dim; u++) {
+			buf[u] = (cast(Object)data[u]).toString();
+			len += buf[u].length + 1;
+		}
+
+		char* str = cast(char*)malloc(len);
+
+		str[0] = '[';
+		p = str + 1;
+
+		for (uint u = 0; u < dim; u++)
+		{
+			if (u != 0) {
+				*p++ = ',';
+			}
+			uint length = buf[u].length;
+			p[0..length] = buf[u][];
+
+			p += length;
+		}
+
+		*p++ = ']';
+		*p = 0;
+
+		return assumeUnique(str[0..len]);
+	}
+
+    final void reserve(uint nentries)
+	{
+		//printf("Array::reserve: size = %d, offset = %d, nbytes = %d\n", size, offset, nbytes);
+		if (allocdim - dim < nentries) {
+			allocdim = dim + nentries;
+			/// data = (void **)mem.realloc(data, allocdim * sizeof(*data));
+			data = cast(void**)realloc(data, allocdim * (*data).sizeof);
+		}
+	}
+	
+    final void setDim(uint newdim)
+	{
+		if (dim < newdim) {
+			reserve(newdim - dim);
+		}
+
+		dim = newdim;
+	}
+	
+    final void fixDim()
+	{
+		if (dim != allocdim)
+		{
+			///data = (void**)mem.realloc(data, dim * sizeof(*data));
+			data = cast(void**)realloc(data, dim * (*data).sizeof);
+			allocdim = dim;
+		}
+	}
+	
+    final void push(void* ptr)
+	{
+		reserve(1);
+		data[dim++] = ptr;
+	}
+
+    final void* pop()
+	{
+		return data[--dim];
+	}
+	
+    final void shift(void* ptr)
+	{
+		reserve(1);
+		memmove(data + 1, data, dim * (*data).sizeof);
+		data[0] = ptr;
+		dim++;
+	}
+	
+    final void insert(uint index, void* ptr)
+	{
+		reserve(1);
+		memmove(data + index + 1, data + index, (dim - index) * (*data).sizeof);
+		data[index] = ptr;
+		dim++;
+	}
+	
+    final void insert(uint index, Array a)
+	{
+		if (a !is null) {
+			uint d = a.dim;
+			reserve(d);
+
+			if (dim != index) {
+				memmove(data + index + d, data + index, (dim - index) * (*data).sizeof);
+			}
+
+			memcpy(data + index, a.data, d * (*data).sizeof);
+			dim += d;
+		}
+	}
+	
+	/***********************************
+	 * Append array a to this array.
+	 */
+    final void append(Array a)
+	{
+		insert(dim, a);
+	}
+
+    final void remove(uint i)
+	{
+		memmove(data + i, data + i + 1, (dim - i) * (*data).sizeof);
+		dim--;
+	}
+	
+    final void zero()
+	{
+		memset(data, 0, dim * (*data).sizeof);
+	}
+
+    final void* tos()
+	{
+		return dim ? data[dim - 1] : null;
+	}
+
+	private static extern (C) int Array_sort_compare(const(void*) x, const(void*) y)
+	{
+		Object ox = *cast(Object *)x;
+		Object oy = *cast(Object *)y;
+
+		return ox.opCmp(oy);
+	}
+
+    final void sort()
+	{
+		if (dim) {
+			qsort(cast(void*)data, dim, Object.sizeof, &Array_sort_compare);
+		}
+	}
+	
+	final Array copyTo(Array a)
+	{
+		a.setDim(dim);
+		memcpy(a.data, data, dim * (*data).sizeof);
+
+		return a;
+	}
+
+    final Array copy()
+	{
+		return copyTo(new Array());
+	}
+}
\ No newline at end of file