windows-server-2003/windows/richedit/re41/x.awk

/^@@/ {
	fname = $2
}

/^@COMMENT/ {
	print "\n// " $2 " " $3 " " $4 " " $5
}

/^typedef/ {
	n = split($0, decl, "(")
	n = split(decl[1], rets, "typedef ")
	n = split(decl[3], arglist, ")")
	n = split(arglist[1], the_args, ",")
	argstr = "( "
	actuals = "( "
	for (i = 1; i <= n; i++)
	{
		argstr = argstr the_args[i] " arg" i
		actuals = actuals " arg" i
		if (i != n)
		{
			argstr = argstr ", "
			actuals = actuals ", "
		}
	}
	argstr = argstr  " )"
	actuals = actuals " )"
	print "inline " rets[2] fname " " argstr
	print "{"
	print "	_w32imp->" fname actuals
	print "}"
	print ""
}