administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #1771

Browse source
This commit is contained in:
Бондарев Иван 2019-02-27 21:25:59 +01:00
parent 7dee3e135f
commit e4f815c2be
3 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
CodeCompletion/CodeFormatter.cs
View file

@ -577,6 +577,12 @@ namespace CodeFormatters
comm = "::";
else if (comm.StartsWith("[") && comm.EndsWith(":"))
comm = comm.Replace(" ", "");
else if (comm.StartsWith("( ") && comm.TrimEnd().EndsWith("var"))
comm = comm.Replace(" ", "")+" ";
else if (trimed_comm.StartsWith(", ") && comm.TrimEnd().EndsWith("var"))
comm = RemoveOverSpaces(comm);
else if (trimed_comm.StartsWith(",var"))
comm = ", var"+ trimed_comm.Replace(",var", "");
else if (comm.StartsWith("array") || comm.StartsWith("set") || comm.StartsWith("sequence"))
comm = RemoveOverSpaces(comm);
else if ((comm.StartsWith("class") || comm.StartsWith("interface")) && comm.EndsWith("("))

7
TestSuite/formatter_tests/input/assigntuple1.pas Normal file
View file

@ -0,0 +1,7 @@
begin
( var x , var y ) := ( 0 , 0 ) ;
( var x , var y ,var z) := ( 0 , 0,2 ) ;
(var x,var y) := (0,2);
( var x,var y) := (0, 2);
(x,y):=(1,2);
end.

7
TestSuite/formatter_tests/should/assigntuple1.pas Normal file
View file

@ -0,0 +1,7 @@
begin
(var x, var y) := (0, 0);
(var x, var y, var z) := (0, 0, 2);
(var x, var y) := (0, 2);
(var x, var y) := (0, 2);
(x, y) := (1, 2);
end.