diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-12-07 13:39:45 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-12-07 13:39:45 +0000 |
commit | 4e1bac41f4b89afee79dc9d9165e70e2f4cbb940 (patch) | |
tree | 506d027a9dbbf6df44a3af35850782137419001c /source4/build/pidl/pidl.pl | |
parent | 55d2c54e030c71e71a8b38d17b0e20a1b79517e7 (diff) | |
download | samba-4e1bac41f4b89afee79dc9d9165e70e2f4cbb940.tar.gz samba-4e1bac41f4b89afee79dc9d9165e70e2f4cbb940.tar.bz2 samba-4e1bac41f4b89afee79dc9d9165e70e2f4cbb940.zip |
make pidl a little less verbose
(This used to be commit 76f48affe5d1e8fd96d5dc9af2ec1059f3dd741c)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
-rwxr-xr-x | source4/build/pidl/pidl.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index 4799389fc4..4e79eb92f6 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -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)); } |