blob: 459826dd9d8f0763688a0436490080646a659fcc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
###################################################
# Samba4 parser generator for swig wrappers
# Copyright tpot@samba.org 2004
# released under the GNU GPL
package IdlSwig;
use strict;
use Data::Dumper;
my($res);
my($name);
sub ParseFunction($)
{
my($fn) = shift;
# Input typemap
$res .= "%typemap(in) struct $fn->{NAME} * (struct $fn->{NAME} temp) {\n";
# $res .= "\tif (!PyDict_Check(\$input)) {\n";
# $res .= "\t\tPyErr_SetString(PyExc_TypeError, \"dict arg expected\");\n";
# $res .= "\t\treturn NULL;\n";
# $res .= "\t}\n\n";
$res .= "\tmemset(&temp, 0, sizeof(temp));\n";
# foreach my $e (@{$fn->{DATA}}) {
# if (util::has_property($e, "in")) {
# $res .= "\ttemp.in.$e->{NAME} = $e->{TYPE}_from_python(PyDict_GetItem(\$input, PyString_FromString(\"$e->{NAME}\")));\n";
# }
# }
# $res .= "\n";
$res .= "\t\$1 = &temp;\n";
$res .= "}\n\n";
# Output typemap
$res .= "%typemap(argout) struct $fn->{NAME} * {\n";
$res .= "\tlong status = PyLong_AsLong(resultobj);\n";
$res .= "\tPyObject *dict;\n";
$res .= "\n";
$res .= "\tif (status != 0) {\n";
$res .= "\t\tset_ntstatus_exception(status);\n";
$res .= "\t\treturn NULL;\n";
$res .= "\t}\n";
$res .= "\n";
$res .= "\tdict = PyDict_New();\n";
# foreach my $e (@{$fn->{DATA}}) {
# if (util::has_property($e, "out")) {
# $res .= "\t// PyDict_SetItem(dict, PyString_FromString(\"$e->{NAME}\"),\n";
# $res .= "\t//\t$e->{TYPE}_to_python(\$1->out.$e->{NAME}));\n";
# }
# }
$res .= "\n";
$res .= "\tresultobj = dict;\n";
$res .= "}\n\n";
# Function definitions
$res .= "%rename($fn->{NAME}) dcerpc_$fn->{NAME};\n";
$res .= "$fn->{RETURN_TYPE} dcerpc_$fn->{NAME}(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $fn->{NAME} *r);\n\n";
}
sub ParseStruct($)
{
my($s) = shift;
$res .= "%{\n\n";
$res .= "\t/* $s->{NAME} */\n\n";
foreach my $e (@{$s->{DATA}{ELEMENTS}}) {
}
$res .= "\n%}\n\n";
}
sub ParseTypedef($)
{
my($t) = shift;
foreach my $e ($t) {
($e->{DATA}{TYPE} eq "STRUCT") && ParseStruct($e);
}
}
sub ParseInheritedData($)
{
my($data) = shift;
foreach my $e (@{$data}) {
($e->{TYPE} eq "FUNCTION") && ParseFunction($e);
($e->{TYPE} eq "TYPEDEF") && ParseTypedef($e);
}
}
sub ParseHeader($)
{
my($hdr) = shift;
$name = $hdr->{NAME};
$res .= "#define DCERPC_" . uc($name) . "_UUID \"$hdr->{PROPERTIES}->{uuid}\"\n";
$res .= "const int DCERPC_" . uc($name) . "_VERSION = " . $hdr->{PROPERTIES}->{version} . ";\n";
$res .= "#define DCERPC_" . uc($name) . "_NAME \"" . $name . "\"\n";
$res .= "\n";
ParseInheritedData($hdr->{INHERITED_DATA});
}
sub Parse($)
{
my($idl) = shift;
$res = "/* auto-generated by pidl */\n\n";
foreach my $x (@{$idl}) {
($x->{TYPE} eq "INTERFACE") && ParseHeader($x);
}
return $res;
}
1;
|