diff options
author | Douglas Bagnall <douglas.bagnall@catalyst.net.nz> | 2019-11-30 16:49:06 +1300 |
---|---|---|
committer | Andrew Bartlett <abartlet@samba.org> | 2019-12-04 05:10:31 +0000 |
commit | 574c8db54cf1ba06516a5036269bffd81e20d602 (patch) | |
tree | 4b711f7a2d66ff4a9282eb7311f44c831b94eedf /pidl | |
parent | 3fc222a1225658706444fd8118f9477b6a4baba4 (diff) | |
download | samba-574c8db54cf1ba06516a5036269bffd81e20d602.tar.gz |
pidl s4/NDR/Client: use Pidl::Base
Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
Diffstat (limited to 'pidl')
-rw-r--r-- | pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm index 234573b068f..381bc46defa 100644 --- a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm +++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm @@ -5,9 +5,10 @@ # released under the GNU GPL package Parse::Pidl::Samba4::NDR::Client; +use parent Parse::Pidl::Base; use Exporter; -@ISA = qw(Exporter); +push @ISA, qw(Exporter); @EXPORT_OK = qw(Parse); use Parse::Pidl qw(fatal warning error); @@ -17,18 +18,13 @@ use Parse::Pidl::Typelist qw(mapTypeName); use Parse::Pidl::Samba4 qw(choose_header is_intree DeclLong); use Parse::Pidl::Samba4::Header qw(GenerateFunctionInEnv GenerateFunctionOutEnv); + use vars qw($VERSION); $VERSION = '0.01'; use strict; -sub indent($) { my ($self) = @_; $self->{tabs}.="\t"; } -sub deindent($) { my ($self) = @_; $self->{tabs} = substr($self->{tabs}, 1); } -sub pidl($$) { my ($self,$txt) = @_; $self->{res} .= $txt ? "$self->{tabs}$txt\n" : "\n"; } -sub pidl_hdr($$) { my ($self, $txt) = @_; $self->{res_hdr} .= "$txt\n"; } -sub pidl_both($$) { my ($self, $txt) = @_; $self->{res} .= "$txt\n"; $self->{res_hdr} .= "$txt\n"; } sub fn_declare($$) { my ($self,$n) = @_; $self->pidl($n); $self->pidl_hdr("$n;"); } - sub new($) { my ($class) = shift; |