diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-07-10 00:23:51 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:19:28 -0500 |
commit | d0c347188246ae6d36e56457cb96c002f430da23 (patch) | |
tree | ec359f0e653410a8cfec85660484b7db4b044ab5 /source4/build/pidl/Parse/Pidl/Samba/EJS.pm | |
parent | 2a08b290134eacc803389b20e604792a7e74eac4 (diff) | |
download | samba-d0c347188246ae6d36e56457cb96c002f430da23.tar.gz samba-d0c347188246ae6d36e56457cb96c002f430da23.tar.bz2 samba-d0c347188246ae6d36e56457cb96c002f430da23.zip |
r8270: Export some symbols, making the code more readable.
(This used to be commit d64bffa17ea1c46d917e362d51741148b85fb97f)
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Samba/EJS.pm')
-rw-r--r-- | source4/build/pidl/Parse/Pidl/Samba/EJS.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Samba/EJS.pm b/source4/build/pidl/Parse/Pidl/Samba/EJS.pm index ed35d2d237..26556b2820 100644 --- a/source4/build/pidl/Parse/Pidl/Samba/EJS.pm +++ b/source4/build/pidl/Parse/Pidl/Samba/EJS.pm @@ -8,6 +8,7 @@ package Parse::Pidl::Samba::EJS; use strict; use Parse::Pidl::Typelist; +use Parse::Pidl::Util qw(has_property); my($res); my %constants; @@ -110,7 +111,7 @@ sub fn_prefix($) { my $fn = shift; - return "" if (Parse::Pidl::Util::has_property($fn, "public")); + return "" if (has_property($fn, "public")); return "static "; } @@ -120,7 +121,7 @@ sub EjsPullScalar($$$$$) { my ($e, $l, $var, $name, $env) = @_; - return if (Parse::Pidl::Util::has_property($e, "value")); + return if (has_property($e, "value")); my $pl = Parse::Pidl::NDR::GetPrevLevel($e, $l); $var = get_pointer_to($var); @@ -203,7 +204,7 @@ sub EjsPullSwitch($$$$$) sub EjsPullElement($$$$$) { my ($e, $l, $var, $name, $env) = @_; - if (Parse::Pidl::Util::has_property($e, "charset")) { + if (has_property($e, "charset")) { EjsPullString($e, $l, $var, $name, $env); } elsif ($l->{TYPE} eq "ARRAY") { EjsPullArray($e, $l, $var, $name, $env); @@ -327,7 +328,7 @@ sub EjsBitmapPull($$) sub EjsTypedefPull($) { my $d = shift; - return if (Parse::Pidl::Util::has_property($d, "noejs")); + return if (has_property($d, "noejs")); if ($d->{DATA}->{TYPE} eq 'STRUCT') { EjsStructPull($d->{NAME}, $d->{DATA}); } elsif ($d->{DATA}->{TYPE} eq 'UNION') { @@ -444,7 +445,7 @@ sub EjsPushArray($$$$$) sub EjsPushElement($$$$$) { my ($e, $l, $var, $name, $env) = @_; - if (Parse::Pidl::Util::has_property($e, "charset")) { + if (has_property($e, "charset")) { EjsPushString($e, $l, $var, $name, $env); } elsif ($l->{TYPE} eq "ARRAY") { EjsPushArray($e, $l, $var, $name, $env); @@ -587,7 +588,7 @@ sub EjsBitmapPush($$) sub EjsTypedefPush($) { my $d = shift; - return if (Parse::Pidl::Util::has_property($d, "noejs")); + return if (has_property($d, "noejs")); if ($d->{DATA}->{TYPE} eq 'STRUCT') { EjsStructPush($d->{NAME}, $d->{DATA}); } elsif ($d->{DATA}->{TYPE} eq 'UNION') { |