diff options
author | Tim Potter <tpot@samba.org> | 2004-05-21 12:15:04 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:53:51 -0500 |
commit | ac5393fa25484d0b5495f4f61456c419aa1982a5 (patch) | |
tree | 716fad4a6915b497b917ab6f7d367d9842c643c0 /source4/build | |
parent | 544abe075990a4bb3d868fff831ecfedf9d6caa7 (diff) | |
download | samba-ac5393fa25484d0b5495f4f61456c419aa1982a5.tar.gz samba-ac5393fa25484d0b5495f4f61456c419aa1982a5.tar.bz2 samba-ac5393fa25484d0b5495f4f61456c419aa1982a5.zip |
r806: Checkin of workarea - tridge gave me some good ideas today for a better
way to do this.
(This used to be commit c63cb50ca56cb69f7ef39f9828afa61f324f2832)
Diffstat (limited to 'source4/build')
-rw-r--r-- | source4/build/pidl/eparser.pm | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm index d3caef6b3c..4650778096 100644 --- a/source4/build/pidl/eparser.pm +++ b/source4/build/pidl/eparser.pm @@ -165,6 +165,16 @@ sub ParamStruct($) return $res; } +sub ParamDomSID($) +{ + my($p) = shift; + my($res); + + $res .= "\toffset = dissect_ndr_nt_SID(tvb, offset, pinfo, tree, drep);\n"; + + return $res; +} + # Index of NDR types and functions to generate code to dissect that type my %param_handlers = ( @@ -173,8 +183,69 @@ my %param_handlers = ( 'uint32' => \&ParamSimpleNdrType, 'policy_handle' => \&ParamPolicyHandle, 'string' => \&ParamString, + 'dom_sid2' => \&ParamDomSID, ); +sub PtrString($) +{ + my($p) = shift; + my($res) = ""; + + $res .= "/* pointer to string not supported */\n"; + + return $res; +} + +sub PtrSimpleNdrType($) +{ + my($p) = shift; + my($res) = ""; + + $res .= "/* pointer to $p->{TYPE} not supported */\n"; + + return $res; +} + +sub PtrDomSID($) +{ + my($p) = shift; + my($res) = ""; + + $res .= "/* pointer to dom_sid not supported */\n"; + + return $res; +} + +sub PtrSecurityDescriptor($) +{ + my($p) = shift; + my($res) = ""; + + $res .= "/* pointer to security descriptor not supported */\n"; + + return $res; +} + +sub PtrNotImplemented($) +{ + my($p) = shift; + my($res) = ""; + + $res .= "/* pointer to $p->{TYPE} not supported */\n"; + + return $res; +} + +my %ptr_handlers = ( + 'uint8' => \&PtrSimpleNdrType, + 'uint16' => \&PtrSimpleNdrType, + 'uint32' => \&PtrSimpleNdrType, + 'string' => \&PtrString, + 'dom_sid2' => \&PtrDomSID, + 'security_descriptor' => \&PtrSecurityDescriptor, + 'lsa_SidArray' => \&PtrNotImplemented, + ); + # Generate a parser for a NDR parameter sub ParseParameter($) @@ -184,6 +255,17 @@ sub ParseParameter($) # Call function registered for this type + if ($p->{POINTERS} == 1 && $p->{TYPE} ne "policy_handle") { + + if (defined($ptr_handlers{$p->{TYPE}})) { + $res .= &{$ptr_handlers{$p->{TYPE}}}($p); + } else { + $res .= "\toffset = dissect_ndr_pointer(tvb, offset, pinfo, tree, drep, dissect_$p->{TYPE}, NDR_POINTER_UNIQUE, \"$p->{TYPE} pointer\", -1);\n"; + } + + return $res; + } + if (defined($param_handlers{$p->{TYPE}})) { $res .= &{$param_handlers{$p->{TYPE}}}($p); return $res; |