diff --git a/examples/numarray/numarray.c b/examples/numarray/numarray.c index 359fe087..52ea9e66 100644 --- a/examples/numarray/numarray.c +++ b/examples/numarray/numarray.c @@ -76,9 +76,16 @@ void num_array_put(void *p, Janet key, Janet value) { } } +static Janet num_array_length(int32_t argc, Janet *argv) { + janet_fixarity(argc, 1); + num_array *array = (num_array *)janet_getabstract(argv, 0, &num_array_type); + return janet_wrap_number(array->size); +} + static const JanetMethod methods[] = { {"scale", num_array_scale}, {"sum", num_array_sum}, + {"length", num_array_length}, {NULL, NULL} }; @@ -109,6 +116,11 @@ static const JanetReg cfuns[] = { "(numarray/scale numarray factor)\n\n" "scale numarray by factor" }, + { + "sum", num_array_sum, + "(numarray/sum numarray)\n\n" + "sums numarray" + }, {NULL, NULL, NULL} }; diff --git a/examples/numarray/test/numarray_tests.janet b/examples/numarray/test/numarray_tests.janet index 5ae34bba..60728525 100644 --- a/examples/numarray/test/numarray_tests.janet +++ b/examples/numarray/test/numarray_tests.janet @@ -1,4 +1,4 @@ -(import build/numarray) +(import /build/numarray) (def a (numarray/new 30)) (print (get a 20))