blob: 6f82dee7aa856c1613dd92cf7c2e950b57d9d482 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# Generate the VMS crtl map
# Copyright (C) 2011 Free Software Foundation, Inc.
BEGIN {
is_first = 1;
maxlen=1;
maxlen_name="??"
prev=""
ORS=""
}
# Remove comment and blank lines.
/^ *#/ || /^ *$/ {
next;
}
{
# Handle comma
if (!is_first)
print ",\n"
else
is_first = 0;
# Check the map is sorted
if ($0 <= prev)
{
print "Map not sorted!! (with name " $0 ")\n"
exit 1
}
prev = $0
# Compute the max of the identifier len.
l=length($1)
if (l > maxlen)
{
maxlen = l
maxlen_name = $1
}
print "{ \"" $1 "\", "
if (NF == 1)
print "0 }"
else if (NF == 2)
printf "VMS_CRTL_" $2 " }"
else if (NF == 3)
printf "VMS_CRTL_" $2 " | VMS_CRTL_" $3 " }"
else
# To be fixed.
exit 1
}
END {
print "\n\n"
print "#define VMS_CRTL_MAXLEN " maxlen " /*" maxlen_name " */\n"
}
|
