public CodeCompletion.SymScope FindScopeByLocation(string fileName, int line, int col)
{
CodeCompletion.DomConverter dconv = (CodeCompletion.DomConverter)CodeCompletion.CodeCompletionController.comp_modules[fileName];
if (dconv == null)
{
return(null);
}
return(dconv.FindScopeByLocation(line, col));
}
private List <SymbolsViewerSymbol> InternalFindReferences(string fname, PascalABCCompiler.SyntaxTree.expression expr, int line, int col, bool for_refact)
{
List <PascalABCCompiler.Parsers.Position> lst = new List <PascalABCCompiler.Parsers.Position>();
List <SymbolsViewerSymbol> svs_lst = new List <SymbolsViewerSymbol>();
try
{
CodeCompletion.DomConverter dc = CodeCompletion.CodeCompletionController.comp_modules[fname] as CodeCompletion.DomConverter;
IBaseScope fnd_scope = null;
IBaseScope cur_sc = null;
if (dc != null)
{
fnd_scope = dc.GetSymDefinition(expr, line, col, keyword);
cur_sc = dc.FindScopeByLocation(line, col);
}
if (fnd_scope != null)
{
foreach (string FileName in CodeCompletionParserController.open_files.Keys)
{
CodeCompletion.CodeCompletionController controller = new CodeCompletion.CodeCompletionController();
string text = VisualPABCSingleton.MainForm.VisualEnvironmentCompiler.SourceFilesProvider(FileName, PascalABCCompiler.SourceFileOperation.GetText) as string;
PascalABCCompiler.SyntaxTree.compilation_unit cu = controller.ParseOnlySyntaxTree(FileName, text);
if (cu != null)
{
dc = CodeCompletion.CodeCompletionController.comp_modules[FileName] as CodeCompletion.DomConverter;
CodeCompletion.ReferenceFinder rf = null;
if (dc != null && dc.visitor.entry_scope != null)
{
rf = new CodeCompletion.ReferenceFinder(fnd_scope, dc.visitor.entry_scope, cu, FileName, for_refact);
lst.AddRange(rf.FindPositions());
}
}
}
PascalABCCompiler.Parsers.Position p = fnd_scope.GetPosition();
bool need_add_def = !for_refact; // true
if (p.file_name != null && need_add_def)
{
svs_lst.Add(new SymbolsViewerSymbol(new PascalABCCompiler.SourceLocation(p.file_name, p.line, p.column, p.end_line, p.end_column), ImagesProvider.GetPictureNum(fnd_scope.SymbolInfo)));
}
foreach (PascalABCCompiler.Parsers.Position pos in lst)
{
if (pos.file_name != null)
{
svs_lst.Add(new SymbolsViewerSymbol(new PascalABCCompiler.SourceLocation(pos.file_name, pos.line, pos.column, pos.end_line, pos.end_column), ImagesProvider.IconNumberGotoText));
}
}
}
}
catch (Exception e)
{
}
GC.Collect();
return(svs_lst);
//return svs_lst.ToArray();
}
/// <summary>
/// Return true to handle the keypress, return false to let the text area handle the keypress
/// </summary>
bool TextAreaKeyEventHandler(char key)
{
if (!WorkbenchServiceFactory.Workbench.UserOptions.AllowCodeCompletion || !VisualPABCSingleton.MainForm.VisualEnvironmentCompiler.compilerLoaded)
{
return(false);
}
if (CodeCompletion.CodeCompletionController.CurrentParser == null)
{
return(false);
}
if (codeCompletionWindow != null)
{
// If completion window is open and wants to handle the key, don't let the text area
// handle it
if (codeCompletionWindow.ProcessKeyEvent(key))
{
return(true);
}
}
else
{
PABCNETCodeCompletionWindow ccw = CodeCompletionNamesOnlyInModuleAction.comp_windows[editor.ActiveTextAreaControl.TextArea] as PABCNETCodeCompletionWindow;
if (ccw != null && CodeCompletionNamesOnlyInModuleAction.is_begin)
{
CodeCompletionNamesOnlyInModuleAction.is_begin = false;
if (key != ' ')
{
ccw.ProcessKeyEvent(key);
}
else
{
ccw.ProcessKeyEvent('_');
ccw.Close();
}
}
else if (ccw != null && ccw.ProcessKeyEvent(key))
{
return(true);
}
}
if (key == '.')
{
if (CodeCompletion.CodeCompletionController.CurrentParser == null)
{
return(false);
}
if (!string.IsNullOrEmpty(WorkbenchServiceFactory.DocumentService.CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.SelectionManager.SelectedText))
{
WorkbenchServiceFactory.DocumentService.CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.Caret.Position = WorkbenchServiceFactory.DocumentService.CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.SelectionManager.SelectionCollection[0].StartPosition;
WorkbenchServiceFactory.DocumentService.CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.SelectionManager.RemoveSelectedText();
}
if (WorkbenchServiceFactory.Workbench.UserOptions.CodeCompletionDot)
{
completionDataProvider = new CodeCompletionProvider();
codeCompletionWindow = PABCNETCodeCompletionWindow.ShowCompletionWindow(
VisualPABCSingleton.MainForm, // The parent window for the completion window
editor, // The text editor to show the window for
editor.FileName, // Filename - will be passed back to the provider
completionDataProvider, // Provider to get the list of possible completions
key, // Key pressed - will be passed to the provider
true,
true,
PascalABCCompiler.Parsers.KeywordKind.None
);
CodeCompletionNamesOnlyInModuleAction.is_begin = true;
CodeCompletionNamesOnlyInModuleAction.comp_windows[editor.ActiveTextAreaControl.TextArea] = codeCompletionWindow;
if (codeCompletionWindow != null)
{
codeCompletionWindow.Closed += new EventHandler(CloseCodeCompletionWindow);
}
}
}
else if (key == '(' || key == '[' || key == ',')
{
if (CodeCompletion.CodeCompletionController.CurrentParser == null)
{
return(false);
}
if (VisualPABCSingleton.MainForm.UserOptions.CodeCompletionParams)
{
ICSharpCode.TextEditor.Gui.InsightWindow.IInsightDataProvider idp = new DefaultInsightDataProvider(-1, false, key);
if (insightWindow == null || insightWindow.InsightProviderStackLength == 0)
{
insightWindow = new PABCNETInsightWindow(VisualPABCSingleton.MainForm, editor);
insightWindow.Font = new Font(Constants.CompletionInsightWindowFontName, insightWindow.Font.Size);
insightWindow.Closed += new EventHandler(CloseInsightWindow);
}
else
{
(idp as DefaultInsightDataProvider).defaultIndex = insightWindow.GetCurrentData();
(idp as DefaultInsightDataProvider).cur_param_num = (insightWindow.GetInsightProvider() as DefaultInsightDataProvider).param_count;
}
insightWindow.AddInsightDataProvider(idp, editor.FileName);
insightWindow.ShowInsightWindow();
}
}
else if (key == ' ')
{
if (CodeCompletion.CodeCompletionController.CurrentParser == null)
{
return(false);
}
if (VisualPABCSingleton.MainForm.UserOptions.CodeCompletionDot)
{
PascalABCCompiler.Parsers.KeywordKind keyw = KeywordChecker.TestForKeyword(editor.Document.TextContent, editor.ActiveTextAreaControl.TextArea.Caret.Offset - 1);
if (keyw == PascalABCCompiler.Parsers.KeywordKind.New || keyw == PascalABCCompiler.Parsers.KeywordKind.Uses)
{
completionDataProvider = new CodeCompletionProvider();
codeCompletionWindow = PABCNETCodeCompletionWindow.ShowCompletionWindow(
VisualPABCSingleton.MainForm, // The parent window for the completion window
editor, // The text editor to show the window for
editor.FileName, // Filename - will be passed back to the provider
completionDataProvider, // Provider to get the list of possible completions
' ', // Key pressed - will be passed to the provider
true,
false,
keyw
);
CodeCompletionNamesOnlyInModuleAction.comp_windows[editor.ActiveTextAreaControl.TextArea] = codeCompletionWindow;
if (codeCompletionWindow != null)
{
codeCompletionWindow.Closed += new EventHandler(CloseCodeCompletionWindow);
}
//return true;
}
}
}
else if (key == '\n')
{
if (VisualPABCSingleton.MainForm.UserOptions.AllowCodeCompletion && CodeCompletion.CodeCompletionController.CurrentParser != null)
{
try
{
CodeCompletion.DomConverter dconv = (CodeCompletion.DomConverter)CodeCompletion.CodeCompletionController.comp_modules[editor.FileName];
if (dconv != null)
{
CodeCompletion.SymScope ss = dconv.FindScopeByLocation(editor.ActiveTextAreaControl.TextArea.Caret.Line + 1, editor.ActiveTextAreaControl.TextArea.Caret.Column + 1);
ss.IncreaseEndLine();
}
}
catch
{
}
}
}
else if (codeCompletionWindow == null && VisualPABCSingleton.MainForm.UserOptions.EnableSmartIntellisense && (char.IsLetter(key) || key == '_'))
{
if (VisualPABCSingleton.MainForm.UserOptions.CodeCompletionDot)
{
if (CodeCompletion.CodeCompletionController.CurrentParser == null)
{
return(false);
}
PascalABCCompiler.Parsers.KeywordKind keyw = KeywordChecker.TestForKeyword(editor.Document.TextContent, editor.ActiveTextAreaControl.TextArea.Caret.Offset - 1);
if (CodeCompletion.CodeCompletionController.CurrentParser.LanguageInformation.IsDefinitionIdentifierAfterKeyword(keyw))
{
return(false);
}
if (editor.ActiveTextAreaControl.TextArea.Caret.Offset > 0 && (char.IsLetterOrDigit(editor.Document.TextContent[editor.ActiveTextAreaControl.TextArea.Caret.Offset - 1]) || editor.Document.TextContent[editor.ActiveTextAreaControl.TextArea.Caret.Offset - 1] == '_'))
{
return(false);
}
completionDataProvider = new CodeCompletionProvider();
codeCompletionWindow = PABCNETCodeCompletionWindow.ShowCompletionWindowWithFirstChar(
VisualPABCSingleton.MainForm, // The parent window for the completion window
editor, // The text editor to show the window for
editor.FileName, // Filename - will be passed back to the provider
completionDataProvider, // Provider to get the list of possible completions
key, // Key pressed - will be passed to the provider
keyw
);
CodeCompletionNamesOnlyInModuleAction.comp_windows[editor.ActiveTextAreaControl.TextArea] = codeCompletionWindow;
if (codeCompletionWindow != null)
{
codeCompletionWindow.Closed += new EventHandler(CloseCodeCompletionWindow);
}
}
}
/*else if (codeCompletionWindow == null && key == '\n')
* {
* if (mainForm.UserOptions.AllowCodeFormatting)
* {
* if (CodeCompletion.CodeCompletionController.currentParser == null) return false;
* string bracket = CodeCompletion.CodeCompletionController.currentParser.LanguageInformation.GetBodyStartBracket();
* string end_bracket = CodeCompletion.CodeCompletionController.currentParser.LanguageInformation.GetBodyEndBracket();
* if (bracket != null)
* {
* int i = editor.ActiveTextAreaControl.TextArea.Caret.Offset-1;
* int j = bracket.Length-1;
* bool eq=true;
* while (i >= 0 && j >= 0)
* {
* if (editor.Document.TextContent[i] != bracket[j])
* {
* eq = false;
* break;
* }
* i--; j--;
* }
* if (eq && j<0)
* {
* TextArea textArea = editor.ActiveTextAreaControl.TextArea;
* int col = textArea.Caret.Column-bracket.Length;
* textArea.InsertString("\n\n"+end_bracket);
* textArea.Caret.Column = 0;
* textArea.Caret.Line = textArea.Caret.Line-1;
* textArea.Caret.Column = VisualPABCSingleton.MainForm.UserOptions.CursorTabCount+col;
* return true;
* }
* }
* }
* }*/
return(false);
}