Алгоритм Pairwise подправлен

pt4pabc.dll подправлена - сообщение об отсутствующем results.abc не выдается

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "8";
 	public const string Build = "1";
-	public const string Revision = "2991";
+	public const string Revision = "2998";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=8
-%REVISION%=2991
 %COREVERSION%=1
+%REVISION%=2998
+%MINOR%=8
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.1.2991
+3.8.1.2998

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.1.2991'
+!define VERSION '3.8.1.2998'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -10290,13 +10290,15 @@ begin
   var previous: T;
   var it := Self.GetEnumerator();
   if (it.MoveNext()) then
+  begin  
     previous := it.Current;
   
-  while (it.MoveNext()) do
-  begin
-    yield (previous, it.Current);
-    previous := it.Current;
-  end
+    while (it.MoveNext()) do
+    begin
+      yield (previous, it.Current);
+      previous := it.Current;
+    end;
+  end;
 end;
 
 /// Превращает последовательность в последовательность n-ок соседних элементов
@@ -10320,13 +10322,15 @@ begin
   var previous: T;
   var it := Self.GetEnumerator();
   if (it.MoveNext()) then
+  begin  
     previous := it.Current;
   
-  while (it.MoveNext()) do
-  begin
-    yield func(previous, it.Current);
-    previous := it.Current;
-  end
+    while (it.MoveNext()) do
+    begin
+      yield func(previous, it.Current);
+      previous := it.Current;
+    end;
+  end;
   //  Result := Self.ZipTuple(Self.Skip(1)).Select(x->func(x[0],x[1]));
 end;
 

bin/Highlighting/PascalABCNET.xshd

@@ -273,7 +273,7 @@
 
 	</RuleSet>
 		
-	<RuleSet name = "CommentMarkerSet" ignorecase = "true">
+	<RuleSet name = "CommentMarkerSet" ignorecase = "false">
 		<Delimiters>&lt;&gt;~!@%^*()-+=|\#/{}[]:;"' ,	.?</Delimiters>
 		<KeyWords name = "ErrorWords" bold="true" italic="false" color="Red">
 			<Key word = "TODO" />
@@ -283,8 +283,17 @@
 			<Key word = "HACK" />
 			<Key word = "UNDONE" />
 	  	</KeyWords>
+		<KeyWords name = "Russian" bold="true" italic="true" color="Green" >
+			<Key word = "Задание" />
+			<Key word = "Указание" />
+			<Key word = "Замечание" />
+	  	</KeyWords>
+		<KeyWords name = "Russian1" bold="true" italic="false" color="Green">
+			<Key word = "Тема" />
+	  	</KeyWords>
 	</RuleSet>
 
+
 	<RuleSet name = "CompilerDirectivesSet" ignorecase = "true">
 		<Delimiters>&lt;&gt;~!@%^*()-+=|\#/{}[]:;"' ,	.?</Delimiters>
 

bin/Lib/PABCSystem.pas

@@ -10290,13 +10290,15 @@ begin
   var previous: T;
   var it := Self.GetEnumerator();
   if (it.MoveNext()) then
+  begin  
     previous := it.Current;
   
-  while (it.MoveNext()) do
-  begin
-    yield (previous, it.Current);
-    previous := it.Current;
-  end
+    while (it.MoveNext()) do
+    begin
+      yield (previous, it.Current);
+      previous := it.Current;
+    end;
+  end;
 end;
 
 /// Превращает последовательность в последовательность n-ок соседних элементов
@@ -10320,13 +10322,15 @@ begin
   var previous: T;
   var it := Self.GetEnumerator();
   if (it.MoveNext()) then
+  begin  
     previous := it.Current;
   
-  while (it.MoveNext()) do
-  begin
-    yield func(previous, it.Current);
-    previous := it.Current;
-  end
+    while (it.MoveNext()) do
+    begin
+      yield func(previous, it.Current);
+      previous := it.Current;
+    end;
+  end;
   //  Result := Self.ZipTuple(Self.Skip(1)).Select(x->func(x[0],x[1]));
 end;