This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Generate the enum for want_vtbl_* with regen/mg_vtable.pl
[perl5.git] / regen / mg_vtable.pl
index bd48545..2a88263 100644 (file)
@@ -61,6 +61,17 @@ my $h = open_new('mg_vtable.h', '>',
                 { by => 'regen/mg_vtable.pl', file => 'mg_vtable.h',
                   style => '*' });
 
+{
+    my @names = map {"want_vtbl_$_"} grep {!ref $_} @sig;
+    local $" = ",\n    ";
+    print $h <<"EOH";
+enum {         /* pass one of these to get_vtbl */
+    @names
+};
+
+EOH
+}
+
 print $h <<'EOH';
 /* These all need to be 0, not NULL, as NULL can be (void*)0, which is a
  * pointer to data, whereas we're assigning pointers to functions, which are