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
278 lines
12 KiB
C#
278 lines
12 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.Linq;
|
|
|
|
namespace VisualPascalABC
|
|
{
|
|
public delegate void ParseInformationUpdatedDelegate(object obj, string fileName);
|
|
|
|
public class CodeCompletionParserController : VisualPascalABCPlugins.ICodeCompletionService
|
|
{
|
|
public static Dictionary<string, bool> filesToParse = new Dictionary<string, bool>(StringComparer.OrdinalIgnoreCase);
|
|
public VisualEnvironmentCompiler visualEnvironmentCompiler;
|
|
private System.Threading.Thread th = null;
|
|
private CodeCompletionProvider ccp;
|
|
public event ParseInformationUpdatedDelegate ParseInformationUpdated;
|
|
|
|
public void StopParseThread()
|
|
{
|
|
try
|
|
{
|
|
if (th != null)
|
|
{
|
|
IsDone = true;
|
|
th.Abort(); // надо бы заменить на что то современное
|
|
th.Join();
|
|
}
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
}
|
|
|
|
public CodeCompletionParserController()
|
|
{
|
|
this.th = new System.Threading.Thread(new System.Threading.ThreadStart(ParseInThread));
|
|
ccp = new CodeCompletionProvider();
|
|
}
|
|
|
|
public PascalABCCompiler.Parsers.ICodeCompletionDomConverter GetConverter(string fileName)
|
|
{
|
|
return CodeCompletion.CodeCompletionController.comp_modules[fileName] as PascalABCCompiler.Parsers.ICodeCompletionDomConverter;
|
|
}
|
|
|
|
public static string CurrentTwoLetterISO
|
|
{
|
|
get
|
|
{
|
|
return CodeCompletion.CodeCompletionController.currentLanguageISO;
|
|
}
|
|
set
|
|
{
|
|
CodeCompletion.CodeCompletionController.currentLanguageISO = value;
|
|
}
|
|
}
|
|
|
|
public void Init()
|
|
{
|
|
//LanguageProvider.Instance.SourceFilesProvider = visualEnvironmentCompiler.SourceFilesProvider;
|
|
CodeCompletion.CodeCompletionController.currentLanguageISO = PascalABCCompiler.StringResourcesLanguage.CurrentTwoLetterISO;
|
|
}
|
|
|
|
public void RenameFile(string OldFileName, string NewFileName)
|
|
{
|
|
if (string.Compare(OldFileName, NewFileName, true) != 0)
|
|
{
|
|
CodeCompletion.CodeCompletionController.comp_modules[NewFileName] = CodeCompletion.CodeCompletionController.comp_modules[OldFileName];
|
|
if (CodeCompletion.CodeCompletionController.comp_modules.ContainsKey(OldFileName))
|
|
CodeCompletion.CodeCompletionController.comp_modules.Remove(OldFileName);
|
|
filesToParse[NewFileName] = filesToParse[OldFileName];
|
|
if (filesToParse.ContainsKey(OldFileName))
|
|
filesToParse.Remove(OldFileName);
|
|
}
|
|
}
|
|
|
|
public void RegisterFileForParsing(string FileName)
|
|
{
|
|
filesToParse[FileName] = true;
|
|
}
|
|
|
|
public void CloseFile(string FileName)
|
|
{
|
|
if (CodeCompletion.CodeCompletionController.comp_modules[FileName] != null)
|
|
CodeCompletion.CodeCompletionController.comp_modules.Remove(FileName);
|
|
filesToParse.Remove(FileName);
|
|
}
|
|
|
|
public void SetAsChanged(string FileName)
|
|
{
|
|
if (FileName != null && filesToParse.ContainsKey(FileName))
|
|
filesToParse[FileName] = true;
|
|
}
|
|
|
|
public void SetAllInProjectChanged()
|
|
{
|
|
try
|
|
{
|
|
foreach (string s in filesToParse.Keys.ToArray())
|
|
{
|
|
if (ProjectFactory.Instance.CurrentProject.ContainsSourceFile(s))
|
|
filesToParse[s] = true;
|
|
}
|
|
}
|
|
catch (Exception e)
|
|
{
|
|
|
|
}
|
|
}
|
|
|
|
public void RunParseThread()
|
|
{
|
|
th = new System.Threading.Thread(InternalParsing);
|
|
th.Priority = System.Threading.ThreadPriority.BelowNormal;
|
|
th.IsBackground = true;
|
|
th.Start();
|
|
}
|
|
|
|
public void StopParsing()
|
|
{
|
|
try
|
|
{
|
|
VisualPABCSingleton.MainForm.StopTimer();
|
|
}
|
|
catch
|
|
{
|
|
|
|
}
|
|
}
|
|
|
|
private volatile bool IsDone = false;
|
|
|
|
private void InternalParsing()
|
|
{
|
|
while (!IsDone)
|
|
{
|
|
ParseInThread();
|
|
if (IsDone)
|
|
break;
|
|
System.Threading.Thread.Sleep(2000);
|
|
}
|
|
}
|
|
|
|
private long mem_delta = 0;
|
|
|
|
internal void ParseInThread()
|
|
{
|
|
try
|
|
{
|
|
Dictionary<string, string> recomp_files = new Dictionary<string, string>(StringComparer.OrdinalIgnoreCase);
|
|
bool is_comp = false;
|
|
foreach (string FileName in filesToParse.Keys.ToArray()) // копирование ключей обязательно, иначе будет InvalidOperationException EVA
|
|
{
|
|
|
|
if (filesToParse[FileName])
|
|
{
|
|
is_comp = true;
|
|
CodeCompletion.CodeCompletionController controller = new CodeCompletion.CodeCompletionController();
|
|
string text = visualEnvironmentCompiler.SourceFilesProvider(FileName, PascalABCCompiler.SourceFileOperation.GetText) as string;
|
|
if (string.IsNullOrEmpty(text))
|
|
text = "begin end.";
|
|
CodeCompletion.DomConverter tmp = CodeCompletion.CodeCompletionController.comp_modules[FileName] as CodeCompletion.DomConverter;
|
|
long cur_mem = Environment.WorkingSet;
|
|
CodeCompletion.DomConverter dc = controller.Compile(FileName, text);
|
|
mem_delta += Environment.WorkingSet - cur_mem;
|
|
filesToParse[FileName] = false;
|
|
if (dc.is_compiled)
|
|
{
|
|
//CodeCompletion.CodeCompletionController.comp_modules.Remove(file_name);
|
|
if (tmp != null && tmp.visitor.entry_scope != null)
|
|
{
|
|
tmp.visitor.entry_scope.Clear();
|
|
if (tmp.visitor.cur_scope != null)
|
|
tmp.visitor.cur_scope.Clear();
|
|
}
|
|
CodeCompletion.CodeCompletionController.comp_modules[FileName] = dc;
|
|
recomp_files[FileName] = FileName;
|
|
filesToParse[FileName] = false;
|
|
if (ParseInformationUpdated != null)
|
|
ParseInformationUpdated(dc.visitor.entry_scope, FileName);
|
|
}
|
|
else if (CodeCompletion.CodeCompletionController.comp_modules[FileName] == null)
|
|
CodeCompletion.CodeCompletionController.comp_modules[FileName] = dc;
|
|
}
|
|
}
|
|
foreach (string FileName in filesToParse.Keys.ToArray()) // копирование ключей обязательно, иначе будет InvalidOperationException EVA
|
|
{
|
|
CodeCompletion.DomConverter dc = CodeCompletion.CodeCompletionController.comp_modules[FileName] as CodeCompletion.DomConverter;
|
|
CodeCompletion.SymScope ss = null;
|
|
if (dc != null)
|
|
{
|
|
if (dc.visitor.entry_scope != null) ss = dc.visitor.entry_scope;
|
|
else if (dc.visitor.impl_scope != null) ss = dc.visitor.impl_scope;
|
|
int j = 0;
|
|
while (j < 2)
|
|
{
|
|
if (j == 0)
|
|
{
|
|
ss = dc.visitor.entry_scope;
|
|
j++;
|
|
}
|
|
else
|
|
{
|
|
ss = dc.visitor.impl_scope;
|
|
j++;
|
|
}
|
|
if (ss != null)
|
|
{
|
|
for (int i = 0; i < ss.used_units.Count; i++)
|
|
{
|
|
string s = ss.used_units[i].file_name;
|
|
if (s != null && filesToParse.ContainsKey(s) && recomp_files.ContainsKey(s))
|
|
{
|
|
is_comp = true;
|
|
CodeCompletion.CodeCompletionController controller = new CodeCompletion.CodeCompletionController();
|
|
string text = visualEnvironmentCompiler.SourceFilesProvider(FileName, PascalABCCompiler.SourceFileOperation.GetText) as string;
|
|
CodeCompletion.DomConverter tmp = CodeCompletion.CodeCompletionController.comp_modules[FileName] as CodeCompletion.DomConverter;
|
|
long cur_mem = Environment.WorkingSet;
|
|
dc = controller.Compile(FileName, text);
|
|
mem_delta += Environment.WorkingSet - cur_mem;
|
|
filesToParse[FileName] = false;
|
|
CodeCompletion.CodeCompletionController.comp_modules[FileName] = dc;
|
|
if (dc.is_compiled)
|
|
{
|
|
/*if (tmp != null && tmp.stv.entry_scope != null)
|
|
{
|
|
tmp.stv.entry_scope.Clear();
|
|
if (tmp.stv.cur_scope != null) tmp.stv.cur_scope.Clear();
|
|
}*/
|
|
CodeCompletion.CodeCompletionController.comp_modules[FileName] = dc;
|
|
recomp_files[FileName] = FileName;
|
|
ss.used_units[i] = dc.visitor.entry_scope;
|
|
if (ParseInformationUpdated != null)
|
|
ParseInformationUpdated(dc.visitor.entry_scope, FileName);
|
|
}
|
|
else if (CodeCompletion.CodeCompletionController.comp_modules[FileName] == null)
|
|
CodeCompletion.CodeCompletionController.comp_modules[FileName] = dc;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (is_comp && mem_delta > 20000000 /*&& mem_delta > 10000000*/)
|
|
//postavil delta dlja pamjati, posle kototoj delaetsja sborka musora
|
|
{
|
|
mem_delta = 0;
|
|
GC.Collect();
|
|
}
|
|
}
|
|
catch (Exception) { }
|
|
|
|
}
|
|
|
|
public bool IsParsing()
|
|
{
|
|
return th != null && th.ThreadState == System.Threading.ThreadState.Running;
|
|
}
|
|
|
|
public void ParseAllFiles()
|
|
{
|
|
if (visualEnvironmentCompiler.UserOptions.AllowCodeCompletion)// && visualEnvironmentCompiler.compilerLoaded)
|
|
{
|
|
if (th.ThreadState != System.Threading.ThreadState.Running)
|
|
{
|
|
th = new System.Threading.Thread(new System.Threading.ThreadStart(this.ParseInThread));
|
|
th.Priority = System.Threading.ThreadPriority.BelowNormal;
|
|
//th.IsBackground = true;
|
|
th.Start();
|
|
}
|
|
//if (th == null)
|
|
// RunParseThread();
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|