function InRange(Self: string; a, b: string): boolean;
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
index 4dd76ab74..34a3ac014 100644
--- a/Release/pabcversion.txt
+++ b/Release/pabcversion.txt
@@ -1 +1 @@
-3.11.0.3676
+3.11.0.3677
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index 85fe93a58..e756d98d6 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.11.0.3676'
+!define VERSION '3.11.0.3677'
diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
index d41300d78..4bcbeb4c7 100644
--- a/TestSuite/CompilationSamples/PABCSystem.pas
+++ b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -3292,6 +3292,7 @@ const
SEQUENCE_CANNOT_BE_EMPTY = 'Последовательность не может быть пустой!!Sequence cannot be empty';
ARRAY_CANNOT_BE_EMPTY = 'Массив не может быть пустым!!Array cannot be empty';
MIN_CANNOT_BE_GREATER_THAN_MAX = 'Clamp: min не может быть больше чем max!!Clamp: min cannot be greater than max';
+ SUBSTRING_CANNOT_BE_EMPTY = 'Подстрока не может быть пустой!!Substring cannot be empty';
// -----------------------------------------------------
// WINAPI
// -----------------------------------------------------
@@ -15078,26 +15079,51 @@ end;
function CountOf(Self: string; substring: string; allowOverlap: boolean := false): integer; extensionmethod;
begin
if string.IsNullOrEmpty(substring) then
- raise new System.ArgumentException('Подстрока не может быть пустой');
+ raise new System.ArgumentException(GetTranslation(SUBSTRING_CANNOT_BE_EMPTY));
Result := 0;
- var index := 0;
- var substringLength := substring.Length;
+ var i := 1;
+ var m := substring.Length;
+ var n := Self.Length;
- while true do
+ if (m = 0) or (m > n) then exit;
+
+ var lastPossible := n - m + 1;
+
+ while i <= lastPossible do
begin
- index := Self.IndexOf(substring, index);
- if index = -1 then
- break;
+ var isMatch := True;
+ // Проверяем первый символ до цикла - это частый случай несовпадения
+ if Self[i] <> substring[1] then
+ isMatch := False
+ else
+ for var j := 2 to m do
+ if Self[i + j - 1] <> substring[j] then
+ begin
+ isMatch := False;
+ break;
+ end;
- Result += 1;
-
- if allowOverlap then
- index += 1 // Для пересекающихся вхождений сдвигаем на 1 символ
- else index += substringLength; // Для непересекающихся - на длину подстроки
+ if isMatch then
+ begin
+ Result += 1;
+ if allowOverlap then
+ i += 1
+ else i += m;
+ end
+ else i += 1;
end;
end;
+/// Возвращает количество вхождений символа в строку
+function CountOf(Self: string; c: char): integer; extensionmethod;
+begin
+ Result := 0;
+ for var i:=1 to Self.Length do
+ if Self[i] = c then
+ Result += 1;
+end;
+
///--
function CreateSliceFromStringInternal(Self: string; from, step, count: integer): string;
@@ -15324,6 +15350,26 @@ begin
Result := V;
end;
+/// Получает значение по ключу или добавляет новое, если ключ отсутствует
+function GetOrAdd(Self: IDictionary; K: Key; valueFactory: Key -> Value): Value; extensionmethod;
+begin
+ if not Self.TryGetValue(K, Result) then
+ begin
+ Result := valueFactory(K);
+ Self[K] := Result;
+ end;
+end;
+
+/// Получает значение по ключу или добавляет значение по умолчанию
+function GetOrAdd(Self: IDictionary; K: Key; defaultValue: Value): Value; extensionmethod;
+begin
+ if not Self.TryGetValue(K, Result) then
+ begin
+ Result := defaultValue;
+ Self[K] := Result;
+ end;
+end;
+
/// Возвращает словарь, сопоставляющий ключу группы количество элементов с данным ключом
function EachCount(Self: sequence of System.Linq.IGrouping): Dictionary; extensionmethod;
begin
@@ -15345,12 +15391,14 @@ end;
/// Возвращает словарь, сопоставляющий элементам последовательности определённые значения
function Each(Self: sequence of Key; proj: Key -> Res): Dictionary; extensionmethod;
begin
- Result := Self.GroupBy(x->x).ToDictionary(g -> g.Key, g -> proj(g.Key));
+ Result := Self.ToDictionary(x -> x, x -> proj(x));
end;
/// Обновляет данные в словаре данными из другого словаря
procedure Update(Self: Dictionary; update: Dictionary); extensionmethod;
begin
+ if update = nil then Exit;
+
foreach var kv in update do
Self[kv.Key] := kv.Value;
end;
@@ -15358,6 +15406,8 @@ end;
/// Обновляет данные в словаре данными из другого словаря
procedure operator+=(Self: Dictionary; update: Dictionary); extensionmethod;
begin
+ if update = nil then Exit;
+
foreach var kv in update do
Self[kv.Key] := kv.Value;
end;
@@ -15379,6 +15429,8 @@ end;
/// Удаляет из словаря пары с указанными значениями ключа
procedure operator-=(Self: IDictionary; keys: sequence of Key); extensionmethod;
begin
+ if keys = nil then Exit;
+
foreach var k in keys do
Self.Remove(k);
end;
@@ -15958,30 +16010,15 @@ function RuntimeDetermineType(T: System.Type): byte;
begin
result := 0;
if T.IsValueType and (T.GetMethod('$Init$') <> nil) then
- begin
- result := 1;
- exit;
- end;
+ exit(1);
if T = typeof(string) then
- begin
- result := 2;
- exit;
- end;
+ exit(2);
if T = typeof(TypedSet) then
- begin
- result := 3;
- exit;
- end;
+ exit(3);
if T = typeof(Text) then
- begin
- result := 4;
- exit;
- end;
+ exit(4);
if T = typeof(BinaryFile) then
- begin
- result := 5;
- exit;
- end;
+ exit(5);
end;
function RuntimeInitialize(kind: byte; variable: object): object;
@@ -16003,9 +16040,8 @@ begin
end;
function GetRuntimeSize: integer;
-var
- val: T;
begin
+ var val: T;
result := System.Runtime.InteropServices.Marshal.SizeOf(val);
end;
diff --git a/TestSuite/CompilationSamples/School.pas b/TestSuite/CompilationSamples/School.pas
index e404da46d..6742351ea 100644
--- a/TestSuite/CompilationSamples/School.pas
+++ b/TestSuite/CompilationSamples/School.pas
@@ -191,15 +191,9 @@ function MinMax(seq: sequence of BigInteger): (BigInteger, BigInteger);
/// Возвращает НОД пары чисел
function НОД(a, b: int64): int64;
-/// Возвращает НОД пары чисел
-function GCD(a, b: int64): int64;
-
/// Возвращает НОК пары чисел
function НОК(a, b: int64): int64;
-/// Возвращает НОК пары чисел
-function LCM(a, b: int64): int64;
-
/// Возвращает НОД и НОК пары чисел
function НОДНОК(a, b: int64): (int64, int64);
@@ -665,9 +659,6 @@ begin
Result := Abs(a)
end;
-/// Возвращает НОД пары чисел
-function GCD(a, b: int64) := НОД(a, b);
-
/// Возвращает НОК пары чисел
function НОК(a, b: int64): int64;
begin
@@ -677,9 +668,6 @@ begin
Result := Abs(a1 div a * b1)
end;
-/// Возвращает НОК пары чисел
-function LCM(a, b: int64) := НОК(a, b);
-
/// Возвращает НОД и НОК пары чисел
function НОДНОК(a, b: int64): (int64, int64);
begin
diff --git a/Yield/ParsePABC1/App.config b/Yield/ParsePABC1/App.config
deleted file mode 100644
index 74ade9db5..000000000
--- a/Yield/ParsePABC1/App.config
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-
-
-
-
diff --git a/Yield/ParsePABC1/ProgramOld.cs b/Yield/ParsePABC1/ProgramOld.cs
deleted file mode 100644
index f7d1dd9fb..000000000
--- a/Yield/ParsePABC1/ProgramOld.cs
+++ /dev/null
@@ -1,56 +0,0 @@
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Text;
-using System.Threading.Tasks;
-
-using PascalABCCompiler.Errors;
-using PascalABCCompiler;
-using PascalABCCompiler.SyntaxTree;
-using PascalABCCompiler.ParserTools;
-
-using SyntaxVisitors;
-
-namespace ParsePABC1
-{
- class Program
- {
- // PascalABCSaushkinParser reference needed!!! DO NOT REMOVE!!!
-
- static syntax_tree_node ParseFile(string fname)
- {
- Compiler c = new Compiler();
- // c.SyntaxTreeChanger = new YieldDesugarSyntaxTreeConverter();
- var opts = new CompilerOptions(fname, CompilerOptions.OutputType.ConsoleApplicaton);
-
- var res = c.Compile(opts);
-
- var err = new List();
-
- var txt = System.IO.File.ReadAllText(fname);
-
- var cu = c.ParsersController.Compile(fname, txt, err, PascalABCCompiler.Parsers.ParseMode.Normal);
-
- if (cu == null)
- {
- Console.WriteLine("Не распарсилось");
- }
- return cu;
- }
-
- static void Main(string[] args)
- {
- var cu = ParseFile(@"D:\PascalABC.NET\!PABC_Git\Yield\tests\basic\yieldSimpleMethodDef.pas");
- if (cu == null)
- return;
-
- var yieldVis = new ProcessYieldCapturedVarsVisitor();
- cu.visit(yieldVis);
-
-
- cu.visit(new SimplePrettyPrinterVisitor());
-
- Console.ReadKey();
- }
- }
-}
diff --git a/Yield/ParsePABC1/Properties/AssemblyInfo.cs b/Yield/ParsePABC1/Properties/AssemblyInfo.cs
deleted file mode 100644
index 75b69173e..000000000
--- a/Yield/ParsePABC1/Properties/AssemblyInfo.cs
+++ /dev/null
@@ -1,36 +0,0 @@
-using System.Reflection;
-using System.Runtime.CompilerServices;
-using System.Runtime.InteropServices;
-
-// Управление общими сведениями о сборке осуществляется с помощью
-// набора атрибутов. Измените значения этих атрибутов, чтобы изменить сведения,
-// связанные со сборкой.
-[assembly: AssemblyTitle("ParsePABC")]
-[assembly: AssemblyDescription("")]
-[assembly: AssemblyConfiguration("")]
-[assembly: AssemblyCompany("Hewlett-Packard")]
-[assembly: AssemblyProduct("ParsePABC")]
-[assembly: AssemblyCopyright("Copyright © Hewlett-Packard 2015")]
-[assembly: AssemblyTrademark("")]
-[assembly: AssemblyCulture("")]
-
-// Параметр ComVisible со значением FALSE делает типы в сборке невидимыми
-// для COM-компонентов. Если требуется обратиться к типу в этой сборке через
-// COM, задайте атрибуту ComVisible значение TRUE для этого типа.
-[assembly: ComVisible(false)]
-
-// Следующий GUID служит для идентификации библиотеки типов, если этот проект будет видимым для COM
-[assembly: Guid("d1b107ed-e2bb-4d21-98d0-a2f99c08d2b0")]
-
-// Сведения о версии сборки состоят из следующих четырех значений:
-//
-// Основной номер версии
-// Дополнительный номер версии
-// Номер сборки
-// Редакция
-//
-// Можно задать все значения или принять номера сборки и редакции по умолчанию
-// используя "*", как показано ниже:
-// [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("1.0.0.0")]
-[assembly: AssemblyFileVersion("1.0.0.0")]
diff --git a/Yield/ParsePABC1/YieldTest.csproj b/Yield/ParsePABC1/YieldTest.csproj
deleted file mode 100644
index 1874a6e92..000000000
--- a/Yield/ParsePABC1/YieldTest.csproj
+++ /dev/null
@@ -1,111 +0,0 @@
-
-
-
-
- Debug
- AnyCPU
- {D1B107ED-E2BB-4D21-98D0-A2F99C08D2B0}
- Exe
- Properties
- ParsePABC
- ParsePABC
- v4.0
- 512
- true
-
-
-
- AnyCPU
- true
- full
- false
- bin\Debug\
- DEBUG;TRACE
- prompt
- 4
-
-
- AnyCPU
- pdbonly
- true
- bin\Release\
- TRACE
- prompt
- 4
-
-
-
- False
- ..\..\pascalabcnet\_ParsePABC1\dlls\ICSharpCode.NRefactory.dll
-
-
- False
- ..\..\bin\Localization.dll
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- {a25d26fb-3043-4bcf-833e-e3f4c3be795e}
- CompilerTools
-
-
- {1e42361a-eda3-4872-88af-a3aaf600d36d}
- Compiler
-
-
- {44a01f9e-dce7-470c-aae5-c3de0ccbee3b}
- Errors
-
-
- {1443f539-dcc7-4491-b4fd-b716c739db3c}
- PascalABCSaushkinParser
-
-
- {af2efd7b-69dd-4b43-af65-b59b29349c23}
- ParserTools
-
-
- {f10a5330-dcf4-4533-877c-7b1b1be23884}
- SyntaxTreeConverters
-
-
- {c2cac65a-b2ae-4ccc-b067-e6b8e75df73a}
- SyntaxTree
-
-
- {a9ab4282-83b4-41a7-86c3-e5bf6a45e7e2}
- SyntaxVisitors
-
-
- {276ee073-60f6-46d2-8811-1b8026bcaada}
- YieldConversionSyntax
-
-
- {ce5c55c2-a11c-4e94-a9fa-3fc6ca3e4c09}
- YieldHelpers
-
-
-
-
-
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index c39918b3d..4bcbeb4c7 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -15082,23 +15082,48 @@ begin
raise new System.ArgumentException(GetTranslation(SUBSTRING_CANNOT_BE_EMPTY));
Result := 0;
- var index := 0;
- var substringLength := substring.Length;
+ var i := 1;
+ var m := substring.Length;
+ var n := Self.Length;
- while true do
+ if (m = 0) or (m > n) then exit;
+
+ var lastPossible := n - m + 1;
+
+ while i <= lastPossible do
begin
- index := Self.IndexOf(substring, index);
- if index = -1 then
- break;
+ var isMatch := True;
+ // Проверяем первый символ до цикла - это частый случай несовпадения
+ if Self[i] <> substring[1] then
+ isMatch := False
+ else
+ for var j := 2 to m do
+ if Self[i + j - 1] <> substring[j] then
+ begin
+ isMatch := False;
+ break;
+ end;
- Result += 1;
-
- if allowOverlap then
- index += 1 // Для пересекающихся вхождений сдвигаем на 1 символ
- else index += substringLength; // Для непересекающихся - на длину подстроки
+ if isMatch then
+ begin
+ Result += 1;
+ if allowOverlap then
+ i += 1
+ else i += m;
+ end
+ else i += 1;
end;
end;
+/// Возвращает количество вхождений символа в строку
+function CountOf(Self: string; c: char): integer; extensionmethod;
+begin
+ Result := 0;
+ for var i:=1 to Self.Length do
+ if Self[i] = c then
+ Result += 1;
+end;
+
///--
function CreateSliceFromStringInternal(Self: string; from, step, count: integer): string;
@@ -15985,30 +16010,15 @@ function RuntimeDetermineType(T: System.Type): byte;
begin
result := 0;
if T.IsValueType and (T.GetMethod('$Init$') <> nil) then
- begin
- result := 1;
- exit;
- end;
+ exit(1);
if T = typeof(string) then
- begin
- result := 2;
- exit;
- end;
+ exit(2);
if T = typeof(TypedSet) then
- begin
- result := 3;
- exit;
- end;
+ exit(3);
if T = typeof(Text) then
- begin
- result := 4;
- exit;
- end;
+ exit(4);
if T = typeof(BinaryFile) then
- begin
- result := 5;
- exit;
- end;
+ exit(5);
end;
function RuntimeInitialize(kind: byte; variable: object): object;
@@ -16030,9 +16040,8 @@ begin
end;
function GetRuntimeSize: integer;
-var
- val: T;
begin
+ var val: T;
result := System.Runtime.InteropServices.Marshal.SizeOf(val);
end;
diff --git a/bin/PascalABCNET.chm b/bin/PascalABCNET.chm
index 089e00746..446dfad5e 100644
Binary files a/bin/PascalABCNET.chm and b/bin/PascalABCNET.chm differ
diff --git a/bin/PascalABCNET.chw b/bin/PascalABCNET.chw
index e5740ec0f..acd3599f1 100644
Binary files a/bin/PascalABCNET.chw and b/bin/PascalABCNET.chw differ
|