From 3576ca2cd8325175f84698b5b158309481d55c04 Mon Sep 17 00:00:00 2001 From: Gerald Combs Date: Mon, 19 Feb 2018 14:00:44 -0800 Subject: 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 Tested-by: Petri Dish Buildbot Reviewed-by: Gerald Combs --- doc/Makefile.am | 1 - doc/eproto2sgml | 66 --------------------------------------------------------- 2 files changed, 67 deletions(-) delete mode 100644 doc/eproto2sgml diff --git a/doc/Makefile.am b/doc/Makefile.am index 5bcacb26c0..7c5b31ca15 100644 --- 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 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 () { - 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 (