less indent on auto-xs.inc, prepare for multi-bind

Author: mohawk2

utils/common.pl

@@ -33,8 +33,10 @@ sub save_file {
 }
 
 sub bind_names {
+  die "list context only" if !wantarray;
   my ($name, $s) = @_;
-  $s->{has_ptr_arg} ? $name . '_c' : $name;
+  return $name if !$s->{has_ptr_arg};
+  map "$name$_", qw(_c);
 }
 
 1;

utils/generate-XS.pl

@@ -41,32 +41,33 @@ sub generate_glew_xs {
       print "Skipping $name, already implemented in Modern.xs\n";
       next;
     }
-    my $argdata = $item->{argdata};
-    my @argdata = @{$argdata || []};
-    my $type = $item->{restype};
+    my @argdata = @{$item->{argdata} || []};
     my $glewImpl = $item->{glewImpl};
-    my $args = join ', ', map $_->[0], @argdata;
-    my $xs_args = join '', map "     $_->[1]$_->[0];\n", @argdata;
-    my ($binding_name) = bind_names($name, $item);
-    my $decl = <<XS;
-$type
-$binding_name($args);
-XS
-    $decl .= $xs_args;
     my $error_check = $name eq "glGetError" ? "" : "OGLM_CHECK_ERR($name)";
-    my $res = $decl . <<XS;
+    my $avail_check = ($item->{glewtype} eq 'fun' && $glewImpl)
+      ? "  OGLM_AVAIL_CHECK($glewImpl, $name)\n"
+      : "";
+    my $callarg_list = $item->{glewtype} eq 'var' ? "" : "(@{[ join ', ', map $_->[0], @argdata ]})";
+    for my $binding_name (bind_names($name, $item)) {
+      my @thisargdata = @argdata;
+      my $thistype = $item->{restype};
+      my ($retcap, $retout) = $thistype eq 'void' ? ('','') : ('RETVAL = ', "\nOUTPUT:\n  RETVAL");
+      my $args = join ', ', map $_->[0], @thisargdata;
+      my $decl = <<XS;
+$thistype
+$binding_name($args)
+XS
+      $decl .= join '', map "  $_->[1]$_->[0];\n", @thisargdata;
+      my $res = $decl . <<XS;
 CODE:
-OGLM_GLEWINIT@{[$error_check && "\n    $error_check"]}
+  OGLM_GLEWINIT@{[$error_check && "\n  $error_check"]}
 XS
-    if ( $item->{glewtype} eq 'fun' and $glewImpl ) {
-        $res .= "    OGLM_AVAIL_CHECK($glewImpl, $name)\n";
-    }
-    my ($retcap, $retout) = $type eq 'void' ? ('','') : ('RETVAL = ', "\nOUTPUT:\n    RETVAL");
-    my $arg_list = $item->{glewtype} eq 'var' ? "" : "($args)";
-    $res .= <<XS;
-$retcap$name$arg_list;@{[$error_check && "\n    $error_check"]}$retout
+      $res .= $avail_check;
+      $res .= <<XS;
+  $retcap$name$callarg_list;@{[$error_check && "\n  $error_check"]}$retout
 XS
-    $content .= "$res\n";
+      $content .= "$res\n";
+    }
   }
   return $content;
 }