summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse/Pidl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-08-24 11:17:28 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:34:30 -0500
commitb42f358d511096689916d75584583bd4dd08e41b (patch)
tree79cc75c1704eefc5a26014ea54ec16bd6234cedc /source4/pidl/lib/Parse/Pidl
parent26bae69bb973853fd98d30e9fef9a76cb0146262 (diff)
downloadsamba-b42f358d511096689916d75584583bd4dd08e41b.tar.gz
samba-b42f358d511096689916d75584583bd4dd08e41b.tar.bz2
samba-b42f358d511096689916d75584583bd4dd08e41b.zip
r9576: Couple of small fixes. Generate notice indicating
that the parsers were autogenerated. (This used to be commit a37e2134e61eb38e9cbc54f8533113622f013037)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl')
-rw-r--r--source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm23
1 files changed, 18 insertions, 5 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
index 72ff819b68..f61ce89ee8 100644
--- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
@@ -542,7 +542,7 @@ sub RegisterInterface($)
# in epan/dissctors are deleted.
my $name = "\"" . uc($x->{NAME}) . " (pidl)\"";
- my $short_name = $x->{NAME};
+ my $short_name = uc($x->{NAME});
my $filter_name = $x->{NAME};
if (has_property($x, "helpstring")) {
@@ -697,16 +697,29 @@ sub Initialize($)
#####################################################################
# Generate ethereal parser and header code
-sub Parse($$)
+sub Parse($$$$)
{
- my($ndr,$h_filename,$cnf_file) = @_;
+ my($ndr,$idl_file,$h_filename,$cnf_file) = @_;
Initialize($cnf_file);
$tabs = "";
%res = (code=>"",def=>"",hdr=>"");
- pidl_hdr "/* header auto-generated by pidl */";
+ my $notice =
+"/* DO NOT EDIT
+ This filter was automatically generated
+ from $idl_file and $cnf_file.
+
+ Pidl is a perl based IDL compiler for DCE/RPC idl files.
+ It is maintained by the Samba team, not the Ethereal team.
+ Instructions on how to download and install Pidl can be
+ found at http://wiki.ethereal.com/Pidl
+*/
+
+";
+
+ pidl_hdr $notice;
$res{headers} = "\n";
$res{headers} .= "#ifdef HAVE_CONFIG_H\n";
@@ -733,7 +746,7 @@ sub Parse($$)
$res{ett} = DumpEttDeclaration();
$res{hf} = DumpHfDeclaration();
- my $parser = "/* parser auto-generated by pidl */";
+ my $parser = $notice;
$parser.= $res{headers};
$parser.=$res{ett};
$parser.=$res{hf};