generate oids using table

lib/gssapi/gen-oid.pl

@@ -0,0 +1,74 @@
+#!/usr/bin/perl
+
+require 'getopts.pl';
+
+my $output;
+my $CFILE, $HFILE;
+my $onlybase;
+my $header = 0;
+
+Getopts('b:h') || die "foo";
+
+if($opt_b) {
+    $onlybase = $opt_b;
+}
+
+$header = 1 if ($opt_h);
+
+if ($header) {
+    printf "#ifndef GSSAPI_GSSAPI_OID\n";
+    printf "#define GSSAPI_GSSAPI_OID 1\n\n";
+} else {
+    printf "#include \"gssapi.h\"\n\n";
+}
+
+while(<>) {
+
+    if (/^\w*#(.*)/) {
+	my $comment = $1;
+
+	if ($header) {
+	    printf("$comment\n");
+	}
+
+    } elsif (/^oid\s+([\w\.]+)\s+(\w+)\s+([\w\.]+)/) {
+	my ($base, $name, $oid) = ($1, $2, $3);
+
+	next if (defined $onlybase and $onlybase ne $base);
+
+	my $store = "__" . lc($name) . "_oid_desc";
+
+	# encode oid
+
+	my @array = split(/\./, $oid);
+	my $length = 0;
+	my $data = "";
+
+	my $num = $array[0] * 40 + $array[1];
+	$data .= sprintf("\\x%x", $num);
+	$length += 1;
+
+	foreach $num (@array[2 .. $#array]) {
+	    my $num2 = $num;
+	    while ($num2) {
+		my $p = int($num2 % 128);
+		$num2 = int($num2 / 128);
+		$p |= 0x80 if ($num2);
+		$data .= sprintf("\\x%02x", $p);
+		$length += 1;
+	    }
+	}
+	if ($header) {
+	    printf "extern gss_OID_desc $store;\n";
+	    printf "#define $name (&$store)\n\n";
+	} else {
+	    printf "/* $name - $oid */\n";
+	    printf "gss_OID_desc $store = { $length, \"$data\" };\n\n";
+	}
+    }
+
+}
+
+if ($header) {
+    printf "#endif /* GSSAPI_GSSAPI_OID */\n";
+}