sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-23 09:57:40 +03:00
Code

Added --eparser to call ethereal parser generator.

Browse Source 
(This used to be commit e1f191a9dc563648f9d151c56020e3324854f52f)
This commit is contained in:
Tim Potter 2001-11-24 23:35:58 +00:00
parent 95baaba31c
commit 92ba6fc79e
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
source4/build/pidl/pidl.pl
View File

@ -13,6 +13,7 @@ use Parse::RecDescent;
use dump; use dump;
use header; use header;
use parser; use parser;
use eparser;
use util; use util;
my($opt_help) = 0; my($opt_help) = 0;
@ -21,6 +22,7 @@ my($opt_dump) = 0;
my($opt_diff) = 0; my($opt_diff) = 0;
my($opt_header) = 0; my($opt_header) = 0;
my($opt_parser) = 0; my($opt_parser) = 0;
my($opt_eparser) = 0;
##################################################################### #####################################################################
# parse an IDL file returning a structure containing all the data # parse an IDL file returning a structure containing all the data
@ -60,6 +62,7 @@ sub ShowHelp()
--dump dump a pidl file back to idl --dump dump a pidl file back to idl
--header create a C header file --header create a C header file
--parser create a C parser --parser create a C parser
--eparser create an ethereal parser
--diff run diff on the idl and dumped output --diff run diff on the idl and dumped output
\n"; \n";
exit(0); exit(0);
@ -72,6 +75,7 @@ GetOptions (
'dump' => \$opt_dump, 'dump' => \$opt_dump,
'header' => \$opt_header, 'header' => \$opt_header,
'parser' => \$opt_parser, 'parser' => \$opt_parser,
'eparser' => \$opt_eparser,
'diff' => \$opt_diff 'diff' => \$opt_diff
); );
@ -107,7 +111,14 @@ if ($opt_parser) {
my($idl) = util::LoadStructure($pidl_file); my($idl) = util::LoadStructure($pidl_file);
my($parser) = util::ChangeExtension($idl_file, "c"); my($parser) = util::ChangeExtension($idl_file, "c");
print "Generating $parser\n"; print "Generating $parser\n";
util::FileSave($parser, IdlParser::Dump($idl)); util::FileSave($parser, IdlParser::Parse($idl));
}
if ($opt_eparser) {
my($idl) = util::LoadStructure($pidl_file);
my($parser) = util::ChangeExtension($idl_file, "c");
print "Generating $parser for ethereal\n";
util::FileSave($parser, IdlEParser::Parse($idl));
} }
if ($opt_diff) { if ($opt_diff) {