38bd72e67a
Added a class for each Recfield DBF_TYPE, use this to simplify conversion to C code. dbToRecordtypeH incomplete, but it outputs the record struct. 190 tests, 100% ok.
52 lines
1.3 KiB
Perl
Executable File
52 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use DBD;
|
|
use DBD::Parser;
|
|
use Getopts;
|
|
use macLib;
|
|
use Readfile;
|
|
|
|
getopts('DI@S@o:') or
|
|
die "Usage: dbToMenuH [-D] [-I dir] [-S macro=val] [-o menu.h] file.dbd [menu.h]";
|
|
|
|
my @path = map { split /[:;]/ } @opt_I;
|
|
my $macros = macLib->new(@opt_S);
|
|
my $dbd = DBD->new();
|
|
|
|
my $infile = shift @ARGV;
|
|
$infile =~ m/\.dbd$/ or
|
|
die "Input file '$infile' must have '.dbd' extension\n";
|
|
|
|
my $outfile;
|
|
if ($opt_o) {
|
|
$outfile = $opt_o;
|
|
} elsif (@ARGV) {
|
|
$outfile = shift @ARGV;
|
|
} else {
|
|
($outfile = $infile) =~ s/\.dbd$/.h/;
|
|
}
|
|
|
|
# Derive a name for the include guard
|
|
($guard_name = $outfile) =~ tr/a-zA-Z0-9_/_/cs;
|
|
$guard_name =~ s/(_[hH])?$/_H/;
|
|
|
|
&ParseDBD($dbd, &Readfile($infile, $macros, \@opt_I));
|
|
|
|
if ($opt_D) {
|
|
my %filecount;
|
|
my @uniqfiles = grep { not $filecount{$_}++ } @inputfiles;
|
|
print "$outfile: ", join(" \\\n ", @uniqfiles), "\n\n";
|
|
print map { "$_:\n" } @uniqfiles;
|
|
} else {
|
|
open OUTFILE, ">$outfile" or die "Can't open $outfile: $!\n";
|
|
print OUTFILE "/* $outfile generated from $infile */\n\n",
|
|
"#ifndef INC_${guard_name}\n",
|
|
"#define INC_${guard_name}\n\n";
|
|
my $menus = $dbd->menus;
|
|
while (($name, $menu) = each %{$menus}) {
|
|
print OUTFILE $menu->toEnum;
|
|
}
|
|
print OUTFILE "\n#endif /* INC_${guard_name} */\n";
|
|
close OUTFILE;
|
|
}
|