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); }
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); }
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); }