function flag_set_p(regex, flags)
{
return (" " flags " ") ~ (" " regex " ")
}
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 ~ " Target ") result = result " | CL_TARGET"
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"
if (flags ~ " VarUint ") result = result " | CL_VARUINT"
if (flags ~ " PerFunc ") result = result " | CL_PERFUNC"
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 (flags ~ "PerFunc") {
if (flags ~ "VarUint") {
return "&cl_pf_opts.fld_" name
} else {
return "0"
}
}
if (name == "")
return "0"
else
return "&" name
}
function access_ref(flags)
{
name = var_name(flags)
if (flags !~ "PerFunc") {
return "0"
}
if (flags ~ "VarUint") {
return "0"
}
if (name != "")
return "cl_opt_access_func_" name
return "0"
}