diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-05-20 23:19:06 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:16:57 -0500 |
| commit | fc4c633d9f2f6fc1869aa38194585da5c0be1249 (patch) | |
| tree | f6db7156c941da823b40d8323fdfd27ee1ab8af9 /source4/build/pidl/pidl.pl | |
| parent | dfac3f56fb47715349812d48747c4a76cb71294b (diff) | |
| download | samba-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-x | source4/build/pidl/pidl.pl | 16 |
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); } |