lib/gssapi/gen-oid.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (c) 2010 Kungliga Tekniska Högskolan
   4 # (Royal Institute of Technology, Stockholm, Sweden).
   5 # All rights reserved.
   6 #
   7 # Redistribution and use in source and binary forms, with or without
   8 # modification, are permitted provided that the following conditions
   9 # are met:
  10 #
  11 # 1. Redistributions of source code must retain the above copyright
  12 #    notice, this list of conditions and the following disclaimer.
  13 #
  14 # 2. Redistributions in binary form must reproduce the above copyright
  15 #    notice, this list of conditions and the following disclaimer in the
  16 #    documentation and/or other materials provided with the distribution.
  17 #
  18 # 3. Neither the name of the Institute nor the names of its contributors
  19 #    may be used to endorse or promote products derived from this software
  20 #    without specific prior written permission.
  21 #
  22 # THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  23 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25 # ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  26 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32 # SUCH DAMAGE.
  33
  34 require 'getopts.pl';
  35
  36 my $output;
  37 my $CFILE, $HFILE;
  38 my $onlybase;
  39 my $header = 0;
  40
  41 Getopts('b:h') || die "foo";
  42
  43 if($opt_b) {
  44     $onlybase = $opt_b;
  45 }
  46
  47 $header = 1 if ($opt_h);
  48
  49 printf "/* Generated file */\n";
  50 if ($header) {
  51     printf "#ifndef GSSAPI_GSSAPI_OID\n";
  52     printf "#define GSSAPI_GSSAPI_OID 1\n\n";
  53 } else {
  54     printf "#include \"mech_locl.h\"\n\n";
  55 }
  56
  57 my %tables;
  58 my %types;
  59
  60 while(<>) {
  61
  62     if (/^\w*#(.*)/) {
  63         my $comment = $1;
  64
  65         if ($header) {
  66             printf("$comment\n");
  67         }
  68
  69     } elsif (/^oid\s+([\w\.]+)\s+(\w+)\s+([\w\.]+)/) {
  70         my ($base, $name, $oid) = ($1, $2, $3);
  71
  72         next if (defined $onlybase and $onlybase ne $base);
  73
  74         my $store = "__" . lc($name) . "_oid_desc";
  75
  76         # encode oid
  77
  78         my @array = split(/\./, $oid);
  79         my $length = 0;
  80         my $data = "";
  81
  82         my $num;
  83
  84         $n = $#array;
  85         while ($n > 1) {
  86             $num = $array[$n];
  87
  88             my $p = int($num % 128);
  89             $data = sprintf("\\x%02x", $p) . $data;
  90
  91             $num = int($num / 128);
  92
  93             $length += 1;
  94
  95             while ($num > 0) {
  96                 $p = int($num % 128) + 128;
  97                 $num = int($num / 128);
  98                 $data = sprintf("\\x%02x", $p) . $data;
  99                 $length += 1;
 100             }
 101             $n--;
 102         }
 103         $num = int($array[0] * 40 + $array[1]);
 104
 105         $data = sprintf("\\x%x", $num) . $data;
 106         $length += 1;
 107
 108         if ($header) {
 109             printf "extern GSSAPI_LIB_VARIABLE gss_OID_desc $store;\n";
 110             printf "#define $name (&$store)\n\n";
 111         } else {
 112             printf "/* $name - $oid */\n";
 113             printf "gss_OID_desc GSSAPI_LIB_VARIABLE $store = { $length, rk_UNCONST(\"$data\") };\n\n";
 114         }
 115     } elsif (/^desc\s+([\w]+)\s+(\w+)\s+(\"[^\"]*\")\s+(\"[^\"]*\")/) {
 116         my ($type, $oid, $short, $long) = ($1, $2, $3, $4);
 117         my $object = { type=> $type, oid => $oid, short => $short, long => $long };
 118
 119         $tables{$oid} = \$object;
 120         $types{$type} = 1;
 121     }
 122
 123 }
 124
 125 foreach my $k (keys %types) {
 126     if (!$header) {
 127         print "struct _gss_oid_name_table _gss_ont_" . $k . "[] = {\n";
 128         foreach my $m (values %tables) {
 129             if ($$m->{type} eq $k) {
 130                 printf "  { %s, \"%s\", %s, %s },\n", $$m->{oid}, $$m->{oid}, $$m->{short}, $$m->{long};
 131             }
 132         }
 133         printf "  { NULL }\n";
 134         printf "};\n\n";
 135
 136     }
 137 }
 138
 139 if ($header) {
 140     printf "#endif /* GSSAPI_GSSAPI_OID */\n";
 141 }