tools/make-sminmpec.pl

   1 #!/usr/bin/perl -w
   2 # create the sminmpec.c file from
   3 # http://www.iana.org/assignments/enterprise-numbers
   4 #
   5 # $Id$
   6 #
   7 # Wireshark - Network traffic analyzer
   8 # By Gerald Combs <gerald@wireshark.org>
   9 # Copyright 2004 Gerald Combs
  10 #
  11 # This program is free software; you can redistribute it and/or
  12 # modify it under the terms of the GNU General Public License
  13 # as published by the Free Software Foundation; either version 2
  14 # of the License, or (at your option) any later version.
  15 #
  16 # This program is distributed in the hope that it will be useful,
  17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 # GNU General Public License for more details.
  20 #
  21 # You should have received a copy of the GNU General Public License
  22 # along with this program; if not, write to the Free Software
  23 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  24 use strict;
  25
  26 my $in = shift;
  27
  28 $in = "http://www.iana.org/assignments/enterprise-numbers" unless(defined $in);
  29
  30 my @in_lines;
  31
  32 my $revision = '$Revision$';
  33 if ($revision !~ /[0-9]/ ) { $revision = "unknown"; }
  34
  35 if($in =~ m/^http:/i) {
  36         eval "require LWP::UserAgent;";
  37         die "LWP isn't installed. It is part of the standard Perl module libwww." if $@;
  38
  39         my $agent    = LWP::UserAgent->new;
  40         $agent->env_proxy;
  41         $agent->agent("Wireshark make-sminmpec.pl/$revision");
  42
  43         warn "starting to fetch $in ...\n";
  44
  45         my $request  = HTTP::Request->new(GET => $in);
  46
  47
  48         if (-f "enterprise-numbers") {
  49                 my $mtime;
  50                 (undef,undef,undef,undef,undef,undef,undef,undef,undef,$mtime,undef,undef,undef) = stat("enterprise-numbers");
  51                 $request->if_modified_since( $mtime );
  52         }
  53
  54         my $result   = $agent->request($request);
  55
  56         if ($result->code eq 200) {
  57                 warn "done fetching $in\n";
  58                 @in_lines = split /\n/, $result->content;
  59                 open ENFILE, "> enterprise-numbers";
  60
  61                 for (@in_lines) {
  62                         chomp;
  63                         print ENFILE "$_\n";
  64                 }
  65
  66                 close ENFILE;
  67         } elsif ($result->code eq 304) {
  68                 warn "enterprise-numbers was up-to-date\n";
  69                 open IN, "< enterprise-numbers";
  70                 @in_lines = <IN>;
  71                 close IN;
  72         } else {
  73                 die "request for $in failed with result code:" . $result->code;
  74         }
  75
  76 } else {
  77   open IN, "< $in";
  78   @in_lines = <IN>;
  79   close IN;
  80 }
  81
  82
  83 open OUT, "> sminmpec.c";
  84
  85 my $body = '';
  86 my $code;
  87 my $prev_code = -1;  ## Assumption: First code in enterprise file is 0;
  88
  89 sub escape_non_ascii {
  90     my $val = unpack 'C', $_[0];
  91     return sprintf '\0%.3o',$val;
  92 }
  93
  94
  95 for(@in_lines) {
  96         s/[\000-\037]//g;
  97         s/\\/\\\\/g;
  98         s/"/\\"/g;
  99         s/([\x80-\xFF])/escape_non_ascii($1)/ge;
 100
 101         if (/^(\d+)/) {
 102                 $code = sprintf("%5d", $1);
 103         } if (/^  (\S.*)/ ) {
 104                 my $name = $1;
 105                 if ($code < $prev_code) {
 106                         print STDERR ("Input 'Codes' not sorted in ascending order (or duplicate codes)): $prev_code $code\n");
 107                         exit 1;
 108                 }
 109                 while ($code > ($prev_code+1)) {
 110                         $prev_code = sprintf("%5d", $prev_code+1);
 111                         $body .= "    { $prev_code, sminmpec_unknown },  /* (Added by Wireshark) */\n";
 112                 }
 113                 $prev_code = $code;
 114                 $body .= "    { $code, \"$name\" },\n";
 115         }
 116 }
 117
 118 print OUT <<"_SMINMPEC";
 119 /*
 120  * \$Id\$
 121  *
 122  * THIS FILE IS AUTOGENERATED, DO NOT EDIT
 123  * generated from http://www.iana.org/assignments/enterprise-numbers
 124  * run "tools/make-sminmspec <infile> <outfile>" to regenerate
 125  *
 126  * Note: "Gaps" in the iana enterprise-numbers list have been "filled in"
 127  *       with "(Unknown)" as the name so that direct (indexed) access
 128  *       to the list is possible.
 129  */
 130 #include "config.h"
 131
 132 #include <glib.h>
 133
 134 #include <epan/value_string.h>
 135 #include <epan/sminmpec.h>
 136
 137 static const gchar sminmpec_unknown[] = "(Unknown)";
 138
 139 const value_string sminmpec_values[] = {
 140 $body    {    0, NULL}
 141 };
 142
 143 #define array_length(x) (sizeof x / sizeof x[0])
 144
 145 value_string_ext sminmpec_values_ext = VALUE_STRING_EXT_INIT(sminmpec_values);
 146
 147 _SMINMPEC
 148
 149 close OUT;