blob: 8584e8419419328cc7699e81d227b6ae6861f4aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/perl -w
use strict;
# small script to extract the constants from
# {HNBAP,RUA,RANAP}-Constants.asn and print them in an ASN.1 format that
# will trigger asn1c to generate associated enums in C.
#
# Usage: ./asn1enum.pl < HNBAP-Constants.asn
my $l;
my %h;
while ($l = <STDIN>) {
chomp($l);
if ($l =~ /^(\S+)\s+(\S+)\s+::=\s+(\d+)/) {
$h{$2}{$3} = $1;
}
}
foreach my $k (keys %h) {
if ($k eq 'INTEGER') {
next;
}
printf("%s ::= INTEGER {\n", $k);
foreach my $r (sort { $a <=> $b } keys $h{$k}) {
printf("\t%s(%d),\n", $h{$k}{$r}, $r);
}
printf("}\n");
}
|
