Return to oid.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / strongswan / src / libstrongswan / asn1

Annotation of embedaddon/strongswan/src/libstrongswan/asn1/oid.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: # Generates oid.h and oid.c out of oid.txt
                      3: #
                      4: # Copyright (C) 2003-2008 Andreas Steffen
                      5: # HSR Hochschule fuer Technik Rapperswil
                      6: #
                      7: # This program is free software; you can redistribute it and/or modify it
                      8: # under the terms of the GNU General Public License as published by the
                      9: # Free Software Foundation; either version 2 of the License, or (at your
                     10: # option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
                     11: #
                     12: # This program is distributed in the hope that it will be useful, but
                     13: # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     14: # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
                     15: # for more details.
                     16: #
                     17: 
                     18: $copyright="Copyright (C) 2003-2008 Andreas Steffen, Hochschule fuer Technik Rapperswil";
                     19: $automatic="This file has been automatically generated by the script oid.pl";
                     20: $warning="Do not edit manually!";
                     21: 
                     22: # Generate oid.h
                     23: 
                     24: open(OID_H,  ">oid.h")
                     25:     or die "could not open 'oid.h': $!";
                     26: 
                     27: print OID_H "/* Object identifiers (OIDs) used by strongSwan\n",
                     28:            " * ", $copyright, "\n",
                     29:            " * \n",
                     30:            " * ", $automatic, "\n",
                     31:            " * ", $warning, "\n",
                     32:            " */\n\n",
                     33:            "#include <utils/utils.h>\n\n",
                     34:            "#ifndef OID_H_\n",
                     35:            "#define OID_H_\n\n",
                     36:            "typedef struct {\n",
                     37:            "    u_char octet;\n",
                     38:            "    u_int  next;\n",
                     39:            "    u_int  down;\n",
                     40:            "    u_int  level;\n",
                     41:            "    const u_char *name;\n",
                     42:            "} oid_t;\n",
                     43:            "\n",
                     44:             "extern const oid_t oid_names[];\n",
                     45:            "\n",
                     46:            "#define OID_UNKNOWN                                                        -1\n";
                     47: 
                     48: # parse oid.txt
                     49: 
                     50: open(SRC,  "<oid.txt")
                     51:     or die "could not open 'oid.txt': $!";
                     52: 
                     53: $counter = 0;
                     54: $max_name = 0;
                     55: $max_order = 0;
                     56: 
                     57: while ($line = <SRC>)
                     58: {
                     59:     $line =~ m/( *?)(0x\w{2})\s+(".*?")[ \t]*?([\w_]*?)\Z/;
                     60: 
                     61:     @order[$counter] = length($1);
                     62:     @octet[$counter] = $2;
                     63:     @name[$counter] = $3;
                     64: 
                     65:     if (length($1) > $max_order)
                     66:     {
                     67:        $max_order = length($1);
                     68:     }
                     69:     if (length($3) > $max_name)
                     70:     {
                     71:        $max_name = length($3);
                     72:     }
                     73:     if (length($4) > 0)
                     74:     {
                     75:        printf OID_H "#define %s%s%d\n", $4, "\t" x ((39-length($4))/4), $counter;
                     76:     }
                     77:     $counter++;
                     78: }
                     79: 
                     80: printf OID_H "\n#define OID_MAX%s%d\n", "\t" x 8, $counter;
                     81: 
                     82: print OID_H "\n#endif /* OID_H_ */\n";
                     83: 
                     84: close SRC;
                     85: close OID_H;
                     86: 
                     87: # Generate oid.c
                     88: 
                     89: open(OID_C, ">oid.c")
                     90:     or die "could not open 'oid.c': $!";
                     91: 
                     92: print OID_C "/* List of some useful object identifiers (OIDs)\n",
                     93:             " * ", $copyright, "\n",
                     94:            " * \n",
                     95:            " * ", $automatic, "\n",
                     96:            " * ", $warning, "\n",
                     97:            " */\n",
                     98:            "\n",
                     99:            "#include <stdlib.h>\n",
                    100:            "\n",
                    101:            "#include \"oid.h\"\n",
                    102:            "\n",
                    103:             "const oid_t oid_names[] = {\n";
                    104: 
                    105: for ($c = 0; $c < $counter; $c++)
                    106: {
                    107:     $next = 0;
                    108: 
                    109:     for ($d = $c+1; $d < $counter && @order[$d] >= @order[$c]; $d++)
                    110:     {
                    111:        if (@order[$d] == @order[$c])
                    112:        {
                    113:            @next[$c] = $d;
                    114:            last;
                    115:        }
                    116:     }
                    117: 
                    118:     printf OID_C " {%s%s,%s%3d, %d, %2d, %s%s}%s /* %3d */\n"
                    119:        ,' '  x @order[$c]
                    120:        , @octet[$c]
                    121:        , ' ' x (1 + $max_order - @order[$c])
                    122:        , @next[$c]
                    123:        , @order[$c+1] > @order[$c]
                    124:        , @order[$c] / 2
                    125:        , @name[$c]
                    126:        , ' ' x ($max_name - length(@name[$c]))
                    127:        , $c != $counter-1 ? "," : " "
                    128:        , $c;
                    129: }
                    130: 
                    131: print OID_C "};\n" ;
                    132: close OID_C;