pidl: s4/NDR/Parser uses Pidl::Base

Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>

diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
index c1a2cc99cb7567afa996dfd73a73e741197ab54b..3ae0db22f7abf548df5c05f6518842ce304119bd 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
@@ -6,9 +6,10 @@
 # released under the GNU GPL
 
 package Parse::Pidl::Samba4::NDR::Parser;
+use parent Parse::Pidl::Base;
 
 require Exporter;
-@ISA = qw(Exporter);
+push @ISA, qw(Exporter);
 @EXPORT_OK = qw(check_null_pointer NeededFunction NeededElement NeededType $res NeededInterface TypeFunctionName ParseElementPrint);
 
 use strict;
@@ -81,20 +82,6 @@ sub has_fast_array($$)
 }
 
 
-####################################
-# pidl() is our basic output routine
-sub pidl($$)
-{
-       my ($self, $d) = @_;
-       if ($d) {
-               $self->{res} .= $self->{tabs};
-               $self->{res} .= $d;
-       }
-       $self->{res} .="\n";
-}
-
-sub pidl_hdr($$) { my ($self, $d) = @_; $self->{res_hdr} .= "$d\n"; }
-
 ####################################
 # defer() is like pidl(), but adds to 
 # a deferred buffer which is then added to the 
@@ -123,18 +110,6 @@ sub add_deferred($)
        $self->{defer_tabs} = "";
 }
 
-sub indent($)
-{
-       my ($self) = @_;
-       $self->{tabs} .= "\t";
-}
-
-sub deindent($)
-{
-       my ($self) = @_;
-       $self->{tabs} = substr($self->{tabs}, 0, -1);
-}
-
 #####################################################################
 # declare a function public or static, depending on its attributes
 sub fn_declare($$$$)