diff options
| author | Douglas Bagnall <douglas.bagnall@catalyst.net.nz> | 2019-11-30 16:55:15 +1300 |
|---|---|---|
| committer | Andrew Bartlett <abartlet@samba.org> | 2019-12-04 05:10:31 +0000 |
| commit | fd68ba8a10adf7439f842a787943b1ec4580d837 (patch) | |
| tree | 80ec45c66c327617d7b06f23c68eb5ba03bc40ea /pidl | |
| parent | 574c8db54cf1ba06516a5036269bffd81e20d602 (diff) | |
| download | samba-fd68ba8a10adf7439f842a787943b1ec4580d837.tar.gz | |
pidl: s4/NDR/Parser uses 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/Parser.pm | 29 |
1 files changed, 2 insertions, 27 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm index c1a2cc99cb7..3ae0db22f7a 100644 --- 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; @@ -82,20 +83,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 # output buffer at the end of the structure/union/function @@ -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($$$$) |