Lines Matching +full:a +full:- +full:za +full:- +full:z
1 #!/usr/bin/perl -w
2 # SPDX-License-Identifier: GPL-2.0-or-later
4 # Build a static ASN.1 Object Identified (OID) registry
16 print STDERR "Format: ", $0, " <in-h-file> <out-c-file>\n";
26 if (m!\s+OID_([a-zA-z][a-zA-Z0-9_]+),\s+/[*]\s+([012][.0-9]*)\s+[*]/!) {
71 # Emit the look-up-by-OID index table
104 for (; $tmp > 0; $tmp--) {
114 # Create a hash value for each OID
150 my @octets_a = @{$encoded_oids[$a]};
153 return $hash_values[$a] <=> $hash_values[$b]
154 if ($hash_values[$a] != $hash_values[$b]);
157 for (my $i = $#octets_a; $i >= 0; $i--) {
179 printf(C_FILE "\t[%3u] = { %3u, OID_%-35s }, // ",
197 #print C_FILE "\t\"Unknown-OID\"\n";