public static void OnParseEndParserItems(List <ParserError> arg1, Dictionary <int, ParsedLineInfo> lineInfos, List <ParsedItem> arg3) { if (lineInfos != null) { var lineInfoCopy = new Dictionary <int, ParsedLineInfo>(lineInfos); Task.Factory.StartNew(() => { UiThread.Invoke(() => SetFolding(ProCodeFormat.GetIndentation(lineInfoCopy))); }); } }
/// <summary> /// Called when the current document is saved, /// no matter if the document is a Progress file or not /// </summary> public static void DoNppDocumentSaved() { // if it's a conf file, import it ShareExportConf.TryToImportFile(Npp.CurrentFileInfo.Path); if (!Npp.CurrentFileInfo.IsProgress) { return; } // Display parser errors if any if (Config.Instance.DisplayParserErrorsOnSave && Npp.CurrentFileInfo.IsCompilable) { ProCodeFormat.DisplayParserErrors(true); } // update function prototypes ProGenerateCode.Factory.UpdateFunctionPrototypesIfNeeded(true); }
private AppliMenu() { // List of item that can be assigned to a shortcut ShortcutableItemList = new List <MenuItem> { // add the main menu here, so it can appear in the list of shortcut to set new MenuItem(null, "Open main menu", ImageResources.Logo20x20, item => ShowMainMenu(), "Show_main_menu_", "Alt+C") { Generic = true } }; #region Progress tools _progressTools = new List <MenuItem> { new MenuItem(this, "Progress desktop", ImageResources.ProDesktop, item => ProMisc.OpenProDesktop(), "Pro_desktop", "") { Generic = true }, new MenuItem(this, "Open in the AppBuilder", ImageResources.SendToAppbuilder, item => ProMisc.OpenCurrentInAppbuilder(), "Send_appbuilder", "Alt+O"), new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "PROLINT code", ImageResources.ProlintCode, item => ProMisc.StartProgressExec(ExecutionType.Prolint), "Prolint", "F12"), new MenuItem(this, "Deploy current file", ImageResources.Deploy, item => ProMisc.DeployCurrentFile(), "Deploy", "Ctrl+Alt+Prior") { Generic = true }, new MenuItem(this, "Generate DEBUG-LIST", ImageResources.ExtDbg, item => ProMisc.StartProgressExec(ExecutionType.GenerateDebugfile, compilation => compilation.CompileWithDebugList = true), "Generate_debug-list", null), new MenuItem(this, "Generate LISTING", ImageResources.ExtLis, item => ProMisc.StartProgressExec(ExecutionType.GenerateDebugfile, compilation => compilation.CompileWithListing = true), "Generate_listing", null), new MenuItem(this, "Generate XREF", ImageResources.ExtXrf, item => ProMisc.StartProgressExec(ExecutionType.GenerateDebugfile, compilation => compilation.CompileWithXref = true), "Generate_xref", null), new MenuItem(this, "Generate XREF-XML", ImageResources.ExtXml, item => ProMisc.StartProgressExec(ExecutionType.GenerateDebugfile, compilation => { compilation.CompileWithXref = true; compilation.UseXmlXref = true; }), "Generate_xrefxml", null), }; #endregion #region Generate code _generateCodeMenuList = new List <MenuItem> { new MenuItem(this, "Insert new internal procedure", ImageResources.Procedure, item => ProGenerateCode.Factory.InsertCode <ParsedProcedure>(), "Insert_new_procedure", "Alt+P"), new MenuItem(this, "Insert new function", ImageResources.Function, item => ProGenerateCode.Factory.InsertCode <ParsedImplementation>(), "Insert_new_function", "Alt+F"), new MenuItem(true), // -------------------------- new MenuItem(this, "Delete existing internal procedure", ImageResources.DeleteProcedure, item => ProGenerateCode.Factory.DeleteCode <ParsedProcedure>(), "Delete_procedure", ""), new MenuItem(this, "Delete existing function", ImageResources.DeleteFunction, item => ProGenerateCode.Factory.DeleteCode <ParsedImplementation>(), "Delete_function", ""), new MenuItem(true), // -------------------------- new MenuItem(this, "Synchronize function prototypes", ImageResources.Synchronize, item => ProGenerateCode.Factory.UpdateFunctionPrototypesIfNeeded(), "Synchronize_prototypes", "Alt+S") }; #endregion #region Edit code _editCodeList = new List <MenuItem> { new MenuItem(this, "Display parser errors", ImageResources.DisplayParserResults, item => ProCodeFormat.DisplayParserErrors(), "Check_parser_errors", null), new MenuItem(this, "Toggle comment line", ImageResources.ToggleComment, item => ProMisc.ToggleComment(), "Toggle_Comment", "Ctrl+Q"), new MenuItem(this, "Correct indentation (selection or all)", ImageResources.IndentCode, item => ProCodeFormat.CorrectCodeIndentation(), "Reindent_document", "Ctrl+I") //new MenuItem(this, "Format document", ImageResources.FormatCode, CodeBeautifier.CorrectCodeIndentation, "Format_document", "Ctrl+I"), }; #endregion #region Misc _modificationTagMenuList = new List <MenuItem> { new MenuItem(this, "Edit current file info", ImageResources.FileInfo, item => Appli.Appli.GoToPage(PageNames.FileInfo), "Edit_file_info", "Ctrl+Shift+M"), new MenuItem(this, "Insert title block", ImageResources.TitleBlock, item => ModificationTag.AddTitleBlockAtCaret(), "Insert_title_block", "Ctrl+Alt+M"), new MenuItem(this, "Surround with modification tags", ImageResources.ModificationTag, item => ModificationTag.SurroundSelectionWithTag(), "Modif_tags", "Ctrl+M") //new MenuItem(this, "Insert mark", ImageResources.InsertMark, null, "Insert_mark", "Ctrl+T"), }; #endregion #region database tools _databaseTools = new List <MenuItem> { new MenuItem(this, "Open data administration", ImageResources.DataAdmin, item => ProMisc.OpenDbAdmin(), "Data_admin", "") { Generic = true }, new MenuItem(this, "Open progress dictionary", ImageResources.Dictionary, item => ProMisc.OpenDictionary(), "Data_dictionary", "") { Generic = true }, new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "Explore and modify your data", ImageResources.DataDigger, item => ProMisc.OpenDataDigger(), "Data_digger", "") { Generic = true }, new MenuItem(this, "Explore (read-only) your data", ImageResources.DataReader, item => ProMisc.OpenDataReader(), "Data_reader", "") { Generic = true } }; #endregion #region Main menu var goToDefItem = new MenuItem(this, "Go to definition", ImageResources.GoToDefinition, item => ProMisc.GoToDefinition(false), "Go_To_Definition", "Ctrl+B") { Generic = true }; goToDefItem.SubText = "Middle click / " + goToDefItem.SubText; var goToPreviousJump = new MenuItem(this, "Go to previous jump point", ImageResources.GoBackward, item => Npp.GoBackFromDefinition(), "Go_Backwards", "Ctrl+Shift+B") { Generic = true }; goToPreviousJump.SubText = "Ctrl + Middle click / " + goToPreviousJump.SubText; MainMenuList = new List <MenuItem> { new MenuItem(this, "Show main window", ImageResources.MainWindow, item => Appli.Appli.ToggleView(), "Open_main_window", "Alt+Space") { Generic = true }, new MenuItem(this, "Show autocompletion at caret", ImageResources.Autocompletion, item => AutoCompletion.OnShowCompleteSuggestionList(), "Show_Suggestion_List", "Ctrl+Space") { Generic = true }, new MenuItem(this, "Toggle current file as progress", ImageResources.Progress, item => ProMisc.ReadCurrentFileAsProgress(), "Read_as_progress", null) { Generic = true }, new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "Open 4GL help", ImageResources.ProgressHelp, item => ProMisc.Open4GlHelp(), "Open_4GL_help", "F1") { Generic = true }, new MenuItem(this, "Check syntax", ImageResources.CheckCode, item => ProMisc.StartProgressExec(ExecutionType.CheckSyntax), "Check_syntax", "Shift+F1"), new MenuItem(this, "Run program", ImageResources.RunCode, item => ProMisc.StartProgressExec(ExecutionType.Run), "Run_program", "Ctrl+F1"), new MenuItem(this, "Compile", ImageResources.CompileCode, item => ProMisc.StartProgressExec(ExecutionType.Compile), "Compile", "Alt+F1"), new MenuItem(this, "Compile options", ImageResources.CompileOptions, item => ProMisc.OpenCompilationOptions(), "Compile_options", null), new MenuItem(this, "Progress tools", ImageResources.ProgressTools, item => ShowProgressToolsMenu(), "Progress_tools", "Alt+T") { Generic = true, Children = _progressTools.Cast <FilteredTypeTreeListItem>().ToList() }, new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "Start searching files", ImageResources.Search, item => FileExplorer.FileExplorer.Instance.StartSearch(), "Search_file", "Alt+Q") { Generic = true }, goToDefItem, goToPreviousJump, //new MenuItem(this, "New 4GL file", ImageResources.GenerateCode, ShowNewFileAtCursor, "New_file", "Ctrl+Shift+N") { // Children = GenerateCodeMenuList.Select(item => (YamuiMenuItem)item).ToList(), //}, new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "Switch environment", ImageResources.Env, item => ShowEnvMenu(), "Switch_env", "Ctrl+E") { Generic = true }, new MenuItem(this, "Database tools", ImageResources.DatabaseTools, item => ShowDatabaseToolsMenu(), "DatabaseTools", "Alt+D") { Generic = true, Children = _databaseTools.Cast <FilteredTypeTreeListItem>().ToList() }, new MenuItem(this, "Generate and revise code", ImageResources.GenerateCode, item => ShowGenerateCodeMenu(), "Generate_code", "Alt+Insert") { Generic = true, Children = _generateCodeMenuList.Cast <FilteredTypeTreeListItem>().ToList() }, new MenuItem(this, "Edit code", ImageResources.EditCode, item => ShowEditCodeMenu(), "Edit_code", "Alt+E") { Generic = true, Children = _editCodeList.Cast <FilteredTypeTreeListItem>().ToList() }, new MenuItem(this, "Modification tag", ImageResources.ModificationTagMenu, item => ShowMiscMenu(), "Modification_tag", "Alt+M") { Generic = true, Children = _modificationTagMenuList.Cast <FilteredTypeTreeListItem>().ToList() }, new MenuItem(true) { Generic = true }, // -------------------------- new MenuItem(this, "Options", ImageResources.ShowOptions, item => Appli.Appli.GoToPage(PageNames.OptionsGeneral), "Go_to_options", null) { Generic = true } }; #endregion #region special dev if (Config.IsDeveloper) { MainMenuList.Add( new MenuItem(this, "Tests", ImageResources.Tests, null, null, null, new List <MenuItem> { new MenuItem(this, "DebugTest1", ImageResources.TestTube, item => PlugDebug.DebugTest1(), "DebugTest1", "Ctrl+OemQuotes") { Generic = true }, new MenuItem(this, "DebugTest2", ImageResources.TestTube, item => PlugDebug.DebugTest2(), "DebugTest2", "Alt+OemQuotes") { Generic = true }, new MenuItem(this, "DebugTest3", ImageResources.TestTube, item => PlugDebug.DebugTest3(), "DebugTest3", "Shift+OemQuotes") { Generic = true }, new MenuItem(this, "Parse current file", ImageResources.TestTube, item => PlugDebug.ParseCurrentFile(), "ParseCurrentFile", "") { Generic = false }, new MenuItem(this, "GetCurrentFileParsedDebugfile", ImageResources.TestTube, item => PlugDebug.GetCurrentFileParsedDebugfile(), "GetCurrentFileParsedDebugfile", "") { Generic = false }, new MenuItem(this, "Parse reference file", ImageResources.TestTube, item => PlugDebug.ParseReferenceFile(), "ParseReferenceFile", "") { Generic = true }, new MenuItem(this, "Parse all files", ImageResources.TestTube, item => PlugDebug.ParseAllFiles(), "ParseAllFiles", "") { Generic = true } }) { Generic = true }); } #endregion }
public static void RunParserTests(string content) { // create unique temporary folder var testDir = Path.Combine(Npp.ConfigDirectory, "Tests", "RunParserTests_" + DateTime.Now.ToString("yy.MM.dd_HH-mm-ss-fff")); var perfFile = Path.Combine(testDir, "perfs.txt"); if (!Utils.CreateDirectory(testDir)) { return; } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // LEXER //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% var outLocation = Path.Combine(testDir, "Lexer_out.txt"); //------------ var watch = Stopwatch.StartNew(); //------------ ProTokenizer proTokenizer = new ProTokenizer(content); //-------------- watch.Stop(); //-------------- OutputLexerVisitor lexerVisitor = new OutputLexerVisitor(); proTokenizer.Accept(lexerVisitor); Utils.FileWriteAllText(outLocation, lexerVisitor.Output.ToString()); File.AppendAllText(perfFile, @"LEXER DONE in " + watch.ElapsedMilliseconds + @" ms > nb items = " + lexerVisitor.NbItems + "\r\n"); //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // PARSER //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% outLocation = Path.Combine(testDir, "Parser_out.txt"); //------------ watch = Stopwatch.StartNew(); //------------ Parser parser = new Parser(proTokenizer, "", null, true, null); //-------------- watch.Stop(); //------------ OutputParserVisitor parserVisitor = new OutputParserVisitor(); parser.Accept(parserVisitor); Utils.FileWriteAllText(outLocation, parserVisitor.Output.ToString()); File.AppendAllText(perfFile, @"PARSER DONE in " + watch.ElapsedMilliseconds + @" ms > nb items = " + parser.ParsedItemsList.Count + "\r\n"); //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // LINE INFO //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% outLocation = Path.Combine(testDir, "LineInfo_out.txt"); StringBuilder lineInfo = new StringBuilder(); var i = 0; var dic = parser.LineInfo; var dic2 = ProCodeFormat.GetIndentation(parser.LineInfo); while (dic.ContainsKey(i)) { lineInfo.AppendLine(i + 1 + " > " + dic2[i].BlockDepth + " , " + dic2[i].ExtraStatementDepth + " , " + dic[i].BlockStack.Peek() + " , " + dic[i].BlockStack.Peek().ScopeType + " , " + dic[i].BlockStack.Peek().Name); i++; } Utils.FileWriteAllText(outLocation, lineInfo.ToString()); File.AppendAllText(perfFile, @"nb items in Line info = " + parser.LineInfo.Count + "\r\n"); UserCommunication.Notify("Done :<br>" + testDir.ToHtmlLink()); }
/// <summary> /// Called when the user saves the current document (just before it saves itself) /// </summary> public static void OnNppFileBeforeSaved() { // check for block that are too long and display a warning if (Abl.IsCurrentFileFromAppBuilder && !CurrentFileObject.WarnedTooLong) { var warningMessage = new StringBuilder(); var explorerItemsList = ParserHandler.ParserVisitor.ParsedExplorerItemsList; if (explorerItemsList != null) { foreach (var codeExplorerItem in explorerItemsList.Where(codeExplorerItem => codeExplorerItem.Flag.HasFlag(CodeExplorerFlag.IsTooLong))) { warningMessage.AppendLine("<div><img src='IsTooLong'><img src='" + codeExplorerItem.Branch + "' style='padding-right: 10px'><a href='" + codeExplorerItem.GoToLine + "'>" + codeExplorerItem.DisplayText + "</a></div>"); } if (warningMessage.Length > 0) { warningMessage.Insert(0, "<h2>Friendly warning :</h2>It seems that your file can be opened in the appbuilder as a structured procedure, but i detected that one or several procedure/function blocks contains more than " + Config.Instance.GlobalMaxNbCharInBlock + " characters. A direct consequence is that you won't be able to open this file in the appbuilder, it will generate errors and it will be unreadable. Below is a list of incriminated blocks :<br><br>"); warningMessage.Append("<br><i>To prevent this, reduce the number of chararacters in the above blocks, deleting dead code and trimming spaces is a good place to start!</i>"); var curPath = CurrentFilePath; UserCommunication.NotifyUnique("AppBuilderLimit", warningMessage.ToString(), MessageImg.MsgHighImportance, "File saved", "Appbuilder limitations", args => { Npp.Goto(curPath, Int32.Parse(args.Link)); UserCommunication.CloseUniqueNotif("AppBuilderLimit"); }, 20); CurrentFileObject.WarnedTooLong = true; } } } // for debug purposes, check if the document can be parsed if (Config.IsDevelopper && ParserHandler.AblParser.ParserErrors.Count > 0) { UserCommunication.Notify("The parser found erros on this file:<br>" + ProCodeFormat.GetParserErrorDescription(), MessageImg.MsgInfo, "Parser message", "Errors found", 3); } }