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
|
#!/usr/bin/awk -f
#
# Usage: awk -f separate.awk foo.SUSv4.in
# Input: http://www.opengroup.org/onlinepubs/9699919799/basedefs/unistd.h.html#tag_13_77_03_06
# Output: foo-$CODE.SUSv4.syms, foo.SUSv4.syms
#
# Copyright (C) 2010 Bernhard Reutner-Fischer
# Public domain
function get_code(line)
{
sub("\\]\\[.*", "", line)
sub("\\[", "", line)
sub(" ", "", line)
return line
}
BEGIN{
code="";# feature set; XSI, OB XSI, CX, etc
}
/\[Option Start\]/{
code = get_code($0)
next
}
/\[Option End\]/{ code = ""; next; }
/.*/ {
if (!hdrname) {
split(FILENAME, fparts, ".")
hdrname = fparts[1]
stdname = fparts[2]
if (fparts[3] != "in") {
print "inputfilename may not be ok, exiting."
exit(1)
}
}
if (code) {
fname = hdrname "-" code "." stdname ".syms"
} else {
fname = hdrname "." stdname ".syms"
}
sub("^*", "", $0)
if (file[code]) {
print $0 >> fname
} else {
print $0 > fname
file[code] = 1
}
}
|
