pidl/ws: Add HEADER START/HEADER END in ws dissector

[kai/samba-autobuild/.git] / pidl / lib / Parse / Pidl / Wireshark / NDR.pm

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index f17efe7845425928f765d70a2d4fc6823bb5f01c..fee7f0654d10ae18d1fb3ba0b1cd2ec86e93b317 100644 (file)
--- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
@@ -1025,6 +1025,10 @@ sub ProcessInterface($$)
        $self->RegisterInterface($x);
        $self->RegisterInterfaceHandoff($x);
 
+       if (exists ($self->{conformance}->{header})) {
+               $self->pidl_hdr($self->{conformance}->{header});
+       }
+
        $self->pidl_hdr("#endif /* $define */");
 }
 
@@ -1114,7 +1118,7 @@ sub Parse($$$$$)
 
        my $notice =
 "/* DO NOT EDIT
-       This filter was automatically generated
+       This file was automatically generated by Pidl
        from $idl_file and $cnf_file.
 
        Pidl is a perl based IDL compiler for DCE/RPC idl files.
@@ -1125,8 +1129,6 @@ sub Parse($$$$$)
 
 ";
 
-       $self->pidl_hdr($notice);
-
        $self->{res}->{headers} = "\n";
        $self->{res}->{headers} .= "#include \"config.h\"\n";
 
@@ -1168,7 +1170,7 @@ sub Parse($$$$$)
        }
        $parser.=$self->{res}->{code};
 
-       my $header = "/* autogenerated by pidl */\n\n";
+       my $header = $notice;
        $header.=$self->{res}->{hdr};
 
        $self->CheckUsed($self->{conformance});