From 764d199ca1819a5fe17614bfa2f1295364ac695f Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Tue, 17 May 2005 11:43:46 +0000 Subject: r6854: Add --quiet option to pidl Some work on a testsuite for pidl, including one simple test. (This used to be commit a5aa61f54ea20f0b400359f9b3119f0ff0720431) --- source4/build/pidl/pidl.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'source4/build/pidl/pidl.pl') 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); -- cgit