2002-02-06 Roland McGrath <roland@frob.com>
[kopensolaris-gnu/glibc.git] / scripts / firstversions.awk
1 # Script to preprocess Versions.all lists based on "earliest version"
2 # specifications in the shlib-versions file.
3
4 NF > 2 && $2 == ":" {
5   for (i = 0; i <= NF - 3; ++i)
6     firstversion[$1, i] = $(3 + i);
7   idx[$1] = 0;
8   next;
9 }
10
11 NF == 2 && $2 == "{" { thislib = $1; print; next }
12
13 $1 == "}" {
14   if ((thislib, idx[thislib]) in firstversion) {
15     # We haven't seen the stated version, but have produced
16     # others pointing to it, so we synthesize it now.
17     printf "  %s\n", firstversion[thislib, idx[thislib]];
18     idx[thislib]++;
19   }
20   print;
21   next;
22 }
23
24 /GLIBC_PRIVATE/ { print; next }
25
26 {
27   if ((thislib, idx[thislib]) in firstversion) {
28     # XXX relative string comparison loses if we ever have multiple digits
29     # between dots in GLIBC_x.y[.z] names.
30     v = firstversion[thislib, idx[thislib]];
31     while ($1 >= v) {
32       firstversion[thislib, idx[thislib]] = 0;
33       idx[thislib]++;
34       if ((thislib, idx[thislib]) in firstversion)
35         v = firstversion[thislib, idx[thislib]];
36       else
37         break;
38     }
39     if ($1 >= v)
40       print;
41     else
42       print $1, "=", v;
43   }
44   else
45     print;
46 }