function switch_flags (flags)
{
flags = " " flags " "
result = "0"
for (j = 0; j < n_langs; j++) {
regex = " " langs[j] " "
gsub ( "\\+", "\\+", regex )
if (flags ~ regex)
result = result " | " macros[j]
}
if (flags ~ " Common ") result = result " | CL_COMMON"
if (flags ~ " Joined ") result = result " | CL_JOINED"
if (flags ~ " JoinedOrMissing ") \
result = result " | CL_JOINED | CL_MISSING_OK"
if (flags ~ " Separate ") result = result " | CL_SEPARATE"
if (flags ~ " RejectNegative ") result = result " | CL_REJECT_NEGATIVE"
if (flags ~ " UInteger ") result = result " | CL_UINTEGER"
if (flags ~ " Undocumented ") result = result " | CL_UNDOCUMENTED"
if (flags ~ " Report ") result = result " | CL_REPORT"
sub( "^0 \\| ", "", result )
return result
}
function var_args(flags)
{
if (flags !~ "Var\\(")
return ""
sub(".*Var\\(", "", flags)
sub("\\).*", "", flags)
return flags
}
function var_name(flags)
{
s = var_args(flags)
if (s == "")
return "";
sub( ",.*", "", s)
return s
}
function var_set(flags)
{
s = var_args(flags)
if (s !~ ",")
return "0, 0"
sub( "[^,]*,", "", s)
return "1, " s
}
function var_ref(flags)
{
name = var_name(flags)
if (name == "")
return "0"
else
return "&" name
}