From a9d9bdc345b0f67c6989b8428b5a92607aa05c8c Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sun, 9 Feb 2020 14:53:40 +0300 Subject: [PATCH] =?UTF-8?q?UseDllForSystemUnit=20-=20=D0=B2=D0=BA=D0=BB?= =?UTF-8?q?=D1=8E=D1=87=D0=B0=D1=82=D1=8C=20=D0=B1=D0=B5=D0=B7=D1=83=D1=81?= =?UTF-8?q?=D0=BB=D0=BE=D0=B2=D0=BD=D0=BE=20=D0=B5=D1=81=D0=BB=D0=B8=20?= =?UTF-8?q?=D1=84=D0=BB=D0=B0=D0=B6=D0=BE=D0=BA=20=D0=B2=D0=BA=D0=BB=D1=8E?= =?UTF-8?q?=D1=87=D0=B5=D0=BD=20school.pct=20=D0=B7=D0=BD=D0=B0=D1=87?= =?UTF-8?q?=D0=B8=D1=82=D0=B5=D0=BB=D1=8C=D0=BD=D0=BE=20=D1=83=D0=BB=D1=83?= =?UTF-8?q?=D1=87=D1=88=D0=B5=D0=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Configuration/GlobalAssemblyInfo.cs | 2 +- Configuration/Version.defs | 4 +- Release/pabcversion.txt | 2 +- ReleaseGenerators/PascalABCNET_version.nsh | 2 +- VisualPascalABCNET/Workbench/RunService.cs | 3 +- bin/school.pct | 50 ++++++++++++++-------- 6 files changed, 40 insertions(+), 23 deletions(-) diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 74c8068d5..08afe685e 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "6"; public const string Build = "0"; - public const string Revision = "2344"; + public const string Revision = "2345"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 5726ce611..00929a048 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=0 -%REVISION%=2344 %MINOR%=6 +%REVISION%=2345 +%COREVERSION%=0 %MAJOR%=3 diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 040e4a5b0..c356a013c 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.6.0.2344 +3.6.0.2345 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index d3906868a..02b8b29b5 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.6.0.2344' +!define VERSION '3.6.0.2345' diff --git a/VisualPascalABCNET/Workbench/RunService.cs b/VisualPascalABCNET/Workbench/RunService.cs index 9ee1b7582..e7b4350c5 100644 --- a/VisualPascalABCNET/Workbench/RunService.cs +++ b/VisualPascalABCNET/Workbench/RunService.cs @@ -93,7 +93,8 @@ namespace VisualPascalABC Workbench.UserOptions.UseDllForSystemUnits = false; Workbench.UserOptions.PABCDllChecked = true; } - if (Workbench.UserOptions.DeleteEXEAfterExecute && Workbench.UserOptions.UseDllForSystemUnits && !startWithGoto && !needFirstBreakpoint) + // SSM 09.02.20 - UseDllForSystemUnits включать когда флаг установлен - безо всяких доп. условий + if (/*Workbench.UserOptions.DeleteEXEAfterExecute &&*/ Workbench.UserOptions.UseDllForSystemUnits && !startWithGoto && !needFirstBreakpoint) BuildService.CompilerOptions.UseDllForSystemUnits = true; } else diff --git a/bin/school.pct b/bin/school.pct index 73837d282..049932a31 100644 --- a/bin/school.pct +++ b/bin/school.pct @@ -5,17 +5,23 @@ end. [var •: тип/Основное/Описание переменной с типом] var |: тип; - -[Print/Операторы/Оператор вывода] + +[var • := значение/Основное/Описание переменной с присваиванием значения] +var | := •; + +[var (•,•) := (зн1,зн2)/Основное/Описание двух переменных с присваиванием значений] +var (|,•) := (•,•); + +[Print/Ввод-вывод/Оператор вывода] Print(|); -[Println/Операторы/Оператор вывода с переходом на новую строку] +[Println/Ввод-вывод/Оператор вывода с переходом на новую строку] Println(|); -[ReadInteger/Операторы/Описание целой переменной со вводом] +[ReadInteger/Ввод-вывод/Описание целой переменной со вводом] var | := ReadInteger; -[ReadReal/Операторы/Описание вещественной переменной со вводом] +[ReadReal/Ввод-вывод/Описание вещественной переменной со вводом] var | := ReadReal; [begin … end/Операторы/Составной оператор. Используется для превращения группы операторов в один. begin и end называют операторными скобками] @@ -23,42 +29,52 @@ begin | end; -[loop • do …/Управляющие операторы/Оператор цикла с известным числом повторений] +[loop • do …/Операторы/Оператор цикла с известным числом повторений] loop 10 do | -[loop • do b … e/Управляющие операторы/Оператор цикла с известным числом повторений] +[loop • do b … e/Операторы/Оператор цикла с известным числом повторений и с телом в виде составного оператора] loop 10 do begin | end; -[for var i:=• to • do …/Управляющие операторы/Оператор цикла со счётчиком] +[for var i:=• to • do …/Операторы/Оператор цикла со счётчиком] for var i:=1 to 10 do | -[for var i:=• to • do b … e/Управляющие операторы/Оператор цикла со счётчиком] +[for var i:=• to • do b … e/Операторы/Оператор цикла со счётчиком и с телом в виде составного оператора] for var i:=1 to 10 do begin | end; -[if • then …/Управляющие операторы/Условный оператор - неполная форма] +[foreach var x in • do …/Операторы/Оператор цикла foreach] +foreach var x in • do + | + +[foreach var x in • do b … e/Операторы/Оператор цикла foreach с телом в виде составного оператора] +foreach var x in • do +begin + | +end; + +[if • then …/Операторы/Условный оператор - неполная форма] if условие then | -[if • then b … e/Управляющие операторы/Условный оператор - неполная форма] +[if • then b … e/Операторы/Условный оператор - неполная форма - с составным оператором по ветви then] if условие then begin | end; -[if • then … else …/Управляющие операторы/Условный оператор - полная форма] +[if • then … else …/Операторы/Условный оператор - полная форма] if условие then | else -[if • then b … e else b … e/Управляющие операторы/Условный оператор - полная форма] +[if • then b … e else b … e/Операторы/Условный оператор - полная форма - с составным оператором по ветвям then и else] if условие then begin | @@ -68,22 +84,22 @@ begin end; -[while • do …/Управляющие операторы/Оператор цикла с предварительным условием] +[while • do …/Операторы/Оператор цикла с предварительным условием] while условие do | -[while • do b … e/Управляющие операторы/Оператор цикла с предварительным условием] +[while • do b … e/Операторы/Оператор цикла с предварительным условием] while условие do begin | end; -[repeat … until •/Управляющие операторы/Оператор цикла с последующим условием] +[repeat … until •/Операторы/Оператор цикла с последующим условием] repeat | until условие; -[case • of … end/Управляющие операторы/Оператор выбора варианта] +[case • of … end/Операторы/Оператор выбора варианта] case | of • : …; end;