make pidl a little less verbose
authorAndrew Tridgell <tridge@samba.org>
Sun, 7 Dec 2003 13:39:45 +0000 (13:39 +0000)
committerAndrew Tridgell <tridge@samba.org>
Sun, 7 Dec 2003 13:39:45 +0000 (13:39 +0000)
(This used to be commit 76f48affe5d1e8fd96d5dc9af2ec1059f3dd741c)

source4/build/pidl/pidl.pl

index 4799389fc446f10fd522a6007e8dfd1f01e2dd09..4e79eb92f6a93eee3884e898ebc46e87a70184a3 100755 (executable)
@@ -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));
        }