summaryrefslogtreecommitdiff
path: root/source4/build/pidl/pidl.pl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-05-20 23:19:06 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:16:57 -0500
commitfc4c633d9f2f6fc1869aa38194585da5c0be1249 (patch)
treef6db7156c941da823b40d8323fdfd27ee1ab8af9 /source4/build/pidl/pidl.pl
parentdfac3f56fb47715349812d48747c4a76cb71294b (diff)
downloadsamba-fc4c633d9f2f6fc1869aa38194585da5c0be1249.tar.gz
samba-fc4c633d9f2f6fc1869aa38194585da5c0be1249.tar.bz2
samba-fc4c633d9f2f6fc1869aa38194585da5c0be1249.zip
r6926: More build farm fixes:
- Warn about unknown attributes in .mk - Remove more unused functions (This used to be commit 6bf8126ae9368dc56cf0cd91b972a2d939974679)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
-rwxr-xr-xsource4/build/pidl/pidl.pl16
1 files changed, 3 insertions, 13 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl
index b80832dd99..2305d9243b 100755
--- a/source4/build/pidl/pidl.pl
+++ b/source4/build/pidl/pidl.pl
@@ -4,6 +4,7 @@
# package to parse IDL files and generate code for
# rpc functions in Samba
# Copyright tridge@samba.org 2000-2003
+# Copyright jelmer@samba.org 2005
# released under the GNU GPL
use strict;
@@ -13,9 +14,9 @@ use lib "$RealBin";
use lib "$RealBin/lib";
use Getopt::Long;
use File::Basename;
-use idl;
use dump;
use ndr_client;
+use idl;
use ndr_header;
use ndr_parser;
use server;
@@ -50,16 +51,6 @@ my($opt_output);
my $idl_parser = new idl;
-#####################################################################
-# parse an IDL file returning a structure containing all the data
-sub IdlParse($)
-{
- my $filename = shift;
- my $idl = $idl_parser->parse_idl($filename);
- util::CleanData($idl);
- return $idl;
-}
-
#########################################
# display help text
sub ShowHelp()
@@ -137,7 +128,7 @@ sub process_file($)
unless ($opt_quiet) { print "Compiling $idl_file\n"; }
if ($opt_parse) {
- $pidl = IdlParse($idl_file);
+ $pidl = $idl_parser->parse_idl($idl_file);
defined @$pidl || die "Failed to parse $idl_file";
typelist::LoadIdl($pidl);
IdlValidator::Validate($pidl);
@@ -271,7 +262,6 @@ $dcom
}
}
-
foreach my $filename (@ARGV) {
process_file($filename);
}