b23f9c96d0
* Refactor language information classes * Implement SimpleLanguageInformation abstract class * Move some properties to SimpleLanguageInformation * Implement format and debug buttons disabling if Intellisense is not supported for current language * Add Intellisense available check in FormsExtensions to deactivate menu items if needed * Change function interfaces in VisibilityService * Replace CodeCompletionController.CurrentParser null checks with IntellisenseAvailable method call * Refactor IParser and BaseParser to deduplicate code * Fix BuildTreeInSpecialMode in SPythonParser * Add SimpleParser class for new languages without Intellisense * Delete duplicate SetDebugButtonsEnabled function * Add Intellisense available check in RunService when attaching debugger * Delete inner check in SetDebugButtonsEnabled to improve architecture * Change CurrentParser property in CodeCompletion to be CurrentLanguage * Divide ILanguageInformation into two interfaces (creating new ILanguageIntellisenseSupport) * Fix LanguageIntellisenseSupport initialization in BaseLanguage * Fix RunService fictive_attach logic * Disable Intellisense parsing for languages without Intellisense support * Add DefaultLanguageInformation abstract class * Add default implementation for SetSemanticConstants in BaseLanguage * Simplify IParser interface * Update developer guide documentation
340 lines
17 KiB
C#
340 lines
17 KiB
C#
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
|
|
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
|
|
using System;
|
|
using System.Collections.Generic;
|
|
using System.Drawing;
|
|
using System.IO;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using System.Threading;
|
|
using System.Windows.Forms;
|
|
using VisualPascalABCPlugins;
|
|
|
|
namespace VisualPascalABC
|
|
{
|
|
public class WorkbenchBuildService : IWorkbenchBuildService
|
|
{
|
|
public PascalABCCompiler.CompilerOptions CompilerOptions1 = new PascalABCCompiler.CompilerOptions();
|
|
bool __ForRun;
|
|
string __RuntimeServicesModule;
|
|
bool __savePCU;
|
|
public List<PascalABCCompiler.Errors.Error> ErrorsList = new List<PascalABCCompiler.Errors.Error>();
|
|
|
|
IWorkbench Workbench;
|
|
IWorkbenchProjectService ProjectService;
|
|
IWorkbenchDesignerService DesignerService;
|
|
IWorkbenchDocumentService DocumentService;
|
|
|
|
public WorkbenchBuildService()
|
|
{
|
|
Workbench = WorkbenchServiceFactory.Workbench;
|
|
ProjectService = WorkbenchServiceFactory.ProjectService;
|
|
DesignerService = WorkbenchServiceFactory.DesignerService;
|
|
DocumentService = WorkbenchServiceFactory.DocumentService;
|
|
}
|
|
|
|
public PascalABCCompiler.CompilerOptions CompilerOptions
|
|
{
|
|
get
|
|
{
|
|
return CompilerOptions1;
|
|
}
|
|
}
|
|
|
|
List<PascalABCCompiler.Errors.Error> IWorkbenchBuildService.ErrorsList
|
|
{
|
|
get
|
|
{
|
|
return ErrorsList;
|
|
}
|
|
}
|
|
|
|
public BuildServiceActionDelegate BeforeCompile { get; set; } = null;
|
|
|
|
//kompilacija proekta
|
|
public string Compile(PascalABCCompiler.IProjectInfo project, bool rebuild, string RuntimeServicesModule, bool ForRun, bool RunWithEnvironment)
|
|
{
|
|
ProjectService.SaveProject();
|
|
Workbench.WidgetController.CompilingAndRunButtonsEnabled = false;
|
|
Workbench.CompilerConsoleWindow.ClearConsole();
|
|
CompilerOptions1.SourceFileName = project.Path;
|
|
CompilerOptions1.OutputDirectory = project.OutputDirectory;
|
|
CompilerOptions1.ProjectCompiled = true;
|
|
if (project.ProjectType == PascalABCCompiler.ProjectType.WindowsApp)
|
|
CompilerOptions1.OutputFileType = PascalABCCompiler.CompilerOptions.OutputType.WindowsApplication;
|
|
ErrorsList.Clear();
|
|
CompilerOptions1.Rebuild = rebuild;
|
|
CompilerOptions1.Locale = PascalABCCompiler.StringResourcesLanguage.CurrentTwoLetterISO;
|
|
CompilerOptions1.UseDllForSystemUnits = false;
|
|
CompilerOptions1.RunWithEnvironment = RunWithEnvironment;
|
|
bool savePCU = Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate;
|
|
if (Path.GetDirectoryName(CompilerOptions1.SourceFileName).ToLower() == WorkbenchStorage.StandartDirectories[Constants.LibSourceDirectoryIdent].ToLower())
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = false;
|
|
|
|
if (RuntimeServicesModule != null)
|
|
{
|
|
AddRuntimeServicesModuleToStandardModules(RuntimeServicesModule);
|
|
}
|
|
|
|
string ofn = Workbench.VisualEnvironmentCompiler.Compile(CompilerOptions1);
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = savePCU;
|
|
|
|
if (RuntimeServicesModule != null)
|
|
{
|
|
RemoveRuntimeServicesModuleFromStandardModules();
|
|
}
|
|
|
|
if (Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList.Count != 0 || Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0)
|
|
{
|
|
List<PascalABCCompiler.Errors.Error> ErrorsAndWarnings = new List<PascalABCCompiler.Errors.Error>();
|
|
List<PascalABCCompiler.Errors.Error> Errors = Workbench.ErrorsManager.CreateErrorsList(Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList);
|
|
AddErrors(ErrorsAndWarnings, Errors);
|
|
//if (!ForRun)
|
|
AddWarnings(ErrorsAndWarnings, Workbench.VisualEnvironmentCompiler.Compiler.Warnings);
|
|
Workbench.ErrorsListWindow.ShowErrorsSync(ErrorsAndWarnings, Errors.Count != 0 || (Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0 && !ForRun));
|
|
}
|
|
return ofn;
|
|
}
|
|
|
|
public string Compile(string FileName, bool rebuild, string RuntimeServicesModule, bool ForRun, bool RunWithEnvironment)
|
|
{
|
|
Workbench.WidgetController.CompilingAndRunButtonsEnabled = false;
|
|
|
|
var UserOptions = Workbench.UserOptions;
|
|
|
|
Workbench.CompilerConsoleWindow.ClearConsole();
|
|
|
|
CompilerOptions1.SourceFileName = FileName;
|
|
CompilerOptions1.Locale = PascalABCCompiler.StringResourcesLanguage.CurrentTwoLetterISO;
|
|
if (Path.GetDirectoryName(FileName) == "" && WorkbenchStorage.WorkingDirectoryExsist)
|
|
CompilerOptions1.OutputDirectory = WorkbenchStorage.WorkingDirectory;
|
|
|
|
if (Workbench.UserOptions.UseOutputDirectory && Directory.Exists(UserOptions.OutputDirectory))
|
|
CompilerOptions1.OutputDirectory = UserOptions.OutputDirectory;
|
|
|
|
CompilerOptions1.Rebuild = rebuild;
|
|
CompilerOptions1.RunWithEnvironment = RunWithEnvironment;
|
|
//string runtimeModuleFileName = CompilerOptions1.SearchDirectory + "\\" + RuntimeServicesModule;
|
|
//if (RuntimeServicesModule!=null && File.Exists(runtimeModuleFileName))
|
|
// CompilerOptions1.StandardModules.Add(new PascalABCCompiler.CompilerOptions.StandardModule(runtimeModuleFileName, PascalABCCompiler.CompilerOptions.StandartModuleAddMethod.RightToMain));
|
|
|
|
|
|
if (RuntimeServicesModule != null)
|
|
{
|
|
AddRuntimeServicesModuleToStandardModules(RuntimeServicesModule);
|
|
}
|
|
|
|
ErrorsList.Clear();
|
|
|
|
//CompilerOptions1.SavePCUInThreadPull = true;
|
|
bool savePCU = Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate;
|
|
if (Path.GetDirectoryName(FileName).ToLower() == WorkbenchStorage.StandartDirectories[Constants.LibSourceDirectoryIdent].ToLower())
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = false;
|
|
|
|
string ofn = Workbench.VisualEnvironmentCompiler.Compile(CompilerOptions1);
|
|
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = savePCU;
|
|
|
|
if (RuntimeServicesModule != null)
|
|
{
|
|
RemoveRuntimeServicesModuleFromStandardModules();
|
|
}
|
|
|
|
if (Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList.Count != 0 || Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0)
|
|
{
|
|
List<PascalABCCompiler.Errors.Error> ErrorsAndWarnings = new List<PascalABCCompiler.Errors.Error>();
|
|
List<PascalABCCompiler.Errors.Error> Errors = Workbench.ErrorsManager.CreateErrorsList(Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList);
|
|
AddErrors(ErrorsAndWarnings, Errors);
|
|
//if (!ForRun)
|
|
AddWarnings(ErrorsAndWarnings, Workbench.VisualEnvironmentCompiler.Compiler.Warnings);
|
|
Workbench.ErrorsListWindow.ShowErrorsSync(ErrorsAndWarnings, Errors.Count != 0 || (Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0 && !ForRun));
|
|
}
|
|
return ofn;
|
|
}
|
|
|
|
public void StartCompile(PascalABCCompiler.IProjectInfo project, bool rebuild, string RuntimeServicesModule, bool ForRun, bool RunWithEnvironment)
|
|
{
|
|
ProjectService.SaveProject();
|
|
__RuntimeServicesModule = RuntimeServicesModule;
|
|
__ForRun = ForRun;
|
|
Workbench.CompilerConsoleWindow.ClearConsole();
|
|
var UserOptions = Workbench.UserOptions;
|
|
|
|
CompilerOptions1.SourceFileName = project.Path;
|
|
CompilerOptions1.ProjectCompiled = true;
|
|
CompilerOptions1.Locale = PascalABCCompiler.StringResourcesLanguage.CurrentTwoLetterISO;
|
|
if (UserOptions.UseOutputDirectory && Directory.Exists(UserOptions.OutputDirectory))
|
|
CompilerOptions1.OutputDirectory = UserOptions.OutputDirectory;
|
|
|
|
CompilerOptions1.Rebuild = rebuild;
|
|
CompilerOptions1.RunWithEnvironment = RunWithEnvironment;
|
|
//string runtimeModuleFileName = CompilerOptions1.SearchDirectory + "\\" + RuntimeServicesModule;
|
|
//if (RuntimeServicesModule!=null && File.Exists(runtimeModuleFileName))
|
|
// CompilerOptions1.StandardModules.Add(new PascalABCCompiler.CompilerOptions.StandardModule(runtimeModuleFileName, PascalABCCompiler.CompilerOptions.StandartModuleAddMethod.RightToMain));
|
|
|
|
if (__RuntimeServicesModule != null)
|
|
{
|
|
AddRuntimeServicesModuleToStandardModules(RuntimeServicesModule);
|
|
}
|
|
|
|
|
|
ErrorsList.Clear();
|
|
|
|
//CompilerOptions1.SavePCUInThreadPull = true;
|
|
__savePCU = Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate;
|
|
//if (Path.GetDirectoryName(file_name).ToLower() == ((string)StandartDirectories[Constants.LibSourceDirectoryIdent]).ToLower())
|
|
// VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = false;
|
|
|
|
Workbench.VisualEnvironmentCompiler.Compiler.OnChangeCompilerState += CompilationOnChangeCompilerState;
|
|
|
|
Workbench.VisualEnvironmentCompiler.StartCompile(CompilerOptions1);
|
|
}
|
|
|
|
public void StartCompile(string FileName, bool rebuild, string RuntimeServicesModule, bool ForRun, bool RunWithEnvironment)
|
|
{
|
|
__RuntimeServicesModule = RuntimeServicesModule;
|
|
__ForRun = ForRun;
|
|
Workbench.CompilerConsoleWindow.ClearConsole();
|
|
var UserOptions = Workbench.UserOptions;
|
|
CompilerOptions1.SourceFileName = FileName;
|
|
CompilerOptions1.Locale = PascalABCCompiler.StringResourcesLanguage.CurrentTwoLetterISO;
|
|
if (Path.GetDirectoryName(FileName) == "" && WorkbenchStorage.WorkingDirectoryExsist)
|
|
CompilerOptions1.OutputDirectory = WorkbenchStorage.WorkingDirectory;
|
|
|
|
if (UserOptions.UseOutputDirectory && Directory.Exists(UserOptions.OutputDirectory))
|
|
CompilerOptions1.OutputDirectory = UserOptions.OutputDirectory;
|
|
|
|
|
|
CompilerOptions1.Rebuild = rebuild;
|
|
CompilerOptions1.RunWithEnvironment = RunWithEnvironment;
|
|
//string runtimeModuleFileName = CompilerOptions1.SearchDirectory + "\\" + RuntimeServicesModule;
|
|
//if (RuntimeServicesModule!=null && File.Exists(runtimeModuleFileName))
|
|
// CompilerOptions1.StandardModules.Add(new PascalABCCompiler.CompilerOptions.StandardModule(runtimeModuleFileName, PascalABCCompiler.CompilerOptions.StandartModuleAddMethod.RightToMain));
|
|
|
|
if (__RuntimeServicesModule != null)
|
|
{
|
|
AddRuntimeServicesModuleToStandardModules(RuntimeServicesModule);
|
|
}
|
|
|
|
ErrorsList.Clear();
|
|
|
|
//CompilerOptions1.SavePCUInThreadPull = true;
|
|
__savePCU = Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate;
|
|
if (Path.GetDirectoryName(FileName).ToLower() == WorkbenchStorage.StandartDirectories[Constants.LibSourceDirectoryIdent].ToLower())
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = false;
|
|
|
|
Workbench.VisualEnvironmentCompiler.Compiler.OnChangeCompilerState += CompilationOnChangeCompilerState;
|
|
|
|
Workbench.VisualEnvironmentCompiler.StartCompile(CompilerOptions1);
|
|
|
|
}
|
|
|
|
/// <summary>
|
|
/// Удаляет модуль сервиса времени выполнения из списков стандартных модулей всех языков
|
|
/// </summary>
|
|
private void RemoveRuntimeServicesModuleFromStandardModules()
|
|
{
|
|
foreach (var kv in CompilerOptions1.StandardModules)
|
|
{
|
|
CompilerOptions1.RemoveStandardModuleAtIndex(kv.Key, CompilerOptions1.StandardModules[kv.Key].Count - 1);
|
|
}
|
|
}
|
|
|
|
/// <summary>
|
|
/// Добавляет модуль сервиса времени выполнения в списки стандартных модулей всех языков
|
|
/// </summary>
|
|
private void AddRuntimeServicesModuleToStandardModules(string RuntimeServicesModule)
|
|
{
|
|
foreach (var kv in CompilerOptions1.StandardModules)
|
|
{
|
|
kv.Value.Add(new PascalABCCompiler.CompilerOptions.StandardModule(RuntimeServicesModule,
|
|
PascalABCCompiler.CompilerOptions.StandardModuleAddMethod.RightToMain, kv.Key));
|
|
}
|
|
}
|
|
|
|
public bool Build()
|
|
{
|
|
Workbench.OutputWindow.ClearTextBox();
|
|
Workbench.ErrorsListWindow.ClearErrorList();
|
|
DesignerService.GenerateAllDesignersCode();
|
|
CompilerOptions1.UseDllForSystemUnits = false;
|
|
if (!ProjectFactory.Instance.ProjectLoaded)
|
|
return Compile(DocumentService.CurrentCodeFileDocument.FileName, false, null, false, false) != null;
|
|
else
|
|
return Compile(ProjectFactory.Instance.CurrentProject, false, null, false, false) != null;
|
|
}
|
|
|
|
public bool Build(string FileName)
|
|
{
|
|
Workbench.OutputWindow.ClearTextBox();
|
|
Workbench.ErrorsListWindow.ClearErrorList();
|
|
/*while (codeCompletionParserController.IsParsing())
|
|
Thread.Sleep(10);*/
|
|
CompilerOptions1.UseDllForSystemUnits = false;
|
|
return Compile(FileName, false, null, false, false) != null;
|
|
}
|
|
|
|
public bool Rebuild()
|
|
{
|
|
Workbench.OutputWindow.ClearTextBox();
|
|
Workbench.ErrorsListWindow.ClearErrorList();
|
|
DesignerService.GenerateAllDesignersCode();
|
|
CompilerOptions1.UseDllForSystemUnits = false;
|
|
if (!ProjectFactory.Instance.ProjectLoaded)
|
|
return Compile(DocumentService.CurrentCodeFileDocument.FileName, true, null, false, false) != null;
|
|
else
|
|
return Compile(ProjectFactory.Instance.CurrentProject, true, null, false, false) != null;
|
|
}
|
|
|
|
public void StartCompile(bool rebuild)
|
|
{
|
|
VisualPABCSingleton.MainForm.OutputWindow.outputTextBox.Clear();
|
|
Workbench.ErrorsListWindow.ClearErrorList();
|
|
DesignerService.GenerateAllDesignersCode();
|
|
CompilerOptions1.UseDllForSystemUnits = false;
|
|
if (!ProjectFactory.Instance.ProjectLoaded)
|
|
StartCompile(DocumentService.CurrentCodeFileDocument.FileName, rebuild, null, false, false);
|
|
else
|
|
StartCompile(ProjectFactory.Instance.CurrentProject, rebuild, null, false, false);
|
|
}
|
|
|
|
void CompilationOnChangeCompilerState(PascalABCCompiler.ICompiler sender, PascalABCCompiler.CompilerState State, string FileName)
|
|
{
|
|
switch (State)
|
|
{
|
|
case PascalABCCompiler.CompilerState.CompilationFinished:
|
|
Workbench.VisualEnvironmentCompiler.Compiler.InternalDebug.PCUGenerate = __savePCU;
|
|
|
|
if (__RuntimeServicesModule != null)
|
|
{
|
|
RemoveRuntimeServicesModuleFromStandardModules();
|
|
}
|
|
|
|
if (Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList.Count != 0 || Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0)
|
|
{
|
|
List<PascalABCCompiler.Errors.Error> ErrorsAndWarnings = new List<PascalABCCompiler.Errors.Error>();
|
|
List<PascalABCCompiler.Errors.Error> Errors = Workbench.ErrorsManager.CreateErrorsList(Workbench.VisualEnvironmentCompiler.Compiler.ErrorsList);
|
|
AddErrors(ErrorsAndWarnings, Errors);
|
|
//if (!ForRun)
|
|
AddWarnings(ErrorsAndWarnings, Workbench.VisualEnvironmentCompiler.Compiler.Warnings);
|
|
Workbench.ErrorsListWindow.ShowErrorsSync(ErrorsAndWarnings, Errors.Count != 0 || (Workbench.VisualEnvironmentCompiler.Compiler.Warnings.Count != 0 && !__ForRun));
|
|
}
|
|
Workbench.VisualEnvironmentCompiler.Compiler.OnChangeCompilerState -= CompilationOnChangeCompilerState;
|
|
break;
|
|
}
|
|
}
|
|
|
|
public void AddWarnings(List<PascalABCCompiler.Errors.Error> Errors, List<PascalABCCompiler.Errors.CompilerWarning> warns)
|
|
{
|
|
foreach (PascalABCCompiler.Errors.CompilerWarning w in warns)
|
|
Errors.Add(w);
|
|
}
|
|
|
|
public void AddErrors(List<PascalABCCompiler.Errors.Error> Errors, List<PascalABCCompiler.Errors.Error> ers)
|
|
{
|
|
foreach (PascalABCCompiler.Errors.Error e in ers)
|
|
Errors.Add(e);
|
|
}
|
|
}
|
|
}
|