Merge from andun.

[nms] / web / ext / glue.pl

diff --git a/web/ext/glue.pl b/web/ext/glue.pl
new file mode 100644 (file)
index 0000000..c1f384c
--- /dev/null
+++ b/web/ext/glue.pl
@@ -0,0 +1,13 @@
+#glue
+
+sub create_array {
+  my $len = scalar(@_);
+  my $ia = mygraph::int_array($len);
+  for (my $i = 0; $i < $len; $i++) {
+    my $val = shift;
+    mygraph::int_set($ia,$i,$val);
+  }
+  return $ia;
+}
+
+1;