summaryrefslogtreecommitdiff
path: root/source4/build/pidl/pidl.pl
diff options
context:
space:
mode:
authorAndrew Tridgell <tridge@samba.org>2003-12-07 13:39:45 +0000
committerAndrew Tridgell <tridge@samba.org>2003-12-07 13:39:45 +0000
commit4e1bac41f4b89afee79dc9d9165e70e2f4cbb940 (patch)
tree506d027a9dbbf6df44a3af35850782137419001c /source4/build/pidl/pidl.pl
parent55d2c54e030c71e71a8b38d17b0e20a1b79517e7 (diff)
downloadsamba-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-xsource4/build/pidl/pidl.pl6
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));
}