aboutsummaryrefslogtreecommitdiffstats
path: root/doc/eproto2sgml
diff options
context:
space:
mode:
authorGerald Combs <gerald@wireshark.org>2018-02-19 14:00:44 -0800
committerGerald Combs <gerald@wireshark.org>2018-02-19 23:31:34 +0000
commit3576ca2cd8325175f84698b5b158309481d55c04 (patch)
treeda57a8bc4b59349a3b8962ce1e88cea13df97d17 /doc/eproto2sgml
parente2fbca05bc382a0b9c966ab67689850749cba434 (diff)
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>
Diffstat (limited to 'doc/eproto2sgml')
-rw-r--r--doc/eproto2sgml66
1 files changed, 0 insertions, 66 deletions
diff --git a/doc/eproto2sgml b/doc/eproto2sgml
deleted file mode 100644
index 4ffa52a285..0000000000
--- 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";
-
-}