1 |
/^\/\* INTPROTO \*\/$/ { |
2 |
getline # function return |
3 |
printf "%-16s ", $0 |
4 |
cline="" |
5 |
while (index(cline, "{") == 0 && index(cline, "#") == 0) { |
6 |
getline # function name and args |
7 |
cline=cline $0 |
8 |
} |
9 |
gsub(/[\t\n]/, " ", cline) |
10 |
gsub(/[ ]+/, " ", cline) |
11 |
l = index(cline, "(") |
12 |
m = index(cline, "{") |
13 |
n = index(cline, "#") |
14 |
if (n > 0) { m = n } |
15 |
outstring = sprintf("%%-32.%ds __PROTO(", l - 1) |
16 |
printf outstring, cline |
17 |
reststring = substr(cline, l, m - l) |
18 |
printf reststring |
19 |
print ");" |
20 |
} |