1998-01-16 12:13:05 +00:00
|
|
|
$/ = nil
|
|
|
|
|
while gets()
|
1998-01-16 12:19:22 +00:00
|
|
|
if /^((void|VALUE|int|char *\*|ID|struct [\w_]+ *\*|st_table *\*) *)?\n([\w\d_]+)\(.*\)\n\s*((.+;\n)*)\{/
|
1998-01-16 12:13:05 +00:00
|
|
|
$_ = $'
|
|
|
|
|
printf "%s %s(", $2, $3
|
|
|
|
|
args = []
|
|
|
|
|
for arg in $4.split(/;\n\s*/)
|
|
|
|
|
arg.gsub! ' +', ' '
|
|
|
|
|
if arg =~ /,/
|
|
|
|
|
if arg =~ /(([^*]+) *\** *[\w\d_]+),/
|
|
|
|
|
type = $2.strip!
|
|
|
|
|
args.push $1.strip!
|
|
|
|
|
arg = $'
|
|
|
|
|
else
|
|
|
|
|
type = ""
|
|
|
|
|
end
|
|
|
|
|
while arg.sub!(/(\** *[\w\d_]+)(,|$)/, "")
|
|
|
|
|
args.push type + " " + $1.strip!
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
args.push arg.strip!
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
printf "%s);\n", args.join(', ')
|
|
|
|
|
redo
|
|
|
|
|
end
|
|
|
|
|
end
|
