pidl s4::Python 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/Python.pm b/pidl/lib/Parse/Pidl/Samba4/Python.pm
index 9ef4c6ca493e7478a2b4ff6b27f6830757d42c4e..75d6ccb356ee3399bfa1880c4608bd8c73af9948 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4/Python.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/Python.pm
@@ -4,9 +4,10 @@
 # released under the GNU GPL
 
 package Parse::Pidl::Samba4::Python;
+use parent Parse::Pidl::Base;
 
 use Exporter;
-@ISA = qw(Exporter);
+push @ISA, 'Exporter';
 
 use strict;
 use Parse::Pidl qw(warning fatal error);
@@ -17,6 +18,7 @@ use Parse::Pidl::CUtil qw(get_value_of get_pointer_to);
 use Parse::Pidl::Samba4 qw(ArrayDynamicallyAllocated);
 use Parse::Pidl::Samba4::Header qw(GenerateFunctionInEnv GenerateFunctionOutEnv EnvSubstituteValue GenerateStructEnv);
 
+
 use vars qw($VERSION);
 $VERSION = '0.01';
 
@@ -34,36 +36,6 @@ sub new($) {
        bless($self, $class);
 }
 
-sub pidl_hdr ($$)
-{
-       my $self = shift;
-       $self->{res_hdr} .= shift . "\n";
-}
-
-sub pidl($$)
-{
-       my ($self, $d) = @_;
-       if ($d) {
-               if ((!($d =~ /^#/))) {
-                       $self->{res} .= $self->{tabs};
-               }
-               $self->{res} .= $d;
-       }
-       $self->{res} .= "\n";
-}
-
-sub indent($)
-{
-       my ($self) = @_;
-       $self->{tabs} .= "\t";
-}
-
-sub deindent($)
-{
-       my ($self) = @_;
-       $self->{tabs} = substr($self->{tabs}, 0, -1);
-}
-
 sub PrettifyTypeName($$)
 {
        my ($name, $basename) = @_;