private Dictionary <string, string> ReadFromString(BaseUtils.StringParser p, FromMode fm, Dictionary <string, string> altops = null)
{
Dictionary <string, string> newvars = new Dictionary <string, string>();
while (!p.IsEOL)
{
string varname = p.NextQuotedWord("= ");
if (varname == null)
{
return(null);
}
if (altops != null) // with extended ops, the ops are returned in the altops function, one per variable found
{ // used only with let and set..
if (varname.EndsWith("$+"))
{
varname = varname.Substring(0, varname.Length - 2);
altops[varname] = "$+=";
}
else if (varname.EndsWith("$"))
{
varname = varname.Substring(0, varname.Length - 1);
altops[varname] = "$=";
}
else if (varname.EndsWith("+"))
{
varname = varname.Substring(0, varname.Length - 1);
altops[varname] = "+=";
}
else
{
altops[varname] = "="; // varname is good, it ended with a = or space, default is =
bool dollar = p.IsCharMoveOn('$'); // check for varname space $+
bool add = p.IsCharMoveOn('+');
if (dollar && add)
{
altops[varname] = "$+=";
}
else if (dollar)
{
altops[varname] = "$=";
}
else if (add)
{
altops[varname] = "+=";
}
}
}
if (!p.IsCharMoveOn('='))
{
return(null);
}
string value = (fm == FromMode.OnePerLine) ? p.NextQuotedWordOrLine() : p.NextQuotedWord((fm == FromMode.MultiEntryComma) ? ", " : ",) ");
if (value == null)
{
return(null);
}
newvars[varname] = value;
if (fm == FromMode.MultiEntryCommaBracketEnds && p.PeekChar() == ')') // bracket, stop don't remove.. outer bit wants to check its there..
{
return(newvars);
}
else if (fm == FromMode.OnePerLine && !p.IsEOL) // single entry, must be eol now
{
return(null);
}
else if (!p.IsEOL && !p.IsCharMoveOn(',')) // if not EOL, but not comma, incorrectly formed list
{
return(null);
}
}
return(newvars);
}
private Control MakeNode(string s)
{
BaseUtils.StringParser sp = new BaseUtils.StringParser(s); // ctrl string is tag,panelid enum number
int tagid = sp.NextInt(",") ?? 0; // enum id
sp.IsCharMoveOn(',');
int panelid = sp.NextInt(",") ?? NoTabPanelSelected; // if not valid, we get an empty tab control
if (panelid >= FixedPanelOffset) // this range of ids are UCCB directly in the splitter, so are not changeable
{
PanelInformation.PanelInfo pi = PanelInformation.GetPanelInfoByPanelID((PanelInformation.PanelIDs)(panelid - FixedPanelOffset));
if (pi == null)
{
pi = PanelInformation.GetPanelInfoByPanelID(PanelInformation.PanelIDs.Log); // make sure we have a valid one - can't return nothing
}
UserControlCommonBase uccb = PanelInformation.Create(pi.PopoutID); // must return as we made sure pi is valid
uccb.AutoScaleMode = AutoScaleMode.Inherit; // very very important and took 2 days to work out!
uccb.Dock = DockStyle.Fill;
uccb.Tag = tagid;
uccb.Name = "UC-" + tagid.ToStringInvariant();
return(uccb);
}
else // positive ones are tab strip with the panel id selected, if valid..
{
ExtendedControls.TabStrip tabstrip = new ExtendedControls.TabStrip();
tabstrip.ImageList = PanelInformation.GetUserSelectablePanelImages(TabListSortAlpha);
tabstrip.TextList = PanelInformation.GetUserSelectablePanelDescriptions(TabListSortAlpha);
tabstrip.TagList = PanelInformation.GetUserSelectablePanelIDs(TabListSortAlpha).Cast <Object>().ToArray();
tabstrip.ListSelectionItemSeparators = PanelInformation.GetUserSelectableSeperatorIndex(TabListSortAlpha);
tabstrip.Dock = DockStyle.Fill;
tabstrip.StripMode = ExtendedControls.TabStrip.StripModeType.ListSelection;
tabstrip.Tag = tagid; // Tag stores the ID index of this view
tabstrip.Name = Name + "." + tagid.ToStringInvariant();
//System.Diagnostics.Debug.WriteLine("Make new tab control " + tabstrip.Name + " id " + tagid + " of " + panelid );
tabstrip.OnRemoving += (tab, ctrl) =>
{
UserControlCommonBase uccb = ctrl as UserControlCommonBase;
uccb.CloseDown();
AssignTHC(); // in case we removed anything
};
tabstrip.OnCreateTab += (tab, si) => // called when the tab strip wants a new control for a tab.
{
PanelInformation.PanelInfo pi = PanelInformation.GetPanelInfoByPanelID((PanelInformation.PanelIDs)tab.TagList[si]); // must be valid, as it came from the taglist
Control c = PanelInformation.Create(pi.PopoutID);
(c as UserControlCommonBase).AutoScaleMode = AutoScaleMode.Inherit;
c.Name = pi.WindowTitle; // tabs uses Name field for display, must set it
System.Diagnostics.Trace.WriteLine("SP:Create Tab " + c.Name);
return(c);
};
tabstrip.OnPostCreateTab += (tab, ctrl, i) => // only called during dynamic creation..
{
int tabstripid = (int)tab.Tag; // tag from tab strip
int displaynumber = DisplayNumberOfSplitter(tabstripid); // tab strip - use tag to remember display id which helps us save context.
UserControlCommonBase uc = ctrl as UserControlCommonBase;
if (uc != null)
{
System.Diagnostics.Trace.WriteLine("SP:Make Tab " + tabstripid + " with dno " + displaynumber + " Use THC " + ucursor_inuse.GetHashCode());
uc.Init(discoveryform, displaynumber); // init..
uc.Scale(this.FindForm().CurrentAutoScaleFactor()); // keeping to the contract, scale and
discoveryform.theme.ApplyStd(uc); // theme the uc. between init and set cursor
uc.SetCursor(ucursor_inuse);
uc.LoadLayout();
uc.InitialDisplay();
}
AssignTHC(); // in case we added one
};
tabstrip.OnPopOut += (tab, i) => { discoveryform.PopOuts.PopOut((PanelInformation.PanelIDs)tabstrip.TagList[i]); };
PanelInformation.PanelIDs[] pids = PanelInformation.GetUserSelectablePanelIDs(TabListSortAlpha); // sort order v.important.. we need the right index, dep
int indexofentry = Array.FindIndex(pids, x => x == (PanelInformation.PanelIDs)panelid); // find ID in array.. -1 if not valid ID, it copes with -1
if (indexofentry >= 0) // if we have a panel, open it
{
tabstrip.Create(indexofentry); // create but not post create during the init phase. Post create is only used during dynamics
}
return(tabstrip);
}
}
// if includeevent is set, it must be there..
// demlimchars is normally space, but can be ") " if its inside a multi.
public string Read(BaseUtils.StringParser sp, bool includeevent = false, string delimchars = " ")
{
Fields = new List <ConditionEntry>();
InnerCondition = OuterCondition = LogicalCondition.Or;
EventName = ""; Action = "";
ActionVars = new Variables();
if (includeevent)
{
string actionvarsstr;
if ((EventName = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(',') ||
(Action = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(',') ||
(actionvarsstr = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(','))
{
return("Incorrect format of EVENT data associated with condition");
}
if (actionvarsstr.HasChars())
{
ActionVars = new Variables(actionvarsstr, Variables.FromMode.MultiEntryComma);
}
}
LogicalCondition?ic = null;
while (true)
{
string var = sp.NextQuotedWord(delimchars); // always has para cond
if (var == null)
{
return("Missing parameter (left side) of condition");
}
string cond = sp.NextQuotedWord(delimchars);
if (cond == null)
{
return("Missing condition operator");
}
ConditionEntry.MatchType mt;
if (!ConditionEntry.MatchTypeFromString(cond, out mt))
{
return("Condition operator " + cond + " is not recognised");
}
string value = "";
if (ConditionEntry.IsNullOperation(mt)) // null operators (Always..)
{
if (!var.Equals("Condition", StringComparison.InvariantCultureIgnoreCase))
{
return("Condition must preceed fixed result operator");
}
var = "Condition"; // fix case..
}
else if (!ConditionEntry.IsUnaryOperation(mt)) // not unary, require right side
{
value = sp.NextQuotedWord(delimchars);
if (value == null)
{
return("Missing value part (right side) of condition");
}
}
ConditionEntry ce = new ConditionEntry()
{
ItemName = var, MatchCondition = mt, MatchString = value
};
Fields.Add(ce);
if (sp.IsEOL || sp.PeekChar() == ')') // end is either ) or EOL
{
InnerCondition = (ic == null) ? LogicalCondition.Or : ic.Value;
return("");
}
else
{
LogicalCondition nic;
string err = GetLogicalCondition(sp, delimchars, out nic);
if (err.Length > 0)
{
return(err + " for inner condition");
}
if (ic == null)
{
ic = nic;
}
else if (ic.Value != nic)
{
return("Cannot specify different inner conditions between expressions");
}
}
}
}
private Control MakeNode(string s)
{
BaseUtils.StringParser sp = new BaseUtils.StringParser(s); // ctrl string is tag,panelid enum number
int tagid = sp.NextInt(",") ?? 0; // enum id
sp.IsCharMoveOn(',');
int panelid = sp.NextInt(",") ?? NoTabPanelSelected; // if not valid, we get an empty tab control
if (panelid >= FixedPanelOffset) // this range of ids are UCCB directly in the splitter, so are not changeable
{
PanelInformation.PanelInfo pi = PanelInformation.GetPanelInfoByPanelID((PanelInformation.PanelIDs)(panelid - FixedPanelOffset));
if (pi == null)
{
pi = PanelInformation.GetPanelInfoByPanelID(PanelInformation.PanelIDs.Log); // make sure we have a valid one - can't return nothing
}
UserControlCommonBase uccb = PanelInformation.Create(pi.PopoutID); // must return as we made sure pi is valid
uccb.Dock = DockStyle.Fill;
uccb.Tag = tagid;
uccb.Name = "UC-" + tagid.ToStringInvariant();
return(uccb);
}
else // positive ones are tab strip with the panel id selected, if valid..
{
ExtendedControls.TabStrip tabstrip = new ExtendedControls.TabStrip();
tabstrip.ImageList = PanelInformation.GetPanelImages();
tabstrip.TextList = PanelInformation.GetPanelDescriptions();
tabstrip.TagList = PanelInformation.GetPanelIDs().Cast <Object>().ToArray();
tabstrip.Dock = DockStyle.Fill;
tabstrip.DropDownWidth = 500;
tabstrip.DropDownHeight = 500;
tabstrip.StripMode = ExtendedControls.TabStrip.StripModeType.ListSelection;
tabstrip.Tag = tagid; // Tag stores the ID index of this view
tabstrip.Name = Name + "." + tagid.ToStringInvariant();
//System.Diagnostics.Debug.WriteLine("Make new tab control " + tabstrip.Name + " id " + tagid + " of " + panelid );
tabstrip.OnRemoving += (tab, ctrl) =>
{
UserControlCommonBase uccb = ctrl as UserControlCommonBase;
uccb.Closing();
AssignTHC(); // in case we removed anything
};
tabstrip.OnCreateTab += (tab, si) =>
{
PanelInformation.PanelInfo pi = PanelInformation.GetPanelInfoByPanelID((PanelInformation.PanelIDs)tab.TagList[si]); // must be valid, as it came from the taglist
Control c = PanelInformation.Create(pi.PopoutID);
c.Name = pi.WindowTitle; // tabs uses Name field for display, must set it
return(c);
};
tabstrip.OnPostCreateTab += (tab, ctrl, i) => // only called during dynamic creation..
{
int tabstripid = (int)tab.Tag; // tag from tab strip
int displaynumber = DisplayNumberOfSplitter(tabstripid); // tab strip - use tag to remember display id which helps us save context.
UserControlCommonBase uc = ctrl as UserControlCommonBase;
if (uc != null)
{
System.Diagnostics.Trace.WriteLine("SP:Make Tab " + tabstripid + " with dno " + displaynumber + " Use THC " + ucursor_inuse.GetHashCode());
uc.Init(discoveryform, displaynumber);
uc.SetCursor(ucursor_inuse);
uc.LoadLayout();
uc.InitialDisplay();
}
//System.Diagnostics.Debug.WriteLine("And theme {0}", i);
discoveryform.theme.ApplyToControls(tab);
AssignTHC(); // in case we added one
};
tabstrip.OnPopOut += (tab, i) => { discoveryform.PopOuts.PopOut((PanelInformation.PanelIDs)tabstrip.TagList[i]); };
discoveryform.theme.ApplyToControls(tabstrip, applytothis: true);
PanelInformation.PanelIDs[] pids = PanelInformation.GetPanelIDs();
panelid = Array.FindIndex(pids, x => x == (PanelInformation.PanelIDs)panelid); // find ID in array.. -1 if not valid ID, it copes with -1
if (panelid >= 0) // if we have a panel, open it
{
tabstrip.Create(panelid); // create but not post create yet...
}
return(tabstrip);
}
}
public string Read(BaseUtils.StringParser sp, bool includeevent = false, string delimchars = " ") // if includeevent is set, it must be there..
{ // demlimchars is normally space, but can be ") " if its inside a multi.
fields = new List <ConditionEntry>();
innercondition = outercondition = ConditionEntry.LogicalCondition.Or;
eventname = ""; action = ""; actiondata = "";
if (includeevent)
{
if ((eventname = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(',') ||
(action = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(',') ||
(actiondata = sp.NextQuotedWord(", ")) == null || !sp.IsCharMoveOn(','))
{
return("Incorrect format of EVENT data associated with condition");
}
}
ConditionEntry.LogicalCondition?ic = null;
while (true)
{
string var = sp.NextQuotedWord(delimchars); // always has para cond
if (var == null)
{
return("Missing parameter (left side) of condition");
}
string cond = sp.NextQuotedWord(delimchars);
if (cond == null)
{
return("Missing condition operator");
}
ConditionEntry.MatchType mt;
if (!ConditionEntry.MatchTypeFromString(cond, out mt))
{
return("Condition operator " + cond + " is not recognised");
}
string value = "";
if (ConditionEntry.IsNullOperation(mt)) // null operators (Always..)
{
if (!var.Equals("Condition", StringComparison.InvariantCultureIgnoreCase))
{
return("Condition must preceed fixed result operator");
}
var = "Condition"; // fix case..
}
else if (!ConditionEntry.IsUnaryOperation(mt)) // not unary, require right side
{
value = sp.NextQuotedWord(delimchars);
if (value == null)
{
return("Missing value part (right side) of condition");
}
}
ConditionEntry ce = new ConditionEntry()
{
itemname = var, matchtype = mt, matchstring = value
};
fields.Add(ce);
if (sp.IsEOL || sp.PeekChar() == ')') // end is either ) or EOL
{
innercondition = (ic == null) ? ConditionEntry.LogicalCondition.Or : ic.Value;
return("");
}
else
{
ConditionEntry.LogicalCondition nic;
string err = ConditionEntry.GetLogicalCondition(sp, delimchars, out nic);
if (err.Length > 0)
{
return(err + " for inner condition");
}
if (ic == null)
{
ic = nic;
}
else if (ic.Value != nic)
{
return("Cannot specify different inner conditions between expressions");
}
}
}
}
