#!/usr/local/bin/perl
open(STDOUT, ">Configsubs.pm") || die;
print <<'EOH';
package Configsubs;

require Exporter;
@ISA = (Exporter);

EOH
@ARGV = <*.c>;
while (<>) {
    if (/"-(\w+)"/ && !$found{$1}) {
        $found{$1} = 1;
        print qq(sub \u$1 { "-$1" }\n);
    }
}
print "\n\@EXPORT = qw(\n";
foreach (sort keys %found) {
    print "    &\u$_\n";
}
print <<'EOT';
);

1;
EOT