diff --git a/Localization/DefaultLang.resources b/Localization/DefaultLang.resources index 6e7e3ed43..18828366c 100644 Binary files a/Localization/DefaultLang.resources and b/Localization/DefaultLang.resources differ diff --git a/Parsers/PascalABCParserNewSaushkin/PABC.tags b/Parsers/PascalABCParserNewSaushkin/PABC.tags index 917fe9dde..6bf4267d0 100644 --- a/Parsers/PascalABCParserNewSaushkin/PABC.tags +++ b/Parsers/PascalABCParserNewSaushkin/PABC.tags @@ -340,10 +340,6 @@ - - - - diff --git a/Parsers/PascalABCParserNewSaushkin/PABC.ymc b/Parsers/PascalABCParserNewSaushkin/PABC.ymc index 2dbd9b81b..5b7836baf 100644 --- a/Parsers/PascalABCParserNewSaushkin/PABC.ymc +++ b/Parsers/PascalABCParserNewSaushkin/PABC.ymc @@ -71,6 +71,8 @@ script= + + diff --git a/PascalABCNET.xml b/PascalABCNET.xml new file mode 100644 index 000000000..e10046f37 --- /dev/null +++ b/PascalABCNET.xml @@ -0,0 +1,245 @@ + + + + + + \ParserTools\ParserTools\DefaultLanguageInformation.cs + protected virtual string GetTemplateString(ITypeScope scope) + GetTemplateString + + + + + [ + , + ] + ( + ( + ( + ) + ` + < + , + > + \ + n + \ + t + \ + r + ` + < + > + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + ` + < + > + < + T + , + > + < + , + > + < + , + > + < + < + , + > + < + < + , + > + < + < + , + > + [ + , + ] + $ + $ + ( + , + ) + $ + [ + , + ] + + + + Field + + + \ParserTools\ParserTools\DefaultLanguageInformation.cs + protected virtual string GetSimpleDescriptionForCompiledType(ICompiledTypeScope scope) + GetSimpleDescriptionForCompiledType + + + + + [ + , + ] + ( + ( + ( + ) + ` + < + , + > + \ + n + \ + t + \ + r + ` + < + > + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + \ + t + \ + r + \ + n + ` + < + > + < + T + , + > + < + , + > + < + , + > + < + < + , + > + < + < + , + > + < + < + , + > + [ + , + ] + $ + $ + ( + , + ) + $ + [ + , + ] + + + + Field + + + \ParserTools\ParserTools\DefaultLanguageInformation.cs + return GetFullTypeName(t); + GetFullTypeName + + + + + < + < + , + > + < + , + > + ( + ) + + + + Field + + + \ParserTools\ParserTools\DefaultLanguageInformation.cs + protected virtual string GetDescriptionForProcedure(IProcScope scope) + GetDescriptionForProcedure + + + + + + CS_TreeNode + + + + + \ No newline at end of file diff --git a/ReleaseGenerators/PascalABCNET_head.nsh b/ReleaseGenerators/PascalABCNET_head.nsh index 024595633..9c9760f3e 100644 --- a/ReleaseGenerators/PascalABCNET_head.nsh +++ b/ReleaseGenerators/PascalABCNET_head.nsh @@ -70,7 +70,7 @@ Var PABCWorkNETPath ;-------------------------------- ;Pages - !insertmacro MUI_PAGE_LICENSE $(MUILicense) + ;!insertmacro MUI_PAGE_LICENSE $(MUILicense) !insertmacro MUI_PAGE_COMPONENTS !insertmacro MUI_PAGE_DIRECTORY Page custom fnc_PABCWorkNETDriveChoose_Show diff --git a/SyntaxTree/tree/Tree.cs b/SyntaxTree/tree/Tree.cs index 67d1131b2..917948672 100644 --- a/SyntaxTree/tree/Tree.cs +++ b/SyntaxTree/tree/Tree.cs @@ -1634,6 +1634,11 @@ namespace PascalABCCompiler.SyntaxTree source_context = sc; } + public override string ToString() + { + return base.ToString()+"^"; + } + /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List /// @@ -1933,15 +1938,6 @@ namespace PascalABCCompiler.SyntaxTree source_context = sc; return this; } - public override string ToString() - { - var sb = new System.Text.StringBuilder(); - sb.Append("var "); - for (int i=0; i ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List @@ -2297,6 +2293,8 @@ namespace PascalABCCompiler.SyntaxTree public var_def_statement(ident_list vars,type_definition vars_type): this(vars, vars_type, null, definition_attribute.None, false) { } + public var_def_statement(ident_list vars,type_definition vars_type, expression iv): this(vars, vars_type, iv, definition_attribute.None, false) + { } public var_def_statement(ident id, type_definition type): this(new ident_list(id),type) { } public var_def_statement(string name, type_definition type): this(new ident(name),type) @@ -2305,14 +2303,17 @@ namespace PascalABCCompiler.SyntaxTree { var sb = new System.Text.StringBuilder(); sb.Append(vars.ToString()); - sb.Append(": "); - sb.Append(vars_type.ToString()); + if (vars_type!=null) + { + sb.Append(": "); + sb.Append(vars_type.ToString()); + } if (inital_value!=null) { sb.Append(" := "); sb.Append(inital_value.ToString()); } - + sb.Append("; "); return sb.ToString(); } @@ -3290,6 +3291,11 @@ namespace PascalABCCompiler.SyntaxTree } + public override string ToString() + { + return base.ToString()+"["+indexes.ToString()+"]"; + } + /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List /// @@ -4784,6 +4790,11 @@ namespace PascalABCCompiler.SyntaxTree } + public override string ToString() + { + return attribute_type.ToString(); + } + /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List /// @@ -5499,6 +5510,20 @@ namespace PascalABCCompiler.SyntaxTree name.meth_name = id; } } + public override string ToString() + { + var sb = new System.Text.StringBuilder(); + sb.Append("procedure "); + sb.Append(name.ToString()); + + if (template_args != null) + sb.Append("<"+template_args.ToString()+">"); + + if (parameters != null) + sb.Append("("+parameters.ToString()+")"); + sb.Append(";"); + return sb.ToString(); + } /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List @@ -5678,6 +5703,16 @@ namespace PascalABCCompiler.SyntaxTree { } + public override string ToString() + { + var sb = new System.Text.StringBuilder(); + sb.Append(base.ToString()); + sb.Remove(0,9); + sb.Remove(sb.Length-1,1); + sb.Insert(0,"function"); + sb.Append(": "+return_type.ToString()+";"); + return sb.ToString(); + } /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List @@ -8624,6 +8659,10 @@ namespace PascalABCCompiler.SyntaxTree { } + public override string ToString() + { + return meth_name.ToString(); + } /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List @@ -8776,6 +8815,11 @@ namespace PascalABCCompiler.SyntaxTree } + public override string ToString() + { + return left.ToString()+"."+right.ToString(); + } + /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List /// @@ -22412,6 +22456,11 @@ namespace PascalABCCompiler.SyntaxTree } + public override string ToString() + { + return "var "+var_def.ToString(); + } + /// ///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List /// diff --git a/SyntaxTree/tree/WalkingVisitor.cs b/SyntaxTree/tree/WalkingVisitor.cs index 5cec0333b..39929b6ac 100644 --- a/SyntaxTree/tree/WalkingVisitor.cs +++ b/SyntaxTree/tree/WalkingVisitor.cs @@ -1120,7 +1120,41 @@ namespace PascalABCCompiler.SyntaxTree public override void visit(semantic_type_node stn) // SSM { } - + public override void visit(short_func_definition _short_func_definition) + { + //throw new NotImplementedException(); + } + + public override void visit(no_type_foreach _no_type_foreach) + { + //throw new NotImplementedException(); + } + + public override void visit(matching_expression _matching_expression) + { + //throw new NotImplementedException(); + } + + public override void visit(closure_substituting_node _closure_substituting_node) + { + //throw new NotImplementedException(); + } + + public override void visit(sequence_type _sequence_type) + { + //throw new NotImplementedException(); + } + + public override void visit(modern_proc_type _modern_proc_type) + { + //throw new NotImplementedException(); + } + + public override void visit(yield_node _yield_node) + { + ProcessNode(_yield_node.ex); + } + } } \ No newline at end of file diff --git a/SyntaxTree/tree/tree.nin b/SyntaxTree/tree/tree.nin index 055e8bd9b..ebe5d63e8 100644 Binary files a/SyntaxTree/tree/tree.nin and b/SyntaxTree/tree/tree.nin differ diff --git a/TestSuite/CompilationSamples/ABCButtons.pas b/TestSuite/CompilationSamples/ABCButtons.pas index 447b14d46..981e5c5c5 100644 --- a/TestSuite/CompilationSamples/ABCButtons.pas +++ b/TestSuite/CompilationSamples/ABCButtons.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit ABCButtons; interface diff --git a/TestSuite/CompilationSamples/ABCHouse.pas b/TestSuite/CompilationSamples/ABCHouse.pas index d9e9c81a5..3aeb38043 100644 --- a/TestSuite/CompilationSamples/ABCHouse.pas +++ b/TestSuite/CompilationSamples/ABCHouse.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit ABCHouse; interface diff --git a/TestSuite/CompilationSamples/ABCObjects.pas b/TestSuite/CompilationSamples/ABCObjects.pas index 18dd345d7..b5eec0a34 100644 --- a/TestSuite/CompilationSamples/ABCObjects.pas +++ b/TestSuite/CompilationSamples/ABCObjects.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// , , /// . /// , diff --git a/TestSuite/CompilationSamples/ABCSprites.pas b/TestSuite/CompilationSamples/ABCSprites.pas index bf1c7334e..601e52ccd 100644 --- a/TestSuite/CompilationSamples/ABCSprites.pas +++ b/TestSuite/CompilationSamples/ABCSprites.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// ABCSprites - . /// SpriteABC MultiPictureABC. unit ABCSprites; diff --git a/TestSuite/CompilationSamples/Arrays.pas b/TestSuite/CompilationSamples/Arrays.pas index db090d153..7ce19e546 100644 --- a/TestSuite/CompilationSamples/Arrays.pas +++ b/TestSuite/CompilationSamples/Arrays.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + unit Arrays; interface diff --git a/TestSuite/CompilationSamples/CRT.pas b/TestSuite/CompilationSamples/CRT.pas index 2b9de0800..ad8b111c1 100644 --- a/TestSuite/CompilationSamples/CRT.pas +++ b/TestSuite/CompilationSamples/CRT.pas @@ -1,11 +1,11 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// /// /// unit CRT; -// 0.3 -// Copyright (c) 2006-2007 DarkStar, SSM (parts) - {$apptype console} {$gendoc true} diff --git a/TestSuite/CompilationSamples/Core.pas b/TestSuite/CompilationSamples/Core.pas index 9e4fa8b37..e628c5c49 100644 --- a/TestSuite/CompilationSamples/Core.pas +++ b/TestSuite/CompilationSamples/Core.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Core; {$reference 'System.Core.dll'} end. \ No newline at end of file diff --git a/TestSuite/CompilationSamples/DMCollect.pas b/TestSuite/CompilationSamples/DMCollect.pas index 9c0bd190f..cf1bb7234 100644 --- a/TestSuite/CompilationSamples/DMCollect.pas +++ b/TestSuite/CompilationSamples/DMCollect.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DMCollect; {$reference 'System.Drawing.dll'} diff --git a/TestSuite/CompilationSamples/DMTaskMaker.pas b/TestSuite/CompilationSamples/DMTaskMaker.pas index 2808fc13d..ebd385e7e 100644 --- a/TestSuite/CompilationSamples/DMTaskMaker.pas +++ b/TestSuite/CompilationSamples/DMTaskMaker.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DMTaskMaker; interface diff --git a/TestSuite/CompilationSamples/DrawManField.pas b/TestSuite/CompilationSamples/DrawManField.pas index abd120550..3448ed511 100644 --- a/TestSuite/CompilationSamples/DrawManField.pas +++ b/TestSuite/CompilationSamples/DrawManField.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DrawManField; //#savepcu false diff --git a/TestSuite/CompilationSamples/Drawman.pas b/TestSuite/CompilationSamples/Drawman.pas index 1b07b8ad3..b86539232 100644 --- a/TestSuite/CompilationSamples/Drawman.pas +++ b/TestSuite/CompilationSamples/Drawman.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// . /// , , . . unit Drawman; diff --git a/TestSuite/CompilationSamples/FilesOperations.pas b/TestSuite/CompilationSamples/FilesOperations.pas index 3c056fa4e..11a116eb8 100644 --- a/TestSuite/CompilationSamples/FilesOperations.pas +++ b/TestSuite/CompilationSamples/FilesOperations.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit FilesOperations; interface diff --git a/TestSuite/CompilationSamples/FormsABC.pas b/TestSuite/CompilationSamples/FormsABC.pas index 78e935504..f6ec72af5 100644 --- a/TestSuite/CompilationSamples/FormsABC.pas +++ b/TestSuite/CompilationSamples/FormsABC.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit FormsABC; {$apptype windows} diff --git a/TestSuite/CompilationSamples/GraphABC.pas b/TestSuite/CompilationSamples/GraphABC.pas index 183cc42aa..9f70a7132 100644 --- a/TestSuite/CompilationSamples/GraphABC.pas +++ b/TestSuite/CompilationSamples/GraphABC.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// , , , unit GraphABC; diff --git a/TestSuite/CompilationSamples/GraphABCHelper.pas b/TestSuite/CompilationSamples/GraphABCHelper.pas index fd538246b..dea3762c6 100644 --- a/TestSuite/CompilationSamples/GraphABCHelper.pas +++ b/TestSuite/CompilationSamples/GraphABCHelper.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit GraphABCHelper; //{$apptype windows} diff --git a/TestSuite/CompilationSamples/IniFile.pas b/TestSuite/CompilationSamples/IniFile.pas index 870ba8c4b..d98c76b20 100644 --- a/TestSuite/CompilationSamples/IniFile.pas +++ b/TestSuite/CompilationSamples/IniFile.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit IniFile; interface diff --git a/TestSuite/CompilationSamples/MPI.pas b/TestSuite/CompilationSamples/MPI.pas index f07e0d116..1218ba667 100644 --- a/TestSuite/CompilationSamples/MPI.pas +++ b/TestSuite/CompilationSamples/MPI.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit MPI; interface diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index e27c72220..9b2477d6c 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// /// !! System unit unit PABCSystem; diff --git a/TestSuite/CompilationSamples/PointerTools.pas b/TestSuite/CompilationSamples/PointerTools.pas index c7f15028d..ad8cbbe6a 100644 --- a/TestSuite/CompilationSamples/PointerTools.pas +++ b/TestSuite/CompilationSamples/PointerTools.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + unit PointerTools; procedure WriteMemoryToScreen(p:pointer; Count,InLineCount:integer); diff --git a/TestSuite/CompilationSamples/Robot.pas b/TestSuite/CompilationSamples/Robot.pas index 0b2f3e4a0..4c2bdbd8e 100644 --- a/TestSuite/CompilationSamples/Robot.pas +++ b/TestSuite/CompilationSamples/Robot.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// . , . /// . unit Robot; diff --git a/TestSuite/CompilationSamples/RobotField.pas b/TestSuite/CompilationSamples/RobotField.pas index 5f2b853c0..e3065a018 100644 --- a/TestSuite/CompilationSamples/RobotField.pas +++ b/TestSuite/CompilationSamples/RobotField.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit RobotField; //#savepcu false diff --git a/TestSuite/CompilationSamples/RobotTaskMaker.pas b/TestSuite/CompilationSamples/RobotTaskMaker.pas index 1ff68c908..333e093b0 100644 --- a/TestSuite/CompilationSamples/RobotTaskMaker.pas +++ b/TestSuite/CompilationSamples/RobotTaskMaker.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit RobotTaskMaker; interface diff --git a/TestSuite/CompilationSamples/Sockets.pas b/TestSuite/CompilationSamples/Sockets.pas index 5fc658c91..641eb99e3 100644 --- a/TestSuite/CompilationSamples/Sockets.pas +++ b/TestSuite/CompilationSamples/Sockets.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Sockets; {$reference 'System.dll'} diff --git a/TestSuite/CompilationSamples/Utils.pas b/TestSuite/CompilationSamples/Utils.pas index 33d4f3564..25ed0c819 100644 --- a/TestSuite/CompilationSamples/Utils.pas +++ b/TestSuite/CompilationSamples/Utils.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Utils; interface diff --git a/TestSuite/CompilationSamples/VCL.pas b/TestSuite/CompilationSamples/VCL.pas index 2fe1c139a..cdaca0b59 100644 --- a/TestSuite/CompilationSamples/VCL.pas +++ b/TestSuite/CompilationSamples/VCL.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit vcl; {$apptype windows} diff --git a/TestSuite/CompilationSamples/__RedirectIOMode.pas b/TestSuite/CompilationSamples/__RedirectIOMode.pas index 7bacb874e..5480a9dd0 100644 --- a/TestSuite/CompilationSamples/__RedirectIOMode.pas +++ b/TestSuite/CompilationSamples/__RedirectIOMode.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) ///-- unit __RedirectIOMode; diff --git a/TestSuite/CompilationSamples/__RunMode.pas b/TestSuite/CompilationSamples/__RunMode.pas index 91f58c07e..3bd0c48a7 100644 --- a/TestSuite/CompilationSamples/__RunMode.pas +++ b/TestSuite/CompilationSamples/__RunMode.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) ///-- unit __RunMode; diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index 1aa0a2e12..680d1587e 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -7877,7 +7877,7 @@ namespace PascalABCCompiler.TreeConverter { if (!context.check_can_goto(lab.comprehensive_code_block, gs.comprehensive_code_block)) { - AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name); + //AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name); } } convertion_data_and_alghoritms.check_node_parser_error(_labeled_statement.to_statement); @@ -7909,7 +7909,7 @@ namespace PascalABCCompiler.TreeConverter { if (!context.check_can_goto(lab.comprehensive_code_block, gs.comprehensive_code_block)) { - AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name); + //AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name); } } ret.return_value((statement_node)gs); diff --git a/_Presentations/2015 New Features/PascalABC.NET 2015.pptx b/_Presentations/2015 New Features/PascalABC.NET 2015.pptx index 1c931dee7..b26a18bf5 100644 Binary files a/_Presentations/2015 New Features/PascalABC.NET 2015.pptx and b/_Presentations/2015 New Features/PascalABC.NET 2015.pptx differ diff --git a/bin/Lib/ABCButtons.pas b/bin/Lib/ABCButtons.pas index 447b14d46..981e5c5c5 100644 --- a/bin/Lib/ABCButtons.pas +++ b/bin/Lib/ABCButtons.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit ABCButtons; interface diff --git a/bin/Lib/ABCHouse.pas b/bin/Lib/ABCHouse.pas index d9e9c81a5..3aeb38043 100644 --- a/bin/Lib/ABCHouse.pas +++ b/bin/Lib/ABCHouse.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit ABCHouse; interface diff --git a/bin/Lib/ABCObjects.pas b/bin/Lib/ABCObjects.pas index 18dd345d7..b5eec0a34 100644 --- a/bin/Lib/ABCObjects.pas +++ b/bin/Lib/ABCObjects.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// , , /// . /// , diff --git a/bin/Lib/ABCSprites.pas b/bin/Lib/ABCSprites.pas index bf1c7334e..601e52ccd 100644 --- a/bin/Lib/ABCSprites.pas +++ b/bin/Lib/ABCSprites.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// ABCSprites - . /// SpriteABC MultiPictureABC. unit ABCSprites; diff --git a/bin/Lib/Arrays.pas b/bin/Lib/Arrays.pas index db090d153..7ce19e546 100644 --- a/bin/Lib/Arrays.pas +++ b/bin/Lib/Arrays.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + unit Arrays; interface diff --git a/bin/Lib/CRT.pas b/bin/Lib/CRT.pas index 2b9de0800..ad8b111c1 100644 --- a/bin/Lib/CRT.pas +++ b/bin/Lib/CRT.pas @@ -1,11 +1,11 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// /// /// unit CRT; -// 0.3 -// Copyright (c) 2006-2007 DarkStar, SSM (parts) - {$apptype console} {$gendoc true} diff --git a/bin/Lib/Core.pas b/bin/Lib/Core.pas index 9e4fa8b37..e628c5c49 100644 --- a/bin/Lib/Core.pas +++ b/bin/Lib/Core.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Core; {$reference 'System.Core.dll'} end. \ No newline at end of file diff --git a/bin/Lib/DMCollect.pas b/bin/Lib/DMCollect.pas index 9c0bd190f..cf1bb7234 100644 --- a/bin/Lib/DMCollect.pas +++ b/bin/Lib/DMCollect.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DMCollect; {$reference 'System.Drawing.dll'} diff --git a/bin/Lib/DMTaskMaker.pas b/bin/Lib/DMTaskMaker.pas index 2808fc13d..ebd385e7e 100644 --- a/bin/Lib/DMTaskMaker.pas +++ b/bin/Lib/DMTaskMaker.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DMTaskMaker; interface diff --git a/bin/Lib/DrawManField.pas b/bin/Lib/DrawManField.pas index abd120550..3448ed511 100644 --- a/bin/Lib/DrawManField.pas +++ b/bin/Lib/DrawManField.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit DrawManField; //#savepcu false diff --git a/bin/Lib/Drawman.pas b/bin/Lib/Drawman.pas index 1b07b8ad3..b86539232 100644 --- a/bin/Lib/Drawman.pas +++ b/bin/Lib/Drawman.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// . /// , , . . unit Drawman; diff --git a/bin/Lib/FilesOperations.pas b/bin/Lib/FilesOperations.pas index 3c056fa4e..11a116eb8 100644 --- a/bin/Lib/FilesOperations.pas +++ b/bin/Lib/FilesOperations.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit FilesOperations; interface diff --git a/bin/Lib/FormsABC.pas b/bin/Lib/FormsABC.pas index 78e935504..f6ec72af5 100644 --- a/bin/Lib/FormsABC.pas +++ b/bin/Lib/FormsABC.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit FormsABC; {$apptype windows} diff --git a/bin/Lib/GraphABC.pas b/bin/Lib/GraphABC.pas index 183cc42aa..9f70a7132 100644 --- a/bin/Lib/GraphABC.pas +++ b/bin/Lib/GraphABC.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// , , , unit GraphABC; diff --git a/bin/Lib/GraphABCHelper.pas b/bin/Lib/GraphABCHelper.pas index fd538246b..dea3762c6 100644 --- a/bin/Lib/GraphABCHelper.pas +++ b/bin/Lib/GraphABCHelper.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit GraphABCHelper; //{$apptype windows} diff --git a/bin/Lib/IniFile.pas b/bin/Lib/IniFile.pas index 870ba8c4b..d98c76b20 100644 --- a/bin/Lib/IniFile.pas +++ b/bin/Lib/IniFile.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit IniFile; interface diff --git a/bin/Lib/MPI.pas b/bin/Lib/MPI.pas index f07e0d116..1218ba667 100644 --- a/bin/Lib/MPI.pas +++ b/bin/Lib/MPI.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit MPI; interface diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index e27c72220..9b2477d6c 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// /// !! System unit unit PABCSystem; diff --git a/bin/Lib/PointerTools.pas b/bin/Lib/PointerTools.pas index c7f15028d..ad8cbbe6a 100644 --- a/bin/Lib/PointerTools.pas +++ b/bin/Lib/PointerTools.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + unit PointerTools; procedure WriteMemoryToScreen(p:pointer; Count,InLineCount:integer); diff --git a/bin/Lib/Robot.pas b/bin/Lib/Robot.pas index 0b2f3e4a0..4c2bdbd8e 100644 --- a/bin/Lib/Robot.pas +++ b/bin/Lib/Robot.pas @@ -1,3 +1,6 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) + /// . , . /// . unit Robot; diff --git a/bin/Lib/RobotField.pas b/bin/Lib/RobotField.pas index 5f2b853c0..e3065a018 100644 --- a/bin/Lib/RobotField.pas +++ b/bin/Lib/RobotField.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit RobotField; //#savepcu false diff --git a/bin/Lib/RobotTaskMaker.pas b/bin/Lib/RobotTaskMaker.pas index 1ff68c908..333e093b0 100644 --- a/bin/Lib/RobotTaskMaker.pas +++ b/bin/Lib/RobotTaskMaker.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit RobotTaskMaker; interface diff --git a/bin/Lib/Sockets.pas b/bin/Lib/Sockets.pas index 5fc658c91..641eb99e3 100644 --- a/bin/Lib/Sockets.pas +++ b/bin/Lib/Sockets.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Sockets; {$reference 'System.dll'} diff --git a/bin/Lib/Utils.pas b/bin/Lib/Utils.pas index 33d4f3564..25ed0c819 100644 --- a/bin/Lib/Utils.pas +++ b/bin/Lib/Utils.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit Utils; interface diff --git a/bin/Lib/VCL.pas b/bin/Lib/VCL.pas index 2fe1c139a..cdaca0b59 100644 --- a/bin/Lib/VCL.pas +++ b/bin/Lib/VCL.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit vcl; {$apptype windows} diff --git a/bin/Lib/__RedirectIOMode.pas b/bin/Lib/__RedirectIOMode.pas index 7bacb874e..5480a9dd0 100644 --- a/bin/Lib/__RedirectIOMode.pas +++ b/bin/Lib/__RedirectIOMode.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) ///-- unit __RedirectIOMode; diff --git a/bin/Lib/__RunMode.pas b/bin/Lib/__RunMode.pas index 91f58c07e..3bd0c48a7 100644 --- a/bin/Lib/__RunMode.pas +++ b/bin/Lib/__RunMode.pas @@ -1,3 +1,5 @@ +// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt) +// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) ///-- unit __RunMode;