Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=2
-%REVISION%=1382
 %COREVERSION%=0
+%REVISION%=1385
+%MINOR%=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-8EAQPI9
-//  DateTime: 26.01.2017 15:17:45
+//  DateTime: 11.02.2017 17:44:25
 //  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>

Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs

@@ -2,7 +2,7 @@
 
 // GPPG version 1.3.6
 // Machine:  DESKTOP-8EAQPI9
-// DateTime: 26.01.2017 15:17:46
+// DateTime: 11.02.2017 17:44:25
 // UserName: ?????????
 // Input file <J:\PascalABC.NET\!PABC_Git\Parsers\PascalABCParserNewSaushkin\ABCPascal.y>
 
@@ -4902,17 +4902,6 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
       case 595: // tuple -> tkRoundOpen, expr_l1, tkComma, expr_l1_list, lambda_type_ref, 
                 //          optional_full_lambda_fp_list, tkRoundClose
 {
-			/*
-			($4 as expression_list).expressions.Insert(0,$2);
-			
-			if (parsertools.build_tree_for_formatter)
-				$$ = new tuple_node_for_formatter($4 as expression_list,@$);
-			else	
-			{
-			    var dn = new dot_node(new dot_node(new ident("?System"),new ident("Tuple")),new ident("Create",@$));
-				$$ = new method_call(dn,$4 as expression_list,@$);
-			}*/
-
 			/*if ($5 != null) 
 				parsertools.AddErrorFromResource("BAD_TUPLE",@5);
 			if ($6 != null) 

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -159,5 +159,6 @@ script=
 
 
 
+
 
 

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.2.0.1382'
+!define VERSION '3.2.0.1385'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -9604,6 +9604,12 @@ begin
 	Result := Regex.Replace(Self,reg,repl,options)
 end;
 
+/// Заменяет в указанной строке все вхождения регулярного выражения указанным преобразованием замены и возвращает преобразованную строку
+function Replace(Self: string; reg: string; repl: Match -> string; options: RegexOptions := RegexOptions.None): string; extensionmethod;
+begin
+	Result := Regex.Replace(Self,reg,repl,options)
+end;
+
 /// Ищет в указанной строке все вхождения регулярного выражения и возвращает их в виде последовательности элементов типа Match
 function Matches(Self: string; reg: string; options: RegexOptions := RegexOptions.None): sequence of Match; extensionmethod;
 begin

TestSuite/CompilationSamples/PT4.pas

@@ -1452,7 +1452,11 @@ begin
       solveproc.Invoke(nil,nil);
     except
       on e: Exception do
-        RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message);
+      begin
+        //if e.InnerException<>nil then
+        RaisePT('HHH', 'ggg');
+          //RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message);
+      end;
     end;
     if finexamproc <> nil then
       finexamproc.Invoke(nil,nil);

TreeConverter/TreeConversion/semantic_checks_for_sugar.cs

@@ -29,6 +29,7 @@ namespace PascalABCCompiler.TreeConverter
         }
 
         void semantic_check_method_call_as_slice_expr(SyntaxTree.method_call mc)
+        // нельзя проверять сахарный узел, т.к.могут быть вложенные сахарные expression!!
         {
             var v = (mc.dereferencing_value as dot_node).left;
             var from = mc.parameters.expressions[1];

bin/Lib/PABCExtensions.pas

@@ -10,6 +10,11 @@ begin
   PABCSystem.Reset(Result, fname);
 end;
 
+function CreateBinary<T>(fname: string): file of T;
+begin
+  PABCSystem.Rewrite(Result, fname);
+end;
+
 function Elements<T>(Self: file of T): sequence of T; extensionmethod;
 begin
   while not Self.Eof do
@@ -36,6 +41,12 @@ begin
   f.Close
 end;
 
+procedure Write<T>(Self: file of T; params vals: array of T); extensionmethod;
+begin
+  foreach var x in vals do
+    PABCSystem.Write(Self, x);
+end;
+
 var __initialized: boolean;
 
 procedure __InitModule;

bin/Lib/PABCSystem.pas

@@ -468,9 +468,6 @@ type
     procedure Erase;
     /// Переименовывает файл, давая ему имя newname 
     procedure Rename(newname: string);
-    ///- Write(f: file; a,b,...)
-    /// Выводит значения a,b,... в двоичный файл
-    procedure Write(params vals: array of object);
   end;
 
   // Class for typed files
@@ -504,6 +501,9 @@ type
     function FileSize: int64;
     /// Устанавливает текущую позицию файлового указателя в бестиповом файле на байт с номером n  
     procedure Seek(n: int64);
+    ///- f.Write(a,b,...)
+    /// Выводит значения a,b,... в двоичный файл
+    procedure Write(params vals: array of object);
   end;
  
 //{{{doc: Начало секции интерфейса для документации }}} 
@@ -5174,11 +5174,6 @@ begin
   PABCSystem.Rename(Self, newname);
 end;
 
-procedure AbstractBinaryFile.Write(params vals: array of object);
-begin
-  PABCSystem.Write(Self, vals);
-end;
-
 // -----------------------------------------------------
 //                TypedFile & BinaryFile methods
 // -----------------------------------------------------
@@ -5212,6 +5207,11 @@ begin
   PABCSystem.Seek(Self, n);
 end;
 
+procedure BinaryFile.Write(params vals: array of object);
+begin
+  PABCSystem.Write(Self, vals);
+end;
+
 // -----------------------------------------------------
 //                  Eoln - Eof
 // -----------------------------------------------------
@@ -9604,6 +9604,12 @@ begin
 	Result := Regex.Replace(Self,reg,repl,options)
 end;
 
+/// Заменяет в указанной строке все вхождения регулярного выражения указанным преобразованием замены и возвращает преобразованную строку
+function Replace(Self: string; reg: string; repl: Match -> string; options: RegexOptions := RegexOptions.None): string; extensionmethod;
+begin
+	Result := Regex.Replace(Self,reg,repl,options)
+end;
+
 /// Ищет в указанной строке все вхождения регулярного выражения и возвращает их в виде последовательности элементов типа Match
 function Matches(Self: string; reg: string; options: RegexOptions := RegexOptions.None): sequence of Match; extensionmethod;
 begin

bin/Lib/PT4.pas

@@ -1452,7 +1452,11 @@ begin
       solveproc.Invoke(nil,nil);
     except
       on e: Exception do
-        RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message);
+      begin
+        //if e.InnerException<>nil then
+        RaisePT('HHH', 'ggg');
+          //RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message);
+      end;
     end;
     if finexamproc <> nil then
       finexamproc.Invoke(nil,nil);