summaryrefslogtreecommitdiff
path: root/source4/build
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2005-01-05 16:31:05 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:08:19 -0500
commitecd9557922ec676214c72be93684eb7d54ec5773 (patch)
tree47d5f90940ccd55e87287d4bcc79d1a24bbe25d6 /source4/build
parent4a49604e6c84597f97d98dd884f053edd6a84da3 (diff)
downloadsamba-ecd9557922ec676214c72be93684eb7d54ec5773.tar.gz
samba-ecd9557922ec676214c72be93684eb7d54ec5773.tar.bz2
samba-ecd9557922ec676214c72be93684eb7d54ec5773.zip
r4540: sync enum and bitmap code
metze (This used to be commit 2f3aea72ee7d9d90f7b910d11bdd1e96f9f0ebe1)
Diffstat (limited to 'source4/build')
-rw-r--r--source4/build/pidl/header.pm2
-rw-r--r--source4/build/pidl/parser.pm31
-rw-r--r--source4/build/pidl/util.pm24
3 files changed, 26 insertions, 31 deletions
diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm
index 15a0bd4276..10adf94dba 100644
--- a/source4/build/pidl/header.pm
+++ b/source4/build/pidl/header.pm
@@ -98,7 +98,7 @@ sub HeaderEnum($$)
my($enum) = shift;
my($name) = shift;
- util::register_enum($name);
+ util::register_enum($enum, $name);
$res .= "\nenum $name {\n";
$tab_depth++;
diff --git a/source4/build/pidl/parser.pm b/source4/build/pidl/parser.pm
index 00d48270de..2aa7dfc3d6 100644
--- a/source4/build/pidl/parser.pm
+++ b/source4/build/pidl/parser.pm
@@ -469,17 +469,14 @@ sub ParseElementPullSwitch($$$$)
!util::has_property($utype, "nodiscriminant")) {
my $e2 = find_sibling($e, $switch);
my $type_decl = $e2->{TYPE};
- my $type_fn = $e2->{TYPE};
pidl "\tif (($ndr_flags) & NDR_SCALARS) {\n";
if (util::is_enum($e2->{TYPE})) {
$type_decl = util::enum_type_decl($e2);
- $type_fn = util::enum_type_fn($e2);
} elsif (util::is_bitmap($e2->{TYPE})) {
$type_decl = util::bitmap_type_decl($e2);
- $type_fn = util::bitmap_type_fn($e2);
}
pidl "\t\t$type_decl _level;\n";
- pidl "\t\tNDR_CHECK(ndr_pull_$type_fn(ndr, &_level));\n";
+ pidl "\t\tNDR_CHECK(ndr_pull_$e2->{TYPE}(ndr, &_level));\n";
if ($switch_var =~ /r->in/) {
pidl "\t\tif (!(ndr->flags & LIBNDR_FLAG_REF_ALLOC) && _level != $switch_var) {\n";
} else {
@@ -804,16 +801,11 @@ sub ParseStructPush($)
sub ParseEnumPush($)
{
my($enum) = shift;
+ my($type_fn) = util::enum_type_fn($enum);
start_flags($enum);
- if (util::has_property($enum->{PARENT}, "v1_enum")) {
- pidl "\tNDR_CHECK(ndr_push_uint32(ndr, r));\n";
- } elsif (util::has_property($enum->{PARENT}, "enum8bit")) {
- pidl "\tNDR_CHECK(ndr_push_uint8(ndr, r));\n";
- } else {
- pidl "\tNDR_CHECK(ndr_push_uint16(ndr, r));\n";
- }
+ pidl "\tNDR_CHECK(ndr_push_$type_fn(ndr, r));\n";
end_flags($enum);
}
@@ -823,19 +815,12 @@ sub ParseEnumPush($)
sub ParseEnumPull($)
{
my($enum) = shift;
+ my($type_fn) = util::enum_type_fn($enum);
start_flags($enum);
- if (util::has_property($enum->{PARENT}, "v1_enum")) {
- pidl "\tuint32_t v;\n";
- pidl "\tNDR_CHECK(ndr_pull_uint32(ndr, &v));\n";
- } elsif (util::has_property($enum->{PARENT}, "enum8bit")) {
- pidl "\tuint8_t v;\n";
- pidl "\tNDR_CHECK(ndr_pull_uint8(ndr, &v));\n";
- } else {
- pidl "\tuint16_t v;\n";
- pidl "\tNDR_CHECK(ndr_pull_uint16(ndr, &v));\n";
- }
+ pidl "\t$type_fn v;\n";
+ pidl "\tNDR_CHECK(ndr_pull_$type_fn(ndr, &v));\n";
pidl "\t*r = v;\n";
end_flags($enum);
@@ -873,7 +858,6 @@ sub ParseEnumPrint($)
sub ParseBitmapPush($)
{
my($bitmap) = shift;
- my($type_decl) = util::bitmap_type_decl($bitmap);
my($type_fn) = util::bitmap_type_fn($bitmap);
start_flags($bitmap);
@@ -888,12 +872,11 @@ sub ParseBitmapPush($)
sub ParseBitmapPull($)
{
my($bitmap) = shift;
- my($type_decl) = util::bitmap_type_decl($bitmap);
my($type_fn) = util::bitmap_type_fn($bitmap);
start_flags($bitmap);
- pidl "\t$type_decl v;\n";
+ pidl "\t$type_fn v;\n";
pidl "\tNDR_CHECK(ndr_pull_$type_fn(ndr, &v));\n";
pidl "\t*r = v;\n";
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index 1b00bdea1b..e3ec3d6138 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -202,10 +202,11 @@ sub property_matches($$$)
my %enum_list;
-sub register_enum($)
+sub register_enum($$)
{
+ my $enum = shift;
my $name = shift;
- $enum_list{$name} = 1;
+ $enum_list{$name} = $enum;
}
sub is_enum($)
@@ -214,16 +215,27 @@ sub is_enum($)
return defined $enum_list{$name}
}
+sub get_enum($)
+{
+ my $name = shift;
+ return $enum_list{$name};
+}
+
sub enum_type_decl($)
{
- my $e = shift;
- return "enum $e->{TYPE}";
+ my $enum = shift;
+ return "enum $enum->{TYPE}";
}
sub enum_type_fn($)
{
- my $e = shift;
- return "$e->{TYPE}";
+ my $enum = shift;
+ if (util::has_property($enum->{PARENT}, "enum8bit")) {
+ return "uint8";
+ } elsif (util::has_property($enum->{PARENT}, "v1_enum")) {
+ return "uint32";
+ }
+ return "uint16";
}
my %bitmap_list;