diff options
| author | Tim Potter <tpot@samba.org> | 2004-09-13 12:44:36 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:58:44 -0500 |
| commit | cff1f3e8a961ffc15c09ef5de1aa965122e6e4f6 (patch) | |
| tree | 16744d535d7e63796ce4247a72701369e685c3c9 | |
| parent | 12b29d8bb7e0b984dc51644763cd544dbe350172 (diff) | |
| download | samba-cff1f3e8a961ffc15c09ef5de1aa965122e6e4f6.tar.gz samba-cff1f3e8a961ffc15c09ef5de1aa965122e6e4f6.tar.bz2 samba-cff1f3e8a961ffc15c09ef5de1aa965122e6e4f6.zip | |
r2325: Generate conversion stubs for IDL unions.
(This used to be commit a06727b79228865e03430e41fc991c3d39eca220)
| -rw-r--r-- | source4/build/pidl/swig.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/source4/build/pidl/swig.pm b/source4/build/pidl/swig.pm index c6a398f6b4..05d68a8f79 100644 --- a/source4/build/pidl/swig.pm +++ b/source4/build/pidl/swig.pm @@ -237,12 +237,35 @@ sub ParseStruct($) $res .= "\n%}\n\n"; } +sub ParseUnion($) +{ + my($u) = shift; + + $res .= "%{\n\n"; + $res .= "/* Convert Python dict to union $u->{NAME} */\n\n"; + + $res .= "union $u->{NAME} *$u->{NAME}_from_python(TALLOC_CTX *mem_ctx, PyObject *obj)\n"; + $res .= "{\n"; + $res .= "\treturn NULL;\n"; + $res .= "}\n\n"; + + $res .= "/* Convert union $u->{NAME} to Python dict */\n\n"; + + $res .= "PyObject *$u->{NAME}_to_python(TALLOC_CTX *mem_ctx, union $u->{NAME} *u)\n"; + $res .= "{\n"; + $res .= "\treturn NULL;\n"; + $res .= "}\n\n"; + + $res .= "\n%}\n\n"; +} + sub ParseTypedef($) { my($t) = shift; foreach my $e ($t) { ($e->{DATA}{TYPE} eq "STRUCT") && ParseStruct($e); + ($e->{DATA}{TYPE} eq "UNION") && ParseUnion($e); } } |