summaryrefslogtreecommitdiff
path: root/source4/build/pidl/parser.pm
diff options
context:
space:
mode:
authorAndrew Tridgell <tridge@samba.org>2003-11-11 04:38:10 +0000
committerAndrew Tridgell <tridge@samba.org>2003-11-11 04:38:10 +0000
commit161321f68db0e83e71099364a654c796e49b8152 (patch)
treee5e59fed7780a534c0729f5f5856af0d66be4702 /source4/build/pidl/parser.pm
parentcecbf0cd8b99f7019a83def88baec889d6a06e6f (diff)
downloadsamba-161321f68db0e83e71099364a654c796e49b8152.tar.gz
samba-161321f68db0e83e71099364a654c796e49b8152.tar.bz2
samba-161321f68db0e83e71099364a654c796e49b8152.zip
automatic printing of unions
(This used to be commit 73b530075589f24f7bb9a001fde979ec6930d2bb)
Diffstat (limited to 'source4/build/pidl/parser.pm')
-rw-r--r--source4/build/pidl/parser.pm17
1 files changed, 12 insertions, 5 deletions
diff --git a/source4/build/pidl/parser.pm b/source4/build/pidl/parser.pm
index 19e6dc26f4..b52026a8d3 100644
--- a/source4/build/pidl/parser.pm
+++ b/source4/build/pidl/parser.pm
@@ -138,7 +138,7 @@ sub ParseElementPrintScalar($$)
if (defined $e->{VALUE}) {
$res .= "\tndr_print_$e->{TYPE}(ndr, \"$e->{NAME}\", $e->{VALUE});\n";
- } elsif (util::need_wire_pointer($e)) {
+ } elsif (util::has_direct_buffers($e)) {
$res .= "\tndr_print_ptr(ndr, \"$e->{NAME}\", $var_prefix$e->{NAME});\n";
$res .= "\tndr->depth++;\n";
ParseElementPrintBuffer($e, "r->");
@@ -343,8 +343,6 @@ sub ParseStructPrint($)
{
my($struct) = shift;
- $res .= "\tndr_print_struct(ndr, name);\n";
-
if (! defined $struct->{ELEMENTS}) {
return;
}
@@ -430,7 +428,15 @@ sub ParseUnionPush($)
sub ParseUnionPrint($)
{
my $e = shift;
- print "WARNING! union print not done\n";
+
+ $res .= "\tswitch (level) {\n";
+ foreach my $el (@{$e->{DATA}}) {
+ $res .= "\tcase $el->{CASE}:\n";
+ ParseElementPrintScalar($el->{DATA}, "r->");
+ $res .= "\tbreak;\n\n";
+ }
+ $res .= "\tdefault:\n\t\tndr_print_bad_level(ndr, name, level);\n";
+ $res .= "\t}\n";
}
#####################################################################
@@ -438,7 +444,6 @@ sub ParseUnionPrint($)
sub ParseUnionPull($)
{
my $e = shift;
- print "union pull not done\n";
$res .= "\tNDR_CHECK(ndr_pull_uint16(ndr, level));\n";
$res .= "\tif (!(ndr_flags & NDR_SCALARS)) goto buffers;\n";
@@ -572,6 +577,7 @@ sub ParseTypedefPrint($)
if ($e->{DATA}->{TYPE} eq "STRUCT") {
$res .= "void ndr_print_$e->{NAME}(struct ndr_print *ndr, const char *name, struct $e->{NAME} *r)";
$res .= "\n{\n";
+ $res .= "\tndr_print_struct(ndr, name, \"$e->{NAME}\");\n";
ParseTypePrint($e->{DATA});
$res .= "}\n\n";
}
@@ -579,6 +585,7 @@ sub ParseTypedefPrint($)
if ($e->{DATA}->{TYPE} eq "UNION") {
$res .= "void ndr_print_$e->{NAME}(struct ndr_print *ndr, const char *name, uint16 level, union $e->{NAME} *r)";
$res .= "\n{\n";
+ $res .= "\tndr_print_union(ndr, name, level, \"$e->{NAME}\");\n";
ParseTypePrint($e->{DATA});
$res .= "}\n\n";
}