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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#!/bin/sh
# vi: ft=awk :
#
# Script to extract functions and external variables off SUS html docs
#
# Copyright (C) 2010 Bernhard Reutner-Fischer
# Public Domain
# Usage:
# wget http://www.opengroup.org/onlinepubs/9699919799/download/susv4.tgz
# tar xzf susv4.tgz
# SUS=susv4 html2input.sh -vFULL_DECLARATIONS=1
# or
# SUS=susv4 html2input.sh -vFULL_DECLARATIONS=0 -vSTDNAME=SUSv4
#
# Bug in time.h.html of SUSv4:
# It inconsistently reads "as variables" instead of "external variables" that
# is used everywhere except in time.h.html
test "x$SUS" = "x" && SUS="susv4"
test "x$AWK" = "x" && AWK="AWK"
test "x$GREP" = "x" && GREP="GREP"
for h in \
$($GREP -l "shall be declared as functions" $SUS/basedefs/*.h.html) \
$($GREP -l "shall declare the following as variables" $SUS/basedefs/*.h.html) \
$($GREP -l "shall declare the following external variables" $SUS/basedefs/*.h.html)
do
$AWK $* '
function get_filename () {
if (NR == 1) {
x=FILENAME
sub(".*/", "", x)
split(x, f , ".")
fname=f[1]
if (STDNAME)
fname=fname "." STDNAME
fname=fname ".in"
printf "" > fname
}
}
function unhtml (l) {
sub("<tt>", "", l)
sub("</tt>", "", l)
sub("<sup>", "", l)
sub("</sup>", "", l)
sub("<a [^>]*>", "", l)
sub("</a>", "", l)
if (l ~ /<img[^>]*Option[[:space:]][[:space:]]*Start[^>]*>/) {
sub("<img[^>]*>", "[Option Start]", l)
} else if (l ~ /<img[^>]*Option[[:space:]][[:space:]]*End[^>]*>/) {
sub("<img[^>]*>", "[Option End]", l)
}
sub("<.*>", "", l)
return l
}
function get_funcname (l) {
if (FULL_DECLARATIONS)
return l
if (l !~ /;$/)
return l
cnt = split(l, foo, " ")
if (cnt >= 2 && foo[2] ~ /^\(\*/) {
cnt = split(l, foo, "(")
# good enough for signal() and sigset()
if (cnt >= 2)
l=foo[2]
} else {
sub("\\(.*", "", l)
}
gsub("[[\\]\\*]", "", l)
i = split(l, a, " ")
if (i)
l = a[i]
return l
}
function get_varname (l) {
if (FULL_DECLARATIONS)
return l
if (l !~ /;$/)
return l
gsub(",[[:space:]][[:space:]]*", ",", l)
sub(";$", "", l)
i = split(l, a, " ")
if (i)
l = a[i]
gsub("[[\\]\\*]", "", l)
gsub(",", "\n", l)
return l
}
BEGIN{data=0;l=""}
get_filename()
/shall be declared as functions/{data=1;isvar=0;next;}
/shall declare the following as variables/{data=1;isvar=1;next;}
/shall declare the following external variables/{data=1;isvar=1;next;}
/<pre>/{data++;next;}
/<\/pre>/{data=0;next;}
/.*/{
if (data == 2 && fname) {
tmp = $0
sub("^[[:space:]][[:space:]]*", " ", tmp)
l = l tmp
tmp = unhtml(l)
if (!tmp)
next
l = tmp
if (tmp !~ /;$/ && tmp !~ />$/ &&
tmp !~ /Option Start\]$/ && tmp !~ /Option End\]$/)
next
if (!isvar)
l = get_funcname(l)
else
l = get_varname(l)
if (l)
print l >> fname
l=""
}
}
' $h
done
|
