Remove eproto2sgml.

IIRC this was used to generate a list of display filters for the User's
Guide. We stopped doing that a long time ago.

Change-Id: Ib18f3982169ebda133f05e5fcad4083f75051286
Reviewed-on: https://code.wireshark.org/review/25907
Petri-Dish: Gerald Combs <gerald@wireshark.org>
Tested-by: Petri Dish Buildbot
Reviewed-by: Gerald Combs <gerald@wireshark.org>

diff --git a/doc/Makefile.am b/doc/Makefile.am
index 5bcacb26c081dc17f05a3be81d982872dfd807b7..7c5b31ca15303cf678a2db2c55edbe9589c0fe42 100644 (file)
--- a/doc/Makefile.am
+++ b/doc/Makefile.am
@@ -319,7 +319,6 @@ EXTRA_DIST =                                \
        dumpcap.pod                     \
        editcap.pod                     \
        extcap.pod                      \
-       eproto2sgml                     \
        idl2deb.pod                     \
        idl2wrs.pod                     \
        make-authors-format.pl          \

diff --git a/doc/eproto2sgml b/doc/eproto2sgml
deleted file mode 100644 (file)
index 4ffa52a..0000000
--- a/doc/eproto2sgml
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/perl
-#
-# Reads the display filter keyword dump produced by 'wireshark -G' and
-# formats it as an SGML bulleted list of protocols.
-#
-# STDIN is the wireshark glossary
-# arg1 is the pod template file. The =insert_dfilter_table token
-#      will be replaced by the pod-formatted glossary
-# STDOUT is the output
-
-# Read all the data into memory
-while (<STDIN>) {
-       next unless (/^([PF])/);
-
-       $record_type = $1;
-       chomp($_);
-
-       # Store protocol information
-       if ($record_type eq 'P') {
-               ($junk, $name, $abbrev) = split(/\t+/, $_);
-               $proto_abbrev{$name} = $abbrev;
-       }
-       # Store header field information
-       else {
-               ($junk, $name, $abbrev, $type, $parent) =
-                       split(/\t+/, $_);
-               push(@{$field_abbrev{$parent}}, $abbrev);
-               $field_info{$abbrev} = [ $name, $type ];
-       }
-}
-
-# if there was no input on stdin, bail out
-if ($record_type ne 'P' and $record_type ne 'F') {
-       exit;
-}
-
-$template = shift(@ARGV);
-
-open(TEMPLATE, $template) || die "Can't open $template for reading: $!\n";
-
-while (<TEMPLATE>) {
-       if (/=insert_dfilter_table/) {
-               &create_dfilter_table;
-       }
-       else {
-               print;
-       }
-}
-
-close(TEMPLATE) || die "Can't close $template: $!\n";
-
-sub create_dfilter_table {
-
-        print "<itemizedlist id=\"WiresharkListOfProtos\">\n";
-
-       # Print each protocol
-       for $proto_name (sort keys %proto_abbrev) {
-
-               print "   <listitem><para>$proto_name</></>\n";
-       
-       
-           }
-
-       print "</itemizedlist>\n";
-
-}