protected bool ExpandMacroStr(out string output, int parano) // blank if out of range. error if macro does not exist
{
output = "";
if (parano < paras.Count)
{
string value = paras[parano].Value;
if (paras[parano].IsString) // if its a string..
{
Functions.ExpandResult sexpresult = caller.ExpandStringFull(value, out output, recdepth + 1);
if (sexpresult == Functions.ExpandResult.Failed)
{
return(false);
}
}
else if (vars.Exists(value)) // if macro exists.. expand it
{
Functions.ExpandResult sexpresult = caller.ExpandStringFull(vars[value], out output, recdepth + 1);
if (sexpresult == Functions.ExpandResult.Failed)
{
return(false);
}
}
else
{
output = "Variable '" + value + "' does not exist";
return(false);
}
}
return(true);
}
static public bool?CheckConditions(List <Condition> fel, Variables values, out string errlist, out ErrorClass errclass, List <Condition> passed = null, Functions cf = null)
{
errlist = null;
errclass = ErrorClass.None;
bool?outerres = null;
foreach (Condition fe in fel) // find all values needed
{
bool?innerres = null;
foreach (ConditionEntry f in fe.fields)
{
bool matched = false;
if (f.matchtype == ConditionEntry.MatchType.AlwaysTrue || f.matchtype == ConditionEntry.MatchType.AlwaysFalse)
{
if (f.itemname.Length == 0 || f.itemname.Equals("Condition", StringComparison.InvariantCultureIgnoreCase)) // empty (legacy) or
{
if (f.matchtype == ConditionEntry.MatchType.AlwaysTrue)
{
matched = true; // matched, else if false, leave as false.
}
}
else
{
errlist += "AlwaysFalse/True does not have on the left side the word 'Condition'";
errclass = ErrorClass.ExprFormatError;
innerres = false;
break;
}
}
else
{
string leftside = null;
Functions.ExpandResult er = Functions.ExpandResult.NoExpansion;
if (cf != null) // if we have a string expander, try the left side
{
er = cf.ExpandString(f.itemname, out leftside);
if (er == Functions.ExpandResult.Failed) // stop on error
{
errlist += leftside; // add on errors..
innerres = false; // stop loop, false
break;
}
}
if (f.matchtype == ConditionEntry.MatchType.IsPresent) // these use f.itemname without any expansion
{
if (leftside == null || er == Functions.ExpandResult.NoExpansion) // no expansion, must be a variable name
{
leftside = values.Qualify(f.itemname); // its a straight variable name, allow any special formatting
}
if (values.Exists(leftside) && values[leftside] != null)
{
matched = true;
}
}
else if (f.matchtype == ConditionEntry.MatchType.IsNotPresent)
{
if (leftside == null || er == Functions.ExpandResult.NoExpansion) // no expansion, must be a variable name
{
leftside = values.Qualify(f.itemname); // its a straight variable name, allow any special formatting
}
if (!values.Exists(leftside) || values[leftside] == null)
{
matched = true;
}
}
else
{
if (er == Functions.ExpandResult.NoExpansion) // no expansion, must be a variable name
{
string qualname = values.Qualify(f.itemname);
leftside = values.Exists(qualname) ? values[qualname] : null; // then lookup.. lookup may also be null if its a pre-def
if (leftside == null)
{
errlist += "Variable '" + qualname + "' does not exist" + Environment.NewLine;
errclass = ErrorClass.LeftSideVarUndefined;
innerres = false;
break; // stop the loop, its a false
}
}
string rightside;
if (cf != null) // if we have a string expander, pass it thru
{
er = cf.ExpandString(f.matchstring, out rightside);
if (er == Functions.ExpandResult.Failed) // if error, abort
{
errlist += rightside; // add on errors..
innerres = false; // stop loop, false
break;
}
}
else
{
rightside = f.matchstring;
}
if (f.matchtype == ConditionEntry.MatchType.DateBefore || f.matchtype == ConditionEntry.MatchType.DateAfter)
{
DateTime tmevalue, tmecontent;
if (!DateTime.TryParse(leftside, System.Globalization.CultureInfo.CreateSpecificCulture("en-US"), System.Globalization.DateTimeStyles.None, out tmevalue))
{
errlist += "Date time not in correct format on left side" + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
else if (!DateTime.TryParse(rightside, System.Globalization.CultureInfo.CreateSpecificCulture("en-US"), System.Globalization.DateTimeStyles.None, out tmecontent))
{
errlist += "Date time not in correct format on right side" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break;
}
else
{
if (f.matchtype == ConditionEntry.MatchType.DateBefore)
{
matched = tmevalue.CompareTo(tmecontent) < 0;
}
else
{
matched = tmevalue.CompareTo(tmecontent) >= 0;
}
}
}
else if (f.matchtype == ConditionEntry.MatchType.Equals)
{
matched = leftside.Equals(rightside, StringComparison.InvariantCultureIgnoreCase);
}
else if (f.matchtype == ConditionEntry.MatchType.EqualsCaseSensitive)
{
matched = leftside.Equals(rightside);
}
else if (f.matchtype == ConditionEntry.MatchType.NotEqual)
{
matched = !leftside.Equals(rightside, StringComparison.InvariantCultureIgnoreCase);
}
else if (f.matchtype == ConditionEntry.MatchType.NotEqualCaseSensitive)
{
matched = !leftside.Equals(rightside);
}
else if (f.matchtype == ConditionEntry.MatchType.Contains)
{
matched = leftside.IndexOf(rightside, StringComparison.InvariantCultureIgnoreCase) >= 0;
}
else if (f.matchtype == ConditionEntry.MatchType.ContainsCaseSensitive)
{
matched = leftside.Contains(rightside);
}
else if (f.matchtype == ConditionEntry.MatchType.DoesNotContain)
{
matched = leftside.IndexOf(rightside, StringComparison.InvariantCultureIgnoreCase) < 0;
}
else if (f.matchtype == ConditionEntry.MatchType.DoesNotContainCaseSensitive)
{
matched = !leftside.Contains(rightside);
}
else if (f.matchtype == ConditionEntry.MatchType.IsOneOf)
{
StringParser p = new StringParser(rightside);
List <string> ret = p.NextQuotedWordList();
if (ret == null)
{
errlist += "IsOneOf value list is not in a optionally quoted comma separated form" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break; // stop the loop, its a false
}
else
{
matched = ret.Contains(leftside, StringComparer.InvariantCultureIgnoreCase);
}
}
else if (f.matchtype == ConditionEntry.MatchType.MatchSemicolon)
{
string[] list = rightside.Split(';').Select(x => x.Trim()).ToArray(); // split and trim
matched = list.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (f.matchtype == ConditionEntry.MatchType.MatchCommaList)
{
StringCombinations sc = new StringCombinations(',');
sc.ParseString(rightside); // parse, give all combinations
matched = sc.Permutations.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (f.matchtype == ConditionEntry.MatchType.MatchSemicolonList)
{
StringCombinations sc = new StringCombinations(';');
sc.ParseString(rightside); // parse, give all combinations
matched = sc.Permutations.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (f.matchtype == ConditionEntry.MatchType.AnyOfAny)
{
StringParser l = new StringParser(leftside);
List <string> ll = l.NextQuotedWordList();
StringParser r = new StringParser(rightside);
List <string> rl = r.NextQuotedWordList();
if (ll == null || rl == null)
{
errlist += "AnyOfAny value list is not in a optionally quoted comma separated form on both sides" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break; // stop the loop, its a false
}
else
{
foreach (string s in ll) // for all left strings
{
if (rl.Contains(s, StringComparer.InvariantCultureIgnoreCase)) // if right has it..
{
matched = true; // matched and break
break;
}
}
}
}
else if (f.matchtype == ConditionEntry.MatchType.IsEmpty)
{
matched = leftside.Length == 0;
}
else if (f.matchtype == ConditionEntry.MatchType.IsNotEmpty)
{
matched = leftside.Length > 0;
}
else if (f.matchtype == ConditionEntry.MatchType.IsTrue || f.matchtype == ConditionEntry.MatchType.IsFalse)
{
int inum = 0;
if (leftside.InvariantParse(out inum))
{
matched = (f.matchtype == ConditionEntry.MatchType.IsTrue) ? (inum != 0) : (inum == 0);
}
else
{
errlist += "True/False value is not an integer on left side" + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
}
else
{
double fnum = 0, num = 0;
if (!leftside.InvariantParse(out num))
{
errlist += "Number not in correct format on left side" + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
else if (!rightside.InvariantParse(out fnum))
{
errlist += "Number not in correct format on right side" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break;
}
else
{
if (f.matchtype == ConditionEntry.MatchType.NumericEquals)
{
matched = Math.Abs(num - fnum) < 0.0000000001; // allow for rounding
}
else if (f.matchtype == ConditionEntry.MatchType.NumericNotEquals)
{
matched = Math.Abs(num - fnum) >= 0.0000000001;
}
else if (f.matchtype == ConditionEntry.MatchType.NumericGreater)
{
matched = num > fnum;
}
else if (f.matchtype == ConditionEntry.MatchType.NumericGreaterEqual)
{
matched = num >= fnum;
}
else if (f.matchtype == ConditionEntry.MatchType.NumericLessThan)
{
matched = num < fnum;
}
else if (f.matchtype == ConditionEntry.MatchType.NumericLessThanEqual)
{
matched = num <= fnum;
}
else
{
System.Diagnostics.Debug.Assert(false);
}
}
}
}
}
// System.Diagnostics.Debug.WriteLine(fe.eventname + ":Compare " + f.matchtype + " '" + f.contentmatch + "' with '" + vr.value + "' res " + matched + " IC " + fe.innercondition);
if (fe.innercondition == ConditionEntry.LogicalCondition.And) // Short cut, if AND, all must pass, and it did not
{
if (!matched)
{
innerres = false;
break;
}
}
else if (fe.innercondition == ConditionEntry.LogicalCondition.Nand) // Short cut, if NAND, and not matched
{
if (!matched)
{
innerres = true; // positive non match - NAND produces a true
break;
}
}
else if (fe.innercondition == ConditionEntry.LogicalCondition.Or) // Short cut, if OR, and matched
{
if (matched)
{
innerres = true;
break;
}
}
else
{ // short cut, if NOR, and matched, its false
if (matched)
{
innerres = false;
break;
}
}
}
if (!innerres.HasValue) // All tests executed, without a short cut, we set it to a definitive state
{
if (fe.innercondition == ConditionEntry.LogicalCondition.And) // none did not match, producing a false, so therefore AND is true
{
innerres = true;
}
else if (fe.innercondition == ConditionEntry.LogicalCondition.Or) // none did match, producing a true, so therefore OR must be false
{
innerres = false;
}
else if (fe.innercondition == ConditionEntry.LogicalCondition.Nor) // none did match, producing a false, so therefore NOR must be true
{
innerres = true;
}
else // NAND none did match, producing a true, so therefore NAND must be false
{
innerres = false;
}
}
if (innerres.Value && passed != null) // if want a list of passes, do it
{
passed.Add(fe);
}
if (!outerres.HasValue) // if first time, its just the value
{
outerres = innerres.Value;
}
else if (fe.outercondition == ConditionEntry.LogicalCondition.Or)
{
outerres |= innerres.Value;
}
else if (fe.outercondition == ConditionEntry.LogicalCondition.And)
{
outerres &= innerres.Value;
}
else if (fe.outercondition == ConditionEntry.LogicalCondition.Nor)
{
outerres = !(outerres | innerres.Value);
}
else if (fe.outercondition == ConditionEntry.LogicalCondition.Nand)
{
outerres = !(outerres & innerres.Value);
}
}
return(outerres);
}
// static
// Check condition list fel, using the outercondition on each to combine the results
// values are the set of values to use for variable lookups
// pass back errlist, errclass
// optionally pass back conditions which passed
// optional use the function/macro expander on both sides
// optionally shortcircuit on outer AND condition
// obeys disabled
static public bool?CheckConditions(List <Condition> fel, Variables values, out string errlist, out ErrorClass errclass,
List <Condition> passed = null,
Functions functionmacroexpander = null,
bool shortcircuitouter = false,
bool debugit = false)
{
errlist = null;
errclass = ErrorClass.None;
bool?outerres = null;
for (int oc = 0; oc < fel.Count; oc++)
{
Condition cond = fel[oc];
if (cond.Disabled) // disabled means that its ignored
{
continue;
}
bool?innerres = null;
foreach (ConditionEntry ce in cond.Fields)
{
bool matched = false;
if (debugit)
{
System.Diagnostics.Debug.WriteLine($"CE `{ce.ItemName}` {ce.MatchCondition} `{ce.MatchString}`");
}
// these require no left or right
if (ce.MatchCondition == ConditionEntry.MatchType.AlwaysTrue || ce.MatchCondition == ConditionEntry.MatchType.AlwaysFalse)
{
if (ce.ItemName.Length == 0 || ce.ItemName.Equals("Condition", StringComparison.InvariantCultureIgnoreCase)) // empty (legacy) or Condition
{
if (ce.MatchCondition == ConditionEntry.MatchType.AlwaysTrue)
{
matched = true; // matched, else if false, leave as false.
}
}
else
{
errlist += "AlwaysFalse/True does not have on the left side the word 'Condition'" + Environment.NewLine;
errclass = ErrorClass.ExprFormatError;
innerres = false;
break;
}
}
else
{ // at least a left side
string leftside = null;
Functions.ExpandResult leftexpansionresult = Functions.ExpandResult.NoExpansion;
if (functionmacroexpander != null) // if we have a string expander, try the left side
{
leftexpansionresult = functionmacroexpander.ExpandString(ce.ItemName, out leftside);
if (leftexpansionresult == Functions.ExpandResult.Failed) // stop on error
{
errlist += leftside; // add on errors..
innerres = false; // stop loop, false
break;
}
}
// variable names
if (ce.MatchCondition == ConditionEntry.MatchType.IsPresent)
{
if (leftside == null || leftexpansionresult == Functions.ExpandResult.NoExpansion) // no expansion, must be a variable name
{
leftside = values.Qualify(ce.ItemName); // its a straight variable name, allow any special formatting
}
if (values.Exists(leftside) && values[leftside] != null)
{
matched = true;
}
}
else if (ce.MatchCondition == ConditionEntry.MatchType.IsNotPresent)
{
if (leftside == null || leftexpansionresult == Functions.ExpandResult.NoExpansion) // no expansion, must be a variable name
{
leftside = values.Qualify(ce.ItemName); // its a straight variable name, allow any special formatting
}
if (!values.Exists(leftside) || values[leftside] == null)
{
matched = true;
}
}
else
{
// if no expansion, then pass thru the eval engine now or its a variable name
if (leftexpansionresult == Functions.ExpandResult.NoExpansion)
{
string qualname = values.Qualify(ce.ItemName);
leftside = values.Exists(qualname) ? values[qualname] : null; // then lookup.. lookup may also be null if its a pre-def
if (leftside == null)
{
errlist += "Variable '" + qualname + "' does not exist" + Environment.NewLine;
errclass = ErrorClass.LeftSideVarUndefined;
innerres = false;
break; // stop the loop, its a false
}
}
// System.Diagnostics.Debug.WriteLine($".. left side {leftside}");
// left side only
if (ce.MatchCondition == ConditionEntry.MatchType.IsEmpty)
{
matched = leftside.Length == 0;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.IsNotEmpty)
{
matched = leftside.Length > 0;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.IsTrue || ce.MatchCondition == ConditionEntry.MatchType.IsFalse)
{
int inum = 0;
if (leftside.InvariantParse(out inum))
{
matched = (ce.MatchCondition == ConditionEntry.MatchType.IsTrue) ? (inum != 0) : (inum == 0);
}
else
{
errlist += "True/False value is not an integer on left side" + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
}
else
{
// require a right side
string rightside = null;
Functions.ExpandResult rightexpansionresult = Functions.ExpandResult.NoExpansion;
if (functionmacroexpander != null) // if we have a string expander, pass it thru
{
rightexpansionresult = functionmacroexpander.ExpandString(ce.MatchString, out rightside);
if (rightexpansionresult == Functions.ExpandResult.Failed) // if error, abort
{
errlist += rightside; // add on errors..
innerres = false; // stop loop, false
break;
}
}
else
{
rightside = ce.MatchString; // no eval, we just use the string
}
if (debugit)
{
System.Diagnostics.Debug.WriteLine($"Condition `{leftside}` {ce.MatchCondition} `{rightside}`");
}
if (ce.MatchCondition == ConditionEntry.MatchType.DateBefore || ce.MatchCondition == ConditionEntry.MatchType.DateAfter)
{
DateTime tmevalue, tmecontent;
if (!DateTime.TryParse(leftside, System.Globalization.CultureInfo.CreateSpecificCulture("en-US"), System.Globalization.DateTimeStyles.None, out tmevalue))
{
errlist += "Date time not in correct format on left side: " + leftside + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
else if (!DateTime.TryParse(rightside, System.Globalization.CultureInfo.CreateSpecificCulture("en-US"), System.Globalization.DateTimeStyles.None, out tmecontent))
{
errlist += "Date time not in correct format on right side: " + rightside + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break;
}
else
{
if (ce.MatchCondition == ConditionEntry.MatchType.DateBefore)
{
matched = tmevalue.CompareTo(tmecontent) < 0;
}
else
{
matched = tmevalue.CompareTo(tmecontent) >= 0;
}
}
}
else if (ce.MatchCondition == ConditionEntry.MatchType.Equals)
{
matched = leftside.Equals(rightside, StringComparison.InvariantCultureIgnoreCase);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.EqualsCaseSensitive)
{
matched = leftside.Equals(rightside);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NotEqual)
{
matched = !leftside.Equals(rightside, StringComparison.InvariantCultureIgnoreCase);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NotEqualCaseSensitive)
{
matched = !leftside.Equals(rightside);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.Contains)
{
matched = leftside.IndexOf(rightside, StringComparison.InvariantCultureIgnoreCase) >= 0;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.ContainsCaseSensitive)
{
matched = leftside.Contains(rightside);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.DoesNotContain)
{
matched = leftside.IndexOf(rightside, StringComparison.InvariantCultureIgnoreCase) < 0;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.DoesNotContainCaseSensitive)
{
matched = !leftside.Contains(rightside);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.IsOneOf)
{
StringParser p = new StringParser(rightside);
List <string> ret = p.NextQuotedWordList();
if (ret == null)
{
errlist += "IsOneOf value list is not in a optionally quoted comma separated form" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break; // stop the loop, its a false
}
else
{
matched = ret.Contains(leftside, StringComparer.InvariantCultureIgnoreCase);
}
}
else if (ce.MatchCondition == ConditionEntry.MatchType.MatchSemicolon)
{
string[] list = rightside.Split(';').Select(x => x.Trim()).ToArray(); // split and trim
matched = list.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (ce.MatchCondition == ConditionEntry.MatchType.MatchCommaList)
{
StringCombinations sc = new StringCombinations(',');
sc.ParseString(rightside); // parse, give all combinations
matched = sc.Permutations.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (ce.MatchCondition == ConditionEntry.MatchType.MatchSemicolonList)
{
StringCombinations sc = new StringCombinations(';');
sc.ParseString(rightside); // parse, give all combinations
matched = sc.Permutations.Contains(leftside.Trim(), StringComparer.InvariantCultureIgnoreCase); // compare, trimmed, case insensitive
}
else if (ce.MatchCondition == ConditionEntry.MatchType.AnyOfAny)
{
StringParser l = new StringParser(leftside);
List <string> ll = l.NextQuotedWordList();
StringParser r = new StringParser(rightside);
List <string> rl = r.NextQuotedWordList();
if (ll == null || rl == null)
{
errlist += "AnyOfAny value list is not in a optionally quoted comma separated form on both sides" + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break; // stop the loop, its a false
}
else
{
foreach (string s in ll) // for all left strings
{
if (rl.Contains(s, StringComparer.InvariantCultureIgnoreCase)) // if right has it..
{
matched = true; // matched and break
break;
}
}
}
}
else
{
double fnum = 0, num = 0;
if (!leftside.InvariantParse(out num))
{
errlist += "Number not in correct format on left side: " + leftside + Environment.NewLine;
errclass = ErrorClass.LeftSideBadFormat;
innerres = false;
break;
}
else if (!rightside.InvariantParse(out fnum))
{
errlist += "Number not in correct format on right side: " + rightside + Environment.NewLine;
errclass = ErrorClass.RightSideBadFormat;
innerres = false;
break;
}
else
{
if (ce.MatchCondition == ConditionEntry.MatchType.NumericEquals)
{
matched = num.ApproxEquals(fnum);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NumericNotEquals)
{
matched = !num.ApproxEquals(fnum);
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NumericGreater)
{
matched = num > fnum;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NumericGreaterEqual)
{
matched = num >= fnum;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NumericLessThan)
{
matched = num < fnum;
}
else if (ce.MatchCondition == ConditionEntry.MatchType.NumericLessThanEqual)
{
matched = num <= fnum;
}
else
{
System.Diagnostics.Debug.Assert(false);
}
}
}
}
}
}
// System.Diagnostics.Debug.WriteLine(fe.eventname + ":Compare " + f.matchtype + " '" + f.contentmatch + "' with '" + vr.value + "' res " + matched + " IC " + fe.innercondition);
if (cond.InnerCondition == Condition.LogicalCondition.And) // Short cut, if AND, all must pass, and it did not
{
if (!matched)
{
innerres = false;
break;
}
}
else if (cond.InnerCondition == Condition.LogicalCondition.Nand) // Short cut, if NAND, and not matched
{
if (!matched)
{
innerres = true; // positive non match - NAND produces a true
break;
}
}
else if (cond.InnerCondition == Condition.LogicalCondition.Or) // Short cut, if OR, and matched
{
if (matched)
{
innerres = true;
break;
}
}
else
{ // short cut, if NOR, and matched, its false
if (matched)
{
innerres = false;
break;
}
}
} // end of inner condition list look
// System.Diagnostics.Debug.WriteLine($"Condition list {innerres} {errlist}");
if (!innerres.HasValue) // if does not have a value
{
if (cond.InnerCondition == Condition.LogicalCondition.And) // none did not matched producing a false, so therefore AND is true
{
innerres = true;
}
else if (cond.InnerCondition == Condition.LogicalCondition.Or) // none did matched producing a true, so therefore OR must be false
{
innerres = false;
}
else if (cond.InnerCondition == Condition.LogicalCondition.Nor) // none did matched producing a false, so therefore NOR must be true
{
innerres = true;
}
else // NAND none did matched producing a true, so therefore NAND must be false
{
innerres = false;
}
}
else if (innerres == true)
{
passed?.Add(cond);
}
if (!outerres.HasValue) // if first time, its just the value
{
outerres = innerres.Value;
if (shortcircuitouter && oc < fel.Count - 1) // check short circuits on NEXT ONE! if we have a next one..
{
// if NEXT outer condition is an OR, and we are true
// if NEXT outer condition is an AND, and we are false
if ((fel[oc + 1].OuterCondition == Condition.LogicalCondition.Or && outerres == true) ||
(fel[oc + 1].OuterCondition == Condition.LogicalCondition.And && outerres == false))
{
// System.Diagnostics.Debug.WriteLine("Short circuit on {0} cur {1}", fel[oc + 1].OuterCondition, outerres);
break;
}
}
}
else if (cond.OuterCondition == Condition.LogicalCondition.Or)
{
outerres |= innerres.Value;
if (shortcircuitouter && outerres.Value == true) // no point continuing, first one true wins
{
//System.Diagnostics.Debug.WriteLine("Short circuit second on {0} cur {1}", fe.OuterCondition, outerres);
break;
}
}
else if (cond.OuterCondition == Condition.LogicalCondition.And)
{
outerres &= innerres.Value;
if (shortcircuitouter && outerres.Value == false) // no point continuing, first one false wins
{
//System.Diagnostics.Debug.WriteLine("Short circuit second on {0} cur {1}", fe.OuterCondition, outerres);
break;
}
}
else if (cond.OuterCondition == Condition.LogicalCondition.Nor)
{
outerres = !(outerres | innerres.Value);
}
else if (cond.OuterCondition == Condition.LogicalCondition.Nand)
{
outerres = !(outerres & innerres.Value);
}
else
{
System.Diagnostics.Debug.Assert(false, "Bad outer condition");
}
}
return(outerres);
}
public string ProcessParameter(string t, bool isstr, int recdepth)
{
if (fe == null)
{
paras.Add(new Parameter()
{
Value = t
});
}
else
{
FuncEntry.PT ptype = fe.paratype[paras.Count];
// if string, and its an expand string type, do it..
if (isstr)
{
if (fe.Expandstring(paras.Count))
{
string resexp; // expand out any strings.. recursion
Functions.ExpandResult sexpresult = caller.ExpandStringFull(t, out resexp, recdepth + 1);
if (sexpresult == Functions.ExpandResult.Failed)
{
return(resexp);
}
t = resexp;
}
}
else
{
if (t.Contains("%")) // expand out any function ones..
{
string resexp; // expand out any strings.. recursion
Functions.ExpandResult sexpresult = caller.ExpandStringFull(t, out resexp, recdepth + 1);
if (sexpresult == Functions.ExpandResult.Failed)
{
return(resexp);
}
t = resexp;
}
}
if (ptype == FuncEntry.PT.LS)
{
}
else if (ptype == FuncEntry.PT.M) // macro name, or string with macro name, don't check.
{
t = vars.Qualify(t);
}
else if (ptype == FuncEntry.PT.ME) // macro name always, or string with macro name (which has been expanded by above) naming a macro
{
t = vars.Qualify(t);
if (vars.Exists(t))
{
//System.Diagnostics.Debug.WriteLine("Expand ME {0} -> {1}", t, vars[t]);
t = vars[t];
}
else
{
return("Variable '" + t + "' does not exist");
}
}
else if (ptype == FuncEntry.PT.ms) // macro name, unexpanded, unchecked, or string, unexpanded
{
if (!isstr)
{
t = vars.Qualify(t); // qualify any macro name
}
}
else if (ptype == FuncEntry.PT.MESE) // macro, expand. or string expand, macro must exist
{
if (!isstr)
{
t = vars.Qualify(t);
if (vars.Exists(t))
{
t = vars[t];
}
else
{
return("Variable '" + t + "' does not exist");
}
}
}
else if (ptype == FuncEntry.PT.LmeSE) // a Literal, or a macro expanded, or a string expanded
{
if (!isstr)
{
string mname = vars.Qualify(t);
if (vars.Exists(mname))
{
t = vars[mname];
}
}
}
else if (ptype == FuncEntry.PT.ImeSE) // as per meSE but must be integer.
{
string errstr = "String parameter '" + t + "' is not an integer";
if (!isstr)
{
string mname = vars.Qualify(t);
if (vars.Exists(mname)) // if its a variable.. expand and check it converts
{
t = vars[mname];
errstr = "Variable '" + mname + "' value '" + t + "' is not an integer";
}
else
{
errstr = "Parameter '" + t + "' is not an integer or a variable name";
}
}
long?l = t.InvariantParseLongNull();
if (l != null)
{
paras.Add(new Parameter()
{
Value = t, Int = (int)l.Value, Long = l.Value
});
return(null);
}
else
{
return(errstr);
}
}
else if (ptype == FuncEntry.PT.FmeSE || ptype == FuncEntry.PT.FmeSEBlk)
{
string errstr = "String parameter '" + t + "' is not a number";
if (!isstr)
{
string mname = vars.Qualify(t);
if (vars.Exists(mname))
{
t = vars[mname];
errstr = "Variable '" + mname + "' value '" + t + "' is not a number";
}
else
{
errstr = "Parameter '" + t + "' is not an number or a variable name";
}
}
if (t.Length == 0) // empty string, may pass due to Blk.
{
if (ptype != FuncEntry.PT.FmeSEBlk) // error if not blank version
{
return("Value is empty"); // else fall thru with t = blank
}
}
else
{
double?l = t.InvariantParseDoubleNull();
if (l != null && !double.IsInfinity(l.Value) && !double.IsNaN(l.Value))
{
paras.Add(new Parameter()
{
Value = t, Fractional = l.Value
});
return(null);
}
else
{
return(errstr);
}
}
}
else
{
System.Diagnostics.Debug.Assert(true);
}
paras.Add(new Parameter()
{
Value = t, IsString = isstr
});
}
return(null);
}
