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/Typelist.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/Typelist.pm')
-rw-r--r-- | source4/build/pidl/Parse/Pidl/Typelist.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Typelist.pm b/source4/build/pidl/Parse/Pidl/Typelist.pm index d134cc6992..d8934bfbce 100644 --- a/source4/build/pidl/Parse/Pidl/Typelist.pm +++ b/source4/build/pidl/Parse/Pidl/Typelist.pm @@ -5,7 +5,7 @@ package Parse::Pidl::Typelist; -use Parse::Pidl::Util; +use Parse::Pidl::Util qw(has_property); use strict; my %typedefs = (); @@ -253,9 +253,9 @@ sub RegisterAliases() sub enum_type_fn($) { my $enum = shift; - if (Parse::Pidl::Util::has_property($enum->{PARENT}, "enum8bit")) { + if (has_property($enum->{PARENT}, "enum8bit")) { return "uint8"; - } elsif (Parse::Pidl::Util::has_property($enum->{PARENT}, "v1_enum")) { + } elsif (has_property($enum->{PARENT}, "v1_enum")) { return "uint32"; } return "uint16"; @@ -265,11 +265,11 @@ sub bitmap_type_fn($) { my $bitmap = shift; - if (Parse::Pidl::Util::has_property($bitmap, "bitmap8bit")) { + if (has_property($bitmap, "bitmap8bit")) { return "uint8"; - } elsif (Parse::Pidl::Util::has_property($bitmap, "bitmap16bit")) { + } elsif (has_property($bitmap, "bitmap16bit")) { return "uint16"; - } elsif (Parse::Pidl::Util::has_property($bitmap, "bitmap64bit")) { + } elsif (has_property($bitmap, "bitmap64bit")) { return "hyper"; } return "uint32"; @@ -310,7 +310,7 @@ sub LoadIdl($) NAME => $x->{NAME}, TYPE => "TYPEDEF", DATA => $x - }) if (Parse::Pidl::Util::has_property($x, "object")); + }) if (has_property($x, "object")); foreach my $y (@{$x->{DATA}}) { addType($y) if ( |