Незначительные изменения в именах параметров в стандартном модуле

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "7";
 	public const string Build = "2";
-	public const string Revision = "2799";
+	public const string Revision = "2803";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=7
-%REVISION%=2799
+%REVISION%=2803
 %COREVERSION%=2
 %MAJOR%=3

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -2,7 +2,7 @@
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
 //  Machine:  DESKTOP-G8V08V4
-//  DateTime: 07.01.2021 12:07:22
+//  DateTime: 16.01.2021 9:11:32
 //  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -300,6 +300,8 @@ script=
 
 
 
+
+
 
 
 

Release/pabcversion.txt

@@ -1 +1 @@
-3.7.2.2799
+3.7.2.2803

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.7.2.2799'
+!define VERSION '3.7.2.2803'

TestSuite/CompilationSamples/SF.pas

@@ -176,6 +176,10 @@ function Av(Self: sequence of real): real; extensionmethod := Self.Average;
 
 /// Возвращает количество элементов последовательности
 function Cnt<T>(Self: sequence of T): integer; extensionmethod := Self.Count;
+/// Возвращает количество элементов последовательности, удовлетворяющих условию
+function Cnt<T>(Self: sequence of T; pred: T->boolean): integer; extensionmethod := Self.Count(pred);
+/// Возвращает количество элементов последовательности, равных заданному значению
+function Cnt<T>(Self: sequence of T; elem: T): integer; extensionmethod := Self.CountOf(elem);
 
 function Ord<T>(Self: sequence of T): sequence of T; extensionmethod := Self.Order;
 function OrdD<T>(Self: sequence of T): sequence of T; extensionmethod := Self.OrderDescending;

bin/Lib/PABCSystem.pas

@@ -1421,7 +1421,7 @@ procedure RmDir(s: string);
 /// Создает каталог. Возвращает True, если каталог успешно создан
 function CreateDir(s: string): boolean;
 /// Удаляет файл. Если файл не может быть удален, то возвращает False
-function DeleteFile(s: string): boolean;
+function DeleteFile(fname: string): boolean;
 /// Возвращает текущий каталог
 function GetCurrentDir: string;
 /// Удаляет каталог. Возвращает True, если каталог успешно удален
@@ -7858,11 +7858,11 @@ begin
   end;
 end;
 
-function DeleteFile(s: string): boolean;
+function DeleteFile(fname: string): boolean;
 begin
   try
     Result := True;
-    &File.Delete(s);
+    &File.Delete(fname);
   except
     Result := False;
   end;

bin/Lib/SF.pas

@@ -176,6 +176,10 @@ function Av(Self: sequence of real): real; extensionmethod := Self.Average;
 
 /// Возвращает количество элементов последовательности
 function Cnt<T>(Self: sequence of T): integer; extensionmethod := Self.Count;
+/// Возвращает количество элементов последовательности, удовлетворяющих условию
+function Cnt<T>(Self: sequence of T; pred: T->boolean): integer; extensionmethod := Self.Count(pred);
+/// Возвращает количество элементов последовательности, равных заданному значению
+function Cnt<T>(Self: sequence of T; elem: T): integer; extensionmethod := Self.CountOf(elem);
 
 function Ord<T>(Self: sequence of T): sequence of T; extensionmethod := Self.Order;
 function OrdD<T>(Self: sequence of T): sequence of T; extensionmethod := Self.OrderDescending;