Subversion Repositories planix.SVN

awk '

/^{/ {
        if (prev != "") {
                # comments can be trouble (e.g. ffree())
                if ( (c = match(prev, /\/\*.*\*\/$/)) != 0 ) {
                        comment = substr(prev, c)
                        sub(/\/\*.*\*\/$/, "", prev)
                } else comment = ""

                x = prev

                # isolate argument list
                sub(/^[^(]*\(/, "", x)
                sub(/\)[^)]*$/, "", x)

                # find the names in it
                n = split(x, args)
                arglist = ""
                for (i = 2; i <= n; i += 2)
                        arglist = arglist args[i]
                gsub(/\(\*f\)\(Tchar\)/, "f", arglist)  # special case for n4.c
                gsub(/\[[0-9]+\]/, "", arglist)         #     for n8.c
                gsub(/[*()\[\]]/, "", arglist)          # discard noise characters *()[]
                gsub(/,/, ", ", arglist)                # space nicely
                sub(/\(.*\)/, "(" arglist ")", prev)    # reconstruct
                print prev comment

                # argument declarations
                gsub(/,/, ";", x)
                gsub(/\(\*f\)\(Tchar\)/, "(*f)()", x)   # special case for n4.c
                if (x != "")
                        print "\t" x ";"
        }
        prev = $0
        next
}

{       print prev
        prev = $0
}

END { print prev }
' $*