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