git.sesse.net Git - nms/blob - web/ext/glue.pl

   1 #glue
   2
   3 sub create_array {
   4   my $len = scalar(@_);
   5   my $ia = mygraph::int_array($len);
   6   for (my $i = 0; $i < $len; $i++) {
   7     my $val = shift;
   8     mygraph::int_set($ia,$i,$val);
   9   }
  10   return $ia;
  11 }
  12
  13 1;