summaryrefslogtreecommitdiff
path: root/source4/build/pidl/Parse
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl/Parse')
-rw-r--r--source4/build/pidl/Parse/Pidl/Compat.pm170
-rw-r--r--source4/build/pidl/Parse/Pidl/Samba/Header.pm6
2 files changed, 164 insertions, 12 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Compat.pm b/source4/build/pidl/Parse/Pidl/Compat.pm
index f81d73f36a..39cb67fd71 100644
--- a/source4/build/pidl/Parse/Pidl/Compat.pm
+++ b/source4/build/pidl/Parse/Pidl/Compat.pm
@@ -5,8 +5,73 @@
package Parse::Pidl::Compat;
+use Parse::Pidl::Util qw(has_property);
use strict;
+my %supported_properties = (
+ # interface
+ "helpstring" => ["INTERFACE", "FUNCTION"],
+ "version" => ["INTERFACE"],
+ "uuid" => ["INTERFACE"],
+ "endpoint" => ["INTERFACE"],
+ "pointer_default" => ["INTERFACE"],
+
+ # dcom
+ "object" => ["INTERFACE"],
+ "local" => ["INTERFACE", "FUNCTION"],
+ "iid_is" => ["ELEMENT"],
+ "call_as" => ["FUNCTION"],
+ "idempotent" => ["FUNCTION"],
+
+ # function
+ "in" => ["ELEMENT"],
+ "out" => ["ELEMENT"],
+
+ # pointer
+ "ref" => ["ELEMENT"],
+ "ptr" => ["ELEMENT"],
+ "unique" => ["ELEMENT"],
+ "ignore" => ["ELEMENT"],
+
+ "value" => ["ELEMENT"],
+
+ # generic
+ "public" => ["FUNCTION", "TYPEDEF"],
+ "nopush" => ["FUNCTION", "TYPEDEF"],
+ "nopull" => ["FUNCTION", "TYPEDEF"],
+ "noprint" => ["FUNCTION", "TYPEDEF"],
+ "noejs" => ["FUNCTION", "TYPEDEF"],
+
+ # union
+ "switch_is" => ["ELEMENT"],
+ "switch_type" => ["ELEMENT", "TYPEDEF"],
+ "case" => ["ELEMENT"],
+ "default" => ["ELEMENT"],
+
+ # subcontext
+ "subcontext" => ["ELEMENT"],
+ "subcontext_size" => ["ELEMENT"],
+
+ # enum
+ "enum16bit" => ["TYPEDEF"],
+ "v1_enum" => ["TYPEDEF"],
+
+ # bitmap
+ "bitmap8bit" => ["TYPEDEF"],
+ "bitmap16bit" => ["TYPEDEF"],
+ "bitmap32bit" => ["TYPEDEF"],
+ "bitmap64bit" => ["TYPEDEF"],
+
+ # array
+ "range" => ["ELEMENT"],
+ "size_is" => ["ELEMENT"],
+ "string" => ["ELEMENT"],
+ "noheader" => ["ELEMENT"],
+ "charset" => ["ELEMENT"],
+ "length_is" => ["ELEMENT"],
+);
+
+
my($res);
sub warning($$)
@@ -14,39 +79,122 @@ sub warning($$)
my $l = shift;
my $m = shift;
+ print "$l->{FILE}:$l->{LINE}:Warning:$m\n";
+}
+
+sub error($$)
+{
+ my ($l,$m) = @_;
print "$l->{FILE}:$l->{LINE}:$m\n";
}
+sub CheckTypedef($)
+{
+ my $td = shift;
+
+ if (has_property($td, "nodiscriminant")) {
+ error($td, "nodiscriminant property not supported");
+ }
+
+ if ($td->{TYPE} eq "BITMAP") {
+ warning($td, "converting bitmap to scalar");
+ #FIXME
+ }
+
+ if (has_property($td, "gensize")) {
+ warning($td, "ignoring gensize() property. ");
+ }
+
+ if (has_property($td, "enum8bit") and has_property($td, "enum16bit")) {
+ warning($td, "8 and 16 bit enums not supported, converting to scalar");
+ #FIXME
+ }
+
+ StripProperties($td);
+}
+
+sub CheckElement($)
+{
+ my $e = shift;
+
+ if (has_property($e, "noheader")) {
+ error($e, "noheader property not supported");
+ return;
+ }
+
+ if (has_property($e, "subcontext")) {
+ warning($e, "converting subcontext to byte array");
+ #FIXME
+ }
+
+ if (has_property($e, "compression")) {
+ error($e, "compression() property not supported");
+ }
+
+ if (has_property($e, "obfuscation")) {
+ error($e, "obfuscation() property not supported");
+ }
+
+ if (has_property($e, "sptr")) {
+ error($e, "sptr() pointer property not supported");
+ }
+
+ if (has_property($e, "relative")) {
+ error($e, "relative() pointer property not supported");
+ }
+
+ if (has_property($td, "flag")) {
+ warning($e, "ignoring flag() property");
+ }
+
+ if (has_property($td, "value")) {
+ warning($e, "ignoring value() property");
+ }
+
+ StripProperties($e);
+}
+
+sub CheckFunction($)
+{
+ my $fn = shift;
+
+ if (has_property($fn, "noopnum")) {
+ error($fn, "noopnum not converted. Opcodes will be out of sync.");
+ }
+
+ StripProperties($fn);
+
+
+}
+
sub CheckInterface($)
{
my $if = shift;
- if (util::has_property($if, "pointer_default_top")) {
- warning($if, "pointer_default_top() is pidl-specific");
+
+ if (has_property($if, "pointer_default_top") and
+ $if->{PROPERTIES}->{pointer_default_top} ne "ref") {
+ error($if, "pointer_default_top() is pidl-specific");
}
+ StripProperties($if);
+
foreach my $x (@{$if->{DATA}}) {
if ($x->{TYPE} eq "DECLARE") {
warning($if, "the declare keyword is pidl-specific");
next;
}
-
- if ($x->{TYPE} eq "TYPEDEF") {
- if ($x->{DATA}->{TYPE} eq "UNION") {
- if (util::has_property($x, "nodiscriminant")) {
- warning($x, "nodiscriminant property is pidl-specific");
- }
- }
- }
}
}
sub Check($)
{
my $pidl = shift;
+ my $nidl = [];
my $res = "";
foreach my $x (@{$pidl}) {
- CheckInterface($x) if ($x->{TYPE} eq "INTERFACE");
+ push (@$nidl, CheckInterface($x))
+ if ($x->{TYPE} eq "INTERFACE");
}
return $res;
diff --git a/source4/build/pidl/Parse/Pidl/Samba/Header.pm b/source4/build/pidl/Parse/Pidl/Samba/Header.pm
index 928b35d4ca..ca67b7c09f 100644
--- a/source4/build/pidl/Parse/Pidl/Samba/Header.pm
+++ b/source4/build/pidl/Parse/Pidl/Samba/Header.pm
@@ -199,7 +199,11 @@ sub HeaderType($$$)
}
if (has_property($e, "charset")) {
- pidl "const char";
+ if ($e->{POINTERS} > 0) {
+ pidl "const char";
+ } else {
+ pidl "char";
+ }
} else {
pidl mapType($e->{TYPE});
}