diff options
author | Gerald Combs <gerald@wireshark.org> | 2018-02-19 14:00:44 -0800 |
---|---|---|
committer | Gerald Combs <gerald@wireshark.org> | 2018-02-19 23:31:34 +0000 |
commit | 3576ca2cd8325175f84698b5b158309481d55c04 (patch) | |
tree | da57a8bc4b59349a3b8962ce1e88cea13df97d17 /doc/eproto2sgml | |
parent | e2fbca05bc382a0b9c966ab67689850749cba434 (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/eproto2sgml | 66 |
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"; - -} |