Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
 
2 
awk '
3 
 
4 
/^{/ {
5 
	if (prev != "") {
6 
		# comments can be trouble (e.g. ffree())
7 
		if ( (c = match(prev, /\/\*.*\*\/$/)) != 0 ) {
8 
			comment = substr(prev, c)
9 
			sub(/\/\*.*\*\/$/, "", prev)
10 
		} else comment = ""
11 
 
12 
		x = prev
13 
 
14 
		# isolate argument list
15 
		sub(/^[^(]*\(/, "", x)
16 
		sub(/\)[^)]*$/, "", x)
17 
 
18 
		# find the names in it
19 
		n = split(x, args)
20 
		arglist = ""
21 
		for (i = 2; i <= n; i += 2)
22 
			arglist = arglist args[i]
23 
		gsub(/\(\*f\)\(Tchar\)/, "f", arglist)	# special case for n4.c
24 
		gsub(/\[[0-9]+\]/, "", arglist)		#     for n8.c
25 
		gsub(/[*()\[\]]/, "", arglist)		# discard noise characters *()[]
26 
		gsub(/,/, ", ", arglist)		# space nicely
27 
		sub(/\(.*\)/, "(" arglist ")", prev)	# reconstruct
28 
		print prev comment
29 
 
30 
		# argument declarations
31 
		gsub(/,/, ";", x)
32 
		gsub(/\(\*f\)\(Tchar\)/, "(*f)()", x)	# special case for n4.c
33 
		if (x != "")
34 
			print "\t" x ";"
35 
	}
36 
	prev = $0
37 
	next
38 
}
39 
 
40 
{	print prev
41 
	prev = $0
42 
}
43 
 
44 
END { print prev }
45 
' $*