summaryrefslogtreecommitdiff
path: root/source4/build
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2001-12-08 21:13:44 +0000
committerTim Potter <tpot@samba.org>2001-12-08 21:13:44 +0000
commitd99084e3ecdfba821be1672a51ed0c429c11afa8 (patch)
treec618133d0ca2987bae6c4822c5127a72e2029b2b /source4/build
parent4201dba52ecb7f13199c66d940e0a72ac7d60089 (diff)
downloadsamba-d99084e3ecdfba821be1672a51ed0c429c11afa8.tar.gz
samba-d99084e3ecdfba821be1672a51ed0c429c11afa8.tar.bz2
samba-d99084e3ecdfba821be1672a51ed0c429c11afa8.zip
Made hyper a simple type.
Changed dissect_ to prs_ to avoid name conflicts. (This used to be commit 2670f1f8e111f2944c35db9ad28e049db123f9a8)
Diffstat (limited to 'source4/build')
-rw-r--r--source4/build/pidl/eparser.pm27
1 files changed, 14 insertions, 13 deletions
diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm
index 90a4794108..f0e53961dd 100644
--- a/source4/build/pidl/eparser.pm
+++ b/source4/build/pidl/eparser.pm
@@ -19,6 +19,7 @@ sub is_scalar_type($)
return 1, if ($type eq "short");
return 1, if ($type eq "char");
return 1, if ($type eq "uint16");
+ return 1, if ($type eq "hyper");
return 0;
}
@@ -64,7 +65,7 @@ sub ParseElement($$)
foreach my $prop (@{$elt->{PROPERTIES}}) {
if ($prop =~ /context_handle/) {
- $res .= "\toffset = dissect_policy_hnd(tvb, offset, pinfo, tree);\n";
+ $res .= "\toffset = prs_policy_hnd(tvb, offset, pinfo, tree);\n";
return;
}
}
@@ -76,13 +77,13 @@ sub ParseElement($$)
# Pointers are scalars
if ($elt->{POINTERS}) {
- $res .= "\t\tptr_$elt->{NAME} = dissect_ptr(tvb, offset, pinfo, tree, \"$elt->{NAME}\");\n";
+ $res .= "\t\tptr_$elt->{NAME} = prs_ptr(tvb, offset, pinfo, tree, \"$elt->{NAME}\");\n";
} else {
# Simple type are scalars too
if (is_scalar_type($elt->{TYPE})) {
- $res .= "\t\tdissect_$elt->{TYPE}(tvb, offset, pinfo, tree, \"$elt->{NAME}}\");\n\n";
+ $res .= "\t\tprs_$elt->{TYPE}(tvb, offset, pinfo, tree, \"$elt->{NAME}}\");\n\n";
}
}
@@ -98,7 +99,7 @@ sub ParseElement($$)
$res .= "\t\tif (ptr_$elt->{NAME}) {\n\t";
}
- $res .= "\t\tdissect_$elt->{TYPE}(tvb, offset, pinfo, tree, flags, \"$elt->{NAME}\");\n\n";
+ $res .= "\t\tprs_$elt->{TYPE}(tvb, offset, pinfo, tree, flags, \"$elt->{NAME}\");\n\n";
if ($elt->{POINTERS}) {
$res .= "\t\t}\n\n";
@@ -110,14 +111,14 @@ sub ParseElement($$)
# if (is_simple_type($elt->{TYPE})) {
# if ($flags =~ /scalars/ && !$elt->{POINTERS}) {
-# $res .= "\t\tdissect_$elt->{TYPE}(tvb, offset, pinfo, tree, \"$elt->{NAME}}\");\n\n",
+# $res .= "\t\tprs_$elt->{TYPE}(tvb, offset, pinfo, tree, \"$elt->{NAME}}\");\n\n",
# }
# } else {
# if ($flags =~ /buffers/) {
# if ($elt->{POINTERS}) {
# $res .= "\t\tif (ptr_$elt->{NAME}) {\n\t";
# }
-# $res .= "\t\tdissect_$elt->{TYPE}(tvb, offset, pinfo, tree, flags, \"$elt->{NAME}\");\n\n";
+# $res .= "\t\tprs_$elt->{TYPE}(tvb, offset, pinfo, tree, flags, \"$elt->{NAME}\");\n\n";
# if ($elt->{POINTERS}) {
# $res .= "\t\t}\n\n";
# }
@@ -141,9 +142,9 @@ sub ParseStruct($)
ParseElement($e, "scalars");
# if (defined $e->{POINTERS}) {
-# $res .= "\t\toffset = dissect_ptr(tvb, offset, pinfo, tree, &ptr_$e->{NAME}, \"$e->{NAME}\");\n";
+# $res .= "\t\toffset = prs_ptr(tvb, offset, pinfo, tree, &ptr_$e->{NAME}, \"$e->{NAME}\");\n";
# } else {
-# $res .= "\t\toffset = dissect_$e->{TYPE}(tvb, offset, pinfo, tree, \"$e->{NAME}\");\n";
+# $res .= "\t\toffset = prs_$e->{TYPE}(tvb, offset, pinfo, tree, \"$e->{NAME}\");\n";
# }
}
@@ -155,7 +156,7 @@ sub ParseStruct($)
foreach my $e (@{$struct->{ELEMENTS}}) {
ParseElement($e, "buffers");
-# $res .= "\t\tif (ptr_$e->{NAME})\n\t\t\toffset = dissect_$e->{TYPE}(tvb, offset, pinfo, tree, \"$e->{NAME}\");\n\n",
+# $res .= "\t\tif (ptr_$e->{NAME})\n\t\t\toffset = prs_$e->{TYPE}(tvb, offset, pinfo, tree, \"$e->{NAME}\");\n\n",
# if (defined $e->{POINTERS});
}
@@ -170,12 +171,12 @@ sub ParseUnionElement($)
{
my($element) = shift;
-# $res .= "int dissect_$element->{DATA}->{TYPE}()\n{\n";
+# $res .= "int prs_$element->{DATA}->{TYPE}()\n{\n";
# $res .= "}\n\n";
$res .= "\tcase $element->{DATA}->{NAME}: \n";
- $res .= "\t\toffset = dissect_$element->{DATA}->{TYPE}(tvb, offset, pinfo, tree, \"$element->{DATA}->{NAME}\");\n\t\tbreak;\n";
+ $res .= "\t\toffset = prs_$element->{DATA}->{TYPE}(tvb, offset, pinfo, tree, \"$element->{DATA}->{NAME}\");\n\t\tbreak;\n";
# $res .= "[case($element->{CASE})] ";
# ParseElement($element->{DATA});
@@ -220,7 +221,7 @@ sub ParseTypedef($)
{
my($typedef) = shift;
- $res .= "static int dissect_$typedef->{NAME}(tvbuff_t *tvb, int offset,\
+ $res .= "static int prs_$typedef->{NAME}(tvbuff_t *tvb, int offset,\
\tpacket_info *pinfo, proto_tree *tree)\n{\n";
ParseType($typedef->{DATA});
$res .= "}\n\n";
@@ -266,7 +267,7 @@ sub ParseFunction($)
ParseFunctionArg($arg, "out");
}
- $res .= "\n\toffset = dissect_ntstatus(tvb, offset, pinfo, tree);\n";
+ $res .= "\n\toffset = prs_ntstatus(tvb, offset, pinfo, tree);\n";
$res .= "\n\treturn 0;\n}\n\n";