Lines Matching +full:a +full:- +full:za +full:- +full:z

1 #!/usr/bin/perl -w
3 # Build a static ASN.1 Object Identified (OID) registry
20     print STDERR "Format: ", $0, " <in-h-file> <out-c-file>\n";
30     if (m!\s+OID_([a-zA-z][a-zA-Z0-9_]+),\s+/[*]\s+([012][.0-9]*)\s+[*]/!) {
75 # Emit the look-up-by-OID index table
108 	for (; $tmp > 0; $tmp--) {
118 # Create a hash value for each OID
154     my @octets_a = @{$encoded_oids[$a]};
157     return $hash_values[$a] <=> $hash_values[$b]
158 	if ($hash_values[$a] != $hash_values[$b]);
161     for (my $i = $#octets_a; $i >= 0; $i--) {
183     printf(C_FILE "\t[%3u] = { %3u, OID_%-35s }, // ",
201 #print C_FILE "\t\"Unknown-OID\"\n";