summaryrefslogtreecommitdiff
path: root/source4/build/pidl/pidl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl/pidl.pl')
-rwxr-xr-xsource4/build/pidl/pidl.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl
index 1d6b45172a..b80832dd99 100755
--- a/source4/build/pidl/pidl.pl
+++ b/source4/build/pidl/pidl.pl
@@ -45,6 +45,7 @@ my($opt_swig) = 0;
my($opt_dcom_proxy) = 0;
my($opt_com_header) = 0;
my($opt_odl) = 0;
+my($opt_quiet) = 0;
my($opt_output);
my $idl_parser = new idl;
@@ -86,6 +87,7 @@ sub ShowHelp()
--odl accept ODL input
--dcom-proxy create DCOM proxy (implies --odl)
--com-header create header for COM interfaces (implies --odl)
+ --quiet be quiet
\n";
exit(0);
}
@@ -107,7 +109,8 @@ GetOptions (
'keep' => \$opt_keep,
'swig' => \$opt_swig,
'dcom-proxy' => \$opt_dcom_proxy,
- 'com-header' => \$opt_com_header
+ 'com-header' => \$opt_com_header,
+ 'quiet' => \$opt_quiet
);
if ($opt_help) {
@@ -131,7 +134,7 @@ sub process_file($)
my($pidl_file) = util::ChangeExtension($output, ".pidl");
- print "Compiling $idl_file\n";
+ unless ($opt_quiet) { print "Compiling $idl_file\n"; }
if ($opt_parse) {
$pidl = IdlParse($idl_file);