| Revision: | 1.1 |
| Committed: | Mon Nov 24 17:28:08 2003 UTC (20 years, 6 months ago) by pcg |
| Branch: | MAIN |
| CVS Tags: | rel-2_1_0, rel-4_8, rel-5_0, rel-4_4, rel-4_6, rel-4_7, rel-4_0, rel-4_1, rel-4_2, rel-4_3, rel-3_7, rel-3_6, rel-3_5, rel-3_4, rel-3_3, rel-3_2, rel-2_8, rel-3_0, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_0, rel-3_8, rel-1-9, stable, rel-1-3, rel-1-2, rxvt-2-0, rel-1_9, before_astyle, after_astyle, rel-5_1, rel-4_9 |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 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 | } |