diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 01a6b0d43..436e150d8 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -5,7 +5,7 @@ using System.Runtime.CompilerServices; [assembly: AssemblyDelaySign(false)] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("PascalABC.NET Compiler")] -[assembly: AssemblyCopyright("Copyright © 2005-2017 by Ivan Bondarev, Stanislav Mihalkovich")] +[assembly: AssemblyCopyright("Copyright © 2005-2016 by Ivan Bondarev, Stanislav Mihalkovich")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] [assembly: AssemblyVersion(RevisionClass.FullVersion)] @@ -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 = "1386"; + public const string Revision = "1398"; 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 b61063e31..0ba18fedf 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ %MINOR%=2 -%REVISION%=1386 +%REVISION%=1398 %COREVERSION%=0 %MAJOR%=3 diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs index 37603de07..5bf76b021 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs +++ b/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: 11.02.2017 17:44:25 +// DateTime: 26.02.2017 19:20:17 // UserName: ????????? // GPLEX input file // GPLEX frame file diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascal.y b/Parsers/PascalABCParserNewSaushkin/ABCPascal.y index fc42c4845..d682e2294 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascal.y +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascal.y @@ -1938,6 +1938,14 @@ proc_func_decl_noclass { $$ = SyntaxTreeBuilder.BuildShortFuncDefinition($3 as formal_parameters, $4 as procedure_attributes_list, $2 as method_name, null, $6, @1.Merge(@3)); } + | tkFunction func_name fp_list tkColon fptype optional_method_modificators1 tkAssign func_decl_lambda tkSemiColon + { + $$ = SyntaxTreeBuilder.BuildShortFuncDefinition($3 as formal_parameters, $6 as procedure_attributes_list, $2 as method_name, $5 as type_definition, $8, @1.Merge(@5)); + } + | tkFunction func_name fp_list optional_method_modificators1 tkAssign func_decl_lambda tkSemiColon + { + $$ = SyntaxTreeBuilder.BuildShortFuncDefinition($3 as formal_parameters, $4 as procedure_attributes_list, $2 as method_name, null, $6, @1.Merge(@3)); + } | tkProcedure proc_name fp_list optional_method_modificators1 tkAssign unlabelled_stmt tkSemiColon { if ($6 is empty_statement) diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs index f729e4f89..a6a52e703 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs @@ -2,7 +2,7 @@ // GPPG version 1.3.6 // Machine: DESKTOP-8EAQPI9 -// DateTime: 11.02.2017 17:44:25 +// DateTime: 26.02.2017 19:20:17 // UserName: ????????? // Input file @@ -73,8 +73,8 @@ public partial class GPPGParser: ShiftReduceParser aliasses; #pragma warning restore 649 - private static Rule[] rules = new Rule[815]; - private static State[] states = new State[1306]; + private static Rule[] rules = new Rule[817]; + private static State[] states = new State[1310]; private static string[] nonTerms = new string[] { "parse_goal", "unit_key_word", "assignment", "optional_array_initializer", "attribute_declarations", "ot_visibility_specifier", "one_attribute", "attribute_variable", @@ -152,11 +152,11 @@ public partial class GPPGParser: ShiftReduceParser tkProcedure, proc_name, fp_list, + case 390: // proc_func_decl_noclass -> tkFunction, func_name, fp_list, tkColon, fptype, + // optional_method_modificators1, tkAssign, + // func_decl_lambda, tkSemiColon +{ + CurrentSemanticValue.stn = SyntaxTreeBuilder.BuildShortFuncDefinition(ValueStack[ValueStack.Depth-7].stn as formal_parameters, ValueStack[ValueStack.Depth-4].stn as procedure_attributes_list, ValueStack[ValueStack.Depth-8].stn as method_name, ValueStack[ValueStack.Depth-5].td as type_definition, ValueStack[ValueStack.Depth-2].ex, LocationStack[LocationStack.Depth-9].Merge(LocationStack[LocationStack.Depth-5])); + } + break; + case 391: // proc_func_decl_noclass -> tkFunction, func_name, fp_list, + // optional_method_modificators1, tkAssign, + // func_decl_lambda, tkSemiColon +{ + CurrentSemanticValue.stn = SyntaxTreeBuilder.BuildShortFuncDefinition(ValueStack[ValueStack.Depth-5].stn as formal_parameters, ValueStack[ValueStack.Depth-4].stn as procedure_attributes_list, ValueStack[ValueStack.Depth-6].stn as method_name, null, ValueStack[ValueStack.Depth-2].ex, LocationStack[LocationStack.Depth-7].Merge(LocationStack[LocationStack.Depth-5])); + } + break; + case 392: // proc_func_decl_noclass -> tkProcedure, proc_name, fp_list, // optional_method_modificators1, tkAssign, // unlabelled_stmt, tkSemiColon { @@ -3951,28 +3971,28 @@ public partial class GPPGParser: ShiftReduceParser proc_func_header, tkForward, tkSemiColon + case 393: // proc_func_decl_noclass -> proc_func_header, tkForward, tkSemiColon { CurrentSemanticValue.stn = new procedure_definition(ValueStack[ValueStack.Depth-3].td as procedure_header, null, CurrentLocationSpan); (CurrentSemanticValue.stn as procedure_definition).proc_header.proc_attributes.Add((procedure_attribute)ValueStack[ValueStack.Depth-2].id, ValueStack[ValueStack.Depth-2].id.source_context); } break; - case 392: // inclass_proc_func_decl -> inclass_proc_func_decl_noclass + case 394: // inclass_proc_func_decl -> inclass_proc_func_decl_noclass { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 393: // inclass_proc_func_decl -> tkClass, inclass_proc_func_decl_noclass + case 395: // inclass_proc_func_decl -> tkClass, inclass_proc_func_decl_noclass { if ((ValueStack[ValueStack.Depth-1].stn as procedure_definition).proc_header != null) (ValueStack[ValueStack.Depth-1].stn as procedure_definition).proc_header.class_keyword = true; CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 394: // inclass_proc_func_decl_noclass -> proc_func_header, inclass_block + case 396: // inclass_proc_func_decl_noclass -> proc_func_header, inclass_block { CurrentSemanticValue.stn = new procedure_definition(ValueStack[ValueStack.Depth-2].td as procedure_header, ValueStack[ValueStack.Depth-1].stn as proc_block, CurrentLocationSpan); } break; - case 395: // inclass_proc_func_decl_noclass -> tkFunction, func_name, fp_list, tkColon, + case 397: // inclass_proc_func_decl_noclass -> tkFunction, func_name, fp_list, tkColon, // fptype, optional_method_modificators1, // tkAssign, expr_l1, tkSemiColon { @@ -3981,7 +4001,7 @@ public partial class GPPGParser: ShiftReduceParser tkFunction, func_name, fp_list, + case 398: // inclass_proc_func_decl_noclass -> tkFunction, func_name, fp_list, // optional_method_modificators1, tkAssign, // expr_l1, tkSemiColon { @@ -3990,7 +4010,7 @@ public partial class GPPGParser: ShiftReduceParser tkProcedure, proc_name, fp_list, + case 399: // inclass_proc_func_decl_noclass -> tkProcedure, proc_name, fp_list, // optional_method_modificators1, tkAssign, // unlabelled_stmt, tkSemiColon { @@ -3999,21 +4019,21 @@ public partial class GPPGParser: ShiftReduceParser block + case 400: // proc_func_external_block -> block { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 399: // proc_func_external_block -> external_block + case 401: // proc_func_external_block -> external_block { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 400: // proc_name -> func_name + case 402: // proc_name -> func_name { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 401: // func_name -> func_meth_name_ident + case 403: // func_name -> func_meth_name_ident { CurrentSemanticValue.stn = new method_name(null,null, ValueStack[ValueStack.Depth-1].id, null, CurrentLocationSpan); } break; - case 402: // func_name -> func_class_name_ident_list, tkPoint, func_meth_name_ident + case 404: // func_name -> func_class_name_ident_list, tkPoint, func_meth_name_ident { var ln = ValueStack[ValueStack.Depth-3].ob as List; var cnt = (ValueStack[ValueStack.Depth-3].ob as List).Count; @@ -4023,282 +4043,282 @@ public partial class GPPGParser: ShiftReduceParser func_name_with_template_args + case 405: // func_class_name_ident -> func_name_with_template_args { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 404: // func_class_name_ident_list -> func_class_name_ident + case 406: // func_class_name_ident_list -> func_class_name_ident { CurrentSemanticValue.ob = new List(); (CurrentSemanticValue.ob as List).Add(ValueStack[ValueStack.Depth-1].id); } break; - case 405: // func_class_name_ident_list -> func_class_name_ident_list, tkPoint, + case 407: // func_class_name_ident_list -> func_class_name_ident_list, tkPoint, // func_class_name_ident { (ValueStack[ValueStack.Depth-3].ob as List).Add(ValueStack[ValueStack.Depth-1].id); CurrentSemanticValue.ob = ValueStack[ValueStack.Depth-3].ob; } break; - case 406: // func_meth_name_ident -> func_name_with_template_args + case 408: // func_meth_name_ident -> func_name_with_template_args { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 407: // func_meth_name_ident -> operator_name_ident + case 409: // func_meth_name_ident -> operator_name_ident { CurrentSemanticValue.id = (ident)ValueStack[ValueStack.Depth-1].ex; } break; - case 408: // func_meth_name_ident -> operator_name_ident, template_arguments + case 410: // func_meth_name_ident -> operator_name_ident, template_arguments { CurrentSemanticValue.id = new template_operator_name(null, ValueStack[ValueStack.Depth-1].stn as ident_list, ValueStack[ValueStack.Depth-2].ex as operator_name_ident, CurrentLocationSpan); } break; - case 409: // func_name_with_template_args -> func_name_ident + case 411: // func_name_with_template_args -> func_name_ident { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 410: // func_name_with_template_args -> func_name_ident, template_arguments + case 412: // func_name_with_template_args -> func_name_ident, template_arguments { CurrentSemanticValue.id = new template_type_name(ValueStack[ValueStack.Depth-2].id.name, ValueStack[ValueStack.Depth-1].stn as ident_list, CurrentLocationSpan); } break; - case 411: // func_name_ident -> identifier + case 413: // func_name_ident -> identifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 412: // proc_header -> tkProcedure, proc_name, fp_list, optional_method_modificators, + case 414: // proc_header -> tkProcedure, proc_name, fp_list, optional_method_modificators, // optional_where_section { CurrentSemanticValue.td = new procedure_header(ValueStack[ValueStack.Depth-3].stn as formal_parameters, ValueStack[ValueStack.Depth-2].stn as procedure_attributes_list, ValueStack[ValueStack.Depth-4].stn as method_name, ValueStack[ValueStack.Depth-1].stn as where_definition_list, CurrentLocationSpan); } break; - case 413: // func_header -> tkFunction, func_name, fp_list, optional_method_modificators, + case 415: // func_header -> tkFunction, func_name, fp_list, optional_method_modificators, // optional_where_section { CurrentSemanticValue.td = new function_header(ValueStack[ValueStack.Depth-3].stn as formal_parameters, ValueStack[ValueStack.Depth-2].stn as procedure_attributes_list, ValueStack[ValueStack.Depth-4].stn as method_name, ValueStack[ValueStack.Depth-1].stn as where_definition_list, null, CurrentLocationSpan); } break; - case 414: // func_header -> tkFunction, func_name, fp_list, tkColon, fptype, + case 416: // func_header -> tkFunction, func_name, fp_list, tkColon, fptype, // optional_method_modificators, optional_where_section { CurrentSemanticValue.td = new function_header(ValueStack[ValueStack.Depth-5].stn as formal_parameters, ValueStack[ValueStack.Depth-2].stn as procedure_attributes_list, ValueStack[ValueStack.Depth-6].stn as method_name, ValueStack[ValueStack.Depth-1].stn as where_definition_list, ValueStack[ValueStack.Depth-3].td as type_definition, CurrentLocationSpan); } break; - case 415: // external_block -> tkExternal, external_directive_ident, tkName, + case 417: // external_block -> tkExternal, external_directive_ident, tkName, // external_directive_ident, tkSemiColon { CurrentSemanticValue.stn = new external_directive(ValueStack[ValueStack.Depth-4].ex, ValueStack[ValueStack.Depth-2].ex, CurrentLocationSpan); } break; - case 416: // external_block -> tkExternal, external_directive_ident, tkSemiColon + case 418: // external_block -> tkExternal, external_directive_ident, tkSemiColon { CurrentSemanticValue.stn = new external_directive(ValueStack[ValueStack.Depth-2].ex, null, CurrentLocationSpan); } break; - case 417: // external_block -> tkExternal, tkSemiColon + case 419: // external_block -> tkExternal, tkSemiColon { CurrentSemanticValue.stn = new external_directive(null, null, CurrentLocationSpan); } break; - case 418: // external_directive_ident -> identifier + case 420: // external_directive_ident -> identifier { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].id; } break; - case 419: // external_directive_ident -> literal + case 421: // external_directive_ident -> literal { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 420: // block -> decl_sect_list, compound_stmt, tkSemiColon + case 422: // block -> decl_sect_list, compound_stmt, tkSemiColon { CurrentSemanticValue.stn = new block(ValueStack[ValueStack.Depth-3].stn as declarations, ValueStack[ValueStack.Depth-2].stn as statement_list, CurrentLocationSpan); } break; - case 421: // inclass_block -> inclass_decl_sect_list, compound_stmt, tkSemiColon + case 423: // inclass_block -> inclass_decl_sect_list, compound_stmt, tkSemiColon { CurrentSemanticValue.stn = new block(ValueStack[ValueStack.Depth-3].stn as declarations, ValueStack[ValueStack.Depth-2].stn as statement_list, CurrentLocationSpan); } break; - case 422: // fp_list -> /* empty */ + case 424: // fp_list -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 423: // fp_list -> tkRoundOpen, tkRoundClose + case 425: // fp_list -> tkRoundOpen, tkRoundClose { CurrentSemanticValue.stn = null; } break; - case 424: // fp_list -> tkRoundOpen, fp_sect_list, tkRoundClose + case 426: // fp_list -> tkRoundOpen, fp_sect_list, tkRoundClose { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-2].stn; if (CurrentSemanticValue.stn != null) CurrentSemanticValue.stn.source_context = CurrentLocationSpan; } break; - case 425: // fp_sect_list -> fp_sect + case 427: // fp_sect_list -> fp_sect { CurrentSemanticValue.stn = new formal_parameters(ValueStack[ValueStack.Depth-1].stn as typed_parameters, CurrentLocationSpan); } break; - case 426: // fp_sect_list -> fp_sect_list, tkSemiColon, fp_sect + case 428: // fp_sect_list -> fp_sect_list, tkSemiColon, fp_sect { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as formal_parameters).Add(ValueStack[ValueStack.Depth-1].stn as typed_parameters, CurrentLocationSpan); } break; - case 427: // fp_sect -> attribute_declarations, simple_fp_sect + case 429: // fp_sect -> attribute_declarations, simple_fp_sect { (ValueStack[ValueStack.Depth-1].stn as declaration).attributes = ValueStack[ValueStack.Depth-2].stn as attribute_list; CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 428: // simple_fp_sect -> param_name_list, tkColon, fptype + case 430: // simple_fp_sect -> param_name_list, tkColon, fptype { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-3].stn as ident_list, ValueStack[ValueStack.Depth-1].td, parametr_kind.none, null, CurrentLocationSpan); } break; - case 429: // simple_fp_sect -> tkVar, param_name_list, tkColon, fptype + case 431: // simple_fp_sect -> tkVar, param_name_list, tkColon, fptype { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-3].stn as ident_list, ValueStack[ValueStack.Depth-1].td, parametr_kind.var_parametr, null, CurrentLocationSpan); } break; - case 430: // simple_fp_sect -> tkConst, param_name_list, tkColon, fptype + case 432: // simple_fp_sect -> tkConst, param_name_list, tkColon, fptype { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-3].stn as ident_list, ValueStack[ValueStack.Depth-1].td, parametr_kind.const_parametr, null, CurrentLocationSpan); } break; - case 431: // simple_fp_sect -> tkParams, param_name_list, tkColon, fptype + case 433: // simple_fp_sect -> tkParams, param_name_list, tkColon, fptype { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-3].stn as ident_list, ValueStack[ValueStack.Depth-1].td,parametr_kind.params_parametr,null, CurrentLocationSpan); } break; - case 432: // simple_fp_sect -> param_name_list, tkColon, fptype, tkAssign, const_expr + case 434: // simple_fp_sect -> param_name_list, tkColon, fptype, tkAssign, const_expr { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-5].stn as ident_list, ValueStack[ValueStack.Depth-3].td, parametr_kind.none, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 433: // simple_fp_sect -> tkVar, param_name_list, tkColon, fptype, tkAssign, const_expr + case 435: // simple_fp_sect -> tkVar, param_name_list, tkColon, fptype, tkAssign, const_expr { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-5].stn as ident_list, ValueStack[ValueStack.Depth-3].td, parametr_kind.var_parametr, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 434: // simple_fp_sect -> tkConst, param_name_list, tkColon, fptype, tkAssign, + case 436: // simple_fp_sect -> tkConst, param_name_list, tkColon, fptype, tkAssign, // const_expr { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-5].stn as ident_list, ValueStack[ValueStack.Depth-3].td, parametr_kind.const_parametr, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 435: // param_name_list -> param_name + case 437: // param_name_list -> param_name { CurrentSemanticValue.stn = new ident_list(ValueStack[ValueStack.Depth-1].id, CurrentLocationSpan); } break; - case 436: // param_name_list -> param_name_list, tkComma, param_name + case 438: // param_name_list -> param_name_list, tkComma, param_name { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as ident_list).Add(ValueStack[ValueStack.Depth-1].id, CurrentLocationSpan); } break; - case 437: // param_name -> identifier + case 439: // param_name -> identifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 438: // fptype -> type_ref + case 440: // fptype -> type_ref { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 439: // fptype_noproctype -> simple_type + case 441: // fptype_noproctype -> simple_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 440: // fptype_noproctype -> string_type + case 442: // fptype_noproctype -> string_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 441: // fptype_noproctype -> pointer_type + case 443: // fptype_noproctype -> pointer_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 442: // fptype_noproctype -> structured_type + case 444: // fptype_noproctype -> structured_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 443: // fptype_noproctype -> template_type + case 445: // fptype_noproctype -> template_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 444: // stmt -> unlabelled_stmt + case 446: // stmt -> unlabelled_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 445: // stmt -> label_name, tkColon, stmt + case 447: // stmt -> label_name, tkColon, stmt { CurrentSemanticValue.stn = new labeled_statement(ValueStack[ValueStack.Depth-3].id, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 446: // unlabelled_stmt -> /* empty */ + case 448: // unlabelled_stmt -> /* empty */ { CurrentSemanticValue.stn = new empty_statement(); CurrentSemanticValue.stn.source_context = null; } break; - case 447: // unlabelled_stmt -> assignment + case 449: // unlabelled_stmt -> assignment { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 448: // unlabelled_stmt -> proc_call + case 450: // unlabelled_stmt -> proc_call { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 449: // unlabelled_stmt -> goto_stmt + case 451: // unlabelled_stmt -> goto_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 450: // unlabelled_stmt -> compound_stmt + case 452: // unlabelled_stmt -> compound_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 451: // unlabelled_stmt -> if_stmt + case 453: // unlabelled_stmt -> if_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 452: // unlabelled_stmt -> case_stmt + case 454: // unlabelled_stmt -> case_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 453: // unlabelled_stmt -> repeat_stmt + case 455: // unlabelled_stmt -> repeat_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 454: // unlabelled_stmt -> while_stmt + case 456: // unlabelled_stmt -> while_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 455: // unlabelled_stmt -> for_stmt + case 457: // unlabelled_stmt -> for_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 456: // unlabelled_stmt -> with_stmt + case 458: // unlabelled_stmt -> with_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 457: // unlabelled_stmt -> inherited_message + case 459: // unlabelled_stmt -> inherited_message { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 458: // unlabelled_stmt -> try_stmt + case 460: // unlabelled_stmt -> try_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 459: // unlabelled_stmt -> raise_stmt + case 461: // unlabelled_stmt -> raise_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 460: // unlabelled_stmt -> foreach_stmt + case 462: // unlabelled_stmt -> foreach_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 461: // unlabelled_stmt -> var_stmt + case 463: // unlabelled_stmt -> var_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 462: // unlabelled_stmt -> expr_as_stmt + case 464: // unlabelled_stmt -> expr_as_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 463: // unlabelled_stmt -> lock_stmt + case 465: // unlabelled_stmt -> lock_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 464: // unlabelled_stmt -> yield_stmt + case 466: // unlabelled_stmt -> yield_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 465: // unlabelled_stmt -> yield_sequence_stmt + case 467: // unlabelled_stmt -> yield_sequence_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 466: // yield_stmt -> tkYield, expr_l1 + case 468: // yield_stmt -> tkYield, expr_l1 { CurrentSemanticValue.stn = new yield_node(ValueStack[ValueStack.Depth-1].ex,CurrentLocationSpan); } break; - case 467: // yield_sequence_stmt -> tkYield, tkSequence, expr_l1 + case 469: // yield_sequence_stmt -> tkYield, tkSequence, expr_l1 { CurrentSemanticValue.stn = new yield_sequence_node(ValueStack[ValueStack.Depth-1].ex,CurrentLocationSpan); } break; - case 468: // var_stmt -> tkVar, var_decl_part + case 470: // var_stmt -> tkVar, var_decl_part { CurrentSemanticValue.stn = new var_statement(ValueStack[ValueStack.Depth-1].stn as var_def_statement, CurrentLocationSpan); } break; - case 469: // assignment -> var_reference, assign_operator, expr_with_func_decl_lambda + case 471: // assignment -> var_reference, assign_operator, expr_with_func_decl_lambda { CurrentSemanticValue.stn = new assign(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan); } break; - case 470: // assignment -> tkRoundOpen, variable, tkComma, variable_list, tkRoundClose, + case 472: // assignment -> tkRoundOpen, variable, tkComma, variable_list, tkRoundClose, // assign_operator, expr { if (ValueStack[ValueStack.Depth-2].op.type != Operators.Assignment) @@ -4308,7 +4328,7 @@ public partial class GPPGParser: ShiftReduceParser tkRoundOpen, tkVar, variable, tkComma, var_variable_list, + case 473: // assignment -> tkRoundOpen, tkVar, variable, tkComma, var_variable_list, // tkRoundClose, assign_operator, expr { if (ValueStack[ValueStack.Depth-2].op.type != Operators.Assignment) @@ -4318,41 +4338,41 @@ public partial class GPPGParser: ShiftReduceParser variable + case 474: // variable_list -> variable { CurrentSemanticValue.ob = new addressed_value_list(ValueStack[ValueStack.Depth-1].ex as addressed_value,LocationStack[LocationStack.Depth-1]); } break; - case 473: // variable_list -> variable_list, tkComma, variable + case 475: // variable_list -> variable_list, tkComma, variable { (ValueStack[ValueStack.Depth-3].ob as addressed_value_list).Add(ValueStack[ValueStack.Depth-1].ex as addressed_value); (ValueStack[ValueStack.Depth-3].ob as addressed_value_list).source_context = LexLocation.MergeAll(LocationStack[LocationStack.Depth-3],LocationStack[LocationStack.Depth-2],LocationStack[LocationStack.Depth-1]); CurrentSemanticValue.ob = ValueStack[ValueStack.Depth-3].ob; } break; - case 474: // var_variable_list -> tkVar, variable + case 476: // var_variable_list -> tkVar, variable { CurrentSemanticValue.ob = new addressed_value_list(ValueStack[ValueStack.Depth-1].ex as addressed_value,CurrentLocationSpan); } break; - case 475: // var_variable_list -> var_variable_list, tkComma, tkVar, variable + case 477: // var_variable_list -> var_variable_list, tkComma, tkVar, variable { (ValueStack[ValueStack.Depth-4].ob as addressed_value_list).Add(ValueStack[ValueStack.Depth-1].ex as addressed_value); (ValueStack[ValueStack.Depth-4].ob as addressed_value_list).source_context = LexLocation.MergeAll(LocationStack[LocationStack.Depth-4],LocationStack[LocationStack.Depth-3],LocationStack[LocationStack.Depth-2],LocationStack[LocationStack.Depth-1]); CurrentSemanticValue.ob = ValueStack[ValueStack.Depth-4].ob; } break; - case 476: // proc_call -> var_reference + case 478: // proc_call -> var_reference { CurrentSemanticValue.stn = new procedure_call(ValueStack[ValueStack.Depth-1].ex as addressed_value, CurrentLocationSpan); } break; - case 477: // goto_stmt -> tkGoto, label_name + case 479: // goto_stmt -> tkGoto, label_name { CurrentSemanticValue.stn = new goto_statement(ValueStack[ValueStack.Depth-1].id, CurrentLocationSpan); } break; - case 478: // compound_stmt -> tkBegin, stmt_list, tkEnd + case 480: // compound_stmt -> tkBegin, stmt_list, tkEnd { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-2].stn; (CurrentSemanticValue.stn as statement_list).left_logical_bracket = ValueStack[ValueStack.Depth-3].ti; @@ -4360,73 +4380,73 @@ public partial class GPPGParser: ShiftReduceParser stmt + case 481: // stmt_list -> stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, LocationStack[LocationStack.Depth-1]); } break; - case 480: // stmt_list -> stmt_list, tkSemiColon, stmt + case 482: // stmt_list -> stmt_list, tkSemiColon, stmt { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as statement_list).Add(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 481: // if_stmt -> tkIf, expr_l1, tkThen, unlabelled_stmt + case 483: // if_stmt -> tkIf, expr_l1, tkThen, unlabelled_stmt { CurrentSemanticValue.stn = new if_node(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].stn as statement, null, CurrentLocationSpan); } break; - case 482: // if_stmt -> tkIf, expr_l1, tkThen, unlabelled_stmt, tkElse, unlabelled_stmt + case 484: // if_stmt -> tkIf, expr_l1, tkThen, unlabelled_stmt, tkElse, unlabelled_stmt { CurrentSemanticValue.stn = new if_node(ValueStack[ValueStack.Depth-5].ex, ValueStack[ValueStack.Depth-3].stn as statement, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 483: // case_stmt -> tkCase, expr_l1, tkOf, case_list, else_case, tkEnd + case 485: // case_stmt -> tkCase, expr_l1, tkOf, case_list, else_case, tkEnd { CurrentSemanticValue.stn = new case_node(ValueStack[ValueStack.Depth-5].ex, ValueStack[ValueStack.Depth-3].stn as case_variants, ValueStack[ValueStack.Depth-2].stn as statement, CurrentLocationSpan); } break; - case 484: // case_list -> case_item + case 486: // case_list -> case_item { if (ValueStack[ValueStack.Depth-1].stn is empty_statement) CurrentSemanticValue.stn = NewCaseItem(ValueStack[ValueStack.Depth-1].stn, null); else CurrentSemanticValue.stn = NewCaseItem(ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 485: // case_list -> case_list, tkSemiColon, case_item + case 487: // case_list -> case_list, tkSemiColon, case_item { CurrentSemanticValue.stn = AddCaseItem(ValueStack[ValueStack.Depth-3].stn as case_variants, ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 486: // case_item -> /* empty */ + case 488: // case_item -> /* empty */ { CurrentSemanticValue.stn = new empty_statement(); } break; - case 487: // case_item -> case_label_list, tkColon, unlabelled_stmt + case 489: // case_item -> case_label_list, tkColon, unlabelled_stmt { CurrentSemanticValue.stn = new case_variant(ValueStack[ValueStack.Depth-3].stn as expression_list, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 488: // case_label_list -> case_label + case 490: // case_label_list -> case_label { CurrentSemanticValue.stn = new expression_list(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 489: // case_label_list -> case_label_list, tkComma, case_label + case 491: // case_label_list -> case_label_list, tkComma, case_label { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as expression_list).Add(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 490: // case_label -> const_elem + case 492: // case_label -> const_elem { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 491: // else_case -> /* empty */ + case 493: // else_case -> /* empty */ { CurrentSemanticValue.stn = null;} break; - case 492: // else_case -> tkElse, stmt_list + case 494: // else_case -> tkElse, stmt_list { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 493: // repeat_stmt -> tkRepeat, stmt_list, tkUntil, expr + case 495: // repeat_stmt -> tkRepeat, stmt_list, tkUntil, expr { CurrentSemanticValue.stn = new repeat_node(ValueStack[ValueStack.Depth-3].stn as statement_list, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); (ValueStack[ValueStack.Depth-3].stn as statement_list).left_logical_bracket = ValueStack[ValueStack.Depth-4].ti; @@ -4434,23 +4454,23 @@ public partial class GPPGParser: ShiftReduceParser tkWhile, expr_l1, optional_tk_do, unlabelled_stmt + case 496: // while_stmt -> tkWhile, expr_l1, optional_tk_do, unlabelled_stmt { CurrentSemanticValue.stn = NewWhileStmt(ValueStack[ValueStack.Depth-4].ti, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-2].ti, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 495: // optional_tk_do -> tkDo + case 497: // optional_tk_do -> tkDo { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 496: // optional_tk_do -> /* empty */ + case 498: // optional_tk_do -> /* empty */ { CurrentSemanticValue.ti = null; } break; - case 497: // lock_stmt -> tkLock, expr_l1, tkDo, unlabelled_stmt + case 499: // lock_stmt -> tkLock, expr_l1, tkDo, unlabelled_stmt { CurrentSemanticValue.stn = new lock_stmt(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 498: // foreach_stmt -> tkForeach, identifier, foreach_stmt_ident_dype_opt, tkIn, + case 500: // foreach_stmt -> tkForeach, identifier, foreach_stmt_ident_dype_opt, tkIn, // expr_l1, tkDo, unlabelled_stmt { CurrentSemanticValue.stn = new foreach_stmt(ValueStack[ValueStack.Depth-6].id, ValueStack[ValueStack.Depth-5].td, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); @@ -4458,68 +4478,68 @@ public partial class GPPGParser: ShiftReduceParser tkForeach, tkVar, identifier, tkColon, type_ref, tkIn, expr_l1, + case 501: // foreach_stmt -> tkForeach, tkVar, identifier, tkColon, type_ref, tkIn, expr_l1, // tkDo, unlabelled_stmt { CurrentSemanticValue.stn = new foreach_stmt(ValueStack[ValueStack.Depth-7].id, ValueStack[ValueStack.Depth-5].td, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 500: // foreach_stmt -> tkForeach, tkVar, identifier, tkIn, expr_l1, tkDo, + case 502: // foreach_stmt -> tkForeach, tkVar, identifier, tkIn, expr_l1, tkDo, // unlabelled_stmt { CurrentSemanticValue.stn = new foreach_stmt(ValueStack[ValueStack.Depth-5].id, new no_type_foreach(), ValueStack[ValueStack.Depth-3].ex, (statement)ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 501: // foreach_stmt_ident_dype_opt -> tkColon, type_ref + case 503: // foreach_stmt_ident_dype_opt -> tkColon, type_ref { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 503: // for_stmt -> tkFor, optional_var, identifier, for_stmt_decl_or_assign, expr_l1, + case 505: // for_stmt -> tkFor, optional_var, identifier, for_stmt_decl_or_assign, expr_l1, // for_cycle_type, expr_l1, optional_tk_do, unlabelled_stmt { CurrentSemanticValue.stn = NewForStmt((bool)ValueStack[ValueStack.Depth-8].ob, ValueStack[ValueStack.Depth-7].id, ValueStack[ValueStack.Depth-6].td, ValueStack[ValueStack.Depth-5].ex, (for_cycle_type)ValueStack[ValueStack.Depth-4].ob, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-2].ti, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 504: // optional_var -> tkVar + case 506: // optional_var -> tkVar { CurrentSemanticValue.ob = true; } break; - case 505: // optional_var -> /* empty */ + case 507: // optional_var -> /* empty */ { CurrentSemanticValue.ob = false; } break; - case 507: // for_stmt_decl_or_assign -> tkColon, simple_type_identifier, tkAssign + case 509: // for_stmt_decl_or_assign -> tkColon, simple_type_identifier, tkAssign { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-2].td; } break; - case 508: // for_cycle_type -> tkTo + case 510: // for_cycle_type -> tkTo { CurrentSemanticValue.ob = for_cycle_type.to; } break; - case 509: // for_cycle_type -> tkDownto + case 511: // for_cycle_type -> tkDownto { CurrentSemanticValue.ob = for_cycle_type.downto; } break; - case 510: // with_stmt -> tkWith, expr_list, tkDo, unlabelled_stmt + case 512: // with_stmt -> tkWith, expr_list, tkDo, unlabelled_stmt { CurrentSemanticValue.stn = new with_statement(ValueStack[ValueStack.Depth-1].stn as statement, ValueStack[ValueStack.Depth-3].stn as expression_list, CurrentLocationSpan); } break; - case 511: // inherited_message -> tkInherited + case 513: // inherited_message -> tkInherited { CurrentSemanticValue.stn = new inherited_message(); CurrentSemanticValue.stn.source_context = CurrentLocationSpan; } break; - case 512: // try_stmt -> tkTry, stmt_list, try_handler + case 514: // try_stmt -> tkTry, stmt_list, try_handler { CurrentSemanticValue.stn = new try_stmt(ValueStack[ValueStack.Depth-2].stn as statement_list, ValueStack[ValueStack.Depth-1].stn as try_handler, CurrentLocationSpan); (ValueStack[ValueStack.Depth-2].stn as statement_list).left_logical_bracket = ValueStack[ValueStack.Depth-3].ti; ValueStack[ValueStack.Depth-2].stn.source_context = LocationStack[LocationStack.Depth-3].Merge(LocationStack[LocationStack.Depth-2]); } break; - case 513: // try_handler -> tkFinally, stmt_list, tkEnd + case 515: // try_handler -> tkFinally, stmt_list, tkEnd { CurrentSemanticValue.stn = new try_handler_finally(ValueStack[ValueStack.Depth-2].stn as statement_list, CurrentLocationSpan); (ValueStack[ValueStack.Depth-2].stn as statement_list).left_logical_bracket = ValueStack[ValueStack.Depth-3].ti; (ValueStack[ValueStack.Depth-2].stn as statement_list).right_logical_bracket = ValueStack[ValueStack.Depth-1].ti; } break; - case 514: // try_handler -> tkExcept, exception_block, tkEnd + case 516: // try_handler -> tkExcept, exception_block, tkEnd { CurrentSemanticValue.stn = new try_handler_except((exception_block)ValueStack[ValueStack.Depth-2].stn, CurrentLocationSpan); if ((ValueStack[ValueStack.Depth-2].stn as exception_block).stmt_list != null) @@ -4529,154 +4549,154 @@ public partial class GPPGParser: ShiftReduceParser exception_handler_list, exception_block_else_branch + case 517: // exception_block -> exception_handler_list, exception_block_else_branch { CurrentSemanticValue.stn = new exception_block(null, (exception_handler_list)ValueStack[ValueStack.Depth-2].stn, (statement_list)ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 516: // exception_block -> exception_handler_list, tkSemiColon, + case 518: // exception_block -> exception_handler_list, tkSemiColon, // exception_block_else_branch { CurrentSemanticValue.stn = new exception_block(null, (exception_handler_list)ValueStack[ValueStack.Depth-3].stn, (statement_list)ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 517: // exception_block -> stmt_list + case 519: // exception_block -> stmt_list { CurrentSemanticValue.stn = new exception_block(ValueStack[ValueStack.Depth-1].stn as statement_list, null, null, LocationStack[LocationStack.Depth-1]); } break; - case 518: // exception_handler_list -> exception_handler + case 520: // exception_handler_list -> exception_handler { CurrentSemanticValue.stn = new exception_handler_list(ValueStack[ValueStack.Depth-1].stn as exception_handler, CurrentLocationSpan); } break; - case 519: // exception_handler_list -> exception_handler_list, tkSemiColon, + case 521: // exception_handler_list -> exception_handler_list, tkSemiColon, // exception_handler { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as exception_handler_list).Add(ValueStack[ValueStack.Depth-1].stn as exception_handler, CurrentLocationSpan); } break; - case 520: // exception_block_else_branch -> /* empty */ + case 522: // exception_block_else_branch -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 521: // exception_block_else_branch -> tkElse, stmt_list + case 523: // exception_block_else_branch -> tkElse, stmt_list { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 522: // exception_handler -> tkOn, exception_identifier, tkDo, unlabelled_stmt + case 524: // exception_handler -> tkOn, exception_identifier, tkDo, unlabelled_stmt { CurrentSemanticValue.stn = new exception_handler((ValueStack[ValueStack.Depth-3].stn as exception_ident).variable, (ValueStack[ValueStack.Depth-3].stn as exception_ident).type_name, ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 523: // exception_identifier -> exception_class_type_identifier + case 525: // exception_identifier -> exception_class_type_identifier { CurrentSemanticValue.stn = new exception_ident(null, (named_type_reference)ValueStack[ValueStack.Depth-1].td, CurrentLocationSpan); } break; - case 524: // exception_identifier -> exception_variable, tkColon, + case 526: // exception_identifier -> exception_variable, tkColon, // exception_class_type_identifier { CurrentSemanticValue.stn = new exception_ident(ValueStack[ValueStack.Depth-3].id, (named_type_reference)ValueStack[ValueStack.Depth-1].td, CurrentLocationSpan); } break; - case 525: // exception_class_type_identifier -> simple_type_identifier + case 527: // exception_class_type_identifier -> simple_type_identifier { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 526: // exception_variable -> identifier + case 528: // exception_variable -> identifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 527: // raise_stmt -> tkRaise + case 529: // raise_stmt -> tkRaise { CurrentSemanticValue.stn = new raise_stmt(); CurrentSemanticValue.stn.source_context = CurrentLocationSpan; } break; - case 528: // raise_stmt -> tkRaise, expr + case 530: // raise_stmt -> tkRaise, expr { CurrentSemanticValue.stn = new raise_stmt(ValueStack[ValueStack.Depth-1].ex, null, CurrentLocationSpan); } break; - case 529: // expr_list -> expr_with_func_decl_lambda + case 531: // expr_list -> expr_with_func_decl_lambda { CurrentSemanticValue.stn = new expression_list(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 530: // expr_list -> expr_list, tkComma, expr_with_func_decl_lambda + case 532: // expr_list -> expr_list, tkComma, expr_with_func_decl_lambda { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as expression_list).Add(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 531: // expr_as_stmt -> allowable_expr_as_stmt + case 533: // expr_as_stmt -> allowable_expr_as_stmt { CurrentSemanticValue.stn = new expression_as_statement(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 532: // allowable_expr_as_stmt -> new_expr + case 534: // allowable_expr_as_stmt -> new_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 533: // expr_with_func_decl_lambda -> expr + case 535: // expr_with_func_decl_lambda -> expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 534: // expr_with_func_decl_lambda -> func_decl_lambda + case 536: // expr_with_func_decl_lambda -> func_decl_lambda { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 535: // expr -> expr_l1 + case 537: // expr -> expr_l1 { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 536: // expr -> format_expr + case 538: // expr -> format_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 537: // expr_l1 -> relop_expr + case 539: // expr_l1 -> relop_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 538: // expr_l1 -> question_expr + case 540: // expr_l1 -> question_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 539: // sizeof_expr -> tkSizeOf, tkRoundOpen, simple_or_template_type_reference, + case 541: // sizeof_expr -> tkSizeOf, tkRoundOpen, simple_or_template_type_reference, // tkRoundClose { CurrentSemanticValue.ex = new sizeof_operator((named_type_reference)ValueStack[ValueStack.Depth-2].td, null, CurrentLocationSpan); } break; - case 540: // typeof_expr -> tkTypeOf, tkRoundOpen, simple_or_template_type_reference, + case 542: // typeof_expr -> tkTypeOf, tkRoundOpen, simple_or_template_type_reference, // tkRoundClose { CurrentSemanticValue.ex = new typeof_operator((named_type_reference)ValueStack[ValueStack.Depth-2].td, CurrentLocationSpan); } break; - case 541: // question_expr -> expr_l1, tkQuestion, expr_l1, tkColon, expr_l1 + case 543: // question_expr -> expr_l1, tkQuestion, expr_l1, tkColon, expr_l1 { CurrentSemanticValue.ex = new question_colon_expression(ValueStack[ValueStack.Depth-5].ex, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 542: // simple_or_template_type_reference -> simple_type_identifier + case 544: // simple_or_template_type_reference -> simple_type_identifier { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 543: // simple_or_template_type_reference -> simple_type_identifier, + case 545: // simple_or_template_type_reference -> simple_type_identifier, // template_type_params { CurrentSemanticValue.td = new template_type_reference((named_type_reference)ValueStack[ValueStack.Depth-2].td, (template_param_list)ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 544: // simple_or_template_type_reference -> simple_type_identifier, tkAmpersend, + case 546: // simple_or_template_type_reference -> simple_type_identifier, tkAmpersend, // template_type_params { CurrentSemanticValue.td = new template_type_reference((named_type_reference)ValueStack[ValueStack.Depth-3].td, (template_param_list)ValueStack[ValueStack.Depth-1].stn, CurrentLocationSpan); } break; - case 545: // optional_array_initializer -> tkRoundOpen, typed_const_list, tkRoundClose + case 547: // optional_array_initializer -> tkRoundOpen, typed_const_list, tkRoundClose { CurrentSemanticValue.stn = new array_const((expression_list)ValueStack[ValueStack.Depth-2].stn, CurrentLocationSpan); } break; - case 547: // new_expr -> tkNew, simple_or_template_type_reference, + case 549: // new_expr -> tkNew, simple_or_template_type_reference, // optional_expr_list_with_bracket { CurrentSemanticValue.ex = new new_expr(ValueStack[ValueStack.Depth-2].td, ValueStack[ValueStack.Depth-1].stn as expression_list, false, null, CurrentLocationSpan); } break; - case 548: // new_expr -> tkNew, array_name_for_new_expr, tkSquareOpen, optional_expr_list, + case 550: // new_expr -> tkNew, array_name_for_new_expr, tkSquareOpen, optional_expr_list, // tkSquareClose, optional_array_initializer { var el = ValueStack[ValueStack.Depth-3].stn as expression_list; @@ -4692,7 +4712,7 @@ public partial class GPPGParser: ShiftReduceParser tkNew, tkClass, tkRoundOpen, list_fields_in_unnamed_object, + case 551: // new_expr -> tkNew, tkClass, tkRoundOpen, list_fields_in_unnamed_object, // tkRoundClose { // sugared node @@ -4707,12 +4727,12 @@ public partial class GPPGParser: ShiftReduceParser identifier, tkAssign, relop_expr + case 552: // field_in_unnamed_object -> identifier, tkAssign, relop_expr { CurrentSemanticValue.ob = new name_assign_expr(ValueStack[ValueStack.Depth-3].id,ValueStack[ValueStack.Depth-1].ex,CurrentLocationSpan); } break; - case 551: // field_in_unnamed_object -> relop_expr + case 553: // field_in_unnamed_object -> relop_expr { ident name = null; var id = ValueStack[ValueStack.Depth-1].ex as ident; @@ -4732,13 +4752,13 @@ public partial class GPPGParser: ShiftReduceParser field_in_unnamed_object + case 554: // list_fields_in_unnamed_object -> field_in_unnamed_object { var l = new name_assign_expr_list(); CurrentSemanticValue.ob = l.Add(ValueStack[ValueStack.Depth-1].ob as name_assign_expr); } break; - case 553: // list_fields_in_unnamed_object -> list_fields_in_unnamed_object, tkComma, + case 555: // list_fields_in_unnamed_object -> list_fields_in_unnamed_object, tkComma, // field_in_unnamed_object { var nel = ValueStack[ValueStack.Depth-3].ob as name_assign_expr_list; @@ -4749,157 +4769,157 @@ public partial class GPPGParser: ShiftReduceParser simple_type_identifier + case 556: // array_name_for_new_expr -> simple_type_identifier { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 555: // array_name_for_new_expr -> unsized_array_type + case 557: // array_name_for_new_expr -> unsized_array_type { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 556: // optional_expr_list_with_bracket -> /* empty */ + case 558: // optional_expr_list_with_bracket -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 557: // optional_expr_list_with_bracket -> tkRoundOpen, optional_expr_list, + case 559: // optional_expr_list_with_bracket -> tkRoundOpen, optional_expr_list, // tkRoundClose { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-2].stn; } break; - case 558: // relop_expr -> simple_expr + case 560: // relop_expr -> simple_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 559: // relop_expr -> relop_expr, relop, simple_expr + case 561: // relop_expr -> relop_expr, relop, simple_expr { CurrentSemanticValue.ex = new bin_expr(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan); } break; - case 560: // simple_expr_or_nothing -> simple_expr + case 562: // simple_expr_or_nothing -> simple_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 561: // simple_expr_or_nothing -> /* empty */ + case 563: // simple_expr_or_nothing -> /* empty */ { CurrentSemanticValue.ex = new int32_const(int.MaxValue); } break; - case 562: // format_expr -> simple_expr, tkColon, simple_expr_or_nothing + case 564: // format_expr -> simple_expr, tkColon, simple_expr_or_nothing { CurrentSemanticValue.ex = new format_expr(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, null, CurrentLocationSpan); } break; - case 563: // format_expr -> tkColon, simple_expr_or_nothing + case 565: // format_expr -> tkColon, simple_expr_or_nothing { CurrentSemanticValue.ex = new format_expr(new int32_const(int.MaxValue), ValueStack[ValueStack.Depth-1].ex, null, CurrentLocationSpan); } break; - case 564: // format_expr -> simple_expr, tkColon, simple_expr_or_nothing, tkColon, + case 566: // format_expr -> simple_expr, tkColon, simple_expr_or_nothing, tkColon, // simple_expr { CurrentSemanticValue.ex = new format_expr(ValueStack[ValueStack.Depth-5].ex, ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 565: // format_expr -> tkColon, simple_expr_or_nothing, tkColon, simple_expr + case 567: // format_expr -> tkColon, simple_expr_or_nothing, tkColon, simple_expr { CurrentSemanticValue.ex = new format_expr(new int32_const(int.MaxValue), ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 566: // relop -> tkEqual + case 568: // relop -> tkEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 567: // relop -> tkNotEqual + case 569: // relop -> tkNotEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 568: // relop -> tkLower + case 570: // relop -> tkLower { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 569: // relop -> tkGreater + case 571: // relop -> tkGreater { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 570: // relop -> tkLowerEqual + case 572: // relop -> tkLowerEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 571: // relop -> tkGreaterEqual + case 573: // relop -> tkGreaterEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 572: // relop -> tkIn + case 574: // relop -> tkIn { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 573: // simple_expr -> term + case 575: // simple_expr -> term { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 574: // simple_expr -> simple_expr, addop, term + case 576: // simple_expr -> simple_expr, addop, term { CurrentSemanticValue.ex = new bin_expr(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan); } break; - case 575: // addop -> tkPlus + case 577: // addop -> tkPlus { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 576: // addop -> tkMinus + case 578: // addop -> tkMinus { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 577: // addop -> tkOr + case 579: // addop -> tkOr { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 578: // addop -> tkXor + case 580: // addop -> tkXor { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 579: // addop -> tkCSharpStyleOr + case 581: // addop -> tkCSharpStyleOr { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 580: // typecast_op -> tkAs + case 582: // typecast_op -> tkAs { CurrentSemanticValue.ob = op_typecast.as_op; } break; - case 581: // typecast_op -> tkIs + case 583: // typecast_op -> tkIs { CurrentSemanticValue.ob = op_typecast.is_op; } break; - case 582: // as_is_expr -> term, typecast_op, simple_or_template_type_reference + case 584: // as_is_expr -> term, typecast_op, simple_or_template_type_reference { CurrentSemanticValue.ex = NewAsIsExpr(ValueStack[ValueStack.Depth-3].ex, (op_typecast)ValueStack[ValueStack.Depth-2].ob, ValueStack[ValueStack.Depth-1].td, CurrentLocationSpan); } break; - case 583: // term -> factor + case 585: // term -> factor { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 584: // term -> new_expr + case 586: // term -> new_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 585: // term -> term, mulop, factor + case 587: // term -> term, mulop, factor { CurrentSemanticValue.ex = new bin_expr(ValueStack[ValueStack.Depth-3].ex,ValueStack[ValueStack.Depth-1].ex,(ValueStack[ValueStack.Depth-2].op).type, CurrentLocationSpan); } break; - case 586: // term -> as_is_expr + case 588: // term -> as_is_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 587: // mulop -> tkStar + case 589: // mulop -> tkStar { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 588: // mulop -> tkSlash + case 590: // mulop -> tkSlash { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 589: // mulop -> tkDiv + case 591: // mulop -> tkDiv { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 590: // mulop -> tkMod + case 592: // mulop -> tkMod { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 591: // mulop -> tkShl + case 593: // mulop -> tkShl { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 592: // mulop -> tkShr + case 594: // mulop -> tkShr { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 593: // mulop -> tkAnd + case 595: // mulop -> tkAnd { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 594: // default_expr -> tkDefault, tkRoundOpen, simple_or_template_type_reference, + case 596: // default_expr -> tkDefault, tkRoundOpen, simple_or_template_type_reference, // tkRoundClose { CurrentSemanticValue.ex = new default_operator(ValueStack[ValueStack.Depth-2].td as named_type_reference, CurrentLocationSpan); } break; - case 595: // tuple -> tkRoundOpen, expr_l1, tkComma, expr_l1_list, lambda_type_ref, + case 597: // tuple -> tkRoundOpen, expr_l1, tkComma, expr_l1_list, lambda_type_ref, // optional_full_lambda_fp_list, tkRoundClose { /*if ($5 != null) @@ -4913,99 +4933,99 @@ public partial class GPPGParser: ShiftReduceParser tkNil + case 598: // factor -> tkNil { CurrentSemanticValue.ex = new nil_const(); CurrentSemanticValue.ex.source_context = CurrentLocationSpan; } break; - case 597: // factor -> literal_or_number + case 599: // factor -> literal_or_number { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 598: // factor -> default_expr + case 600: // factor -> default_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 599: // factor -> tkSquareOpen, elem_list, tkSquareClose + case 601: // factor -> tkSquareOpen, elem_list, tkSquareClose { CurrentSemanticValue.ex = new pascal_set_constant(ValueStack[ValueStack.Depth-2].stn as expression_list, CurrentLocationSpan); } break; - case 600: // factor -> tkNot, factor + case 602: // factor -> tkNot, factor { CurrentSemanticValue.ex = new un_expr(ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan); } break; - case 601: // factor -> sign, factor + case 603: // factor -> sign, factor { CurrentSemanticValue.ex = new un_expr(ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan); } break; - case 602: // factor -> tkDeref, factor + case 604: // factor -> tkDeref, factor { CurrentSemanticValue.ex = new roof_dereference(ValueStack[ValueStack.Depth-1].ex as addressed_value, CurrentLocationSpan); } break; - case 603: // factor -> var_reference + case 605: // factor -> var_reference { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 604: // factor -> tuple + case 606: // factor -> tuple { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 605: // literal_or_number -> literal + case 607: // literal_or_number -> literal { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 606: // literal_or_number -> unsigned_number + case 608: // literal_or_number -> unsigned_number { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 607: // var_reference -> var_address, variable + case 609: // var_reference -> var_address, variable { CurrentSemanticValue.ex = NewVarReference(ValueStack[ValueStack.Depth-2].stn as get_address, ValueStack[ValueStack.Depth-1].ex as addressed_value, CurrentLocationSpan); } break; - case 608: // var_reference -> variable + case 610: // var_reference -> variable { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 609: // var_address -> tkAddressOf + case 611: // var_address -> tkAddressOf { CurrentSemanticValue.stn = NewVarAddress(CurrentLocationSpan); } break; - case 610: // var_address -> var_address, tkAddressOf + case 612: // var_address -> var_address, tkAddressOf { CurrentSemanticValue.stn = NewVarAddress(ValueStack[ValueStack.Depth-2].stn as get_address, CurrentLocationSpan); } break; - case 611: // attribute_variable -> simple_type_identifier, optional_expr_list_with_bracket + case 613: // attribute_variable -> simple_type_identifier, optional_expr_list_with_bracket { CurrentSemanticValue.stn = new attribute(null, ValueStack[ValueStack.Depth-2].td as named_type_reference, ValueStack[ValueStack.Depth-1].stn as expression_list, CurrentLocationSpan); } break; - case 612: // dotted_identifier -> identifier + case 614: // dotted_identifier -> identifier { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].id; } break; - case 613: // dotted_identifier -> dotted_identifier, tkPoint, identifier_or_keyword + case 615: // dotted_identifier -> dotted_identifier, tkPoint, identifier_or_keyword { CurrentSemanticValue.ex = new dot_node(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].id as addressed_value, CurrentLocationSpan); } break; - case 614: // variable_as_type -> dotted_identifier + case 616: // variable_as_type -> dotted_identifier { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex;} break; - case 615: // variable_as_type -> dotted_identifier, template_type_params + case 617: // variable_as_type -> dotted_identifier, template_type_params { CurrentSemanticValue.ex = new ident_with_templateparams(ValueStack[ValueStack.Depth-2].ex as addressed_value, ValueStack[ValueStack.Depth-1].stn as template_param_list, CurrentLocationSpan); } break; - case 616: // variable -> identifier + case 618: // variable -> identifier { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].id; } break; - case 617: // variable -> operator_name_ident + case 619: // variable -> operator_name_ident { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 618: // variable -> tkInherited, identifier + case 620: // variable -> tkInherited, identifier { CurrentSemanticValue.ex = new inherited_ident(ValueStack[ValueStack.Depth-1].id.name, CurrentLocationSpan); } break; - case 619: // variable -> tkRoundOpen, expr, tkRoundClose + case 621: // variable -> tkRoundOpen, expr, tkRoundClose { if (!parsertools.build_tree_for_formatter) { @@ -5015,18 +5035,18 @@ public partial class GPPGParser: ShiftReduceParser sizeof_expr + case 622: // variable -> sizeof_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 621: // variable -> typeof_expr + case 623: // variable -> typeof_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 622: // variable -> literal_or_number, tkPoint, identifier_or_keyword + case 624: // variable -> literal_or_number, tkPoint, identifier_or_keyword { CurrentSemanticValue.ex = new dot_node(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].id as addressed_value, CurrentLocationSpan); } break; - case 623: // variable -> variable, tkSquareOpen, expr_list, tkSquareClose + case 625: // variable -> variable, tkSquareOpen, expr_list, tkSquareClose { var el = ValueStack[ValueStack.Depth-2].stn as expression_list; // SSM 10/03/16 if (el.expressions.Count==1 && el.expressions[0] is format_expr) @@ -5037,497 +5057,497 @@ public partial class GPPGParser: ShiftReduceParser variable, tkQuestionSquareOpen, format_expr, tkSquareClose + case 626: // variable -> variable, tkQuestionSquareOpen, format_expr, tkSquareClose { var fe = ValueStack[ValueStack.Depth-2].ex as format_expr; // SSM 9/01/17 CurrentSemanticValue.ex = new slice_expr_question(ValueStack[ValueStack.Depth-4].ex as addressed_value,fe.expr,fe.format1,fe.format2,CurrentLocationSpan); } break; - case 625: // variable -> variable, tkRoundOpen, optional_expr_list, tkRoundClose + case 627: // variable -> variable, tkRoundOpen, optional_expr_list, tkRoundClose { CurrentSemanticValue.ex = new method_call(ValueStack[ValueStack.Depth-4].ex as addressed_value,ValueStack[ValueStack.Depth-2].stn as expression_list, CurrentLocationSpan); } break; - case 626: // variable -> variable, tkPoint, identifier_keyword_operatorname + case 628: // variable -> variable, tkPoint, identifier_keyword_operatorname { CurrentSemanticValue.ex = new dot_node(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].id as addressed_value, CurrentLocationSpan); } break; - case 627: // variable -> variable, tkDeref + case 629: // variable -> variable, tkDeref { CurrentSemanticValue.ex = new roof_dereference(ValueStack[ValueStack.Depth-2].ex as addressed_value,CurrentLocationSpan); } break; - case 628: // variable -> variable, tkAmpersend, template_type_params + case 630: // variable -> variable, tkAmpersend, template_type_params { CurrentSemanticValue.ex = new ident_with_templateparams(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].stn as template_param_list, CurrentLocationSpan); } break; - case 629: // optional_expr_list -> expr_list + case 631: // optional_expr_list -> expr_list { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 630: // optional_expr_list -> /* empty */ + case 632: // optional_expr_list -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 631: // elem_list -> elem_list1 + case 633: // elem_list -> elem_list1 { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 632: // elem_list -> /* empty */ + case 634: // elem_list -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 633: // elem_list1 -> elem + case 635: // elem_list1 -> elem { CurrentSemanticValue.stn = new expression_list(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 634: // elem_list1 -> elem_list1, tkComma, elem + case 636: // elem_list1 -> elem_list1, tkComma, elem { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as expression_list).Add(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 635: // elem -> expr + case 637: // elem -> expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 636: // elem -> expr, tkDotDot, expr + case 638: // elem -> expr, tkDotDot, expr { CurrentSemanticValue.ex = new diapason_expr(ValueStack[ValueStack.Depth-3].ex, ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 637: // one_literal -> tkStringLiteral + case 639: // one_literal -> tkStringLiteral { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].stn as literal; } break; - case 638: // one_literal -> tkAsciiChar + case 640: // one_literal -> tkAsciiChar { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].stn as literal; } break; - case 639: // literal -> literal_list + case 641: // literal -> literal_list { CurrentSemanticValue.ex = NewLiteral(ValueStack[ValueStack.Depth-1].stn as literal_const_line); } break; - case 640: // literal_list -> one_literal + case 642: // literal_list -> one_literal { CurrentSemanticValue.stn = new literal_const_line(ValueStack[ValueStack.Depth-1].ex as literal, CurrentLocationSpan); } break; - case 641: // literal_list -> literal_list, one_literal + case 643: // literal_list -> literal_list, one_literal { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-2].stn as literal_const_line).Add(ValueStack[ValueStack.Depth-1].ex as literal, CurrentLocationSpan); } break; - case 642: // operator_name_ident -> tkOperator, overload_operator + case 644: // operator_name_ident -> tkOperator, overload_operator { CurrentSemanticValue.ex = new operator_name_ident((ValueStack[ValueStack.Depth-1].op as op_type_node).text, (ValueStack[ValueStack.Depth-1].op as op_type_node).type, CurrentLocationSpan); } break; - case 643: // optional_method_modificators -> tkSemiColon + case 645: // optional_method_modificators -> tkSemiColon { CurrentSemanticValue.stn = new procedure_attributes_list(new List(),CurrentLocationSpan); } break; - case 644: // optional_method_modificators -> tkSemiColon, meth_modificators, tkSemiColon + case 646: // optional_method_modificators -> tkSemiColon, meth_modificators, tkSemiColon { //parsertools.AddModifier((procedure_attributes_list)$2, proc_attribute.attr_overload); CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-2].stn; } break; - case 645: // optional_method_modificators1 -> /* empty */ + case 647: // optional_method_modificators1 -> /* empty */ { CurrentSemanticValue.stn = new procedure_attributes_list(new List(),CurrentLocationSpan); } break; - case 646: // optional_method_modificators1 -> tkSemiColon, meth_modificators + case 648: // optional_method_modificators1 -> tkSemiColon, meth_modificators { //parsertools.AddModifier((procedure_attributes_list)$2, proc_attribute.attr_overload); CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 647: // meth_modificators -> meth_modificator + case 649: // meth_modificators -> meth_modificator { CurrentSemanticValue.stn = new procedure_attributes_list(ValueStack[ValueStack.Depth-1].id as procedure_attribute, CurrentLocationSpan); } break; - case 648: // meth_modificators -> meth_modificators, tkSemiColon, meth_modificator + case 650: // meth_modificators -> meth_modificators, tkSemiColon, meth_modificator { CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-3].stn as procedure_attributes_list).Add(ValueStack[ValueStack.Depth-1].id as procedure_attribute, CurrentLocationSpan); } break; - case 649: // identifier -> tkIdentifier + case 651: // identifier -> tkIdentifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 650: // identifier -> property_specifier_directives + case 652: // identifier -> property_specifier_directives { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 651: // identifier -> non_reserved + case 653: // identifier -> non_reserved { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 652: // identifier_or_keyword -> identifier + case 654: // identifier_or_keyword -> identifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 653: // identifier_or_keyword -> keyword + case 655: // identifier_or_keyword -> keyword { CurrentSemanticValue.id = new ident(ValueStack[ValueStack.Depth-1].ti.text, CurrentLocationSpan); } break; - case 654: // identifier_or_keyword -> reserved_keyword + case 656: // identifier_or_keyword -> reserved_keyword { CurrentSemanticValue.id = new ident(ValueStack[ValueStack.Depth-1].ti.text, CurrentLocationSpan); } break; - case 655: // identifier_keyword_operatorname -> identifier + case 657: // identifier_keyword_operatorname -> identifier { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 656: // identifier_keyword_operatorname -> keyword + case 658: // identifier_keyword_operatorname -> keyword { CurrentSemanticValue.id = new ident(ValueStack[ValueStack.Depth-1].ti.text, CurrentLocationSpan); } break; - case 657: // identifier_keyword_operatorname -> operator_name_ident + case 659: // identifier_keyword_operatorname -> operator_name_ident { CurrentSemanticValue.id = (ident)ValueStack[ValueStack.Depth-1].ex; } break; - case 658: // meth_modificator -> tkAbstract + case 660: // meth_modificator -> tkAbstract { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 659: // meth_modificator -> tkOverload + case 661: // meth_modificator -> tkOverload { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; parsertools.AddWarningFromResource("OVERLOAD_IS_NOT_USED", ValueStack[ValueStack.Depth-1].id.source_context); } break; - case 660: // meth_modificator -> tkReintroduce + case 662: // meth_modificator -> tkReintroduce { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 661: // meth_modificator -> tkOverride + case 663: // meth_modificator -> tkOverride { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 662: // meth_modificator -> tkExtensionMethod + case 664: // meth_modificator -> tkExtensionMethod { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 663: // meth_modificator -> tkVirtual + case 665: // meth_modificator -> tkVirtual { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 664: // property_specifier_directives -> tkRead + case 666: // property_specifier_directives -> tkRead { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 665: // property_specifier_directives -> tkWrite + case 667: // property_specifier_directives -> tkWrite { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 666: // non_reserved -> tkName + case 668: // non_reserved -> tkName { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 667: // non_reserved -> tkNew + case 669: // non_reserved -> tkNew { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 668: // visibility_specifier -> tkInternal + case 670: // visibility_specifier -> tkInternal { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 669: // visibility_specifier -> tkPublic + case 671: // visibility_specifier -> tkPublic { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 670: // visibility_specifier -> tkProtected + case 672: // visibility_specifier -> tkProtected { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 671: // visibility_specifier -> tkPrivate + case 673: // visibility_specifier -> tkPrivate { CurrentSemanticValue.id = ValueStack[ValueStack.Depth-1].id; } break; - case 672: // keyword -> visibility_specifier + case 674: // keyword -> visibility_specifier { CurrentSemanticValue.ti = new token_info(ValueStack[ValueStack.Depth-1].id.name, CurrentLocationSpan); } break; - case 673: // keyword -> tkSealed + case 675: // keyword -> tkSealed { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 674: // keyword -> tkTemplate + case 676: // keyword -> tkTemplate { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 675: // keyword -> tkOr + case 677: // keyword -> tkOr { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 676: // keyword -> tkTypeOf + case 678: // keyword -> tkTypeOf { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 677: // keyword -> tkSizeOf + case 679: // keyword -> tkSizeOf { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 678: // keyword -> tkDefault + case 680: // keyword -> tkDefault { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 679: // keyword -> tkWhere + case 681: // keyword -> tkWhere { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 680: // keyword -> tkXor + case 682: // keyword -> tkXor { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 681: // keyword -> tkAnd + case 683: // keyword -> tkAnd { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 682: // keyword -> tkDiv + case 684: // keyword -> tkDiv { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 683: // keyword -> tkMod + case 685: // keyword -> tkMod { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 684: // keyword -> tkShl + case 686: // keyword -> tkShl { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 685: // keyword -> tkShr + case 687: // keyword -> tkShr { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 686: // keyword -> tkNot + case 688: // keyword -> tkNot { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 687: // keyword -> tkAs + case 689: // keyword -> tkAs { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 688: // keyword -> tkIn + case 690: // keyword -> tkIn { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 689: // keyword -> tkIs + case 691: // keyword -> tkIs { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].op; } break; - case 690: // keyword -> tkArray + case 692: // keyword -> tkArray { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 691: // keyword -> tkSequence + case 693: // keyword -> tkSequence { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 692: // keyword -> tkBegin + case 694: // keyword -> tkBegin { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 693: // keyword -> tkCase + case 695: // keyword -> tkCase { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 694: // keyword -> tkClass + case 696: // keyword -> tkClass { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 695: // keyword -> tkConst + case 697: // keyword -> tkConst { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 696: // keyword -> tkConstructor + case 698: // keyword -> tkConstructor { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 697: // keyword -> tkDestructor + case 699: // keyword -> tkDestructor { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 698: // keyword -> tkDownto + case 700: // keyword -> tkDownto { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 699: // keyword -> tkDo + case 701: // keyword -> tkDo { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 700: // keyword -> tkElse + case 702: // keyword -> tkElse { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 701: // keyword -> tkExcept + case 703: // keyword -> tkExcept { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 702: // keyword -> tkFile + case 704: // keyword -> tkFile { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 703: // keyword -> tkAuto + case 705: // keyword -> tkAuto { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 704: // keyword -> tkFinalization + case 706: // keyword -> tkFinalization { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 705: // keyword -> tkFinally + case 707: // keyword -> tkFinally { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 706: // keyword -> tkFor + case 708: // keyword -> tkFor { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 707: // keyword -> tkForeach + case 709: // keyword -> tkForeach { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 708: // keyword -> tkFunction + case 710: // keyword -> tkFunction { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 709: // keyword -> tkIf + case 711: // keyword -> tkIf { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 710: // keyword -> tkImplementation + case 712: // keyword -> tkImplementation { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 711: // keyword -> tkInherited + case 713: // keyword -> tkInherited { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 712: // keyword -> tkInitialization + case 714: // keyword -> tkInitialization { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 713: // keyword -> tkInterface + case 715: // keyword -> tkInterface { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 714: // keyword -> tkProcedure + case 716: // keyword -> tkProcedure { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 715: // keyword -> tkProperty + case 717: // keyword -> tkProperty { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 716: // keyword -> tkRaise + case 718: // keyword -> tkRaise { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 717: // keyword -> tkRecord + case 719: // keyword -> tkRecord { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 718: // keyword -> tkRepeat + case 720: // keyword -> tkRepeat { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 719: // keyword -> tkSet + case 721: // keyword -> tkSet { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 720: // keyword -> tkTry + case 722: // keyword -> tkTry { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 721: // keyword -> tkType + case 723: // keyword -> tkType { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 722: // keyword -> tkThen + case 724: // keyword -> tkThen { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 723: // keyword -> tkTo + case 725: // keyword -> tkTo { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 724: // keyword -> tkUntil + case 726: // keyword -> tkUntil { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 725: // keyword -> tkUses + case 727: // keyword -> tkUses { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 726: // keyword -> tkVar + case 728: // keyword -> tkVar { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 727: // keyword -> tkWhile + case 729: // keyword -> tkWhile { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 728: // keyword -> tkWith + case 730: // keyword -> tkWith { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 729: // keyword -> tkNil + case 731: // keyword -> tkNil { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 730: // keyword -> tkGoto + case 732: // keyword -> tkGoto { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 731: // keyword -> tkOf + case 733: // keyword -> tkOf { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 732: // keyword -> tkLabel + case 734: // keyword -> tkLabel { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 733: // keyword -> tkProgram + case 735: // keyword -> tkProgram { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 734: // keyword -> tkUnit + case 736: // keyword -> tkUnit { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 735: // keyword -> tkLibrary + case 737: // keyword -> tkLibrary { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 736: // keyword -> tkExternal + case 738: // keyword -> tkExternal { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 737: // keyword -> tkParams + case 739: // keyword -> tkParams { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 738: // keyword -> tkEvent + case 740: // keyword -> tkEvent { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 739: // keyword -> tkYield + case 741: // keyword -> tkYield { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 740: // reserved_keyword -> tkOperator + case 742: // reserved_keyword -> tkOperator { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 741: // reserved_keyword -> tkEnd + case 743: // reserved_keyword -> tkEnd { CurrentSemanticValue.ti = ValueStack[ValueStack.Depth-1].ti; } break; - case 742: // overload_operator -> tkMinus + case 744: // overload_operator -> tkMinus { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 743: // overload_operator -> tkPlus + case 745: // overload_operator -> tkPlus { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 744: // overload_operator -> tkSlash + case 746: // overload_operator -> tkSlash { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 745: // overload_operator -> tkStar + case 747: // overload_operator -> tkStar { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 746: // overload_operator -> tkEqual + case 748: // overload_operator -> tkEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 747: // overload_operator -> tkGreater + case 749: // overload_operator -> tkGreater { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 748: // overload_operator -> tkGreaterEqual + case 750: // overload_operator -> tkGreaterEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 749: // overload_operator -> tkLower + case 751: // overload_operator -> tkLower { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 750: // overload_operator -> tkLowerEqual + case 752: // overload_operator -> tkLowerEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 751: // overload_operator -> tkNotEqual + case 753: // overload_operator -> tkNotEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 752: // overload_operator -> tkOr + case 754: // overload_operator -> tkOr { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 753: // overload_operator -> tkXor + case 755: // overload_operator -> tkXor { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 754: // overload_operator -> tkAnd + case 756: // overload_operator -> tkAnd { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 755: // overload_operator -> tkDiv + case 757: // overload_operator -> tkDiv { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 756: // overload_operator -> tkMod + case 758: // overload_operator -> tkMod { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 757: // overload_operator -> tkShl + case 759: // overload_operator -> tkShl { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 758: // overload_operator -> tkShr + case 760: // overload_operator -> tkShr { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 759: // overload_operator -> tkNot + case 761: // overload_operator -> tkNot { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 760: // overload_operator -> tkIn + case 762: // overload_operator -> tkIn { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 761: // overload_operator -> tkImplicit + case 763: // overload_operator -> tkImplicit { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 762: // overload_operator -> tkExplicit + case 764: // overload_operator -> tkExplicit { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 763: // overload_operator -> assign_operator + case 765: // overload_operator -> assign_operator { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 764: // assign_operator -> tkAssign + case 766: // assign_operator -> tkAssign { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 765: // assign_operator -> tkPlusEqual + case 767: // assign_operator -> tkPlusEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 766: // assign_operator -> tkMinusEqual + case 768: // assign_operator -> tkMinusEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 767: // assign_operator -> tkMultEqual + case 769: // assign_operator -> tkMultEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 768: // assign_operator -> tkDivEqual + case 770: // assign_operator -> tkDivEqual { CurrentSemanticValue.op = ValueStack[ValueStack.Depth-1].op; } break; - case 769: // func_decl_lambda -> identifier, tkArrow, lambda_function_body + case 771: // func_decl_lambda -> identifier, tkArrow, lambda_function_body { var idList = new ident_list(ValueStack[ValueStack.Depth-3].id, LocationStack[LocationStack.Depth-3]); var formalPars = new formal_parameters(new typed_parameters(idList, new lambda_inferred_type(new PascalABCCompiler.TreeRealization.lambda_any_type_node(), null), parametr_kind.none, null, LocationStack[LocationStack.Depth-3]), LocationStack[LocationStack.Depth-3]); CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), formalPars, new lambda_inferred_type(new PascalABCCompiler.TreeRealization.lambda_any_type_node(), null), ValueStack[ValueStack.Depth-1].stn as statement_list, CurrentLocationSpan); } break; - case 770: // func_decl_lambda -> tkRoundOpen, tkRoundClose, lambda_type_ref_noproctype, + case 772: // func_decl_lambda -> tkRoundOpen, tkRoundClose, lambda_type_ref_noproctype, // tkArrow, lambda_function_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), null, ValueStack[ValueStack.Depth-3].td, ValueStack[ValueStack.Depth-1].stn as statement_list, CurrentLocationSpan); } break; - case 771: // func_decl_lambda -> tkRoundOpen, identifier, tkColon, fptype, tkRoundClose, + case 773: // func_decl_lambda -> tkRoundOpen, identifier, tkColon, fptype, tkRoundClose, // lambda_type_ref_noproctype, tkArrow, lambda_function_body { var idList = new ident_list(ValueStack[ValueStack.Depth-7].id, LocationStack[LocationStack.Depth-7]); @@ -5536,7 +5556,7 @@ public partial class GPPGParser: ShiftReduceParser tkRoundOpen, identifier, tkSemiColon, full_lambda_fp_list, + case 774: // func_decl_lambda -> tkRoundOpen, identifier, tkSemiColon, full_lambda_fp_list, // tkRoundClose, lambda_type_ref_noproctype, tkArrow, // lambda_function_body { @@ -5547,7 +5567,7 @@ public partial class GPPGParser: ShiftReduceParser tkRoundOpen, identifier, tkColon, fptype, tkSemiColon, + case 775: // func_decl_lambda -> tkRoundOpen, identifier, tkColon, fptype, tkSemiColon, // full_lambda_fp_list, tkRoundClose, // lambda_type_ref_noproctype, tkArrow, lambda_function_body { @@ -5559,7 +5579,7 @@ public partial class GPPGParser: ShiftReduceParser tkRoundOpen, expr_l1, tkComma, expr_l1_list, + case 776: // func_decl_lambda -> tkRoundOpen, expr_l1, tkComma, expr_l1_list, // lambda_type_ref, optional_full_lambda_fp_list, // tkRoundClose, rem_lambda { @@ -5621,61 +5641,61 @@ public partial class GPPGParser: ShiftReduceParser expl_func_decl_lambda + case 777: // func_decl_lambda -> expl_func_decl_lambda { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 776: // optional_full_lambda_fp_list -> /* empty */ + case 778: // optional_full_lambda_fp_list -> /* empty */ { CurrentSemanticValue.stn = null; } break; - case 777: // optional_full_lambda_fp_list -> tkSemiColon, full_lambda_fp_list + case 779: // optional_full_lambda_fp_list -> tkSemiColon, full_lambda_fp_list { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 778: // rem_lambda -> lambda_type_ref_noproctype, tkArrow, lambda_function_body + case 780: // rem_lambda -> lambda_type_ref_noproctype, tkArrow, lambda_function_body { CurrentSemanticValue.ob = new pair_type_stlist(ValueStack[ValueStack.Depth-3].td,ValueStack[ValueStack.Depth-1].stn as statement_list); } break; - case 779: // expl_func_decl_lambda -> tkFunction, lambda_type_ref, tkArrow, + case 781: // expl_func_decl_lambda -> tkFunction, lambda_type_ref, tkArrow, // lambda_function_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), null, ValueStack[ValueStack.Depth-3].td, ValueStack[ValueStack.Depth-1].stn as statement_list, 1, CurrentLocationSpan); } break; - case 780: // expl_func_decl_lambda -> tkFunction, tkRoundOpen, tkRoundClose, lambda_type_ref, + case 782: // expl_func_decl_lambda -> tkFunction, tkRoundOpen, tkRoundClose, lambda_type_ref, // tkArrow, lambda_function_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), null, ValueStack[ValueStack.Depth-3].td, ValueStack[ValueStack.Depth-1].stn as statement_list, 1, CurrentLocationSpan); } break; - case 781: // expl_func_decl_lambda -> tkFunction, tkRoundOpen, full_lambda_fp_list, + case 783: // expl_func_decl_lambda -> tkFunction, tkRoundOpen, full_lambda_fp_list, // tkRoundClose, lambda_type_ref, tkArrow, // lambda_function_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), ValueStack[ValueStack.Depth-5].stn as formal_parameters, ValueStack[ValueStack.Depth-3].td, ValueStack[ValueStack.Depth-1].stn as statement_list, 1, CurrentLocationSpan); } break; - case 782: // expl_func_decl_lambda -> tkProcedure, tkArrow, lambda_procedure_body + case 784: // expl_func_decl_lambda -> tkProcedure, tkArrow, lambda_procedure_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), null, null, ValueStack[ValueStack.Depth-1].stn as statement_list, 2, CurrentLocationSpan); } break; - case 783: // expl_func_decl_lambda -> tkProcedure, tkRoundOpen, tkRoundClose, tkArrow, + case 785: // expl_func_decl_lambda -> tkProcedure, tkRoundOpen, tkRoundClose, tkArrow, // lambda_procedure_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), null, null, ValueStack[ValueStack.Depth-1].stn as statement_list, 2, CurrentLocationSpan); } break; - case 784: // expl_func_decl_lambda -> tkProcedure, tkRoundOpen, full_lambda_fp_list, + case 786: // expl_func_decl_lambda -> tkProcedure, tkRoundOpen, full_lambda_fp_list, // tkRoundClose, tkArrow, lambda_procedure_body { CurrentSemanticValue.ex = new function_lambda_definition(lambdaHelper.CreateLambdaName(), ValueStack[ValueStack.Depth-4].stn as formal_parameters, null, ValueStack[ValueStack.Depth-1].stn as statement_list, 2, CurrentLocationSpan); } break; - case 785: // full_lambda_fp_list -> lambda_simple_fp_sect + case 787: // full_lambda_fp_list -> lambda_simple_fp_sect { var typed_pars = ValueStack[ValueStack.Depth-1].stn as typed_parameters; if (typed_pars.vars_type is lambda_inferred_type) @@ -5695,147 +5715,147 @@ public partial class GPPGParser: ShiftReduceParser full_lambda_fp_list, tkSemiColon, lambda_simple_fp_sect + case 788: // full_lambda_fp_list -> full_lambda_fp_list, tkSemiColon, lambda_simple_fp_sect { CurrentSemanticValue.stn =(ValueStack[ValueStack.Depth-3].stn as formal_parameters).Add(ValueStack[ValueStack.Depth-1].stn as typed_parameters, CurrentLocationSpan); } break; - case 787: // lambda_simple_fp_sect -> ident_list, lambda_type_ref + case 789: // lambda_simple_fp_sect -> ident_list, lambda_type_ref { CurrentSemanticValue.stn = new typed_parameters(ValueStack[ValueStack.Depth-2].stn as ident_list, ValueStack[ValueStack.Depth-1].td, parametr_kind.none, null, CurrentLocationSpan); } break; - case 788: // lambda_type_ref -> /* empty */ + case 790: // lambda_type_ref -> /* empty */ { CurrentSemanticValue.td = new lambda_inferred_type(new PascalABCCompiler.TreeRealization.lambda_any_type_node(), null); } break; - case 789: // lambda_type_ref -> tkColon, fptype + case 791: // lambda_type_ref -> tkColon, fptype { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 790: // lambda_type_ref_noproctype -> /* empty */ + case 792: // lambda_type_ref_noproctype -> /* empty */ { CurrentSemanticValue.td = new lambda_inferred_type(new PascalABCCompiler.TreeRealization.lambda_any_type_node(), null); } break; - case 791: // lambda_type_ref_noproctype -> tkColon, fptype_noproctype + case 793: // lambda_type_ref_noproctype -> tkColon, fptype_noproctype { CurrentSemanticValue.td = ValueStack[ValueStack.Depth-1].td; } break; - case 792: // lambda_function_body -> expr_l1 + case 794: // lambda_function_body -> expr_l1 { CurrentSemanticValue.stn = NewLambdaBody(ValueStack[ValueStack.Depth-1].ex, CurrentLocationSpan); } break; - case 793: // lambda_function_body -> compound_stmt + case 795: // lambda_function_body -> compound_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 794: // lambda_function_body -> if_stmt + case 796: // lambda_function_body -> if_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 795: // lambda_function_body -> while_stmt + case 797: // lambda_function_body -> while_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 796: // lambda_function_body -> repeat_stmt + case 798: // lambda_function_body -> repeat_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 797: // lambda_function_body -> for_stmt + case 799: // lambda_function_body -> for_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 798: // lambda_function_body -> foreach_stmt + case 800: // lambda_function_body -> foreach_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 799: // lambda_function_body -> case_stmt + case 801: // lambda_function_body -> case_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 800: // lambda_function_body -> try_stmt + case 802: // lambda_function_body -> try_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 801: // lambda_function_body -> lock_stmt + case 803: // lambda_function_body -> lock_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 802: // lambda_function_body -> yield_stmt + case 804: // lambda_function_body -> yield_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 803: // lambda_procedure_body -> proc_call + case 805: // lambda_procedure_body -> proc_call { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 804: // lambda_procedure_body -> compound_stmt + case 806: // lambda_procedure_body -> compound_stmt { CurrentSemanticValue.stn = ValueStack[ValueStack.Depth-1].stn; } break; - case 805: // lambda_procedure_body -> if_stmt + case 807: // lambda_procedure_body -> if_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 806: // lambda_procedure_body -> while_stmt + case 808: // lambda_procedure_body -> while_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 807: // lambda_procedure_body -> repeat_stmt + case 809: // lambda_procedure_body -> repeat_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 808: // lambda_procedure_body -> for_stmt + case 810: // lambda_procedure_body -> for_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 809: // lambda_procedure_body -> foreach_stmt + case 811: // lambda_procedure_body -> foreach_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 810: // lambda_procedure_body -> case_stmt + case 812: // lambda_procedure_body -> case_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 811: // lambda_procedure_body -> try_stmt + case 813: // lambda_procedure_body -> try_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 812: // lambda_procedure_body -> lock_stmt + case 814: // lambda_procedure_body -> lock_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 813: // lambda_procedure_body -> yield_stmt + case 815: // lambda_procedure_body -> yield_stmt { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } break; - case 814: // lambda_procedure_body -> assignment + case 816: // lambda_procedure_body -> assignment { CurrentSemanticValue.stn = new statement_list(ValueStack[ValueStack.Depth-1].stn as statement, CurrentLocationSpan); } diff --git a/Parsers/PascalABCParserNewSaushkin/PABC.ymc b/Parsers/PascalABCParserNewSaushkin/PABC.ymc index 607e96dc6..b1d03d53f 100644 --- a/Parsers/PascalABCParserNewSaushkin/PABC.ymc +++ b/Parsers/PascalABCParserNewSaushkin/PABC.ymc @@ -160,5 +160,6 @@ script= + diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index 9f11b628c..eba12d770 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.2.0.1386' +!define VERSION '3.2.0.1398' diff --git a/TestSuite/CompilationSamples/ABCObjects.pas b/TestSuite/CompilationSamples/ABCObjects.pas index 643699f00..601ddcbae 100644 --- a/TestSuite/CompilationSamples/ABCObjects.pas +++ b/TestSuite/CompilationSamples/ABCObjects.pas @@ -912,6 +912,8 @@ begin if oldBounds.IntersectsWith(newBounds) then begin r := GRectangle.Union(oldBounds,newBounds); + //TextOut(0,0,r.ToString); + //r.Width := r.Width + 5; drawRect(r); end else diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 97eb0f485..75354c081 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -1217,25 +1217,6 @@ function Odd(i: uint64): boolean; function Cplx(re,im: real): Complex; /// КонÑ�труирует комплекÑ�ное чиÑ�ло по полÑ�рным координатам function CplxFromPolar(magnitude,phase: real) : Complex; -/// Возвращает квадратный корень из комплекÑ�ного чиÑ�ла -function Sqrt(c: Complex): Complex; -/// Возвращает модуль комплекÑ�ного чиÑ�ла -function Abs(c: Complex): Complex; -/// Возвращает комплекÑ�но Ñ�опрÑ�женное чиÑ�ло -function Conjugate(c: Complex): Complex; -/// Возвращает коÑ�инуÑ� комплекÑ�ного чиÑ�ла -function Cos(c: Complex): Complex; -/// Возвращает Ñ�кÑ�поненту комплекÑ�ного чиÑ�ла -function Exp(c: Complex): Complex; -/// Возвращает натуральный логарифм комплекÑ�ного чиÑ�ла -function Log(c: Complex): Complex; -/// Возвращает деÑ�Ñ�тичный логарифм комплекÑ�ного чиÑ�ла -function Log10(c: Complex): Complex; -/// Возвращает Ñ�тепень комплекÑ�ного чиÑ�ла -function Power(c,power: Complex): Complex; -/// Возвращает Ñ�инуÑ� комплекÑ�ного чиÑ�ла -function Sin(c: Complex): Complex; - // ----------------------------------------------------- //>> Процедуры длÑ� работы Ñ�о Ñ�тандартными множеÑ�твами # Subroutines for set of T @@ -1715,6 +1696,8 @@ function SSet(params a: array of T): SortedSet; function SSet(a: sequence of T): SortedSet; /// Возвращает Ñ�ловарь пар Ñ�лементов (ключ, значение) function Dict(params pairs: array of KeyValuePair): Dictionary; +/// Возвращает Ñ�ловарь пар Ñ�лементов (ключ, значение) +function Dict(params pairs: array of (TKey, TVal)): Dictionary; /// Возвращает пару Ñ�лементов (ключ, значение) function KV(key: TKey; value: TVal): KeyValuePair; @@ -4257,6 +4240,13 @@ begin Result.Add(pairs[i].Key, pairs[i].Value); end; +function Dict(params pairs: array of (TKey, TVal)): Dictionary; +begin + Result := new Dictionary(); + for var i := 0 to pairs.Length - 1 do + Result.Add(pairs[i][0], pairs[i][1]); +end; + function KV(key: TKey; value: TVal): KeyValuePair; begin Result := new KeyValuePair(key, value); @@ -7069,24 +7059,6 @@ function Cplx(re,im: real) := new Complex(re,im); function CplxFromPolar(magnitude,phase: real) := Complex.FromPolarCoordinates(magnitude,phase); -function Sqrt(c: Complex) := Complex.Sqrt(c); - -function Abs(c: Complex) := Complex.Abs(c); - -function Conjugate(c: Complex) := Complex.Conjugate(c); - -function Cos(c: Complex) := Complex.Cos(c); - -function Exp(c: Complex) := Complex.Exp(c); - -function Log(c: Complex) := Complex.Log(c); - -function Log10(c: Complex) := Complex.Log10(c); - -function Power(c,power: Complex) := Complex.Pow(c,power); - -function Sin(c: Complex) := Complex.Sin(c); - // ----------------------------------------------------- // Dynamic arrays: implementation // ----------------------------------------------------- diff --git a/TestSuite/CompilationSamples/PT4.pas b/TestSuite/CompilationSamples/PT4.pas index 94f5f79dc..c45298e16 100644 --- a/TestSuite/CompilationSamples/PT4.pas +++ b/TestSuite/CompilationSamples/PT4.pas @@ -1,15 +1,15 @@ -/// Модуль Ñ�лектронного задачника Programming Taskbook 4 +/// Ìîäóëü ýëåêòðîííîãî çàäà÷íèêà Programming Taskbook 4 unit PT4; //------------------------------------------------------------------------------ -// Модуль длÑ� подключениÑ� задачника Programming Taskbook -// ВерÑ�иÑ� 4.15 +// Ìîäóëü äëÿ ïîäêëþ÷åíèÿ çàäà÷íèêà Programming Taskbook +// Âåðñèÿ 4.15 // Copyright (c) 2006-2008 DarkStar, SSM -// Copyright (c) 2010 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 1.3 -// Copyright (c) 2014-2015 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.13 -// Copyright (c) 2015 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.14 -// Copyright (c) 2016 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.15 -// Электронный задачник Programming Taskbook Copyright (c)М.Э.Ð�брамÑ�н, 1998-2016 +// Copyright (c) 2010 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 1.3 +// Copyright (c) 2014-2015 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.13 +// Copyright (c) 2015 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.14 +// Copyright (c) 2016 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.15 +// Ýëåêòðîííûé çàäà÷íèê Programming Taskbook Copyright (c)Ì.Ý.Àáðàìÿí, 1998-2017 //------------------------------------------------------------------------------ {$apptype windows} @@ -21,9 +21,9 @@ uses System, System.Collections, System.Runtime.InteropServices; type - /// Тип указателÑ� на узел Ñ�пиÑ�ка + /// Òèï óêàçàòåëÿ íà óçåë ñïèñêà PNode = ^TNode; - /// Тип узла Ñ�пиÑ�ка + /// Òèï óçëà ñïèñêà TNode = record Data: integer; Next,Prev,Left,Right,Parent: PNode; @@ -79,107 +79,107 @@ type property Data: integer read getData write SetData; end; -/// ВывеÑ�ти формулировку заданиÑ� +/// Âûâåñòè ôîðìóëèðîâêó çàäàíèÿ procedure Task(name: string); -/// ВвеÑ�ти и вернуть значение целого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå öåëîãî òèïà function GetInt: integer; -/// ВвеÑ�ти и вернуть значение целого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå öåëîãî òèïà function GetInteger: integer; -/// ВвеÑ�ти и вернуть значение вещеÑ�твенного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå âåùåñòâåííîãî òèïà function GetReal: real; -/// ВвеÑ�ти и вернуть значение вещеÑ�твенного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå âåùåñòâåííîãî òèïà function GetDouble: real; -/// ВвеÑ�ти и вернуть значение Ñ�имвольного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ñèìâîëüíîãî òèïà function GetChar: char; -/// ВвеÑ�ти и вернуть значение Ñ�трокового типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ñòðîêîâîãî òèïà function GetString: string; -/// ВвеÑ�ти и вернуть значение логичеÑ�кого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ëîãè÷åñêîãî òèïà function GetBool: boolean; -/// ВвеÑ�ти и вернуть значение логичеÑ�кого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ëîãè÷åñêîãî òèïà function GetBoolean: boolean; -/// ВвеÑ�ти и вернуть значение типа Node +/// Ââåñòè è âåðíóòü çíà÷åíèå òèïà Node function GetNode: Node; -/// ВвеÑ�ти и вернуть значение типа PNode +/// Ââåñòè è âåðíóòü çíà÷åíèå òèïà PNode function GetPNode: PNode; -/// Возвращает введенное значение типа integer +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer function ReadInteger: integer; -/// Возвращает введенное значение типа real +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real function ReadReal: real; -/// Возвращает введенное значение типа char +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char function ReadChar: char; -/// Возвращает введенное значение типа string +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string function ReadString: string; -/// Возвращает введенное значение типа boolean +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean function ReadBoolean: boolean; -/// Возвращает введенное значение типа PNode +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode function ReadPNode: PNode; -/// Возвращает введенное значение типа Node +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node function ReadNode: Node; -/// Возвращает введенное значение типа integer +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer function ReadlnInteger: integer; -/// Возвращает введенное значение типа real +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real function ReadlnReal: real; -/// Возвращает введенное значение типа char +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char function ReadlnChar: char; -/// Возвращает введенное значение типа string +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string function ReadlnString: string; -/// Возвращает введенное значение типа boolean +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean function ReadlnBoolean: boolean; -/// Возвращает введенное значение типа PNode +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode function ReadlnPNode: PNode; -/// Возвращает введенное значение типа Node +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node function ReadlnNode: Node; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == -/// Возвращает введенное значение типа integer. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadInteger(prompt: string): integer; -/// Возвращает введенное значение типа real. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadReal(prompt: string): real; -/// Возвращает введенное значение типа char. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadChar(prompt: string): char; -/// Возвращает введенное значение типа string. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadString(prompt: string): string; -/// Возвращает введенное значение типа boolean. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadBoolean(prompt: string): boolean; -/// Возвращает введенное значение типа PNode. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadPNode(prompt: string): PNode; -/// Возвращает введенное значение типа Node. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadNode(prompt: string): Node; -/// Возвращает введенное значение типа integer. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnInteger(prompt: string): integer; -/// Возвращает введенное значение типа real. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnReal(prompt: string): real; -/// Возвращает введенное значение типа char. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnChar(prompt: string): char; -/// Возвращает введенное значение типа string. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnString(prompt: string): string; -/// Возвращает введенное значение типа boolean. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnBoolean(prompt: string): boolean; -/// Возвращает введенное значение типа PNode. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnPNode(prompt: string): PNode; -/// Возвращает введенное значение типа Node. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnNode(prompt: string): Node; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == procedure GetR(var param: real); procedure GetN(var param: integer); @@ -206,9 +206,9 @@ procedure Put(param: boolean); procedure Put(param: PNode); procedure Put(param: Node); -//Ввод Ñ�тих данных не поддерживаетÑ�Ñ� +//Ââîä ýòèõ äàííûõ íå ïîääåðæèâàåòñÿ ///- read(a,b,...) -/// Вводит значениÑ� a,b,... из окна Ñ�лектронного задачника +/// Ââîäèò çíà÷åíèÿ a,b,... èç îêíà ýëåêòðîííîãî çàäà÷íèêà procedure read(var x: byte); ///-- procedure read(var x: shortint); @@ -246,20 +246,20 @@ procedure Readln; procedure Print(params args: array of object); procedure Println(params args: array of object); -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == procedure Print(s: string); procedure Println(s: string); -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == -/// ОÑ�вобождает памÑ�ть, выделенную динамичеÑ�ки, на которую указывает p +/// Îñâîáîæäàåò ïàìÿòü, âûäåëåííóþ äèíàìè÷åñêè, íà êîòîðóþ óêàçûâàåò p procedure Dispose(p: pointer); -// ФиктивнаÑ� пуÑ�таÑ� процедура - длÑ� Intellisense -// Ð�ет, нельзÑ� пользоватьÑ�Ñ� - закрываютÑ�Ñ� процедуры write Ñ�иÑ�темного модулÑ� +// Ôèêòèâíàÿ ïóñòàÿ ïðîöåäóðà - äëÿ Intellisense +// Íåò, íåëüçÿ ïîëüçîâàòüñÿ - çàêðûâàþòñÿ ïðîöåäóðû write ñèñòåìíîãî ìîäóëÿ ///- write(a,b,...) -/// Выводит значениÑ� a,b,... в окно Ñ�лектронного задачника +/// Âûâîäèò çíà÷åíèÿ a,b,... â îêíî ýëåêòðîííîãî çàäà÷íèêà //procedure write; ///-- @@ -267,162 +267,162 @@ procedure __InitModule__; ///-- procedure __FinalizeModule__; -// == ВерÑ�иÑ� 1.3. ДополнениÑ� == +// == Âåðñèÿ 1.3. Äîïîëíåíèÿ == -/// Выводит Ñ�троку S в разделе отладки окна задачника +/// Âûâîäèò ñòðîêó S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(S: string; A: integer; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(S: string; A: real; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string; A: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string; A: real); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(A: integer; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(A: real; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(A: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(A: real); -/// ВыполнÑ�ет переход на новую Ñ�кранную Ñ�троку -/// в разделе отладки окна задачника +/// Âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó +/// â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure ShowLine; -/// Выводит Ñ�троку S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ñòðîêó S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода данных выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà äàííûõ âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: integer; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода данных выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà äàííûõ âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: real; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: real); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода чиÑ�ла выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà ÷èñëà âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: integer; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода чиÑ�ла выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà ÷èñëà âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: real; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: real); -/// Ð�аÑ�траивает формат вывода вещеÑ�твенных чиÑ�ел в разделе отладки -/// окна задачника. ЕÑ�ли N > 0, то чиÑ�ло выводитÑ�Ñ� в формате -/// Ñ� фикÑ�ированной точкой и N дробными знаками. ЕÑ�ли N = 0, -/// то чиÑ�ло выводитÑ�Ñ� в Ñ�кÑ�поненциальном формате, чиÑ�ло дробных -/// знаков определÑ�етÑ�Ñ� шириной полÑ� вывода +/// Íàñòðàèâàåò ôîðìàò âûâîäà âåùåñòâåííûõ ÷èñåë â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà. Åñëè N > 0, òî ÷èñëî âûâîäèòñÿ â ôîðìàòå +/// ñ ôèêñèðîâàííîé òî÷êîé è N äðîáíûìè çíàêàìè. Åñëè N = 0, +/// òî ÷èñëî âûâîäèòñÿ â ýêñïîíåíöèàëüíîì ôîðìàòå, ÷èñëî äðîáíûõ +/// çíàêîâ îïðåäåëÿåòñÿ øèðèíîé ïîëÿ âûâîäà procedure SetPrecision(N: integer); -/// ОбеÑ�печивает автоматичеÑ�кое Ñ�крытие вÑ�ех разделов -/// окна задачника, кроме раздела отладки +/// Îáåñïå÷èâàåò àâòîìàòè÷åñêîå ñêðûòèå âñåõ ðàçäåëîâ +/// îêíà çàäà÷íèêà, êðîìå ðàçäåëà îòëàäêè procedure HideTask; -// == Конец дополнений к верÑ�ии 1.3 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 1.3 == -// == ВерÑ�иÑ� 4.14. ДополнениÑ� == +// == Âåðñèÿ 4.14. Äîïîëíåíèÿ == -/// Вводит n целых чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде маÑ�Ñ�ива +/// Ââîäèò n öåëûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ìàññèâà function ReadArrInteger(n: integer): array of integer; -/// Вводит n вещеÑ�твенных чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде маÑ�Ñ�ива +/// Ââîäèò n âåùåñòâåííûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ìàññèâà function ReadArrReal(n: integer): array of real; -/// Вводит n Ñ�трок -/// и возвращает введенные Ñ�троки в виде маÑ�Ñ�ива +/// Ââîäèò n ñòðîê +/// è âîçâðàùàåò ââåäåííûå ñòðîêè â âèäå ìàññèâà function ReadArrString(n: integer): array of string; -/// Вводит n целых чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n öåëûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqInteger(n: integer): sequence of integer; -/// Вводит n вещеÑ�твенных чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n âåùåñòâåííûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqReal(n: integer): sequence of real; -/// Вводит n Ñ�трок -/// и возвращает введенные Ñ�троки в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n ñòðîê +/// è âîçâðàùàåò ââåäåííûå ñòðîêè â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqString(n: integer): sequence of string; -/// Вводит размер набора целых чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà öåëûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqInteger(): sequence of integer; -/// Вводит размер набора вещеÑ�твенных чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà âåùåñòâåííûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqReal(): sequence of real; -/// Вводит размер набора Ñ�трок и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà ñòðîê è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqString(): sequence of string; -/// Вводит размер набора целых чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà öåëûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrInteger(): array of integer; -/// Вводит размер набора вещеÑ�твенных чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà âåùåñòâåííûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrReal(): array of real; -/// Вводит размер набора Ñ�трок и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà ñòðîê è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrString(): array of string; -/// Вводит целую матрицу размера m на n по Ñ�трокам +/// Ââîäèò öåëóþ ìàòðèöó ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrInteger(m,n: integer): array [,] of integer; -/// Вводит размеры матрицы и затем целую матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì öåëóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrInteger(): array [,] of integer; -/// Вводит вещеÑ�твенную матрицу размера m на n по Ñ�трокам +/// Ââîäèò âåùåñòâåííóþ ìàòðèöó ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrReal(m,n: integer): array [,] of real; -/// Вводит размеры матрицы и затем вещеÑ�твенную матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì âåùåñòâåííóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrReal(): array [,] of real; -/// Вводит матрицу из Ñ�трок размера m на n по Ñ�трокам +/// Ââîäèò ìàòðèöó èç ñòðîê ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrString(m,n: integer): array [,] of string; -/// Вводит размеры матрицы и затем Ñ�троковую матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì ñòðîêîâóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrString(): array [,] of string; procedure ReadMatr(var m, n: integer; var a: array [,] of integer); @@ -467,7 +467,7 @@ procedure WriteMatr(a: array of array of T); procedure WriteMatr(a: List>); -// == ДополнениÑ� 2016.07 +// == Äîïîëíåíèÿ 2016.07 procedure PrintMatr(a: array[,] of T); @@ -475,16 +475,16 @@ procedure PrintMatr(a: array of array of T); procedure PrintMatr(a: List>); -// == Конец дополнений 2016.07 +// == Êîíåö äîïîëíåíèé 2016.07 -// == Конец дополнений к верÑ�ии 4.14 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 4.14 == implementation const - NotSupportedReadTypeMessage = 'Ввод данных типа {0} не поддерживаетÑ�Ñ�'; - NotSupportedWriteTypeMessage = 'Вывод данных типа {0} не поддерживаетÑ�Ñ�'; - eMessage = 'Попытка обращениÑ� к объекту Node поÑ�ле вызова его метода Dispose'; + NotSupportedReadTypeMessage = 'Ââîä äàííûõ òèïà {0} íå ïîääåðæèâàåòñÿ'; + NotSupportedWriteTypeMessage = 'Âûâîä äàííûõ òèïà {0} íå ïîääåðæèâàåòñÿ'; + eMessage = 'Ïîïûòêà îáðàùåíèÿ ê îáúåêòó Node ïîñëå âûçîâà åãî ìåòîäà Dispose'; var loadNodes: ArrayList; @@ -922,7 +922,7 @@ begin end; // ----------------------------------------------------- -// Функции Get +// Ôóíêöèè Get // ----------------------------------------------------- function GetInt: integer; var val:integer; @@ -958,7 +958,7 @@ end; function GetString: string; var val: System.Text.StringBuilder; begin - val := new System.Text.StringBuilder(200);//TODO почему 200? + val := new System.Text.StringBuilder(200);//TODO ïî÷åìó 200? _gets(val); result := val.ToString; end; @@ -989,8 +989,8 @@ var p: IntPtr; sNode: InternalNode; begin - //raise new NotSupportedException('Работа Ñ� динамичеÑ�кими Ñ�труктурами задачника PT4 не поддерживаетÑ�Ñ� в Ñ�той верÑ�ии компилÑ�тора. ИÑ�правление ошибки планируетÑ�Ñ� в Ñ�ледуйщей верÑ�ии'); - //result := new PT4Node(sNode, p);// fixme здеÑ�ÑŒ ошибка генерации кода! + //raise new NotSupportedException('Ðàáîòà ñ äèíàìè÷åñêèìè ñòðóêòóðàìè çàäà÷íèêà PT4 íå ïîääåðæèâàåòñÿ â ýòîé âåðñèè êîìïèëÿòîðà. Èñïðàâëåíèå îøèáêè ïëàíèðóåòñÿ â ñëåäóéùåé âåðñèè'); + //result := new PT4Node(sNode, p);// fixme çäåñü îøèáêà ãåíåðàöèè êîäà! p := IntPtr.Zero; sNode.Data := 0; sNode.Next := IntPtr.Zero; @@ -1089,7 +1089,7 @@ begin Result := GetNode; end; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == function ReadInteger(prompt: string): integer; begin @@ -1161,10 +1161,10 @@ begin Result := GetNode; end; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == // ----------------------------------------------------- -// Процедуры Put +// Ïðîöåäóðû Put // ----------------------------------------------------- procedure PutInt(val: integer); begin @@ -1213,7 +1213,7 @@ begin end; // ----------------------------------------------------- -// ГенерациÑ� иÑ�ключений +// Ãåíåðàöèÿ èñêëþ÷åíèé // ----------------------------------------------------- procedure RaisePTAndCheckPT(e: Exception); begin @@ -1338,7 +1338,7 @@ begin Print(args); end; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == procedure Print(s: string); begin @@ -1350,7 +1350,7 @@ begin write(s); end; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == {procedure write; begin @@ -1423,7 +1423,7 @@ begin if InfoT=0 then Console.WriteLine(InfoS); FreePT; - // == Ð�ачало дополнений к верÑ�ии 4.13 == + // == Íà÷àëî äîïîëíåíèé ê âåðñèè 4.13 == var fpt := FinishPT; if fpt = 1 then exit; var asm := System.Reflection.Assembly.GetExecutingAssembly; @@ -1432,6 +1432,15 @@ begin var prg := asm.GetType(nm+'.Program'); var solveproc := prg.GetMethod('$Main'); var initproc := prg.GetMethod('$_InitVariables_'); + if (solveproc = nil) or (initproc = nil) then + foreach var prg0 in asm.GetTypes() do + begin + prg := prg0; + solveproc := prg0.GetMethod('$Main'); + initproc := prg0.GetMethod('$_InitVariables_'); + if (solveproc <> nil) and (initproc <> nil) then + break; + end; var examunit := asm.GetType('PT4Exam.PT4Exam'); var finexamproc: System.Reflection.MethodInfo := nil; if examunit <> nil then @@ -1441,7 +1450,7 @@ begin begin StartPT(512); try - foreach var f in prg.GetFields do + foreach var f in prg.GetFields() do if not f.Name.StartsWith('$') then try f.SetValue(nil, nil); @@ -1452,11 +1461,7 @@ begin solveproc.Invoke(nil,nil); except on e: Exception do - begin - //if e.InnerException<>nil then - RaisePT('HHH', 'ggg'); - //RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message); - end; + RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message); end; if finexamproc <> nil then finexamproc.Invoke(nil,nil); @@ -1465,10 +1470,10 @@ begin inc(i); fpt := FinishPT; end; - // == Конец дополнений к верÑ�ии 4.13 == + // == Êîíåö äîïîëíåíèé ê âåðñèè 4.13 == end; -// == ВерÑ�иÑ� 1.3. ДополнениÑ� == +// == Âåðñèÿ 1.3. Äîïîëíåíèÿ == var D: integer := 2; @@ -1590,9 +1595,9 @@ begin D := N; end; -// == Конец дополнений к верÑ�ии 1.3 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 1.3 == -// == ВерÑ�иÑ� 4.14. ДополнениÑ� == +// == Âåðñèÿ 4.14. Äîïîëíåíèÿ == function ReadSeqInteger(): sequence of integer; begin @@ -1864,7 +1869,7 @@ begin write(a[i][j]); end; -/// Выводит размер и Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ðàçìåð è ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure WriteAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1873,7 +1878,7 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure Write(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1881,14 +1886,14 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure Write(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// Выводит Ñ�лементы матрицы +/// Âûâîäèò ýëåìåíòû ìàòðèöû procedure Write(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -1896,7 +1901,7 @@ begin PT4.Put(self[i,j]); end; -// == ДополнениÑ� 2016.07 +// == Äîïîëíåíèÿ 2016.07 procedure PrintMatr(a: array[,] of T); begin @@ -1919,7 +1924,7 @@ begin write(a[i][j]); end; -/// Выводит размер и Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ðàçìåð è ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure PrintAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1928,7 +1933,7 @@ begin PT4.Put(e); end; -/// Выводит размер и Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ðàçìåð è ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure PrintAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -1936,7 +1941,7 @@ begin PT4.Put(self[i]); end; -/// Выводит размер и Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ðàçìåð è ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure WriteAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -1944,7 +1949,7 @@ begin PT4.Put(self[i]); end; -/// Выводит Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure Writeln(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1952,14 +1957,14 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure Writeln(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// Выводит Ñ�лементы матрицы +/// Âûâîäèò ýëåìåíòû ìàòðèöû procedure Writeln(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -1967,13 +1972,13 @@ begin PT4.Put(self[i,j]); end; -// == Конец дополнений 2016.07 +// == Êîíåö äîïîëíåíèé 2016.07 -/// Выводит в разделе отладки окна задачника -/// комментарий cmt, размер поÑ�ледовательноÑ�ти и значениÑ�, -/// полученные из Ñ�лементов поÑ�ледовательноÑ�ти -/// Ñ� помощью указанного лÑ�мбда-выражениÑ� +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// êîììåíòàðèé cmt, ðàçìåð ïîñëåäîâàòåëüíîñòè è çíà÷åíèÿ, +/// ïîëó÷åííûå èç ýëåìåíòîâ ïîñëåäîâàòåëüíîñòè +/// ñ ïîìîùüþ óêàçàííîãî ëÿìáäà-âûðàæåíèÿ function Show(self: sequence of TSource; cmt: string; selector: System.Func): sequence of TSource; extensionmethod; begin @@ -1986,17 +1991,17 @@ begin result := self; end; -/// Выводит в разделе отладки окна задачника -/// размер поÑ�ледовательноÑ�ти и значениÑ�, -/// полученные из Ñ�лементов поÑ�ледовательноÑ�ти -/// Ñ� помощью указанного лÑ�мбда-выражениÑ� +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// ðàçìåð ïîñëåäîâàòåëüíîñòè è çíà÷åíèÿ, +/// ïîëó÷åííûå èç ýëåìåíòîâ ïîñëåäîâàòåëüíîñòè +/// ñ ïîìîùüþ óêàçàííîãî ëÿìáäà-âûðàæåíèÿ function Show(Self: sequence of TSource; selector: System.Func): sequence of TSource; extensionmethod; begin result := self.Show('', selector); end; -/// Выводит в разделе отладки окна задачника -/// комментарий cmt, размер поÑ�ледовательноÑ�ти и ее Ñ�лементы +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// êîììåíòàðèé cmt, ðàçìåð ïîñëåäîâàòåëüíîñòè è åå ýëåìåíòû function Show(Self: sequence of TSource; cmt: string): sequence of TSource; extensionmethod; begin result := self; @@ -2015,14 +2020,14 @@ begin end; -/// Выводит в разделе отладки окна задачника -/// размер поÑ�ледовательноÑ�ти и ее Ñ�лементы. +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// ðàçìåð ïîñëåäîâàòåëüíîñòè è åå ýëåìåíòû. function Show(Self: sequence of TSource): sequence of TSource; extensionmethod; begin result := self.Show(''); end; -// == Конец дополнений к верÑ�ии 4.14 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 4.14 == initialization __InitModule; diff --git a/TestSuite/CompilationSamples/PT4Exam.pas b/TestSuite/CompilationSamples/PT4Exam.pas index 0eed7d68a..02de9ad3e 100644 --- a/TestSuite/CompilationSamples/PT4Exam.pas +++ b/TestSuite/CompilationSamples/PT4Exam.pas @@ -1,10 +1,10 @@ -/// Модуль Ñ�лектронного задачника PT for Exam +/// Модуль Ñ�лектронного задачника PT for Exam unit PT4Exam; //------------------------------------------------------------------------------ // Модуль длÑ� подключениÑ� задачника PT for Exam -// ВерÑ�иÑ� 1.1 -// Copyright (c) 2014-2015 М.Э.Ð�брамÑ�н +// ВерÑ�иÑ� 1.2 +// Copyright (c) 2014-2017 М.Э.Ð�брамÑ�н //------------------------------------------------------------------------------ @@ -13,6 +13,30 @@ interface procedure Task(name: string); procedure FinExam; +//1.2 +procedure Show(S: string); +procedure Show(S: string; A: Integer; W: Integer); +procedure Show(S: string; A: Real; W: Integer); +procedure Show(S: string; A: Integer); +procedure Show(S: string; A: Real); +procedure Show(A: Integer; W: Integer); +procedure Show(A: Real; W: Integer); +procedure Show(A: Integer); +procedure Show(A: Real); +procedure ShowLine; +procedure ShowLine(S: string); +procedure ShowLine(S: string; A: Integer; W: Integer); +procedure ShowLine(S: string; A: Real; W: Integer); +procedure ShowLine(S: string; A: Integer); +procedure ShowLine(S: string; A: Real); +procedure ShowLine(A: Integer; W: Integer); +procedure ShowLine(A: Real; W: Integer); +procedure ShowLine(A: Integer); +procedure ShowLine(A: Real); +procedure SetPrecision(N: integer); +procedure HideTask; + + implementation uses @@ -72,6 +96,112 @@ begin NextTask := false; end; +procedure Show(S: string); +begin + PT4.Show(S); +end; + +procedure Show(S: string; A: Integer; W: Integer); +begin + PT4.Show(S, A, W); +end; + +procedure Show(S: string; A: Real; W: Integer); +begin + PT4.Show(S, A, W); +end; + +procedure Show(S: string; A: Integer); +begin + PT4.Show(S, A); +end; + +procedure Show(S: string; A: Real); +begin + PT4.Show(S, A); +end; + +procedure Show(A: Integer; W: Integer); +begin + PT4.Show(A, W); +end; + +procedure Show(A: Real; W: Integer); +begin + PT4.Show(A, W); +end; + +procedure Show(A: Integer); +begin + PT4.Show(A); +end; + +procedure Show(A: Real); +begin + PT4.Show(A); +end; + +procedure ShowLine(S: string); +begin + PT4.ShowLine(S); +end; + +procedure ShowLine; +begin + PT4.ShowLine; +end; + +procedure ShowLine(S: string; A: Integer; W: Integer); +begin + PT4.ShowLine(S, A, W); +end; + +procedure ShowLine(S: string; A: Real; W: Integer); +begin + PT4.ShowLine(S, A, W); +end; + +procedure ShowLine(S: string; A: Integer); +begin + PT4.ShowLine(S, A); +end; + +procedure ShowLine(S: string; A: Real); +begin + PT4.ShowLine(S, A); +end; + +procedure ShowLine(A: Integer; W: Integer); +begin + PT4.ShowLine(A, W); +end; + +procedure ShowLine(A: Real; W: Integer); +begin + PT4.ShowLine(A, W); +end; + +procedure ShowLine(A: Integer); +begin + PT4.ShowLine(A); +end; + +procedure ShowLine(A: Real); +begin + PT4.ShowLine(A); +end; + +procedure HideTask; +begin + PT4.HideTask; +end; + +procedure SetPrecision(N: Integer); +begin + PT4.SetPrecision(N); +end; + + initialization finalization diff --git a/TestSuite/CompilationSamples/ShortFunLambdaProc.pas b/TestSuite/CompilationSamples/ShortFunLambdaProc.pas new file mode 100644 index 000000000..233e6a87c --- /dev/null +++ b/TestSuite/CompilationSamples/ShortFunLambdaProc.pas @@ -0,0 +1,8 @@ +function f: procedure := ()->write(1); + +function f1: integer->integer := x->x; + +begin + f()(); + Print(f1()(2)); +end. \ No newline at end of file diff --git a/bin/Lib/ABCObjects.pas b/bin/Lib/ABCObjects.pas index 643699f00..601ddcbae 100644 --- a/bin/Lib/ABCObjects.pas +++ b/bin/Lib/ABCObjects.pas @@ -912,6 +912,8 @@ begin if oldBounds.IntersectsWith(newBounds) then begin r := GRectangle.Union(oldBounds,newBounds); + //TextOut(0,0,r.ToString); + //r.Width := r.Width + 5; drawRect(r); end else diff --git a/bin/Lib/PABCRtl.dll b/bin/Lib/PABCRtl.dll index 9b4d08d81..5e80259cf 100644 Binary files a/bin/Lib/PABCRtl.dll and b/bin/Lib/PABCRtl.dll differ diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 97eb0f485..75354c081 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -1217,25 +1217,6 @@ function Odd(i: uint64): boolean; function Cplx(re,im: real): Complex; /// КонÑ�труирует комплекÑ�ное чиÑ�ло по полÑ�рным координатам function CplxFromPolar(magnitude,phase: real) : Complex; -/// Возвращает квадратный корень из комплекÑ�ного чиÑ�ла -function Sqrt(c: Complex): Complex; -/// Возвращает модуль комплекÑ�ного чиÑ�ла -function Abs(c: Complex): Complex; -/// Возвращает комплекÑ�но Ñ�опрÑ�женное чиÑ�ло -function Conjugate(c: Complex): Complex; -/// Возвращает коÑ�инуÑ� комплекÑ�ного чиÑ�ла -function Cos(c: Complex): Complex; -/// Возвращает Ñ�кÑ�поненту комплекÑ�ного чиÑ�ла -function Exp(c: Complex): Complex; -/// Возвращает натуральный логарифм комплекÑ�ного чиÑ�ла -function Log(c: Complex): Complex; -/// Возвращает деÑ�Ñ�тичный логарифм комплекÑ�ного чиÑ�ла -function Log10(c: Complex): Complex; -/// Возвращает Ñ�тепень комплекÑ�ного чиÑ�ла -function Power(c,power: Complex): Complex; -/// Возвращает Ñ�инуÑ� комплекÑ�ного чиÑ�ла -function Sin(c: Complex): Complex; - // ----------------------------------------------------- //>> Процедуры длÑ� работы Ñ�о Ñ�тандартными множеÑ�твами # Subroutines for set of T @@ -1715,6 +1696,8 @@ function SSet(params a: array of T): SortedSet; function SSet(a: sequence of T): SortedSet; /// Возвращает Ñ�ловарь пар Ñ�лементов (ключ, значение) function Dict(params pairs: array of KeyValuePair): Dictionary; +/// Возвращает Ñ�ловарь пар Ñ�лементов (ключ, значение) +function Dict(params pairs: array of (TKey, TVal)): Dictionary; /// Возвращает пару Ñ�лементов (ключ, значение) function KV(key: TKey; value: TVal): KeyValuePair; @@ -4257,6 +4240,13 @@ begin Result.Add(pairs[i].Key, pairs[i].Value); end; +function Dict(params pairs: array of (TKey, TVal)): Dictionary; +begin + Result := new Dictionary(); + for var i := 0 to pairs.Length - 1 do + Result.Add(pairs[i][0], pairs[i][1]); +end; + function KV(key: TKey; value: TVal): KeyValuePair; begin Result := new KeyValuePair(key, value); @@ -7069,24 +7059,6 @@ function Cplx(re,im: real) := new Complex(re,im); function CplxFromPolar(magnitude,phase: real) := Complex.FromPolarCoordinates(magnitude,phase); -function Sqrt(c: Complex) := Complex.Sqrt(c); - -function Abs(c: Complex) := Complex.Abs(c); - -function Conjugate(c: Complex) := Complex.Conjugate(c); - -function Cos(c: Complex) := Complex.Cos(c); - -function Exp(c: Complex) := Complex.Exp(c); - -function Log(c: Complex) := Complex.Log(c); - -function Log10(c: Complex) := Complex.Log10(c); - -function Power(c,power: Complex) := Complex.Pow(c,power); - -function Sin(c: Complex) := Complex.Sin(c); - // ----------------------------------------------------- // Dynamic arrays: implementation // ----------------------------------------------------- diff --git a/bin/Lib/PT4.pas b/bin/Lib/PT4.pas index 94f5f79dc..c45298e16 100644 --- a/bin/Lib/PT4.pas +++ b/bin/Lib/PT4.pas @@ -1,15 +1,15 @@ -/// Модуль Ñ�лектронного задачника Programming Taskbook 4 +/// Ìîäóëü ýëåêòðîííîãî çàäà÷íèêà Programming Taskbook 4 unit PT4; //------------------------------------------------------------------------------ -// Модуль длÑ� подключениÑ� задачника Programming Taskbook -// ВерÑ�иÑ� 4.15 +// Ìîäóëü äëÿ ïîäêëþ÷åíèÿ çàäà÷íèêà Programming Taskbook +// Âåðñèÿ 4.15 // Copyright (c) 2006-2008 DarkStar, SSM -// Copyright (c) 2010 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 1.3 -// Copyright (c) 2014-2015 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.13 -// Copyright (c) 2015 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.14 -// Copyright (c) 2016 М.Э.Ð�брамÑ�н, дополнениÑ� к верÑ�ии 4.15 -// Электронный задачник Programming Taskbook Copyright (c)М.Э.Ð�брамÑ�н, 1998-2016 +// Copyright (c) 2010 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 1.3 +// Copyright (c) 2014-2015 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.13 +// Copyright (c) 2015 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.14 +// Copyright (c) 2016 Ì.Ý.Àáðàìÿí, äîïîëíåíèÿ ê âåðñèè 4.15 +// Ýëåêòðîííûé çàäà÷íèê Programming Taskbook Copyright (c)Ì.Ý.Àáðàìÿí, 1998-2017 //------------------------------------------------------------------------------ {$apptype windows} @@ -21,9 +21,9 @@ uses System, System.Collections, System.Runtime.InteropServices; type - /// Тип указателÑ� на узел Ñ�пиÑ�ка + /// Òèï óêàçàòåëÿ íà óçåë ñïèñêà PNode = ^TNode; - /// Тип узла Ñ�пиÑ�ка + /// Òèï óçëà ñïèñêà TNode = record Data: integer; Next,Prev,Left,Right,Parent: PNode; @@ -79,107 +79,107 @@ type property Data: integer read getData write SetData; end; -/// ВывеÑ�ти формулировку заданиÑ� +/// Âûâåñòè ôîðìóëèðîâêó çàäàíèÿ procedure Task(name: string); -/// ВвеÑ�ти и вернуть значение целого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå öåëîãî òèïà function GetInt: integer; -/// ВвеÑ�ти и вернуть значение целого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå öåëîãî òèïà function GetInteger: integer; -/// ВвеÑ�ти и вернуть значение вещеÑ�твенного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå âåùåñòâåííîãî òèïà function GetReal: real; -/// ВвеÑ�ти и вернуть значение вещеÑ�твенного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå âåùåñòâåííîãî òèïà function GetDouble: real; -/// ВвеÑ�ти и вернуть значение Ñ�имвольного типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ñèìâîëüíîãî òèïà function GetChar: char; -/// ВвеÑ�ти и вернуть значение Ñ�трокового типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ñòðîêîâîãî òèïà function GetString: string; -/// ВвеÑ�ти и вернуть значение логичеÑ�кого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ëîãè÷åñêîãî òèïà function GetBool: boolean; -/// ВвеÑ�ти и вернуть значение логичеÑ�кого типа +/// Ââåñòè è âåðíóòü çíà÷åíèå ëîãè÷åñêîãî òèïà function GetBoolean: boolean; -/// ВвеÑ�ти и вернуть значение типа Node +/// Ââåñòè è âåðíóòü çíà÷åíèå òèïà Node function GetNode: Node; -/// ВвеÑ�ти и вернуть значение типа PNode +/// Ââåñòè è âåðíóòü çíà÷åíèå òèïà PNode function GetPNode: PNode; -/// Возвращает введенное значение типа integer +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer function ReadInteger: integer; -/// Возвращает введенное значение типа real +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real function ReadReal: real; -/// Возвращает введенное значение типа char +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char function ReadChar: char; -/// Возвращает введенное значение типа string +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string function ReadString: string; -/// Возвращает введенное значение типа boolean +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean function ReadBoolean: boolean; -/// Возвращает введенное значение типа PNode +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode function ReadPNode: PNode; -/// Возвращает введенное значение типа Node +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node function ReadNode: Node; -/// Возвращает введенное значение типа integer +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer function ReadlnInteger: integer; -/// Возвращает введенное значение типа real +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real function ReadlnReal: real; -/// Возвращает введенное значение типа char +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char function ReadlnChar: char; -/// Возвращает введенное значение типа string +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string function ReadlnString: string; -/// Возвращает введенное значение типа boolean +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean function ReadlnBoolean: boolean; -/// Возвращает введенное значение типа PNode +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode function ReadlnPNode: PNode; -/// Возвращает введенное значение типа Node +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node function ReadlnNode: Node; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == -/// Возвращает введенное значение типа integer. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadInteger(prompt: string): integer; -/// Возвращает введенное значение типа real. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadReal(prompt: string): real; -/// Возвращает введенное значение типа char. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadChar(prompt: string): char; -/// Возвращает введенное значение типа string. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadString(prompt: string): string; -/// Возвращает введенное значение типа boolean. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadBoolean(prompt: string): boolean; -/// Возвращает введенное значение типа PNode. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadPNode(prompt: string): PNode; -/// Возвращает введенное значение типа Node. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadNode(prompt: string): Node; -/// Возвращает введенное значение типа integer. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà integer. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnInteger(prompt: string): integer; -/// Возвращает введенное значение типа real. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà real. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnReal(prompt: string): real; -/// Возвращает введенное значение типа char. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà char. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnChar(prompt: string): char; -/// Возвращает введенное значение типа string. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà string. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnString(prompt: string): string; -/// Возвращает введенное значение типа boolean. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà boolean. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnBoolean(prompt: string): boolean; -/// Возвращает введенное значение типа PNode. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà PNode. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnPNode(prompt: string): PNode; -/// Возвращает введенное значение типа Node. -/// Строковое приглашение prompt игнорируетÑ�Ñ� +/// Âîçâðàùàåò ââåäåííîå çíà÷åíèå òèïà Node. +/// Ñòðîêîâîå ïðèãëàøåíèå prompt èãíîðèðóåòñÿ function ReadlnNode(prompt: string): Node; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == procedure GetR(var param: real); procedure GetN(var param: integer); @@ -206,9 +206,9 @@ procedure Put(param: boolean); procedure Put(param: PNode); procedure Put(param: Node); -//Ввод Ñ�тих данных не поддерживаетÑ�Ñ� +//Ââîä ýòèõ äàííûõ íå ïîääåðæèâàåòñÿ ///- read(a,b,...) -/// Вводит значениÑ� a,b,... из окна Ñ�лектронного задачника +/// Ââîäèò çíà÷åíèÿ a,b,... èç îêíà ýëåêòðîííîãî çàäà÷íèêà procedure read(var x: byte); ///-- procedure read(var x: shortint); @@ -246,20 +246,20 @@ procedure Readln; procedure Print(params args: array of object); procedure Println(params args: array of object); -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == procedure Print(s: string); procedure Println(s: string); -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == -/// ОÑ�вобождает памÑ�ть, выделенную динамичеÑ�ки, на которую указывает p +/// Îñâîáîæäàåò ïàìÿòü, âûäåëåííóþ äèíàìè÷åñêè, íà êîòîðóþ óêàçûâàåò p procedure Dispose(p: pointer); -// ФиктивнаÑ� пуÑ�таÑ� процедура - длÑ� Intellisense -// Ð�ет, нельзÑ� пользоватьÑ�Ñ� - закрываютÑ�Ñ� процедуры write Ñ�иÑ�темного модулÑ� +// Ôèêòèâíàÿ ïóñòàÿ ïðîöåäóðà - äëÿ Intellisense +// Íåò, íåëüçÿ ïîëüçîâàòüñÿ - çàêðûâàþòñÿ ïðîöåäóðû write ñèñòåìíîãî ìîäóëÿ ///- write(a,b,...) -/// Выводит значениÑ� a,b,... в окно Ñ�лектронного задачника +/// Âûâîäèò çíà÷åíèÿ a,b,... â îêíî ýëåêòðîííîãî çàäà÷íèêà //procedure write; ///-- @@ -267,162 +267,162 @@ procedure __InitModule__; ///-- procedure __FinalizeModule__; -// == ВерÑ�иÑ� 1.3. ДополнениÑ� == +// == Âåðñèÿ 1.3. Äîïîëíåíèÿ == -/// Выводит Ñ�троку S в разделе отладки окна задачника +/// Âûâîäèò ñòðîêó S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(S: string; A: integer; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(S: string; A: real; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string; A: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(S: string; A: real); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(A: integer; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé procedure Show(A: real; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(A: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure Show(A: real); -/// ВыполнÑ�ет переход на новую Ñ�кранную Ñ�троку -/// в разделе отладки окна задачника +/// Âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó +/// â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà procedure ShowLine; -/// Выводит Ñ�троку S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ñòðîêó S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода данных выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà äàííûõ âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: integer; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки -/// окна задачника; длÑ� вывода чиÑ�ла отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода данных выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà; äëÿ âûâîäà ÷èñëà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà äàííûõ âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: real; W: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: integer); -/// Выводит чиÑ�ло A Ñ� комментарием S в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A ñ êîììåíòàðèåì S â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(S: string; A: real); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода чиÑ�ла выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà ÷èñëà âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: integer; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника; -/// длÑ� вывода отводитÑ�Ñ� W Ñ�кранных позиций. -/// ПоÑ�ле вывода чиÑ�ла выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà; +/// äëÿ âûâîäà îòâîäèòñÿ W ýêðàííûõ ïîçèöèé. +/// Ïîñëå âûâîäà ÷èñëà âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: real; W: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: integer); -/// Выводит чиÑ�ло A в разделе отладки окна задачника, -/// поÑ�ле чего выполнÑ�ет переход на новую Ñ�кранную Ñ�троку +/// Âûâîäèò ÷èñëî A â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà, +/// ïîñëå ÷åãî âûïîëíÿåò ïåðåõîä íà íîâóþ ýêðàííóþ ñòðîêó procedure ShowLine(A: real); -/// Ð�аÑ�траивает формат вывода вещеÑ�твенных чиÑ�ел в разделе отладки -/// окна задачника. ЕÑ�ли N > 0, то чиÑ�ло выводитÑ�Ñ� в формате -/// Ñ� фикÑ�ированной точкой и N дробными знаками. ЕÑ�ли N = 0, -/// то чиÑ�ло выводитÑ�Ñ� в Ñ�кÑ�поненциальном формате, чиÑ�ло дробных -/// знаков определÑ�етÑ�Ñ� шириной полÑ� вывода +/// Íàñòðàèâàåò ôîðìàò âûâîäà âåùåñòâåííûõ ÷èñåë â ðàçäåëå îòëàäêè +/// îêíà çàäà÷íèêà. Åñëè N > 0, òî ÷èñëî âûâîäèòñÿ â ôîðìàòå +/// ñ ôèêñèðîâàííîé òî÷êîé è N äðîáíûìè çíàêàìè. Åñëè N = 0, +/// òî ÷èñëî âûâîäèòñÿ â ýêñïîíåíöèàëüíîì ôîðìàòå, ÷èñëî äðîáíûõ +/// çíàêîâ îïðåäåëÿåòñÿ øèðèíîé ïîëÿ âûâîäà procedure SetPrecision(N: integer); -/// ОбеÑ�печивает автоматичеÑ�кое Ñ�крытие вÑ�ех разделов -/// окна задачника, кроме раздела отладки +/// Îáåñïå÷èâàåò àâòîìàòè÷åñêîå ñêðûòèå âñåõ ðàçäåëîâ +/// îêíà çàäà÷íèêà, êðîìå ðàçäåëà îòëàäêè procedure HideTask; -// == Конец дополнений к верÑ�ии 1.3 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 1.3 == -// == ВерÑ�иÑ� 4.14. ДополнениÑ� == +// == Âåðñèÿ 4.14. Äîïîëíåíèÿ == -/// Вводит n целых чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде маÑ�Ñ�ива +/// Ââîäèò n öåëûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ìàññèâà function ReadArrInteger(n: integer): array of integer; -/// Вводит n вещеÑ�твенных чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде маÑ�Ñ�ива +/// Ââîäèò n âåùåñòâåííûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ìàññèâà function ReadArrReal(n: integer): array of real; -/// Вводит n Ñ�трок -/// и возвращает введенные Ñ�троки в виде маÑ�Ñ�ива +/// Ââîäèò n ñòðîê +/// è âîçâðàùàåò ââåäåííûå ñòðîêè â âèäå ìàññèâà function ReadArrString(n: integer): array of string; -/// Вводит n целых чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n öåëûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqInteger(n: integer): sequence of integer; -/// Вводит n вещеÑ�твенных чиÑ�ел -/// и возвращает введенные чиÑ�ла в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n âåùåñòâåííûõ ÷èñåë +/// è âîçâðàùàåò ââåäåííûå ÷èñëà â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqReal(n: integer): sequence of real; -/// Вводит n Ñ�трок -/// и возвращает введенные Ñ�троки в виде поÑ�ледовательноÑ�ти +/// Ââîäèò n ñòðîê +/// è âîçâðàùàåò ââåäåííûå ñòðîêè â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqString(n: integer): sequence of string; -/// Вводит размер набора целых чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà öåëûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqInteger(): sequence of integer; -/// Вводит размер набора вещеÑ�твенных чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà âåùåñòâåííûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqReal(): sequence of real; -/// Вводит размер набора Ñ�трок и его Ñ�лементы -/// и возвращает введенный набор в виде поÑ�ледовательноÑ�ти +/// Ââîäèò ðàçìåð íàáîðà ñòðîê è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ïîñëåäîâàòåëüíîñòè function ReadSeqString(): sequence of string; -/// Вводит размер набора целых чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà öåëûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrInteger(): array of integer; -/// Вводит размер набора вещеÑ�твенных чиÑ�ел и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà âåùåñòâåííûõ ÷èñåë è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrReal(): array of real; -/// Вводит размер набора Ñ�трок и его Ñ�лементы -/// и возвращает введенный набор в виде маÑ�Ñ�ива +/// Ââîäèò ðàçìåð íàáîðà ñòðîê è åãî ýëåìåíòû +/// è âîçâðàùàåò ââåäåííûé íàáîð â âèäå ìàññèâà function ReadArrString(): array of string; -/// Вводит целую матрицу размера m на n по Ñ�трокам +/// Ââîäèò öåëóþ ìàòðèöó ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrInteger(m,n: integer): array [,] of integer; -/// Вводит размеры матрицы и затем целую матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì öåëóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrInteger(): array [,] of integer; -/// Вводит вещеÑ�твенную матрицу размера m на n по Ñ�трокам +/// Ââîäèò âåùåñòâåííóþ ìàòðèöó ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrReal(m,n: integer): array [,] of real; -/// Вводит размеры матрицы и затем вещеÑ�твенную матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì âåùåñòâåííóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrReal(): array [,] of real; -/// Вводит матрицу из Ñ�трок размера m на n по Ñ�трокам +/// Ââîäèò ìàòðèöó èç ñòðîê ðàçìåðà m íà n ïî ñòðîêàì function ReadMatrString(m,n: integer): array [,] of string; -/// Вводит размеры матрицы и затем Ñ�троковую матрицу указанных размеров по Ñ�трокам +/// Ââîäèò ðàçìåðû ìàòðèöû è çàòåì ñòðîêîâóþ ìàòðèöó óêàçàííûõ ðàçìåðîâ ïî ñòðîêàì function ReadMatrString(): array [,] of string; procedure ReadMatr(var m, n: integer; var a: array [,] of integer); @@ -467,7 +467,7 @@ procedure WriteMatr(a: array of array of T); procedure WriteMatr(a: List>); -// == ДополнениÑ� 2016.07 +// == Äîïîëíåíèÿ 2016.07 procedure PrintMatr(a: array[,] of T); @@ -475,16 +475,16 @@ procedure PrintMatr(a: array of array of T); procedure PrintMatr(a: List>); -// == Конец дополнений 2016.07 +// == Êîíåö äîïîëíåíèé 2016.07 -// == Конец дополнений к верÑ�ии 4.14 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 4.14 == implementation const - NotSupportedReadTypeMessage = 'Ввод данных типа {0} не поддерживаетÑ�Ñ�'; - NotSupportedWriteTypeMessage = 'Вывод данных типа {0} не поддерживаетÑ�Ñ�'; - eMessage = 'Попытка обращениÑ� к объекту Node поÑ�ле вызова его метода Dispose'; + NotSupportedReadTypeMessage = 'Ââîä äàííûõ òèïà {0} íå ïîääåðæèâàåòñÿ'; + NotSupportedWriteTypeMessage = 'Âûâîä äàííûõ òèïà {0} íå ïîääåðæèâàåòñÿ'; + eMessage = 'Ïîïûòêà îáðàùåíèÿ ê îáúåêòó Node ïîñëå âûçîâà åãî ìåòîäà Dispose'; var loadNodes: ArrayList; @@ -922,7 +922,7 @@ begin end; // ----------------------------------------------------- -// Функции Get +// Ôóíêöèè Get // ----------------------------------------------------- function GetInt: integer; var val:integer; @@ -958,7 +958,7 @@ end; function GetString: string; var val: System.Text.StringBuilder; begin - val := new System.Text.StringBuilder(200);//TODO почему 200? + val := new System.Text.StringBuilder(200);//TODO ïî÷åìó 200? _gets(val); result := val.ToString; end; @@ -989,8 +989,8 @@ var p: IntPtr; sNode: InternalNode; begin - //raise new NotSupportedException('Работа Ñ� динамичеÑ�кими Ñ�труктурами задачника PT4 не поддерживаетÑ�Ñ� в Ñ�той верÑ�ии компилÑ�тора. ИÑ�правление ошибки планируетÑ�Ñ� в Ñ�ледуйщей верÑ�ии'); - //result := new PT4Node(sNode, p);// fixme здеÑ�ÑŒ ошибка генерации кода! + //raise new NotSupportedException('Ðàáîòà ñ äèíàìè÷åñêèìè ñòðóêòóðàìè çàäà÷íèêà PT4 íå ïîääåðæèâàåòñÿ â ýòîé âåðñèè êîìïèëÿòîðà. Èñïðàâëåíèå îøèáêè ïëàíèðóåòñÿ â ñëåäóéùåé âåðñèè'); + //result := new PT4Node(sNode, p);// fixme çäåñü îøèáêà ãåíåðàöèè êîäà! p := IntPtr.Zero; sNode.Data := 0; sNode.Next := IntPtr.Zero; @@ -1089,7 +1089,7 @@ begin Result := GetNode; end; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == function ReadInteger(prompt: string): integer; begin @@ -1161,10 +1161,10 @@ begin Result := GetNode; end; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == // ----------------------------------------------------- -// Процедуры Put +// Ïðîöåäóðû Put // ----------------------------------------------------- procedure PutInt(val: integer); begin @@ -1213,7 +1213,7 @@ begin end; // ----------------------------------------------------- -// ГенерациÑ� иÑ�ключений +// Ãåíåðàöèÿ èñêëþ÷åíèé // ----------------------------------------------------- procedure RaisePTAndCheckPT(e: Exception); begin @@ -1338,7 +1338,7 @@ begin Print(args); end; -// == ВерÑ�иÑ� 4.15. ДополнениÑ� == +// == Âåðñèÿ 4.15. Äîïîëíåíèÿ == procedure Print(s: string); begin @@ -1350,7 +1350,7 @@ begin write(s); end; -// == ВерÑ�иÑ� 4.15. Конец дополнений == +// == Âåðñèÿ 4.15. Êîíåö äîïîëíåíèé == {procedure write; begin @@ -1423,7 +1423,7 @@ begin if InfoT=0 then Console.WriteLine(InfoS); FreePT; - // == Ð�ачало дополнений к верÑ�ии 4.13 == + // == Íà÷àëî äîïîëíåíèé ê âåðñèè 4.13 == var fpt := FinishPT; if fpt = 1 then exit; var asm := System.Reflection.Assembly.GetExecutingAssembly; @@ -1432,6 +1432,15 @@ begin var prg := asm.GetType(nm+'.Program'); var solveproc := prg.GetMethod('$Main'); var initproc := prg.GetMethod('$_InitVariables_'); + if (solveproc = nil) or (initproc = nil) then + foreach var prg0 in asm.GetTypes() do + begin + prg := prg0; + solveproc := prg0.GetMethod('$Main'); + initproc := prg0.GetMethod('$_InitVariables_'); + if (solveproc <> nil) and (initproc <> nil) then + break; + end; var examunit := asm.GetType('PT4Exam.PT4Exam'); var finexamproc: System.Reflection.MethodInfo := nil; if examunit <> nil then @@ -1441,7 +1450,7 @@ begin begin StartPT(512); try - foreach var f in prg.GetFields do + foreach var f in prg.GetFields() do if not f.Name.StartsWith('$') then try f.SetValue(nil, nil); @@ -1452,11 +1461,7 @@ begin solveproc.Invoke(nil,nil); except on e: Exception do - begin - //if e.InnerException<>nil then - RaisePT('HHH', 'ggg'); - //RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message); - end; + RaisePT(e.InnerException.GetType.ToString, e.InnerException.Message); end; if finexamproc <> nil then finexamproc.Invoke(nil,nil); @@ -1465,10 +1470,10 @@ begin inc(i); fpt := FinishPT; end; - // == Конец дополнений к верÑ�ии 4.13 == + // == Êîíåö äîïîëíåíèé ê âåðñèè 4.13 == end; -// == ВерÑ�иÑ� 1.3. ДополнениÑ� == +// == Âåðñèÿ 1.3. Äîïîëíåíèÿ == var D: integer := 2; @@ -1590,9 +1595,9 @@ begin D := N; end; -// == Конец дополнений к верÑ�ии 1.3 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 1.3 == -// == ВерÑ�иÑ� 4.14. ДополнениÑ� == +// == Âåðñèÿ 4.14. Äîïîëíåíèÿ == function ReadSeqInteger(): sequence of integer; begin @@ -1864,7 +1869,7 @@ begin write(a[i][j]); end; -/// Выводит размер и Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ðàçìåð è ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure WriteAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1873,7 +1878,7 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure Write(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1881,14 +1886,14 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure Write(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// Выводит Ñ�лементы матрицы +/// Âûâîäèò ýëåìåíòû ìàòðèöû procedure Write(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -1896,7 +1901,7 @@ begin PT4.Put(self[i,j]); end; -// == ДополнениÑ� 2016.07 +// == Äîïîëíåíèÿ 2016.07 procedure PrintMatr(a: array[,] of T); begin @@ -1919,7 +1924,7 @@ begin write(a[i][j]); end; -/// Выводит размер и Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ðàçìåð è ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure PrintAll(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1928,7 +1933,7 @@ begin PT4.Put(e); end; -/// Выводит размер и Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ðàçìåð è ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure PrintAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -1936,7 +1941,7 @@ begin PT4.Put(self[i]); end; -/// Выводит размер и Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ðàçìåð è ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure WriteAll(self: array of T); extensionmethod; begin PT4.Put(self.Length); @@ -1944,7 +1949,7 @@ begin PT4.Put(self[i]); end; -/// Выводит Ñ�лементы поÑ�ледовательноÑ�ти +/// Âûâîäèò ýëåìåíòû ïîñëåäîâàòåëüíîñòè procedure Writeln(self: sequence of T); extensionmethod; begin var b := self.ToArray(); @@ -1952,14 +1957,14 @@ begin PT4.Put(e); end; -/// Выводит Ñ�лементы динамичеÑ�кого маÑ�Ñ�ива +/// Âûâîäèò ýëåìåíòû äèíàìè÷åñêîãî ìàññèâà procedure Writeln(self: array of T); extensionmethod; begin for var i:=0 to self.Length-1 do PT4.Put(self[i]); end; -/// Выводит Ñ�лементы матрицы +/// Âûâîäèò ýëåìåíòû ìàòðèöû procedure Writeln(self: array [,] of T); extensionmethod; begin for var i:=0 to self.GetLength(0)-1 do @@ -1967,13 +1972,13 @@ begin PT4.Put(self[i,j]); end; -// == Конец дополнений 2016.07 +// == Êîíåö äîïîëíåíèé 2016.07 -/// Выводит в разделе отладки окна задачника -/// комментарий cmt, размер поÑ�ледовательноÑ�ти и значениÑ�, -/// полученные из Ñ�лементов поÑ�ледовательноÑ�ти -/// Ñ� помощью указанного лÑ�мбда-выражениÑ� +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// êîììåíòàðèé cmt, ðàçìåð ïîñëåäîâàòåëüíîñòè è çíà÷åíèÿ, +/// ïîëó÷åííûå èç ýëåìåíòîâ ïîñëåäîâàòåëüíîñòè +/// ñ ïîìîùüþ óêàçàííîãî ëÿìáäà-âûðàæåíèÿ function Show(self: sequence of TSource; cmt: string; selector: System.Func): sequence of TSource; extensionmethod; begin @@ -1986,17 +1991,17 @@ begin result := self; end; -/// Выводит в разделе отладки окна задачника -/// размер поÑ�ледовательноÑ�ти и значениÑ�, -/// полученные из Ñ�лементов поÑ�ледовательноÑ�ти -/// Ñ� помощью указанного лÑ�мбда-выражениÑ� +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// ðàçìåð ïîñëåäîâàòåëüíîñòè è çíà÷åíèÿ, +/// ïîëó÷åííûå èç ýëåìåíòîâ ïîñëåäîâàòåëüíîñòè +/// ñ ïîìîùüþ óêàçàííîãî ëÿìáäà-âûðàæåíèÿ function Show(Self: sequence of TSource; selector: System.Func): sequence of TSource; extensionmethod; begin result := self.Show('', selector); end; -/// Выводит в разделе отладки окна задачника -/// комментарий cmt, размер поÑ�ледовательноÑ�ти и ее Ñ�лементы +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// êîììåíòàðèé cmt, ðàçìåð ïîñëåäîâàòåëüíîñòè è åå ýëåìåíòû function Show(Self: sequence of TSource; cmt: string): sequence of TSource; extensionmethod; begin result := self; @@ -2015,14 +2020,14 @@ begin end; -/// Выводит в разделе отладки окна задачника -/// размер поÑ�ледовательноÑ�ти и ее Ñ�лементы. +/// Âûâîäèò â ðàçäåëå îòëàäêè îêíà çàäà÷íèêà +/// ðàçìåð ïîñëåäîâàòåëüíîñòè è åå ýëåìåíòû. function Show(Self: sequence of TSource): sequence of TSource; extensionmethod; begin result := self.Show(''); end; -// == Конец дополнений к верÑ�ии 4.14 == +// == Êîíåö äîïîëíåíèé ê âåðñèè 4.14 == initialization __InitModule; diff --git a/bin/Lib/PT4Exam.pas b/bin/Lib/PT4Exam.pas index 0eed7d68a..02de9ad3e 100644 --- a/bin/Lib/PT4Exam.pas +++ b/bin/Lib/PT4Exam.pas @@ -1,10 +1,10 @@ -/// Модуль Ñ�лектронного задачника PT for Exam +/// Модуль Ñ�лектронного задачника PT for Exam unit PT4Exam; //------------------------------------------------------------------------------ // Модуль длÑ� подключениÑ� задачника PT for Exam -// ВерÑ�иÑ� 1.1 -// Copyright (c) 2014-2015 М.Э.Ð�брамÑ�н +// ВерÑ�иÑ� 1.2 +// Copyright (c) 2014-2017 М.Э.Ð�брамÑ�н //------------------------------------------------------------------------------ @@ -13,6 +13,30 @@ interface procedure Task(name: string); procedure FinExam; +//1.2 +procedure Show(S: string); +procedure Show(S: string; A: Integer; W: Integer); +procedure Show(S: string; A: Real; W: Integer); +procedure Show(S: string; A: Integer); +procedure Show(S: string; A: Real); +procedure Show(A: Integer; W: Integer); +procedure Show(A: Real; W: Integer); +procedure Show(A: Integer); +procedure Show(A: Real); +procedure ShowLine; +procedure ShowLine(S: string); +procedure ShowLine(S: string; A: Integer; W: Integer); +procedure ShowLine(S: string; A: Real; W: Integer); +procedure ShowLine(S: string; A: Integer); +procedure ShowLine(S: string; A: Real); +procedure ShowLine(A: Integer; W: Integer); +procedure ShowLine(A: Real; W: Integer); +procedure ShowLine(A: Integer); +procedure ShowLine(A: Real); +procedure SetPrecision(N: integer); +procedure HideTask; + + implementation uses @@ -72,6 +96,112 @@ begin NextTask := false; end; +procedure Show(S: string); +begin + PT4.Show(S); +end; + +procedure Show(S: string; A: Integer; W: Integer); +begin + PT4.Show(S, A, W); +end; + +procedure Show(S: string; A: Real; W: Integer); +begin + PT4.Show(S, A, W); +end; + +procedure Show(S: string; A: Integer); +begin + PT4.Show(S, A); +end; + +procedure Show(S: string; A: Real); +begin + PT4.Show(S, A); +end; + +procedure Show(A: Integer; W: Integer); +begin + PT4.Show(A, W); +end; + +procedure Show(A: Real; W: Integer); +begin + PT4.Show(A, W); +end; + +procedure Show(A: Integer); +begin + PT4.Show(A); +end; + +procedure Show(A: Real); +begin + PT4.Show(A); +end; + +procedure ShowLine(S: string); +begin + PT4.ShowLine(S); +end; + +procedure ShowLine; +begin + PT4.ShowLine; +end; + +procedure ShowLine(S: string; A: Integer; W: Integer); +begin + PT4.ShowLine(S, A, W); +end; + +procedure ShowLine(S: string; A: Real; W: Integer); +begin + PT4.ShowLine(S, A, W); +end; + +procedure ShowLine(S: string; A: Integer); +begin + PT4.ShowLine(S, A); +end; + +procedure ShowLine(S: string; A: Real); +begin + PT4.ShowLine(S, A); +end; + +procedure ShowLine(A: Integer; W: Integer); +begin + PT4.ShowLine(A, W); +end; + +procedure ShowLine(A: Real; W: Integer); +begin + PT4.ShowLine(A, W); +end; + +procedure ShowLine(A: Integer); +begin + PT4.ShowLine(A); +end; + +procedure ShowLine(A: Real); +begin + PT4.ShowLine(A); +end; + +procedure HideTask; +begin + PT4.HideTask; +end; + +procedure SetPrecision(N: Integer); +begin + PT4.SetPrecision(N); +end; + + initialization finalization