arrays

R=r
OCL=14603
CL=14603

1 files changed, 165 insertions, 0 deletions

diff --git a/src/runtime/array.c b/src/runtime/array.c
new file mode 100644
index 000000000..548886e6c
--- /dev/null
+++ b/src/runtime/array.c
@@ -0,0 +1,165 @@
+// Copyright 2009 The Go Authors. All rights reserved.
+// Use of this source code is governed by a BSD-style
+// license that can be found in the LICENSE file.
+
+#include "runtime.h"
+
+static	int32	debug	= 0;
+
+// newarray(nel uint32, cap uint32, width uint32) (ary *[]any);
+void
+sys·newarray(uint32 nel, uint32 cap, uint32 width, Array* ret)
+{
+	Array *d;
+	uint64 size;
+
+	if(cap < nel)
+		cap = nel;
+	size = cap*width;
+
+	d = mal(sizeof(*d) - sizeof(d->b) + size);
+	d->nel = nel;
+	d->cap = cap;
+	d->array = d->b;
+
+	ret = d;
+	FLUSH(&d);
+
+	if(debug) {
+		prints("newarray: nel=");
+		sys·printint(nel);
+		prints("; cap=");
+		sys·printint(cap);
+		prints("; width=");
+		sys·printint(width);
+		prints("; ret=");
+		sys·printpointer(ret);
+		prints("\n");
+	}
+}
+
+// arraysliced(old *[]any, lb uint32, hb uint32, width uint32) (ary *[]any);
+void
+sys·arraysliced(Array* old, uint32 lb, uint32 hb, uint32 width, Array* ret)
+{
+	Array *d;
+
+	if(hb > old->cap || lb > hb) {
+		if(debug) {
+			prints("sys·arrayslices: old=");
+			sys·printpointer(old);
+			prints("; lb=");
+			sys·printint(lb);
+			prints("; hb=");
+			sys·printint(hb);
+			prints("; width=");
+			sys·printint(width);
+			prints("\n");
+
+			prints("oldarray: nel=");
+			sys·printint(old->nel);
+			prints("; cap=");
+			sys·printint(old->cap);
+			prints("\n");
+		}
+		throw("sys·arraysliced: new size exceeds old size");
+	}
+
+	// new array is inside old array
+	d = mal(sizeof(*d) - sizeof(d->b));
+	d->nel = hb-lb;
+	d->cap = old->cap - lb;
+	d->array = old->array + lb*width;
+
+	ret = d;
+	FLUSH(&d);
+
+	if(debug) {
+		prints("sys·arrayslices: old=");
+		sys·printpointer(old);
+		prints("; lb=");
+		sys·printint(lb);
+		prints("; hb=");
+		sys·printint(hb);
+		prints("; width=");
+		sys·printint(width);
+		prints("; ret=");
+		sys·printpointer(ret);
+		prints("\n");
+	}
+}
+
+// arrayslices(old *any, nel uint32, lb uint32, hb uint32, width uint32) (ary *[]any);
+void
+sys·arrayslices(byte* old, uint32 nel, uint32 lb, uint32 hb, uint32 width, Array* ret)
+{
+	Array *d;
+
+	if(hb > nel || lb > hb) {
+		if(debug) {
+			prints("sys·arrayslices: old=");
+			sys·printpointer(old);
+			prints("; nel=");
+			sys·printint(nel);
+			prints("; lb=");
+			sys·printint(lb);
+			prints("; hb=");
+			sys·printint(hb);
+			prints("; width=");
+			sys·printint(width);
+			prints("\n");
+		}
+		throw("sys·arrayslices: new size exceeds cap");
+	}
+
+	// new array is inside old array
+	d = mal(sizeof(*d) - sizeof(d->b));
+	d->nel = hb-lb;
+	d->cap = nel-lb;
+	d->array = old + lb*width;
+
+	ret = d;
+	FLUSH(&d);
+
+	if(debug) {
+		prints("sys·arrayslices: old=");
+		sys·printpointer(old);
+		prints("; nel=");
+		sys·printint(nel);
+		prints("; lb=");
+		sys·printint(lb);
+		prints("; hb=");
+		sys·printint(hb);
+		prints("; width=");
+		sys·printint(width);
+		prints("; ret=");
+		sys·printpointer(ret);
+		prints("\n");
+	}
+}
+
+// arrays2d(old *any, nel uint32) (ary *[]any)
+void
+sys·arrays2d(byte* old, uint32 nel, Array* ret)
+{
+	Array *d;
+
+	// new dope to old array
+	d = mal(sizeof(*d) - sizeof(d->b));
+	d->nel = nel;
+	d->cap = nel;
+	d->array = old;
+
+	ret = d;
+	FLUSH(&d);
+
+	if(debug) {
+		prints("sys·arrays2d: old=");
+		sys·printpointer(old);
+		prints("; nel=");
+		sys·printint(nel);
+		prints("; ret=");
+		sys·printpointer(ret);
+		prints("\n");
+	}
+}