| 1 |
pcg |
1.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 |
|
|
} |
