use Parse::RecDescent;
use dump;
use header;
+use parser;
use util;
my($opt_help) = 0;
my($opt_dump) = 0;
my($opt_diff) = 0;
my($opt_header) = 0;
+my($opt_parser) = 0;
#####################################################################
# parse an IDL file returning a structure containing all the data
my($filename) = shift;
my($grammer) = util::FileLoad("idl.gram");
my($parser) = Parse::RecDescent->new($grammer);
+ my($saved_sep) = $/;
undef $/;
my($idl) = $parser->idl(`cpp $filename`);
+ $/ = $saved_sep;
util::CleanData($idl);
return $idl;
}
--help this help page
--parse parse a idl file to a .pidl file
--dump dump a pidl file back to idl
- --header dump a C header file
+ --header create a C header file
+ --parser create a C parser
--diff run diff on the idl and dumped output
\n";
exit(0);
'parse' => \$opt_parse,
'dump' => \$opt_dump,
'header' => \$opt_header,
+ 'parser' => \$opt_parser,
'diff' => \$opt_diff
);
my($pidl_file) = util::ChangeExtension($idl_file, "pidl");
if ($opt_parse) {
- print "Parsing $idl_file\n";
+ print "Generating $pidl_file\n";
my($idl) = IdlParse($idl_file);
- print "Saving $pidl_file\n";
util::SaveStructure($pidl_file, $idl) || die "Failed to save $pidl_file";
}
if ($opt_header) {
my($idl) = util::LoadStructure($pidl_file);
my($header) = util::ChangeExtension($idl_file, "h");
+ print "Generating $header\n";
util::FileSave($header, IdlHeader::Dump($idl));
}
+if ($opt_parser) {
+ my($idl) = util::LoadStructure($pidl_file);
+ my($parser) = util::ChangeExtension($idl_file, "c");
+ print "Generating $parser\n";
+ util::FileSave($parser, IdlParser::Dump($idl));
+}
+
if ($opt_diff) {
my($idl) = util::LoadStructure($pidl_file);
my($tempfile) = util::ChangeExtension($idl_file, "tmp");