protected bool WordListEntry(out string output) { BaseUtils.StringParser l = new BaseUtils.StringParser(paras[0].isstring ? paras[0].value : vars[paras[0].value]); string c = vars.Exists(paras[1].value) ? vars[paras[1].value] : paras[1].value; output = ""; int count; if (c.InvariantParse(out count)) { List <string> ll = l.NextQuotedWordList(); if (count >= 0 && count < ll.Count) { output = ll[count]; } } else { output = "Parameter should be an integer constant or a variable name with an integer in its value"; return(false); } return(true); }
protected bool WordListCount(out string output) { BaseUtils.StringParser l = new BaseUtils.StringParser(paras[0].isstring ? paras[0].value : vars[paras[0].value]); List <string> ll = l.NextQuotedWordList(); output = ll.Count.ToStringInvariant(); return(true); }
public bool AddFromString(BaseUtils.StringParser p, FromMode fm, Dictionary <string, string> altops = null) { Dictionary <string, string> newvars = ReadFromString(p, fm, altops); if (newvars != null) { Add(newvars); } return(newvars != null); }
static public string GetLogicalCondition(BaseUtils.StringParser sp, string delimchars, out LogicalCondition value) { value = LogicalCondition.Or; string condi = sp.NextQuotedWord(delimchars); // next is the inner condition.. if (condi == null) { return("Condition operator missing"); } condi = condi.Replace(" ", ""); if (Enum.TryParse <ConditionEntry.LogicalCondition>(condi.Replace(" ", ""), true, out value)) { return(""); } else { return("Condition operator " + condi + " is not recognised"); } }
static private string MakeEntry(string instr, out Entry entry, ref System.Drawing.Point lastpos) { entry = null; BaseUtils.StringParser sp = new BaseUtils.StringParser(instr); string name = sp.NextQuotedWordComma(); if (name == null) { return("Missing name"); } string type = sp.NextWordComma(lowercase: true); Type ctype = null; if (type == null) { return("Missing type"); } else if (type.Equals("button")) { ctype = typeof(ExtendedControls.ButtonExt); } else if (type.Equals("textbox")) { ctype = typeof(ExtendedControls.TextBoxBorder); } else if (type.Equals("checkbox")) { ctype = typeof(ExtendedControls.CheckBoxCustom); } else if (type.Equals("label")) { ctype = typeof(System.Windows.Forms.Label); } else if (type.Equals("combobox")) { ctype = typeof(ExtendedControls.ComboBoxCustom); } else if (type.Equals("datetime")) { ctype = typeof(ExtendedControls.CustomDateTimePicker); } else if (type.Equals("numberboxlong")) { ctype = typeof(ExtendedControls.NumberBoxLong); } else if (type.Equals("numberboxdouble")) { ctype = typeof(ExtendedControls.NumberBoxDouble); } else { return("Unknown control type " + type); } string text = sp.NextQuotedWordComma(); // normally text.. if (text == null) { return("Missing text"); } int?x = sp.NextWordComma().InvariantParseIntNullOffset(lastpos.X); int?y = sp.NextWordComma().InvariantParseIntNullOffset(lastpos.Y); int?w = sp.NextWordComma().InvariantParseIntNull(); int?h = sp.NextWordComma().InvariantParseIntNull(); if (x == null || y == null || w == null || h == null) { return("Missing position/size"); } string tip = sp.NextQuotedWordComma(); // tip can be null entry = new ConfigurableForm.Entry(name, ctype, text, new System.Drawing.Point(x.Value, y.Value), new System.Drawing.Size(w.Value, h.Value), tip); if (type.Contains("textbox") && tip != null) { int?v = sp.NextWordComma().InvariantParseIntNull(); entry.textboxmultiline = v.HasValue && v.Value != 0; } if (type.Contains("checkbox") && tip != null) { int?v = sp.NextWordComma().InvariantParseIntNull(); entry.checkboxchecked = v.HasValue && v.Value != 0; v = sp.NextWordComma().InvariantParseIntNull(); entry.clearonfirstchar = v.HasValue && v.Value != 0; } if (type.Contains("combobox")) { entry.comboboxitems = sp.LineLeft.Trim(); if (tip == null || entry.comboboxitems.Length == 0) { return("Missing paramters for combobox"); } } if (type.Contains("datetime")) { entry.customdateformat = sp.NextWord(); } if (type.Contains("numberboxdouble")) { double?min = sp.NextWordComma().InvariantParseDoubleNull(); double?max = sp.NextWordComma().InvariantParseDoubleNull(); entry.numberboxdoubleminimum = min.HasValue ? min.Value : double.MinValue; entry.numberboxdoublemaximum = max.HasValue ? max.Value : double.MaxValue; entry.numberboxformat = sp.NextWordComma(); } if (type.Contains("numberboxlong")) { long?min = sp.NextWordComma().InvariantParseLongNull(); long?max = sp.NextWordComma().InvariantParseLongNull(); entry.numberboxlongminimum = min.HasValue ? min.Value : long.MinValue; entry.numberboxlongmaximum = max.HasValue ? max.Value : long.MaxValue; entry.numberboxformat = sp.NextWordComma(); } lastpos = new System.Drawing.Point(x.Value, y.Value); return(null); }
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); }
public bool FromString(string s, FromMode fm) // string, not bracketed. { BaseUtils.StringParser p = new BaseUtils.StringParser(s); return(FromString(p, fm)); }
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); } }
public override bool ExecuteAction(ActionProgramRun ap) { string res; if (ap.Functions.ExpandString(UserData, out res) != BaseUtils.Functions.ExpandResult.Failed) { BaseUtils.StringParser sp = new BaseUtils.StringParser(res); string nextcmd = sp.NextWordLCInvariant(" "); if (nextcmd == null) { ap.ReportError("Missing command in ProgramWindow"); } else if (nextcmd.Equals("tab") || nextcmd.Equals("opentab") || nextcmd.Equals("closetab")) { string tabname = sp.NextQuotedWord(lowercase: System.Globalization.CultureInfo.InvariantCulture, replaceescape: true); if (!(ap.ActionController as ActionController).DiscoveryForm.SelectTabPage(tabname, nextcmd.Equals("opentab"), nextcmd.Equals("closetab"))) { ap.ReportError("Tab page name " + tabname + " not found"); } } else if (nextcmd.Equals("topmost")) { (ap.ActionController as ActionController).DiscoveryForm.TopMost = true; } else if (nextcmd.Equals("normalz")) { (ap.ActionController as ActionController).DiscoveryForm.TopMost = false; } else if (nextcmd.Equals("showintaskbar")) { (ap.ActionController as ActionController).DiscoveryForm.ShowInTaskbar = true; } else if (nextcmd.Equals("notshowintaskbar")) { (ap.ActionController as ActionController).DiscoveryForm.ShowInTaskbar = false; } else if (nextcmd.Equals("minimize")) { (ap.ActionController as ActionController).DiscoveryForm.WindowState = FormWindowState.Minimized; } else if (nextcmd.Equals("normal")) { (ap.ActionController as ActionController).DiscoveryForm.WindowState = FormWindowState.Normal; } else if (nextcmd.Equals("maximize")) { (ap.ActionController as ActionController).DiscoveryForm.WindowState = FormWindowState.Maximized; } else if (nextcmd.Equals("location")) { int?x = sp.NextWordComma().InvariantParseIntNull(); int?y = sp.NextWordComma().InvariantParseIntNull(); int?w = sp.NextWordComma().InvariantParseIntNull(); int?h = sp.NextWord().InvariantParseIntNull(); if (x.HasValue && y.HasValue && w.HasValue && h.HasValue) { (ap.ActionController as ActionController).DiscoveryForm.Location = new Point(x.Value, y.Value); (ap.ActionController as ActionController).DiscoveryForm.Size = new Size(w.Value, h.Value); } else { ap.ReportError("Location needs x,y,w,h in Popout"); } } else if (nextcmd.Equals("position")) { int?x = sp.NextWordComma().InvariantParseIntNull(); int?y = sp.NextWord().InvariantParseIntNull(); if (x.HasValue && y.HasValue) { (ap.ActionController as ActionController).DiscoveryForm.Location = new Point(x.Value, y.Value); } else { ap.ReportError("Position needs x,y in Popout"); } } else if (nextcmd.Equals("size")) { int?w = sp.NextWordComma().InvariantParseIntNull(); int?h = sp.NextWord().InvariantParseIntNull(); if (w.HasValue && h.HasValue) { (ap.ActionController as ActionController).DiscoveryForm.Size = new Size(w.Value, h.Value); } else { ap.ReportError("Size needs x,y,w,h in Popout"); } } else { ap.ReportError("Unknown command " + nextcmd + " in Popout"); } } else { ap.ReportError(res); } return(true); }
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); } }
// 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"); } } } }
public string Read(string s, bool includeevent = false, string delimchars = " ") { BaseUtils.StringParser sp = new BaseUtils.StringParser(s); return(Read(sp, includeevent, delimchars)); }
public string Read(System.IO.TextReader sr, ref int lineno) // read from stream { string err = ""; programsteps = new List <ActionBase>(); Name = ""; List <int> indents = new List <int>(); List <int> level = new List <int>(); int indentpos = -1; int structlevel = 0; string completeline; int initiallineno = lineno; while ((completeline = sr.ReadLine()) != null) { lineno++; completeline = completeline.Replace("\t", " "); // detab, to spaces, tabs are worth 4. BaseUtils.StringParser p = new BaseUtils.StringParser(completeline); if (!p.IsEOL) { int curindent = p.Position; string cmd = ""; if (p.IsStringMoveOn("//")) // special, this is allowed to butt against text and still work { cmd = "//"; } else { cmd = p.NextWord(); } if (cmd.Equals("Else", StringComparison.InvariantCultureIgnoreCase)) { //System.Diagnostics.Debug.WriteLine("Else " + cmd + " " + p.LineLeft); if (p.IsStringMoveOn("If", StringComparison.InvariantCultureIgnoreCase)) // if Else followed by IF { cmd = "Else If"; } } string line = p.LineLeft; // and the rest of the line.. int commentpos = line.LastIndexOf("//"); string comment = ""; if (cmd != "//" && commentpos >= 0 && !line.InQuotes(commentpos)) // if not // command, and we have one.. { comment = line.Substring(commentpos + 2).Trim(); line = line.Substring(0, commentpos).TrimEnd(); //System.Diagnostics.Debug.WriteLine("Line <" + line + "> <" + comment + ">"); } if (cmd.Equals("PROGRAM", StringComparison.InvariantCultureIgnoreCase)) { Name = line; } else if (cmd.Equals("END", StringComparison.InvariantCultureIgnoreCase) && line.Equals("PROGRAM", StringComparison.InvariantCultureIgnoreCase)) { break; } else { ActionBase a = ActionBase.CreateAction(cmd, line, comment); string vmsg; if (a == null) { err += lineno + " " + Name + " Unrecognised command " + cmd + Environment.NewLine; } else if ((vmsg = a.VerifyActionCorrect()) != null) { err += lineno + " " + Name + ":" + vmsg + Environment.NewLine + " " + completeline.Trim() + Environment.NewLine; } else { //System.Diagnostics.Debug.WriteLine(indentpos + ":" + structlevel + ": Cmd " + cmd + " : " + line); if (indentpos == -1) { indentpos = curindent; } else if (curindent > indentpos) // more indented, up one structure { structlevel++; indentpos = curindent; } else if (curindent < indentpos) // deindented { int tolevel = -1; for (int i = indents.Count - 1; i >= 0; i--) // search up and find the entry with the indent.. { if (indents[i] <= curindent) { tolevel = i; break; } } if (tolevel >= 0) // if found, we have a statement to hook to.. { // while in DO loop, or Else/Elseif in IF if ((a.Type == ActionBase.ActionType.While && programsteps[tolevel].Type == ActionBase.ActionType.Do) || ((a.Type == ActionBase.ActionType.Else || a.Type == ActionBase.ActionType.ElseIf) && programsteps[tolevel].Type == ActionBase.ActionType.If)) { int reallevel = level[tolevel] + 1; // else, while are dedented, but they really are on level+1 a.LevelUp = structlevel - reallevel; structlevel = reallevel; indentpos = indents[tolevel] + 4; // and our indent should continue 4 in, so we don't match against this when we do indent } else { a.LevelUp = structlevel - level[tolevel]; structlevel = level[tolevel]; // if found, we are at that.. except.. indentpos = indents[tolevel]; // and back to this level } } } a.LineNumber = lineno; //System.Diagnostics.Debug.WriteLine(" >>>> " + indentpos + ":" + structlevel); indents.Add(indentpos); level.Add(structlevel); programsteps.Add(a); } } } else { if (programsteps.Count > 0) { programsteps[programsteps.Count - 1].Whitespace = 1; } } } if (programsteps.Count > 0) { programsteps[programsteps.Count - 1].Whitespace = 0; // last cannot have whitespace.. } progclass = Classify(); return(err); }
static public string MakeEntry(string instr, out Entry entry, ref System.Drawing.Point lastpos) { entry = null; BaseUtils.StringParser sp = new BaseUtils.StringParser(instr); string name = sp.NextQuotedWordComma(); if (name == null) { return("Missing name"); } string type = sp.NextWordComma(lowercase: true); Type ctype = null; if (type == null) { return("Missing type"); } else if (type.Equals("button")) { ctype = typeof(ExtendedControls.ButtonExt); } else if (type.Equals("textbox")) { ctype = typeof(ExtendedControls.TextBoxBorder); } else if (type.Equals("checkbox")) { ctype = typeof(ExtendedControls.CheckBoxCustom); } else if (type.Equals("label")) { ctype = typeof(System.Windows.Forms.Label); } else if (type.Equals("combobox")) { ctype = typeof(ExtendedControls.ComboBoxCustom); } else { return("Unknown control type " + type); } string text = sp.NextQuotedWordComma(); if (text == null) { return("Missing text"); } int?x = sp.NextWordComma().InvariantParseIntNullOffset(lastpos.X); int?y = sp.NextWordComma().InvariantParseIntNullOffset(lastpos.Y); int?w = sp.NextWordComma().InvariantParseIntNull(); int?h = sp.NextWordComma().InvariantParseIntNull(); if (x == null || y == null || w == null || h == null) { return("Missing position/size"); } string tip = sp.NextQuotedWordComma(); // tip can be null entry = new ConfigurableForm.Entry(name, ctype, text, new System.Drawing.Point(x.Value, y.Value), new System.Drawing.Size(w.Value, h.Value), tip); if (type.Contains("textbox") && tip != null) { int?v = sp.NextWordComma().InvariantParseIntNull(); entry.textboxmultiline = v.HasValue && v.Value != 0; } if (type.Contains("checkbox") && tip != null) { int?v = sp.NextWordComma().InvariantParseIntNull(); entry.checkboxchecked = v.HasValue && v.Value != 0; } if (type.Contains("combobox")) { entry.comboboxitems = sp.LineLeft.Trim(); if (tip == null || entry.comboboxitems.Length == 0) { return("Missing paramters for combobox"); } } lastpos = new System.Drawing.Point(x.Value, y.Value); return(null); }
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"); } } } }