sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-17 02:05:21 +03:00
Code

make pidl a little less verbose

Browse Source 
(This used to be commit 76f48affe5d1e8fd96d5dc9af2ec1059f3dd741c)
This commit is contained in:
Andrew Tridgell 2003-12-07 13:39:45 +00:00
parent 55d2c54e03
commit 4e1bac41f4
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,8 +101,9 @@ sub process_file($)
my($pidl_file) = util::ChangeExtension($output, "pidl");
print "Compiling $idl_file\n";
if ($opt_parse) {
print "Generating $pidl_file from $idl_file\n";
my($idl) = IdlParse($idl_file);
defined $idl || die "Failed to parse $idl_file";
util::SaveStructure($pidl_file, $idl) || die "Failed to save $pidl_file";
@ -118,21 +119,18 @@ sub process_file($)
if ($opt_header) {
my($idl) = util::LoadStructure($pidl_file);
my($header) = util::ChangeExtension($output, "h");
print "Generating $header\n";
util::FileSave($header, IdlHeader::Parse($idl));
}
if ($opt_parser) {
my($idl) = util::LoadStructure($pidl_file);
my($parser) = util::ChangeExtension($output, "c");
print "Generating $parser\n";
IdlParser::Parse($idl, $parser);
}
if ($opt_eparser) {
my($idl) = util::LoadStructure($pidl_file);
my($parser) = util::ChangeExtension($output, "c");
print "Generating $parser for ethereal\n";
util::FileSave($parser, IdlEParser::Parse($idl));
}