Parent Directory | Revision Log | Patch
revision 1.1 by camm, Thu Dec 20 20:51:47 2001 UTC | revision 1.2 by camm, Sun Feb 3 18:44:07 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | #!/usr/bin/awk -f | |
2 | ||
3 | /^@defun/ { | |
4 | a=split($0,A,"("); | |
5 | b=split($0,B,")"); | |
6 | if (a==b) | |
7 | print ; | |
8 | else { | |
9 | i=1; | |
10 | c=$0; | |
11 | } | |
12 | next; | |
13 | } | |
14 | { | |
15 | if (i) { | |
16 | sub("^ *",""); | |
17 | c=c " " $0; | |
18 | a=split(c,A,"("); | |
19 | b=split(c,B,")"); | |
20 | if (a==b) { | |
21 | print c; | |
22 | c=""; | |
23 | i=0; | |
24 | } | |
25 | } else | |
26 | print; | |
27 | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |