add cell() and tests

t/functions/cell.t

@@ -0,0 +1,10 @@
+plan(6);
+x = cell(2);
+is(parrot_typeof(x), "PMCMatrix2D", "cell is PMCMatrix2D");
+is(iscell(x), 1, "cell is cell");
+is(columns(x), 2, "cell(n) is square, columns");
+is(rows(x), 2, "cell(n) is square, rows");
+
+y = cell(3, 4);
+is(columns(y), 3, "cell(n, m) is rectangle, columns");
+is(rows(y), 4, "cell(n, m) is rectangle, rows");

toolbox/cell.m

@@ -0,0 +1,15 @@
+function c = cell(y, x)
+% Creates a new cell array.
+% If one argument is provided, cell will be NxN square
+% If two arguments are provided, cell will be NxM
+    if nargin == 1
+        x = y;
+    end
+    c = pir([".sub cell_helper"
+             "  .param int y"
+             "  .param int x"
+             "  $P0 = new ['PMCMatrix2D']"
+             "  $P0.'resize'(y, x)"
+             "  .return($P0)"
+             ".end"], y, x);
+endfunction