svn commit: samba r6855 - in branches/tmp/pidl2/source/build/pidl: .
jelmer at samba.org
jelmer at samba.org
Tue May 17 11:50:51 GMT 2005
Author: jelmer
Date: 2005-05-17 11:50:50 +0000 (Tue, 17 May 2005)
New Revision: 6855
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=6855
Log:
Add --quiet option to pidl
Modified:
branches/tmp/pidl2/source/build/pidl/pidl.pl
Changeset:
Modified: branches/tmp/pidl2/source/build/pidl/pidl.pl
===================================================================
--- branches/tmp/pidl2/source/build/pidl/pidl.pl 2005-05-17 11:43:46 UTC (rev 6854)
+++ branches/tmp/pidl2/source/build/pidl/pidl.pl 2005-05-17 11:50:50 UTC (rev 6855)
@@ -45,6 +45,7 @@
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;
@@ -87,6 +88,7 @@
--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);
}
@@ -108,7 +110,8 @@
'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) {
@@ -133,7 +136,7 @@
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);
@@ -276,7 +279,6 @@
}
}
-
foreach my $filename (@ARGV) {
process_file($filename);
}
More information about the samba-cvs
mailing list