diff options
| author | Douglas Bagnall <douglas.bagnall@catalyst.net.nz> | 2019-11-30 16:59:31 +1300 |
|---|---|---|
| committer | Andrew Bartlett <abartlet@samba.org> | 2019-12-04 05:10:32 +0000 |
| commit | 8429418a88e803592f57e1997bfbe0f639f422c0 (patch) | |
| tree | 58916730fd4af5a6e2ecc5c867490b7ca16e9299 /pidl/lib | |
| parent | 12f6698f76e29854d5097a266fb4e1658d88ae96 (diff) | |
| download | samba-8429418a88e803592f57e1997bfbe0f639f422c0.tar.gz | |
pidl s4/TDR: use Parse::Pidl::Base
Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
Diffstat (limited to 'pidl/lib')
| -rw-r--r-- | pidl/lib/Parse/Pidl/Samba4/TDR.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/TDR.pm b/pidl/lib/Parse/Pidl/Samba4/TDR.pm index 77967414027..aaabe3328e9 100644 --- a/pidl/lib/Parse/Pidl/Samba4/TDR.pm +++ b/pidl/lib/Parse/Pidl/Samba4/TDR.pm @@ -9,8 +9,10 @@ use Parse::Pidl::Util qw(has_property ParseExpr is_constant); use Parse::Pidl::Samba4 qw(is_intree choose_header); use Parse::Pidl::Typelist qw(mapTypeName); +use base Parse::Pidl::Base; + use Exporter; -@ISA = qw(Exporter); +push @ISA, qw(Exporter); @EXPORT_OK = qw(ParserType $res $res_hdr); use vars qw($VERSION); @@ -24,10 +26,6 @@ sub new($) { bless($self, $class); } -sub indent($) { my $self = shift; $self->{tabs}.="\t"; } -sub deindent($) { my $self = shift; $self->{tabs} = substr($self->{tabs}, 1); } -sub pidl($$) { my $self = shift; $self->{res} .= $self->{tabs}.(shift)."\n"; } -sub pidl_hdr($$) { my $self = shift; $self->{res_hdr} .= (shift)."\n"; } sub typearg($) { my $t = shift; return(", const char *name") if ($t eq "print"); |