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
34require 'getopts.pl';
35
36my $output;
37my $CFILE, $HFILE;
38my $onlybase;
39my $header = 0;
40
41Getopts('b:h') || die "foo";
42
43if($opt_b) {
44    $onlybase = $opt_b;
45}
46
47$header = 1 if ($opt_h);
48
49printf "/* Generated file */\n";
50if ($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
57my %tables;
58my %types;
59
60while(<>) {
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, \"$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
125foreach 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
139if ($header) {
140    printf "#endif /* GSSAPI_GSSAPI_OID */\n";
141}
142