#!/usr/bin/perl -w
use PARI::822;

$class='member_functions';

print <<EOF;
/* This file is autogenerated from the database. */
/* See src/desc/pari.desc */
/* Do not edit*/
EOF
print "entree gp_member_list[] = {\n";

PARI::822::read(\%funcs,$ARGV[0]);
foreach my $name (sort keys %funcs)
{
      my %func=%{$funcs{$name}};
      next if ($func{'Class'} ne $class);
      my $gpname=$func{'Function'};
      $gpname =~  s/^_\.//;
      my $proto=$func{'Prototype'};
      my $cname=$func{'C-Name'};
      if (defined($cname))
      {
        print "{\"$gpname\",0,(void*)$cname},\n";
      }
      else
      {
        print "{\"$gpname\",0,NULL},\n";
      }
}
print <<'EOF';
{NULL,0,NULL} /* sentinel */
};

EOF