shithub: femtolisp

Info  •  Files  •  Log  •  Branches

add (array-alloc 'TYPE SIZE FILL)

--- a/cvalues.c

+++ b/cvalues.c

@@ -550,6 +550,29 @@

 	return cv;

 }

+BUILTIN("array-alloc", array_alloc)

+{

+	size_t elsize, sz;

+	long i, cnt;

+

+	argcount(nargs, 3);

+	cnt = toulong(args[1]);

+	if(cnt < 0)

+		lerrorf(ArgError, "invalid size: %d", cnt);

+

+	fltype_t *type = get_array_type(args[0]);

+	elsize = type->elsz;

+	sz = elsize * cnt;

+

+	value_t cv = cvalue(type, sz);

+	char *dest = cv_data(ptr(cv));

+	for(i = 0; i < cnt; i++){

+		cvalue_init(type->eltype, args[2], dest);

+		dest += elsize;

+	}

+	return cv;

+}

+

 // NOTE: v must be an array

 size_t

 cvalue_arraylen(value_t v)