Lines Matching defs:pidl
29 sub pidl($$) { my $self = shift; $self->{ret} .= $self->{tabs}.(shift)."\n"; }
42 $self->pidl($d); $self->pidl_hdr("$d;");
44 $self->pidl("static $d");
77 $self->pidl("{");
79 $self->pidl("uint32_t saved_flags = tdr->flags;");
80 $self->pidl("tdr->flags |= $e->{PROPERTIES}->{flag};");
89 $self->pidl("TDR_CHECK(tdr_$t\_charset(tdr$name, &v->$e->{NAME}, $len, sizeof($e->{TYPE}_t), CH_$e->{PROPERTIES}->{charset}));");
101 $self->pidl("TDR_ALLOC(mem_ctx, v->$e->{NAME}, $len);");
105 $self->pidl("for (i = 0; i < $len; i++) {");
115 $self->pidl("v->$e->{NAME} = ".ParseExpr($e->{PROPERTIES}->{value}, $env, $e).";");
118 $self->pidl("TDR_CHECK(tdr_$t\_$e->{TYPE}(tdr$name$switch, &v->$e->{NAME}$array));");
120 if ($array) { $self->deindent; $self->pidl("}"); }
123 $self->pidl("tdr->flags = saved_flags;");
125 $self->pidl("}");
134 $self->pidl("{"); $self->indent;
135 $self->pidl("int i;") if (ContainsArray($e));
138 $self->pidl("tdr->print(tdr, \"\%-25s: struct $e->{NAME}\", name);");
139 $self->pidl("tdr->level++;");
147 $self->pidl("tdr->level--;");
150 $self->pidl("return NT_STATUS_OK;");
152 $self->deindent; $self->pidl("}");
160 $self->pidl("{"); $self->indent;
161 $self->pidl("int i;") if (ContainsArray($e));
164 $self->pidl("tdr->print(tdr, \"\%-25s: union $e->{NAME}\", name);");
165 $self->pidl("tdr->level++;");
168 $self->pidl("switch (level) {"); $self->indent;
171 $self->pidl("case " . $_->{PROPERTIES}->{case} . ":");
173 $self->pidl("default:");
176 $self->pidl("break;");
178 $self->deindent; $self->pidl("}");
181 $self->pidl("tdr->level--;");
184 $self->pidl("return NT_STATUS_OK;\n");
185 $self->deindent; $self->pidl("}");
192 $self->pidl("#define tdr_$t\_$e->{NAME} tdr_$t\_" . Parse::Pidl::Typelist::bitmap_type_fn($e));
202 $self->pidl("{");
204 $self->pidl("\t$mt r;");
205 $self->pidl("\tTDR_CHECK(tdr_$t\_$bt(tdr, mem_ctx, \&r));");
206 $self->pidl("\t*v = r;");
208 $self->pidl("\tTDR_CHECK(tdr_$t\_$bt(tdr, ($mt *)v));");
210 $self->pidl("\t/* FIXME */");
212 $self->pidl("\treturn NT_STATUS_OK;");
213 $self->pidl("}");
238 $self->pidl("");
260 $self->pidl("/* autogenerated by pidl */");
262 $self->pidl("#include \"includes.h\"");
264 $self->pidl("#include <stdio.h>");
265 $self->pidl("#include <stdbool.h>");
266 $self->pidl("#include <stdlib.h>");
267 $self->pidl("#include <stdint.h>");
268 $self->pidl("#include <stdarg.h>");
269 $self->pidl("#include <string.h>");
270 $self->pidl("#include <core/ntstatus.h>");
272 $self->pidl("#include \"$hdrname\"");
273 $self->pidl("");
274 $self->pidl_hdr("/* autogenerated by pidl */");