В консольном компиляторе pabcnetcclear теперь верно распознается файл с путем, начинающимся с /
This commit is contained in:
parent
b811d45dd8
commit
389ed19e56
|
|
@ -15,7 +15,7 @@ internal static class RevisionClass
|
|||
public const string Major = "3";
|
||||
public const string Minor = "8";
|
||||
public const string Build = "2";
|
||||
public const string Revision = "3037";
|
||||
public const string Revision = "3038";
|
||||
|
||||
public const string MainVersion = Major + "." + Minor;
|
||||
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
%MINOR%=8
|
||||
%REVISION%=3037
|
||||
%COREVERSION%=2
|
||||
%REVISION%=3038
|
||||
%MINOR%=8
|
||||
%MAJOR%=3
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
3.8.2.3037
|
||||
3.8.2.3038
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
!define VERSION '3.8.2.3037'
|
||||
!define VERSION '3.8.2.3038'
|
||||
|
|
|
|||
|
|
@ -10988,7 +10988,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
/// Есть ли элемент в матрице
|
||||
/// Равны ли матрицы
|
||||
function MatrEqual<T>(Self,b: array[,] of T): boolean; extensionmethod := MatrEqual(Self,b);
|
||||
|
||||
/// Вывод двумерного массива, w - ширина поля вывода
|
||||
|
|
|
|||
|
|
@ -60,7 +60,6 @@ namespace PascalABCCompiler
|
|||
switch (FileOperation)
|
||||
{
|
||||
case SourceFileOperation.GetText:
|
||||
|
||||
if (SourceFiles.ContainsKey(fn))
|
||||
return SourceFiles[fn].Text;
|
||||
string text = getFileText(FileName);
|
||||
|
|
@ -102,7 +101,7 @@ namespace PascalABCCompiler
|
|||
string arg = null;
|
||||
|
||||
ReadCommand(out command, out arg);
|
||||
if (command == 182)
|
||||
if (command == 182) // Error
|
||||
return null;
|
||||
int length = Convert.ToInt32(arg);
|
||||
return readStringFromConsole(length);
|
||||
|
|
|
|||
|
|
@ -158,7 +158,10 @@ namespace PascalABCCompiler
|
|||
return 2;
|
||||
}
|
||||
|
||||
var n1 = args.TakeWhile(a => a[0] == '/').Count(); // количество директив
|
||||
// /W/a.pas расценивается как директива. Нужен более сложный паттерн: начинается с \буквы:
|
||||
//var n1 = args.TakeWhile(a => a[0] == '/').Count(); // количество директив
|
||||
// Поменяем: SSM 14/12/21
|
||||
var n1 = args.TakeWhile(a => System.Text.RegularExpressions.Regex.IsMatch(a, @"^/\w+:")).Count(); // количество директив
|
||||
|
||||
if (n1<n-2)
|
||||
{
|
||||
|
|
|
|||
Loading…
Reference in a new issue