summaryrefslogtreecommitdiff
path: root/source4/build
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2004-09-20 05:41:31 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:58:51 -0500
commit44838763e2423b2fd2493284d36ccc2d3448c673 (patch)
treed57bbe24e819fc57d2a969e7f67ec297b5e45b93 /source4/build
parentb653d8775a524fe727a61a297d03cf7a12d5c380 (diff)
downloadsamba-44838763e2423b2fd2493284d36ccc2d3448c673.tar.gz
samba-44838763e2423b2fd2493284d36ccc2d3448c673.tar.bz2
samba-44838763e2423b2fd2493284d36ccc2d3448c673.zip
r2428: Handle unions as [out] parameters by passing the value of the switch_is
parameter down to the various conversion functions. (This used to be commit 46b3d4cfd8effcc75293b8b0af04203fa25742b2)
Diffstat (limited to 'source4/build')
-rw-r--r--source4/build/pidl/swig.pm76
1 files changed, 61 insertions, 15 deletions
diff --git a/source4/build/pidl/swig.pm b/source4/build/pidl/swig.pm
index e8928aae53..6442aff005 100644
--- a/source4/build/pidl/swig.pm
+++ b/source4/build/pidl/swig.pm
@@ -11,6 +11,15 @@ use strict;
eval("use Data::Dumper");
+my(%interfaces, %functions, %structs, %unions);
+
+sub isunion($)
+{
+ my($name) = shift;
+
+ return $unions{$name};
+}
+
# Display properties of a structure field as commented out code
sub DebugField($)
@@ -47,8 +56,6 @@ sub ArrayFromPython($$)
my($prefix) = shift;
my($result) = "";
- $result .= "/* " . Dumper($e) . " */\n";
-
my($size);
if (util::has_property($e, "size_is")) {
@@ -209,7 +216,7 @@ sub FieldToPython($$)
return $result;
}
- # Generate conversion for element
+ # Generate conversion for scalars and structures
if (util::is_scalar_type($e->{TYPE})) {
if ($e->{POINTERS} == 0) {
@@ -227,17 +234,24 @@ sub FieldToPython($$)
}
}
} else {
+
+ my($extra_args) = "";
+
+ if (isunion($e->{TYPE})) {
+ $extra_args = ", switch_is";
+ }
+
if ($e->{POINTERS} == 0) {
if ($e->{ARRAY_LEN}) {
$result .= ArrayToPython($e, $prefix);
} else {
- $result .= "\tPyDict_SetItemString(obj, \"$e->{NAME}\", $e->{TYPE}_ptr_to_python(mem_ctx, &s->$prefix$e->{NAME}));\n";
+ $result .= "\tPyDict_SetItemString(obj, \"$e->{NAME}\", $e->{TYPE}_ptr_to_python(mem_ctx, &s->$prefix$e->{NAME}$extra_args));\n";
}
} else {
if ($e->{ARRAY_LEN} or util::has_property($e, "size_is")) {
$result .= ArrayToPython($e, $prefix);
} else {
- $result .= "\tPyDict_SetItemString(obj, \"$e->{NAME}\", $e->{TYPE}_ptr_to_python(mem_ctx, s->$prefix$e->{NAME}));\n";
+ $result .= "\tPyDict_SetItemString(obj, \"$e->{NAME}\", $e->{TYPE}_ptr_to_python(mem_ctx, s->$prefix$e->{NAME}$extra_args));\n";
}
}
}
@@ -287,7 +301,15 @@ sub ParseFunction($)
$result .= "/* Convert struct $fn->{NAME}.out to Python dict */\n\n";
- $result .= "PyObject *$fn->{NAME}_ptr_to_python(TALLOC_CTX *mem_ctx, struct $fn->{NAME} *s)\n";
+ $result .= "PyObject *$fn->{NAME}_ptr_to_python(TALLOC_CTX *mem_ctx, struct $fn->{NAME} *s";
+
+ foreach my $e (@{$fn->{DATA}}) {
+ if (isunion($e->{TYPE})) {
+ $result .= ", int switch_is";
+ }
+ }
+ $result .= ")\n";
+
$result .= "{\n";
$result .= "\tPyObject *obj = PyDict_New();\n\n";
@@ -306,6 +328,7 @@ sub ParseFunction($)
$result .= "%typemap(in) struct $fn->{NAME} * {\n";
$result .= "\tTALLOC_CTX *mem_ctx = talloc_init(\"typemap(int) $fn->{NAME}\");\n\n";
+
$result .= "\t\$1 = $fn->{NAME}_ptr_from_python(mem_ctx, \$input, \"<function params>\");\n\n";
$result .= "\tif (PyErr_Occurred()) return NULL;\n\n";
@@ -316,7 +339,16 @@ sub ParseFunction($)
$result .= "%typemap(argout) struct $fn->{NAME} * {\n";
$result .= "\tTALLOC_CTX *mem_ctx = talloc_init(\"typemap(argout) $fn->{NAME}\");\n\n";
- $result .= "\tresultobj = $fn->{NAME}_ptr_to_python(mem_ctx, \$1);\n\n";
+
+ $result .= "\tresultobj = $fn->{NAME}_ptr_to_python(mem_ctx, \$1";
+
+ foreach my $e (@{$fn->{DATA}}) {
+ if ((my $switch_is = util::has_property($e, "switch_is"))) {
+ $result .= ", \$1->in.$switch_is";
+ }
+ }
+
+ $result .= ");\n\n";
$result .= "\ttalloc_free(mem_ctx);\n";
$result .= "}\n\n";
@@ -399,13 +431,15 @@ sub ParseStruct($)
$result .= "PyObject *$s->{NAME}_ptr_to_python(TALLOC_CTX *mem_ctx, struct $s->{NAME} *s)\n";
$result .= "{\n";
- $result .= "\tPyObject *obj = PyDict_New();\n\n";
+ $result .= "\tPyObject *obj;\n\n";
$result .= "\tif (s == NULL) {\n";
$result .= "\t\tPy_INCREF(Py_None);\n";
$result .= "\t\treturn Py_None;\n";
$result .= "\t}\n\n";
+ $result .= "\tobj = PyDict_New();\n\n";
+
foreach my $e (@{$s->{DATA}{ELEMENTS}}) {
$result .= FieldToPython($e, "");
}
@@ -505,15 +539,29 @@ sub ParseUnion($)
$result .= "/* Convert union $u->{NAME} pointer to Python dict */\n\n";
- $result .= "PyObject *$u->{NAME}_ptr_to_python(TALLOC_CTX *mem_ctx, union $u->{NAME} *u)\n";
+ $result .= "PyObject *$u->{NAME}_ptr_to_python(TALLOC_CTX *mem_ctx, union $u->{NAME} *u, int switch_is)\n";
$result .= "{\n";
+ $result .= "\tPyObject *obj;\n\n";
$result .= "\tif (u == NULL) {\n";
$result .= "\t\tPy_INCREF(Py_None);\n";
$result .= "\t\treturn Py_None;\n";
$result .= "\t}\n\n";
- $result .= "\treturn PyDict_New();\n";
+ $result .= "\tobj = PyDict_New();\n\n";
+
+ for my $e (@{$u->{DATA}{DATA}}) {
+ $result .= "\tif (switch_is == $e->{CASE}) {\n";
+ if ($e->{POINTERS} == 0) {
+ $result .= "\t\tPyDict_SetItemString(obj, \"$e->{DATA}{NAME}\", $e->{DATA}{TYPE}_ptr_to_python(mem_ctx, &u->$e->{DATA}{NAME}));\n";
+ } else {
+ $result .= "\t\tPyDict_SetItemString(obj, \"$e->{DATA}{NAME}\", $e->{DATA}{TYPE}_ptr_to_python(mem_ctx, u->$e->{DATA}{NAME}));\n";
+ }
+ $result .= "\t}\n";
+ }
+
+ $result .= "\treturn obj;\n";
+
$result .= "}\n\n";
$result .= "\n%}\n\n";
@@ -572,16 +620,14 @@ sub Parse($)
# Make index of functions, structs and unions. Currently unused.
- my(%interfaces, %functions, %structs, %unions);
-
foreach my $x (@{$idl}) {
my($iname) = $x->{NAME};
$interfaces{$iname} = $x->{PROPERTIES};
foreach my $i (@{$x->{INHERITED_DATA}}) {
- $functions{$iname}{$i->{NAME}} = $i if $i->{TYPE} eq "FUNCTION";
+ $functions{$i->{NAME}} = $i if $i->{TYPE} eq "FUNCTION";
if ($i->{TYPE} eq "TYPEDEF") {
- $structs{$iname}{$i->{NAME}} = $i->{DATA} if $i->{DATA}{TYPE} eq "STRUCT";
- $unions{$iname}{$i->{NAME}} = $i->{DATA} if $i->{DATA}{TYPE} eq "UNION";
+ $structs{$i->{NAME}} = $i->{DATA} if $i->{DATA}{TYPE} eq "STRUCT";
+ $unions{$i->{NAME}} = $i->{DATA} if $i->{DATA}{TYPE} eq "UNION";
}
}
}