290 lines
14 KiB
C#
290 lines
14 KiB
C#
|
using System;
|
|||
|
|
using System.Collections.Generic;
|
|||
|
|
using System.Linq;
|
|||
|
|
using System.Text;
|
|||
|
|
using System.Threading.Tasks;
|
|||
|
|
using ICSharpCode.TextEditor.Document;
|
|||
|
|
using ICSharpCode.TextEditor;
|
|||
|
|
using System.Text.RegularExpressions;
|
|||
|
|
|
|||
|
|
namespace VisualPascalABC
|
|||
|
|
{
|
|||
|
|
public partial class Form1
|
|||
|
|
{
|
|||
|
|
string Spaces(int n) => new string(' ', n);
|
|||
|
|
string GetLine(int lineNum)
|
|||
|
|
{
|
|||
|
|
var ta = CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.TextArea;
|
|||
|
|
var doc = ta.Document;
|
|||
|
|
if (lineNum < doc.TotalNumberOfLines)
|
|||
|
|
return TextUtilities.GetLineAsString(doc, lineNum);
|
|||
|
|
else return null;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void GetCurNextLines(out string Current, out string Next, out string Prev) // Next - следующая непустая строка
|
|||
|
|
{
|
|||
|
|
var ta = CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.TextArea;
|
|||
|
|
Current = GetLine(ta.Caret.Line);
|
|||
|
|
|
|||
|
|
var i = ta.Caret.Line + 1;
|
|||
|
|
do
|
|||
|
|
{
|
|||
|
|
Next = GetLine(i);
|
|||
|
|
i++;
|
|||
|
|
} while (Next != null && Next.Trim() == "");
|
|||
|
|
|
|||
|
|
Prev = null;
|
|||
|
|
if (ta.Caret.Line == 0)
|
|||
|
|
return;
|
|||
|
|
var j = ta.Caret.Line;
|
|||
|
|
do
|
|||
|
|
{
|
|||
|
|
j--;
|
|||
|
|
Prev = GetLine(j);
|
|||
|
|
} while (j > 0 && Prev.Trim() == "");
|
|||
|
|
if (Prev.Trim() == "")
|
|||
|
|
Prev = null;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
int Indent(string s)
|
|||
|
|
{
|
|||
|
|
return Array.FindIndex(s.ToCharArray(), c => c != ' ');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
int CurrentOffset()
|
|||
|
|
{
|
|||
|
|
var editor = VisualPascalABCProgram.MainForm.CurrentCodeFileDocument.TextEditor;
|
|||
|
|
var ta = editor.ActiveTextAreaControl.TextArea;
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
return editor.ActiveTextAreaControl.TextArea.Document.PositionToOffset(tl_beg);
|
|||
|
|
}
|
|||
|
|
private bool TextArea_KeyEventHandler(char ch)
|
|||
|
|
{
|
|||
|
|
if (!tsAutoInsertCode.Checked)
|
|||
|
|
return false;
|
|||
|
|
try
|
|||
|
|
{
|
|||
|
|
var editor = VisualPascalABCProgram.MainForm.CurrentCodeFileDocument.TextEditor;
|
|||
|
|
var ta = editor.ActiveTextAreaControl.TextArea;
|
|||
|
|
var doc = ta.Document;
|
|||
|
|
|
|||
|
|
/*if (ch == ' ')
|
|||
|
|
{
|
|||
|
|
var caret1 = editor.ActiveTextAreaControl.Caret;
|
|||
|
|
int start1 = TextUtilities.FindPrevWordStart(editor.Document, caret1.Offset);
|
|||
|
|
var Text1 = editor.Document.GetText(start1, caret1.Offset - start1).TrimEnd();
|
|||
|
|
|
|||
|
|
if (Text1.ToLower().StartsWith("for") || Text1.ToLower().StartsWith("foreach"))
|
|||
|
|
{
|
|||
|
|
var curline = TextUtilities.GetLineAsString(editor.Document, caret1.Line);
|
|||
|
|
var len = curline.TrimEnd().Length;
|
|||
|
|
if (ta.Caret.Column == len)
|
|||
|
|
{
|
|||
|
|
doc.Replace(CurrentOffset(), curline.Length - len, " var");
|
|||
|
|
ta.Caret.Column = ta.Caret.Column + 4;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return false;
|
|||
|
|
}*/
|
|||
|
|
/*if (ch == '(')
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
doc.Insert(offset, ")");
|
|||
|
|
return false;
|
|||
|
|
}*/
|
|||
|
|
if (ch != '\n')
|
|||
|
|
return false;
|
|||
|
|
var caret = editor.ActiveTextAreaControl.Caret;
|
|||
|
|
int start = TextUtilities.FindPrevWordStart(editor.Document, caret.Offset);
|
|||
|
|
// Нужно, чтобы в Text было последнее слово в строке !!! Исключение - когда в следующей надо сделать просто сдвиг
|
|||
|
|
var Text = editor.Document.GetText(start, caret.Offset - start).TrimEnd();
|
|||
|
|
var TextToLower = Text.ToLower();
|
|||
|
|
//var curStrEnd = TextUtilities.GetLineAsString(editor.Document, caret.Line).Substring(caret.Column);
|
|||
|
|
|
|||
|
|
if (TextToLower == "begin")
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
// Ничего не надо делать если begin - не последнее слово в строке
|
|||
|
|
var curStrEnd = cur.Substring(caret.Column);
|
|||
|
|
if (!string.IsNullOrWhiteSpace(curStrEnd))
|
|||
|
|
return false;
|
|||
|
|
// анализ предыдущей
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
if (cur.Trim().ToLower() == "begin" && (next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("end"))) // значит, это единственное слово begin в строке
|
|||
|
|
{
|
|||
|
|
// Проанализируем предыдущий оператор по первому слову
|
|||
|
|
var pst = prev?.TrimStart().ToLower();
|
|||
|
|
if (pst != null)
|
|||
|
|
//if (pst.StartsWith("if") || pst.StartsWith("for") || pst.StartsWith("loop") || pst.StartsWith("with") || pst.StartsWith("on") || pst.StartsWith("while") || pst.StartsWith("else") || pst.StartsWith("foreach")) // потом улучшу - для нескольких выборов
|
|||
|
|
if (Regex.IsMatch(pst, "^(if|else|for|loop|while|foreach|with|on)"))
|
|||
|
|
{
|
|||
|
|
// Надо удалить в текущей строке пробелы чтобы выровнять begin по if
|
|||
|
|
var iprev = Indent(prev);
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
|
|||
|
|
var cls = doc.GetLineSegment(ta.Caret.Line);
|
|||
|
|
|
|||
|
|
// надо удалить всю строчку с begin и сформировать новую
|
|||
|
|
doc.Replace(cls.Offset, cls.Length , Spaces(iprev)+"begin");
|
|||
|
|
ta.Caret.Column = iprev + 5;
|
|||
|
|
icur = iprev;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
if (next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("end"))
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
var send = "\n" + Spaces(icur) + "end";
|
|||
|
|
if (next == null && (prev == null || !(prev.TrimStart().ToLower().StartsWith("procedure") || prev.TrimStart().ToLower().StartsWith("function"))))
|
|||
|
|
send += ".";
|
|||
|
|
else send += ";";
|
|||
|
|
doc.Insert(offset, send);
|
|||
|
|
}
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else if (TextToLower == "repeat") // repeat .. until
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
if (!string.IsNullOrWhiteSpace(cur.Substring(caret.Column)))
|
|||
|
|
return false;
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
if (next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("until"))
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
var send = "\n" + Spaces(icur) + "until ;";
|
|||
|
|
doc.Insert(offset, send);
|
|||
|
|
}
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else if (Regex.IsMatch(TextToLower,"class|record")) // class .. end, record .. end
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
if (!string.IsNullOrWhiteSpace(cur.Substring(caret.Column)))
|
|||
|
|
return false;
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
if (next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("until"))
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
var send = "\n" + Spaces(icur) + "end;";
|
|||
|
|
doc.Insert(offset, send);
|
|||
|
|
}
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else if (TextToLower == "of")
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
if (!string.IsNullOrWhiteSpace(cur.Substring(caret.Column)))
|
|||
|
|
return false;
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
if (cur.TrimStart().ToLower().StartsWith("case") && next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("end"))
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
var send = "\n" + Spaces(icur) + "end;";
|
|||
|
|
doc.Insert(offset, send);
|
|||
|
|
}
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else if (TextToLower == "with")
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
if (!string.IsNullOrWhiteSpace(cur.Substring(caret.Column)))
|
|||
|
|
return false;
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
if (cur.TrimStart().ToLower().StartsWith("match") && next == null || Indent(next) < icur || Indent(next) == icur && !next.TrimStart().ToLower().StartsWith("end"))
|
|||
|
|
{
|
|||
|
|
var tl_beg = new TextLocation(ta.Caret.Column, ta.Caret.Line);
|
|||
|
|
int offset = doc.PositionToOffset(tl_beg);
|
|||
|
|
var send = "\n" + Spaces(icur) + "end;";
|
|||
|
|
doc.Insert(offset, send);
|
|||
|
|
}
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else if (Regex.IsMatch(TextToLower, "then|else|do|try|except|finally|var"))
|
|||
|
|
{
|
|||
|
|
if (ta.Caret.Line > 0 && TextToLower == "else")
|
|||
|
|
{
|
|||
|
|
var prevSeg = doc.GetLineSegment(ta.Caret.Line - 1);
|
|||
|
|
var prev = GetLine(ta.Caret.Line - 1).TrimEnd();
|
|||
|
|
|
|||
|
|
if (prev[prev.Length-1] == ';')
|
|||
|
|
{
|
|||
|
|
doc.Replace(prevSeg.Offset + prevSeg.Length - 1, 1, "");
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
var cur = GetLine(ta.Caret.Line);
|
|||
|
|
var icur = Indent(cur);
|
|||
|
|
ta.InsertString("\n" + Spaces(icur + 2));
|
|||
|
|
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
string cur, next, prev;
|
|||
|
|
GetCurNextLines(out cur, out next, out prev);
|
|||
|
|
if (ta.Caret.Column >= cur.Length)
|
|||
|
|
{
|
|||
|
|
var prevTrimEnd = prev.TrimEnd();
|
|||
|
|
// если prev заканчивается на then, а cur не начинается с begin, то отступ назад
|
|||
|
|
if ((prevTrimEnd.EndsWith("then",StringComparison.InvariantCultureIgnoreCase) ||
|
|||
|
|
prevTrimEnd.EndsWith("else", StringComparison.InvariantCultureIgnoreCase) ||
|
|||
|
|
prevTrimEnd.EndsWith("do", StringComparison.InvariantCultureIgnoreCase))
|
|||
|
|
&&
|
|||
|
|
!(cur.TrimStart().StartsWith("begin", StringComparison.InvariantCultureIgnoreCase)))
|
|||
|
|
{
|
|||
|
|
var iprev = Indent(prev);
|
|||
|
|
ta.InsertString("\n" + Spaces(iprev));
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* if (Regex.IsMatch(curline, @"^\s*\w+\s*:=", RegexOptions.IgnoreCase)) // пока тут добавление ; после присваивания. Плохо перед else! И плохо если выражение продолжается на следующей строке! Убираем.
|
|||
|
|
{
|
|||
|
|
if (curline.Length > 0)
|
|||
|
|
{
|
|||
|
|
var last = curline[curline.Length - 1];
|
|||
|
|
if (!char.IsLetterOrDigit(last) && last != ']' && last != ')')
|
|||
|
|
return false;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
var curlinenew = Regex.Replace(curline, @"(\s*)(\S+)(\s*):=(\s*)([^;]+)(\s*)(;?)$", @"$1$2 := $5;", RegexOptions.IgnoreCase);
|
|||
|
|
while (curlinenew.EndsWith(";;"))
|
|||
|
|
curlinenew = curlinenew.Remove(curlinenew.Length - 1);
|
|||
|
|
doc.Replace(seg.Offset, curline.Length, curlinenew);
|
|||
|
|
ta.Caret.Column = curlinenew.Length;
|
|||
|
|
return false;
|
|||
|
|
} */
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return false;
|
|||
|
|
}
|
|||
|
|
catch (Exception e)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
return false;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|