From 60b9eb1a177e320354f4bafb090398b3e2b1a19a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jean-Luc=20B=C3=A9chennec?= Date: Mon, 4 Dec 2023 14:36:38 +0100 Subject: [PATCH] [GOIL] Added GTL as submodule, trimWhiteSpaces string getter --- .gitmodules | 3 + goil/build/output/all-declarations-0.cpp | 30 +- goil/build/output/all-declarations-0.h | 3 +- goil/build/output/all-declarations-10.cpp | 258 +- goil/build/output/all-declarations-10.h | 9 - goil/build/output/all-declarations-11.cpp | 100 +- goil/build/output/all-declarations-11.h | 9 + goil/build/output/all-declarations-8.cpp | 56 +- goil/build/output/all-declarations-9.cpp | 2247 ++++---- goil/build/output/all-declarations-9.h | 15 + .../output/lexique-gtl-5F-scanner-cocoa.h | 1 + .../output/lexique-gtl-5F-scanner-cocoa.m | 88 +- .../output/lexique-gtl-5F-scanner-cocoa.swift | 435 +- goil/build/output/project_header.h | 2 +- goil/cross-build.py | 56 +- goil/galgas-sources/GTL | 1 + goil/galgas-sources/goil_gtl_extension.galgas | 35 + goil/galgas-sources/gtl_data_types.galgas | 4700 ----------------- goil/galgas-sources/gtl_debugger.galgas | 1899 ------- .../gtl_debugger_expression_parser.galgas | 700 --- .../gtl_debugger_grammar.galgas | 36 - goil/galgas-sources/gtl_debugger_input.galgas | 159 - .../galgas-sources/gtl_debugger_parser.galgas | 493 -- .../gtl_debugger_scanner.galgas | 466 -- .../gtl_expression_parser.galgas | 756 --- goil/galgas-sources/gtl_expressions.galgas | 1603 ------ goil/galgas-sources/gtl_functions.galgas | 272 - goil/galgas-sources/gtl_grammar.galgas | 40 - .../gtl_instruction_parser.galgas | 405 -- goil/galgas-sources/gtl_instructions.galgas | 1340 ----- goil/galgas-sources/gtl_interface.galgas | 94 - goil/galgas-sources/gtl_module.galgas | 238 - goil/galgas-sources/gtl_module_grammar.galgas | 38 - goil/galgas-sources/gtl_module_parser.galgas | 383 -- goil/galgas-sources/gtl_options.galgas | 12 - goil/galgas-sources/gtl_parser.galgas | 459 -- goil/galgas-sources/gtl_scanner.galgas | 477 -- goil/galgas-sources/gtl_types.galgas | 423 -- goil/goil.galgasProject | 46 +- goil/templates/root.goilTemplate | 2 +- goil/xcode-project/Info.plist | 2 +- 41 files changed, 1807 insertions(+), 16584 deletions(-) create mode 160000 goil/galgas-sources/GTL create mode 100644 goil/galgas-sources/goil_gtl_extension.galgas delete mode 100755 goil/galgas-sources/gtl_data_types.galgas delete mode 100644 goil/galgas-sources/gtl_debugger.galgas delete mode 100644 goil/galgas-sources/gtl_debugger_expression_parser.galgas delete mode 100644 goil/galgas-sources/gtl_debugger_grammar.galgas delete mode 100644 goil/galgas-sources/gtl_debugger_input.galgas delete mode 100644 goil/galgas-sources/gtl_debugger_parser.galgas delete mode 100644 goil/galgas-sources/gtl_debugger_scanner.galgas delete mode 100755 goil/galgas-sources/gtl_expression_parser.galgas delete mode 100755 goil/galgas-sources/gtl_expressions.galgas delete mode 100755 goil/galgas-sources/gtl_functions.galgas delete mode 100755 goil/galgas-sources/gtl_grammar.galgas delete mode 100755 goil/galgas-sources/gtl_instruction_parser.galgas delete mode 100755 goil/galgas-sources/gtl_instructions.galgas delete mode 100755 goil/galgas-sources/gtl_interface.galgas delete mode 100755 goil/galgas-sources/gtl_module.galgas delete mode 100755 goil/galgas-sources/gtl_module_grammar.galgas delete mode 100755 goil/galgas-sources/gtl_module_parser.galgas delete mode 100755 goil/galgas-sources/gtl_options.galgas delete mode 100755 goil/galgas-sources/gtl_parser.galgas delete mode 100755 goil/galgas-sources/gtl_scanner.galgas delete mode 100755 goil/galgas-sources/gtl_types.galgas diff --git a/.gitmodules b/.gitmodules index b2960750c..79e16ea31 100644 --- a/.gitmodules +++ b/.gitmodules @@ -7,3 +7,6 @@ [submodule "libraries/net/ethernet/lwip"] path = libraries/net/ethernet/lwip url = https://git.savannah.nongnu.org/git/lwip.git +[submodule "goil/galgas-sources/GTL"] + path = goil/galgas-sources/GTL + url = https://github.com/TrampolineRTOS/GTL.git diff --git a/goil/build/output/all-declarations-0.cpp b/goil/build/output/all-declarations-0.cpp index 5aa4173f3..cf4f21c1a 100644 --- a/goil/build/output/all-declarations-0.cpp +++ b/goil/build/output/all-declarations-0.cpp @@ -5273,8 +5273,8 @@ static const char * gLexicalMessage_gtl_5F_scanner_unterminatedLitteralString = C_String C_Lexique_gtl_5F_scanner::getMessageForTerminal (const int32_t inTerminalIndex) const { C_String result = "" ; - if ((inTerminalIndex >= 0) && (inTerminalIndex < 115)) { - static const char * syntaxErrorMessageArray [115] = {kEndOfSourceLexicalErrorMessage, + if ((inTerminalIndex >= 0) && (inTerminalIndex < 116)) { + static const char * syntaxErrorMessageArray [116] = {kEndOfSourceLexicalErrorMessage, "an identifier", "a literal enum value", "a float number", @@ -5320,6 +5320,7 @@ C_String C_Lexique_gtl_5F_scanner::getMessageForTerminal (const int32_t inTermin "the 'or' keyword", "the 'print' keyword", "the 'println' keyword", + "the 'seed' keyword", "the 'repeat' keyword", "the 'sort' keyword", "the 'step' keyword", @@ -6157,6 +6158,15 @@ static const utf32 kUnicodeString_gtl_5F_scanner_repeat [] = { TO_UNICODE (0) } ; +//--- Unicode string for '$seed$' +static const utf32 kUnicodeString_gtl_5F_scanner_seed [] = { + TO_UNICODE ('s'), + TO_UNICODE ('e'), + TO_UNICODE ('e'), + TO_UNICODE ('d'), + TO_UNICODE (0) +} ; + //--- Unicode string for '$setter$' static const utf32 kUnicodeString_gtl_5F_scanner_setter [] = { TO_UNICODE ('s'), @@ -6408,7 +6418,7 @@ int32_t C_Lexique_gtl_5F_scanner::search_into_galgasDelimitorsList (const C_Stri // Key words table 'goilTemplateKeyWordList' //---------------------------------------------------------------------------------------------------------------------- -static const int32_t ktable_size_gtl_5F_scanner_goilTemplateKeyWordList = 57 ; +static const int32_t ktable_size_gtl_5F_scanner_goilTemplateKeyWordList = 58 ; static const C_unicode_lexique_table_entry ktable_for_gtl_5F_scanner_goilTemplateKeyWordList [ktable_size_gtl_5F_scanner_goilTemplateKeyWordList] = { C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_by, 2, C_Lexique_gtl_5F_scanner::kToken_by), @@ -6432,6 +6442,7 @@ static const C_unicode_lexique_table_entry ktable_for_gtl_5F_scanner_goilTemplat C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_func, 4, C_Lexique_gtl_5F_scanner::kToken_func), C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_here, 4, C_Lexique_gtl_5F_scanner::kToken_here), C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_loop, 4, C_Lexique_gtl_5F_scanner::kToken_loop), + C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_seed, 4, C_Lexique_gtl_5F_scanner::kToken_seed), C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_sort, 4, C_Lexique_gtl_5F_scanner::kToken_sort), C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_step, 4, C_Lexique_gtl_5F_scanner::kToken_step), C_unicode_lexique_table_entry (kUnicodeString_gtl_5F_scanner_then, 4, C_Lexique_gtl_5F_scanner::kToken_then), @@ -6726,6 +6737,11 @@ C_String C_Lexique_gtl_5F_scanner::getCurrentTokenString (const cToken * inToken s.appendCString ("println") ; s.appendUnicodeCharacter (TO_UNICODE ('$') COMMA_HERE) ; break ; + case kToken_seed: + s.appendUnicodeCharacter (TO_UNICODE ('$') COMMA_HERE) ; + s.appendCString ("seed") ; + s.appendUnicodeCharacter (TO_UNICODE ('$') COMMA_HERE) ; + break ; case kToken_repeat: s.appendUnicodeCharacter (TO_UNICODE ('$') COMMA_HERE) ; s.appendCString ("repeat") ; @@ -7100,7 +7116,7 @@ static const cTemplateDelimiter gtl_5F_scanner_kTemplateReplacementArray [3] = { // Terminal Symbols as end of script in template mark //---------------------------------------------------------------------------------------------------------------------- -static const bool gtl_5F_scanner_kEndOfScriptInTemplateArray [114] = { +static const bool gtl_5F_scanner_kEndOfScriptInTemplateArray [115] = { false /* identifier */, false /* literal_enum */, false /* literal_double */, @@ -7146,6 +7162,7 @@ static const bool gtl_5F_scanner_kEndOfScriptInTemplateArray [114] = { false /* or */, false /* print */, false /* println */, + false /* seed */, false /* repeat */, false /* sort */, false /* step */, @@ -8030,6 +8047,7 @@ GALGAS_stringlist C_Lexique_gtl_5F_scanner::symbols (LOCATION_ARGS) { result.addAssign_operation (GALGAS_string ("or") COMMA_THERE) ; result.addAssign_operation (GALGAS_string ("print") COMMA_THERE) ; result.addAssign_operation (GALGAS_string ("println") COMMA_THERE) ; + result.addAssign_operation (GALGAS_string ("seed") COMMA_THERE) ; result.addAssign_operation (GALGAS_string ("repeat") COMMA_THERE) ; result.addAssign_operation (GALGAS_string ("sort") COMMA_THERE) ; result.addAssign_operation (GALGAS_string ("step") COMMA_THERE) ; @@ -8187,6 +8205,7 @@ static void getKeywordsForIdentifier_gtl_5F_scanner (const C_String & inIdentifi ioList.appendObject ("func") ; ioList.appendObject ("here") ; ioList.appendObject ("loop") ; + ioList.appendObject ("seed") ; ioList.appendObject ("sort") ; ioList.appendObject ("step") ; ioList.appendObject ("then") ; @@ -8238,7 +8257,7 @@ __attribute__ ((unused)) (getKeywordLists_gtl_5F_scanner, getKeywordsForIdentifi //---------------------------------------------------------------------------------------------------------------------- uint32_t C_Lexique_gtl_5F_scanner::styleIndexForTerminal (const int32_t inTerminalIndex) const { - static const uint32_t kTerminalSymbolStyles [115] = {0, + static const uint32_t kTerminalSymbolStyles [116] = {0, 0 /* gtl_scanner_1_identifier */, 0 /* gtl_scanner_1_literal_5F_enum */, 5 /* gtl_scanner_1_literal_5F_double */, @@ -8284,6 +8303,7 @@ uint32_t C_Lexique_gtl_5F_scanner::styleIndexForTerminal (const int32_t inTermin 1 /* gtl_scanner_1_or */, 1 /* gtl_scanner_1_print */, 1 /* gtl_scanner_1_println */, + 1 /* gtl_scanner_1_seed */, 1 /* gtl_scanner_1_repeat */, 1 /* gtl_scanner_1_sort */, 1 /* gtl_scanner_1_step */, diff --git a/goil/build/output/all-declarations-0.h b/goil/build/output/all-declarations-0.h index 2972db602..73c62e446 100644 --- a/goil/build/output/all-declarations-0.h +++ b/goil/build/output/all-declarations-0.h @@ -3979,6 +3979,7 @@ class C_Lexique_gtl_5F_scanner : public C_Lexique { kToken_or, kToken_print, kToken_println, + kToken_seed, kToken_repeat, kToken_sort, kToken_step, @@ -4088,7 +4089,7 @@ class C_Lexique_gtl_5F_scanner : public C_Lexique { protected: virtual C_String getMessageForTerminal (const int32_t inTerminalSymbol) const override ; //--- Get terminal count - public: virtual int32_t terminalVocabularyCount (void) const override { return 114 ; } + public: virtual int32_t terminalVocabularyCount (void) const override { return 115 ; } //--- Get Token String public: virtual C_String getCurrentTokenString (const cToken * inTokenPtr) const override ; diff --git a/goil/build/output/all-declarations-10.cpp b/goil/build/output/all-declarations-10.cpp index 7be93016e..125887a06 100644 --- a/goil/build/output/all-declarations-10.cpp +++ b/goil/build/output/all-declarations-10.cpp @@ -7,67 +7,6 @@ #include "all-declarations-10.h" -//---------------------------------------------------------------------------------------------------------------------- -// -//Overriding extension method '@gtlIfStatementInstruction execute' -// -//---------------------------------------------------------------------------------------------------------------------- - -void cPtr_gtlIfStatementInstruction::method_execute (GALGAS_gtlContext & ioArgument_context, - GALGAS_gtlData & ioArgument_vars, - GALGAS_library & ioArgument_lib, - GALGAS_string & ioArgument_outputString, - C_Compiler * inCompiler - COMMA_UNUSED_LOCATION_ARGS) { - GALGAS_gtlData var_localMap_16721 = callExtensionGetter_overrideMap ((const cPtr_gtlData *) ioArgument_vars.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 576)) ; - GALGAS_bool var_noConditionMatching_16762 = GALGAS_bool (true) ; - cEnumerator_gtlThenElsifStatementList enumerator_16795 (this->mProperty_thenElsifList, kENUMERATION_UP) ; - bool bool_0 = var_noConditionMatching_16762.isValidAndTrue () ; - if (enumerator_16795.hasCurrentObject () && bool_0) { - while (enumerator_16795.hasCurrentObject () && bool_0) { - GALGAS_gtlData var_dataCondition_16861 = callExtensionGetter_eval ((const cPtr_gtlExpression *) enumerator_16795.current_condition (HERE).ptr (), ioArgument_context, var_localMap_16721, ioArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 580)) ; - enumGalgasBool test_1 = kBoolTrue ; - if (kBoolTrue == test_1) { - test_1 = GALGAS_bool (var_dataCondition_16861.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlBool).boolEnum () ; - if (kBoolTrue == test_1) { - GALGAS_gtlBool temp_2 ; - if (var_dataCondition_16861.isValid ()) { - if (nullptr != dynamic_cast (var_dataCondition_16861.ptr ())) { - temp_2 = (cPtr_gtlBool *) var_dataCondition_16861.ptr () ; - }else{ - inCompiler->castError ("gtlBool", var_dataCondition_16861.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_instructions.galgas", 582)) ; - } - } - GALGAS_bool var_boolCondition_16975 = temp_2.readProperty_value () ; - enumGalgasBool test_3 = kBoolTrue ; - if (kBoolTrue == test_3) { - test_3 = var_boolCondition_16975.boolEnum () ; - if (kBoolTrue == test_3) { - extensionMethod_execute (enumerator_16795.current_instructionList (HERE), ioArgument_context, var_localMap_16721, ioArgument_lib, ioArgument_outputString, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 584)) ; - var_noConditionMatching_16762 = GALGAS_bool (false) ; - } - } - } - } - if (kBoolFalse == test_1) { - TC_Array fixItArray4 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) var_dataCondition_16861.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 588)), GALGAS_string ("bool expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_instructions.galgas", 588)) ; - } - enumerator_16795.gotoNextObject () ; - if (enumerator_16795.hasCurrentObject ()) { - bool_0 = var_noConditionMatching_16762.isValidAndTrue () ; - } - } - } - enumGalgasBool test_5 = kBoolTrue ; - if (kBoolTrue == test_5) { - test_5 = var_noConditionMatching_16762.boolEnum () ; - if (kBoolTrue == test_5) { - extensionMethod_execute (this->mProperty_elseList, ioArgument_context, var_localMap_16721, ioArgument_lib, ioArgument_outputString, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 592)) ; - } - } - ioArgument_vars = callExtensionGetter_overriddenMap ((const cPtr_gtlData *) var_localMap_16721.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 595)) ; -} //---------------------------------------------------------------------------------------------------------------------- // //Overriding extension method '@gtlForeachStatementInstruction execute' @@ -11891,6 +11830,105 @@ C_galgas_function_descriptor functionDescriptor_listInOS ("listInOS", 2, functionArgs_listInOS) ; +//---------------------------------------------------------------------------------------------------------------------- +// +//Function 'customGtlStringGetter' +// +//---------------------------------------------------------------------------------------------------------------------- + +GALGAS_gtlData function_customGtlStringGetter (const GALGAS_lstring & constinArgument_methodName, + const GALGAS_gtlDataList & constinArgument_arguments, + const GALGAS_gtlContext &, + const GALGAS_library &, + const GALGAS_string & constinArgument_value, + const GALGAS_location & constinArgument_where, + C_Compiler * inCompiler + COMMA_UNUSED_LOCATION_ARGS) { + GALGAS_gtlData result_result ; // Returned variable + enumGalgasBool test_0 = kBoolTrue ; + if (kBoolTrue == test_0) { + test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("parseOIL").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; + if (kBoolTrue == test_0) { + { + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 11)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 11)) ; + } + GALGAS_string var_rootTemplatesDir_343 = function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 12)) ; + GALGAS_implementation var_imp_407 = GALGAS_implementation::constructor_new (GALGAS_implementationMap::constructor_emptyMap (SOURCE_FILE ("goil_gtl_extension.galgas", 13)) COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 13)) ; + GALGAS_applicationDefinition var_app_493 = function_emptyApplicationDefinition (inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 14)) ; + GALGAS_lstring var_includeToParse_545 = GALGAS_lstring::constructor_new (var_rootTemplatesDir_343.add_operation (GALGAS_string ("libraries/config.oil"), inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 16)), constinArgument_where COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 15)) ; + GALGAS_lstring var_fileToParse_661 = GALGAS_lstring::constructor_new (var_rootTemplatesDir_343.add_operation (GALGAS_string ("libraries/"), inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 20)).add_operation (constinArgument_value, inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 20)), constinArgument_where COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 19)) ; + cGrammar_goil_5F_file_5F_level_5F_include_5F_without_5F_include::_performSourceFileParsing_ (inCompiler, var_includeToParse_545, var_imp_407, var_app_493 COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 23)) ; + cGrammar_goil_5F_file_5F_level_5F_include_5F_without_5F_include::_performSourceFileParsing_ (inCompiler, var_fileToParse_661, var_imp_407, var_app_493 COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 26)) ; + GALGAS_gtlData var_templateData_957 = callExtensionGetter_templateData ((const cPtr_applicationDefinition *) var_app_493.ptr (), var_imp_407, inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 29)) ; + result_result = var_templateData_957 ; + } + } + if (kBoolFalse == test_0) { + TC_Array fixItArray1 ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 32)).add_operation (GALGAS_string ("' for string target"), inCompiler COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 32)), fixItArray1 COMMA_SOURCE_FILE ("goil_gtl_extension.galgas", 32)) ; + result_result.drop () ; // Release error dropped variable + } +//--- + return result_result ; +} + + +//---------------------------------------------------------------------------------------------------------------------- +// Function introspection +//---------------------------------------------------------------------------------------------------------------------- + +static const C_galgas_type_descriptor * functionArgs_customGtlStringGetter [7] = { + & kTypeDescriptor_GALGAS_lstring, + & kTypeDescriptor_GALGAS_gtlDataList, + & kTypeDescriptor_GALGAS_gtlContext, + & kTypeDescriptor_GALGAS_library, + & kTypeDescriptor_GALGAS_string, + & kTypeDescriptor_GALGAS_location, + nullptr +} ; + +//---------------------------------------------------------------------------------------------------------------------- + +static GALGAS_object functionWithGenericHeader_customGtlStringGetter (C_Compiler * inCompiler, + const cObjectArray & inEffectiveParameterArray, + const GALGAS_location & /* inErrorLocation */ + COMMA_LOCATION_ARGS) { + const GALGAS_lstring operand0 = GALGAS_lstring::extractObject (inEffectiveParameterArray.objectAtIndex (0 COMMA_HERE), + inCompiler + COMMA_THERE) ; + const GALGAS_gtlDataList operand1 = GALGAS_gtlDataList::extractObject (inEffectiveParameterArray.objectAtIndex (1 COMMA_HERE), + inCompiler + COMMA_THERE) ; + const GALGAS_gtlContext operand2 = GALGAS_gtlContext::extractObject (inEffectiveParameterArray.objectAtIndex (2 COMMA_HERE), + inCompiler + COMMA_THERE) ; + const GALGAS_library operand3 = GALGAS_library::extractObject (inEffectiveParameterArray.objectAtIndex (3 COMMA_HERE), + inCompiler + COMMA_THERE) ; + const GALGAS_string operand4 = GALGAS_string::extractObject (inEffectiveParameterArray.objectAtIndex (4 COMMA_HERE), + inCompiler + COMMA_THERE) ; + const GALGAS_location operand5 = GALGAS_location::extractObject (inEffectiveParameterArray.objectAtIndex (5 COMMA_HERE), + inCompiler + COMMA_THERE) ; + return function_customGtlStringGetter (operand0, + operand1, + operand2, + operand3, + operand4, + operand5, + inCompiler + COMMA_THERE).getter_object (THERE) ; +} + +//---------------------------------------------------------------------------------------------------------------------- + +C_galgas_function_descriptor functionDescriptor_customGtlStringGetter ("customGtlStringGetter", + functionWithGenericHeader_customGtlStringGetter, + & kTypeDescriptor_GALGAS_gtlData, + 6, + functionArgs_customGtlStringGetter) ; + //---------------------------------------------------------------------------------------------------------------------- // //Routine 'generate_signed_type' @@ -12119,101 +12157,3 @@ GALGAS_lstring cPtr_goilContext::getter_fullPrefix (const GALGAS_gtlData constin } -//---------------------------------------------------------------------------------------------------------------------- -// -//Function 'emptyGoilContext' -// -//---------------------------------------------------------------------------------------------------------------------- - -GALGAS_goilContext function_emptyGoilContext (C_Compiler * inCompiler - COMMA_UNUSED_LOCATION_ARGS) { - GALGAS_goilContext result_context ; // Returned variable - result_context = GALGAS_goilContext::constructor_new (function_emptylstring (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 710)), GALGAS_string::makeEmptyString (), GALGAS_string::makeEmptyString (), GALGAS_string::makeEmptyString (), GALGAS_string (".gtl"), GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("goil_code_generation.galgas", 715)), GALGAS_gtlDataList::constructor_emptyList (SOURCE_FILE ("goil_code_generation.galgas", 716)), GALGAS_bool (true), function_defaultDebugSettings (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 718)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 709)) ; -//--- - return result_context ; -} - - -//---------------------------------------------------------------------------------------------------------------------- -// Function introspection -//---------------------------------------------------------------------------------------------------------------------- - -static const C_galgas_type_descriptor * functionArgs_emptyGoilContext [1] = { - nullptr -} ; - -//---------------------------------------------------------------------------------------------------------------------- - -static GALGAS_object functionWithGenericHeader_emptyGoilContext (C_Compiler * inCompiler, - const cObjectArray & /* inEffectiveParameterArray */, - const GALGAS_location & /* inErrorLocation */ - COMMA_LOCATION_ARGS) { - return function_emptyGoilContext (inCompiler COMMA_THERE).getter_object (THERE) ; -} - -//---------------------------------------------------------------------------------------------------------------------- - -C_galgas_function_descriptor functionDescriptor_emptyGoilContext ("emptyGoilContext", - functionWithGenericHeader_emptyGoilContext, - & kTypeDescriptor_GALGAS_goilContext, - 0, - functionArgs_emptyGoilContext) ; - -//---------------------------------------------------------------------------------------------------------------------- -// -//Routine 'generate_all' -// -//---------------------------------------------------------------------------------------------------------------------- - -void routine_generate_5F_all (GALGAS_gtlData inArgument_cfg, - C_Compiler * inCompiler - COMMA_UNUSED_LOCATION_ARGS) { - GALGAS_string var_temp_5F_dir_23447 = function_templates_5F_directory (GALGAS_string ("code"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 735)) ; - enumGalgasBool test_0 = kBoolTrue ; - if (kBoolTrue == test_0) { - test_0 = GALGAS_bool (kIsNotEqual, var_temp_5F_dir_23447.objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; - if (kBoolTrue == test_0) { - GALGAS_string var_target_23531 = GALGAS_string (gOption_goil_5F_options_target_5F_platform.readProperty_value ()) ; - enumGalgasBool test_1 = kBoolTrue ; - if (kBoolTrue == test_1) { - test_1 = GALGAS_bool (kIsNotEqual, var_target_23531.objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; - if (kBoolTrue == test_1) { - GALGAS_gtlContext var_context_23634 = function_emptyGoilContext (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 741)) ; - { - var_context_23634.setter_setTemplateDirectory (function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 743)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 742)) ; - } - { - var_context_23634.setter_setUserTemplateDirectory (GALGAS_string::constructor_stringWithSourceFilePath (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 746)).getter_stringByDeletingLastPathComponent (SOURCE_FILE ("goil_code_generation.galgas", 746)).add_operation (GALGAS_string ("/templates"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 746)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 745)) ; - } - { - var_context_23634.setter_setTemplateExtension (GALGAS_string ("goilTemplate") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 749)) ; - } - { - var_context_23634.insulate (HERE) ; - cPtr_gtlContext * ptr_24018 = (cPtr_gtlContext *) var_context_23634.ptr () ; - callExtensionSetter_addModulePath ((cPtr_gtlContext *) ptr_24018, function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 753)), GALGAS_string ("lib"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 752)) ; - } - { - var_context_23634.setter_setPath (GALGAS_string (gOption_goil_5F_options_target_5F_platform.readProperty_value ()) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 756)) ; - } - GALGAS_string var_goilLog_24251 = function_invokeGTL (GALGAS_gtlString::constructor_new (GALGAS_location::constructor_here (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 762)), function_lstring (GALGAS_string ("root template filename"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 763)), GALGAS_string (gOption_goil_5F_options_root.readProperty_value ()) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 761)), var_context_23634, inArgument_cfg, inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 760)) ; - enumGalgasBool test_2 = kBoolTrue ; - if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (gOption_goil_5F_options_generate_5F_log.readProperty_value ()).boolEnum () ; - if (kBoolTrue == test_2) { - var_goilLog_24251.method_writeToFile (GALGAS_string ("goil.log"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 771)) ; - } - } - } - } - if (kBoolFalse == test_1) { - inCompiler->printMessage (GALGAS_string ("No target platform given, compiling aborted\n") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 775)) ; - } - } - } - if (kBoolFalse == test_0) { - inCompiler->printMessage (GALGAS_string ("No template directory defined, compiling aborted\n") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 778)) ; - } -} - - diff --git a/goil/build/output/all-declarations-10.h b/goil/build/output/all-declarations-10.h index c1d6ab80c..9fa1f93af 100644 --- a/goil/build/output/all-declarations-10.h +++ b/goil/build/output/all-declarations-10.h @@ -1033,12 +1033,3 @@ void routine_generate_5F_mask_5F_type (class GALGAS_uint_36__34_ inArgument0, class C_Compiler * inCompiler COMMA_LOCATION_ARGS) ; -//---------------------------------------------------------------------------------------------------------------------- -// -//Function 'emptyGoilContext' -// -//---------------------------------------------------------------------------------------------------------------------- - -class GALGAS_goilContext function_emptyGoilContext (class C_Compiler * inCompiler - COMMA_LOCATION_ARGS) ; - diff --git a/goil/build/output/all-declarations-11.cpp b/goil/build/output/all-declarations-11.cpp index fee2ec0e6..2eeec2099 100644 --- a/goil/build/output/all-declarations-11.cpp +++ b/goil/build/output/all-declarations-11.cpp @@ -7,6 +7,104 @@ #include "all-declarations-11.h" +//---------------------------------------------------------------------------------------------------------------------- +// +//Function 'emptyGoilContext' +// +//---------------------------------------------------------------------------------------------------------------------- + +GALGAS_goilContext function_emptyGoilContext (C_Compiler * inCompiler + COMMA_UNUSED_LOCATION_ARGS) { + GALGAS_goilContext result_context ; // Returned variable + result_context = GALGAS_goilContext::constructor_new (function_emptylstring (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 710)), GALGAS_string::makeEmptyString (), GALGAS_string::makeEmptyString (), GALGAS_string::makeEmptyString (), GALGAS_string (".gtl"), GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("goil_code_generation.galgas", 715)), GALGAS_gtlDataList::constructor_emptyList (SOURCE_FILE ("goil_code_generation.galgas", 716)), GALGAS_bool (true), function_defaultDebugSettings (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 718)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 709)) ; +//--- + return result_context ; +} + + +//---------------------------------------------------------------------------------------------------------------------- +// Function introspection +//---------------------------------------------------------------------------------------------------------------------- + +static const C_galgas_type_descriptor * functionArgs_emptyGoilContext [1] = { + nullptr +} ; + +//---------------------------------------------------------------------------------------------------------------------- + +static GALGAS_object functionWithGenericHeader_emptyGoilContext (C_Compiler * inCompiler, + const cObjectArray & /* inEffectiveParameterArray */, + const GALGAS_location & /* inErrorLocation */ + COMMA_LOCATION_ARGS) { + return function_emptyGoilContext (inCompiler COMMA_THERE).getter_object (THERE) ; +} + +//---------------------------------------------------------------------------------------------------------------------- + +C_galgas_function_descriptor functionDescriptor_emptyGoilContext ("emptyGoilContext", + functionWithGenericHeader_emptyGoilContext, + & kTypeDescriptor_GALGAS_goilContext, + 0, + functionArgs_emptyGoilContext) ; + +//---------------------------------------------------------------------------------------------------------------------- +// +//Routine 'generate_all' +// +//---------------------------------------------------------------------------------------------------------------------- + +void routine_generate_5F_all (GALGAS_gtlData inArgument_cfg, + C_Compiler * inCompiler + COMMA_UNUSED_LOCATION_ARGS) { + GALGAS_string var_temp_5F_dir_23447 = function_templates_5F_directory (GALGAS_string ("code"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 735)) ; + enumGalgasBool test_0 = kBoolTrue ; + if (kBoolTrue == test_0) { + test_0 = GALGAS_bool (kIsNotEqual, var_temp_5F_dir_23447.objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; + if (kBoolTrue == test_0) { + GALGAS_string var_target_23531 = GALGAS_string (gOption_goil_5F_options_target_5F_platform.readProperty_value ()) ; + enumGalgasBool test_1 = kBoolTrue ; + if (kBoolTrue == test_1) { + test_1 = GALGAS_bool (kIsNotEqual, var_target_23531.objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; + if (kBoolTrue == test_1) { + GALGAS_gtlContext var_context_23634 = function_emptyGoilContext (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 741)) ; + { + var_context_23634.setter_setTemplateDirectory (function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 743)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 742)) ; + } + { + var_context_23634.setter_setUserTemplateDirectory (GALGAS_string::constructor_stringWithSourceFilePath (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 746)).getter_stringByDeletingLastPathComponent (SOURCE_FILE ("goil_code_generation.galgas", 746)).add_operation (GALGAS_string ("/templates"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 746)) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 745)) ; + } + { + var_context_23634.setter_setTemplateExtension (GALGAS_string ("goilTemplate") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 749)) ; + } + { + var_context_23634.insulate (HERE) ; + cPtr_gtlContext * ptr_24018 = (cPtr_gtlContext *) var_context_23634.ptr () ; + callExtensionSetter_addModulePath ((cPtr_gtlContext *) ptr_24018, function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 753)), GALGAS_string ("lib"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 752)) ; + } + { + var_context_23634.setter_setPath (GALGAS_string (gOption_goil_5F_options_target_5F_platform.readProperty_value ()) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 756)) ; + } + GALGAS_string var_goilLog_24251 = function_invokeGTL (GALGAS_gtlString::constructor_new (GALGAS_location::constructor_here (inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 762)), function_lstring (GALGAS_string ("root template filename"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 763)), GALGAS_string (gOption_goil_5F_options_root.readProperty_value ()) COMMA_SOURCE_FILE ("goil_code_generation.galgas", 761)), var_context_23634, inArgument_cfg, inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 760)) ; + enumGalgasBool test_2 = kBoolTrue ; + if (kBoolTrue == test_2) { + test_2 = GALGAS_bool (gOption_goil_5F_options_generate_5F_log.readProperty_value ()).boolEnum () ; + if (kBoolTrue == test_2) { + var_goilLog_24251.method_writeToFile (GALGAS_string ("goil.log"), inCompiler COMMA_SOURCE_FILE ("goil_code_generation.galgas", 771)) ; + } + } + } + } + if (kBoolFalse == test_1) { + inCompiler->printMessage (GALGAS_string ("No target platform given, compiling aborted\n") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 775)) ; + } + } + } + if (kBoolFalse == test_0) { + inCompiler->printMessage (GALGAS_string ("No template directory defined, compiling aborted\n") COMMA_SOURCE_FILE ("goil_code_generation.galgas", 778)) ; + } +} + + //---------------------------------------------------------------------------------------------------------------------- // //Routine 'getAutosarVersion' @@ -2601,7 +2699,7 @@ static const char * kSourceFileHelpMessages [] = { //---------------------------------------------------------------------------------------------------------------------- const char * projectVersionString (void) { - return "3.1.15" ; + return "3.1.16" ; } //---------------------------------------------------------------------------------------------------------------------- diff --git a/goil/build/output/all-declarations-11.h b/goil/build/output/all-declarations-11.h index 14edbf670..c33911a78 100644 --- a/goil/build/output/all-declarations-11.h +++ b/goil/build/output/all-declarations-11.h @@ -8,6 +8,15 @@ #include "all-declarations-10.h" +//---------------------------------------------------------------------------------------------------------------------- +// +//Function 'emptyGoilContext' +// +//---------------------------------------------------------------------------------------------------------------------- + +class GALGAS_goilContext function_emptyGoilContext (class C_Compiler * inCompiler + COMMA_LOCATION_ARGS) ; + //---------------------------------------------------------------------------------------------------------------------- // //Routine 'nodeToClassRes' diff --git a/goil/build/output/all-declarations-8.cpp b/goil/build/output/all-declarations-8.cpp index 5dcf3a3c5..7bca18fcc 100644 --- a/goil/build/output/all-declarations-8.cpp +++ b/goil/build/output/all-declarations-8.cpp @@ -9935,32 +9935,32 @@ void routine_argumentsCheck (const GALGAS_lstring constinArgument_methodName, GALGAS_gtlDataList inArgument_concreteArgumentList, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) { - GALGAS_uint var_concreteLength_5050 = inArgument_concreteArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 169)) ; - GALGAS_uint var_abstractLength_5109 = inArgument_abstractArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 170)) ; + GALGAS_uint var_concreteLength_5034 = inArgument_concreteArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 169)) ; + GALGAS_uint var_abstractLength_5093 = inArgument_abstractArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 170)) ; enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { test_0 = GALGAS_bool (kIsNotEqual, inArgument_abstractArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 171)).objectCompare (inArgument_concreteArgumentList.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 171)))).boolEnum () ; if (kBoolTrue == test_0) { TC_Array fixItArray1 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), constinArgument_methodName.readProperty_string ().add_operation (GALGAS_string (" expects "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (var_abstractLength_5109.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 172)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (GALGAS_string (" arguments. "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (var_concreteLength_5050.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 173)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 173)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 173)), fixItArray1 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), constinArgument_methodName.readProperty_string ().add_operation (GALGAS_string (" expects "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (var_abstractLength_5093.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 172)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (GALGAS_string (" arguments. "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)).add_operation (var_concreteLength_5034.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 173)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 173)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 173)), fixItArray1 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 172)) ; } } if (kBoolFalse == test_0) { - cEnumerator_gtlDataList enumerator_5400 (inArgument_concreteArgumentList, kENUMERATION_UP) ; - cEnumerator_gtlTypedArgumentList enumerator_5428 (inArgument_abstractArgumentList, kENUMERATION_UP) ; - GALGAS_uint index_5396 ((uint32_t) 0) ; - while (enumerator_5400.hasCurrentObject () && enumerator_5428.hasCurrentObject ()) { + cEnumerator_gtlDataList enumerator_5384 (inArgument_concreteArgumentList, kENUMERATION_UP) ; + cEnumerator_gtlTypedArgumentList enumerator_5412 (inArgument_abstractArgumentList, kENUMERATION_UP) ; + GALGAS_uint index_5380 ((uint32_t) 0) ; + while (enumerator_5384.hasCurrentObject () && enumerator_5412.hasCurrentObject ()) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, enumerator_5400.current_data (HERE).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 176)).objectCompare (enumerator_5428.current_type (HERE))).operator_and (GALGAS_bool (kIsNotEqual, enumerator_5428.current_type (HERE).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlData))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 176)).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, enumerator_5384.current_data (HERE).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 176)).objectCompare (enumerator_5412.current_type (HERE))).operator_and (GALGAS_bool (kIsNotEqual, enumerator_5412.current_type (HERE).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlData))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 176)).boolEnum () ; if (kBoolTrue == test_2) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) enumerator_5400.current_data (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)), extensionGetter_typeName (enumerator_5428.current_type (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)).add_operation (GALGAS_string (" expected for argument "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)).add_operation (index_5396.add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 179)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 178)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 178)), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) enumerator_5384.current_data (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)), extensionGetter_typeName (enumerator_5412.current_type (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)).add_operation (GALGAS_string (" expected for argument "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)).add_operation (index_5380.add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 179)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 178)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 178)), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 177)) ; } } - enumerator_5400.gotoNextObject () ; - enumerator_5428.gotoNextObject () ; - index_5396.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 175)) ; + enumerator_5384.gotoNextObject () ; + enumerator_5412.gotoNextObject () ; + index_5380.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 175)) ; } } } @@ -10662,9 +10662,9 @@ static void extensionSetter_gtlUnconstructed_performSetter (cPtr_gtlData * inObj inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 523)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 523)) ; } } - GALGAS_gtlString var_descriptionToSet_16278 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_16262 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_16278.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 524)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 524)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_16262.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 524)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 524)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -10686,10 +10686,10 @@ static void extensionSetter_gtlUnconstructed_performSetter (cPtr_gtlData * inObj test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("unconstructed"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 529)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlUnconstructed temp_4 = object ; - GALGAS_gtlData var_copy_16595 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("unconstructed"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 531)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_16595, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 531)) ; - object->mProperty_where = var_copy_16595.readProperty_where () ; - object->mProperty_meta = var_copy_16595.readProperty_meta () ; + GALGAS_gtlData var_copy_16579 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("unconstructed"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 531)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_16579, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 531)) ; + object->mProperty_where = var_copy_16579.readProperty_where () ; + object->mProperty_meta = var_copy_16579.readProperty_meta () ; } } if (kBoolFalse == test_3) { @@ -11329,9 +11329,9 @@ static void extensionSetter_gtlType_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 712)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 712)) ; } } - GALGAS_gtlString var_descriptionToSet_22631 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_22615 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_22631.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 713)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 713)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_22615.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 713)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 713)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -11353,19 +11353,19 @@ static void extensionSetter_gtlType_performSetter (cPtr_gtlData * inObject, test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("type"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 718)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlType temp_4 = object ; - GALGAS_gtlData var_copy_22939 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("type"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 720)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_22939, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 720)) ; + GALGAS_gtlData var_copy_22923 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("type"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 720)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_22923, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 720)) ; GALGAS_gtlType temp_5 ; - if (var_copy_22939.isValid ()) { - if (nullptr != dynamic_cast (var_copy_22939.ptr ())) { - temp_5 = (cPtr_gtlType *) var_copy_22939.ptr () ; + if (var_copy_22923.isValid ()) { + if (nullptr != dynamic_cast (var_copy_22923.ptr ())) { + temp_5 = (cPtr_gtlType *) var_copy_22923.ptr () ; }else{ - inCompiler->castError ("gtlType", var_copy_22939.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 727)) ; + inCompiler->castError ("gtlType", var_copy_22923.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 727)) ; } } object->mProperty_type = temp_5.readProperty_type () ; - object->mProperty_where = var_copy_22939.readProperty_where () ; - object->mProperty_meta = var_copy_22939.readProperty_meta () ; + object->mProperty_where = var_copy_22923.readProperty_where () ; + object->mProperty_meta = var_copy_22923.readProperty_meta () ; } } if (kBoolFalse == test_3) { diff --git a/goil/build/output/all-declarations-9.cpp b/goil/build/output/all-declarations-9.cpp index 866cbe2f3..abc399068 100644 --- a/goil/build/output/all-declarations-9.cpp +++ b/goil/build/output/all-declarations-9.cpp @@ -629,9 +629,9 @@ static void extensionSetter_gtlEnum_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 909)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 909)) ; } } - GALGAS_gtlString var_descriptionToSet_29114 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_29098 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_29114.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 910)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 910)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_29098.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 910)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 910)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -653,19 +653,19 @@ static void extensionSetter_gtlEnum_performSetter (cPtr_gtlData * inObject, test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("enum"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 915)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlEnum temp_4 = object ; - GALGAS_gtlData var_copy_29422 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("enum"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 917)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_29422, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 917)) ; + GALGAS_gtlData var_copy_29406 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("enum"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 917)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_29406, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 917)) ; GALGAS_gtlEnum temp_5 ; - if (var_copy_29422.isValid ()) { - if (nullptr != dynamic_cast (var_copy_29422.ptr ())) { - temp_5 = (cPtr_gtlEnum *) var_copy_29422.ptr () ; + if (var_copy_29406.isValid ()) { + if (nullptr != dynamic_cast (var_copy_29406.ptr ())) { + temp_5 = (cPtr_gtlEnum *) var_copy_29406.ptr () ; }else{ - inCompiler->castError ("gtlEnum", var_copy_29422.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 924)) ; + inCompiler->castError ("gtlEnum", var_copy_29406.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 924)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_29422.readProperty_where () ; - object->mProperty_meta = var_copy_29422.readProperty_meta () ; + object->mProperty_where = var_copy_29406.readProperty_where () ; + object->mProperty_meta = var_copy_29406.readProperty_meta () ; } } if (kBoolFalse == test_3) { @@ -1455,9 +1455,9 @@ static void extensionSetter_gtlChar_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1191)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1191)) ; } } - GALGAS_gtlString var_descriptionToSet_37580 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_37564 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_37580.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1192)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1192)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_37564.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1192)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1192)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -1479,19 +1479,19 @@ static void extensionSetter_gtlChar_performSetter (cPtr_gtlData * inObject, test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("char"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1197)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlChar temp_4 = object ; - GALGAS_gtlData var_copy_37888 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("char"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1199)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_37888, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1199)) ; + GALGAS_gtlData var_copy_37872 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("char"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1199)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_37872, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1199)) ; GALGAS_gtlChar temp_5 ; - if (var_copy_37888.isValid ()) { - if (nullptr != dynamic_cast (var_copy_37888.ptr ())) { - temp_5 = (cPtr_gtlChar *) var_copy_37888.ptr () ; + if (var_copy_37872.isValid ()) { + if (nullptr != dynamic_cast (var_copy_37872.ptr ())) { + temp_5 = (cPtr_gtlChar *) var_copy_37872.ptr () ; }else{ - inCompiler->castError ("gtlChar", var_copy_37888.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1206)) ; + inCompiler->castError ("gtlChar", var_copy_37872.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1206)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_37888.readProperty_where () ; - object->mProperty_meta = var_copy_37888.readProperty_meta () ; + object->mProperty_where = var_copy_37872.readProperty_where () ; + object->mProperty_meta = var_copy_37872.readProperty_meta () ; } } if (kBoolFalse == test_3) { @@ -1953,10 +1953,10 @@ GALGAS_gtlData cPtr_gtlInt::getter_slOp (const GALGAS_gtlData constinArgument_ri inCompiler->castError ("gtlInt", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1353)) ; } } - GALGAS_bigint var_r_41727 = temp_1.readProperty_value () ; + GALGAS_bigint var_r_41711 = temp_1.readProperty_value () ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsSupOrEqual, var_r_41727.objectCompare (GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1354)))).boolEnum () ; + test_2 = GALGAS_bool (kIsSupOrEqual, var_r_41711.objectCompare (GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1354)))).boolEnum () ; if (kBoolTrue == test_2) { GALGAS_gtlInt temp_3 ; if (constinArgument_right.isValid ()) { @@ -2008,12 +2008,12 @@ GALGAS_gtlData cPtr_gtlInt::getter_srOp (const GALGAS_gtlData constinArgument_ri inCompiler->castError ("gtlInt", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1370)) ; } } - GALGAS_bigint var_r_42163 = temp_1.readProperty_value () ; + GALGAS_bigint var_r_42147 = temp_1.readProperty_value () ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsSupOrEqual, var_r_42163.objectCompare (GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1371)))).boolEnum () ; + test_2 = GALGAS_bool (kIsSupOrEqual, var_r_42147.objectCompare (GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1371)))).boolEnum () ; if (kBoolTrue == test_2) { - result_result = GALGAS_gtlInt::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)), this->mProperty_value.right_shift_operation (var_r_42163.getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)) ; + result_result = GALGAS_gtlInt::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)), this->mProperty_value.right_shift_operation (var_r_42147.getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1372)) ; } } if (kBoolFalse == test_2) { @@ -2309,9 +2309,9 @@ GALGAS_gtlData cPtr_gtlInt::getter_performGetter (const GALGAS_lstring constinAr inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1480)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1480)) ; } } - GALGAS_uint var_fieldSize_44977 = temp_3.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1480)) ; + GALGAS_uint var_fieldSize_44961 = temp_3.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1480)) ; const GALGAS_gtlInt temp_4 = this ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1483)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_4.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1484)).getter_stringByLeftAndRightPadding (var_fieldSize_44977, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1484)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1481)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1483)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_4.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1484)).getter_stringByLeftAndRightPadding (var_fieldSize_44961, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1484)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1481)) ; } } if (kBoolFalse == test_2) { @@ -2330,9 +2330,9 @@ GALGAS_gtlData cPtr_gtlInt::getter_performGetter (const GALGAS_lstring constinAr inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1488)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1488)) ; } } - GALGAS_uint var_fieldSize_45320 = temp_6.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1488)) ; + GALGAS_uint var_fieldSize_45304 = temp_6.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1488)) ; const GALGAS_gtlInt temp_7 = this ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1491)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_7.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1492)).getter_stringByLeftPadding (var_fieldSize_45320, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1492)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1489)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1491)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_7.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1492)).getter_stringByLeftPadding (var_fieldSize_45304, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1492)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1489)) ; } } if (kBoolFalse == test_5) { @@ -2351,9 +2351,9 @@ GALGAS_gtlData cPtr_gtlInt::getter_performGetter (const GALGAS_lstring constinAr inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1496)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1496)) ; } } - GALGAS_uint var_fieldSize_45657 = temp_9.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1496)) ; + GALGAS_uint var_fieldSize_45641 = temp_9.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1496)) ; const GALGAS_gtlInt temp_10 = this ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1499)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_10.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1500)).getter_stringByRightPadding (var_fieldSize_45657, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1500)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1497)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1499)), callExtensionGetter_string ((const cPtr_gtlInt *) temp_10.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1500)).getter_stringByRightPadding (var_fieldSize_45641, GALGAS_char (TO_UNICODE (32)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1500)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1497)) ; } } if (kBoolFalse == test_8) { @@ -2548,8 +2548,8 @@ GALGAS_gtlData cPtr_gtlInt::getter_performGetter (const GALGAS_lstring constinAr inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1612)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1612)) ; } } - GALGAS_uint var_index_49861 = temp_28.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1612)) ; - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1615)), this->mProperty_value.getter_bitAtIndex (var_index_49861 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1616)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1613)) ; + GALGAS_uint var_index_49845 = temp_28.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1612)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1615)), this->mProperty_value.getter_bitAtIndex (var_index_49845 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1616)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1613)) ; } } if (kBoolFalse == test_27) { @@ -2671,7 +2671,7 @@ static void extensionSetter_gtlInt_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlBool", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1662)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1662)) ; } } - GALGAS_bool var_bit_51573 = temp_1.readProperty_value () ; + GALGAS_bool var_bit_51557 = temp_1.readProperty_value () ; GALGAS_gtlInt temp_2 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)).ptr ())) { @@ -2680,9 +2680,9 @@ static void extensionSetter_gtlInt_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)) ; } } - GALGAS_uint var_index_51640 = temp_2.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)) ; + GALGAS_uint var_index_51624 = temp_2.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1663)) ; { - object->mProperty_value.setter_setBitAtIndex (var_bit_51573, var_index_51640 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1664)) ; + object->mProperty_value.setter_setBitAtIndex (var_bit_51557, var_index_51624 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1664)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -2703,9 +2703,9 @@ static void extensionSetter_gtlInt_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1668)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1668)) ; } } - GALGAS_uint var_index_51895 = temp_4.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1668)) ; + GALGAS_uint var_index_51879 = temp_4.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1668)) ; { - object->mProperty_value.setter_complementBitAtIndex (var_index_51895 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1669)) ; + object->mProperty_value.setter_complementBitAtIndex (var_index_51879 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1669)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -2726,9 +2726,9 @@ static void extensionSetter_gtlInt_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1673)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1673)) ; } } - GALGAS_gtlString var_descriptionToSet_52145 = temp_6 ; + GALGAS_gtlString var_descriptionToSet_52129 = temp_6 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_52145.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1674)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1674)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_52129.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1674)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1674)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -2750,19 +2750,19 @@ static void extensionSetter_gtlInt_performSetter (cPtr_gtlData * inObject, test_8 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("int"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1679)).boolEnum () ; if (kBoolTrue == test_8) { const GALGAS_gtlInt temp_9 = object ; - GALGAS_gtlData var_copy_52452 = temp_9 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("int"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1681)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_52452, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1681)) ; + GALGAS_gtlData var_copy_52436 = temp_9 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("int"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1681)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_52436, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1681)) ; GALGAS_gtlInt temp_10 ; - if (var_copy_52452.isValid ()) { - if (nullptr != dynamic_cast (var_copy_52452.ptr ())) { - temp_10 = (cPtr_gtlInt *) var_copy_52452.ptr () ; + if (var_copy_52436.isValid ()) { + if (nullptr != dynamic_cast (var_copy_52436.ptr ())) { + temp_10 = (cPtr_gtlInt *) var_copy_52436.ptr () ; }else{ - inCompiler->castError ("gtlInt", var_copy_52452.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1688)) ; + inCompiler->castError ("gtlInt", var_copy_52436.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1688)) ; } } object->mProperty_value = temp_10.readProperty_value () ; - object->mProperty_where = var_copy_52452.readProperty_where () ; - object->mProperty_meta = var_copy_52452.readProperty_meta () ; + object->mProperty_where = var_copy_52436.readProperty_where () ; + object->mProperty_meta = var_copy_52436.readProperty_meta () ; } } if (kBoolFalse == test_8) { @@ -3571,8 +3571,8 @@ GALGAS_gtlData cPtr_gtlFloat::getter_performGetter (const GALGAS_lstring constin inCompiler->castError ("gtlFloat", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1963)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1963)) ; } } - GALGAS_double var_power_60701 = temp_14.readProperty_value () ; - result_result = GALGAS_gtlFloat::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1965)), this->mProperty_value.getter_power (var_power_60701, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1965)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1964)) ; + GALGAS_double var_power_60685 = temp_14.readProperty_value () ; + result_result = GALGAS_gtlFloat::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1965)), this->mProperty_value.getter_power (var_power_60685, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1965)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 1964)) ; } } if (kBoolFalse == test_13) { @@ -3698,9 +3698,9 @@ static void extensionSetter_gtlFloat_performSetter (cPtr_gtlData * inObject, inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2016)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2016)) ; } } - GALGAS_gtlString var_descriptionToSet_62587 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_62571 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_62587.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2017)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2017)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_62571.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2017)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2017)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -3722,19 +3722,19 @@ static void extensionSetter_gtlFloat_performSetter (cPtr_gtlData * inObject, test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("float"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2022)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlFloat temp_4 = object ; - GALGAS_gtlData var_copy_62896 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("float"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2024)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_62896, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2024)) ; + GALGAS_gtlData var_copy_62880 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("float"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2024)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_62880, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2024)) ; GALGAS_gtlFloat temp_5 ; - if (var_copy_62896.isValid ()) { - if (nullptr != dynamic_cast (var_copy_62896.ptr ())) { - temp_5 = (cPtr_gtlFloat *) var_copy_62896.ptr () ; + if (var_copy_62880.isValid ()) { + if (nullptr != dynamic_cast (var_copy_62880.ptr ())) { + temp_5 = (cPtr_gtlFloat *) var_copy_62880.ptr () ; }else{ - inCompiler->castError ("gtlFloat", var_copy_62896.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2031)) ; + inCompiler->castError ("gtlFloat", var_copy_62880.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2031)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_62896.readProperty_where () ; - object->mProperty_meta = var_copy_62896.readProperty_meta () ; + object->mProperty_where = var_copy_62880.readProperty_where () ; + object->mProperty_meta = var_copy_62880.readProperty_meta () ; } } if (kBoolFalse == test_3) { @@ -4371,8 +4371,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2227)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2227)) ; } } - GALGAS_uint var_index_68505 = temp_2.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2227)) ; - result_result = GALGAS_gtlChar::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2229)), this->mProperty_value.getter_characterAtIndex (var_index_68505, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2229)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2228)) ; + GALGAS_uint var_index_68489 = temp_2.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2227)) ; + result_result = GALGAS_gtlChar::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2229)), this->mProperty_value.getter_characterAtIndex (var_index_68489, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2229)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2228)) ; } } if (kBoolFalse == test_1) { @@ -4391,45 +4391,45 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2233)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2233)) ; } } - GALGAS_char var_lookedUpChar_68801 = temp_4.readProperty_value () ; - GALGAS_uint var_index_68873 = GALGAS_uint (uint32_t (0U)) ; - GALGAS_uint var_length_68897 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2235)) ; - GALGAS_bool var_found_68931 = GALGAS_bool (false) ; - if (var_length_68897.isValid ()) { - uint32_t variant_68949 = var_length_68897.uintValue () ; - bool loop_68949 = true ; - while (loop_68949) { - GALGAS_bool test_5 = var_found_68931.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2238)) ; + GALGAS_char var_lookedUpChar_68785 = temp_4.readProperty_value () ; + GALGAS_uint var_index_68857 = GALGAS_uint (uint32_t (0U)) ; + GALGAS_uint var_length_68881 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2235)) ; + GALGAS_bool var_found_68915 = GALGAS_bool (false) ; + if (var_length_68881.isValid ()) { + uint32_t variant_68933 = var_length_68881.uintValue () ; + bool loop_68933 = true ; + while (loop_68933) { + GALGAS_bool test_5 = var_found_68915.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2238)) ; if (kBoolTrue == test_5.boolEnum ()) { - test_5 = GALGAS_bool (kIsStrictInf, var_index_68873.objectCompare (var_length_68897)) ; + test_5 = GALGAS_bool (kIsStrictInf, var_index_68857.objectCompare (var_length_68881)) ; } - loop_68949 = test_5.isValid () ; - if (loop_68949) { - loop_68949 = test_5.boolValue () ; + loop_68933 = test_5.isValid () ; + if (loop_68933) { + loop_68933 = test_5.boolValue () ; } - if (loop_68949 && (0 == variant_68949)) { - loop_68949 = false ; + if (loop_68933 && (0 == variant_68933)) { + loop_68933 = false ; inCompiler->loopRunTimeVariantError (SOURCE_FILE ("gtl_data_types.galgas", 2237)) ; } - if (loop_68949) { - variant_68949 -- ; + if (loop_68933) { + variant_68933 -- ; enumGalgasBool test_6 = kBoolTrue ; if (kBoolTrue == test_6) { - test_6 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_characterAtIndex (var_index_68873, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2239)).objectCompare (var_lookedUpChar_68801)).boolEnum () ; + test_6 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_characterAtIndex (var_index_68857, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2239)).objectCompare (var_lookedUpChar_68785)).boolEnum () ; if (kBoolTrue == test_6) { - var_found_68931 = GALGAS_bool (true) ; + var_found_68915 = GALGAS_bool (true) ; } } if (kBoolFalse == test_6) { - var_index_68873.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2242)) ; + var_index_68857.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2242)) ; } } } } GALGAS_bigint temp_7 ; - const enumGalgasBool test_8 = var_found_68931.boolEnum () ; + const enumGalgasBool test_8 = var_found_68915.boolEnum () ; if (kBoolTrue == test_8) { - temp_7 = var_index_68873.getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 2248)) ; + temp_7 = var_index_68857.getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 2248)) ; }else if (kBoolFalse == test_8) { temp_7 = GALGAS_bigint ("-1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2248)) ; } @@ -4452,7 +4452,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2252)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2252)) ; } } - GALGAS_char var_minChar_69401 = temp_10.readProperty_value () ; + GALGAS_char var_minChar_69385 = temp_10.readProperty_value () ; GALGAS_gtlChar temp_11 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2253)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2253)).ptr ())) { @@ -4461,50 +4461,50 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2253)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2253)) ; } } - GALGAS_char var_maxChar_69472 = temp_11.readProperty_value () ; - GALGAS_uint var_index_69539 = GALGAS_uint (uint32_t (0U)) ; - GALGAS_uint var_length_69563 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2255)) ; - GALGAS_bool var_found_69597 = GALGAS_bool (false) ; - if (var_length_69563.isValid ()) { - uint32_t variant_69615 = var_length_69563.uintValue () ; - bool loop_69615 = true ; - while (loop_69615) { - GALGAS_bool test_12 = var_found_69597.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2258)) ; + GALGAS_char var_maxChar_69456 = temp_11.readProperty_value () ; + GALGAS_uint var_index_69523 = GALGAS_uint (uint32_t (0U)) ; + GALGAS_uint var_length_69547 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2255)) ; + GALGAS_bool var_found_69581 = GALGAS_bool (false) ; + if (var_length_69547.isValid ()) { + uint32_t variant_69599 = var_length_69547.uintValue () ; + bool loop_69599 = true ; + while (loop_69599) { + GALGAS_bool test_12 = var_found_69581.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2258)) ; if (kBoolTrue == test_12.boolEnum ()) { - test_12 = GALGAS_bool (kIsStrictInf, var_index_69539.objectCompare (var_length_69563)) ; + test_12 = GALGAS_bool (kIsStrictInf, var_index_69523.objectCompare (var_length_69547)) ; } - loop_69615 = test_12.isValid () ; - if (loop_69615) { - loop_69615 = test_12.boolValue () ; + loop_69599 = test_12.isValid () ; + if (loop_69599) { + loop_69599 = test_12.boolValue () ; } - if (loop_69615 && (0 == variant_69615)) { - loop_69615 = false ; + if (loop_69599 && (0 == variant_69599)) { + loop_69599 = false ; inCompiler->loopRunTimeVariantError (SOURCE_FILE ("gtl_data_types.galgas", 2257)) ; } - if (loop_69615) { - variant_69615 -- ; - GALGAS_char var_currentChar_69686 = this->mProperty_value.getter_characterAtIndex (var_index_69539, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2259)) ; + if (loop_69599) { + variant_69599 -- ; + GALGAS_char var_currentChar_69670 = this->mProperty_value.getter_characterAtIndex (var_index_69523, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2259)) ; enumGalgasBool test_13 = kBoolTrue ; if (kBoolTrue == test_13) { - GALGAS_bool test_14 = GALGAS_bool (kIsSupOrEqual, var_currentChar_69686.objectCompare (var_minChar_69401)) ; + GALGAS_bool test_14 = GALGAS_bool (kIsSupOrEqual, var_currentChar_69670.objectCompare (var_minChar_69385)) ; if (kBoolTrue == test_14.boolEnum ()) { - test_14 = GALGAS_bool (kIsInfOrEqual, var_currentChar_69686.objectCompare (var_maxChar_69472)) ; + test_14 = GALGAS_bool (kIsInfOrEqual, var_currentChar_69670.objectCompare (var_maxChar_69456)) ; } test_13 = test_14.boolEnum () ; if (kBoolTrue == test_13) { - var_found_69597 = GALGAS_bool (true) ; + var_found_69581 = GALGAS_bool (true) ; } } if (kBoolFalse == test_13) { - var_index_69539.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2263)) ; + var_index_69523.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2263)) ; } } } } GALGAS_bigint temp_15 ; - const enumGalgasBool test_16 = var_found_69597.boolEnum () ; + const enumGalgasBool test_16 = var_found_69581.boolEnum () ; if (kBoolTrue == test_16) { - temp_15 = var_index_69539.getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 2269)) ; + temp_15 = var_index_69523.getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 2269)) ; }else if (kBoolFalse == test_16) { temp_15 = GALGAS_bigint ("-1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2269)) ; } @@ -4527,8 +4527,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2273)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2273)) ; } } - GALGAS_char var_lookedUpChar_70117 = temp_18.readProperty_value () ; - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2276)), this->mProperty_value.getter_containsCharacter (var_lookedUpChar_70117 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2277)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2274)) ; + GALGAS_char var_lookedUpChar_70101 = temp_18.readProperty_value () ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2276)), this->mProperty_value.getter_containsCharacter (var_lookedUpChar_70101 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2277)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2274)) ; } } if (kBoolFalse == test_17) { @@ -4547,7 +4547,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2281)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2281)) ; } } - GALGAS_char var_minChar_70449 = temp_20.readProperty_value () ; + GALGAS_char var_minChar_70433 = temp_20.readProperty_value () ; GALGAS_gtlChar temp_21 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2282)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2282)).ptr ())) { @@ -4556,8 +4556,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2282)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2282)) ; } } - GALGAS_char var_maxChar_70520 = temp_21.readProperty_value () ; - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2285)), this->mProperty_value.getter_containsCharacterInRange (var_minChar_70449, var_maxChar_70520 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2286)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2283)) ; + GALGAS_char var_maxChar_70504 = temp_21.readProperty_value () ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2285)), this->mProperty_value.getter_containsCharacterInRange (var_minChar_70433, var_maxChar_70504 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2286)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2283)) ; } } if (kBoolFalse == test_19) { @@ -4668,41 +4668,41 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2331)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2331)) ; } } - GALGAS_string var_subString_72671 = temp_32.readProperty_value () ; - GALGAS_uint var_subStringLength_72746 = var_subString_72671.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2332)) ; - GALGAS_uint var_start_72793 = GALGAS_uint (uint32_t (0U)) ; - GALGAS_uint var_stop_72817 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2334)).substract_operation (var_subStringLength_72746, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2334)) ; - GALGAS_bool var_exists_72867 = GALGAS_bool (false) ; + GALGAS_string var_subString_72655 = temp_32.readProperty_value () ; + GALGAS_uint var_subStringLength_72730 = var_subString_72655.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2332)) ; + GALGAS_uint var_start_72777 = GALGAS_uint (uint32_t (0U)) ; + GALGAS_uint var_stop_72801 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2334)).substract_operation (var_subStringLength_72730, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2334)) ; + GALGAS_bool var_exists_72851 = GALGAS_bool (false) ; if (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2336)).isValid ()) { - uint32_t variant_72887 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2336)).uintValue () ; - bool loop_72887 = true ; - while (loop_72887) { - GALGAS_bool test_33 = var_exists_72867.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2337)) ; + uint32_t variant_72871 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2336)).uintValue () ; + bool loop_72871 = true ; + while (loop_72871) { + GALGAS_bool test_33 = var_exists_72851.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2337)) ; if (kBoolTrue == test_33.boolEnum ()) { - test_33 = GALGAS_bool (kIsInfOrEqual, var_start_72793.objectCompare (var_stop_72817)) ; + test_33 = GALGAS_bool (kIsInfOrEqual, var_start_72777.objectCompare (var_stop_72801)) ; } - loop_72887 = test_33.isValid () ; - if (loop_72887) { - loop_72887 = test_33.boolValue () ; + loop_72871 = test_33.isValid () ; + if (loop_72871) { + loop_72871 = test_33.boolValue () ; } - if (loop_72887 && (0 == variant_72887)) { - loop_72887 = false ; + if (loop_72871 && (0 == variant_72871)) { + loop_72871 = false ; inCompiler->loopRunTimeVariantError (SOURCE_FILE ("gtl_data_types.galgas", 2336)) ; } - if (loop_72887) { - variant_72887 -- ; + if (loop_72871) { + variant_72871 -- ; enumGalgasBool test_34 = kBoolTrue ; if (kBoolTrue == test_34) { - test_34 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_subString (var_start_72793, var_subStringLength_72746 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2338)).objectCompare (var_subString_72671)).boolEnum () ; + test_34 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_subString (var_start_72777, var_subStringLength_72730 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2338)).objectCompare (var_subString_72655)).boolEnum () ; if (kBoolTrue == test_34) { - var_exists_72867 = GALGAS_bool (true) ; + var_exists_72851 = GALGAS_bool (true) ; } } - var_start_72793.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2341)) ; + var_start_72777.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2341)) ; } } } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2344)), var_exists_72867 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2343)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2344)), var_exists_72851 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2343)) ; } } if (kBoolFalse == test_31) { @@ -4721,8 +4721,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2348)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2348)) ; } } - GALGAS_uint var_index_73298 = temp_36.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2348)) ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2350)), this->mProperty_value.getter_leftSubString (var_index_73298 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2350)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2349)) ; + GALGAS_uint var_index_73282 = temp_36.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2348)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2350)), this->mProperty_value.getter_leftSubString (var_index_73282 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2350)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2349)) ; } } if (kBoolFalse == test_35) { @@ -4741,8 +4741,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2354)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2354)) ; } } - GALGAS_uint var_index_73595 = temp_38.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2354)) ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2356)), this->mProperty_value.getter_rightSubString (var_index_73595 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2356)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2355)) ; + GALGAS_uint var_index_73579 = temp_38.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2354)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2356)), this->mProperty_value.getter_rightSubString (var_index_73579 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2356)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2355)) ; } } if (kBoolFalse == test_37) { @@ -4761,7 +4761,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2360)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2360)) ; } } - GALGAS_uint var_start_73892 = temp_40.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2360)) ; + GALGAS_uint var_start_73876 = temp_40.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2360)) ; GALGAS_gtlInt temp_41 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)).ptr ())) { @@ -4770,8 +4770,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)) ; } } - GALGAS_uint var_length_73967 = temp_41.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)) ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2363)), this->mProperty_value.getter_subString (var_start_73892, var_length_73967 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2363)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2362)) ; + GALGAS_uint var_length_73951 = temp_41.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2361)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2363)), this->mProperty_value.getter_subString (var_start_73876, var_length_73951 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2363)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2362)) ; } } if (kBoolFalse == test_39) { @@ -4801,15 +4801,15 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2372)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2372)) ; } } - GALGAS_string var_separator_74502 = temp_44.readProperty_value () ; - GALGAS_stringlist var_stringlist_74583 = this->mProperty_value.getter_componentsSeparatedByString (var_separator_74502 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2373)) ; - GALGAS_list var_components_74653 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2374)) ; - cEnumerator_stringlist enumerator_74686 (var_stringlist_74583, kENUMERATION_UP) ; - while (enumerator_74686.hasCurrentObject ()) { - var_components_74653.addAssign_operation (GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2377)), enumerator_74686.current_mValue (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2376)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2376)) ; - enumerator_74686.gotoNextObject () ; + GALGAS_string var_separator_74486 = temp_44.readProperty_value () ; + GALGAS_stringlist var_stringlist_74567 = this->mProperty_value.getter_componentsSeparatedByString (var_separator_74486 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2373)) ; + GALGAS_list var_components_74637 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2374)) ; + cEnumerator_stringlist enumerator_74670 (var_stringlist_74567, kENUMERATION_UP) ; + while (enumerator_74670.hasCurrentObject ()) { + var_components_74637.addAssign_operation (GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2377)), enumerator_74670.current_mValue (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2376)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2376)) ; + enumerator_74670.gotoNextObject () ; } - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2381)), var_components_74653 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2380)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2381)), var_components_74637 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2380)) ; } } if (kBoolFalse == test_43) { @@ -4839,8 +4839,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2388)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2388)) ; } } - GALGAS_string var_prefix_75154 = temp_49.readProperty_value () ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2391)), var_prefix_75154.add_operation (this->mProperty_value, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)).getter_stringByReplacingStringByString (GALGAS_string ("\n"), GALGAS_string ("\n").add_operation (var_prefix_75154, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2389)) ; + GALGAS_string var_prefix_75138 = temp_49.readProperty_value () ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2391)), var_prefix_75138.add_operation (this->mProperty_value, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)).getter_stringByReplacingStringByString (GALGAS_string ("\n"), GALGAS_string ("\n").add_operation (var_prefix_75138, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2392)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2389)) ; } } if (kBoolFalse == test_48) { @@ -4859,7 +4859,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2396)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2396)) ; } } - GALGAS_uint var_width_75496 = temp_51.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2396)) ; + GALGAS_uint var_width_75480 = temp_51.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2396)) ; GALGAS_gtlInt temp_52 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)).ptr ())) { @@ -4868,39 +4868,39 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)) ; } } - GALGAS_uint var_shift_75571 = temp_52.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)) ; - GALGAS_string var_stringShift_75648 = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), var_shift_75571 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2398)) ; - GALGAS_stringlist var_paragraphs_75730 = this->mProperty_value.getter_componentsSeparatedByString (GALGAS_string ("\n") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2399)) ; - GALGAS_stringlist var_resultParagraphs_75805 = GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2400)) ; - cEnumerator_stringlist enumerator_75846 (var_paragraphs_75730, kENUMERATION_UP) ; - while (enumerator_75846.hasCurrentObject ()) { - GALGAS_stringlist var_words_75896 = enumerator_75846.current_mValue (HERE).getter_componentsSeparatedByString (GALGAS_string (" ") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2402)) ; - GALGAS_uint var_lineWidth_75961 = GALGAS_uint (uint32_t (0U)) ; - GALGAS_string var_line_75989 = GALGAS_string::makeEmptyString () ; - cEnumerator_stringlist enumerator_76010 (var_words_75896, kENUMERATION_UP) ; - while (enumerator_76010.hasCurrentObject ()) { + GALGAS_uint var_shift_75555 = temp_52.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2397)) ; + GALGAS_string var_stringShift_75632 = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), var_shift_75555 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2398)) ; + GALGAS_stringlist var_paragraphs_75714 = this->mProperty_value.getter_componentsSeparatedByString (GALGAS_string ("\n") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2399)) ; + GALGAS_stringlist var_resultParagraphs_75789 = GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2400)) ; + cEnumerator_stringlist enumerator_75830 (var_paragraphs_75714, kENUMERATION_UP) ; + while (enumerator_75830.hasCurrentObject ()) { + GALGAS_stringlist var_words_75880 = enumerator_75830.current_mValue (HERE).getter_componentsSeparatedByString (GALGAS_string (" ") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2402)) ; + GALGAS_uint var_lineWidth_75945 = GALGAS_uint (uint32_t (0U)) ; + GALGAS_string var_line_75973 = GALGAS_string::makeEmptyString () ; + cEnumerator_stringlist enumerator_75994 (var_words_75880, kENUMERATION_UP) ; + while (enumerator_75994.hasCurrentObject ()) { enumGalgasBool test_53 = kBoolTrue ; if (kBoolTrue == test_53) { - test_53 = GALGAS_bool (kIsNotEqual, enumerator_76010.current_mValue (HERE).objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; + test_53 = GALGAS_bool (kIsNotEqual, enumerator_75994.current_mValue (HERE).objectCompare (GALGAS_string::makeEmptyString ())).boolEnum () ; if (kBoolTrue == test_53) { enumGalgasBool test_54 = kBoolTrue ; if (kBoolTrue == test_54) { - test_54 = GALGAS_bool (kIsStrictSup, var_lineWidth_75961.add_operation (enumerator_76010.current_mValue (HERE).getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2407)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2407)).objectCompare (var_width_75496)).boolEnum () ; + test_54 = GALGAS_bool (kIsStrictSup, var_lineWidth_75945.add_operation (enumerator_75994.current_mValue (HERE).getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2407)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2407)).objectCompare (var_width_75480)).boolEnum () ; if (kBoolTrue == test_54) { - var_line_75989.plusAssign_operation(GALGAS_string ("\n").add_operation (var_stringShift_75648, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2408)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2408)) ; - var_lineWidth_75961 = var_shift_75571 ; + var_line_75973.plusAssign_operation(GALGAS_string ("\n").add_operation (var_stringShift_75632, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2408)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2408)) ; + var_lineWidth_75945 = var_shift_75555 ; } } - var_lineWidth_75961.plusAssign_operation(enumerator_76010.current_mValue (HERE).getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2411)).add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2411)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2411)) ; - var_line_75989.plusAssign_operation(enumerator_76010.current_mValue (HERE).add_operation (GALGAS_string (" "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2412)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2412)) ; + var_lineWidth_75945.plusAssign_operation(enumerator_75994.current_mValue (HERE).getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2411)).add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2411)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2411)) ; + var_line_75973.plusAssign_operation(enumerator_75994.current_mValue (HERE).add_operation (GALGAS_string (" "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2412)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2412)) ; } } - enumerator_76010.gotoNextObject () ; + enumerator_75994.gotoNextObject () ; } - var_resultParagraphs_75805.addAssign_operation (var_line_75989 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2415)) ; - enumerator_75846.gotoNextObject () ; + var_resultParagraphs_75789.addAssign_operation (var_line_75973 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2415)) ; + enumerator_75830.gotoNextObject () ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2419)), GALGAS_string::constructor_componentsJoinedByString (var_resultParagraphs_75805, GALGAS_string ("\n") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2420)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2417)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2419)), GALGAS_string::constructor_componentsJoinedByString (var_resultParagraphs_75789, GALGAS_string ("\n") COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2420)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2417)) ; } } if (kBoolFalse == test_50) { @@ -4919,7 +4919,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2424)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2424)) ; } } - GALGAS_string var_find_76621 = temp_56.readProperty_value () ; + GALGAS_string var_find_76605 = temp_56.readProperty_value () ; GALGAS_gtlString temp_57 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2425)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2425)).ptr ())) { @@ -4928,8 +4928,8 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2425)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2425)) ; } } - GALGAS_string var_rep_76693 = temp_57.readProperty_value () ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2428)), this->mProperty_value.getter_stringByReplacingStringByString (var_find_76621, var_rep_76693, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2429)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2426)) ; + GALGAS_string var_rep_76677 = temp_57.readProperty_value () ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2428)), this->mProperty_value.getter_stringByReplacingStringByString (var_find_76605, var_rep_76677, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2429)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2426)) ; } } if (kBoolFalse == test_55) { @@ -4948,37 +4948,37 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2433)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2433)) ; } } - GALGAS_string var_subString_77026 = callExtensionGetter_string ((const cPtr_gtlString *) temp_59.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2433)) ; - GALGAS_uint var_subLength_77102 = var_subString_77026.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2434)) ; - GALGAS_uint var_start_77143 = GALGAS_uint (uint32_t (0U)) ; - GALGAS_uint var_stop_77167 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2436)).substract_operation (var_subLength_77102, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2436)) ; - GALGAS_bool var_exists_77211 = GALGAS_bool (false) ; + GALGAS_string var_subString_77010 = callExtensionGetter_string ((const cPtr_gtlString *) temp_59.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2433)) ; + GALGAS_uint var_subLength_77086 = var_subString_77010.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2434)) ; + GALGAS_uint var_start_77127 = GALGAS_uint (uint32_t (0U)) ; + GALGAS_uint var_stop_77151 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2436)).substract_operation (var_subLength_77086, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2436)) ; + GALGAS_bool var_exists_77195 = GALGAS_bool (false) ; if (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2438)).isValid ()) { - uint32_t variant_77230 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2438)).uintValue () ; - bool loop_77230 = true ; - while (loop_77230) { - loop_77230 = GALGAS_bool (kIsInfOrEqual, var_start_77143.objectCompare (var_stop_77167)).operator_and (var_exists_77211.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2439)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2439)).isValid () ; - if (loop_77230) { - loop_77230 = GALGAS_bool (kIsInfOrEqual, var_start_77143.objectCompare (var_stop_77167)).operator_and (var_exists_77211.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2439)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2439)).boolValue () ; + uint32_t variant_77214 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 2438)).uintValue () ; + bool loop_77214 = true ; + while (loop_77214) { + loop_77214 = GALGAS_bool (kIsInfOrEqual, var_start_77127.objectCompare (var_stop_77151)).operator_and (var_exists_77195.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2439)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2439)).isValid () ; + if (loop_77214) { + loop_77214 = GALGAS_bool (kIsInfOrEqual, var_start_77127.objectCompare (var_stop_77151)).operator_and (var_exists_77195.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2439)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2439)).boolValue () ; } - if (loop_77230 && (0 == variant_77230)) { - loop_77230 = false ; + if (loop_77214 && (0 == variant_77214)) { + loop_77214 = false ; inCompiler->loopRunTimeVariantError (SOURCE_FILE ("gtl_data_types.galgas", 2438)) ; } - if (loop_77230) { - variant_77230 -- ; + if (loop_77214) { + variant_77214 -- ; enumGalgasBool test_60 = kBoolTrue ; if (kBoolTrue == test_60) { - test_60 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_subString (var_start_77143, var_subLength_77102 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2440)).objectCompare (var_subString_77026)).boolEnum () ; + test_60 = GALGAS_bool (kIsEqual, this->mProperty_value.getter_subString (var_start_77127, var_subLength_77086 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2440)).objectCompare (var_subString_77010)).boolEnum () ; if (kBoolTrue == test_60) { - var_exists_77211 = GALGAS_bool (true) ; + var_exists_77195 = GALGAS_bool (true) ; } } - var_start_77143.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2443)) ; + var_start_77127.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2443)) ; } } } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2447)), var_exists_77211 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2445)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2447)), var_exists_77195 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2445)) ; } } if (kBoolFalse == test_58) { @@ -5065,16 +5065,16 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti { routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2493)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2493)) ; } - GALGAS_stringlist var_fileList_79077 = this->mProperty_value.getter_regularFiles (GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2494)) ; - GALGAS_lstringset var_files_79132 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 2495)) ; - cEnumerator_stringlist enumerator_79159 (var_fileList_79077, kENUMERATION_UP) ; - while (enumerator_79159.hasCurrentObject ()) { + GALGAS_stringlist var_fileList_79061 = this->mProperty_value.getter_regularFiles (GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2494)) ; + GALGAS_lstringset var_files_79116 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 2495)) ; + cEnumerator_stringlist enumerator_79143 (var_fileList_79061, kENUMERATION_UP) ; + while (enumerator_79143.hasCurrentObject ()) { { - var_files_79132.setter_put (GALGAS_lstring::constructor_new (enumerator_79159.current_mValue (HERE), constinArgument_methodName.readProperty_location () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2497)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2497)) ; + var_files_79116.setter_put (GALGAS_lstring::constructor_new (enumerator_79143.current_mValue (HERE), constinArgument_methodName.readProperty_location () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2497)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2497)) ; } - enumerator_79159.gotoNextObject () ; + enumerator_79143.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2500)), var_files_79132 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2499)) ; + result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2500)), var_files_79116 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2499)) ; } } if (kBoolFalse == test_70) { @@ -5085,7 +5085,7 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti { routine_argumentsCheck (constinArgument_methodName, function_setArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2503)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2503)) ; } - GALGAS_stringlist var_extensions_79464 = GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2504)) ; + GALGAS_stringlist var_extensions_79448 = GALGAS_stringlist::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 2504)) ; GALGAS_gtlSet temp_72 ; if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2505)).isValid ()) { if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2505)).ptr ())) { @@ -5094,46 +5094,36 @@ GALGAS_gtlData cPtr_gtlString::getter_performGetter (const GALGAS_lstring consti inCompiler->castError ("gtlSet", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2505)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2505)) ; } } - cEnumerator_lstringset enumerator_79497 (temp_72.readProperty_value (), kENUMERATION_UP) ; - while (enumerator_79497.hasCurrentObject ()) { - var_extensions_79464.addAssign_operation (enumerator_79497.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2506)) ; - enumerator_79497.gotoNextObject () ; + cEnumerator_lstringset enumerator_79481 (temp_72.readProperty_value (), kENUMERATION_UP) ; + while (enumerator_79481.hasCurrentObject ()) { + var_extensions_79448.addAssign_operation (enumerator_79481.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2506)) ; + enumerator_79481.gotoNextObject () ; } - GALGAS_stringlist var_fileList_79617 = this->mProperty_value.getter_regularFilesWithExtensions (GALGAS_bool (false), var_extensions_79464 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2508)) ; - GALGAS_lstringset var_files_79698 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 2509)) ; - cEnumerator_stringlist enumerator_79725 (var_fileList_79617, kENUMERATION_UP) ; - while (enumerator_79725.hasCurrentObject ()) { + GALGAS_stringlist var_fileList_79601 = this->mProperty_value.getter_regularFilesWithExtensions (GALGAS_bool (false), var_extensions_79448 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2508)) ; + GALGAS_lstringset var_files_79682 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 2509)) ; + cEnumerator_stringlist enumerator_79709 (var_fileList_79601, kENUMERATION_UP) ; + while (enumerator_79709.hasCurrentObject ()) { { - var_files_79698.setter_put (GALGAS_lstring::constructor_new (enumerator_79725.current_mValue (HERE), constinArgument_methodName.readProperty_location () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2511)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2511)) ; + var_files_79682.setter_put (GALGAS_lstring::constructor_new (enumerator_79709.current_mValue (HERE), constinArgument_methodName.readProperty_location () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2511)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2511)) ; } - enumerator_79725.gotoNextObject () ; + enumerator_79709.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2514)), var_files_79698 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2513)) ; + result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2514)), var_files_79682 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2513)) ; } } if (kBoolFalse == test_71) { enumGalgasBool test_73 = kBoolTrue ; if (kBoolTrue == test_73) { - test_73 = GALGAS_bool (kIsEqual, GALGAS_string ("parseOIL").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; + test_73 = GALGAS_bool (kIsEqual, GALGAS_string ("trimWhiteSpaces").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_73) { { routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2517)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2517)) ; } - GALGAS_string var_rootTemplatesDir_80018 = function_templates_5F_directory (GALGAS_string::makeEmptyString (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2518)) ; - GALGAS_implementation var_imp_80082 = GALGAS_implementation::constructor_new (GALGAS_implementationMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 2519)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2519)) ; - GALGAS_applicationDefinition var_app_80168 = function_emptyApplicationDefinition (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2520)) ; - GALGAS_lstring var_includeToParse_80220 = GALGAS_lstring::constructor_new (var_rootTemplatesDir_80018.add_operation (GALGAS_string ("libraries/config.oil"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2522)), this->mProperty_where COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2521)) ; - GALGAS_lstring var_fileToParse_80336 = GALGAS_lstring::constructor_new (var_rootTemplatesDir_80018.add_operation (GALGAS_string ("libraries/"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2526)).add_operation (this->mProperty_value, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2526)), this->mProperty_where COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2525)) ; - cGrammar_goil_5F_file_5F_level_5F_include_5F_without_5F_include::_performSourceFileParsing_ (inCompiler, var_includeToParse_80220, var_imp_80082, var_app_80168 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2529)) ; - cGrammar_goil_5F_file_5F_level_5F_include_5F_without_5F_include::_performSourceFileParsing_ (inCompiler, var_fileToParse_80336, var_imp_80082, var_app_80168 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2532)) ; - GALGAS_gtlData var_templateData_80632 = callExtensionGetter_templateData ((const cPtr_applicationDefinition *) var_app_80168.ptr (), var_imp_80082, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2535)) ; - result_result = var_templateData_80632 ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2520)), this->mProperty_value.getter_stringByTrimmingWhiteSpaces (SOURCE_FILE ("gtl_data_types.galgas", 2521)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2518)) ; } } if (kBoolFalse == test_73) { - TC_Array fixItArray74 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2538)).add_operation (GALGAS_string ("' for string target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2538)), fixItArray74 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2538)) ; - result_result.drop () ; // Release error dropped variable + result_result = function_customGtlStringGetter (constinArgument_methodName, constinArgument_arguments, constinArgument_context, constinArgument_lib, this->mProperty_value, this->mProperty_where, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2524)) ; } } } @@ -5194,19 +5184,19 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2544)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2544)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2545)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2545)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2545)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2545)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2545)) ; } } - GALGAS_gtlString var_descriptionToSet_81281 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_80739 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_81281.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2555)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2555)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_80739.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2546)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2546)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -5217,7 +5207,7 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2558)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2558)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2549)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2549)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -5228,28 +5218,28 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("setCharAtIndex").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_charIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2561)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2561)) ; + routine_argumentsCheck (constinArgument_methodName, function_charIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2552)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2552)) ; } GALGAS_gtlChar temp_4 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2562)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2562)).ptr ())) { - temp_4 = (cPtr_gtlChar *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2562)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)).ptr ())) { + temp_4 = (cPtr_gtlChar *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)).ptr () ; }else{ - inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2562)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2562)) ; + inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2553)) ; } } - GALGAS_char var_charToSet_81648 = temp_4.readProperty_value () ; + GALGAS_char var_charToSet_81106 = temp_4.readProperty_value () ; GALGAS_gtlInt temp_5 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)).ptr ())) { - temp_5 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr ())) { + temp_5 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr () ; }else{ - inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)) ; + inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)) ; } } - GALGAS_uint var_index_81721 = temp_5.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2563)) ; + GALGAS_uint var_index_81179 = temp_5.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2554)) ; { - object->mProperty_value.setter_setCharacterAtIndex (var_charToSet_81648, var_index_81721, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2564)) ; + object->mProperty_value.setter_setCharacterAtIndex (var_charToSet_81106, var_index_81179, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2555)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -5260,28 +5250,28 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, test_6 = GALGAS_bool (kIsEqual, GALGAS_string ("insertCharAtIndex").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_6) { { - routine_argumentsCheck (constinArgument_methodName, function_charIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2567)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2567)) ; + routine_argumentsCheck (constinArgument_methodName, function_charIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2558)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2558)) ; } GALGAS_gtlChar temp_7 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)).ptr ())) { - temp_7 = (cPtr_gtlChar *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2559)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2559)).ptr ())) { + temp_7 = (cPtr_gtlChar *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2559)).ptr () ; }else{ - inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)) ; + inCompiler->castError ("gtlChar", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2559)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2559)) ; } } - GALGAS_char var_charToInsert_81981 = temp_7.readProperty_value () ; + GALGAS_char var_charToInsert_81439 = temp_7.readProperty_value () ; GALGAS_gtlInt temp_8 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)).ptr ())) { - temp_8 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)).ptr ())) { + temp_8 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)).ptr () ; }else{ - inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)) ; + inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)) ; } } - GALGAS_uint var_index_82057 = temp_8.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2569)) ; + GALGAS_uint var_index_81515 = temp_8.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2560)) ; { - object->mProperty_value.setter_insertCharacterAtIndex (var_charToInsert_81981, var_index_82057, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2570)) ; + object->mProperty_value.setter_insertCharacterAtIndex (var_charToInsert_81439, var_index_81515, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2561)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -5292,20 +5282,20 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, test_9 = GALGAS_bool (kIsEqual, GALGAS_string ("removeCharAtIndex").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_9) { { - routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2573)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2573)) ; + routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2564)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2564)) ; } GALGAS_gtlInt temp_10 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)).ptr ())) { - temp_10 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)).ptr ())) { + temp_10 = (cPtr_gtlInt *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)).ptr () ; }else{ - inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)) ; + inCompiler->castError ("gtlInt", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)) ; } } - GALGAS_uint var_index_82318 = temp_10.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2574)) ; + GALGAS_uint var_index_81776 = temp_10.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2565)) ; { - GALGAS_char joker_82415 ; // Joker input parameter - object->mProperty_value.setter_removeCharacterAtIndex (joker_82415, var_index_82318, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2575)) ; + GALGAS_char joker_81873 ; // Joker input parameter + object->mProperty_value.setter_removeCharacterAtIndex (joker_81873, var_index_81776, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2566)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -5313,27 +5303,27 @@ static void extensionSetter_gtlString_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_9) { enumGalgasBool test_11 = kBoolTrue ; if (kBoolTrue == test_11) { - test_11 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("string"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2577)).boolEnum () ; + test_11 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("string"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2568)).boolEnum () ; if (kBoolTrue == test_11) { const GALGAS_gtlString temp_12 = object ; - GALGAS_gtlData var_copy_82516 = temp_12 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("string"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2579)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_82516, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2579)) ; + GALGAS_gtlData var_copy_81974 = temp_12 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("string"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2570)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_81974, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2570)) ; GALGAS_gtlString temp_13 ; - if (var_copy_82516.isValid ()) { - if (nullptr != dynamic_cast (var_copy_82516.ptr ())) { - temp_13 = (cPtr_gtlString *) var_copy_82516.ptr () ; + if (var_copy_81974.isValid ()) { + if (nullptr != dynamic_cast (var_copy_81974.ptr ())) { + temp_13 = (cPtr_gtlString *) var_copy_81974.ptr () ; }else{ - inCompiler->castError ("gtlString", var_copy_82516.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2586)) ; + inCompiler->castError ("gtlString", var_copy_81974.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2577)) ; } } object->mProperty_value = temp_13.readProperty_value () ; - object->mProperty_where = var_copy_82516.readProperty_where () ; - object->mProperty_meta = var_copy_82516.readProperty_meta () ; + object->mProperty_where = var_copy_81974.readProperty_where () ; + object->mProperty_meta = var_copy_81974.readProperty_meta () ; } } if (kBoolFalse == test_11) { TC_Array fixItArray14 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2590)).add_operation (GALGAS_string ("' for string target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2590)), fixItArray14 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2590)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2581)).add_operation (GALGAS_string ("' for string target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2581)), fixItArray14 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2581)) ; } } } @@ -5362,7 +5352,7 @@ GALGAS_string cPtr_gtlBool::getter_desc (const GALGAS_uint constinArgument_tab, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2603)).add_operation (GALGAS_string ("boolean: "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2603)).add_operation (this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2604)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2604)).add_operation (GALGAS_string ("\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2604)) ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2594)).add_operation (GALGAS_string ("boolean: "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2594)).add_operation (this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2595)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2595)).add_operation (GALGAS_string ("\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2595)) ; //--- return result_result ; } @@ -5377,7 +5367,7 @@ GALGAS_string cPtr_gtlBool::getter_desc (const GALGAS_uint constinArgument_tab, GALGAS_string cPtr_gtlBool::getter_string (C_Compiler */* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2607)) ; + result_result = this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2598)) ; //--- return result_result ; } @@ -5392,7 +5382,7 @@ GALGAS_string cPtr_gtlBool::getter_string (C_Compiler */* inCompiler */ GALGAS_lstring cPtr_gtlBool::getter_lstring (C_Compiler */* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable - result_result = GALGAS_lstring::constructor_new (this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2610)), this->mProperty_where COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2610)) ; + result_result = GALGAS_lstring::constructor_new (this->mProperty_value.getter_cString (SOURCE_FILE ("gtl_data_types.galgas", 2601)), this->mProperty_where COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2601)) ; //--- return result_result ; } @@ -5425,9 +5415,9 @@ GALGAS_bigint cPtr_gtlBool::getter_int (C_Compiler * inCompiler GALGAS_bigint temp_0 ; const enumGalgasBool test_1 = this->mProperty_value.boolEnum () ; if (kBoolTrue == test_1) { - temp_0 = GALGAS_bigint ("1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2618)) ; + temp_0 = GALGAS_bigint ("1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2609)) ; }else if (kBoolFalse == test_1) { - temp_0 = GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2618)) ; + temp_0 = GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2609)) ; } result_result = temp_0 ; //--- @@ -5467,7 +5457,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_plusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2626)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2617)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5484,7 +5474,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2630)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2621)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5500,7 +5490,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_minusOp (C_Compiler * inCompiler GALGAS_gtlData cPtr_gtlBool::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2634)), this->mProperty_value.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2634)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2634)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2625)), this->mProperty_value.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 2625)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2625)) ; //--- return result_result ; } @@ -5517,7 +5507,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_addOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2638)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2629)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5535,7 +5525,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_subOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2642)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2633)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5553,7 +5543,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_mulOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2646)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2637)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5571,7 +5561,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_divOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2650)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2641)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5589,7 +5579,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_modOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2654)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2645)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5615,15 +5605,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_andOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2662)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2653)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2661)), this->mProperty_value.operator_and (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2662)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2659)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2652)), this->mProperty_value.operator_and (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2653)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2650)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2665)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2656)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5650,15 +5640,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_orOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2674)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2665)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2673)), this->mProperty_value.operator_or (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2674)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2671)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2664)), this->mProperty_value.operator_or (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2665)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2662)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2677)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2668)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5685,15 +5675,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_xorOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2686)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2677)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2685)), this->mProperty_value.operator_xor (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2686)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2683)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2676)), this->mProperty_value.operator_xor (temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2677)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2674)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2689)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2680)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5712,7 +5702,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_slOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2694)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2685)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5730,7 +5720,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_srOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2698)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("bool forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2689)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -5756,15 +5746,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_neqOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2706)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2697)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2705)), GALGAS_bool (kIsNotEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2703)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2696)), GALGAS_bool (kIsNotEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2694)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2709)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2700)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5791,15 +5781,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_eqOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2718)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2709)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2717)), GALGAS_bool (kIsEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2715)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2708)), GALGAS_bool (kIsEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2706)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2721)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2712)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5826,15 +5816,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_gtOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2730)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2721)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2729)), GALGAS_bool (kIsStrictSup, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2727)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2720)), GALGAS_bool (kIsStrictSup, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2718)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2733)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2724)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5861,15 +5851,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_geOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2742)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2733)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2741)), GALGAS_bool (kIsSupOrEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2739)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2732)), GALGAS_bool (kIsSupOrEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2730)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2745)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2736)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5896,15 +5886,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_ltOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2754)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2745)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2753)), GALGAS_bool (kIsStrictInf, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2751)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2744)), GALGAS_bool (kIsStrictInf, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2742)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2757)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2748)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5931,15 +5921,15 @@ GALGAS_gtlData cPtr_gtlBool::getter_leOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlBool *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2766)) ; + inCompiler->castError ("gtlBool", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2757)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2765)), GALGAS_bool (kIsInfOrEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2763)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2756)), GALGAS_bool (kIsInfOrEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2754)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2769)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("bool expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2760)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -5971,7 +5961,7 @@ GALGAS_type cPtr_gtlBool::getter_embeddedType (C_Compiler */* inCompiler */ void cPtr_gtlBool::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 2780)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2780)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 2771)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2771)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -5991,7 +5981,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_0 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("trueOrFalse"))).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2794)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2794)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2785)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2785)) ; } GALGAS_string temp_1 ; const enumGalgasBool test_2 = this->mProperty_value.boolEnum () ; @@ -6000,7 +5990,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA }else if (kBoolFalse == test_2) { temp_1 = GALGAS_string ("false") ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2797)), temp_1 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2795)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2788)), temp_1 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2786)) ; } } if (kBoolFalse == test_0) { @@ -6009,10 +5999,10 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_3 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("string"))).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2801)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2801)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2792)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2792)) ; } const GALGAS_gtlBool temp_4 = this ; - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2804)), callExtensionGetter_string ((const cPtr_gtlBool *) temp_4.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2805)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2802)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2795)), callExtensionGetter_string ((const cPtr_gtlBool *) temp_4.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2796)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2793)) ; } } if (kBoolFalse == test_3) { @@ -6021,7 +6011,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_5 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("yesOrNo"))).boolEnum () ; if (kBoolTrue == test_5) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2808)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2808)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2799)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2799)) ; } GALGAS_string temp_6 ; const enumGalgasBool test_7 = this->mProperty_value.boolEnum () ; @@ -6030,7 +6020,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA }else if (kBoolFalse == test_7) { temp_6 = GALGAS_string ("no") ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2811)), temp_6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2809)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2802)), temp_6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2800)) ; } } if (kBoolFalse == test_5) { @@ -6039,7 +6029,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_8 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("TRUEOrFALSE"))).boolEnum () ; if (kBoolTrue == test_8) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2815)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2815)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2806)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2806)) ; } GALGAS_string temp_9 ; const enumGalgasBool test_10 = this->mProperty_value.boolEnum () ; @@ -6048,7 +6038,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA }else if (kBoolFalse == test_10) { temp_9 = GALGAS_string ("FALSE") ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2818)), temp_9 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2816)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2809)), temp_9 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2807)) ; } } if (kBoolFalse == test_8) { @@ -6057,7 +6047,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_11 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("YESOrNO"))).boolEnum () ; if (kBoolTrue == test_11) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2822)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2822)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2813)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2813)) ; } GALGAS_string temp_12 ; const enumGalgasBool test_13 = this->mProperty_value.boolEnum () ; @@ -6066,7 +6056,7 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA }else if (kBoolFalse == test_13) { temp_12 = GALGAS_string ("NO") ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2825)), temp_12 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2823)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2816)), temp_12 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2814)) ; } } if (kBoolFalse == test_11) { @@ -6079,16 +6069,16 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_14 = test_15.boolEnum () ; if (kBoolTrue == test_14) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2829)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2829)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2820)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2820)) ; } GALGAS_bigint temp_16 ; const enumGalgasBool test_17 = this->mProperty_value.boolEnum () ; if (kBoolTrue == test_17) { - temp_16 = GALGAS_bigint ("1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2833)) ; + temp_16 = GALGAS_bigint ("1", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2824)) ; }else if (kBoolFalse == test_17) { - temp_16 = GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2833)) ; + temp_16 = GALGAS_bigint ("0", inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2824)) ; } - result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2832)), temp_16 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2830)) ; + result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2823)), temp_16 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2821)) ; } } if (kBoolFalse == test_14) { @@ -6097,10 +6087,10 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_18 = GALGAS_bool (kIsEqual, GALGAS_string ("type").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_18) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2836)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2836)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2827)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2827)) ; } const GALGAS_gtlBool temp_19 = this ; - result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2838)), temp_19.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 2838)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2837)) ; + result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2829)), temp_19.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 2829)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2828)) ; } } if (kBoolFalse == test_18) { @@ -6109,9 +6099,9 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_20 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_20) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2841)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2841)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2832)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2832)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2843)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2842)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2834)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2833)) ; } } if (kBoolFalse == test_20) { @@ -6120,18 +6110,18 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_21 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_21) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2846)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2846)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2837)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2837)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2848)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2847)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2839)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2838)) ; } } if (kBoolFalse == test_21) { enumGalgasBool test_22 = kBoolTrue ; if (kBoolTrue == test_22) { - test_22 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2850)).boolEnum () ; + test_22 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2841)).boolEnum () ; if (kBoolTrue == test_22) { const GALGAS_gtlBool temp_23 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2851)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_23, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2851)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2842)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_23, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2842)) ; } } if (kBoolFalse == test_22) { @@ -6140,14 +6130,14 @@ GALGAS_gtlData cPtr_gtlBool::getter_performGetter (const GALGAS_lstring constinA test_24 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_24) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2859)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2859)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2850)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2850)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2861)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2861)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2860)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2852)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2852)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2851)) ; } } if (kBoolFalse == test_24) { TC_Array fixItArray25 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2864)).add_operation (GALGAS_string ("' for boolean target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2864)), fixItArray25 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2864)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2855)).add_operation (GALGAS_string ("' for boolean target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2855)), fixItArray25 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2855)) ; result_result.drop () ; // Release error dropped variable } } @@ -6185,19 +6175,19 @@ static void extensionSetter_gtlBool_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2879)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2879)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2870)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2870)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2880)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2880)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2880)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2871)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2871)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2871)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2880)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2880)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2871)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2871)) ; } } - GALGAS_gtlString var_descriptionToSet_90937 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_90395 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_90937.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2881)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2881)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_90395.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2872)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2872)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -6208,7 +6198,7 @@ static void extensionSetter_gtlBool_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2884)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2884)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2875)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2875)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -6216,27 +6206,27 @@ static void extensionSetter_gtlBool_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_2) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2886)).boolEnum () ; + test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2877)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlBool temp_4 = object ; - GALGAS_gtlData var_copy_91245 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2888)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_91245, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2888)) ; + GALGAS_gtlData var_copy_90703 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("bool"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2879)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_90703, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2879)) ; GALGAS_gtlBool temp_5 ; - if (var_copy_91245.isValid ()) { - if (nullptr != dynamic_cast (var_copy_91245.ptr ())) { - temp_5 = (cPtr_gtlBool *) var_copy_91245.ptr () ; + if (var_copy_90703.isValid ()) { + if (nullptr != dynamic_cast (var_copy_90703.ptr ())) { + temp_5 = (cPtr_gtlBool *) var_copy_90703.ptr () ; }else{ - inCompiler->castError ("gtlBool", var_copy_91245.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2895)) ; + inCompiler->castError ("gtlBool", var_copy_90703.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2886)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_91245.readProperty_where () ; - object->mProperty_meta = var_copy_91245.readProperty_meta () ; + object->mProperty_where = var_copy_90703.readProperty_where () ; + object->mProperty_meta = var_copy_90703.readProperty_meta () ; } } if (kBoolFalse == test_3) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2899)).add_operation (GALGAS_string ("' for boolean target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2899)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2899)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2890)).add_operation (GALGAS_string ("' for boolean target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2890)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2890)) ; } } } @@ -6262,21 +6252,21 @@ GALGAS_string cPtr_gtlSet::getter_desc (const GALGAS_uint constinArgument_tab, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2923)).add_operation (GALGAS_string ("set: @!\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2923)) ; - cEnumerator_lstringset enumerator_92447 (this->mProperty_value, kENUMERATION_UP) ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2914)).add_operation (GALGAS_string ("set: @!\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2914)) ; + cEnumerator_lstringset enumerator_91905 (this->mProperty_value, kENUMERATION_UP) ; const bool bool_0 = true ; - if (enumerator_92447.hasCurrentObject () && bool_0) { - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2927)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2927)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2927)) ; - while (enumerator_92447.hasCurrentObject () && bool_0) { - result_result.plusAssign_operation(enumerator_92447.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2929)) ; - enumerator_92447.gotoNextObject () ; - if (enumerator_92447.hasCurrentObject () && bool_0) { - result_result.plusAssign_operation(GALGAS_string (", "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2931)) ; + if (enumerator_91905.hasCurrentObject () && bool_0) { + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2918)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2918)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2918)) ; + while (enumerator_91905.hasCurrentObject () && bool_0) { + result_result.plusAssign_operation(enumerator_91905.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2920)) ; + enumerator_91905.gotoNextObject () ; + if (enumerator_91905.hasCurrentObject () && bool_0) { + result_result.plusAssign_operation(GALGAS_string (", "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2922)) ; } } - result_result.plusAssign_operation(GALGAS_string ("\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2933)) ; + result_result.plusAssign_operation(GALGAS_string ("\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2924)) ; } - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2935)).add_operation (GALGAS_string ("!\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2935)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2935)) ; + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2926)).add_operation (GALGAS_string ("!\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2926)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2926)) ; //--- return result_result ; } @@ -6292,7 +6282,7 @@ GALGAS_string cPtr_gtlSet::getter_string (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a string"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2939)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a string"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2930)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6309,7 +6299,7 @@ GALGAS_lstring cPtr_gtlSet::getter_lstring (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a lstring"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2943)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a lstring"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2934)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6326,7 +6316,7 @@ GALGAS_bool cPtr_gtlSet::getter_bool (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2947)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2938)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6343,7 +6333,7 @@ GALGAS_bigint cPtr_gtlSet::getter_int (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bigint result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2951)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2942)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6360,7 +6350,7 @@ GALGAS_double cPtr_gtlSet::getter_float (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_double result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2955)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a set to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2946)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6377,7 +6367,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_plusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2959)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2950)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6394,7 +6384,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2963)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2954)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6411,7 +6401,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2967)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2958)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6428,21 +6418,21 @@ GALGAS_gtlData cPtr_gtlSet::getter_addOp (const GALGAS_gtlData constinArgument_r C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable - GALGAS_lstringset var_set_93620 = this->mProperty_value ; - GALGAS_lstring var_element_93647 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2972)) ; + GALGAS_lstringset var_set_93078 = this->mProperty_value ; + GALGAS_lstring var_element_93105 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2963)) ; enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { - test_0 = var_set_93620.getter_hasKey (var_element_93647.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2973)).boolEnum () ; + test_0 = var_set_93078.getter_hasKey (var_element_93105.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2964)).boolEnum () ; if (kBoolTrue == test_0) { { - var_set_93620.setter_del (var_element_93647, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2974)) ; + var_set_93078.setter_del (var_element_93105, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2965)) ; } } } { - var_set_93620.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2976)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2976)) ; + var_set_93078.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2967)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2967)) ; } - result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2977)), var_set_93620 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2977)) ; + result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2968)), var_set_93078 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2968)) ; //--- return result_result ; } @@ -6462,34 +6452,34 @@ GALGAS_gtlData cPtr_gtlSet::getter_subOp (const GALGAS_gtlData constinArgument_r if (kBoolTrue == test_0) { test_0 = GALGAS_bool (constinArgument_right.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlSet).boolEnum () ; if (kBoolTrue == test_0) { - GALGAS_lstringset var_resultSet_93942 = this->mProperty_value ; + GALGAS_lstringset var_resultSet_93400 = this->mProperty_value ; GALGAS_gtlSet temp_1 ; if (constinArgument_right.isValid ()) { if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2983)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2974)) ; } } - cEnumerator_lstringset enumerator_93969 (temp_1.readProperty_value (), kENUMERATION_UP) ; - while (enumerator_93969.hasCurrentObject ()) { + cEnumerator_lstringset enumerator_93427 (temp_1.readProperty_value (), kENUMERATION_UP) ; + while (enumerator_93427.hasCurrentObject ()) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = var_resultSet_93942.getter_hasKey (enumerator_93969.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2984)).boolEnum () ; + test_2 = var_resultSet_93400.getter_hasKey (enumerator_93427.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2975)).boolEnum () ; if (kBoolTrue == test_2) { { - var_resultSet_93942.setter_del (enumerator_93969.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2985)) ; + var_resultSet_93400.setter_del (enumerator_93427.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2976)) ; } } } - enumerator_93969.gotoNextObject () ; + enumerator_93427.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2989)), var_resultSet_93942 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2988)) ; + result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2980)), var_resultSet_93400 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2979)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2992)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2992)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2983)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2983)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6508,7 +6498,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_mulOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2997)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2988)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6526,7 +6516,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_divOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3001)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2992)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6544,7 +6534,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_modOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3005)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 2996)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6565,34 +6555,34 @@ GALGAS_gtlData cPtr_gtlSet::getter_andOp (const GALGAS_gtlData constinArgument_r if (kBoolTrue == test_0) { test_0 = GALGAS_bool (constinArgument_right.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlSet).boolEnum () ; if (kBoolTrue == test_0) { - GALGAS_lstringset var_resultSet_94709 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3010)) ; + GALGAS_lstringset var_resultSet_94167 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3001)) ; GALGAS_gtlSet temp_1 ; if (constinArgument_right.isValid ()) { if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3011)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3002)) ; } } - cEnumerator_lstringset enumerator_94740 (temp_1.readProperty_value (), kENUMERATION_UP) ; - while (enumerator_94740.hasCurrentObject ()) { + cEnumerator_lstringset enumerator_94198 (temp_1.readProperty_value (), kENUMERATION_UP) ; + while (enumerator_94198.hasCurrentObject ()) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = this->mProperty_value.getter_hasKey (enumerator_94740.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3012)).boolEnum () ; + test_2 = this->mProperty_value.getter_hasKey (enumerator_94198.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3003)).boolEnum () ; if (kBoolTrue == test_2) { { - var_resultSet_94709.setter_put (enumerator_94740.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3013)) ; + var_resultSet_94167.setter_put (enumerator_94198.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3004)) ; } } } - enumerator_94740.gotoNextObject () ; + enumerator_94198.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3017)), var_resultSet_94709 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3016)) ; + result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3008)), var_resultSet_94167 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3007)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3020)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3020)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3011)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3011)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6619,29 +6609,29 @@ GALGAS_gtlData cPtr_gtlSet::getter_orOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3026)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3017)) ; } } - GALGAS_lstringset var_resultSet_95121 = temp_1.readProperty_value () ; - cEnumerator_lstringset enumerator_95167 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_95167.hasCurrentObject ()) { + GALGAS_lstringset var_resultSet_94579 = temp_1.readProperty_value () ; + cEnumerator_lstringset enumerator_94625 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_94625.hasCurrentObject ()) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = var_resultSet_95121.getter_hasKey (enumerator_95167.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3028)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3028)).boolEnum () ; + test_2 = var_resultSet_94579.getter_hasKey (enumerator_94625.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3019)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3019)).boolEnum () ; if (kBoolTrue == test_2) { { - var_resultSet_95121.setter_put (enumerator_95167.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3029)) ; + var_resultSet_94579.setter_put (enumerator_94625.current_lkey (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3020)) ; } } } - enumerator_95167.gotoNextObject () ; + enumerator_94625.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3033)), var_resultSet_95121 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3032)) ; + result_result = GALGAS_gtlSet::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3024)), var_resultSet_94579 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3023)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3036)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3036)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3027)), GALGAS_string ("set expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3027)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6660,7 +6650,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_xorOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3041)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3032)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6678,7 +6668,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_slOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3045)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3036)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6696,7 +6686,7 @@ GALGAS_gtlData cPtr_gtlSet::getter_srOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3049)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("set forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3040)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -6722,15 +6712,15 @@ GALGAS_gtlData cPtr_gtlSet::getter_neqOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3055)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3046)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3055)), GALGAS_bool (kIsNotEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3054)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3046)), GALGAS_bool (kIsNotEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3045)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3058)), GALGAS_string ("set expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3058)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3049)), GALGAS_string ("set expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3049)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6757,15 +6747,15 @@ GALGAS_gtlData cPtr_gtlSet::getter_eqOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3065)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3056)) ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3065)), GALGAS_bool (kIsEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3064)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3056)), GALGAS_bool (kIsEqual, this->mProperty_value.objectCompare (temp_1.readProperty_value ())) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3055)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3068)), GALGAS_string ("set expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3068)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3059)), GALGAS_string ("set expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3059)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6794,48 +6784,48 @@ GALGAS_gtlData cPtr_gtlSet::getter_gtOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_2 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3074)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3065)) ; } } test_1 = GALGAS_bool (kIsEqual, temp_2.readProperty_value ().objectCompare (this->mProperty_value)).boolEnum () ; if (kBoolTrue == test_1) { - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3075)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3075)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3066)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3066)) ; } } if (kBoolFalse == test_1) { - GALGAS_bool var_included_96524 = GALGAS_bool (true) ; + GALGAS_bool var_included_95982 = GALGAS_bool (true) ; GALGAS_gtlSet temp_3 ; if (constinArgument_right.isValid ()) { if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_3 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3078)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3069)) ; } } - cEnumerator_lstringset enumerator_96551 (temp_3.readProperty_value (), kENUMERATION_UP) ; - bool bool_4 = var_included_96524.isValidAndTrue () ; - if (enumerator_96551.hasCurrentObject () && bool_4) { - while (enumerator_96551.hasCurrentObject () && bool_4) { + cEnumerator_lstringset enumerator_96009 (temp_3.readProperty_value (), kENUMERATION_UP) ; + bool bool_4 = var_included_95982.isValidAndTrue () ; + if (enumerator_96009.hasCurrentObject () && bool_4) { + while (enumerator_96009.hasCurrentObject () && bool_4) { enumGalgasBool test_5 = kBoolTrue ; if (kBoolTrue == test_5) { - test_5 = this->mProperty_value.getter_hasKey (enumerator_96551.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3079)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3079)).boolEnum () ; + test_5 = this->mProperty_value.getter_hasKey (enumerator_96009.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3070)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3070)).boolEnum () ; if (kBoolTrue == test_5) { - var_included_96524 = GALGAS_bool (false) ; + var_included_95982 = GALGAS_bool (false) ; } } - enumerator_96551.gotoNextObject () ; - if (enumerator_96551.hasCurrentObject ()) { - bool_4 = var_included_96524.isValidAndTrue () ; + enumerator_96009.gotoNextObject () ; + if (enumerator_96009.hasCurrentObject ()) { + bool_4 = var_included_95982.isValidAndTrue () ; } } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3081)), var_included_96524 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3081)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3072)), var_included_95982 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3072)) ; } } } if (kBoolFalse == test_0) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3084)), GALGAS_string ("set expected"), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3084)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3075)), GALGAS_string ("set expected"), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3075)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6857,38 +6847,38 @@ GALGAS_gtlData cPtr_gtlSet::getter_geOp (const GALGAS_gtlData constinArgument_ri if (kBoolTrue == test_0) { test_0 = GALGAS_bool (constinArgument_right.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlSet).boolEnum () ; if (kBoolTrue == test_0) { - GALGAS_bool var_included_96914 = GALGAS_bool (true) ; + GALGAS_bool var_included_96372 = GALGAS_bool (true) ; GALGAS_gtlSet temp_1 ; if (constinArgument_right.isValid ()) { if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3091)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3082)) ; } } - cEnumerator_lstringset enumerator_96939 (temp_1.readProperty_value (), kENUMERATION_UP) ; - bool bool_2 = var_included_96914.isValidAndTrue () ; - if (enumerator_96939.hasCurrentObject () && bool_2) { - while (enumerator_96939.hasCurrentObject () && bool_2) { + cEnumerator_lstringset enumerator_96397 (temp_1.readProperty_value (), kENUMERATION_UP) ; + bool bool_2 = var_included_96372.isValidAndTrue () ; + if (enumerator_96397.hasCurrentObject () && bool_2) { + while (enumerator_96397.hasCurrentObject () && bool_2) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = this->mProperty_value.getter_hasKey (enumerator_96939.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3092)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3092)).boolEnum () ; + test_3 = this->mProperty_value.getter_hasKey (enumerator_96397.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3083)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3083)).boolEnum () ; if (kBoolTrue == test_3) { - var_included_96914 = GALGAS_bool (false) ; + var_included_96372 = GALGAS_bool (false) ; } } - enumerator_96939.gotoNextObject () ; - if (enumerator_96939.hasCurrentObject ()) { - bool_2 = var_included_96914.isValidAndTrue () ; + enumerator_96397.gotoNextObject () ; + if (enumerator_96397.hasCurrentObject ()) { + bool_2 = var_included_96372.isValidAndTrue () ; } } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3094)), var_included_96914 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3094)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3085)), var_included_96372 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3085)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3096)), GALGAS_string ("set expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3096)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3087)), GALGAS_string ("set expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3087)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6917,20 +6907,20 @@ GALGAS_gtlData cPtr_gtlSet::getter_ltOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_2 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3102)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3093)) ; } } test_1 = GALGAS_bool (kIsEqual, temp_2.readProperty_value ().objectCompare (this->mProperty_value)).boolEnum () ; if (kBoolTrue == test_1) { - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3103)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3103)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3094)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3094)) ; } } if (kBoolFalse == test_1) { - GALGAS_bool var_included_97407 = GALGAS_bool (true) ; - cEnumerator_lstringset enumerator_97434 (this->mProperty_value, kENUMERATION_UP) ; - bool bool_3 = var_included_97407.isValidAndTrue () ; - if (enumerator_97434.hasCurrentObject () && bool_3) { - while (enumerator_97434.hasCurrentObject () && bool_3) { + GALGAS_bool var_included_96865 = GALGAS_bool (true) ; + cEnumerator_lstringset enumerator_96892 (this->mProperty_value, kENUMERATION_UP) ; + bool bool_3 = var_included_96865.isValidAndTrue () ; + if (enumerator_96892.hasCurrentObject () && bool_3) { + while (enumerator_96892.hasCurrentObject () && bool_3) { enumGalgasBool test_4 = kBoolTrue ; if (kBoolTrue == test_4) { GALGAS_gtlSet temp_5 ; @@ -6938,27 +6928,27 @@ GALGAS_gtlData cPtr_gtlSet::getter_ltOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_5 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3107)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3098)) ; } } - test_4 = temp_5.readProperty_value ().getter_hasKey (enumerator_97434.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3107)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3107)).boolEnum () ; + test_4 = temp_5.readProperty_value ().getter_hasKey (enumerator_96892.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3098)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3098)).boolEnum () ; if (kBoolTrue == test_4) { - var_included_97407 = GALGAS_bool (false) ; + var_included_96865 = GALGAS_bool (false) ; } } - enumerator_97434.gotoNextObject () ; - if (enumerator_97434.hasCurrentObject ()) { - bool_3 = var_included_97407.isValidAndTrue () ; + enumerator_96892.gotoNextObject () ; + if (enumerator_96892.hasCurrentObject ()) { + bool_3 = var_included_96865.isValidAndTrue () ; } } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3109)), var_included_97407 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3109)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3100)), var_included_96865 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3100)) ; } } } if (kBoolFalse == test_0) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3112)), GALGAS_string ("set expected"), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3112)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3103)), GALGAS_string ("set expected"), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3103)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -6980,11 +6970,11 @@ GALGAS_gtlData cPtr_gtlSet::getter_leOp (const GALGAS_gtlData constinArgument_ri if (kBoolTrue == test_0) { test_0 = GALGAS_bool (constinArgument_right.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlSet).boolEnum () ; if (kBoolTrue == test_0) { - GALGAS_bool var_included_97797 = GALGAS_bool (true) ; - cEnumerator_lstringset enumerator_97822 (this->mProperty_value, kENUMERATION_UP) ; - bool bool_1 = var_included_97797.isValidAndTrue () ; - if (enumerator_97822.hasCurrentObject () && bool_1) { - while (enumerator_97822.hasCurrentObject () && bool_1) { + GALGAS_bool var_included_97255 = GALGAS_bool (true) ; + cEnumerator_lstringset enumerator_97280 (this->mProperty_value, kENUMERATION_UP) ; + bool bool_1 = var_included_97255.isValidAndTrue () ; + if (enumerator_97280.hasCurrentObject () && bool_1) { + while (enumerator_97280.hasCurrentObject () && bool_1) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { GALGAS_gtlSet temp_3 ; @@ -6992,26 +6982,26 @@ GALGAS_gtlData cPtr_gtlSet::getter_leOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_3 = (cPtr_gtlSet *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3120)) ; + inCompiler->castError ("gtlSet", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3111)) ; } } - test_2 = temp_3.readProperty_value ().getter_hasKey (enumerator_97822.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3120)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3120)).boolEnum () ; + test_2 = temp_3.readProperty_value ().getter_hasKey (enumerator_97280.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3111)).operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3111)).boolEnum () ; if (kBoolTrue == test_2) { - var_included_97797 = GALGAS_bool (false) ; + var_included_97255 = GALGAS_bool (false) ; } } - enumerator_97822.gotoNextObject () ; - if (enumerator_97822.hasCurrentObject ()) { - bool_1 = var_included_97797.isValidAndTrue () ; + enumerator_97280.gotoNextObject () ; + if (enumerator_97280.hasCurrentObject ()) { + bool_1 = var_included_97255.isValidAndTrue () ; } } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3122)), var_included_97797 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3122)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3113)), var_included_97255 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3113)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3124)), GALGAS_string ("set expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3124)) ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) constinArgument_right.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3115)), GALGAS_string ("set expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3115)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -7029,7 +7019,7 @@ GALGAS_type cPtr_gtlSet::getter_embeddedType (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_type result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3130)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3121)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7045,7 +7035,7 @@ GALGAS_type cPtr_gtlSet::getter_embeddedType (C_Compiler * inCompiler void cPtr_gtlSet::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3135)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3135)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3126)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3126)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -7065,9 +7055,9 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("length").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3149)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3149)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3140)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3140)) ; } - result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3152)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3153)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 3153)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3150)) ; + result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3143)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3144)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 3144)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3141)) ; } } if (kBoolFalse == test_0) { @@ -7076,17 +7066,17 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_1 = GALGAS_bool (kIsEqual, GALGAS_string ("list").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_1) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3156)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3156)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3147)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3147)) ; } - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3158)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3158)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3157)) ; - cEnumerator_lstringset enumerator_99094 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_99094.hasCurrentObject ()) { + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3149)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3149)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3148)) ; + cEnumerator_lstringset enumerator_98552 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_98552.hasCurrentObject ()) { { result_result.insulate (HERE) ; - cPtr_gtlData * ptr_99118 = (cPtr_gtlData *) result_result.ptr () ; - callExtensionSetter_appendItem ((cPtr_gtlData *) ptr_99118, GALGAS_gtlString::constructor_new (enumerator_99094.current_lkey (HERE).readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3161)), enumerator_99094.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3161)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3161)) ; + cPtr_gtlData * ptr_98576 = (cPtr_gtlData *) result_result.ptr () ; + callExtensionSetter_appendItem ((cPtr_gtlData *) ptr_98576, GALGAS_gtlString::constructor_new (enumerator_98552.current_lkey (HERE).readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3152)), enumerator_98552.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3152)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3152)) ; } - enumerator_99094.gotoNextObject () ; + enumerator_98552.gotoNextObject () ; } } } @@ -7096,10 +7086,10 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("contains").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3164)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3164)) ; + routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3155)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3155)) ; } - GALGAS_string var_key_99319 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3165)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3165)) ; - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3167)), this->mProperty_value.getter_hasKey (var_key_99319 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3167)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3166)) ; + GALGAS_string var_key_98777 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3156)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3156)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3158)), this->mProperty_value.getter_hasKey (var_key_98777 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3158)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3157)) ; } } if (kBoolFalse == test_2) { @@ -7108,11 +7098,11 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("elementNamed").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3170)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3170)) ; + routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3161)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3161)) ; } - GALGAS_string var_key_99587 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3171)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3171)) ; - GALGAS_location var_loc_99647 = this->mProperty_value.getter_locationForKey (var_key_99587, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3172)) ; - result_result = GALGAS_gtlString::constructor_new (var_loc_99647, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3174)), var_key_99587 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3173)) ; + GALGAS_string var_key_99045 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3162)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3162)) ; + GALGAS_location var_loc_99105 = this->mProperty_value.getter_locationForKey (var_key_99045, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3163)) ; + result_result = GALGAS_gtlString::constructor_new (var_loc_99105, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3165)), var_key_99045 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3164)) ; } } if (kBoolFalse == test_3) { @@ -7121,9 +7111,9 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_4 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_4) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3177)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3177)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3168)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3168)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3179)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3178)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3170)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3169)) ; } } if (kBoolFalse == test_4) { @@ -7132,18 +7122,18 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_5 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_5) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3182)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3182)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3173)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3173)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3184)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3183)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3175)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3174)) ; } } if (kBoolFalse == test_5) { enumGalgasBool test_6 = kBoolTrue ; if (kBoolTrue == test_6) { - test_6 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3186)).boolEnum () ; + test_6 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3177)).boolEnum () ; if (kBoolTrue == test_6) { const GALGAS_gtlSet temp_7 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3187)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_7, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3187)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3178)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_7, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3178)) ; } } if (kBoolFalse == test_6) { @@ -7152,14 +7142,14 @@ GALGAS_gtlData cPtr_gtlSet::getter_performGetter (const GALGAS_lstring constinAr test_8 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_8) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3195)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3195)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3186)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3186)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3197)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3197)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3196)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3188)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3188)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3187)) ; } } if (kBoolFalse == test_8) { TC_Array fixItArray9 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3200)).add_operation (GALGAS_string ("' for set target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3200)), fixItArray9 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3200)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3191)).add_operation (GALGAS_string ("' for set target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3191)), fixItArray9 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3191)) ; result_result.drop () ; // Release error dropped variable } } @@ -7194,19 +7184,19 @@ static void extensionSetter_gtlSet_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3215)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3215)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3206)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3206)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3207)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3207)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3207)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3207)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3207)) ; } } - GALGAS_gtlString var_descriptionToSet_101076 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_100534 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_101076.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3217)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3217)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_100534.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3208)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3208)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -7217,7 +7207,7 @@ static void extensionSetter_gtlSet_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3220)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3220)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3211)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3211)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -7228,20 +7218,20 @@ static void extensionSetter_gtlSet_performSetter (cPtr_gtlData * inObject, test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("add").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3223)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3223)) ; + routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3214)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3214)) ; } - GALGAS_lstring var_key_101435 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3224)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3224)) ; + GALGAS_lstring var_key_100893 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3215)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3215)) ; enumGalgasBool test_4 = kBoolTrue ; if (kBoolTrue == test_4) { - test_4 = object->mProperty_value.getter_hasKey (var_key_101435.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3225)).boolEnum () ; + test_4 = object->mProperty_value.getter_hasKey (var_key_100893.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3216)).boolEnum () ; if (kBoolTrue == test_4) { { - object->mProperty_value.setter_del (var_key_101435, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3226)) ; + object->mProperty_value.setter_del (var_key_100893, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3217)) ; } } } { - object->mProperty_value.setter_put (var_key_101435, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3228)) ; + object->mProperty_value.setter_put (var_key_100893, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3219)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -7252,15 +7242,15 @@ static void extensionSetter_gtlSet_performSetter (cPtr_gtlData * inObject, test_5 = GALGAS_bool (kIsEqual, GALGAS_string ("remove").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_5) { { - routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3231)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3231)) ; + routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3222)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3222)) ; } - GALGAS_lstring var_key_101705 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3232)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3232)) ; + GALGAS_lstring var_key_101163 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3223)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3223)) ; enumGalgasBool test_6 = kBoolTrue ; if (kBoolTrue == test_6) { - test_6 = object->mProperty_value.getter_hasKey (var_key_101705.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3233)).boolEnum () ; + test_6 = object->mProperty_value.getter_hasKey (var_key_101163.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3224)).boolEnum () ; if (kBoolTrue == test_6) { { - object->mProperty_value.setter_del (var_key_101705, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3234)) ; + object->mProperty_value.setter_del (var_key_101163, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3225)) ; } } } @@ -7270,27 +7260,27 @@ static void extensionSetter_gtlSet_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_5) { enumGalgasBool test_7 = kBoolTrue ; if (kBoolTrue == test_7) { - test_7 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3237)).boolEnum () ; + test_7 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3228)).boolEnum () ; if (kBoolTrue == test_7) { const GALGAS_gtlSet temp_8 = object ; - GALGAS_gtlData var_copy_101900 = temp_8 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3239)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_101900, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3239)) ; + GALGAS_gtlData var_copy_101358 = temp_8 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("set"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3230)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_101358, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3230)) ; GALGAS_gtlSet temp_9 ; - if (var_copy_101900.isValid ()) { - if (nullptr != dynamic_cast (var_copy_101900.ptr ())) { - temp_9 = (cPtr_gtlSet *) var_copy_101900.ptr () ; + if (var_copy_101358.isValid ()) { + if (nullptr != dynamic_cast (var_copy_101358.ptr ())) { + temp_9 = (cPtr_gtlSet *) var_copy_101358.ptr () ; }else{ - inCompiler->castError ("gtlSet", var_copy_101900.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3246)) ; + inCompiler->castError ("gtlSet", var_copy_101358.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3237)) ; } } object->mProperty_value = temp_9.readProperty_value () ; - object->mProperty_where = var_copy_101900.readProperty_where () ; - object->mProperty_meta = var_copy_101900.readProperty_meta () ; + object->mProperty_where = var_copy_101358.readProperty_where () ; + object->mProperty_meta = var_copy_101358.readProperty_meta () ; } } if (kBoolFalse == test_7) { TC_Array fixItArray10 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3250)).add_operation (GALGAS_string ("' for set target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3250)), fixItArray10 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3250)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3241)).add_operation (GALGAS_string ("' for set target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3241)), fixItArray10 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3241)) ; } } } @@ -7318,13 +7308,13 @@ GALGAS_string cPtr_gtlStruct::getter_desc (const GALGAS_uint constinArgument_tab C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3263)).add_operation (GALGAS_string ("struct: @{\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3263)) ; - cEnumerator_gtlVarMap enumerator_102640 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_102640.hasCurrentObject ()) { - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3266)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3266)).add_operation (enumerator_102640.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3266)).add_operation (GALGAS_string (" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3267)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_102640.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3268)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3268)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3267)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3266)) ; - enumerator_102640.gotoNextObject () ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3254)).add_operation (GALGAS_string ("struct: @{\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3254)) ; + cEnumerator_gtlVarMap enumerator_102098 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_102098.hasCurrentObject ()) { + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3257)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3257)).add_operation (enumerator_102098.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3257)).add_operation (GALGAS_string (" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3258)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_102098.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3259)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3259)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3258)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3257)) ; + enumerator_102098.gotoNextObject () ; } - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3270)).add_operation (GALGAS_string ("}\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3270)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3270)) ; + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3261)).add_operation (GALGAS_string ("}\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3261)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3261)) ; //--- return result_result ; } @@ -7340,7 +7330,7 @@ GALGAS_string cPtr_gtlStruct::getter_string (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3274)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3265)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7357,7 +7347,7 @@ GALGAS_lstring cPtr_gtlStruct::getter_lstring (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3278)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3269)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7374,7 +7364,7 @@ GALGAS_bool cPtr_gtlStruct::getter_bool (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3282)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3273)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7391,7 +7381,7 @@ GALGAS_bigint cPtr_gtlStruct::getter_int (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bigint result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3286)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3277)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7408,7 +7398,7 @@ GALGAS_double cPtr_gtlStruct::getter_float (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_double result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3290)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a struct to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3281)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7425,7 +7415,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_plusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3294)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3285)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7442,7 +7432,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3298)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3289)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7459,7 +7449,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3302)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3293)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7477,7 +7467,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_addOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3306)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3297)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7495,7 +7485,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_subOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3310)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3301)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7513,7 +7503,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_mulOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3314)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3305)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7531,7 +7521,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_divOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3318)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3309)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7549,7 +7539,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_modOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3322)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3313)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7567,7 +7557,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_andOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3326)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3317)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7585,7 +7575,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_orOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3330)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3321)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7603,7 +7593,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_xorOp (const GALGAS_gtlData /* constinArgu COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3334)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3325)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7621,7 +7611,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_slOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3338)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3329)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7639,7 +7629,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_srOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3342)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3333)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7665,43 +7655,43 @@ GALGAS_gtlData cPtr_gtlStruct::getter_neqOp (const GALGAS_gtlData constinArgumen if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlStruct *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlStruct", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3347)) ; + inCompiler->castError ("gtlStruct", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3338)) ; } } - GALGAS_gtlVarMap var_rValue_105121 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_105168 ; + GALGAS_gtlVarMap var_rValue_104579 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_104626 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3349)).objectCompare (var_rValue_105121.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3349)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3340)).objectCompare (var_rValue_104579.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3340)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_105168 = GALGAS_bool (false) ; + var_equal_104626 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_105168 = GALGAS_bool (true) ; - cEnumerator_gtlVarMap enumerator_105282 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_105282.hasCurrentObject ()) { + var_equal_104626 = GALGAS_bool (true) ; + cEnumerator_gtlVarMap enumerator_104740 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_104740.hasCurrentObject ()) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = var_rValue_105121.getter_hasKey (enumerator_105282.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3354)).boolEnum () ; + test_3 = var_rValue_104579.getter_hasKey (enumerator_104740.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3345)).boolEnum () ; if (kBoolTrue == test_3) { - GALGAS_gtlData var_rData_105382 ; - var_rValue_105121.method_get (enumerator_105282.current_lkey (HERE), var_rData_105382, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3355)) ; - var_equal_105168 = var_equal_105168.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_105282.current_value (HERE).ptr (), var_rData_105382, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3356)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3356)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3356)) ; + GALGAS_gtlData var_rData_104840 ; + var_rValue_104579.method_get (enumerator_104740.current_lkey (HERE), var_rData_104840, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3346)) ; + var_equal_104626 = var_equal_104626.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_104740.current_value (HERE).ptr (), var_rData_104840, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3347)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3347)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3347)) ; } } if (kBoolFalse == test_3) { - var_equal_105168 = GALGAS_bool (false) ; + var_equal_104626 = GALGAS_bool (false) ; } - enumerator_105282.gotoNextObject () ; + enumerator_104740.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3362)), var_equal_105168.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3362)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3362)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3353)), var_equal_104626.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3353)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3353)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3364)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3355)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -7728,43 +7718,43 @@ GALGAS_gtlData cPtr_gtlStruct::getter_eqOp (const GALGAS_gtlData constinArgument if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlStruct *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlStruct", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3370)) ; + inCompiler->castError ("gtlStruct", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3361)) ; } } - GALGAS_gtlVarMap var_rValue_105761 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_105808 ; + GALGAS_gtlVarMap var_rValue_105219 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_105266 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3372)).objectCompare (var_rValue_105761.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3372)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3363)).objectCompare (var_rValue_105219.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3363)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_105808 = GALGAS_bool (false) ; + var_equal_105266 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_105808 = GALGAS_bool (true) ; - cEnumerator_gtlVarMap enumerator_105922 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_105922.hasCurrentObject ()) { + var_equal_105266 = GALGAS_bool (true) ; + cEnumerator_gtlVarMap enumerator_105380 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_105380.hasCurrentObject ()) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = var_rValue_105761.getter_hasKey (enumerator_105922.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3377)).boolEnum () ; + test_3 = var_rValue_105219.getter_hasKey (enumerator_105380.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3368)).boolEnum () ; if (kBoolTrue == test_3) { - GALGAS_gtlData var_rData_106022 ; - var_rValue_105761.method_get (enumerator_105922.current_lkey (HERE), var_rData_106022, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3378)) ; - var_equal_105808 = var_equal_105808.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_105922.current_value (HERE).ptr (), var_rData_106022, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3379)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3379)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3379)) ; + GALGAS_gtlData var_rData_105480 ; + var_rValue_105219.method_get (enumerator_105380.current_lkey (HERE), var_rData_105480, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3369)) ; + var_equal_105266 = var_equal_105266.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_105380.current_value (HERE).ptr (), var_rData_105480, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3370)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3370)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3370)) ; } } if (kBoolFalse == test_3) { - var_equal_105808 = GALGAS_bool (false) ; + var_equal_105266 = GALGAS_bool (false) ; } - enumerator_105922.gotoNextObject () ; + enumerator_105380.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3385)), var_equal_105808 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3385)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3376)), var_equal_105266 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3376)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3387)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3378)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -7783,7 +7773,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_gtOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3392)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3383)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7801,7 +7791,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_geOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3395)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3386)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7819,7 +7809,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_ltOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3398)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3389)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7837,7 +7827,7 @@ GALGAS_gtlData cPtr_gtlStruct::getter_leOp (const GALGAS_gtlData /* constinArgum COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3401)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3392)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7854,7 +7844,7 @@ GALGAS_type cPtr_gtlStruct::getter_embeddedType (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_type result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3406)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("struct forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3397)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -7870,7 +7860,7 @@ GALGAS_type cPtr_gtlStruct::getter_embeddedType (C_Compiler * inCompiler void cPtr_gtlStruct::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3411)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3411)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3402)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3402)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -7890,9 +7880,9 @@ GALGAS_gtlData cPtr_gtlStruct::getter_performGetter (const GALGAS_lstring consti test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("map").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3425)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3425)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3416)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3416)) ; } - result_result = GALGAS_gtlMap::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3428)), this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3426)) ; + result_result = GALGAS_gtlMap::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3419)), this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3417)) ; } } if (kBoolFalse == test_0) { @@ -7901,10 +7891,10 @@ GALGAS_gtlData cPtr_gtlStruct::getter_performGetter (const GALGAS_lstring consti test_1 = GALGAS_bool (kIsEqual, GALGAS_string ("type").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_1) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3432)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3432)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3423)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3423)) ; } const GALGAS_gtlStruct temp_2 = this ; - result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3434)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3434)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3433)) ; + result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3425)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3425)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3424)) ; } } if (kBoolFalse == test_1) { @@ -7913,9 +7903,9 @@ GALGAS_gtlData cPtr_gtlStruct::getter_performGetter (const GALGAS_lstring consti test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3437)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3437)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3428)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3428)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3439)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3438)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3430)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3429)) ; } } if (kBoolFalse == test_3) { @@ -7924,18 +7914,18 @@ GALGAS_gtlData cPtr_gtlStruct::getter_performGetter (const GALGAS_lstring consti test_4 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_4) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3442)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3442)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3433)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3433)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3444)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3443)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3435)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3434)) ; } } if (kBoolFalse == test_4) { enumGalgasBool test_5 = kBoolTrue ; if (kBoolTrue == test_5) { - test_5 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3446)).boolEnum () ; + test_5 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3437)).boolEnum () ; if (kBoolTrue == test_5) { const GALGAS_gtlStruct temp_6 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3447)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_6, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3447)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3438)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_6, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3438)) ; } } if (kBoolFalse == test_5) { @@ -7944,14 +7934,14 @@ GALGAS_gtlData cPtr_gtlStruct::getter_performGetter (const GALGAS_lstring consti test_7 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_7) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3455)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3455)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3446)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3446)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3457)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3457)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3456)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3448)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3448)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3447)) ; } } if (kBoolFalse == test_7) { TC_Array fixItArray8 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3460)).add_operation (GALGAS_string ("' for struct target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3460)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3460)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3451)).add_operation (GALGAS_string ("' for struct target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3451)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3451)) ; result_result.drop () ; // Release error dropped variable } } @@ -7984,19 +7974,19 @@ static void extensionSetter_gtlStruct_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3475)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3475)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3466)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3466)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3476)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3476)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3476)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3467)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3467)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3467)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3476)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3476)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3467)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3467)) ; } } - GALGAS_gtlString var_descriptionToSet_109144 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_108602 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_109144.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3477)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3477)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_108602.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3468)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3468)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -8007,7 +7997,7 @@ static void extensionSetter_gtlStruct_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3480)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3480)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3471)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3471)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -8015,27 +8005,27 @@ static void extensionSetter_gtlStruct_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_2) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3482)).boolEnum () ; + test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3473)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlStruct temp_4 = object ; - GALGAS_gtlData var_copy_109454 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3484)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_109454, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3484)) ; + GALGAS_gtlData var_copy_108912 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("struct"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3475)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_108912, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3475)) ; GALGAS_gtlStruct temp_5 ; - if (var_copy_109454.isValid ()) { - if (nullptr != dynamic_cast (var_copy_109454.ptr ())) { - temp_5 = (cPtr_gtlStruct *) var_copy_109454.ptr () ; + if (var_copy_108912.isValid ()) { + if (nullptr != dynamic_cast (var_copy_108912.ptr ())) { + temp_5 = (cPtr_gtlStruct *) var_copy_108912.ptr () ; }else{ - inCompiler->castError ("gtlStruct", var_copy_109454.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3491)) ; + inCompiler->castError ("gtlStruct", var_copy_108912.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3482)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_109454.readProperty_where () ; - object->mProperty_meta = var_copy_109454.readProperty_meta () ; + object->mProperty_where = var_copy_108912.readProperty_where () ; + object->mProperty_meta = var_copy_108912.readProperty_meta () ; } } if (kBoolFalse == test_3) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3495)).add_operation (GALGAS_string ("' for struct target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3495)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3495)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3486)).add_operation (GALGAS_string ("' for struct target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3486)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3486)) ; } } } @@ -8064,14 +8054,14 @@ void cPtr_gtlStruct::method_structField (const GALGAS_lstring constinArgument_na COMMA_UNUSED_LOCATION_ARGS) { enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { - test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3507)).boolEnum () ; + test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3498)).boolEnum () ; if (kBoolTrue == test_0) { - this->mProperty_value.method_get (constinArgument_name, outArgument_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3508)) ; + this->mProperty_value.method_get (constinArgument_name, outArgument_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3499)) ; outArgument_found = GALGAS_bool (true) ; } } if (kBoolFalse == test_0) { - outArgument_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3511)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3511)) ; + outArgument_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3502)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3502)) ; outArgument_found = GALGAS_bool (false) ; } } @@ -8087,13 +8077,13 @@ GALGAS_gtlData cPtr_gtlStruct::getter_resultField (const GALGAS_lstring constinA GALGAS_gtlData result_result ; // Returned variable enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { - test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3520)).boolEnum () ; + test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3511)).boolEnum () ; if (kBoolTrue == test_0) { - this->mProperty_value.method_get (constinArgument_name, result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3521)) ; + this->mProperty_value.method_get (constinArgument_name, result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3512)) ; } } if (kBoolFalse == test_0) { - result_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3523)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3523)) ; + result_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3514)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3514)) ; } //--- return result_result ; @@ -8110,7 +8100,7 @@ GALGAS_bool cPtr_gtlStruct::getter_hasStructField (const GALGAS_lstring constinA C_Compiler */* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable - result_result = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3534)) ; + result_result = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3525)) ; //--- return result_result ; } @@ -8130,7 +8120,7 @@ static void extensionSetter_gtlStruct_setStructField (cPtr_gtlData * inObject, cPtr_gtlStruct * object = (cPtr_gtlStruct *) inObject ; macroValidSharedObject (object, cPtr_gtlStruct) ; { - extensionSetter_replaceOrCreate (object->mProperty_value, constinArgument_name, constinArgument_data, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3544)) ; + extensionSetter_replaceOrCreate (object->mProperty_value, constinArgument_name, constinArgument_data, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3535)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -8159,7 +8149,7 @@ static void extensionSetter_gtlStruct_setStructFieldAtLevel (cPtr_gtlData * inOb cPtr_gtlStruct * object = (cPtr_gtlStruct *) inObject ; macroValidSharedObject (object, cPtr_gtlStruct) ; { - extensionSetter_replaceOrCreateAtLevel (object->mProperty_value, constinArgument_name, constinArgument_data, constinArgument_level, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3555)) ; + extensionSetter_replaceOrCreateAtLevel (object->mProperty_value, constinArgument_name, constinArgument_data, constinArgument_level, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3546)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -8186,8 +8176,8 @@ static void extensionSetter_gtlStruct_deleteStructField (cPtr_gtlData * inObject cPtr_gtlStruct * object = (cPtr_gtlStruct *) inObject ; macroValidSharedObject (object, cPtr_gtlStruct) ; { - GALGAS_gtlData joker_111766 ; // Joker input parameter - object->mProperty_value.setter_del (constinArgument_name, joker_111766, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3564)) ; + GALGAS_gtlData joker_111224 ; // Joker input parameter + object->mProperty_value.setter_del (constinArgument_name, joker_111224, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3555)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -8211,15 +8201,15 @@ GALGAS_string cPtr_gtlList::getter_desc (const GALGAS_uint constinArgument_tab, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3576)).add_operation (GALGAS_string ("list: @(\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3576)) ; - cEnumerator_list enumerator_112170 (this->mProperty_value, kENUMERATION_UP) ; - GALGAS_uint index_112166 ((uint32_t) 0) ; - while (enumerator_112170.hasCurrentObject ()) { - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3579)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3579)).add_operation (index_112166.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3580)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3579)).add_operation (GALGAS_string (" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3580)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_112170.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3581)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3581)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3580)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3579)) ; - enumerator_112170.gotoNextObject () ; - index_112166.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3578)) ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3567)).add_operation (GALGAS_string ("list: @(\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3567)) ; + cEnumerator_list enumerator_111628 (this->mProperty_value, kENUMERATION_UP) ; + GALGAS_uint index_111624 ((uint32_t) 0) ; + while (enumerator_111628.hasCurrentObject ()) { + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3570)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3570)).add_operation (index_111624.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3571)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3570)).add_operation (GALGAS_string (" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3571)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_111628.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3572)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3572)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3571)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3570)) ; + enumerator_111628.gotoNextObject () ; + index_111624.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3569)) ; } - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3583)).add_operation (GALGAS_string (")\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3583)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3583)) ; + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3574)).add_operation (GALGAS_string (")\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3574)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3574)) ; //--- return result_result ; } @@ -8235,7 +8225,7 @@ GALGAS_string cPtr_gtlList::getter_string (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3587)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3578)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8252,7 +8242,7 @@ GALGAS_lstring cPtr_gtlList::getter_lstring (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3591)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3582)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8269,7 +8259,7 @@ GALGAS_bool cPtr_gtlList::getter_bool (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3595)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3586)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8286,7 +8276,7 @@ GALGAS_bigint cPtr_gtlList::getter_int (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bigint result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3599)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3590)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8303,7 +8293,7 @@ GALGAS_double cPtr_gtlList::getter_float (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_double result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3603)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a list to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3594)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8320,7 +8310,7 @@ GALGAS_gtlData cPtr_gtlList::getter_plusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3607)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3598)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8337,7 +8327,7 @@ GALGAS_gtlData cPtr_gtlList::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3611)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3602)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8354,7 +8344,7 @@ GALGAS_gtlData cPtr_gtlList::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3615)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3606)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8371,9 +8361,9 @@ GALGAS_gtlData cPtr_gtlList::getter_addOp (const GALGAS_gtlData constinArgument_ C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable - GALGAS_list var_res_113297 = this->mProperty_value ; - var_res_113297.addAssign_operation (constinArgument_right COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3620)) ; - result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3621)), var_res_113297 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3621)) ; + GALGAS_list var_res_112755 = this->mProperty_value ; + var_res_112755.addAssign_operation (constinArgument_right COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3611)) ; + result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3612)), var_res_112755 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3612)) ; //--- return result_result ; } @@ -8390,7 +8380,7 @@ GALGAS_gtlData cPtr_gtlList::getter_subOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3625)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3616)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8408,7 +8398,7 @@ GALGAS_gtlData cPtr_gtlList::getter_mulOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3629)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3620)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8426,7 +8416,7 @@ GALGAS_gtlData cPtr_gtlList::getter_divOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3633)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3624)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8444,7 +8434,7 @@ GALGAS_gtlData cPtr_gtlList::getter_modOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3637)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3628)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8462,7 +8452,7 @@ GALGAS_gtlData cPtr_gtlList::getter_andOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3641)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3632)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8488,15 +8478,15 @@ GALGAS_gtlData cPtr_gtlList::getter_orOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlList *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3649)) ; + inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3640)) ; } } - result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3648)), this->mProperty_value.add_operation (temp_1.readProperty_value (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3649)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3646)) ; + result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3639)), this->mProperty_value.add_operation (temp_1.readProperty_value (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3640)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3637)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3652)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3643)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -8515,7 +8505,7 @@ GALGAS_gtlData cPtr_gtlList::getter_xorOp (const GALGAS_gtlData /* constinArgume COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3657)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3648)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8533,7 +8523,7 @@ GALGAS_gtlData cPtr_gtlList::getter_slOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3661)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3652)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8551,7 +8541,7 @@ GALGAS_gtlData cPtr_gtlList::getter_srOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3665)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3656)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8577,34 +8567,34 @@ GALGAS_gtlData cPtr_gtlList::getter_neqOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlList *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3670)) ; + inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3661)) ; } } - GALGAS_list var_rValue_114776 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_114821 ; + GALGAS_list var_rValue_114234 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_114279 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3672)).objectCompare (var_rValue_114776.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3672)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3663)).objectCompare (var_rValue_114234.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3663)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_114821 = GALGAS_bool (false) ; + var_equal_114279 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_114821 = GALGAS_bool (true) ; - cEnumerator_list enumerator_114932 (this->mProperty_value, kENUMERATION_UP) ; - cEnumerator_list enumerator_114949 (var_rValue_114776, kENUMERATION_UP) ; - while (enumerator_114932.hasCurrentObject () && enumerator_114949.hasCurrentObject ()) { - var_equal_114821 = var_equal_114821.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_114932.current_value (HERE).ptr (), enumerator_114949.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3677)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3677)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3677)) ; - enumerator_114932.gotoNextObject () ; - enumerator_114949.gotoNextObject () ; + var_equal_114279 = GALGAS_bool (true) ; + cEnumerator_list enumerator_114390 (this->mProperty_value, kENUMERATION_UP) ; + cEnumerator_list enumerator_114407 (var_rValue_114234, kENUMERATION_UP) ; + while (enumerator_114390.hasCurrentObject () && enumerator_114407.hasCurrentObject ()) { + var_equal_114279 = var_equal_114279.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_114390.current_value (HERE).ptr (), enumerator_114407.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3668)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3668)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3668)) ; + enumerator_114390.gotoNextObject () ; + enumerator_114407.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3680)), var_equal_114821.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3680)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3680)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3671)), var_equal_114279.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 3671)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3671)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3682)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3673)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -8631,34 +8621,34 @@ GALGAS_gtlData cPtr_gtlList::getter_eqOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlList *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3688)) ; + inCompiler->castError ("gtlList", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3679)) ; } } - GALGAS_list var_rValue_115277 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_115322 ; + GALGAS_list var_rValue_114735 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_114780 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3690)).objectCompare (var_rValue_115277.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3690)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3681)).objectCompare (var_rValue_114735.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3681)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_115322 = GALGAS_bool (false) ; + var_equal_114780 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_115322 = GALGAS_bool (true) ; - cEnumerator_list enumerator_115433 (this->mProperty_value, kENUMERATION_UP) ; - cEnumerator_list enumerator_115450 (var_rValue_115277, kENUMERATION_UP) ; - while (enumerator_115433.hasCurrentObject () && enumerator_115450.hasCurrentObject ()) { - var_equal_115322 = var_equal_115322.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_115433.current_value (HERE).ptr (), enumerator_115450.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3695)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3695)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3695)) ; - enumerator_115433.gotoNextObject () ; - enumerator_115450.gotoNextObject () ; + var_equal_114780 = GALGAS_bool (true) ; + cEnumerator_list enumerator_114891 (this->mProperty_value, kENUMERATION_UP) ; + cEnumerator_list enumerator_114908 (var_rValue_114735, kENUMERATION_UP) ; + while (enumerator_114891.hasCurrentObject () && enumerator_114908.hasCurrentObject ()) { + var_equal_114780 = var_equal_114780.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_114891.current_value (HERE).ptr (), enumerator_114908.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3686)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3686)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3686)) ; + enumerator_114891.gotoNextObject () ; + enumerator_114908.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3698)), var_equal_115322 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3698)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3689)), var_equal_114780 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3689)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray3 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3700)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("list expected"), fixItArray3 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3691)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -8677,7 +8667,7 @@ GALGAS_gtlData cPtr_gtlList::getter_gtOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the > operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3705)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the > operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3696)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8695,7 +8685,7 @@ GALGAS_gtlData cPtr_gtlList::getter_geOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the >= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3709)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the >= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3700)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8713,7 +8703,7 @@ GALGAS_gtlData cPtr_gtlList::getter_ltOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the < operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3713)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the < operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3704)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8731,7 +8721,7 @@ GALGAS_gtlData cPtr_gtlList::getter_leOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the <= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3717)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a list does not support the <= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3708)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8748,7 +8738,7 @@ GALGAS_type cPtr_gtlList::getter_embeddedType (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_type result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3722)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("list forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3713)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -8764,7 +8754,7 @@ GALGAS_type cPtr_gtlList::getter_embeddedType (C_Compiler * inCompiler void cPtr_gtlList::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3727)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3727)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 3718)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3718)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -8784,9 +8774,9 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("length").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3741)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3741)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3732)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3732)) ; } - result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3744)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3745)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 3745)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3742)) ; + result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3735)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3736)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 3736)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3733)) ; } } if (kBoolFalse == test_0) { @@ -8795,9 +8785,9 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_1 = GALGAS_bool (kIsEqual, GALGAS_string ("first").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_1) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3748)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3748)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3739)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3739)) ; } - this->mProperty_value.method_first (result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3749)) ; + this->mProperty_value.method_first (result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3740)) ; } } if (kBoolFalse == test_1) { @@ -8806,9 +8796,9 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("last").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3751)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3751)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3742)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3742)) ; } - this->mProperty_value.method_last (result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3752)) ; + this->mProperty_value.method_last (result_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3743)) ; } } if (kBoolFalse == test_2) { @@ -8817,19 +8807,19 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("elementAtIndex").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3754)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3754)) ; + routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3745)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3745)) ; } - GALGAS_uint var_index_117474 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3755)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3755)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3755)) ; + GALGAS_uint var_index_116932 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3746)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3746)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3746)) ; enumGalgasBool test_4 = kBoolTrue ; if (kBoolTrue == test_4) { - test_4 = GALGAS_bool (kIsStrictInf, var_index_117474.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3756)))).boolEnum () ; + test_4 = GALGAS_bool (kIsStrictInf, var_index_116932.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3747)))).boolEnum () ; if (kBoolTrue == test_4) { - result_result = this->mProperty_value.getter_valueAtIndex (var_index_117474, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3757)) ; + result_result = this->mProperty_value.getter_valueAtIndex (var_index_116932, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3748)) ; } } if (kBoolFalse == test_4) { TC_Array fixItArray5 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("index out of bounds"), fixItArray5 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3759)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("index out of bounds"), fixItArray5 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3750)) ; result_result.drop () ; // Release error dropped variable } } @@ -8840,14 +8830,14 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_6 = GALGAS_bool (kIsEqual, GALGAS_string ("subListTo").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_6) { { - routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3762)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3762)) ; + routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3753)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3753)) ; } - GALGAS_uint var_index_117790 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3763)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3763)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3763)) ; + GALGAS_uint var_index_117248 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3754)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3754)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3754)) ; enumGalgasBool test_7 = kBoolTrue ; if (kBoolTrue == test_7) { - test_7 = GALGAS_bool (kIsStrictInf, var_index_117790.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3764)))).boolEnum () ; + test_7 = GALGAS_bool (kIsStrictInf, var_index_117248.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3755)))).boolEnum () ; if (kBoolTrue == test_7) { - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3767)), this->mProperty_value.getter_subListToIndex (var_index_117790, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3768)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3765)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3758)), this->mProperty_value.getter_subListToIndex (var_index_117248, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3759)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3756)) ; } } if (kBoolFalse == test_7) { @@ -8862,18 +8852,18 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_9 = GALGAS_bool (kIsEqual, GALGAS_string ("subListFrom").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_9) { { - routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3774)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3774)) ; + routine_argumentsCheck (constinArgument_methodName, function_intArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3765)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3765)) ; } - GALGAS_uint var_index_118148 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3775)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3775)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3775)) ; + GALGAS_uint var_index_117606 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3766)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3766)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3766)) ; enumGalgasBool test_10 = kBoolTrue ; if (kBoolTrue == test_10) { - test_10 = GALGAS_bool (kIsStrictInf, var_index_118148.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3776)))).boolEnum () ; + test_10 = GALGAS_bool (kIsStrictInf, var_index_117606.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3767)))).boolEnum () ; if (kBoolTrue == test_10) { - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3779)), this->mProperty_value.getter_subListFromIndex (var_index_118148, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3780)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3777)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3770)), this->mProperty_value.getter_subListFromIndex (var_index_117606, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3771)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3768)) ; } } if (kBoolFalse == test_10) { - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3785)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3786)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3783)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3776)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3777)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3774)) ; } } } @@ -8883,26 +8873,26 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_11 = GALGAS_bool (kIsEqual, GALGAS_string ("subList").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_11) { { - routine_argumentsCheck (constinArgument_methodName, function_intIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3790)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3790)) ; + routine_argumentsCheck (constinArgument_methodName, function_intIntArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3781)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3781)) ; } - GALGAS_uint var_start_118594 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3791)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3791)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3791)) ; - GALGAS_uint var_length_118646 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3792)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3792)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3792)) ; + GALGAS_uint var_start_118052 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3782)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3782)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3782)) ; + GALGAS_uint var_length_118104 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3783)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3783)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3783)) ; enumGalgasBool test_12 = kBoolTrue ; if (kBoolTrue == test_12) { - test_12 = GALGAS_bool (kIsStrictInf, var_start_118594.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3793)))).boolEnum () ; + test_12 = GALGAS_bool (kIsStrictInf, var_start_118052.objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3784)))).boolEnum () ; if (kBoolTrue == test_12) { enumGalgasBool test_13 = kBoolTrue ; if (kBoolTrue == test_13) { - test_13 = GALGAS_bool (kIsStrictSup, var_start_118594.add_operation (var_length_118646, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3794)).objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3794)))).boolEnum () ; + test_13 = GALGAS_bool (kIsStrictSup, var_start_118052.add_operation (var_length_118104, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3785)).objectCompare (this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3785)))).boolEnum () ; if (kBoolTrue == test_13) { - var_length_118646 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3795)).substract_operation (var_start_118594, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3795)) ; + var_length_118104 = this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3786)).substract_operation (var_start_118052, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3786)) ; } } - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3799)), this->mProperty_value.getter_subListWithRange (GALGAS_range::constructor_new (var_start_118594, var_length_118646 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3800)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3800)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3797)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3790)), this->mProperty_value.getter_subListWithRange (GALGAS_range::constructor_new (var_start_118052, var_length_118104 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3791)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3791)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3788)) ; } } if (kBoolFalse == test_12) { - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3805)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3806)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3803)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3796)), GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3797)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3794)) ; } } } @@ -8912,58 +8902,58 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_14 = GALGAS_bool (kIsEqual, GALGAS_string ("mapBy").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_14) { { - routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3810)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3810)) ; + routine_argumentsCheck (constinArgument_methodName, function_anyArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3801)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3801)) ; } - GALGAS_lstring var_key_119212 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3811)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3811)) ; - GALGAS_gtlVarMap var_resultMap_119270 = GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3812)) ; + GALGAS_lstring var_key_118670 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3802)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3802)) ; + GALGAS_gtlVarMap var_resultMap_118728 = GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3803)) ; const GALGAS_gtlList temp_15 = this ; - cEnumerator_list enumerator_119301 (temp_15.readProperty_value (), kENUMERATION_UP) ; - GALGAS_uint index_119296 ((uint32_t) 0) ; - while (enumerator_119301.hasCurrentObject ()) { - if (enumerator_119301.current_value (HERE).isValid ()) { - if (enumerator_119301.current_value (HERE).dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlStruct) { - GALGAS_gtlStruct cast_119375_itemStruct ((cPtr_gtlStruct *) enumerator_119301.current_value (HERE).ptr ()) ; + cEnumerator_list enumerator_118759 (temp_15.readProperty_value (), kENUMERATION_UP) ; + GALGAS_uint index_118754 ((uint32_t) 0) ; + while (enumerator_118759.hasCurrentObject ()) { + if (enumerator_118759.current_value (HERE).isValid ()) { + if (enumerator_118759.current_value (HERE).dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlStruct) { + GALGAS_gtlStruct cast_118833_itemStruct ((cPtr_gtlStruct *) enumerator_118759.current_value (HERE).ptr ()) ; enumGalgasBool test_16 = kBoolTrue ; if (kBoolTrue == test_16) { - test_16 = cast_119375_itemStruct.readProperty_value ().getter_hasKey (var_key_119212.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3816)).boolEnum () ; + test_16 = cast_118833_itemStruct.readProperty_value ().getter_hasKey (var_key_118670.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3807)).boolEnum () ; if (kBoolTrue == test_16) { - GALGAS_gtlData var_keyValue_119498 ; - cast_119375_itemStruct.readProperty_value ().method_get (var_key_119212, var_keyValue_119498, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3817)) ; + GALGAS_gtlData var_keyValue_118956 ; + cast_118833_itemStruct.readProperty_value ().method_get (var_key_118670, var_keyValue_118956, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3808)) ; { - var_resultMap_119270.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) var_keyValue_119498.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3819)), enumerator_119301.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3818)) ; + var_resultMap_118728.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) var_keyValue_118956.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3810)), enumerator_118759.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3809)) ; } } } if (kBoolFalse == test_16) { TC_Array fixItArray17 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("item at index ").add_operation (index_119296.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3823)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3823)).add_operation (GALGAS_string (" does not have field named "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3823)).add_operation (var_key_119212.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3824)), fixItArray17 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3823)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("item at index ").add_operation (index_118754.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3814)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3814)).add_operation (GALGAS_string (" does not have field named "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3814)).add_operation (var_key_118670.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3815)), fixItArray17 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3814)) ; } - }else if (enumerator_119301.current_value (HERE).dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlMap) { - GALGAS_gtlMap cast_119748_itemMap ((cPtr_gtlMap *) enumerator_119301.current_value (HERE).ptr ()) ; + }else if (enumerator_118759.current_value (HERE).dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlMap) { + GALGAS_gtlMap cast_119206_itemMap ((cPtr_gtlMap *) enumerator_118759.current_value (HERE).ptr ()) ; enumGalgasBool test_18 = kBoolTrue ; if (kBoolTrue == test_18) { - test_18 = cast_119748_itemMap.readProperty_value ().getter_hasKey (var_key_119212.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3827)).boolEnum () ; + test_18 = cast_119206_itemMap.readProperty_value ().getter_hasKey (var_key_118670.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3818)).boolEnum () ; if (kBoolTrue == test_18) { - GALGAS_gtlData var_keyValue_119862 ; - cast_119748_itemMap.readProperty_value ().method_get (var_key_119212, var_keyValue_119862, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3828)) ; + GALGAS_gtlData var_keyValue_119320 ; + cast_119206_itemMap.readProperty_value ().method_get (var_key_118670, var_keyValue_119320, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3819)) ; { - var_resultMap_119270.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) var_keyValue_119862.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3830)), enumerator_119301.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3829)) ; + var_resultMap_118728.setter_put (callExtensionGetter_lstring ((const cPtr_gtlData *) var_keyValue_119320.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3821)), enumerator_118759.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3820)) ; } } } if (kBoolFalse == test_18) { TC_Array fixItArray19 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("item at index ").add_operation (index_119296.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3834)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3834)).add_operation (GALGAS_string (" does not have field named "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3834)).add_operation (var_key_119212.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3835)), fixItArray19 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3834)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("item at index ").add_operation (index_118754.getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3825)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3825)).add_operation (GALGAS_string (" does not have field named "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3825)).add_operation (var_key_118670.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3826)), fixItArray19 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3825)) ; } }else{ TC_Array fixItArray20 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("list of struct expected"), fixItArray20 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3838)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("list of struct expected"), fixItArray20 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3829)) ; } } - enumerator_119301.gotoNextObject () ; - index_119296.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3813)) ; + enumerator_118759.gotoNextObject () ; + index_118754.increment_operation (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3804)) ; } - result_result = GALGAS_gtlMap::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3841)), var_resultMap_119270 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3841)) ; + result_result = GALGAS_gtlMap::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3832)), var_resultMap_118728 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3832)) ; } } if (kBoolFalse == test_14) { @@ -8972,27 +8962,27 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_21 = GALGAS_bool (kIsEqual, GALGAS_string ("set").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_21) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3843)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3843)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3834)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3834)) ; } - GALGAS_lstringset var_resultSet_120360 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3844)) ; - cEnumerator_list enumerator_120391 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_120391.hasCurrentObject ()) { - GALGAS_lstring var_itemKey_120428 = callExtensionGetter_lstring ((const cPtr_gtlData *) enumerator_120391.current_value (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3846)) ; + GALGAS_lstringset var_resultSet_119818 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3835)) ; + cEnumerator_list enumerator_119849 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_119849.hasCurrentObject ()) { + GALGAS_lstring var_itemKey_119886 = callExtensionGetter_lstring ((const cPtr_gtlData *) enumerator_119849.current_value (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3837)) ; enumGalgasBool test_22 = kBoolTrue ; if (kBoolTrue == test_22) { - test_22 = var_resultSet_120360.getter_hasKey (var_itemKey_120428.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3847)).boolEnum () ; + test_22 = var_resultSet_119818.getter_hasKey (var_itemKey_119886.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3838)).boolEnum () ; if (kBoolTrue == test_22) { { - var_resultSet_120360.setter_del (var_itemKey_120428, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3848)) ; + var_resultSet_119818.setter_del (var_itemKey_119886, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3839)) ; } } } { - var_resultSet_120360.setter_put (var_itemKey_120428, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3850)) ; + var_resultSet_119818.setter_put (var_itemKey_119886, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3841)) ; } - enumerator_120391.gotoNextObject () ; + enumerator_119849.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3853)), var_resultSet_120360 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3852)) ; + result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3844)), var_resultSet_119818 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3843)) ; } } if (kBoolFalse == test_21) { @@ -9001,31 +8991,31 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_23 = GALGAS_bool (kIsEqual, GALGAS_string ("setBy").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_23) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3856)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3856)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3847)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3847)) ; } - GALGAS_lstring var_key_120791 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3857)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3857)) ; - GALGAS_lstringset var_resultSet_120850 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3858)) ; - cEnumerator_list enumerator_120881 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_120881.hasCurrentObject ()) { - GALGAS_gtlData var_field_120942 ; - GALGAS_bool joker_120948 ; // Joker input parameter - callExtensionMethod_structField ((cPtr_gtlData *) enumerator_120881.current_value (HERE).ptr (), var_key_120791, var_field_120942, joker_120948, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3860)) ; - GALGAS_lstring var_resKey_120971 = callExtensionGetter_lstring ((const cPtr_gtlData *) var_field_120942.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3861)) ; + GALGAS_lstring var_key_120249 = callExtensionGetter_lstring ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3848)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3848)) ; + GALGAS_lstringset var_resultSet_120308 = GALGAS_lstringset::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3849)) ; + cEnumerator_list enumerator_120339 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_120339.hasCurrentObject ()) { + GALGAS_gtlData var_field_120400 ; + GALGAS_bool joker_120406 ; // Joker input parameter + callExtensionMethod_structField ((cPtr_gtlData *) enumerator_120339.current_value (HERE).ptr (), var_key_120249, var_field_120400, joker_120406, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3851)) ; + GALGAS_lstring var_resKey_120429 = callExtensionGetter_lstring ((const cPtr_gtlData *) var_field_120400.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3852)) ; enumGalgasBool test_24 = kBoolTrue ; if (kBoolTrue == test_24) { - test_24 = var_resultSet_120850.getter_hasKey (var_resKey_120971.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3862)).boolEnum () ; + test_24 = var_resultSet_120308.getter_hasKey (var_resKey_120429.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3853)).boolEnum () ; if (kBoolTrue == test_24) { { - var_resultSet_120850.setter_del (var_resKey_120971, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3863)) ; + var_resultSet_120308.setter_del (var_resKey_120429, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3854)) ; } } } { - var_resultSet_120850.setter_put (var_resKey_120971, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3865)) ; + var_resultSet_120308.setter_put (var_resKey_120429, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3856)) ; } - enumerator_120881.gotoNextObject () ; + enumerator_120339.gotoNextObject () ; } - result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3868)), var_resultSet_120850 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3867)) ; + result_result = GALGAS_gtlSet::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3859)), var_resultSet_120308 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3858)) ; } } if (kBoolFalse == test_23) { @@ -9034,19 +9024,19 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_25 = GALGAS_bool (kIsEqual, GALGAS_string ("componentsJoinedByString").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_25) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3871)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3871)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3862)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3862)) ; } - GALGAS_string var_joiner_121330 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3872)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3872)) ; - GALGAS_string var_stringResult_121387 = GALGAS_string::makeEmptyString () ; - cEnumerator_list enumerator_121414 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_121414.hasCurrentObject ()) { - var_stringResult_121387 = var_stringResult_121387.add_operation (callExtensionGetter_string ((const cPtr_gtlData *) enumerator_121414.current_value (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3876)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3876)) ; - if (enumerator_121414.hasNextObject ()) { - var_stringResult_121387 = var_stringResult_121387.add_operation (var_joiner_121330, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3878)) ; + GALGAS_string var_joiner_120788 = callExtensionGetter_string ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3863)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3863)) ; + GALGAS_string var_stringResult_120845 = GALGAS_string::makeEmptyString () ; + cEnumerator_list enumerator_120872 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_120872.hasCurrentObject ()) { + var_stringResult_120845 = var_stringResult_120845.add_operation (callExtensionGetter_string ((const cPtr_gtlData *) enumerator_120872.current_value (HERE).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3867)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3867)) ; + if (enumerator_120872.hasNextObject ()) { + var_stringResult_120845 = var_stringResult_120845.add_operation (var_joiner_120788, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3869)) ; } - enumerator_121414.gotoNextObject () ; + enumerator_120872.gotoNextObject () ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3881)), var_stringResult_121387 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3880)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3872)), var_stringResult_120845 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3871)) ; } } if (kBoolFalse == test_25) { @@ -9055,10 +9045,10 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_26 = GALGAS_bool (kIsEqual, GALGAS_string ("type").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_26) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3884)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3884)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3875)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3875)) ; } const GALGAS_gtlList temp_27 = this ; - result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3886)), temp_27.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3886)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3885)) ; + result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3877)), temp_27.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3877)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3876)) ; } } if (kBoolFalse == test_26) { @@ -9067,9 +9057,9 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_28 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_28) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3889)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3889)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3880)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3880)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3891)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3890)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3882)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3881)) ; } } if (kBoolFalse == test_28) { @@ -9078,9 +9068,9 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_29 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_29) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3894)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3894)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3885)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3885)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3896)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3895)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3887)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3886)) ; } } if (kBoolFalse == test_29) { @@ -9090,82 +9080,82 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA if (kBoolTrue == test_30) { enumGalgasBool test_31 = kBoolTrue ; if (kBoolTrue == test_31) { - test_31 = GALGAS_bool (kIsStrictInf, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3899)).objectCompare (GALGAS_uint (uint32_t (1U)))).operator_or (GALGAS_bool (kIsStrictSup, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3899)).objectCompare (GALGAS_uint (uint32_t (2U)))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3899)).boolEnum () ; + test_31 = GALGAS_bool (kIsStrictInf, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3890)).objectCompare (GALGAS_uint (uint32_t (1U)))).operator_or (GALGAS_bool (kIsStrictSup, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3890)).objectCompare (GALGAS_uint (uint32_t (2U)))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3890)).boolEnum () ; if (kBoolTrue == test_31) { TC_Array fixItArray32 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("where expects 1 ou 2 arguments. ").add_operation (constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3901)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3900)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3900)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3901)), fixItArray32 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3900)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("where expects 1 ou 2 arguments. ").add_operation (constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3892)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 3891)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3891)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3892)), fixItArray32 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3891)) ; result_result.drop () ; // Release error dropped variable } } if (kBoolFalse == test_31) { enumGalgasBool test_33 = kBoolTrue ; if (kBoolTrue == test_33) { - test_33 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3903)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3903)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlExpr))).boolEnum () ; + test_33 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3894)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3894)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlExpr))).boolEnum () ; if (kBoolTrue == test_33) { TC_Array fixItArray34 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("expression expected for argument 1"), fixItArray34 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3904)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("expression expected for argument 1"), fixItArray34 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3895)) ; result_result.drop () ; // Release error dropped variable } } if (kBoolFalse == test_33) { - GALGAS_gtlStruct var_vars_122617 ; + GALGAS_gtlStruct var_vars_122075 ; enumGalgasBool test_35 = kBoolTrue ; if (kBoolTrue == test_35) { - test_35 = GALGAS_bool (kIsEqual, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3907)).objectCompare (GALGAS_uint (uint32_t (2U)))).boolEnum () ; + test_35 = GALGAS_bool (kIsEqual, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3898)).objectCompare (GALGAS_uint (uint32_t (2U)))).boolEnum () ; if (kBoolTrue == test_35) { enumGalgasBool test_36 = kBoolTrue ; if (kBoolTrue == test_36) { - test_36 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3908)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3908)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlStruct))).boolEnum () ; + test_36 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3899)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 3899)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlStruct))).boolEnum () ; if (kBoolTrue == test_36) { TC_Array fixItArray37 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("struct expected for argument 1"), fixItArray37 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3909)) ; - var_vars_122617.drop () ; // Release error dropped variable + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("struct expected for argument 1"), fixItArray37 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3900)) ; + var_vars_122075.drop () ; // Release error dropped variable } } if (kBoolFalse == test_36) { GALGAS_gtlStruct temp_38 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)).ptr ())) { - temp_38 = (cPtr_gtlStruct *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3902)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3902)).ptr ())) { + temp_38 = (cPtr_gtlStruct *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3902)).ptr () ; }else{ - inCompiler->castError ("gtlStruct", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)) ; + inCompiler->castError ("gtlStruct", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3902)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3902)) ; } } - var_vars_122617 = temp_38 ; + var_vars_122075 = temp_38 ; } } } if (kBoolFalse == test_35) { - var_vars_122617 = GALGAS_gtlStruct::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3914)), GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3914)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3914)) ; + var_vars_122075 = GALGAS_gtlStruct::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3905)), GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 3905)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3905)) ; } GALGAS_gtlExpr temp_39 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3916)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3916)).ptr ())) { - temp_39 = (cPtr_gtlExpr *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3916)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3907)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3907)).ptr ())) { + temp_39 = (cPtr_gtlExpr *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3907)).ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3916)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3916)) ; + inCompiler->castError ("gtlExpr", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3907)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3907)) ; } } - GALGAS_gtlExpression var_expr_123008 = temp_39.readProperty_value () ; - GALGAS_list var_resultList_123076 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3917)) ; - cEnumerator_list enumerator_123113 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_123113.hasCurrentObject ()) { + GALGAS_gtlExpression var_expr_122466 = temp_39.readProperty_value () ; + GALGAS_list var_resultList_122534 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 3908)) ; + cEnumerator_list enumerator_122571 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_122571.hasCurrentObject ()) { { - var_vars_122617.insulate (HERE) ; - cPtr_gtlStruct * ptr_123152 = (cPtr_gtlStruct *) var_vars_122617.ptr () ; - callExtensionSetter_setStructField ((cPtr_gtlStruct *) ptr_123152, GALGAS_lstring::constructor_new (GALGAS_string ("__item__"), enumerator_123113.current_value (HERE).readProperty_where () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3920)), enumerator_123113.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3920)) ; + var_vars_122075.insulate (HERE) ; + cPtr_gtlStruct * ptr_122610 = (cPtr_gtlStruct *) var_vars_122075.ptr () ; + callExtensionSetter_setStructField ((cPtr_gtlStruct *) ptr_122610, GALGAS_lstring::constructor_new (GALGAS_string ("__item__"), enumerator_122571.current_value (HERE).readProperty_where () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)), enumerator_122571.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3911)) ; } - GALGAS_gtlData var_evalResult_123244 = callExtensionGetter_eval ((const cPtr_gtlExpression *) var_expr_123008.ptr (), constinArgument_context, var_vars_122617, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3921)) ; + GALGAS_gtlData var_evalResult_122702 = callExtensionGetter_eval ((const cPtr_gtlExpression *) var_expr_122466.ptr (), constinArgument_context, var_vars_122075, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3912)) ; enumGalgasBool test_40 = kBoolTrue ; if (kBoolTrue == test_40) { - test_40 = callExtensionGetter_bool ((const cPtr_gtlData *) var_evalResult_123244.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3922)).boolEnum () ; + test_40 = callExtensionGetter_bool ((const cPtr_gtlData *) var_evalResult_122702.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3913)).boolEnum () ; if (kBoolTrue == test_40) { - var_resultList_123076.addAssign_operation (enumerator_123113.current_value (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3923)) ; + var_resultList_122534.addAssign_operation (enumerator_122571.current_value (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3914)) ; } } - enumerator_123113.gotoNextObject () ; + enumerator_122571.gotoNextObject () ; } - result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3928)), var_resultList_123076 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3926)) ; + result_result = GALGAS_gtlList::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3919)), var_resultList_122534 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3917)) ; } } } @@ -9173,10 +9163,10 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA if (kBoolFalse == test_30) { enumGalgasBool test_41 = kBoolTrue ; if (kBoolTrue == test_41) { - test_41 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3933)).boolEnum () ; + test_41 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3924)).boolEnum () ; if (kBoolTrue == test_41) { const GALGAS_gtlList temp_42 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3934)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_42, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3934)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3925)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_42, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3925)) ; } } if (kBoolFalse == test_41) { @@ -9185,14 +9175,14 @@ GALGAS_gtlData cPtr_gtlList::getter_performGetter (const GALGAS_lstring constinA test_43 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_43) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3942)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3942)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3933)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3933)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3944)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3944)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3943)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3935)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3935)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3934)) ; } } if (kBoolFalse == test_43) { TC_Array fixItArray44 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3947)).add_operation (GALGAS_string ("' for list target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3947)), fixItArray44 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3947)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3938)).add_operation (GALGAS_string ("' for list target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3938)), fixItArray44 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3938)) ; result_result.drop () ; // Release error dropped variable } } @@ -9236,19 +9226,19 @@ static void extensionSetter_gtlList_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3962)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3962)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3953)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3953)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3954)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3954)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3954)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3954)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3954)) ; } } - GALGAS_gtlString var_descriptionToSet_124492 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_123950 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_124492.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3964)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3964)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_123950.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3955)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3955)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -9259,7 +9249,7 @@ static void extensionSetter_gtlList_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3967)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3967)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3958)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3958)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -9270,21 +9260,21 @@ static void extensionSetter_gtlList_performSetter (cPtr_gtlData * inObject, test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("insert").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_intAnyArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3970)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3970)) ; + routine_argumentsCheck (constinArgument_methodName, function_intAnyArguments (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3961)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3961)) ; } - GALGAS_uint var_insertIndex_124852 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3971)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3971)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3971)) ; - GALGAS_gtlData var_node_124916 = constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3972)) ; + GALGAS_uint var_insertIndex_124310 = callExtensionGetter_int ((const cPtr_gtlData *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3962)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3962)).getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3962)) ; + GALGAS_gtlData var_node_124374 = constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3963)) ; enumGalgasBool test_4 = kBoolTrue ; if (kBoolTrue == test_4) { - test_4 = GALGAS_bool (kIsStrictInf, var_insertIndex_124852.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3973)))).boolEnum () ; + test_4 = GALGAS_bool (kIsStrictInf, var_insertIndex_124310.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3964)))).boolEnum () ; if (kBoolTrue == test_4) { { - object->mProperty_value.setter_insertAtIndex (var_node_124916, var_insertIndex_124852, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3974)) ; + object->mProperty_value.setter_insertAtIndex (var_node_124374, var_insertIndex_124310, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3965)) ; } } } if (kBoolFalse == test_4) { - object->mProperty_value.addAssign_operation (var_node_124916 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3976)) ; + object->mProperty_value.addAssign_operation (var_node_124374 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3967)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -9292,27 +9282,27 @@ static void extensionSetter_gtlList_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_3) { enumGalgasBool test_5 = kBoolTrue ; if (kBoolTrue == test_5) { - test_5 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3979)).boolEnum () ; + test_5 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3970)).boolEnum () ; if (kBoolTrue == test_5) { const GALGAS_gtlList temp_6 = object ; - GALGAS_gtlData var_copy_125166 = temp_6 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3981)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_125166, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3981)) ; + GALGAS_gtlData var_copy_124624 = temp_6 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("list"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3972)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_124624, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3972)) ; GALGAS_gtlList temp_7 ; - if (var_copy_125166.isValid ()) { - if (nullptr != dynamic_cast (var_copy_125166.ptr ())) { - temp_7 = (cPtr_gtlList *) var_copy_125166.ptr () ; + if (var_copy_124624.isValid ()) { + if (nullptr != dynamic_cast (var_copy_124624.ptr ())) { + temp_7 = (cPtr_gtlList *) var_copy_124624.ptr () ; }else{ - inCompiler->castError ("gtlList", var_copy_125166.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3988)) ; + inCompiler->castError ("gtlList", var_copy_124624.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3979)) ; } } object->mProperty_value = temp_7.readProperty_value () ; - object->mProperty_where = var_copy_125166.readProperty_where () ; - object->mProperty_meta = var_copy_125166.readProperty_meta () ; + object->mProperty_where = var_copy_124624.readProperty_where () ; + object->mProperty_meta = var_copy_124624.readProperty_meta () ; } } if (kBoolFalse == test_5) { TC_Array fixItArray8 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3992)).add_operation (GALGAS_string ("' for list target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3992)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3992)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3983)).add_operation (GALGAS_string ("' for list target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3983)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3983)) ; } } } @@ -9343,7 +9333,7 @@ static void extensionSetter_gtlList_setItemAtIndex (cPtr_gtlData * inObject, cPtr_gtlList * object = (cPtr_gtlList *) inObject ; macroValidSharedObject (object, cPtr_gtlList) ; { - object->mProperty_value.setter_setValueAtIndex (constinArgument_data, constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4000)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4000)) ; + object->mProperty_value.setter_setValueAtIndex (constinArgument_data, constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3991)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3991)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -9369,28 +9359,28 @@ static void extensionSetter_gtlList_deleteItemAtIndex (cPtr_gtlData * inObject, COMMA_UNUSED_LOCATION_ARGS) { cPtr_gtlList * object = (cPtr_gtlList *) inObject ; macroValidSharedObject (object, cPtr_gtlList) ; - GALGAS_uint var_indexUint_125722 = constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4006)) ; + GALGAS_uint var_indexUint_125180 = constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 3997)) ; enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { - test_0 = GALGAS_bool (kIsStrictInf, var_indexUint_125722.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4007)))).boolEnum () ; + test_0 = GALGAS_bool (kIsStrictInf, var_indexUint_125180.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 3998)))).boolEnum () ; if (kBoolTrue == test_0) { enumGalgasBool test_1 = kBoolTrue ; if (kBoolTrue == test_1) { - test_1 = GALGAS_bool (kIsEqual, var_indexUint_125722.objectCompare (GALGAS_uint (uint32_t (0U)))).boolEnum () ; + test_1 = GALGAS_bool (kIsEqual, var_indexUint_125180.objectCompare (GALGAS_uint (uint32_t (0U)))).boolEnum () ; if (kBoolTrue == test_1) { - object->mProperty_value = object->mProperty_value.getter_subListFromIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4009)) ; + object->mProperty_value = object->mProperty_value.getter_subListFromIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4000)) ; } } if (kBoolFalse == test_1) { enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsEqual, var_indexUint_125722.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4010)).substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4010)))).boolEnum () ; + test_2 = GALGAS_bool (kIsEqual, var_indexUint_125180.objectCompare (object->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4001)).substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4001)))).boolEnum () ; if (kBoolTrue == test_2) { - object->mProperty_value = object->mProperty_value.getter_subListToIndex (var_indexUint_125722.substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4011)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4011)) ; + object->mProperty_value = object->mProperty_value.getter_subListToIndex (var_indexUint_125180.substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4002)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4002)) ; } } if (kBoolFalse == test_2) { - object->mProperty_value = object->mProperty_value.getter_subListToIndex (var_indexUint_125722.substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4013)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4013)).add_operation (object->mProperty_value.getter_subListFromIndex (var_indexUint_125722.add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4014)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4014)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4013)) ; + object->mProperty_value = object->mProperty_value.getter_subListToIndex (var_indexUint_125180.substract_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4004)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4004)).add_operation (object->mProperty_value.getter_subListFromIndex (var_indexUint_125180.add_operation (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4005)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4005)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4004)) ; } } } @@ -9417,7 +9407,7 @@ void cPtr_gtlList::method_itemAtIndex (GALGAS_gtlData & outArgument_data, const GALGAS_gtlInt constinArgument_index, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) { - outArgument_data = this->mProperty_value.getter_valueAtIndex (constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4023)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4023)) ; + outArgument_data = this->mProperty_value.getter_valueAtIndex (constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4014)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4014)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -9429,7 +9419,7 @@ GALGAS_bool cPtr_gtlList::getter_hasItemAtIndex (const GALGAS_gtlInt constinArgu C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable - result_result = GALGAS_bool (kIsStrictSup, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4030)).objectCompare (constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4030)))) ; + result_result = GALGAS_bool (kIsStrictSup, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4021)).objectCompare (constinArgument_index.readProperty_value ().getter_uint (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4021)))) ; //--- return result_result ; } @@ -9447,7 +9437,7 @@ static void extensionSetter_gtlList_appendItem (cPtr_gtlData * inObject, COMMA_UNUSED_LOCATION_ARGS) { cPtr_gtlList * object = (cPtr_gtlList *) inObject ; macroValidSharedObject (object, cPtr_gtlList) ; - object->mProperty_value.addAssign_operation (constinArgument_item COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4036)) ; + object->mProperty_value.addAssign_operation (constinArgument_item COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4027)) ; } //---------------------------------------------------------------------------------------------------------------------- @@ -9470,13 +9460,13 @@ GALGAS_string cPtr_gtlMap::getter_desc (const GALGAS_uint constinArgument_tab, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4048)).add_operation (GALGAS_string ("map: @[\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4048)) ; - cEnumerator_gtlVarMap enumerator_126839 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_126839.hasCurrentObject ()) { - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4051)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4051)).add_operation (GALGAS_string ("\""), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4051)).add_operation (enumerator_126839.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4052)).add_operation (GALGAS_string ("\" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4052)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_126839.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4053)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4053)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4052)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4051)) ; - enumerator_126839.gotoNextObject () ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4039)).add_operation (GALGAS_string ("map: @[\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4039)) ; + cEnumerator_gtlVarMap enumerator_126297 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_126297.hasCurrentObject ()) { + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (4U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4042)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4042)).add_operation (GALGAS_string ("\""), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4042)).add_operation (enumerator_126297.current_lkey (HERE).readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4043)).add_operation (GALGAS_string ("\" :>\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4043)).add_operation (callExtensionGetter_desc ((const cPtr_gtlData *) enumerator_126297.current_value (HERE).ptr (), constinArgument_tab.add_operation (GALGAS_uint (uint32_t (8U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4044)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4044)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4043)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4042)) ; + enumerator_126297.gotoNextObject () ; } - result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4055)).add_operation (GALGAS_string ("]\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4055)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4055)) ; + result_result.plusAssign_operation(GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4046)).add_operation (GALGAS_string ("]\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4046)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4046)) ; //--- return result_result ; } @@ -9492,7 +9482,7 @@ GALGAS_string cPtr_gtlMap::getter_string (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4059)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4050)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9509,7 +9499,7 @@ GALGAS_lstring cPtr_gtlMap::getter_lstring (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4063)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4054)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9526,7 +9516,7 @@ GALGAS_bool cPtr_gtlMap::getter_bool (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4067)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4058)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9543,7 +9533,7 @@ GALGAS_bigint cPtr_gtlMap::getter_int (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bigint result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4071)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4062)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9560,7 +9550,7 @@ GALGAS_double cPtr_gtlMap::getter_float (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_double result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4075)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast a map to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4066)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9577,7 +9567,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_plusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4079)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4070)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9594,7 +9584,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4083)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4074)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9611,7 +9601,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4087)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4078)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9629,7 +9619,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_addOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4091)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4082)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9647,7 +9637,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_subOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4095)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4086)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9665,7 +9655,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_mulOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4099)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4090)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9683,7 +9673,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_divOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4103)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4094)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9701,7 +9691,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_modOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4107)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4098)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9719,7 +9709,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_andOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4111)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4102)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9737,7 +9727,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_orOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4115)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4106)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9755,7 +9745,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_xorOp (const GALGAS_gtlData /* constinArgumen COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4119)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4110)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9773,7 +9763,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_slOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4123)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4114)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9791,7 +9781,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_srOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4127)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4118)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9817,43 +9807,43 @@ GALGAS_gtlData cPtr_gtlMap::getter_neqOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlMap *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlMap", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4132)) ; + inCompiler->castError ("gtlMap", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4123)) ; } } - GALGAS_gtlVarMap var_rValue_129217 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_129261 ; + GALGAS_gtlVarMap var_rValue_128675 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_128719 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4134)).objectCompare (var_rValue_129217.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4134)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4125)).objectCompare (var_rValue_128675.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4125)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_129261 = GALGAS_bool (false) ; + var_equal_128719 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_129261 = GALGAS_bool (true) ; - cEnumerator_gtlVarMap enumerator_129375 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_129375.hasCurrentObject ()) { + var_equal_128719 = GALGAS_bool (true) ; + cEnumerator_gtlVarMap enumerator_128833 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_128833.hasCurrentObject ()) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = var_rValue_129217.getter_hasKey (enumerator_129375.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4139)).boolEnum () ; + test_3 = var_rValue_128675.getter_hasKey (enumerator_128833.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4130)).boolEnum () ; if (kBoolTrue == test_3) { - GALGAS_gtlData var_rData_129475 ; - var_rValue_129217.method_get (enumerator_129375.current_lkey (HERE), var_rData_129475, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4140)) ; - var_equal_129261 = var_equal_129261.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_129375.current_value (HERE).ptr (), var_rData_129475, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4141)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4141)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4141)) ; + GALGAS_gtlData var_rData_128933 ; + var_rValue_128675.method_get (enumerator_128833.current_lkey (HERE), var_rData_128933, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4131)) ; + var_equal_128719 = var_equal_128719.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_128833.current_value (HERE).ptr (), var_rData_128933, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4132)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4132)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4132)) ; } } if (kBoolFalse == test_3) { - var_equal_129261 = GALGAS_bool (false) ; + var_equal_128719 = GALGAS_bool (false) ; } - enumerator_129375.gotoNextObject () ; + enumerator_128833.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4147)), var_equal_129261.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 4147)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4147)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4138)), var_equal_128719.operator_not (SOURCE_FILE ("gtl_data_types.galgas", 4138)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4138)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4149)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4140)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -9880,43 +9870,43 @@ GALGAS_gtlData cPtr_gtlMap::getter_eqOp (const GALGAS_gtlData constinArgument_ri if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlMap *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlMap", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4155)) ; + inCompiler->castError ("gtlMap", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4146)) ; } } - GALGAS_gtlVarMap var_rValue_129848 = temp_1.readProperty_value () ; - GALGAS_bool var_equal_129892 ; + GALGAS_gtlVarMap var_rValue_129306 = temp_1.readProperty_value () ; + GALGAS_bool var_equal_129350 ; enumGalgasBool test_2 = kBoolTrue ; if (kBoolTrue == test_2) { - test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4157)).objectCompare (var_rValue_129848.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4157)))).boolEnum () ; + test_2 = GALGAS_bool (kIsNotEqual, this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4148)).objectCompare (var_rValue_129306.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4148)))).boolEnum () ; if (kBoolTrue == test_2) { - var_equal_129892 = GALGAS_bool (false) ; + var_equal_129350 = GALGAS_bool (false) ; } } if (kBoolFalse == test_2) { - var_equal_129892 = GALGAS_bool (true) ; - cEnumerator_gtlVarMap enumerator_130006 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_130006.hasCurrentObject ()) { + var_equal_129350 = GALGAS_bool (true) ; + cEnumerator_gtlVarMap enumerator_129464 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_129464.hasCurrentObject ()) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = var_rValue_129848.getter_hasKey (enumerator_130006.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4162)).boolEnum () ; + test_3 = var_rValue_129306.getter_hasKey (enumerator_129464.current_lkey (HERE).readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4153)).boolEnum () ; if (kBoolTrue == test_3) { - GALGAS_gtlData var_rData_130106 ; - var_rValue_129848.method_get (enumerator_130006.current_lkey (HERE), var_rData_130106, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4163)) ; - var_equal_129892 = var_equal_129892.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_130006.current_value (HERE).ptr (), var_rData_130106, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4164)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4164)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4164)) ; + GALGAS_gtlData var_rData_129564 ; + var_rValue_129306.method_get (enumerator_129464.current_lkey (HERE), var_rData_129564, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4154)) ; + var_equal_129350 = var_equal_129350.operator_and (callExtensionGetter_bool ((const cPtr_gtlData *) callExtensionGetter_eqOp ((const cPtr_gtlData *) enumerator_129464.current_value (HERE).ptr (), var_rData_129564, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4155)).ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4155)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4155)) ; } } if (kBoolFalse == test_3) { - var_equal_129892 = GALGAS_bool (false) ; + var_equal_129350 = GALGAS_bool (false) ; } - enumerator_130006.gotoNextObject () ; + enumerator_129464.gotoNextObject () ; } } - result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4170)), var_equal_129892 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4170)) ; + result_result = GALGAS_gtlBool::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4161)), var_equal_129350 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4161)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray4 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4172)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("struct expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4163)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -9935,7 +9925,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_gtOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the > operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4177)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the > operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4168)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9953,7 +9943,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_geOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the >= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4181)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the >= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4172)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9971,7 +9961,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_ltOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the < operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4185)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the < operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4176)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -9989,7 +9979,7 @@ GALGAS_gtlData cPtr_gtlMap::getter_leOp (const GALGAS_gtlData /* constinArgument COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the <= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4189)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("a map does not support the <= operator"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4180)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10006,7 +9996,7 @@ GALGAS_type cPtr_gtlMap::getter_embeddedType (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_type result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4194)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("map forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4185)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10022,7 +10012,7 @@ GALGAS_type cPtr_gtlMap::getter_embeddedType (C_Compiler * inCompiler void cPtr_gtlMap::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 4199)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4199)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 4190)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4190)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -10042,9 +10032,9 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("length").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4213)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4213)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4204)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4204)) ; } - result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4216)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4217)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 4217)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4214)) ; + result_result = GALGAS_gtlInt::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4207)), this->mProperty_value.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4208)).getter_bigint (SOURCE_FILE ("gtl_data_types.galgas", 4208)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4205)) ; } } if (kBoolFalse == test_0) { @@ -10053,10 +10043,10 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_1 = GALGAS_bool (kIsEqual, GALGAS_string ("type").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_1) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4220)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4220)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4211)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4211)) ; } const GALGAS_gtlMap temp_2 = this ; - result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4222)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4222)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4221)) ; + result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4213)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4213)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4212)) ; } } if (kBoolFalse == test_1) { @@ -10065,9 +10055,9 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4225)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4225)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4216)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4216)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4227)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4226)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4218)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4217)) ; } } if (kBoolFalse == test_3) { @@ -10076,16 +10066,16 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_4 = GALGAS_bool (kIsEqual, GALGAS_string ("list").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_4) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4230)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4230)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4221)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4221)) ; } - GALGAS_list var_resultList_132270 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 4231)) ; + GALGAS_list var_resultList_131728 = GALGAS_list::constructor_emptyList (SOURCE_FILE ("gtl_data_types.galgas", 4222)) ; const GALGAS_gtlMap temp_5 = this ; - cEnumerator_gtlVarMap enumerator_132314 (temp_5.readProperty_value (), kENUMERATION_UP) ; - while (enumerator_132314.hasCurrentObject ()) { - var_resultList_132270.addAssign_operation (enumerator_132314.current_value (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4233)) ; - enumerator_132314.gotoNextObject () ; + cEnumerator_gtlVarMap enumerator_131772 (temp_5.readProperty_value (), kENUMERATION_UP) ; + while (enumerator_131772.hasCurrentObject ()) { + var_resultList_131728.addAssign_operation (enumerator_131772.current_value (HERE) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4224)) ; + enumerator_131772.gotoNextObject () ; } - result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4235)), var_resultList_132270 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4235)) ; + result_result = GALGAS_gtlList::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4226)), var_resultList_131728 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4226)) ; } } if (kBoolFalse == test_4) { @@ -10095,84 +10085,84 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr if (kBoolTrue == test_6) { enumGalgasBool test_7 = kBoolTrue ; if (kBoolTrue == test_7) { - test_7 = GALGAS_bool (kIsStrictInf, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4237)).objectCompare (GALGAS_uint (uint32_t (1U)))).operator_or (GALGAS_bool (kIsStrictSup, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4237)).objectCompare (GALGAS_uint (uint32_t (2U)))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4237)).boolEnum () ; + test_7 = GALGAS_bool (kIsStrictInf, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4228)).objectCompare (GALGAS_uint (uint32_t (1U)))).operator_or (GALGAS_bool (kIsStrictSup, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4228)).objectCompare (GALGAS_uint (uint32_t (2U)))) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4228)).boolEnum () ; if (kBoolTrue == test_7) { TC_Array fixItArray8 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("where expects 1 ou 2 arguments. ").add_operation (constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4239)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 4238)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4238)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4239)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4238)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("where expects 1 ou 2 arguments. ").add_operation (constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4230)).getter_string (SOURCE_FILE ("gtl_data_types.galgas", 4229)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4229)).add_operation (GALGAS_string (" arguments provided."), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4230)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4229)) ; result_result.drop () ; // Release error dropped variable } } if (kBoolFalse == test_7) { enumGalgasBool test_9 = kBoolTrue ; if (kBoolTrue == test_9) { - test_9 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4241)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4241)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlExpr))).boolEnum () ; + test_9 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4232)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4232)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlExpr))).boolEnum () ; if (kBoolTrue == test_9) { TC_Array fixItArray10 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("expression expected for argument 1"), fixItArray10 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4242)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("expression expected for argument 1"), fixItArray10 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4233)) ; result_result.drop () ; // Release error dropped variable } } if (kBoolFalse == test_9) { - GALGAS_gtlStruct var_vars_132853 ; + GALGAS_gtlStruct var_vars_132311 ; enumGalgasBool test_11 = kBoolTrue ; if (kBoolTrue == test_11) { - test_11 = GALGAS_bool (kIsEqual, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4245)).objectCompare (GALGAS_uint (uint32_t (2U)))).boolEnum () ; + test_11 = GALGAS_bool (kIsEqual, constinArgument_arguments.getter_count (SOURCE_FILE ("gtl_data_types.galgas", 4236)).objectCompare (GALGAS_uint (uint32_t (2U)))).boolEnum () ; if (kBoolTrue == test_11) { enumGalgasBool test_12 = kBoolTrue ; if (kBoolTrue == test_12) { - test_12 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4246)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4246)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlStruct))).boolEnum () ; + test_12 = GALGAS_bool (kIsNotEqual, constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4237)).getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4237)).objectCompare (GALGAS_type (& kTypeDescriptor_GALGAS_gtlStruct))).boolEnum () ; if (kBoolTrue == test_12) { TC_Array fixItArray13 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("struct expected for argument 1"), fixItArray13 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4247)) ; - var_vars_132853.drop () ; // Release error dropped variable + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("struct expected for argument 1"), fixItArray13 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4238)) ; + var_vars_132311.drop () ; // Release error dropped variable } } if (kBoolFalse == test_12) { GALGAS_gtlStruct temp_14 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)).ptr ())) { - temp_14 = (cPtr_gtlStruct *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4240)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4240)).ptr ())) { + temp_14 = (cPtr_gtlStruct *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4240)).ptr () ; }else{ - inCompiler->castError ("gtlStruct", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)) ; + inCompiler->castError ("gtlStruct", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (1U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4240)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4240)) ; } } - var_vars_132853 = temp_14 ; + var_vars_132311 = temp_14 ; } } } if (kBoolFalse == test_11) { - var_vars_132853 = GALGAS_gtlStruct::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4252)), GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 4252)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4252)) ; + var_vars_132311 = GALGAS_gtlStruct::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4243)), GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 4243)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4243)) ; } GALGAS_gtlExpr temp_15 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4254)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4254)).ptr ())) { - temp_15 = (cPtr_gtlExpr *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4254)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4245)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4245)).ptr ())) { + temp_15 = (cPtr_gtlExpr *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4245)).ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4254)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4254)) ; + inCompiler->castError ("gtlExpr", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4245)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4245)) ; } } - GALGAS_gtlExpression var_expr_133244 = temp_15.readProperty_value () ; - GALGAS_gtlVarMap var_resultMap_133317 = GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 4255)) ; - cEnumerator_gtlVarMap enumerator_133356 (this->mProperty_value, kENUMERATION_UP) ; - while (enumerator_133356.hasCurrentObject ()) { + GALGAS_gtlExpression var_expr_132702 = temp_15.readProperty_value () ; + GALGAS_gtlVarMap var_resultMap_132775 = GALGAS_gtlVarMap::constructor_emptyMap (SOURCE_FILE ("gtl_data_types.galgas", 4246)) ; + cEnumerator_gtlVarMap enumerator_132814 (this->mProperty_value, kENUMERATION_UP) ; + while (enumerator_132814.hasCurrentObject ()) { { - var_vars_132853.insulate (HERE) ; - cPtr_gtlStruct * ptr_133395 = (cPtr_gtlStruct *) var_vars_132853.ptr () ; - callExtensionSetter_setStructField ((cPtr_gtlStruct *) ptr_133395, GALGAS_lstring::constructor_new (GALGAS_string ("__item__"), enumerator_133356.current_value (HERE).readProperty_where () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4258)), enumerator_133356.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4258)) ; + var_vars_132311.insulate (HERE) ; + cPtr_gtlStruct * ptr_132853 = (cPtr_gtlStruct *) var_vars_132311.ptr () ; + callExtensionSetter_setStructField ((cPtr_gtlStruct *) ptr_132853, GALGAS_lstring::constructor_new (GALGAS_string ("__item__"), enumerator_132814.current_value (HERE).readProperty_where () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)), enumerator_132814.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4249)) ; } - GALGAS_gtlData var_evalResult_133487 = callExtensionGetter_eval ((const cPtr_gtlExpression *) var_expr_133244.ptr (), constinArgument_context, var_vars_132853, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4259)) ; + GALGAS_gtlData var_evalResult_132945 = callExtensionGetter_eval ((const cPtr_gtlExpression *) var_expr_132702.ptr (), constinArgument_context, var_vars_132311, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4250)) ; enumGalgasBool test_16 = kBoolTrue ; if (kBoolTrue == test_16) { - test_16 = callExtensionGetter_bool ((const cPtr_gtlData *) var_evalResult_133487.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4260)).boolEnum () ; + test_16 = callExtensionGetter_bool ((const cPtr_gtlData *) var_evalResult_132945.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4251)).boolEnum () ; if (kBoolTrue == test_16) { { - var_resultMap_133317.setter_put (enumerator_133356.current_lkey (HERE), enumerator_133356.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4261)) ; + var_resultMap_132775.setter_put (enumerator_132814.current_lkey (HERE), enumerator_132814.current_value (HERE), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4252)) ; } } } - enumerator_133356.gotoNextObject () ; + enumerator_132814.gotoNextObject () ; } - result_result = GALGAS_gtlMap::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4266)), var_resultMap_133317 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4264)) ; + result_result = GALGAS_gtlMap::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4257)), var_resultMap_132775 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4255)) ; } } } @@ -10183,18 +10173,18 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_17 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_17) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4272)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4272)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4263)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4263)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4274)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4273)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4265)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4264)) ; } } if (kBoolFalse == test_17) { enumGalgasBool test_18 = kBoolTrue ; if (kBoolTrue == test_18) { - test_18 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4276)).boolEnum () ; + test_18 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4267)).boolEnum () ; if (kBoolTrue == test_18) { const GALGAS_gtlMap temp_19 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4277)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_19, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4277)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4268)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_19, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4268)) ; } } if (kBoolFalse == test_18) { @@ -10203,14 +10193,14 @@ GALGAS_gtlData cPtr_gtlMap::getter_performGetter (const GALGAS_lstring constinAr test_20 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_20) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4285)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4285)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4276)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4276)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4287)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4287)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4286)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4278)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4278)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4277)) ; } } if (kBoolFalse == test_20) { TC_Array fixItArray21 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4290)).add_operation (GALGAS_string ("' for map target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4290)), fixItArray21 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4290)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4281)).add_operation (GALGAS_string ("' for map target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4281)), fixItArray21 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4281)) ; result_result.drop () ; // Release error dropped variable } } @@ -10245,19 +10235,19 @@ static void extensionSetter_gtlMap_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4305)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4305)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4296)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4296)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4306)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4306)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4306)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4297)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4297)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4297)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4306)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4306)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4297)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4297)) ; } } - GALGAS_gtlString var_descriptionToSet_134905 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_134363 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_134905.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4307)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4307)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_134363.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4298)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4298)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -10268,7 +10258,7 @@ static void extensionSetter_gtlMap_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4310)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4310)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4301)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4301)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -10276,27 +10266,27 @@ static void extensionSetter_gtlMap_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_2) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4312)).boolEnum () ; + test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4303)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlMap temp_4 = object ; - GALGAS_gtlData var_copy_135212 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4314)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_135212, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4314)) ; + GALGAS_gtlData var_copy_134670 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("map"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4305)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_134670, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4305)) ; GALGAS_gtlMap temp_5 ; - if (var_copy_135212.isValid ()) { - if (nullptr != dynamic_cast (var_copy_135212.ptr ())) { - temp_5 = (cPtr_gtlMap *) var_copy_135212.ptr () ; + if (var_copy_134670.isValid ()) { + if (nullptr != dynamic_cast (var_copy_134670.ptr ())) { + temp_5 = (cPtr_gtlMap *) var_copy_134670.ptr () ; }else{ - inCompiler->castError ("gtlMap", var_copy_135212.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4321)) ; + inCompiler->castError ("gtlMap", var_copy_134670.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4312)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_135212.readProperty_where () ; - object->mProperty_meta = var_copy_135212.readProperty_meta () ; + object->mProperty_where = var_copy_134670.readProperty_where () ; + object->mProperty_meta = var_copy_134670.readProperty_meta () ; } } if (kBoolFalse == test_3) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4325)).add_operation (GALGAS_string ("' for map target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4325)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4325)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4316)).add_operation (GALGAS_string ("' for map target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4316)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4316)) ; } } } @@ -10326,7 +10316,7 @@ static void extensionSetter_gtlMap_setMapItem (cPtr_gtlData * inObject, cPtr_gtlMap * object = (cPtr_gtlMap *) inObject ; macroValidSharedObject (object, cPtr_gtlMap) ; { - extensionSetter_replaceOrCreate (object->mProperty_value, constinArgument_name, constinArgument_data, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4336)) ; + extensionSetter_replaceOrCreate (object->mProperty_value, constinArgument_name, constinArgument_data, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4327)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -10353,8 +10343,8 @@ static void extensionSetter_gtlMap_deleteMapItem (cPtr_gtlData * inObject, cPtr_gtlMap * object = (cPtr_gtlMap *) inObject ; macroValidSharedObject (object, cPtr_gtlMap) ; { - GALGAS_gtlData joker_135932 ; // Joker input parameter - object->mProperty_value.setter_del (constinArgument_name, joker_135932, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4342)) ; + GALGAS_gtlData joker_135390 ; // Joker input parameter + object->mProperty_value.setter_del (constinArgument_name, joker_135390, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4333)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -10380,13 +10370,13 @@ void cPtr_gtlMap::method_mapItem (const GALGAS_lstring constinArgument_name, COMMA_UNUSED_LOCATION_ARGS) { enumGalgasBool test_0 = kBoolTrue ; if (kBoolTrue == test_0) { - test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4349)).boolEnum () ; + test_0 = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4340)).boolEnum () ; if (kBoolTrue == test_0) { - this->mProperty_value.method_get (constinArgument_name, outArgument_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4350)) ; + this->mProperty_value.method_get (constinArgument_name, outArgument_result, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4341)) ; } } if (kBoolFalse == test_0) { - outArgument_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4352)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4352)) ; + outArgument_result = GALGAS_gtlUnconstructed::constructor_new (constinArgument_name.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4343)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4343)) ; } } //---------------------------------------------------------------------------------------------------------------------- @@ -10399,7 +10389,7 @@ GALGAS_bool cPtr_gtlMap::getter_hasMapItem (const GALGAS_lstring constinArgument C_Compiler */* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable - result_result = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4360)) ; + result_result = this->mProperty_value.getter_hasKey (constinArgument_name.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4351)) ; //--- return result_result ; } @@ -10415,7 +10405,7 @@ GALGAS_string cPtr_gtlExpr::getter_desc (const GALGAS_uint constinArgument_tab, C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable - result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4372)).add_operation (GALGAS_string ("expression: @\? "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4372)).add_operation (callExtensionGetter_stringRepresentation ((const cPtr_gtlExpression *) this->mProperty_value.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4373)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4373)).add_operation (GALGAS_string (" \?\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4373)) ; + result_result = GALGAS_string::constructor_stringWithSequenceOfCharacters (GALGAS_char (TO_UNICODE (32)), constinArgument_tab COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4363)).add_operation (GALGAS_string ("expression: @\? "), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4363)).add_operation (callExtensionGetter_stringRepresentation ((const cPtr_gtlExpression *) this->mProperty_value.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4364)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4364)).add_operation (GALGAS_string (" \?\n"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4364)) ; //--- return result_result ; } @@ -10431,7 +10421,7 @@ GALGAS_string cPtr_gtlExpr::getter_string (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_string result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4377)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4368)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10448,7 +10438,7 @@ GALGAS_lstring cPtr_gtlExpr::getter_lstring (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_lstring result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4381)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4372)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10465,7 +10455,7 @@ GALGAS_bool cPtr_gtlExpr::getter_bool (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bool result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4385)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to a bool"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4376)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10482,7 +10472,7 @@ GALGAS_bigint cPtr_gtlExpr::getter_int (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_bigint result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4389)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to an int"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4380)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10499,7 +10489,7 @@ GALGAS_double cPtr_gtlExpr::getter_float (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_double result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4393)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("cannot cast an expression to a float"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4384)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -10531,7 +10521,7 @@ GALGAS_gtlData cPtr_gtlExpr::getter_plusOp (C_Compiler */* inCompiler */ GALGAS_gtlData cPtr_gtlExpr::getter_minusOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4403)), GALGAS_gtlMinusExpression::constructor_new (this->mProperty_where, this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4404)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4401)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4394)), GALGAS_gtlMinusExpression::constructor_new (this->mProperty_where, this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4395)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4392)) ; //--- return result_result ; } @@ -10546,7 +10536,7 @@ GALGAS_gtlData cPtr_gtlExpr::getter_minusOp (C_Compiler * inCompiler GALGAS_gtlData cPtr_gtlExpr::getter_notOp (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_gtlData result_result ; // Returned variable - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4411)), GALGAS_gtlNotExpression::constructor_new (this->mProperty_where, this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4412)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4409)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4402)), GALGAS_gtlNotExpression::constructor_new (this->mProperty_where, this->mProperty_value COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4403)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4400)) ; //--- return result_result ; } @@ -10571,15 +10561,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_addOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4421)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4412)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4420)), GALGAS_gtlAddExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4421)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4418)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4411)), GALGAS_gtlAddExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4412)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4409)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4424)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4415)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10606,15 +10596,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_subOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4433)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4424)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4432)), GALGAS_gtlSubstractExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4433)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4430)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4423)), GALGAS_gtlSubstractExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4424)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4421)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4436)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4427)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10641,15 +10631,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_mulOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4445)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4436)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4444)), GALGAS_gtlMultiplyExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4445)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4442)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4435)), GALGAS_gtlMultiplyExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4436)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4433)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4448)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4439)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10676,15 +10666,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_divOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4457)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4448)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4456)), GALGAS_gtlDivideExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4457)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4454)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4447)), GALGAS_gtlDivideExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4448)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4445)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4460)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4451)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10711,15 +10701,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_modOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4469)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4460)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4468)), GALGAS_gtlModulusExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4469)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4466)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4459)), GALGAS_gtlModulusExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4460)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4457)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4472)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4463)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10746,15 +10736,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_andOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4481)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4472)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4480)), GALGAS_gtlAndExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4481)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4478)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4471)), GALGAS_gtlAndExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4472)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4469)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4484)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4475)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10781,15 +10771,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_orOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4493)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4484)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4492)), GALGAS_gtlOrExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4493)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4490)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4483)), GALGAS_gtlOrExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4484)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4481)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4496)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4487)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10816,15 +10806,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_xorOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4505)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4496)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4504)), GALGAS_gtlXorExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4505)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4502)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4495)), GALGAS_gtlXorExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4496)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4493)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4508)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4499)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10851,15 +10841,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_slOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4517)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4508)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4516)), GALGAS_gtlShiftLeftExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4517)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4514)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4507)), GALGAS_gtlShiftLeftExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4508)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4505)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4520)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4511)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10886,15 +10876,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_srOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4529)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4520)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4528)), GALGAS_gtlShiftRightExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4529)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4526)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4519)), GALGAS_gtlShiftRightExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4520)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4517)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4532)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4523)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10921,15 +10911,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_neqOp (const GALGAS_gtlData constinArgument_ if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4541)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4532)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4540)), GALGAS_gtlNotEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4541)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4538)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4531)), GALGAS_gtlNotEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4532)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4529)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4544)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4535)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10956,15 +10946,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_eqOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4553)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4544)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4552)), GALGAS_gtlEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4553)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4550)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4543)), GALGAS_gtlEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4544)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4541)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4556)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4547)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -10991,15 +10981,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_gtOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4565)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4556)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4564)), GALGAS_gtlGreaterThanExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4565)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4562)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4555)), GALGAS_gtlGreaterThanExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4556)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4553)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4568)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4559)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -11026,15 +11016,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_geOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4577)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4568)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4576)), GALGAS_gtlGreaterOrEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4577)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4574)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4567)), GALGAS_gtlGreaterOrEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4568)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4565)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4580)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4571)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -11061,15 +11051,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_ltOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4589)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4580)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4588)), GALGAS_gtlLowerThanExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4589)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4586)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4579)), GALGAS_gtlLowerThanExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4580)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4577)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4592)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4583)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -11096,15 +11086,15 @@ GALGAS_gtlData cPtr_gtlExpr::getter_leOp (const GALGAS_gtlData constinArgument_r if (nullptr != dynamic_cast (constinArgument_right.ptr ())) { temp_1 = (cPtr_gtlExpr *) constinArgument_right.ptr () ; }else{ - inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4601)) ; + inCompiler->castError ("gtlExpr", constinArgument_right.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4592)) ; } } - result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4600)), GALGAS_gtlLowerOrEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4601)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4598)) ; + result_result = GALGAS_gtlExpr::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4591)), GALGAS_gtlLowerOrEqualExpression::constructor_new (this->mProperty_where, this->mProperty_value, temp_1.readProperty_value () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4592)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4589)) ; } } if (kBoolFalse == test_0) { TC_Array fixItArray2 ; - inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4604)) ; + inCompiler->emitSemanticError (constinArgument_right.readProperty_where (), GALGAS_string ("Expression expected"), fixItArray2 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4595)) ; result_result.drop () ; // Release error dropped variable } //--- @@ -11122,7 +11112,7 @@ GALGAS_type cPtr_gtlExpr::getter_embeddedType (C_Compiler * inCompiler COMMA_UNUSED_LOCATION_ARGS) const { GALGAS_type result_result ; // Returned variable TC_Array fixItArray0 ; - inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4610)) ; + inCompiler->emitSemanticError (this->mProperty_where, GALGAS_string ("expression forbidden as built in function argument"), fixItArray0 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4601)) ; result_result.drop () ; // Release error dropped variable //--- return result_result ; @@ -11138,7 +11128,7 @@ GALGAS_type cPtr_gtlExpr::getter_embeddedType (C_Compiler * inCompiler void cPtr_gtlExpr::method_addMyValue (GALGAS_objectlist & ioArgument_objectList, C_Compiler * /* inCompiler */ COMMA_UNUSED_LOCATION_ARGS) { - ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 4615)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4615)) ; + ioArgument_objectList.addAssign_operation (this->mProperty_value.getter_object (SOURCE_FILE ("gtl_data_types.galgas", 4606)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4606)) ; } //---------------------------------------------------------------------------------------------------------------------- // @@ -11158,10 +11148,10 @@ GALGAS_gtlData cPtr_gtlExpr::getter_performGetter (const GALGAS_lstring constinA test_0 = GALGAS_bool (kIsEqual, constinArgument_methodName.readProperty_string ().objectCompare (GALGAS_string ("eval"))).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_structArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4629)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4629)) ; + routine_argumentsCheck (constinArgument_methodName, function_structArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4620)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4620)) ; } - GALGAS_gtlData var_vars_143580 = constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4630)) ; - result_result = callExtensionGetter_eval ((const cPtr_gtlExpression *) this->mProperty_value.ptr (), constinArgument_context, var_vars_143580, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4631)) ; + GALGAS_gtlData var_vars_143038 = constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4621)) ; + result_result = callExtensionGetter_eval ((const cPtr_gtlExpression *) this->mProperty_value.ptr (), constinArgument_context, var_vars_143038, constinArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4622)) ; } } if (kBoolFalse == test_0) { @@ -11170,10 +11160,10 @@ GALGAS_gtlData cPtr_gtlExpr::getter_performGetter (const GALGAS_lstring constinA test_1 = GALGAS_bool (kIsEqual, GALGAS_string ("type").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_1) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4633)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4633)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4624)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4624)) ; } const GALGAS_gtlExpr temp_2 = this ; - result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4635)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4635)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4634)) ; + result_result = GALGAS_gtlType::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4626)), temp_2.getter_dynamicType (SOURCE_FILE ("gtl_data_types.galgas", 4626)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4625)) ; } } if (kBoolFalse == test_1) { @@ -11182,9 +11172,9 @@ GALGAS_gtlData cPtr_gtlExpr::getter_performGetter (const GALGAS_lstring constinA test_3 = GALGAS_bool (kIsEqual, GALGAS_string ("isANumber").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_3) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4638)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4638)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4629)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4629)) ; } - result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4640)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4639)) ; + result_result = GALGAS_gtlBool::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4631)), GALGAS_bool (false) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4630)) ; } } if (kBoolFalse == test_3) { @@ -11193,9 +11183,9 @@ GALGAS_gtlData cPtr_gtlExpr::getter_performGetter (const GALGAS_lstring constinA test_4 = GALGAS_bool (kIsEqual, GALGAS_string ("description").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_4) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4643)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4643)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4634)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4634)) ; } - result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4645)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4644)) ; + result_result = GALGAS_gtlString::constructor_new (this->mProperty_meta.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4636)), this->mProperty_meta.readProperty_string () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4635)) ; } } if (kBoolFalse == test_4) { @@ -11204,23 +11194,23 @@ GALGAS_gtlData cPtr_gtlExpr::getter_performGetter (const GALGAS_lstring constinA test_5 = GALGAS_bool (kIsEqual, GALGAS_string ("location").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_5) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4648)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4648)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4639)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4639)) ; } - result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4650)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4650)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4649)) ; + result_result = GALGAS_gtlString::constructor_new (constinArgument_methodName.readProperty_location (), function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4641)), this->mProperty_where.getter_endLocationString (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4641)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4640)) ; } } if (kBoolFalse == test_5) { enumGalgasBool test_6 = kBoolTrue ; if (kBoolTrue == test_6) { - test_6 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4652)).boolEnum () ; + test_6 = callExtensionGetter_getterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4643)).boolEnum () ; if (kBoolTrue == test_6) { const GALGAS_gtlExpr temp_7 = this ; - result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4653)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_7, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4653)) ; + result_result = callExtensionGetter_callGetter ((const cPtr_gtlGetter *) callExtensionGetter_getGetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4644)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, temp_7, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4644)) ; } } if (kBoolFalse == test_6) { TC_Array fixItArray8 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4661)).add_operation (GALGAS_string ("' for expression target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4661)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4661)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown getter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4652)).add_operation (GALGAS_string ("' for expression target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4652)), fixItArray8 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4652)) ; result_result.drop () ; // Release error dropped variable } } @@ -11253,19 +11243,19 @@ static void extensionSetter_gtlExpr_performSetter (cPtr_gtlData * inObject, test_0 = GALGAS_bool (kIsEqual, GALGAS_string ("setDescription").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_0) { { - routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4676)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4676)) ; + routine_argumentsCheck (constinArgument_methodName, function_stringArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4667)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4667)) ; } GALGAS_gtlString temp_1 ; - if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4677)).isValid ()) { - if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4677)).ptr ())) { - temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4677)).ptr () ; + if (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4668)).isValid ()) { + if (nullptr != dynamic_cast (constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4668)).ptr ())) { + temp_1 = (cPtr_gtlString *) constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4668)).ptr () ; }else{ - inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4677)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4677)) ; + inCompiler->castError ("gtlString", constinArgument_arguments.getter_dataAtIndex (GALGAS_uint (uint32_t (0U)), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4668)).ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4668)) ; } } - GALGAS_gtlString var_descriptionToSet_145216 = temp_1 ; + GALGAS_gtlString var_descriptionToSet_144674 = temp_1 ; { - object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_145216.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4678)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4678)) ; + object->setter_setMeta (callExtensionGetter_lstring ((const cPtr_gtlString *) var_descriptionToSet_144674.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4669)) COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4669)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -11276,7 +11266,7 @@ static void extensionSetter_gtlExpr_performSetter (cPtr_gtlData * inObject, test_2 = GALGAS_bool (kIsEqual, GALGAS_string ("touch").objectCompare (constinArgument_methodName.readProperty_string ())).boolEnum () ; if (kBoolTrue == test_2) { { - routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4681)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4681)) ; + routine_argumentsCheck (constinArgument_methodName, function_noArgument (inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4672)), constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4672)) ; } object->mProperty_where = constinArgument_methodName.readProperty_location () ; } @@ -11284,27 +11274,27 @@ static void extensionSetter_gtlExpr_performSetter (cPtr_gtlData * inObject, if (kBoolFalse == test_2) { enumGalgasBool test_3 = kBoolTrue ; if (kBoolTrue == test_3) { - test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4683)).boolEnum () ; + test_3 = callExtensionGetter_setterExists ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4674)).boolEnum () ; if (kBoolTrue == test_3) { const GALGAS_gtlExpr temp_4 = object ; - GALGAS_gtlData var_copy_145530 = temp_4 ; - callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4685)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_145530, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4685)) ; + GALGAS_gtlData var_copy_144988 = temp_4 ; + callExtensionMethod_callSetter ((cPtr_gtlSetter *) callExtensionGetter_getSetter ((const cPtr_library *) constinArgument_lib.ptr (), GALGAS_string ("expression"), constinArgument_methodName, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4676)).ptr (), constinArgument_methodName.readProperty_location (), constinArgument_context, constinArgument_lib, var_copy_144988, constinArgument_arguments, inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4676)) ; GALGAS_gtlExpr temp_5 ; - if (var_copy_145530.isValid ()) { - if (nullptr != dynamic_cast (var_copy_145530.ptr ())) { - temp_5 = (cPtr_gtlExpr *) var_copy_145530.ptr () ; + if (var_copy_144988.isValid ()) { + if (nullptr != dynamic_cast (var_copy_144988.ptr ())) { + temp_5 = (cPtr_gtlExpr *) var_copy_144988.ptr () ; }else{ - inCompiler->castError ("gtlExpr", var_copy_145530.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4692)) ; + inCompiler->castError ("gtlExpr", var_copy_144988.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4683)) ; } } object->mProperty_value = temp_5.readProperty_value () ; - object->mProperty_where = var_copy_145530.readProperty_where () ; - object->mProperty_meta = var_copy_145530.readProperty_meta () ; + object->mProperty_where = var_copy_144988.readProperty_where () ; + object->mProperty_meta = var_copy_144988.readProperty_meta () ; } } if (kBoolFalse == test_3) { TC_Array fixItArray6 ; - inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4696)).add_operation (GALGAS_string ("' for expression target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4696)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4696)) ; + inCompiler->emitSemanticError (constinArgument_methodName.readProperty_location (), GALGAS_string ("unknown setter '").add_operation (constinArgument_methodName.readProperty_string (), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4687)).add_operation (GALGAS_string ("' for expression target"), inCompiler COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4687)), fixItArray6 COMMA_SOURCE_FILE ("gtl_data_types.galgas", 4687)) ; } } } @@ -11717,3 +11707,64 @@ void cPtr_gtlGetColumnInstruction::method_execute (GALGAS_gtlContext & ioArgumen } extensionMethod_set (this->mProperty_destVariable, ioArgument_context, ioArgument_vars, ioArgument_lib, GALGAS_gtlString::constructor_new (this->mProperty_where, function_emptylstring (inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 552)), var_value_15713 COMMA_SOURCE_FILE ("gtl_instructions.galgas", 552)), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 548)) ; } +//---------------------------------------------------------------------------------------------------------------------- +// +//Overriding extension method '@gtlIfStatementInstruction execute' +// +//---------------------------------------------------------------------------------------------------------------------- + +void cPtr_gtlIfStatementInstruction::method_execute (GALGAS_gtlContext & ioArgument_context, + GALGAS_gtlData & ioArgument_vars, + GALGAS_library & ioArgument_lib, + GALGAS_string & ioArgument_outputString, + C_Compiler * inCompiler + COMMA_UNUSED_LOCATION_ARGS) { + GALGAS_gtlData var_localMap_16721 = callExtensionGetter_overrideMap ((const cPtr_gtlData *) ioArgument_vars.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 576)) ; + GALGAS_bool var_noConditionMatching_16762 = GALGAS_bool (true) ; + cEnumerator_gtlThenElsifStatementList enumerator_16795 (this->mProperty_thenElsifList, kENUMERATION_UP) ; + bool bool_0 = var_noConditionMatching_16762.isValidAndTrue () ; + if (enumerator_16795.hasCurrentObject () && bool_0) { + while (enumerator_16795.hasCurrentObject () && bool_0) { + GALGAS_gtlData var_dataCondition_16861 = callExtensionGetter_eval ((const cPtr_gtlExpression *) enumerator_16795.current_condition (HERE).ptr (), ioArgument_context, var_localMap_16721, ioArgument_lib, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 580)) ; + enumGalgasBool test_1 = kBoolTrue ; + if (kBoolTrue == test_1) { + test_1 = GALGAS_bool (var_dataCondition_16861.dynamicTypeDescriptor () == & kTypeDescriptor_GALGAS_gtlBool).boolEnum () ; + if (kBoolTrue == test_1) { + GALGAS_gtlBool temp_2 ; + if (var_dataCondition_16861.isValid ()) { + if (nullptr != dynamic_cast (var_dataCondition_16861.ptr ())) { + temp_2 = (cPtr_gtlBool *) var_dataCondition_16861.ptr () ; + }else{ + inCompiler->castError ("gtlBool", var_dataCondition_16861.ptr ()->classDescriptor () COMMA_SOURCE_FILE ("gtl_instructions.galgas", 582)) ; + } + } + GALGAS_bool var_boolCondition_16975 = temp_2.readProperty_value () ; + enumGalgasBool test_3 = kBoolTrue ; + if (kBoolTrue == test_3) { + test_3 = var_boolCondition_16975.boolEnum () ; + if (kBoolTrue == test_3) { + extensionMethod_execute (enumerator_16795.current_instructionList (HERE), ioArgument_context, var_localMap_16721, ioArgument_lib, ioArgument_outputString, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 584)) ; + var_noConditionMatching_16762 = GALGAS_bool (false) ; + } + } + } + } + if (kBoolFalse == test_1) { + TC_Array fixItArray4 ; + inCompiler->emitSemanticError (callExtensionGetter_location ((const cPtr_gtlData *) var_dataCondition_16861.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 588)), GALGAS_string ("bool expected"), fixItArray4 COMMA_SOURCE_FILE ("gtl_instructions.galgas", 588)) ; + } + enumerator_16795.gotoNextObject () ; + if (enumerator_16795.hasCurrentObject ()) { + bool_0 = var_noConditionMatching_16762.isValidAndTrue () ; + } + } + } + enumGalgasBool test_5 = kBoolTrue ; + if (kBoolTrue == test_5) { + test_5 = var_noConditionMatching_16762.boolEnum () ; + if (kBoolTrue == test_5) { + extensionMethod_execute (this->mProperty_elseList, ioArgument_context, var_localMap_16721, ioArgument_lib, ioArgument_outputString, inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 592)) ; + } + } + ioArgument_vars = callExtensionGetter_overriddenMap ((const cPtr_gtlData *) var_localMap_16721.ptr (), inCompiler COMMA_SOURCE_FILE ("gtl_instructions.galgas", 595)) ; +} diff --git a/goil/build/output/all-declarations-9.h b/goil/build/output/all-declarations-9.h index c4b0bfba9..788d34af7 100644 --- a/goil/build/output/all-declarations-9.h +++ b/goil/build/output/all-declarations-9.h @@ -8,3 +8,18 @@ #include "all-declarations-8.h" +//---------------------------------------------------------------------------------------------------------------------- +// +//Function 'customGtlStringGetter' +// +//---------------------------------------------------------------------------------------------------------------------- + +class GALGAS_gtlData function_customGtlStringGetter (const class GALGAS_lstring & constinArgument0, + const class GALGAS_gtlDataList & constinArgument1, + const class GALGAS_gtlContext & constinArgument2, + const class GALGAS_library & constinArgument3, + const class GALGAS_string & constinArgument4, + const class GALGAS_location & constinArgument5, + class C_Compiler * inCompiler + COMMA_LOCATION_ARGS) ; + diff --git a/goil/build/output/lexique-gtl-5F-scanner-cocoa.h b/goil/build/output/lexique-gtl-5F-scanner-cocoa.h index 5ac4cd12e..925b8b5c3 100644 --- a/goil/build/output/lexique-gtl-5F-scanner-cocoa.h +++ b/goil/build/output/lexique-gtl-5F-scanner-cocoa.h @@ -70,6 +70,7 @@ enum {gtl_scanner_1_, gtl_scanner_1_or, gtl_scanner_1_print, gtl_scanner_1_println, + gtl_scanner_1_seed, gtl_scanner_1_repeat, gtl_scanner_1_sort, gtl_scanner_1_step, diff --git a/goil/build/output/lexique-gtl-5F-scanner-cocoa.m b/goil/build/output/lexique-gtl-5F-scanner-cocoa.m index d5137f7eb..209961c2e 100644 --- a/goil/build/output/lexique-gtl-5F-scanner-cocoa.m +++ b/goil/build/output/lexique-gtl-5F-scanner-cocoa.m @@ -80,7 +80,7 @@ - (NSArray *) indexingTitles { // Array of NSString // //---------------------------------------------------------------------------------------------------------------------- -static const BOOL kEndOfScriptInTemplateArray_gtl_5F_scanner [114] = { +static const BOOL kEndOfScriptInTemplateArray_gtl_5F_scanner [115] = { NO /* identifier */, NO /* literal_enum */, NO /* literal_double */, @@ -126,6 +126,7 @@ - (NSArray *) indexingTitles { // Array of NSString NO /* or */, NO /* print */, NO /* println */, + NO /* seed */, NO /* repeat */, NO /* sort */, NO /* step */, @@ -204,7 +205,7 @@ - (NSArray *) indexingTitles { // Array of NSString // //---------------------------------------------------------------------------------------------------------------------- -static const C_cocoa_lexique_table_entry ktable_for_gtl_5F_scanner_goilTemplateKeyWordList [57] = { +static const C_cocoa_lexique_table_entry ktable_for_gtl_5F_scanner_goilTemplateKeyWordList [58] = { {"by", gtl_scanner_1_by}, {"do", gtl_scanner_1_do}, {"if", gtl_scanner_1_if}, @@ -226,6 +227,7 @@ - (NSArray *) indexingTitles { // Array of NSString {"func", gtl_scanner_1_func}, {"here", gtl_scanner_1_here}, {"loop", gtl_scanner_1_loop}, + {"seed", gtl_scanner_1_seed}, {"sort", gtl_scanner_1_sort}, {"step", gtl_scanner_1_step}, {"then", gtl_scanner_1_then}, @@ -265,7 +267,7 @@ - (NSArray *) indexingTitles { // Array of NSString } ; static NSInteger search_into_gtl_5F_scanner_goilTemplateKeyWordList (NSString * inSearchedString) { - return searchStringInTable (inSearchedString, ktable_for_gtl_5F_scanner_goilTemplateKeyWordList, 57) ; + return searchStringInTable (inSearchedString, ktable_for_gtl_5F_scanner_goilTemplateKeyWordList, 58) ; } @@ -287,15 +289,15 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { mLexicalAttribute_uint32value = 0 ; mTokenStartLocation = mCurrentLocation ; if (scanningOk && ([self testForInputFromChar:97 toChar:122] || [self testForInputFromChar:65 toChar:90] || [self testForInputChar:95])) { - BOOL loop2071 = YES ; + BOOL loop2079 = YES ; do { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_identifierString, mPreviousChar) ; scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; if (scanningOk && ([self testForInputFromChar:97 toChar:122] || [self testForInputFromChar:65 toChar:90] || [self testForInputChar:95] || [self testForInputFromChar:48 toChar:57])) { }else{ - loop2071 = NO ; + loop2079 = NO ; } - }while (loop2071 && scanningOk) ; + }while (loop2079 && scanningOk) ; if (mTokenCode == 0) { mTokenCode = search_into_gtl_5F_scanner_goilTemplateKeyWordList (mLexicalAttribute_identifierString) ; } @@ -303,14 +305,14 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { mTokenCode = gtl_scanner_1_identifier ; } }else if (scanningOk && ([self testForInputChar:36])) { - BOOL loop2476 = YES ; + BOOL loop2484 = YES ; do { if (scanningOk && ([self testForInputFromChar:97 toChar:122] || [self testForInputFromChar:65 toChar:90] || [self testForInputChar:95] || [self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else{ - loop2476 = NO ; + loop2484 = NO ; } - }while (loop2476 && scanningOk) ; + }while (loop2484 && scanningOk) ; mTokenCode = gtl_scanner_1_literal_5F_enum ; }else if (scanningOk && [self testForInputString:@"mod=" advance:YES]) { mTokenCode = gtl_scanner_1_mod_3D_ ; @@ -408,26 +410,26 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, 45) ; scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; - BOOL loop3813 = YES ; + BOOL loop3821 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else if (scanningOk && ([self testForInputChar:95])) { }else{ - loop3813 = NO ; + loop3821 = NO ; } - }while (loop3813 && scanningOk) ; + }while (loop3821 && scanningOk) ; if (scanningOk && ([self testForInputChar:46])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, 46) ; - BOOL loop3997 = YES ; + BOOL loop4005 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else if (scanningOk && ([self testForInputChar:95])) { }else{ - loop3997 = NO ; + loop4005 = NO ; } - }while (loop3997 && scanningOk) ; + }while (loop4005 && scanningOk) ; scanner_cocoa_routine_convertStringToDouble (& scanningOk, mLexicalAttribute_tokenString, & mLexicalAttribute_floatValue) ; mTokenCode = gtl_scanner_1_literal_5F_double ; }else{ @@ -438,38 +440,38 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { mTokenCode = gtl_scanner_1__2D_ ; } }else if (scanningOk && ([self testForInputString:@"0x" advance:YES] || [self testForInputString:@"0X" advance:YES])) { - BOOL loop4420 = YES ; + BOOL loop4428 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57] || [self testForInputFromChar:97 toChar:102] || [self testForInputFromChar:65 toChar:70])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else{ - loop4420 = NO ; + loop4428 = NO ; } - }while (loop4420 && scanningOk) ; + }while (loop4428 && scanningOk) ; scanner_cocoa_routine_convertHexStringIntoBigInt (& scanningOk, mLexicalAttribute_tokenString, mLexicalAttribute_intValue) ; mTokenCode = gtl_scanner_1_signed_5F_literal_5F_integer_5F_bigint ; }else if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; - BOOL loop4700 = YES ; + BOOL loop4708 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else if (scanningOk && ([self testForInputChar:95])) { }else{ - loop4700 = NO ; + loop4708 = NO ; } - }while (loop4700 && scanningOk) ; + }while (loop4708 && scanningOk) ; if (scanningOk && ([self testForInputChar:46])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, 46) ; - BOOL loop4868 = YES ; + BOOL loop4876 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else if (scanningOk && ([self testForInputChar:95])) { }else{ - loop4868 = NO ; + loop4876 = NO ; } - }while (loop4868 && scanningOk) ; + }while (loop4876 && scanningOk) ; scanner_cocoa_routine_convertStringToDouble (& scanningOk, mLexicalAttribute_tokenString, & mLexicalAttribute_floatValue) ; mTokenCode = gtl_scanner_1_literal_5F_double ; }else{ @@ -481,15 +483,15 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, 48) ; scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, 46) ; scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; - BOOL loop5723 = YES ; + BOOL loop5731 = YES ; do { if (scanningOk && ([self testForInputFromChar:48 toChar:57])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else if (scanningOk && ([self testForInputChar:95])) { }else{ - loop5723 = NO ; + loop5731 = NO ; } - }while (loop5723 && scanningOk) ; + }while (loop5731 && scanningOk) ; scanner_cocoa_routine_convertStringToDouble (& scanningOk, mLexicalAttribute_tokenString, & mLexicalAttribute_floatValue) ; mTokenCode = gtl_scanner_1_literal_5F_double ; }else{ @@ -584,14 +586,14 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { scanningOk = NO ; } }else if (scanningOk && ([self testForInputChar:38])) { - BOOL loop10704 = YES ; + BOOL loop10712 = YES ; do { if (scanningOk && ([self notTestForInputString:@";" error:& scanningOk])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_tokenString, mPreviousChar) ; }else{ - loop10704 = NO ; + loop10712 = NO ; } - }while (loop10704 && scanningOk) ; + }while (loop10712 && scanningOk) ; scanner_cocoa_routine_convertHTMLSequenceToUnicodeCharacter (& scanningOk, mLexicalAttribute_tokenString, & mLexicalAttribute_charValue) ; }else{ scanningOk = NO ; @@ -607,7 +609,7 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { scanningOk = NO ; } }else if (scanningOk && ([self testForInputChar:34])) { - BOOL loop11292 = YES ; + BOOL loop11300 = YES ; do { if (scanningOk && ([self testForInputChar:92])) { if (scanningOk && ([self testForInputChar:102])) { @@ -629,14 +631,14 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { }else if (scanningOk && ([self testForInputChar:63])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_a_string, 63) ; }else if (scanningOk && ([self testForInputChar:38])) { - BOOL loop11940 = YES ; + BOOL loop11948 = YES ; do { if (scanningOk && ([self notTestForInputString:@";" error:& scanningOk])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_identifierString, mPreviousChar) ; }else{ - loop11940 = NO ; + loop11948 = NO ; } - }while (loop11940 && scanningOk) ; + }while (loop11948 && scanningOk) ; scanner_cocoa_routine_convertHTMLSequenceToUnicodeCharacter (& scanningOk, mLexicalAttribute_identifierString, & mLexicalAttribute_charValue) ; scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_a_string, mLexicalAttribute_charValue) ; }else if (scanningOk && ([self testForInputChar:117])) { @@ -711,22 +713,22 @@ - (BOOL) internalParseLexicalTokenForLexicalColoring { }else if (scanningOk && ([self testForInputChar:32] || [self testForInputChar:33] || [self testForInputFromChar:35 toChar:65533])) { scanner_cocoa_routine_enterCharacterIntoString (& scanningOk, mLexicalAttribute_a_string, mPreviousChar) ; }else{ - loop11292 = NO ; + loop11300 = NO ; } - }while (loop11292 && scanningOk) ; + }while (loop11300 && scanningOk) ; if (scanningOk && ([self testForInputChar:34])) { mTokenCode = gtl_scanner_1_string ; }else{ scanningOk = NO ; } }else if (scanningOk && ([self testForInputChar:35])) { - BOOL loop16002 = YES ; + BOOL loop16010 = YES ; do { if (scanningOk && ([self testForInputFromChar:1 toChar:9] || [self testForInputChar:11] || [self testForInputChar:12] || [self testForInputFromChar:14 toChar:65533])) { }else{ - loop16002 = NO ; + loop16010 = NO ; } - }while (loop16002 && scanningOk) ; + }while (loop16010 && scanningOk) ; mTokenCode = gtl_scanner_1_comment ; }else if (scanningOk && ([self testForInputFromChar:1 toChar:32])) { }else if ([self testForInputChar:'\0']) { // End of source text ? @@ -784,7 +786,7 @@ - (void) parseLexicalTokenForLexicalColoring { //---------------------------------------------------------------------------------------------------------------------- - (NSUInteger) terminalVocabularyCount { - return 114 ; + return 115 ; } //---------------------------------------------------------------------------------------------------------------------- @@ -814,7 +816,7 @@ - (BOOL) isTemplateLexique { //---------------------------------------------------------------------------------------------------------------------- - (NSUInteger) styleIndexForTerminal: (NSInteger) inTerminal { - static const NSUInteger kTerminalSymbolStyles [115] = {0, + static const NSUInteger kTerminalSymbolStyles [116] = {0, 0 /* gtl_scanner_1_identifier */, 0 /* gtl_scanner_1_literal_5F_enum */, 5 /* gtl_scanner_1_literal_5F_double */, @@ -860,6 +862,7 @@ - (NSUInteger) styleIndexForTerminal: (NSInteger) inTerminal { 1 /* gtl_scanner_1_or */, 1 /* gtl_scanner_1_print */, 1 /* gtl_scanner_1_println */, + 1 /* gtl_scanner_1_seed */, 1 /* gtl_scanner_1_repeat */, 1 /* gtl_scanner_1_sort */, 1 /* gtl_scanner_1_step */, @@ -940,7 +943,7 @@ - (NSUInteger) styleIndexForTerminal: (NSInteger) inTerminal { //---------------------------------------------------------------------------------------------------------------------- - (BOOL) atomicSelectionForToken: (NSUInteger) inTokenIndex { - static const BOOL kTerminalAtomicSelection [115] = {NO, + static const BOOL kTerminalAtomicSelection [116] = {NO, YES /* gtl_scanner_1_identifier */, YES /* gtl_scanner_1_literal_5F_enum */, YES /* gtl_scanner_1_literal_5F_double */, @@ -986,6 +989,7 @@ - (BOOL) atomicSelectionForToken: (NSUInteger) inTokenIndex { YES /* gtl_scanner_1_or */, YES /* gtl_scanner_1_print */, YES /* gtl_scanner_1_println */, + YES /* gtl_scanner_1_seed */, YES /* gtl_scanner_1_repeat */, YES /* gtl_scanner_1_sort */, YES /* gtl_scanner_1_step */, diff --git a/goil/build/output/lexique-gtl-5F-scanner-cocoa.swift b/goil/build/output/lexique-gtl-5F-scanner-cocoa.swift index e66f19d36..560526212 100644 --- a/goil/build/output/lexique-gtl-5F-scanner-cocoa.swift +++ b/goil/build/output/lexique-gtl-5F-scanner-cocoa.swift @@ -139,77 +139,78 @@ let gtl_scanner_1_not : UInt16 = 42 let gtl_scanner_1_or : UInt16 = 43 let gtl_scanner_1_print : UInt16 = 44 let gtl_scanner_1_println : UInt16 = 45 -let gtl_scanner_1_repeat : UInt16 = 46 -let gtl_scanner_1_sort : UInt16 = 47 -let gtl_scanner_1_step : UInt16 = 48 -let gtl_scanner_1_tab : UInt16 = 49 -let gtl_scanner_1_template : UInt16 = 50 -let gtl_scanner_1_then : UInt16 = 51 -let gtl_scanner_1_to : UInt16 = 52 -let gtl_scanner_1_true : UInt16 = 53 -let gtl_scanner_1_typeof : UInt16 = 54 -let gtl_scanner_1_up : UInt16 = 55 -let gtl_scanner_1_yes : UInt16 = 56 -let gtl_scanner_1_warning : UInt16 = 57 -let gtl_scanner_1_while : UInt16 = 58 -let gtl_scanner_1_write : UInt16 = 59 -let gtl_scanner_1_executable : UInt16 = 60 -let gtl_scanner_1_variables : UInt16 = 61 -let gtl_scanner_1_getter : UInt16 = 62 -let gtl_scanner_1_unlet : UInt16 = 63 -let gtl_scanner_1_setter : UInt16 = 64 -let gtl_scanner_1_libraries : UInt16 = 65 -let gtl_scanner_1_input : UInt16 = 66 -let gtl_scanner_1_break : UInt16 = 67 -let gtl_scanner_1__5F__5F_VARS_5F__5F_ : UInt16 = 68 -let gtl_scanner_1__2A_ : UInt16 = 69 -let gtl_scanner_1__7C_ : UInt16 = 70 -let gtl_scanner_1__2C_ : UInt16 = 71 -let gtl_scanner_1__2B_ : UInt16 = 72 -let gtl_scanner_1__3A__3A_ : UInt16 = 73 -let gtl_scanner_1__3E_ : UInt16 = 74 -let gtl_scanner_1__3A_ : UInt16 = 75 -let gtl_scanner_1__28_ : UInt16 = 76 -let gtl_scanner_1__29_ : UInt16 = 77 -let gtl_scanner_1__2D__3E_ : UInt16 = 78 -let gtl_scanner_1__3F_ : UInt16 = 79 -let gtl_scanner_1__3D__3D_ : UInt16 = 80 -let gtl_scanner_1__21_ : UInt16 = 81 -let gtl_scanner_1__3A__3D_ : UInt16 = 82 -let gtl_scanner_1__5B_ : UInt16 = 83 -let gtl_scanner_1__5D_ : UInt16 = 84 -let gtl_scanner_1__2B__3D_ : UInt16 = 85 -let gtl_scanner_1__2D__3D_ : UInt16 = 86 -let gtl_scanner_1__2F_ : UInt16 = 87 -let gtl_scanner_1__21__3D_ : UInt16 = 88 -let gtl_scanner_1__3E__3D_ : UInt16 = 89 -let gtl_scanner_1__26_ : UInt16 = 90 -let gtl_scanner_1__3C__3D_ : UInt16 = 91 -let gtl_scanner_1__7B_ : UInt16 = 92 -let gtl_scanner_1__7D_ : UInt16 = 93 -let gtl_scanner_1__3C_ : UInt16 = 94 -let gtl_scanner_1__5E_ : UInt16 = 95 -let gtl_scanner_1__3E__3E_ : UInt16 = 96 -let gtl_scanner_1__7E_ : UInt16 = 97 -let gtl_scanner_1__3C__2D_ : UInt16 = 98 -let gtl_scanner_1__3C__3C_ : UInt16 = 99 -let gtl_scanner_1__40_ : UInt16 = 100 -let gtl_scanner_1__2A__3D_ : UInt16 = 101 -let gtl_scanner_1__2F__3D_ : UInt16 = 102 -let gtl_scanner_1__26__3D_ : UInt16 = 103 -let gtl_scanner_1__7C__3D_ : UInt16 = 104 -let gtl_scanner_1__3C__3C__3D_ : UInt16 = 105 -let gtl_scanner_1__3E__3E__3D_ : UInt16 = 106 -let gtl_scanner_1_mod_3D_ : UInt16 = 107 -let gtl_scanner_1__5E__3D_ : UInt16 = 108 -let gtl_scanner_1__40__5B_ : UInt16 = 109 -let gtl_scanner_1__40__28_ : UInt16 = 110 -let gtl_scanner_1__40__7B_ : UInt16 = 111 -let gtl_scanner_1__5B__21_ : UInt16 = 112 -let gtl_scanner_1__40__21_ : UInt16 = 113 -let gtl_scanner_1__40__3F_ : UInt16 = 114 -let gtl_scanner_2_ERROR : UInt16 = 115 -let gtl_scanner_2_TEMPLATE : UInt16 = 116 +let gtl_scanner_1_seed : UInt16 = 46 +let gtl_scanner_1_repeat : UInt16 = 47 +let gtl_scanner_1_sort : UInt16 = 48 +let gtl_scanner_1_step : UInt16 = 49 +let gtl_scanner_1_tab : UInt16 = 50 +let gtl_scanner_1_template : UInt16 = 51 +let gtl_scanner_1_then : UInt16 = 52 +let gtl_scanner_1_to : UInt16 = 53 +let gtl_scanner_1_true : UInt16 = 54 +let gtl_scanner_1_typeof : UInt16 = 55 +let gtl_scanner_1_up : UInt16 = 56 +let gtl_scanner_1_yes : UInt16 = 57 +let gtl_scanner_1_warning : UInt16 = 58 +let gtl_scanner_1_while : UInt16 = 59 +let gtl_scanner_1_write : UInt16 = 60 +let gtl_scanner_1_executable : UInt16 = 61 +let gtl_scanner_1_variables : UInt16 = 62 +let gtl_scanner_1_getter : UInt16 = 63 +let gtl_scanner_1_unlet : UInt16 = 64 +let gtl_scanner_1_setter : UInt16 = 65 +let gtl_scanner_1_libraries : UInt16 = 66 +let gtl_scanner_1_input : UInt16 = 67 +let gtl_scanner_1_break : UInt16 = 68 +let gtl_scanner_1__5F__5F_VARS_5F__5F_ : UInt16 = 69 +let gtl_scanner_1__2A_ : UInt16 = 70 +let gtl_scanner_1__7C_ : UInt16 = 71 +let gtl_scanner_1__2C_ : UInt16 = 72 +let gtl_scanner_1__2B_ : UInt16 = 73 +let gtl_scanner_1__3A__3A_ : UInt16 = 74 +let gtl_scanner_1__3E_ : UInt16 = 75 +let gtl_scanner_1__3A_ : UInt16 = 76 +let gtl_scanner_1__28_ : UInt16 = 77 +let gtl_scanner_1__29_ : UInt16 = 78 +let gtl_scanner_1__2D__3E_ : UInt16 = 79 +let gtl_scanner_1__3F_ : UInt16 = 80 +let gtl_scanner_1__3D__3D_ : UInt16 = 81 +let gtl_scanner_1__21_ : UInt16 = 82 +let gtl_scanner_1__3A__3D_ : UInt16 = 83 +let gtl_scanner_1__5B_ : UInt16 = 84 +let gtl_scanner_1__5D_ : UInt16 = 85 +let gtl_scanner_1__2B__3D_ : UInt16 = 86 +let gtl_scanner_1__2D__3D_ : UInt16 = 87 +let gtl_scanner_1__2F_ : UInt16 = 88 +let gtl_scanner_1__21__3D_ : UInt16 = 89 +let gtl_scanner_1__3E__3D_ : UInt16 = 90 +let gtl_scanner_1__26_ : UInt16 = 91 +let gtl_scanner_1__3C__3D_ : UInt16 = 92 +let gtl_scanner_1__7B_ : UInt16 = 93 +let gtl_scanner_1__7D_ : UInt16 = 94 +let gtl_scanner_1__3C_ : UInt16 = 95 +let gtl_scanner_1__5E_ : UInt16 = 96 +let gtl_scanner_1__3E__3E_ : UInt16 = 97 +let gtl_scanner_1__7E_ : UInt16 = 98 +let gtl_scanner_1__3C__2D_ : UInt16 = 99 +let gtl_scanner_1__3C__3C_ : UInt16 = 100 +let gtl_scanner_1__40_ : UInt16 = 101 +let gtl_scanner_1__2A__3D_ : UInt16 = 102 +let gtl_scanner_1__2F__3D_ : UInt16 = 103 +let gtl_scanner_1__26__3D_ : UInt16 = 104 +let gtl_scanner_1__7C__3D_ : UInt16 = 105 +let gtl_scanner_1__3C__3C__3D_ : UInt16 = 106 +let gtl_scanner_1__3E__3E__3D_ : UInt16 = 107 +let gtl_scanner_1_mod_3D_ : UInt16 = 108 +let gtl_scanner_1__5E__3D_ : UInt16 = 109 +let gtl_scanner_1__40__5B_ : UInt16 = 110 +let gtl_scanner_1__40__28_ : UInt16 = 111 +let gtl_scanner_1__40__7B_ : UInt16 = 112 +let gtl_scanner_1__5B__21_ : UInt16 = 113 +let gtl_scanner_1__40__21_ : UInt16 = 114 +let gtl_scanner_1__40__3F_ : UInt16 = 115 +let gtl_scanner_2_ERROR : UInt16 = 116 +let gtl_scanner_2_TEMPLATE : UInt16 = 117 //---------------------------------------------------------------------------------------------------------------------- @@ -287,7 +288,7 @@ class SWIFT_Lexique_gtl_scanner : SWIFT_Lexique { //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - func terminalVocabularyCount () -> Int { - return 114 + return 115 } //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -366,77 +367,78 @@ class SWIFT_Lexique_gtl_scanner : SWIFT_Lexique { 1, // 43 : gtl_scanner_1_or 1, // 44 : gtl_scanner_1_print 1, // 45 : gtl_scanner_1_println - 1, // 46 : gtl_scanner_1_repeat - 1, // 47 : gtl_scanner_1_sort - 1, // 48 : gtl_scanner_1_step - 1, // 49 : gtl_scanner_1_tab - 1, // 50 : gtl_scanner_1_template - 1, // 51 : gtl_scanner_1_then - 1, // 52 : gtl_scanner_1_to - 1, // 53 : gtl_scanner_1_true - 1, // 54 : gtl_scanner_1_typeof - 1, // 55 : gtl_scanner_1_up - 1, // 56 : gtl_scanner_1_yes - 1, // 57 : gtl_scanner_1_warning - 1, // 58 : gtl_scanner_1_while - 1, // 59 : gtl_scanner_1_write - 1, // 60 : gtl_scanner_1_executable - 1, // 61 : gtl_scanner_1_variables - 1, // 62 : gtl_scanner_1_getter - 1, // 63 : gtl_scanner_1_unlet - 1, // 64 : gtl_scanner_1_setter - 1, // 65 : gtl_scanner_1_libraries - 1, // 66 : gtl_scanner_1_input - 1, // 67 : gtl_scanner_1_break - 1, // 68 : gtl_scanner_1__5F__5F_VARS_5F__5F_ - 2, // 69 : gtl_scanner_1__2A_ - 2, // 70 : gtl_scanner_1__7C_ - 2, // 71 : gtl_scanner_1__2C_ - 2, // 72 : gtl_scanner_1__2B_ - 2, // 73 : gtl_scanner_1__3A__3A_ - 2, // 74 : gtl_scanner_1__3E_ - 2, // 75 : gtl_scanner_1__3A_ - 2, // 76 : gtl_scanner_1__28_ - 2, // 77 : gtl_scanner_1__29_ - 2, // 78 : gtl_scanner_1__2D__3E_ - 2, // 79 : gtl_scanner_1__3F_ - 2, // 80 : gtl_scanner_1__3D__3D_ - 2, // 81 : gtl_scanner_1__21_ - 2, // 82 : gtl_scanner_1__3A__3D_ - 2, // 83 : gtl_scanner_1__5B_ - 2, // 84 : gtl_scanner_1__5D_ - 2, // 85 : gtl_scanner_1__2B__3D_ - 2, // 86 : gtl_scanner_1__2D__3D_ - 2, // 87 : gtl_scanner_1__2F_ - 2, // 88 : gtl_scanner_1__21__3D_ - 2, // 89 : gtl_scanner_1__3E__3D_ - 2, // 90 : gtl_scanner_1__26_ - 2, // 91 : gtl_scanner_1__3C__3D_ - 2, // 92 : gtl_scanner_1__7B_ - 2, // 93 : gtl_scanner_1__7D_ - 2, // 94 : gtl_scanner_1__3C_ - 2, // 95 : gtl_scanner_1__5E_ - 2, // 96 : gtl_scanner_1__3E__3E_ - 2, // 97 : gtl_scanner_1__7E_ - 2, // 98 : gtl_scanner_1__3C__2D_ - 2, // 99 : gtl_scanner_1__3C__3C_ - 2, // 100 : gtl_scanner_1__40_ - 2, // 101 : gtl_scanner_1__2A__3D_ - 2, // 102 : gtl_scanner_1__2F__3D_ - 2, // 103 : gtl_scanner_1__26__3D_ - 2, // 104 : gtl_scanner_1__7C__3D_ - 2, // 105 : gtl_scanner_1__3C__3C__3D_ - 2, // 106 : gtl_scanner_1__3E__3E__3D_ - 2, // 107 : gtl_scanner_1_mod_3D_ - 2, // 108 : gtl_scanner_1__5E__3D_ - 2, // 109 : gtl_scanner_1__40__5B_ - 2, // 110 : gtl_scanner_1__40__28_ - 2, // 111 : gtl_scanner_1__40__7B_ - 2, // 112 : gtl_scanner_1__5B__21_ - 2, // 113 : gtl_scanner_1__40__21_ - 2, // 114 : gtl_scanner_1__40__3F_ - 9, // 115 : gtl_scanner_2_ERROR - 10 // 116 : gtl_scanner_2_TEMPLATE + 1, // 46 : gtl_scanner_1_seed + 1, // 47 : gtl_scanner_1_repeat + 1, // 48 : gtl_scanner_1_sort + 1, // 49 : gtl_scanner_1_step + 1, // 50 : gtl_scanner_1_tab + 1, // 51 : gtl_scanner_1_template + 1, // 52 : gtl_scanner_1_then + 1, // 53 : gtl_scanner_1_to + 1, // 54 : gtl_scanner_1_true + 1, // 55 : gtl_scanner_1_typeof + 1, // 56 : gtl_scanner_1_up + 1, // 57 : gtl_scanner_1_yes + 1, // 58 : gtl_scanner_1_warning + 1, // 59 : gtl_scanner_1_while + 1, // 60 : gtl_scanner_1_write + 1, // 61 : gtl_scanner_1_executable + 1, // 62 : gtl_scanner_1_variables + 1, // 63 : gtl_scanner_1_getter + 1, // 64 : gtl_scanner_1_unlet + 1, // 65 : gtl_scanner_1_setter + 1, // 66 : gtl_scanner_1_libraries + 1, // 67 : gtl_scanner_1_input + 1, // 68 : gtl_scanner_1_break + 1, // 69 : gtl_scanner_1__5F__5F_VARS_5F__5F_ + 2, // 70 : gtl_scanner_1__2A_ + 2, // 71 : gtl_scanner_1__7C_ + 2, // 72 : gtl_scanner_1__2C_ + 2, // 73 : gtl_scanner_1__2B_ + 2, // 74 : gtl_scanner_1__3A__3A_ + 2, // 75 : gtl_scanner_1__3E_ + 2, // 76 : gtl_scanner_1__3A_ + 2, // 77 : gtl_scanner_1__28_ + 2, // 78 : gtl_scanner_1__29_ + 2, // 79 : gtl_scanner_1__2D__3E_ + 2, // 80 : gtl_scanner_1__3F_ + 2, // 81 : gtl_scanner_1__3D__3D_ + 2, // 82 : gtl_scanner_1__21_ + 2, // 83 : gtl_scanner_1__3A__3D_ + 2, // 84 : gtl_scanner_1__5B_ + 2, // 85 : gtl_scanner_1__5D_ + 2, // 86 : gtl_scanner_1__2B__3D_ + 2, // 87 : gtl_scanner_1__2D__3D_ + 2, // 88 : gtl_scanner_1__2F_ + 2, // 89 : gtl_scanner_1__21__3D_ + 2, // 90 : gtl_scanner_1__3E__3D_ + 2, // 91 : gtl_scanner_1__26_ + 2, // 92 : gtl_scanner_1__3C__3D_ + 2, // 93 : gtl_scanner_1__7B_ + 2, // 94 : gtl_scanner_1__7D_ + 2, // 95 : gtl_scanner_1__3C_ + 2, // 96 : gtl_scanner_1__5E_ + 2, // 97 : gtl_scanner_1__3E__3E_ + 2, // 98 : gtl_scanner_1__7E_ + 2, // 99 : gtl_scanner_1__3C__2D_ + 2, // 100 : gtl_scanner_1__3C__3C_ + 2, // 101 : gtl_scanner_1__40_ + 2, // 102 : gtl_scanner_1__2A__3D_ + 2, // 103 : gtl_scanner_1__2F__3D_ + 2, // 104 : gtl_scanner_1__26__3D_ + 2, // 105 : gtl_scanner_1__7C__3D_ + 2, // 106 : gtl_scanner_1__3C__3C__3D_ + 2, // 107 : gtl_scanner_1__3E__3E__3D_ + 2, // 108 : gtl_scanner_1_mod_3D_ + 2, // 109 : gtl_scanner_1__5E__3D_ + 2, // 110 : gtl_scanner_1__40__5B_ + 2, // 111 : gtl_scanner_1__40__28_ + 2, // 112 : gtl_scanner_1__40__7B_ + 2, // 113 : gtl_scanner_1__5B__21_ + 2, // 114 : gtl_scanner_1__40__21_ + 2, // 115 : gtl_scanner_1__40__3F_ + 9, // 116 : gtl_scanner_2_ERROR + 10 // 117 : gtl_scanner_2_TEMPLATE ] return kTerminalSymbolStyles [Int (inTokenIndex)] } @@ -491,77 +493,78 @@ class SWIFT_Lexique_gtl_scanner : SWIFT_Lexique { true, // 43 : gtl_scanner_1_or true, // 44 : gtl_scanner_1_print true, // 45 : gtl_scanner_1_println - true, // 46 : gtl_scanner_1_repeat - true, // 47 : gtl_scanner_1_sort - true, // 48 : gtl_scanner_1_step - true, // 49 : gtl_scanner_1_tab - true, // 50 : gtl_scanner_1_template - true, // 51 : gtl_scanner_1_then - true, // 52 : gtl_scanner_1_to - true, // 53 : gtl_scanner_1_true - true, // 54 : gtl_scanner_1_typeof - true, // 55 : gtl_scanner_1_up - true, // 56 : gtl_scanner_1_yes - true, // 57 : gtl_scanner_1_warning - true, // 58 : gtl_scanner_1_while - true, // 59 : gtl_scanner_1_write - true, // 60 : gtl_scanner_1_executable - true, // 61 : gtl_scanner_1_variables - true, // 62 : gtl_scanner_1_getter - true, // 63 : gtl_scanner_1_unlet - true, // 64 : gtl_scanner_1_setter - true, // 65 : gtl_scanner_1_libraries - true, // 66 : gtl_scanner_1_input - true, // 67 : gtl_scanner_1_break - true, // 68 : gtl_scanner_1__5F__5F_VARS_5F__5F_ - true, // 69 : gtl_scanner_1__2A_ - true, // 70 : gtl_scanner_1__7C_ - true, // 71 : gtl_scanner_1__2C_ - true, // 72 : gtl_scanner_1__2B_ - true, // 73 : gtl_scanner_1__3A__3A_ - true, // 74 : gtl_scanner_1__3E_ - true, // 75 : gtl_scanner_1__3A_ - true, // 76 : gtl_scanner_1__28_ - true, // 77 : gtl_scanner_1__29_ - true, // 78 : gtl_scanner_1__2D__3E_ - true, // 79 : gtl_scanner_1__3F_ - true, // 80 : gtl_scanner_1__3D__3D_ - true, // 81 : gtl_scanner_1__21_ - true, // 82 : gtl_scanner_1__3A__3D_ - true, // 83 : gtl_scanner_1__5B_ - true, // 84 : gtl_scanner_1__5D_ - true, // 85 : gtl_scanner_1__2B__3D_ - true, // 86 : gtl_scanner_1__2D__3D_ - true, // 87 : gtl_scanner_1__2F_ - true, // 88 : gtl_scanner_1__21__3D_ - true, // 89 : gtl_scanner_1__3E__3D_ - true, // 90 : gtl_scanner_1__26_ - true, // 91 : gtl_scanner_1__3C__3D_ - true, // 92 : gtl_scanner_1__7B_ - true, // 93 : gtl_scanner_1__7D_ - true, // 94 : gtl_scanner_1__3C_ - true, // 95 : gtl_scanner_1__5E_ - true, // 96 : gtl_scanner_1__3E__3E_ - true, // 97 : gtl_scanner_1__7E_ - true, // 98 : gtl_scanner_1__3C__2D_ - true, // 99 : gtl_scanner_1__3C__3C_ - true, // 100 : gtl_scanner_1__40_ - true, // 101 : gtl_scanner_1__2A__3D_ - true, // 102 : gtl_scanner_1__2F__3D_ - true, // 103 : gtl_scanner_1__26__3D_ - true, // 104 : gtl_scanner_1__7C__3D_ - true, // 105 : gtl_scanner_1__3C__3C__3D_ - true, // 106 : gtl_scanner_1__3E__3E__3D_ - true, // 107 : gtl_scanner_1_mod_3D_ - true, // 108 : gtl_scanner_1__5E__3D_ - true, // 109 : gtl_scanner_1__40__5B_ - true, // 110 : gtl_scanner_1__40__28_ - true, // 111 : gtl_scanner_1__40__7B_ - true, // 112 : gtl_scanner_1__5B__21_ - true, // 113 : gtl_scanner_1__40__21_ - true, // 114 : gtl_scanner_1__40__3F_ - false, // 115 : gtl_scanner_2_ERROR - false // 116 : gtl_scanner_2_TEMPLATE + true, // 46 : gtl_scanner_1_seed + true, // 47 : gtl_scanner_1_repeat + true, // 48 : gtl_scanner_1_sort + true, // 49 : gtl_scanner_1_step + true, // 50 : gtl_scanner_1_tab + true, // 51 : gtl_scanner_1_template + true, // 52 : gtl_scanner_1_then + true, // 53 : gtl_scanner_1_to + true, // 54 : gtl_scanner_1_true + true, // 55 : gtl_scanner_1_typeof + true, // 56 : gtl_scanner_1_up + true, // 57 : gtl_scanner_1_yes + true, // 58 : gtl_scanner_1_warning + true, // 59 : gtl_scanner_1_while + true, // 60 : gtl_scanner_1_write + true, // 61 : gtl_scanner_1_executable + true, // 62 : gtl_scanner_1_variables + true, // 63 : gtl_scanner_1_getter + true, // 64 : gtl_scanner_1_unlet + true, // 65 : gtl_scanner_1_setter + true, // 66 : gtl_scanner_1_libraries + true, // 67 : gtl_scanner_1_input + true, // 68 : gtl_scanner_1_break + true, // 69 : gtl_scanner_1__5F__5F_VARS_5F__5F_ + true, // 70 : gtl_scanner_1__2A_ + true, // 71 : gtl_scanner_1__7C_ + true, // 72 : gtl_scanner_1__2C_ + true, // 73 : gtl_scanner_1__2B_ + true, // 74 : gtl_scanner_1__3A__3A_ + true, // 75 : gtl_scanner_1__3E_ + true, // 76 : gtl_scanner_1__3A_ + true, // 77 : gtl_scanner_1__28_ + true, // 78 : gtl_scanner_1__29_ + true, // 79 : gtl_scanner_1__2D__3E_ + true, // 80 : gtl_scanner_1__3F_ + true, // 81 : gtl_scanner_1__3D__3D_ + true, // 82 : gtl_scanner_1__21_ + true, // 83 : gtl_scanner_1__3A__3D_ + true, // 84 : gtl_scanner_1__5B_ + true, // 85 : gtl_scanner_1__5D_ + true, // 86 : gtl_scanner_1__2B__3D_ + true, // 87 : gtl_scanner_1__2D__3D_ + true, // 88 : gtl_scanner_1__2F_ + true, // 89 : gtl_scanner_1__21__3D_ + true, // 90 : gtl_scanner_1__3E__3D_ + true, // 91 : gtl_scanner_1__26_ + true, // 92 : gtl_scanner_1__3C__3D_ + true, // 93 : gtl_scanner_1__7B_ + true, // 94 : gtl_scanner_1__7D_ + true, // 95 : gtl_scanner_1__3C_ + true, // 96 : gtl_scanner_1__5E_ + true, // 97 : gtl_scanner_1__3E__3E_ + true, // 98 : gtl_scanner_1__7E_ + true, // 99 : gtl_scanner_1__3C__2D_ + true, // 100 : gtl_scanner_1__3C__3C_ + true, // 101 : gtl_scanner_1__40_ + true, // 102 : gtl_scanner_1__2A__3D_ + true, // 103 : gtl_scanner_1__2F__3D_ + true, // 104 : gtl_scanner_1__26__3D_ + true, // 105 : gtl_scanner_1__7C__3D_ + true, // 106 : gtl_scanner_1__3C__3C__3D_ + true, // 107 : gtl_scanner_1__3E__3E__3D_ + true, // 108 : gtl_scanner_1_mod_3D_ + true, // 109 : gtl_scanner_1__5E__3D_ + true, // 110 : gtl_scanner_1__40__5B_ + true, // 111 : gtl_scanner_1__40__28_ + true, // 112 : gtl_scanner_1__40__7B_ + true, // 113 : gtl_scanner_1__5B__21_ + true, // 114 : gtl_scanner_1__40__21_ + true, // 115 : gtl_scanner_1__40__3F_ + false, // 116 : gtl_scanner_2_ERROR + false // 117 : gtl_scanner_2_TEMPLATE ] return kTerminalAtomicSelection [Int (inTokenIndex)] } @@ -1107,7 +1110,7 @@ class SWIFT_Lexique_gtl_scanner : SWIFT_Lexique { //---------------------------------------------------------------------------------------------------------------------- /* -static const BOOL kEndOfScriptInTemplateArray_gtl_5F_scanner [114] = { +static const BOOL kEndOfScriptInTemplateArray_gtl_5F_scanner [115] = { NO /* identifier */, NO /* literal_enum */, NO /* literal_double */, @@ -1153,6 +1156,7 @@ static const BOOL kEndOfScriptInTemplateArray_gtl_5F_scanner [114] = { NO /* or */, NO /* print */, NO /* println */, + NO /* seed */, NO /* repeat */, NO /* sort */, NO /* step */, @@ -1256,6 +1260,7 @@ fileprivate func search_into_gtl_5F_scanner_goilTemplateKeyWordList (_ inSearche "func" : gtl_scanner_1_func, "here" : gtl_scanner_1_here, "loop" : gtl_scanner_1_loop, + "seed" : gtl_scanner_1_seed, "sort" : gtl_scanner_1_sort, "step" : gtl_scanner_1_step, "then" : gtl_scanner_1_then, diff --git a/goil/build/output/project_header.h b/goil/build/output/project_header.h index e75495649..cb06cfb96 100644 --- a/goil/build/output/project_header.h +++ b/goil/build/output/project_header.h @@ -8,6 +8,6 @@ //---------------------------------------------------------------------------------------------------------------------- -#define PROJECT_VERSION_STRING "3.1.15" +#define PROJECT_VERSION_STRING "3.1.16" //---------------------------------------------------------------------------------------------------------------------- diff --git a/goil/cross-build.py b/goil/cross-build.py index 6e2c3a73f..fe56a8d00 100755 --- a/goil/cross-build.py +++ b/goil/cross-build.py @@ -5,41 +5,81 @@ # zip the files #-----------------------------------------------------------------------------* -import sys, os +import sys, os, argparse target_dir = "/Users/jlb/Documents/Clouds/cloud-univ-nantes/goil-distrib" +parser = argparse.ArgumentParser( + prog = "crossbuild.py", + description = "Build goil for all platform" +) + +parser.add_argument('-n', '--no-upload', action = 'store_true') +args = parser.parse_args() + #-----------------------------------------------------------------------------* print("*** building goil for Mac OS X") -os.chdir("makefile-unix") +os.chdir("makefile-macosx") os.system("./build.py") +#--- Pack the universal binary +os.chdir("universal") +if os.access("goil-mac-os-x-universal.zip", os.W_OK): + os.remove("goil-mac-os-x-universal.zip") +print("*** packing goil for Mac OS X Universal") +os.system("zip goil-mac-os-x-universal.zip goil goil-debug") +if not args.no_upload: + print("*** uploading goil for Mac OS X Universal to the cloud") + os.system(f"cp goil-mac-os-x-universal.zip {target_dir}") +#--- Pack the arm64 +os.chdir("../arm64") +if os.access("goil-mac-os-x-silicon.zip", os.W_OK): + os.remove("goil-mac-os-x-silicon.zip") +print("*** packing goil for Mac OS X Apple Silicon") +os.system("zip goil-mac-os-x-silicon.zip goil goil-debug") +if not args.no_upload: + print("*** uploading goil for Mac OS X Apple Silicon to the cloud") + os.system(f"cp goil-mac-os-x-silicon.zip {target_dir}") +#--- Pack the x86_64 +os.chdir("../x86_64") if os.access("goil-mac-os-x.zip", os.W_OK): os.remove("goil-mac-os-x.zip") +print("*** packing goil for Mac OS X x86_64") os.system("zip goil-mac-os-x.zip goil goil-debug") -os.system(f"cp goil-mac-os-x.zip {target_dir}") +if not args.no_upload: + print("*** uploading goil for Mac OS X x86_64 to the cloud") + os.system(f"cp goil-mac-os-x.zip {target_dir}") #-----------------------------------------------------------------------------* print("*** building goil for Linux 32 bits") -os.chdir("../makefile-x86linux32-on-macosx") +os.chdir("../../makefile-x86linux32-on-macosx") os.system("./build.py") if os.access("goil-linux-32.zip", os.W_OK): os.remove("goil-linux-32.zip") +print("*** packing goil for Linux 32 bits") os.system("zip goil-linux-32.zip goil goil-debug") -os.system(f"cp goil-linux-32.zip {target_dir}") +if not args.no_upload: + print("*** uploading goil for Linux 32 bits to the cloud") + os.system(f"cp goil-linux-32.zip {target_dir}") #-----------------------------------------------------------------------------* print("*** building goil for Linux 64 bits") os.chdir("../makefile-x86linux64-on-macosx") os.system("./build.py") if os.access("goil-linux-64.zip", os.W_OK): os.remove("goil-linux-64.zip") +print("*** packing goil for Linux 64 bits") os.system("zip goil-linux-64.zip goil goil-debug") -os.system(f"cp goil-linux-64.zip {target_dir}") +if not args.no_upload: + print("*** uploading goil for Linux 64 bits to the cloud") + os.system(f"cp goil-linux-64.zip {target_dir}") #-----------------------------------------------------------------------------* print("*** building goil for Win 32") os.chdir("../makefile-win32-on-macosx") os.system("./build.py") if os.access("goil-windows.zip", os.W_OK): os.remove("goil-windows.zip") +print("*** packing goil for Win 32") os.system("zip goil-windows.zip goil.exe goil-debug.exe") -os.system(f"cp goil-windows.zip {target_dir}") -os.chdir("..") +if not args.no_upload: + print("*** uploading goil for Win 32 to the cloud") + os.system(f"cp goil-windows.zip {target_dir}") +os.chdir("../..") #-----------------------------------------------------------------------------* diff --git a/goil/galgas-sources/GTL b/goil/galgas-sources/GTL new file mode 160000 index 000000000..0d44d3093 --- /dev/null +++ b/goil/galgas-sources/GTL @@ -0,0 +1 @@ +Subproject commit 0d44d309364176d640b47031d818a25ca2eaab7c diff --git a/goil/galgas-sources/goil_gtl_extension.galgas b/goil/galgas-sources/goil_gtl_extension.galgas new file mode 100644 index 000000000..82b795089 --- /dev/null +++ b/goil/galgas-sources/goil_gtl_extension.galgas @@ -0,0 +1,35 @@ +func customGtlStringGetter + ?let @lstring methodName + ?let @gtlDataList arguments + ?let @gtlContext unused context + ?let @library unused lib + ?let @string value + ?let @location where + ->@gtlData result +{ + if "parseOIL" == methodName then + argumentsCheck(!methodName !noArgument() !arguments) + let @string rootTemplatesDir = templates_directory(!"") + @implementation imp = @implementation.new { !@implementationMap.emptyMap } + @applicationDefinition app = emptyApplicationDefinition() + let @lstring includeToParse = @lstring.new{ + !rootTemplatesDir + "libraries/config.oil" + !where + } + let @lstring fileToParse = @lstring.new{ + !rootTemplatesDir + "libraries/" + value + !where + } + grammar goil_file_level_include_without_include in includeToParse + !?imp + !?app + grammar goil_file_level_include_without_include in fileToParse + !?imp + !?app + let @gtlData templateData = [app templateData !imp] + result = templateData + else + error methodName : "unknown getter '" + methodName +"' for string target" + : result + end +} diff --git a/goil/galgas-sources/gtl_data_types.galgas b/goil/galgas-sources/gtl_data_types.galgas deleted file mode 100755 index 9983c33a0..000000000 --- a/goil/galgas-sources/gtl_data_types.galgas +++ /dev/null @@ -1,4700 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_data_types.galgas -# -# @section desc File description -# -# datatypes of gtl GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -getter @type typeName - ->@string typeName -{ - if self == `@gtlInt then typeName = "int" - elsif self == `@gtlChar then typeName = "char" - elsif self == `@gtlFloat then typeName = "float" - elsif self == `@gtlString then typeName = "string" - elsif self == `@gtlBool then typeName = "bool" - elsif self == `@gtlStruct then typeName = "struct" - elsif self == `@gtlList then typeName = "list" - elsif self == `@gtlMap then typeName = "map" - elsif self == `@gtlType then typeName = "type" - elsif self == `@gtlEnum then typeName = "enum" - elsif self == `@gtlSet then typeName = "set" - elsif self == `@gtlUnconstructed then typeName = "unconstructed" - else typeName = "-unknown-" end -} - -getter @string gtlType - ?let @location location - ->@type type -{ - if self == "int" then type = `@gtlInt - elsif self == "char" then type = `@gtlChar - elsif self == "float" then type = `@gtlFloat - elsif self == "string" then type = `@gtlString - elsif self == "bool" then type = `@gtlBool - elsif self == "struct" then type = `@gtlStruct - elsif self == "list" then type = `@gtlList - elsif self == "map" then type = `@gtlMap - elsif self == "type" then type = `@gtlType - elsif self == "enum" then type = `@gtlEnum - elsif self == "set" then type = `@gtlSet - elsif self == "unconstructed" then type = `@gtlUnconstructed - else error location : "unknown type" : type end -} - -getter @lstring gtlType - ->@type type -{ - let @string typeName = [self string] - if typeName == "int" then type = `@gtlInt - elsif typeName == "char" then type = `@gtlChar - elsif typeName == "float" then type = `@gtlFloat - elsif typeName == "string" then type = `@gtlString - elsif typeName == "bool" then type = `@gtlBool - elsif typeName == "struct" then type = `@gtlStruct - elsif typeName == "list" then type = `@gtlList - elsif typeName == "map" then type = `@gtlMap - elsif typeName == "type" then type = `@gtlType - elsif typeName == "enum" then type = `@gtlEnum - elsif typeName == "set" then type = `@gtlSet - elsif typeName == "unconstructed" then type = `@gtlUnconstructed - else error location : "unknown type" : type end -} - -private func %once noArgument -> @gtlTypedArgumentList result -{ - result = .emptyList -} - -private func %once intArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlInt } -} - -private func %once charArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlChar } -} - -private func %once charCharArguments -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlChar } - result += !`@gtlChar -} - -private func %once charIntArguments -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlChar } - result += !`@gtlInt -} - -private func %once floatArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlFloat } -} - -private func %once stringArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlString } -} - -private func %once stringStringArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlString } - result += !`@gtlString -} - -private func %once boolIntArguments -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlBool } - result += !`@gtlInt -} - -private func %once intIntArguments -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlInt } - result += !`@gtlInt -} - -private func %once intAnyArguments -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlInt } - result += !`@gtlData -} - -private func %once anyArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlData } -} - -private func %once structArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlStruct } -} - -private func %once expressionArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlExpr } -} - -private func %once setArgument -> @gtlTypedArgumentList result -{ - result = .listWithValue { !`@gtlSet } -} - -private proc argumentsCheck - ?let @lstring methodName - ?@gtlTypedArgumentList abstractArgumentList - ?@gtlDataList concreteArgumentList -{ - let @uint concreteLength = [concreteArgumentList length] - let @uint abstractLength = [abstractArgumentList length] - if [abstractArgumentList length] != [concreteArgumentList length] then - error methodName : [methodName string] + " expects " + abstractLength + - " arguments. " + concreteLength + " arguments provided." - else - for () in concreteArgumentList, () in abstractArgumentList do (index) - if [data dynamicType] != type & type != `@gtlData then - error [data location] : [type typeName] + - " expected for argument " + - (index + 1) - end - end - end -} - -func %once emptylstring ->@lstring result -{ - result = .new { !"" !.nowhere } -} - -func lstring ?@string string ->@lstring result -{ - result = .new { !string !.nowhere } -} - -abstract class @gtlData { - @location where - @lstring meta -} - -getter @gtlData location -> @location result { - result = where -} - -abstract getter @gtlData desc ?let @uint tab -> @string -abstract getter @gtlData string -> @string -abstract getter @gtlData lstring -> @lstring -abstract getter @gtlData bool -> @bool -abstract getter @gtlData int -> @bigint -abstract getter @gtlData float -> @double -abstract getter @gtlData plusOp -> @gtlData -abstract getter @gtlData minusOp -> @gtlData -abstract getter @gtlData notOp -> @gtlData -abstract getter @gtlData addOp ?let @gtlData right -> @gtlData -abstract getter @gtlData subOp ?let @gtlData right -> @gtlData -abstract getter @gtlData mulOp ?let @gtlData right -> @gtlData -abstract getter @gtlData divOp ?let @gtlData right -> @gtlData -abstract getter @gtlData modOp ?let @gtlData right -> @gtlData -abstract getter @gtlData andOp ?let @gtlData right -> @gtlData -abstract getter @gtlData orOp ?let @gtlData right -> @gtlData -abstract getter @gtlData xorOp ?let @gtlData right -> @gtlData -abstract getter @gtlData slOp ?let @gtlData right -> @gtlData -abstract getter @gtlData srOp ?let @gtlData right -> @gtlData -abstract getter @gtlData neqOp ?let @gtlData right -> @gtlData -abstract getter @gtlData eqOp ?let @gtlData right -> @gtlData -abstract getter @gtlData ltOp ?let @gtlData right -> @gtlData -abstract getter @gtlData leOp ?let @gtlData right -> @gtlData -abstract getter @gtlData gtOp ?let @gtlData right -> @gtlData -abstract getter @gtlData geOp ?let @gtlData right -> @gtlData - -abstract getter @gtlData embeddedType -> @type - -abstract method @gtlData addMyValue ?!@objectlist objectList - -list @gtlTypedArgumentList { - @type type -} - -abstract getter @gtlData performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData - -abstract setter @gtlData performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - -method @gtlData structField - ?let @lstring name - !@gtlData result - !@bool found -{ - error name : "a " + [[self dynamicType] typeName] + " is not a struct" : result, found -} - -getter @gtlData resultField - ?let @lstring name - ->@gtlData result -{ - error name : "a " + [[self dynamicType] typeName] + " is not a struct" : result -} - -setter @gtlData setStructField - ?let @lstring name - ?let @gtlData unused data -{ - - error name : "a " + [[self dynamicType] typeName] + " is not a struct" -} - -setter @gtlData setStructFieldAtLevel - ?let @lstring name - ?let @gtlData unused data - ?let @uint unused level -{ - - error name : "a " + [[self dynamicType] typeName] + " is not a struct" -} - -setter @gtlData deleteStructField - ?let @lstring name -{ - error name : "a " + [[self dynamicType] typeName] + " is not a struct" -} - -getter @gtlData hasStructField - ?let @lstring unused name - ->@bool result -{ - result = false -} - -getter @gtlData overrideMap - -> @gtlStruct mapOverriden -{ - error self : "INTERNAL ERROR : a variable map should be a @gtlStruct" : mapOverriden -} - -getter @gtlData overriddenMap - -> @gtlStruct overriddenMap -{ - error self : "INTERNAL ERROR : a variable map should be a @gtlStruct" : overriddenMap -} - -method @gtlData mapItem - ?let @lstring name - !@gtlData result -{ - error name : "a " + [[self dynamicType] typeName] + " is not a map" : result -} - -getter @gtlData hasMapItem - ?let @lstring unused name - ->@bool result -{ - result = false -} - -setter @gtlData setMapItem - ?let @lstring name - ?let @gtlData unused data -{ - error name : "a " + [[self dynamicType] typeName] + " is not a map" -} - -setter @gtlData deleteMapItem - ?let @lstring name -{ - error name : "a " + [[self dynamicType] typeName] + " is not a map" -} - -method @gtlData itemAtIndex - !@gtlData result - ?let @gtlInt index -{ - error index : "a " + [[self dynamicType] typeName] + " is not a list" : result -} - -getter @gtlData hasItemAtIndex - ?let @gtlInt unused index - ->@bool result -{ - result = false -} - -setter @gtlData setItemAtIndex - ?let @gtlData unused data - ?let @gtlInt index -{ - error index : "a " + [[self dynamicType] typeName] + " is not a list" -} - -setter @gtlData deleteItemAtIndex - ?let @gtlInt index -{ - error index : "a " + [[self dynamicType] typeName] + " is not a list" -} - -setter @gtlData appendItem - ?let @gtlData item -{ - error item : "a " + [[self dynamicType] typeName] + " is not a list" -} - -#-----------------------------------------------------------------------------* -# unconstructed type and operations on unconstructed -#-----------------------------------------------------------------------------* -class @gtlUnconstructed : @gtlData {} - -override getter @gtlUnconstructed desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "unconstructed\n" -} - -override getter @gtlUnconstructed string -> @string result { - error where : "cannot cast an unconstructed to a string" : result -} - -override getter @gtlUnconstructed lstring -> @lstring result { - error where : "cannot cast an unconstructed to a lstring" : result -} - -override getter @gtlUnconstructed bool -> @bool result { - error where : "cannot cast an unconstructed to a bool" : result -} - -override getter @gtlUnconstructed int -> @bigint result { - error where : "cannot cast an unconstructed to an int" : result -} - -override getter @gtlUnconstructed float -> @double result { - error where : "cannot cast an unconstructed to a float" : result -} - -override getter @gtlUnconstructed plusOp -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed minusOp -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed notOp -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed addOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed subOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed mulOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed divOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed modOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed andOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed orOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed xorOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed slOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed srOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed neqOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed eqOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed gtOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed geOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed ltOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} -override getter @gtlUnconstructed leOp ?let @gtlData unused right -> @gtlData result { - error where : "unconstructed forbidden" : result -} - -override getter @gtlUnconstructed embeddedType -> @type result -{ - error where : "unconstructed data provided as argument" : result -} - -override method @gtlUnconstructed addMyValue ?!@objectlist unused objectList -{ - error where : "Attempting to pass an unconstructed data to a function" -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlUnconstructed -#-----------------------------------------------------------------------------* -override getter @gtlUnconstructed performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - elsif [lib getterExists !"unconstructed" !methodName] then - result = [[lib getGetter !"unconstructed" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - else - error methodName : "unknown getter '" + methodName +"' for unconstructed target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlUnconstructed -#-----------------------------------------------------------------------------* -override setter @gtlUnconstructed performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"unconstructed" !methodName] then - @gtlData copy = self - [[lib getSetter !"unconstructed" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for unconstructed target" - end -} - - -#-----------------------------------------------------------------------------* -# type type and operations on type -#-----------------------------------------------------------------------------* -class @gtlType : @gtlData { @type type } - -override getter @gtlType desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "type: " + [type typeName] + "\n" -} - -override getter @gtlType string -> @string result { result = [type typeName] } - -override getter @gtlType lstring -> @lstring result { - result = .new { ![type typeName] !where } -} - -override getter @gtlType bool -> @bool result { - error where : "cannot cast a type to a bool" : result -} - -override getter @gtlType int -> @bigint result { - error where : "cannot cast a type to an int" : result -} - -override getter @gtlType float -> @double result { - error where : "cannot cast a type to a float" : result -} - -override getter @gtlType plusOp -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType minusOp -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType notOp -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType addOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType subOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType mulOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType divOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType modOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType andOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType orOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType xorOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType slOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType srOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlType then - result = @gtlBool.new { !where !emptylstring() !type != [right as @gtlType type] } - else - error [right where] : "type expected" : result - end -} -override getter @gtlType eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlType then - result = @gtlBool.new { !where !emptylstring() !type == [right as @gtlType type] } - else - error [right where] : "type expected" : result - end -} -override getter @gtlType gtOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType geOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType ltOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} -override getter @gtlType leOp ?let @gtlData unused right -> @gtlData result { - error where : "type forbidden" : result -} - -override getter @gtlType embeddedType -> @type result -{ - result = `@type -} - -override method @gtlType addMyValue ?!@objectlist objectList -{ - objectList += ![type object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlType -#-----------------------------------------------------------------------------* -override getter @gtlType performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "string" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![self string] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - elsif [lib getterExists !"type" !methodName] then - result = [[lib getGetter !"type" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - else - error methodName : "unknown getter '" + methodName +"' for type target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlType -#-----------------------------------------------------------------------------* -override setter @gtlType performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"type" !methodName] then - @gtlData copy = self - [[lib getSetter !"type" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - type = [copy as @gtlType type] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for type target" - end -} - -#-----------------------------------------------------------------------------* -# type enum and operations on enum -#-----------------------------------------------------------------------------* -class @gtlEnum : @gtlData { @string value } - -override getter @gtlEnum desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "enum: " + value + "\n" -} - -override getter @gtlEnum string -> @string result { result = value } - -override getter @gtlEnum lstring -> @lstring result { - result = .new { !value !where } -} - -override getter @gtlEnum bool -> @bool result { - error where : "cannot cast an enum to a bool" : result -} - -override getter @gtlEnum int -> @bigint result { - error where : "cannot cast an enum to an int" : result -} - -override getter @gtlEnum float -> @double result { - error where : "cannot cast an enum to a float" : result -} - -override getter @gtlEnum plusOp -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum minusOp -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum notOp -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum addOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum subOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum mulOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum divOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum modOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum andOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum orOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum xorOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum slOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum srOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlEnum then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlEnum value] - } - else - error [right where] : "enum expected" : result - end -} -override getter @gtlEnum eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlEnum then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlEnum value] - } - else - error [right where] : "enum expected" : result - end -} -override getter @gtlEnum gtOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum geOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum ltOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} -override getter @gtlEnum leOp ?let @gtlData unused right -> @gtlData result { - error where : "enum forbidden" : result -} - -override getter @gtlEnum embeddedType -> @type result -{ - error where : "enum forbidden as built in function argument" : result -} - -override method @gtlEnum addMyValue ?!@objectlist unused objectList -{ - error where : "enum forbidden as built in function argument" -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlEnum -#-----------------------------------------------------------------------------* -override getter @gtlEnum performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "string" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![self string] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"enum" !methodName] then - result = [[lib getGetter !"enum" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for enum target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlEnum -#-----------------------------------------------------------------------------* -override setter @gtlEnum performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"enum" !methodName] then - @gtlData copy = self - [[lib getSetter !"enum" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlEnum value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for enum target" - end -} - -#-----------------------------------------------------------------------------* -# Int type and operations on int -#-----------------------------------------------------------------------------* -class @gtlChar : @gtlData { @char value } - -override getter @gtlChar desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "char: " + [value string] + "\n" -} - -override getter @gtlChar string -> @string result { result = [value string] } - -override getter @gtlChar lstring -> @lstring result { - result = .new { ![value string] !where } -} - -override getter @gtlChar bool -> @bool result { - error where : "cannot cast a char to a bool" : result -} - -override getter @gtlChar int -> @bigint result { - result = [[value uint] bigint] -} - -override getter @gtlChar float -> @double result { - error where : "cannot cast a char to a float" : result -} - -override getter @gtlChar plusOp -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar minusOp -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar notOp -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar addOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar subOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar mulOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar divOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar modOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar andOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar orOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar xorOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar slOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar srOp ?let @gtlData unused right -> @gtlData result { - error where : "char forbidden" : result -} - -override getter @gtlChar neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlChar value] - } - else - error right : "char expected" : result - end -} - -override getter @gtlChar eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlChar value] - } - else - error right : "char expected" : result - end -} - -override getter @gtlChar gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value > [right as @gtlChar value] - } - else - error right : "char expected" : result - end -} - -override getter @gtlChar geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value >= [right as @gtlChar value] - } - else - error [right where] : "char expected" : result - end -} - -override getter @gtlChar ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value < [right as @gtlChar value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlChar leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlChar then - result = @gtlBool.new { - !where - !emptylstring() - !value <= [right as @gtlChar value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlChar embeddedType -> @type result -{ - result = `@char -} - -override method @gtlChar addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlChar -#-----------------------------------------------------------------------------* -override getter @gtlChar performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "string" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![self string] - } - elsif "isAlnum" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value isalnum] - } - elsif "isCntrl" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value iscntrl] - } - elsif "isDigit" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value isdigit] - } - elsif "isAlpha" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value isalpha] - } - elsif "isLower" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value islower] - } - elsif "isUpper" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value isupper] - } - elsif "isXDigit" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value isxdigit] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"char" !methodName] then - result = [[lib getGetter !"char" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for char target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlChar -#-----------------------------------------------------------------------------* -override setter @gtlChar performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"char" !methodName] then - @gtlData copy = self - [[lib getSetter !"char" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlChar value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for char target" - end -} - -#-----------------------------------------------------------------------------* -# Int type and operations on int -#-----------------------------------------------------------------------------* -class @gtlInt : @gtlData { @bigint value } - -override getter @gtlInt desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "integer: " + [value string] + "\n" -} - -override getter @gtlInt string -> @string result { result = [value string] } - -override getter @gtlInt lstring -> @lstring result { - result = .new { ![value string] !where } -} - -override getter @gtlInt bool -> @bool result { - error where : "cannot cast an int to a bool" : result -} - -override getter @gtlInt int -> @bigint result { - result = value -} - -override getter @gtlInt float -> @double result { - result = [[value sint64] double] -} - -override getter @gtlInt plusOp -> @gtlData result { result = self } - -override getter @gtlInt minusOp -> @gtlData result { - result = @gtlInt.new { !where !emptylstring() !-value } -} - -override getter @gtlInt notOp -> @gtlData result { - result = @gtlInt.new { !where !emptylstring() !~value } -} - -override getter @gtlInt addOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value + [right as @gtlInt value] - } - else - error [right where] : "*int expected" : result - end -} - -override getter @gtlInt subOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value - [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt mulOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value * [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt divOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value / [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt modOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value mod [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt andOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value & [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt orOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value | [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt xorOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlInt.new { - !where - !emptylstring() - !value ^ [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt slOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - let @bigint r = [right as @gtlInt value]; - if r >= 0 then - result = @gtlInt.new { - !where - !emptylstring() - !value << [[right as @gtlInt value] uint] - } - else - error [right where] : "positive int expected" : result - end - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt srOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - let @bigint r = [right as @gtlInt value]; - if r >= 0 then - result = @gtlInt.new { !where !emptylstring() !value >> [r uint] } - else - error [right where] : "positive int expected" : result - end - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value > [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value >= [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value < [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlInt then - result = @gtlBool.new { - !where - !emptylstring() - !value <= [right as @gtlInt value] - } - else - error [right where] : "int expected" : result - end -} - -override getter @gtlInt embeddedType -> @type result -{ - result = `@bigint -} - -override method @gtlInt addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlInt -#-----------------------------------------------------------------------------* -override getter @gtlInt performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "string" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![self string] - } - elsif "padded" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint fieldSize = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![[self string] stringByLeftAndRightPadding !fieldSize !' '] - } - elsif "leftPadded" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint fieldSize = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![[self string] stringByLeftPadding !fieldSize !' '] - } - elsif "rightPadded" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint fieldSize = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![[self string] stringByRightPadding !fieldSize !' '] - } - elsif "hexString" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value hexString] - } - elsif "xString" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value xString] - } - elsif "numberOfBytes" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - !([[value bitCountForUnsignedRepresentation] bigint] - 1) / 8 + 1 - } - elsif "signedNumberOfBytes" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - !([[value bitCountForSignedRepresentation] bigint] - 1) / 8 + 1 - } - elsif "numberOfBits" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value bitCountForUnsignedRepresentation] bigint] - } - elsif "signedNumberOfBits" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value bitCountForSignedRepresentation] bigint] - } - elsif "sign" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value sign] bigint] - } - elsif "fitsUnsignedInByte" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForUnsignedRepresentation] <= 8 - } - elsif "fitsSignedInByte" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForSignedRepresentation] <= 8 - } - elsif "fitsUnsignedInShort" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForUnsignedRepresentation] <= 16 - } - elsif "fitsSignedInShort" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForSignedRepresentation] <= 16 - } - elsif "fitsUnsignedInLong" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForUnsignedRepresentation] <= 32 - } - elsif "fitsSignedInLong" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForSignedRepresentation] <= 32 - } - elsif "fitsUnsignedInLongLong" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForUnsignedRepresentation] <= 64 - } - elsif "fitsSignedInLongLong" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitCountForSignedRepresentation] <= 64 - } - elsif "abs" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![value abs] - } - elsif "bitAtIndex" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value bitAtIndex !index] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !true - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"int" !methodName] then - result = [[lib getGetter !"int" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for int target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlInt -#-----------------------------------------------------------------------------* -override setter @gtlInt performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if [methodName string] == "setBitAtIndex" then - argumentsCheck(!methodName !boolIntArguments() !arguments) - let @bool bit = [[arguments dataAtIndex !0] as @gtlBool value] - let @uint index = [[[arguments dataAtIndex !1] as @gtlInt value] uint] - [!?value setBitAtIndex !bit !index] - where = methodName - elsif [methodName string] == "complementBitAtIndex" then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - [!?value complementBitAtIndex !index] - where = methodName - elsif "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"int" !methodName] then - @gtlData copy = self - [[lib getSetter !"int" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlInt value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for int target" - end -} - -#-----------------------------------------------------------------------------* -# Float type and operations on float -#-----------------------------------------------------------------------------* -class @gtlFloat : @gtlData { @double value } - -override getter @gtlFloat desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "float: " + [value string] + "\n" -} - -override getter @gtlFloat string -> @string result { result = [value string] } - -override getter @gtlFloat lstring -> @lstring result { - result = .new { ![value string] !where } -} - -override getter @gtlFloat bool -> @bool result { - error where : "cannot cast a float to a bool" : result -} - -override getter @gtlFloat int -> @bigint result { - result = [[value sint64] bigint] -} - -override getter @gtlFloat float -> @double result { - result = value -} - -override getter @gtlFloat plusOp -> @gtlData result { result = self } - -override getter @gtlFloat minusOp -> @gtlData result { - result = @gtlFloat.new { !where !emptylstring() !-value } -} - -override getter @gtlFloat notOp -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat addOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlFloat.new { - !where - !emptylstring() - !value + [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat subOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlFloat.new { - !where - !emptylstring() - !value - [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat mulOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlFloat.new { - !where - !emptylstring() - !value * [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat divOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlFloat.new { - !where - !emptylstring() - !value / [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat modOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat andOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat orOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat xorOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat slOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat srOp ?let @gtlData unused right -> @gtlData result { - error where : "float forbidden" : result -} - -override getter @gtlFloat neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value > [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value >= [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value < [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlFloat then - result = @gtlBool.new { - !where - !emptylstring() - !value <= [right as @gtlFloat value] - } - else - error [right where] : "float expected" : result - end -} - -override getter @gtlFloat embeddedType -> @type result -{ - result = `@double -} - -override method @gtlFloat addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlFloat -#-----------------------------------------------------------------------------* -override getter @gtlFloat performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "string" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![self string] - } - elsif "cos" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value cos] - } - elsif "sin" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value sin] - } - elsif "tan" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value tan] - } - elsif "cosDegree" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value cosDegree] - } - elsif "sinDegree" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value sinDegree] - } - elsif "tanDegree" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value tanDegree] - } - elsif "exp" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value exp] - } - elsif "logn" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value logn] - } - elsif "log2" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value log2] - } - elsif "log10" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value log10] - } - elsif "sqrt" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value sqrt] - } - elsif "power" == methodName then - argumentsCheck(!methodName !floatArgument() !arguments) - let @double power = [[arguments dataAtIndex !0] as @gtlFloat value] - result = @gtlFloat.new { - ![methodName location] !emptylstring() ![value power !power] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !true - } - elsif "int" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] !emptylstring() ![[value sint64] bigint] - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"float" !methodName] then - result = [[lib getGetter !"float" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for float target" : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlFloat -#-----------------------------------------------------------------------------* -override setter @gtlFloat performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"float" !methodName] then - @gtlData copy = self - [[lib getSetter !"float" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlFloat value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for float target" - end -} - -#-----------------------------------------------------------------------------* -# String type and operations on string -#-----------------------------------------------------------------------------* -class @gtlString : @gtlData { @string value } - -override getter @gtlString desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "string: \"" + value + "\"\n" -} - -override getter @gtlString string -> @string result { result = value } - -override getter @gtlString lstring -> @lstring result { result = .new{!value !where} } - -override getter @gtlString bool -> @bool result { - error where : "cannot cast a string to a bool" : result -} - -override getter @gtlString int -> @bigint result { - result = [[value decimalUnsignedNumber] bigint] -} - -override getter @gtlString float -> @double result { - result = [[value decimalUnsignedNumber] double] -} - -override getter @gtlString plusOp -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString minusOp -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString notOp -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString addOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlString.new { - !where - !emptylstring() - !value + [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString subOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString mulOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString divOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString modOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString andOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString orOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString xorOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString slOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString srOp ?let @gtlData unused right -> @gtlData result { - error where : "string forbidden" : result -} - -override getter @gtlString neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value > [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value >= [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value < [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlString then - result = @gtlBool.new { - !where - !emptylstring() - !value <= [right as @gtlString value] - } - else - error [right where] : "string expected" : result - end -} - -override getter @gtlString embeddedType -> @type result -{ - result = `@string -} - -override method @gtlString addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlString -#-----------------------------------------------------------------------------* -override getter @gtlString performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if [methodName string] == "string" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() !value - } - elsif [methodName string] == "charAtIndex" then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlChar.new { - ![methodName location] !emptylstring() ![value characterAtIndex !index] - } - elsif [methodName string] == "indexOfChar" then - argumentsCheck(!methodName !charArgument() !arguments) - let @char lookedUpChar = [[arguments dataAtIndex !0] as @gtlChar value] - @uint index = 0 - let @uint length = [value length] - @bool found = false - loop (length) - while not found && index < length do - if [value characterAtIndex !index] == lookedUpChar then - found = true - else - index++ - end - end - result = @gtlInt.new { - ![methodName location] - !emptylstring() - !if found then [index bigint] else -1 end - } - elsif [methodName string] == "indexOfCharInRange" then - argumentsCheck(!methodName !charCharArguments() !arguments) - let @char minChar = [[arguments dataAtIndex !0] as @gtlChar value] - let @char maxChar = [[arguments dataAtIndex !1] as @gtlChar value] - @uint index = 0 - let @uint length = [value length] - @bool found = false - loop (length) - while not found && index < length do - let @char currentChar = [value characterAtIndex !index] - if currentChar >= minChar && currentChar <= maxChar then - found = true - else - index++ - end - end - result = @gtlInt.new { - ![methodName location] - !emptylstring() - !if found then [index bigint] else -1 end - } - elsif [methodName string] == "containsChar" then - argumentsCheck(!methodName !charArgument() !arguments) - let @char lookedUpChar = [[arguments dataAtIndex !0] as @gtlChar value] - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value containsCharacter !lookedUpChar] - } - elsif [methodName string] == "containsCharInRange" then - argumentsCheck(!methodName !charCharArguments() !arguments) - let @char minChar = [[arguments dataAtIndex !0] as @gtlChar value] - let @char maxChar = [[arguments dataAtIndex !1] as @gtlChar value] - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value containsCharacterInRange !minChar !maxChar] - } - elsif [methodName string] == "HTMLRepresentation" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value HTMLRepresentation] - } - elsif [methodName string] == "identifierRepresentation" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value identifierRepresentation] - } - elsif [methodName string] == "fileExists" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value fileExists] - } - elsif [methodName string] == "lowercaseString" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value lowercaseString] - } - elsif [methodName string] == "length" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] !emptylstring() ![[value length] bigint] - } - elsif [methodName string] == "capitalized" - || "stringByCapitalizingFirstCharacter" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value stringByCapitalizingFirstCharacter] - } - elsif [methodName string] == "uppercaseString" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value uppercaseString] - } - elsif [methodName string] == "unsigned" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] !emptylstring() ![[value decimalUnsignedNumber] bigint] - } - elsif [methodName string] == "subStringExists" then - argumentsCheck(!methodName !stringArgument() !arguments) - let @string subString = [[arguments dataAtIndex !0] as @gtlString value] - let @uint subStringLength = [subString length] - @uint start = 0 - let @uint stop = [value length] - subStringLength - @bool exists = false - loop ( [value length] ) - while (not exists) && (start <= stop) do - if [value subString !start !subStringLength] == subString then - exists = true - end - start++ - end - result = @gtlBool.new { - ![methodName location] !emptylstring() !exists - } - elsif [methodName string] == "leftSubString" then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] !emptylstring() ![value leftSubString !index] - } - elsif [methodName string] == "rightSubString" then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] !emptylstring() ![value rightSubString !index] - } - elsif [methodName string] == "subString" then - argumentsCheck(!methodName !intIntArguments() !arguments) - let @uint start = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - let @uint length = [[[arguments dataAtIndex !1] as @gtlInt value] uint] - result = @gtlString.new { - ![methodName location] !emptylstring() ![value subString !start !length] - } - elsif [methodName string] == "reversedString" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![value reversedString] - } - elsif [methodName string] == "componentsSeparatedByString" then - argumentsCheck(!methodName !stringArgument() !arguments) - let @string separator = [[arguments dataAtIndex !0] as @gtlString value] - let @stringlist stringlist = [value componentsSeparatedByString !separator] - @list components = .emptyList - for (str) in stringlist do - components += !@gtlString.new { - ![methodName location] !emptylstring() !str - } - end - result = @gtlList.new { - ![methodName location] !emptylstring() !components - } - elsif [methodName string] == "interpretEscape" then - warning methodName : "deprecated method" - result = self - elsif [methodName string] == "columnPrefixedBy" then - argumentsCheck(!methodName !stringArgument() !arguments) - let @string prefix = [[arguments dataAtIndex !0] as @gtlString value] - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![prefix + value stringByReplacingStringByString !"\n" !"\n" + prefix] - } - elsif [methodName string] == "wrap" then - argumentsCheck(!methodName !intIntArguments() !arguments) - let @uint width = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - let @uint shift = [[[arguments dataAtIndex !1] as @gtlInt value] uint] - let @string stringShift = .stringWithSequenceOfCharacters { !' ' !shift } - let @stringlist paragraphs = [value componentsSeparatedByString !"\n"] - var @stringlist resultParagraphs = .emptyList{} - for (paragraph) in paragraphs do - let @stringlist words = [paragraph componentsSeparatedByString !" "] - @uint lineWidth = 0 - @string line = "" - for (word) in words do - if word != "" then - if lineWidth + [word length] > width then - line += "\n" + stringShift - lineWidth = shift - end - lineWidth += [word length] + 1 - line += word + " " - end - end - resultParagraphs += !line - end - result = @gtlString.new { - ![methodName location] - !emptylstring() - !@string.componentsJoinedByString { !resultParagraphs !"\n" } - } - elsif [methodName string] == "replaceString" then - argumentsCheck(!methodName !stringStringArgument() !arguments) - let @string find = [[arguments dataAtIndex !0] as @gtlString value] - let @string rep = [[arguments dataAtIndex !1] as @gtlString value] - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![value stringByReplacingStringByString !find !rep] - } - elsif [methodName string] == "subStringExists" then - argumentsCheck(!methodName !stringArgument() !arguments) - let @string subString = [[arguments dataAtIndex !0] as @gtlString string] - let @uint subLength = [subString length] - @uint start = 0 - let @uint stop = [value length] - subLength - @bool exists = false - loop ([value length]) - while start <= stop & not exists do - if [value subString !start !subLength] == subString then - exists = true - end - start++ - end - result = @gtlBool.new { - ![methodName location] - !emptylstring() - !exists - } - elsif [methodName string] == "envVarExists" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] - !emptylstring() - ![value doesEnvironmentVariableExist] - } - elsif [methodName string] == "envVar" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - !@string.stringWithEnvironmentVariableOrEmpty { ! value } - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"string" !methodName] then - result = [[lib getGetter !"string" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - elsif "files" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - let @stringlist fileList = [value regularFiles !false] - @lstringset files = .emptyMap - for (file) in fileList do - [!?files put !@lstring.new { !file ![methodName location] } ] - end - result = @gtlSet.new { - ![methodName location] !emptylstring() !files - } - elsif "filesWithExtensions" == methodName then - argumentsCheck(!methodName !setArgument() !arguments) - @stringlist extensions = .emptyList - for (ext) in [[arguments dataAtIndex !0] as @gtlSet value] do - extensions += ![ext string] - end - let @stringlist fileList = [value regularFilesWithExtensions !false !extensions] - @lstringset files = .emptyMap - for (file) in fileList do - [!?files put !@lstring.new { !file ![methodName location] } ] - end - result = @gtlSet.new { - ![methodName location] !emptylstring() !files - } - elsif "parseOIL" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - let @string rootTemplatesDir = templates_directory(!"") - @implementation imp = @implementation.new { !@implementationMap.emptyMap } - @applicationDefinition app = emptyApplicationDefinition() - let @lstring includeToParse = @lstring.new{ - !rootTemplatesDir + "libraries/config.oil" - !where - } - let @lstring fileToParse = @lstring.new{ - !rootTemplatesDir + "libraries/" + value - !where - } - grammar goil_file_level_include_without_include in includeToParse - !?imp - !?app - grammar goil_file_level_include_without_include in fileToParse - !?imp - !?app - let @gtlData templateData = [app templateData !imp] - result = templateData - else - error methodName : "unknown getter '" + methodName +"' for string target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlFloat -#-----------------------------------------------------------------------------* -override setter @gtlString performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif "setCharAtIndex" == methodName then - argumentsCheck(!methodName !charIntArguments() !arguments) - let @char charToSet = [[arguments dataAtIndex !0] as @gtlChar value] - let @uint index = [[[arguments dataAtIndex !1] as @gtlInt value] uint] - [!?value setCharacterAtIndex !charToSet !index] - where = methodName - elsif "insertCharAtIndex" == methodName then - argumentsCheck(!methodName !charIntArguments() !arguments) - let @char charToInsert = [[arguments dataAtIndex !0] as @gtlChar value] - let @uint index = [[[arguments dataAtIndex !1] as @gtlInt value] uint] - [!?value insertCharacterAtIndex !charToInsert !index] - where = methodName - elsif "removeCharAtIndex" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[[arguments dataAtIndex !0] as @gtlInt value] uint] - [!?value removeCharacterAtIndex ?* !index] - where = methodName - elsif [lib setterExists !"string" !methodName] then - @gtlData copy = self - [[lib getSetter !"string" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlString value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for string target" - end -} - -#-----------------------------------------------------------------------------* -# Bool type and operations on bool -#-----------------------------------------------------------------------------* -class @gtlBool : @gtlData { @bool value } - -override getter @gtlBool desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "boolean: " + [value cString] + "\n" -} - -override getter @gtlBool string -> @string result { result = [value cString] } - -override getter @gtlBool lstring -> @lstring result { - result = .new { ![value cString] !where } -} - -override getter @gtlBool bool -> @bool result { - result = value -} - -override getter @gtlBool int -> @bigint result { - result = if value then 1 else 0 end -} - -override getter @gtlBool float -> @double result { - result = if value then 1.0 else 0.0 end -} - -override getter @gtlBool plusOp -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool minusOp -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool notOp -> @gtlData result { - result = @gtlBool.new { !where !emptylstring() !not value } -} - -override getter @gtlBool addOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool subOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool mulOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool divOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool modOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool andOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value & [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool orOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value | [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool xorOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value ^ [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool slOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool srOp ?let @gtlData unused right -> @gtlData result { - error where : "bool forbidden" : result -} - -override getter @gtlBool neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value != [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value == [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value > [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value >= [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value < [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlBool then - result = @gtlBool.new { - !where - !emptylstring() - !value <= [right as @gtlBool value] - } - else - error [right where] : "bool expected" : result - end -} - -override getter @gtlBool embeddedType -> @type result -{ - result = `@bool -} - -override method @gtlBool addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlBool -#-----------------------------------------------------------------------------* -override getter @gtlBool performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if [methodName string] == "trueOrFalse" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - !if value then "true" else "false" end - } - elsif [methodName string] == "string" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - ![self string] - } - elsif [methodName string] == "yesOrNo" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - !if value then "yes" else "no" end - } - elsif [methodName string] == "TRUEOrFALSE" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - !if value then "TRUE" else "FALSE" end - } - elsif [methodName string] == "YESOrNO" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] - !emptylstring() - !if value then "YES" else "NO" end - } - elsif [methodName string] == "int" || [methodName string] == "unsigned" then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - !if value then 1 else 0 end - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"bool" !methodName] then - result = [[lib getGetter !"bool" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for boolean target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @@gtlBool -#-----------------------------------------------------------------------------* -override setter @gtlBool performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"bool" !methodName] then - @gtlData copy = self - [[lib getSetter !"bool" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlBool value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for boolean target" - end -} - -#-----------------------------------------------------------------------------* -# foundation types for collections -#-----------------------------------------------------------------------------* -list @list { @gtlData value } - -#-----------------------------------------------------------------------------* -# Set type and operations on set -#-----------------------------------------------------------------------------* -map @lstringset { - insert put error message "set element named '%K' is already declared in %L" - search get error message "there is no set element named '%K' to get" - remove del error message "there is no set element named '%K' to delete" -} - -class @gtlSet : @gtlData { @lstringset value } - -override getter @gtlSet desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "set: @!\n" - for () in value - before - result += @string.stringWithSequenceOfCharacters{!' ' !tab+4} - do - result += lkey - between - result += ", " - after - result += "\n" - end - result += @string.stringWithSequenceOfCharacters{!' ' !tab} + "!\n" -} - -override getter @gtlSet string -> @string result { - error where : "cannot cast a set to a string" : result -} - -override getter @gtlSet lstring -> @lstring result { - error where : "cannot cast a set to a lstring" : result -} - -override getter @gtlSet bool -> @bool result { - error where : "cannot cast a set to a bool" : result -} - -override getter @gtlSet int -> @bigint result { - error where : "cannot cast a set to an int" : result -} - -override getter @gtlSet float -> @double result { - error where : "cannot cast a set to a float" : result -} - -override getter @gtlSet plusOp -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet minusOp -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet notOp -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet addOp ?let @gtlData right -> @gtlData result { - @lstringset set = value - let @lstring element = [right lstring] - if [set hasKey !element] then - [!?set del !element] - end - [!?set put ![right lstring]] - result = @gtlSet.new { !where !emptylstring() !set } -} - -override getter @gtlSet subOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - @lstringset resultSet = value - for (lkey) in [right as @gtlSet value] do - if [resultSet hasKey !lkey] then - [!?resultSet del !lkey] - end - end - result = @gtlSet.new { - !where !emptylstring() !resultSet - } - else - error right : "set expected" : result - end -} - -override getter @gtlSet mulOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet divOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet modOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet andOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - @lstringset resultSet = .emptyMap - for (rightKey) in [right as @gtlSet value] do - if [value hasKey !rightKey] then - [!?resultSet put !rightKey] - end - end - result = @gtlSet.new { - !where !emptylstring() !resultSet - } - else - error right : "set expected" : result - end -} - -override getter @gtlSet orOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - @lstringset resultSet = [right as @gtlSet value] - for (leftKey) in value do - if not [resultSet hasKey !leftKey] then - [!?resultSet put !leftKey] - end - end - result = @gtlSet.new { - !where !emptylstring() !resultSet - } - else - error right : "set expected" : result - end -} - -override getter @gtlSet xorOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet slOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet srOp ?let @gtlData unused right -> @gtlData result { - error where : "set forbidden" : result -} - -override getter @gtlSet neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - result = @gtlBool.new { - !where !emptylstring() !value != [right as @gtlSet value] - } - else - error right : "set expected" : result - end -} - -override getter @gtlSet eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - result = @gtlBool.new { - !where !emptylstring() !value == [right as @gtlSet value] - } - else - error right : "set expected" : result - end -} - -override getter @gtlSet gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - if [right as @gtlSet value] == value then - result = @gtlBool.new { !where !emptylstring() !false } - else - @bool included = true - for (val) in [right as @gtlSet value] while included do - if not [value hasKey !val] then included = false end - end - result = @gtlBool.new { !where !emptylstring() !included } - end - else - error right : "set expected" : result - end -} - -override getter @gtlSet geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - @bool included = true - for (val) in [right as @gtlSet value] while included do - if not [value hasKey !val] then included = false end - end - result = @gtlBool.new { !where !emptylstring() !included } - else - error right : "set expected" : result - end -} - -override getter @gtlSet ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - if [right as @gtlSet value] == value then - result = @gtlBool.new { !where !emptylstring() !false } - else - @bool included = true - for (val) in value while included do - if not [[right as @gtlSet value] hasKey !val] then included = false end - end - result = @gtlBool.new { !where !emptylstring() !included } - end - else - error right : "set expected" : result - end -} - -override getter @gtlSet leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlSet then - @bool included = true - for (val) in value while included do - if not [[right as @gtlSet value] hasKey !val] then included = false end - end - result = @gtlBool.new { !where !emptylstring() !included } - else - error right : "set expected" : result - end -} - -override getter @gtlSet embeddedType -> @type result -{ - error where : "struct forbidden as built in function argument" : result -} - -override method @gtlSet addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlSet -#-----------------------------------------------------------------------------* -override getter @gtlSet performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "length" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value count] bigint] - } - elsif "list" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlList.new { - ![methodName location] !emptylstring() !.emptyList - } - for () in value do - [!?result appendItem !@gtlString.new { !lkey !emptylstring() !lkey }] - end - elsif "contains" == methodName then - argumentsCheck(!methodName !anyArgument() !arguments) - let @string key = [[arguments dataAtIndex !0] string] - result = @gtlBool.new { - ![methodName location] !emptylstring() ![value hasKey !key] - } - elsif "elementNamed" == methodName then - argumentsCheck(!methodName !anyArgument() !arguments) - let @string key = [[arguments dataAtIndex !0] string] - let @location loc = [value locationForKey !key] - result = @gtlString.new { - !loc !emptylstring() !key - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"set" !methodName] then - result = [[lib getGetter !"set" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for set target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlStruct -#-----------------------------------------------------------------------------* -override setter @gtlSet performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif "add" == methodName then - argumentsCheck(!methodName !anyArgument() !arguments) - let @lstring key = [[arguments dataAtIndex !0] lstring] - if [value hasKey !key] then - [!?value del !key] - end - [!?value put !key] - where = methodName - elsif "remove" == methodName then - argumentsCheck(!methodName !anyArgument() !arguments) - let @lstring key = [[arguments dataAtIndex !0] lstring] - if [value hasKey !key] then - [!?value del !key] - end - where = methodName - elsif [lib setterExists !"set" !methodName] then - @gtlData copy = self - [[lib getSetter !"set" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlSet value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for set target" - end -} - -#-----------------------------------------------------------------------------* -# Struct type and operations on struct -#-----------------------------------------------------------------------------* -class @gtlStruct : @gtlData { @gtlVarMap value } - -override getter @gtlStruct desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "struct: @{\n" - for () in value do - result += @string.stringWithSequenceOfCharacters{!' ' !tab+4} + - [lkey string] + " :>\n" + - [value desc !tab+8] - end - result += @string.stringWithSequenceOfCharacters{!' ' !tab} + "}\n" -} - -override getter @gtlStruct string -> @string result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct lstring -> @lstring result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct bool -> @bool result { - error where : "cannot cast a struct to a bool" : result -} - -override getter @gtlStruct int -> @bigint result { - error where : "cannot cast a struct to an int" : result -} - -override getter @gtlStruct float -> @double result { - error where : "cannot cast a struct to a float" : result -} - -override getter @gtlStruct plusOp -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct minusOp -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct notOp -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct addOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct subOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct mulOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct divOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct modOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct andOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct orOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct xorOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct slOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct srOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlStruct then - let @gtlVarMap rValue = [right as @gtlStruct value] - @bool equal - if [value count] != [rValue count] then - equal = false - else - equal = true - for (lkey lValue) in value do - if [rValue hasKey !lkey] then - [rValue get !lkey ?let @gtlData rData] - equal = equal & [lValue eqOp !rData] - else - equal = false - end - end - end - result = @gtlBool.new { !where !emptylstring() !not equal } - else - error [right where] : "struct expected" : result - end -} - -override getter @gtlStruct eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlStruct then - let @gtlVarMap rValue = [right as @gtlStruct value] - @bool equal - if [value count] != [rValue count] then - equal = false - else - equal = true - for (lkey lValue) in value do - if [rValue hasKey !lkey] then - [rValue get !lkey ?let @gtlData rData] - equal = equal & [lValue eqOp !rData] - else - equal = false - end - end - end - result = @gtlBool.new { !where !emptylstring() !equal } - else - error [right where] : "struct expected" : result - end -} - -override getter @gtlStruct gtOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} -override getter @gtlStruct geOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} -override getter @gtlStruct ltOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} -override getter @gtlStruct leOp ?let @gtlData unused right -> @gtlData result { - error where : "struct forbidden" : result -} - -override getter @gtlStruct embeddedType -> @type result -{ - error where : "struct forbidden as built in function argument" : result -} - -override method @gtlStruct addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlStruct -#-----------------------------------------------------------------------------* -override getter @gtlStruct performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "map" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlMap.new { - ![methodName location] - !emptylstring() - !value - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"struct" !methodName] then - result = [[lib getGetter !"struct" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for struct target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlStruct -#-----------------------------------------------------------------------------* -override setter @gtlStruct performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"struct" !methodName] then - @gtlData copy = self - [[lib getSetter !"struct" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlStruct value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for struct target" - end -} - -#-----------------------------------------------------------------------------* -# get a data from a @gtlStruct -#-----------------------------------------------------------------------------* -override method @gtlStruct structField - ?let @lstring name - !@gtlData result - !@bool found -{ - if [value hasKey !name] then - [value get !name ?result] - found = true - else - result = @gtlUnconstructed.new { !name !emptylstring() } - found = false - end -} - -override getter @gtlStruct resultField - ?let @lstring name - ->@gtlData result -{ - if [value hasKey !name] then - [value get !name ?result] - else - result = @gtlUnconstructed.new { !name !emptylstring() } - end -} - -#-----------------------------------------------------------------------------* -# check if a field exists in a @gtlStruct -#-----------------------------------------------------------------------------* -override getter @gtlStruct hasStructField - ?let @lstring name - ->@bool result -{ - result = [value hasKey !name] -} - -#-----------------------------------------------------------------------------* -# Set a data in a @gtlStruct -#-----------------------------------------------------------------------------* -override setter @gtlStruct setStructField - ?let @lstring name - ?let @gtlData data -{ - [!?value replaceOrCreate !name !data] -} - -#-----------------------------------------------------------------------------* -# Set a data in a @gtlStruct -#-----------------------------------------------------------------------------* -override setter @gtlStruct setStructFieldAtLevel - ?let @lstring name - ?let @gtlData data - ?let @uint level -{ - [!?value replaceOrCreateAtLevel !name !data !level] -} - -#-----------------------------------------------------------------------------* -# delete a data in a @gtlStruct -#-----------------------------------------------------------------------------* -override setter @gtlStruct deleteStructField - ?let @lstring name -{ - [!?value del !name ?*] -} - -#-----------------------------------------------------------------------------* -# List type and operations on lists -#-----------------------------------------------------------------------------* -class @gtlList : @gtlData { @list value } - -override getter @gtlList desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "list: @(\n" - for () in value do (i) - result += @string.stringWithSequenceOfCharacters{!' ' !tab+4} + - [i string] + " :>\n" + - [value desc !tab+8] - end - result += @string.stringWithSequenceOfCharacters{!' ' !tab} + ")\n" -} - -override getter @gtlList string -> @string result { - error where : "list forbidden" : result -} - -override getter @gtlList lstring -> @lstring result { - error where : "list forbidden" : result -} - -override getter @gtlList bool -> @bool result { - error where : "cannot cast a list to a bool" : result -} - -override getter @gtlList int -> @bigint result { - error where : "cannot cast a list to an int" : result -} - -override getter @gtlList float -> @double result { - error where : "cannot cast a list to a float" : result -} - -override getter @gtlList plusOp -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList minusOp -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList notOp -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList addOp ?let @gtlData right -> @gtlData result { - @list res = value; - res += !right - result = @gtlList.new { !where !emptylstring() !res } -} - -override getter @gtlList subOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList mulOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList divOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList modOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList andOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList orOp ?let @gtlData right -> @gtlData result { - if right is == @gtlList then - result = @gtlList.new { - !where - !emptylstring() - !value + [right as @gtlList value] - } - else - error [right where] : "list expected" : result - end -} - -override getter @gtlList xorOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList slOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList srOp ?let @gtlData unused right -> @gtlData result { - error where : "list forbidden" : result -} - -override getter @gtlList neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlList then - let @list rValue = [right as @gtlList value] - @bool equal - if [value length] != [rValue length] then - equal = false - else - equal = true - for (left) in value, (right) in rValue do - equal = equal & [left eqOp !right] - end - end - result = @gtlBool.new { !where !emptylstring() !not equal } - else - error [right where] : "list expected" : result - end -} - -override getter @gtlList eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlList then - let @list rValue = [right as @gtlList value] - @bool equal - if [value length] != [rValue length] then - equal = false - else - equal = true - for (left) in value, (right) in rValue do - equal = equal & [left eqOp !right] - end - end - result = @gtlBool.new { !where !emptylstring() !equal } - else - error [right where] : "list expected" : result - end -} - -override getter @gtlList gtOp ?let @gtlData unused right -> @gtlData result { - error where : "a list does not support the > operator" : result -} - -override getter @gtlList geOp ?let @gtlData unused right -> @gtlData result { - error where : "a list does not support the >= operator" : result -} - -override getter @gtlList ltOp ?let @gtlData unused right -> @gtlData result { - error where : "a list does not support the < operator" : result -} - -override getter @gtlList leOp ?let @gtlData unused right -> @gtlData result { - error where : "a list does not support the <= operator" : result -} - -override getter @gtlList embeddedType -> @type result -{ - error where : "list forbidden as built in function argument" : result -} - -override method @gtlList addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlList -#-----------------------------------------------------------------------------* -override getter @gtlList performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "length" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value length] bigint] - } - elsif "first" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - [value first ?result] - elsif "last" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - [value last ?result] - elsif "elementAtIndex" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[arguments dataAtIndex !0] int] - if index < [value length] then - result = [value valueAtIndex !index] - else - error methodName : "index out of bounds" : result - end - elsif "subListTo" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[arguments dataAtIndex !0] int] - if index < [value length] then - result = @gtlList.new { - !methodName - !emptylstring() - ![value subListToIndex !index] - } - else - result = self - end - elsif "subListFrom" == methodName then - argumentsCheck(!methodName !intArgument() !arguments) - let @uint index = [[arguments dataAtIndex !0] int] - if index < [value length] then - result = @gtlList.new { - !methodName - !emptylstring() - ![value subListFromIndex !index] - } - else - result = @gtlList.new { - !methodName - !emptylstring() - !.emptyList - } - end - elsif "subList" == methodName then - argumentsCheck(!methodName !intIntArguments() !arguments) - let @uint start = [[arguments dataAtIndex !0] int] - @uint length = [[arguments dataAtIndex !1] int] - if start < [value length] then - if start + length > [value length] then - length = [value length] - start - end - result = @gtlList.new { - !methodName - !emptylstring() - ![value subListWithRange !@range.new { !start !length }] - } - else - result = @gtlList.new { - !methodName - !emptylstring() - !.emptyList - } - end - elsif "mapBy" == methodName then - argumentsCheck(!methodName !anyArgument() !arguments) - let @lstring key = [[arguments dataAtIndex !0] lstring] - @gtlVarMap resultMap = .emptyMap - for (item) in [self value] do (index) - cast item - case == @gtlStruct itemStruct: - if [[itemStruct value] hasKey ![key string]] then - [[itemStruct value] get !key ?let @gtlData keyValue] - [!?resultMap put - ![keyValue lstring] - !item - ] - else - error methodName : "item at index " + index - + " does not have field named " + key - end - case == @gtlMap itemMap: - if [[itemMap value] hasKey ![key string]] then - [[itemMap value] get !key ?let @gtlData keyValue] - [!?resultMap put - ![keyValue lstring] - !item - ] - else - error methodName : "item at index " + index - + " does not have field named " + key - end - else - error methodName : "list of struct expected" - end - end - result = @gtlMap.new { !where !emptylstring() !resultMap } - elsif "set" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - @lstringset resultSet = .emptyMap - for (item) in value do - let @lstring itemKey = [item lstring] - if [resultSet hasKey !itemKey] then - [!?resultSet del !itemKey] - end - [!?resultSet put !itemKey] - end - result = @gtlSet.new { - !methodName !emptylstring() !resultSet - } - elsif "setBy" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @lstring key = [[arguments dataAtIndex !0] lstring] - @lstringset resultSet = .emptyMap - for (item) in value do - [item structField !key ?let @gtlData field ?*] - let @lstring resKey = [field lstring] - if [resultSet hasKey !resKey] then - [!?resultSet del !resKey] - end - [!?resultSet put !resKey] - end - result = @gtlSet.new { - !methodName !emptylstring() !resultSet - } - elsif "componentsJoinedByString" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @string joiner = [[arguments dataAtIndex !0] string] - @string stringResult = "" - for (item) in value - do - stringResult = stringResult + [item string] - between - stringResult = stringResult + joiner - end - result = @gtlString.new { - ![methodName location] !emptylstring() !stringResult - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif "where" == methodName then - if [arguments length] < 1 | [arguments length] > 2 then - error methodName : "where expects 1 ou 2 arguments. " + - [arguments length] + " arguments provided." : result - else - if [[arguments dataAtIndex !0] dynamicType] != `@gtlExpr then - error methodName : "expression expected for argument 1" : result - else - @gtlStruct vars - if [arguments length] == 2 then - if [[arguments dataAtIndex !1] dynamicType] != `@gtlStruct then - error methodName : "struct expected for argument 1" : vars - else - vars = [arguments dataAtIndex !1] as @gtlStruct - end - else - vars = .new { !where !emptylstring() !.emptyMap } - end - let @gtlExpression expr = [[arguments dataAtIndex !0] as @gtlExpr value] - @list resultList = .emptyList - for (item) in value - do - [!?vars setStructField !@lstring.new {!"__item__" ![item where]} !item] - let @gtlData evalResult = [expr eval !context !vars !lib] - if [evalResult bool] then - resultList += !item - end - end - result = @gtlList.new { - !methodName - !emptylstring() - !resultList - } - end - end - elsif [lib getterExists !"list" !methodName] then - result = [[lib getGetter !"list" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for list target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlList -#-----------------------------------------------------------------------------* -override setter @gtlList performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif "insert" == methodName then - argumentsCheck(!methodName !intAnyArguments() !arguments) - let @uint insertIndex = [[arguments dataAtIndex !0] int] - let @gtlData node = [arguments dataAtIndex !1] - if insertIndex < [value length] then - [!?value insertAtIndex !node !insertIndex] - else - value += !node - end - where = methodName - elsif [lib setterExists !"list" !methodName] then - @gtlData copy = self - [[lib getSetter !"list" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlList value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for list target" - end -} - -override setter @gtlList setItemAtIndex - ?let @gtlData data - ?let @gtlInt index -{ - [!?value setValueAtIndex !data ![[index value] uint]] -} - -override setter @gtlList deleteItemAtIndex - ?let @gtlInt index -{ - let @uint indexUint = [[index value] uint] - if indexUint < [value length] then - if indexUint == 0 then - value = [value subListFromIndex !1] - elsif indexUint == [value length] - 1 then - value = [value subListToIndex !indexUint - 1] - else - value = [value subListToIndex !indexUint - 1] - + [value subListFromIndex !indexUint + 1] - end - end -} - -override method @gtlList itemAtIndex - !@gtlData data - ?let @gtlInt index -{ - data = [value valueAtIndex ![[index value] uint]] -} - -override getter @gtlList hasItemAtIndex - ?let @gtlInt index - ->@bool result -{ - result = [value length] > [[index value] uint] -} - -override setter @gtlList appendItem - ?let @gtlData item -{ - value += !item -} - -#-----------------------------------------------------------------------------* -# Map type and operations on maps -#-----------------------------------------------------------------------------* -class @gtlMap : @gtlData { @gtlVarMap value } - -override getter @gtlMap desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "map: @[\n" - for () in value do - result += @string.stringWithSequenceOfCharacters{!' ' !tab+4} + - "\""+ [lkey string] + "\" :>\n" + - [value desc !tab+8] - end - result += @string.stringWithSequenceOfCharacters{!' ' !tab} + "]\n" -} - -override getter @gtlMap string -> @string result { - error where : "map forbidden" : result -} - -override getter @gtlMap lstring -> @lstring result { - error where : "map forbidden" : result -} - -override getter @gtlMap bool -> @bool result { - error where : "cannot cast a map to a bool" : result -} - -override getter @gtlMap int -> @bigint result { - error where : "cannot cast a map to an int" : result -} - -override getter @gtlMap float -> @double result { - error where : "cannot cast a map to a float" : result -} - -override getter @gtlMap plusOp -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap minusOp -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap notOp -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap addOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap subOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap mulOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap divOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap modOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap andOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap orOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap xorOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap slOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap srOp ?let @gtlData unused right -> @gtlData result { - error where : "map forbidden" : result -} - -override getter @gtlMap neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlMap then - let @gtlVarMap rValue = [right as @gtlMap value] - @bool equal - if [value count] != [rValue count] then - equal = false - else - equal = true - for (lkey lValue) in value do - if [rValue hasKey !lkey] then - [rValue get !lkey ?let @gtlData rData] - equal = equal & [lValue eqOp !rData] - else - equal = false - end - end - end - result = @gtlBool.new { !where !emptylstring() !not equal } - else - error [right where] : "struct expected" : result - end -} - -override getter @gtlMap eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlMap then - let @gtlVarMap rValue = [right as @gtlMap value] - @bool equal - if [value count] != [rValue count] then - equal = false - else - equal = true - for (lkey lValue) in value do - if [rValue hasKey !lkey] then - [rValue get !lkey ?let @gtlData rData] - equal = equal & [lValue eqOp !rData] - else - equal = false - end - end - end - result = @gtlBool.new { !where !emptylstring() !equal } - else - error [right where] : "struct expected" : result - end -} - -override getter @gtlMap gtOp ?let @gtlData unused right -> @gtlData result { - error where : "a map does not support the > operator" : result -} - -override getter @gtlMap geOp ?let @gtlData unused right -> @gtlData result { - error where : "a map does not support the >= operator" : result -} - -override getter @gtlMap ltOp ?let @gtlData unused right -> @gtlData result { - error where : "a map does not support the < operator" : result -} - -override getter @gtlMap leOp ?let @gtlData unused right -> @gtlData result { - error where : "a map does not support the <= operator" : result -} - -override getter @gtlMap embeddedType -> @type result -{ - error where : "map forbidden as built in function argument" : result -} - -override method @gtlMap addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlMap -#-----------------------------------------------------------------------------* -override getter @gtlMap performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if "length" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlInt.new { - ![methodName location] - !emptylstring() - ![[value count] bigint] - } - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "list" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - @list resultList = .emptyList - for (unused key item) in [self value] do - resultList += !item - end - result = @gtlList.new { !where !emptylstring() !resultList } - elsif "where" == methodName then - if [arguments length] < 1 | [arguments length] > 2 then - error methodName : "where expects 1 ou 2 arguments. " + - [arguments length] + " arguments provided." : result - else - if [[arguments dataAtIndex !0] dynamicType] != `@gtlExpr then - error methodName : "expression expected for argument 1" : result - else - @gtlStruct vars - if [arguments length] == 2 then - if [[arguments dataAtIndex !1] dynamicType] != `@gtlStruct then - error methodName : "struct expected for argument 1" : vars - else - vars = [arguments dataAtIndex !1] as @gtlStruct - end - else - vars = .new { !where !emptylstring() !.emptyMap } - end - let @gtlExpression expr = [[arguments dataAtIndex !0] as @gtlExpr value] - @gtlVarMap resultMap = .emptyMap - for (key item) in value - do - [!?vars setStructField !@lstring.new {!"__item__" ![item where]} !item] - let @gtlData evalResult = [expr eval !context !vars !lib] - if [evalResult bool] then - [!?resultMap put !key !item] - end - end - result = @gtlMap.new { - !methodName - !emptylstring() - !resultMap - } - end - end - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif [lib getterExists !"map" !methodName] then - result = [[lib getGetter !"map" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - else - error methodName : "unknown getter '" + methodName +"' for map target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @gtlMap -#-----------------------------------------------------------------------------* -override setter @gtlMap performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"map" !methodName] then - @gtlData copy = self - [[lib getSetter !"map" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlMap value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for map target" - end -} - -#-----------------------------------------------------------------------------* -# Set a data in a @gtlMap -#-----------------------------------------------------------------------------* -override setter @gtlMap setMapItem - ?let @lstring name - ?let @gtlData data -{ - [!?value replaceOrCreate !name !data] -} - -override setter @gtlMap deleteMapItem - ?let @lstring name -{ - [!?value del !name ?*] -} - -override method @gtlMap mapItem - ?let @lstring name - !@gtlData result -{ - if [value hasKey !name] then - [value get !name ?result] - else - result = @gtlUnconstructed.new { !name !emptylstring() } - end -} - -override getter @gtlMap hasMapItem - ?let @lstring name - ->@bool result -{ - result = [value hasKey !name] -} - -#-----------------------------------------------------------------------------* -# Expression type and operations on maps -#-----------------------------------------------------------------------------* -class @gtlExpr : @gtlData { @gtlExpression value } - -override getter @gtlExpr desc - ?let @uint tab - -> @string result -{ - result = @string.stringWithSequenceOfCharacters{!' ' !tab} + - "expression: @? " + [value stringRepresentation] + " ?\n" -} - -override getter @gtlExpr string -> @string result { - error where : "expression forbidden" : result -} - -override getter @gtlExpr lstring -> @lstring result { - error where : "expression forbidden" : result -} - -override getter @gtlExpr bool -> @bool result { - error where : "cannot cast an expression to a bool" : result -} - -override getter @gtlExpr int -> @bigint result { - error where : "cannot cast an expression to an int" : result -} - -override getter @gtlExpr float -> @double result { - error where : "cannot cast an expression to a float" : result -} - -override getter @gtlExpr plusOp -> @gtlData result { - result = self -} - -override getter @gtlExpr minusOp -> @gtlData result { - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlMinusExpression.new { !where !value } - } -} - -override getter @gtlExpr notOp -> @gtlData result { - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlNotExpression.new { !where !value } - } -} - -override getter @gtlExpr addOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlAddExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr subOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlSubstractExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr mulOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlMultiplyExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr divOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlDivideExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr modOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlModulusExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr andOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlAndExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr orOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlOrExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr xorOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlXorExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr slOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlShiftLeftExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr srOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlShiftRightExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr neqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlNotEqualExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr eqOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlEqualExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr gtOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlGreaterThanExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr geOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlGreaterOrEqualExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr ltOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlLowerThanExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr leOp ?let @gtlData right -> @gtlData result { - if right is == @gtlExpr then - result = @gtlExpr.new { - !where - !emptylstring() - !@gtlLowerOrEqualExpression.new { !where !value ![right as @gtlExpr value] } - } - else - error [right where] : "Expression expected" : result - end -} - -override getter @gtlExpr embeddedType -> @type result -{ - error where : "expression forbidden as built in function argument" : result -} - -override method @gtlExpr addMyValue ?!@objectlist objectList -{ - objectList += ![value object] -} - -#-----------------------------------------------------------------------------* -# Performs a getter on a @gtlBool -#-----------------------------------------------------------------------------* -override getter @gtlExpr performGetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib - ->@gtlData result -{ - if [methodName string] == "eval" then - argumentsCheck(!methodName !structArgument() !arguments) - let @gtlData vars = [arguments dataAtIndex !0] - result = [value eval !context !vars !lib] - elsif "type" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlType.new { - ![methodName location] !emptylstring() ![self dynamicType] - } - elsif "isANumber" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlBool.new { - ![methodName location] !emptylstring() !false - } - elsif "description" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - !meta !emptylstring() !meta - } - elsif "location" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - result = @gtlString.new { - ![methodName location] !emptylstring() ![where locationString] - } - elsif [lib getterExists !"expression" !methodName] then - result = [[lib getGetter !"expression" !methodName] callGetter - ![methodName location] - !context - !lib - !self - !arguments - ] - else - error methodName : "unknown getter '" + methodName +"' for expression target" - : result - end -} - -#-----------------------------------------------------------------------------* -# Performs a setter on a @@gtlBool -#-----------------------------------------------------------------------------* -override setter @gtlExpr performSetter - ?let @lstring methodName - ?let @gtlDataList arguments - ?let @gtlContext context - ?let @library lib -{ - if "setDescription" == methodName then - argumentsCheck(!methodName !stringArgument() !arguments) - let @gtlString descriptionToSet = [arguments dataAtIndex !0] as @gtlString - [!?self setMeta !descriptionToSet] - where = methodName - elsif "touch" == methodName then - argumentsCheck(!methodName !noArgument() !arguments) - where = methodName - elsif [lib setterExists !"expression" !methodName] then - @gtlData copy = self - [[lib getSetter !"expression" !methodName] callSetter - ![methodName location] - !context - !lib - !?copy - !arguments - ] - value = [copy as @gtlExpr value] - where = [copy where] - meta = [copy meta] - else - error methodName : "unknown setter '" + methodName +"' for expression target" - end -} - - diff --git a/goil/galgas-sources/gtl_debugger.galgas b/goil/galgas-sources/gtl_debugger.galgas deleted file mode 100644 index 312ea6949..000000000 --- a/goil/galgas-sources/gtl_debugger.galgas +++ /dev/null @@ -1,1899 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_debugger.galgas -# -# @section desc File description -# -# Debugger for GTL. -# -# @section copyright Copyright -# -# GTL template language, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -func signature - ?@location loc - ->@string result -{ - if [option gtl_options.debug value] then - let @string signatureString = - [[loc file] lastPathComponent] - + ":" - + [loc line] - result = [signatureString md5] - else - result = "" - end -} - -func %once bold ->@string bold { bold = "\u001B[1m" } -func %once underline ->@string underline { underline = "\u001B[4m" } -func %once blink ->@string blink { blink = "\u001B[5m" } -func %once black ->@string black { black = "\u001B[90m" } -func %once red ->@string red { red = "\u001B[91m" } -func %once green ->@string green { green = "\u001B[92m" } -func %once yellow ->@string yellow { yellow = "\u001B[93m" } -func %once blue ->@string blue { blue = "\u001B[94m" } -func %once magenta ->@string magenta { magenta = "\u001B[95m" } -func %once cyan ->@string cyan { cyan = "\u001B[96m" } -func %once darkred ->@string red { red = "\u001B[31m" } -func %once darkgreen ->@string green { green = "\u001B[32m" } -func %once darkyellow ->@string yellow { yellow = "\u001B[33m" } -func %once darkblue ->@string blue { blue = "\u001B[34m" } -func %once darkmagenta ->@string magenta { magenta = "\u001B[35m" } -func %once darkcyan ->@string cyan { cyan = "\u001B[36m" } -func %once white ->@string white { white = "\u001B[97m" } -func %once endc ->@string endc { endc = "\u001B[0m" } - -#=============================================================================* -# loadCommandFile loads a command file if it exists and executes the commands -#-----------------------------------------------------------------------------* -method @string loadCommandFile - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib -{ - # Look for a .gtlinit file - if [self fileExists] then - message "loading file " + self + "\n" - let @stringlist commands = [@string.stringWithContentsOfFile{ !self } - componentsSeparatedByString !"\n"] - - @string whatInFile = "" - for (input) in commands do - whatInFile += [input stringByTrimmingWhiteSpaces] - end - - if whatInFile != "" then - for (input) in commands do - if [input stringByTrimmingWhiteSpaces] != "" then - grammar gtl_debugger_grammar on ( input, "Debugger command" ) - ?let @gtlInstruction command - message [[context debuggerContext] instructionColor] - + [[context debuggerContext] instructionFace] - [command display] - message endc() - message "\n" - @string result = "" - [command execute !?context !?vars !?lib !?result] - end - end - else - message "No command in " + self + " file\n" - end - end -} - -#=============================================================================* -# @@debuggerContext is used to store the debugging context -#-----------------------------------------------------------------------------* -class @debuggerContext -{ - @bool debugActive - @bool breakOnNext - @bool loopOnCommand - @string promptColor - @string promptFace - @string instructionColor - @string instructionFace - @string outputColor - @string outputFace - @string warningColor - @string warningFace - @bool executeDebuggerCommand - @gtlInstructionList doList - @gtlBreakpointList breakpoints - @gtlExpressionList watchpoints - @uint nextInstructionIndex - @gtlInstructionList instructionList - @gtlInstructionListContextStack contextStack - @debugCommandInput commandInput -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext appendInstructionToStepDo - ?@gtlInstruction instruction -{ - doList += !instruction -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteStepDoInstruction - ?let @lbigint numToDelete -{ - if [numToDelete bigint] <= [@uint.max bigint] then - let @uint numToDeleteUInt = [numToDelete uint] - if numToDeleteUInt < [doList length] then - [!?doList removeAtIndex ?let @gtlInstruction instruction !numToDeleteUInt] - message "Command: " - message instructionColor + instructionFace - [instruction display] - message outputColor + outputFace - message " deleted\n" - else - message warningColor + warningFace - message "no do command at this index: " + [numToDelete bigint] + "\n" - end - else - message warningColor + warningFace - message "no do command at this index: " + [numToDelete bigint] + "\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteAllStepDoInstructions -{ - doList = .emptyList -} - -#-----------------------------------------------------------------------------* -method @debuggerContext listStepDoInstructions -{ - if [doList length] > 0 then - message "Step do commands:\n" - for (instruction) in doList do (index) - message [[index string] stringByLeftPadding !4 !' '] + ": " - message instructionColor + instructionFace - [instruction display] - message "\n" - message outputColor + outputFace - end - else - message "No step do commands\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext setBreakpoint - ?let @string fileName - ?let @uint lineNum -{ - let @string signature = [fileName + ":" + lineNum md5] - @bool notThere = true - for (bp) in breakpoints do - if [bp signature] == signature then - notThere = false - end - end - if notThere then - breakpoints += !@gtlBreakpoint.new { !fileName !lineNum !signature } - end -} - -#-----------------------------------------------------------------------------* -method @debuggerContext listBreakpoints -{ - if [breakpoints length] > 0 then - message "Breakpoints:\n" - for (bp) in breakpoints do (index) - message [[index string] stringByLeftPadding !4 !' '] + ": " - message instructionColor + instructionFace - message [bp fileName] + ":" + [bp lineNum]# + ":" + [bp signature] - message "\n" - message outputColor + outputFace - end - else - message "No breakpoint\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteBreakpoint - ?let @lbigint numToDelete -{ - if [numToDelete bigint] <= [@uint.max bigint] then - let @uint numToDeleteUInt = [numToDelete uint] - if numToDeleteUInt < [breakpoints length] then - [!?breakpoints removeAtIndex ?let @gtlBreakpoint bp !numToDeleteUInt] - message "Breakpoint: " - message instructionColor + instructionFace - message [bp fileName] + ":" + [bp lineNum] - message outputColor + outputFace - message " deleted\n" - else - message warningColor + warningFace - message "no breakpoint at this index: " + [numToDelete bigint] + "\n" - end - else - message warningColor + warningFace - message "no breakpoint at this index: " + [numToDelete bigint] + "\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteAllBreakpoints -{ - breakpoints = .emptyList -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext setWatchpoint - ?let @gtlExpression watchExpression -{ - watchpoints += !watchExpression -} - -#-----------------------------------------------------------------------------* -method @debuggerContext listWatchpoints -{ - if [watchpoints length] > 0 then - message "Watchpoints:\n" - for (wp) in watchpoints do (index) - message [[index string] stringByLeftPadding !4 !' '] + ": " - message instructionColor + instructionFace - message [wp stringRepresentation] - message "\n" - message outputColor + outputFace - end - else - message "No Watchpoint\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteWatchpoint - ?let @lbigint numToDelete -{ - if [numToDelete bigint] <= [@uint.max bigint] then - let @uint numToDeleteUInt = [numToDelete uint] - if numToDeleteUInt < [watchpoints length] then - [!?watchpoints removeAtIndex ?let @gtlExpression wp !numToDeleteUInt] - message "Watchpoint: " - message instructionColor + instructionFace - message [wp stringRepresentation] - message outputColor + outputFace - message " deleted\n" - else - message warningColor + warningFace - message "no watchpoint at this index: " + [numToDelete bigint] + "\n" - end - else - message warningColor + warningFace - message "no watchpoint at this index: " + [numToDelete bigint] + "\n" - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext deleteAllWatchpoints -{ - watchpoints = .emptyList -} - -#-----------------------------------------------------------------------------* -getter @debuggerContext breakOn - ?let @gtlInstruction instruction - ->@bool breakOn -{ - breakOn = false - for (bp) in breakpoints do - if [instruction signature] == [bp signature] then - breakOn = true - end - end -} - -#-----------------------------------------------------------------------------* -getter @debuggerContext watchOn - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - ->@bool watchOn -{ - watchOn = false - for (wp) in watchpoints do - let @gtlData watchResult = [wp eval !context !vars !lib] - if watchResult is == @gtlBool then - let @bool matchWatch = [watchResult as @gtlBool value] - if matchWatch then - message outputColor + outputFace - message "match " - message instructionColor + instructionFace - message [wp stringRepresentation] - message "\n" - message endc() - watchOn = true - end - end - end -} - -#-----------------------------------------------------------------------------* -method @debuggerContext hereWeAre - ?let @uint window -{ - @uint indentation = 0 - for (levelIndex levelList) in [contextStack subListFromIndex !1] do - message @string.stringWithSequenceOfCharacters{ !' ' !indentation } - [[levelList instructionAtIndex !levelIndex] displayWithLocation !self] - indentation = indentation + 4 - end - - let @string identationString = .stringWithSequenceOfCharacters{ !' ' !indentation } - let @uint startIndex - let @uint displayLength - - if nextInstructionIndex >= window then - startIndex = nextInstructionIndex - window - else - startIndex = 0 - end - if startIndex + (window * 2) < [instructionList length] then - displayLength = 2 * window - else - displayLength = [instructionList length] - startIndex - end - message endc() - for (instruction) in - [instructionList subListWithRange !@range.new { !startIndex !displayLength }] - do (index) - - if index + startIndex == nextInstructionIndex then - message red() + bold() - message identationString + ">>> " - message endc() - else - message identationString + " " - end - [instruction displayWithLocation !self] - - end -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext pushInstructionList - ?let @gtlInstructionList instructions -{ - contextStack += !nextInstructionIndex !instructionList - nextInstructionIndex = 0 - instructionList = instructions -} - -setter @debuggerContext popInstructionList -{ - [!?contextStack popLast ?nextInstructionIndex ?instructionList] -} - -#-----------------------------------------------------------------------------* -setter @debuggerContext getCommand - !@string command -{ - [!?commandInput getCommand ?command] -} - -#-----------------------------------------------------------------------------* -func defaultDebugSettings - ->@debuggerContext debugSettings -{ - debugSettings = .new { - ![option gtl_options.debug value] - ![option gtl_options.debug value] - !false - !red() - !"" - !blue() - !bold() - !darkgreen() - !"" - !darkyellow() - !bold() - !false - !.emptyList - !.emptyList - !.emptyList - !0 - !.emptyList - !.emptyList - !.new { !.emptyList } - } -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setDebugger - ?@bool debugOn -{ - [!?debuggerContext setDebugActive !debugOn] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setBreakOnNext - ?@bool break -{ - [!?debuggerContext setBreakOnNext !break] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext debugActive - ->@bool debugOn -{ - debugOn = [debuggerContext debugActive] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext breakOnNext - ->@bool breakOnNext -{ - breakOnNext = [debuggerContext breakOnNext] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext breakOn - ?@gtlInstruction instruction - ->@bool breakOn -{ - breakOn = [debuggerContext breakOn !instruction] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext watchOn - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - ->@bool watchOn -{ - watchOn = [debuggerContext watchOn !context !vars !lib] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext promptStyle - ->@string result -{ - result = [debuggerContext promptColor] + [debuggerContext promptFace] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext outputStyle - ->@string result -{ - result = [debuggerContext outputColor] + [debuggerContext outputFace] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext appendInstructionToStepDo - ?@gtlInstruction instruction -{ - [!?debuggerContext appendInstructionToStepDo !instruction] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteStepDoInstruction - ?let @lbigint numToDelete -{ - [!?debuggerContext deleteStepDoInstruction !numToDelete] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteAllStepDoInstructions -{ - [!?debuggerContext deleteAllStepDoInstructions] -} - -#-----------------------------------------------------------------------------* -method @gtlContext listStepDoInstructions -{ - [debuggerContext listStepDoInstructions] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext executeStepDoList - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - message [context outputStyle] - for (instruction) in [debuggerContext doList] do - [instruction execute !?context !?vars !?lib !?outputString] - end - message endc() -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setBreakpoint - ?let @string fileName - ?let @uint lineNum -{ - [!?debuggerContext setBreakpoint !fileName !lineNum] -} - -#-----------------------------------------------------------------------------* -method @gtlContext listBreakpoints -{ - [debuggerContext listBreakpoints] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteBreakpoint - ?let @lbigint numToDelete -{ - [!?debuggerContext deleteBreakpoint !numToDelete] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteAllBreakpoints -{ - [!?debuggerContext deleteAllBreakpoints] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setWatchpoint - ?let @gtlExpression watchExpression -{ - [!?debuggerContext setWatchpoint !watchExpression] -} - -#-----------------------------------------------------------------------------* -method @gtlContext listWatchpoints -{ - [debuggerContext listWatchpoints] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteWatchpoint - ?let @lbigint numToDelete -{ - [!?debuggerContext deleteWatchpoint !numToDelete] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext deleteAllWatchpoints -{ - [!?debuggerContext deleteAllWatchpoints] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setLoopOnCommand - ?@bool loopOnCommand -{ - [!?debuggerContext setLoopOnCommand !loopOnCommand] -} - -#-----------------------------------------------------------------------------* -getter @gtlContext loopOnCommand - ->@bool loopOnCommand -{ - loopOnCommand = [debuggerContext loopOnCommand] -} - -#-----------------------------------------------------------------------------* -method @gtlContext hereWeAre - ?let @uint window -{ - [debuggerContext hereWeAre !window] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext pushInstructionList - ?let @gtlInstructionList instructionList -{ - [!?debuggerContext pushInstructionList !instructionList] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext popInstructionList -{ - [!?debuggerContext popInstructionList] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setNextInstructionIndex - ?@uint index -{ - [!?debuggerContext setNextInstructionIndex !index] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext setExecuteDebuggerCommand - ?@bool debuggerCommand -{ - [!?debuggerContext setExecuteDebuggerCommand !debuggerCommand] -} - -#-----------------------------------------------------------------------------* -setter @gtlContext getCommand - !@string command -{ - [!?debuggerContext getCommand ?command] -} - -#=============================================================================* -list @gtlInstructionListContextStack -{ - @uint nextInstructionIndex - @gtlInstructionList instructionList -} - -#=============================================================================* -class @gtlBreakpoint { - @string fileName - @uint lineNum - @string signature -} - -list @gtlBreakpointList { - @gtlBreakpoint breakpoint -} - -#=============================================================================* -getter @gtlVarPath stringRepresentation - ->@string result -{ - result = [[self itemAtIndex !0] stringRepresentation !""] - for (item) in [self subListFromIndex !1] do - result += [item stringRepresentation !"::"] - end -} - -#-----------------------------------------------------------------------------* -abstract getter @gtlVarItem stringRepresentation - ?let @string concatString - ->@string - -#-----------------------------------------------------------------------------* -override getter @gtlVarItemField stringRepresentation - ?let @string concatString - ->@string result -{ - result = concatString + field -} - -#-----------------------------------------------------------------------------* -override getter @gtlVarItemSubCollection stringRepresentation - ?let @string unused concatString - ->@string result -{ - result = "[" + [key stringRepresentation] + "]" -} - -#-----------------------------------------------------------------------------* -override getter @gtlVarItemCollection stringRepresentation - ?let @string concatString - ->@string result -{ - result = concatString + field + '[' + [key stringRepresentation] + ']' -} - -#=============================================================================* -abstract getter @gtlExpression stringRepresentation - ->@string - -#-----------------------------------------------------------------------------* -override getter @gtlAddExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " + " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlAndExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " & " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlDivideExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " / " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlEqualExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " == " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlGreaterOrEqualExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " >= " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlGreaterThanExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " > " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlLowerOrEqualExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " <= " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlLowerThanExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " < " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlModulusExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " mod " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlMultiplyExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " * " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlNotEqualExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " != " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlOrExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " | " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlShiftLeftExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " << " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlShiftRightExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " >> " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlSubstractExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " - " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlXorExpression stringRepresentation - ->@string result -{ - result = [lSon stringRepresentation] + " ^ " + [rSon stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlExistsExpression stringRepresentation - ->@string result -{ - result = "exists " + [variable stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlExistsDefaultExpression stringRepresentation - ->@string result -{ - result = "exists " - + [variable stringRepresentation] - + " default ( " - + [defaultValue stringRepresentation] - + " )" -} - -#-----------------------------------------------------------------------------* -override getter @gtlFunctionCallExpression stringRepresentation - ->@string result -{ - result = [functionName string] + "(" + [functionArguments stringRepresentation] + ")" -} - -#-----------------------------------------------------------------------------* -override getter @gtlGetterCallExpression stringRepresentation - ->@string result -{ - result = "[" + [target stringRepresentation] + " " + getterName - if [arguments length] > 0 then - result = result + ": " + [arguments stringRepresentation] - end - result = result + "]" -} - -#-----------------------------------------------------------------------------* -override getter @gtlListOfExpression stringRepresentation - ->@string result -{ - result = "listof " + [expression stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlLiteralListExpression stringRepresentation - ->@string result -{ - result = "@( " + [value stringRepresentation] + " )" -} - -#-----------------------------------------------------------------------------* -override getter @gtlLiteralMapExpression stringRepresentation - ->@string result -{ - result = "@[ " + [value mapRepresentation] + " ]" -} - -#-----------------------------------------------------------------------------* -override getter @gtlLiteralSetExpression stringRepresentation - ->@string result -{ - result = "@! " + [value stringRepresentation] + " !" -} - -#-----------------------------------------------------------------------------* -override getter @gtlLiteralStructExpression stringRepresentation - ->@string result -{ - result = "@{ " + [value structRepresentation] + " }" -} - -#-----------------------------------------------------------------------------* -override getter @gtlMapOfStructExpression stringRepresentation - ->@string result -{ - result = "mapof " + [expression stringRepresentation] + " end" -} - -#-----------------------------------------------------------------------------* -override getter @gtlTerminal stringRepresentation - ->@string result -{ - result = [value stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlTypeOfExpression stringRepresentation - ->@string result -{ - result = "typeof " + [variable stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlMinusExpression stringRepresentation - ->@string result -{ - result = "-" + [son stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlNotExpression stringRepresentation - ->@string result -{ - result = "not " + [son stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlParenthesizedExpression stringRepresentation - ->@string result -{ - result = "(" + [son stringRepresentation] + ")" -} - -#-----------------------------------------------------------------------------* -override getter @gtlPlusExpression stringRepresentation - ->@string result -{ - result = "+" + [son stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlVarRef stringRepresentation - ->@string result -{ - result = [variableName stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override getter @gtlAllVarsRef stringRepresentation - ->@string result -{ - result = "__VARS__" -} - -#=============================================================================* -abstract getter @gtlData stringRepresentation - ->@string - -#-----------------------------------------------------------------------------* -override getter @gtlBool stringRepresentation - ->@string result -{ - result = [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlChar stringRepresentation - ->@string result -{ - result = [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlEnum stringRepresentation - ->@string result -{ - result = "$" + [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlFloat stringRepresentation - ->@string result -{ - result = [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlInt stringRepresentation - ->@string result -{ - result = [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlString stringRepresentation - ->@string result -{ - @string literalString = [self string] - literalString = [literalString stringByReplacingStringByString !"\n" !"\\n"] - literalString = [literalString stringByReplacingStringByString !"\t" !"\\t"] - literalString = [literalString stringByReplacingStringByString !"\f" !"\\f"] - literalString = [literalString stringByReplacingStringByString !"\r" !"\\r"] - literalString = [literalString stringByReplacingStringByString !"\v" !"\\v"] - literalString = [literalString stringByReplacingStringByString !"\\" !"\\\\"] - literalString = [literalString stringByReplacingStringByString !"\"" !"\\\""] - result = "\"" + literalString + "\"" -} - -#-----------------------------------------------------------------------------* -override getter @gtlUnconstructed stringRepresentation - ->@string result -{ - result = "*UNCONSTRUCTED*" -} - -#-----------------------------------------------------------------------------* -override getter @gtlType stringRepresentation - ->@string result -{ - result = "@" + [self string] -} - -#-----------------------------------------------------------------------------* -override getter @gtlList stringRepresentation - ->@string result -{ - result = "@( " - for (item) in value do - result = result + [item stringRepresentation] - between - result = result + ", " - end - result = result + " )" -} - -#-----------------------------------------------------------------------------* -override getter @gtlMap stringRepresentation - ->@string result -{ - result = "@[ " - for (key item) in value do - result = result + "\"" + key + "\": " + [item stringRepresentation] - between - result = result + ", " - end - result = result + " ]" -} - -#-----------------------------------------------------------------------------* -override getter @gtlStruct stringRepresentation - ->@string result -{ - result = "@{ " - for (key item) in value do - result = result + key + ": " + [item stringRepresentation] - between - result = result + ", " - end - result = result + " }" -} - -#-----------------------------------------------------------------------------* -override getter @gtlSet stringRepresentation - ->@string result -{ - result = "@! " - for (item) in value do - result = result + item - between - result = result + ", " - end - result = result + " !" -} - -#-----------------------------------------------------------------------------* -override getter @gtlExpr stringRepresentation - ->@string result -{ - result = "@? " + [value stringRepresentation] + " ?" -} - -#=============================================================================* -getter @gtlExpressionList stringRepresentation - ->@string result -{ - result = "" - for (expression) in self do - result = result + [expression stringRepresentation] - between - result = result + ", " - end -} - -#=============================================================================* -getter @gtlExpressionMap mapRepresentation - ->@string result -{ - result = "" - for (key expression) in self do - result = result + "\"" + key + "\": " + [expression stringRepresentation] - between - result = result + ", " - end -} - -#-----------------------------------------------------------------------------* -getter @gtlExpressionMap structRepresentation - ->@string result -{ - result = "" - for (key expression) in self do - result = result + key + ": " + [expression stringRepresentation] - between - result = result + ", " - end -} - -#=============================================================================* -getter @gtlArgumentList stringRepresentation - ->@string result -{ - result = "" - for (typed type name) in self do - result = result + name - if typed then - result = result + " : @" + [type typeName] - end - between - result = result + ", " - end -} - -#=============================================================================* -getter @lsint stringRepresentation - ->@string result -{ - result = if 0 < [self bigint] then "<" else ">" end -} - -#=============================================================================* -getter @sortingKeyList stringRepresentation - ->@string result -{ - result = "" - for (key order) in self do - result = result + key + " " + [order stringRepresentation] - between - result = ", " - end -} - -#=============================================================================* -getter @gtlInstruction shortLocation - ->@string result -{ - result = [[where file] lastPathComponent] + ":" + [where line] -} - -#-----------------------------------------------------------------------------* -method @gtlInstruction displayWithLocation - ?let @debuggerContext context -{ - message [self shortLocation] + " > " - message [context instructionColor] + [context instructionFace] - [self display] - message endc() + "\n" -} - -#=============================================================================* -abstract method @gtlInstruction display -#{ -# message "[Display not available]" -#} - -#-----------------------------------------------------------------------------* -override method @gtlLetUnconstructedInstruction display -{ - message "let " + [lValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " := " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetAddInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " += " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetSubstractInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " -= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetMultiplyInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " *= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetDivideInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " /= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetModuloInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " mod= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetShiftLeftInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " <<= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetShiftRightInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " >>= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetAndInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " &= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetOrInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " |= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLetXorInstruction display -{ - message "let " - + [lValue stringRepresentation] - + " ^= " - + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLoopStatementInstruction display -{ - message "loop " - + identifier - + " from " - + [start stringRepresentation] - + if upDown == -1 then " down" else "" end - + " to " - + [stop stringRepresentation] - + " step " - + [step stringRepresentation] - + " do" -} - -#-----------------------------------------------------------------------------* -override method @gtlWarningStatementInstruction display -{ - message "warning " - + if hereInstead then "here" else [identifier stringRepresentation] end - + " : " - + [warningMessage stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlErrorStatementInstruction display -{ - message "error " - + if hereInstead then "here" else [identifier stringRepresentation] end - + " : " - + [errorMessage stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlDisplayStatementInstruction display -{ - message "display " + [variablePath stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlPrintStatementInstruction display -{ - message "print" - + if carriageReturn then "ln " else " " end - + [messageToPrint stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlTemplateStringInstruction display -{ - message "%" + value + "%" -} - -#-----------------------------------------------------------------------------* -override method @gtlInputStatementInstruction display -{ - message "input ( " + [formalArguments stringRepresentation] + " )" -} - -#-----------------------------------------------------------------------------* -override method @gtlSortStatementInstruction display -{ - message "sort " - + [variablePath stringRepresentation] - + " " - + [order stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlSortStatementStructInstruction display -{ - message "sort " - + [variablePath stringRepresentation] - + " by " - + [sortingKey stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlTemplateInstruction display -{ - message "template " - + if isGlobal then "" else "( " + [arguments stringRepresentation] + " ) " end - + if ifExists then "if exists " else "" end - + [fileName stringRepresentation] - + if "" == prefix then " " else " in " + prefix + " " end - + if ifExists & [instructionsIfNotFound length] > 0 then "or ..." else "" end -} - -#-----------------------------------------------------------------------------* -override method @gtlEmitInstruction display -{ - message "! " + [rValue stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlIfStatementInstruction display -{ - message "if " - + [[thenElsifList conditionAtIndex !0] stringRepresentation] - + " then" -} - -#-----------------------------------------------------------------------------* -override method @gtlForStatementInstruction display -{ - message "for " - + identifier - + " in " - + [iterable stringRepresentation] - + " do" -} - -#-----------------------------------------------------------------------------* -override method @gtlForeachStatementInstruction display -{ - message "foreach " - + if "" == keyName then "" else [keyName string] + ", " end - + variableName - + " (" + indexName+ ") " - + " in " - + [iterable stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlGetColumnInstruction display -{ - message "? " + [destVariable stringRepresentation] -} - -#-----------------------------------------------------------------------------* -override method @gtlLibrariesInstruction display -{ - message "libraries" -} - -#-----------------------------------------------------------------------------* -override method @gtlRepeatStatementInstruction display -{ - message "repeat " - cast limit - case == @gtlTerminal term: - cast [term value] - case == @gtlInt intLimit: - if [[intLimit value] uint] != @uint.max then - message " (" + [intLimit string] + ")" - end - end - else - message " (" + [limit stringRepresentation] + ")" - end -} - -#-----------------------------------------------------------------------------* -override method @gtlSetterCallInstruction display -{ - message "[!" - + [target stringRepresentation] - + setterName - + if [arguments length] > 0 then - ": " + [arguments stringRepresentation] + "]" - else - "]" - end -} - -#-----------------------------------------------------------------------------* -override method @gtlVariablesInstruction display -{ - message "variables" -} - -#-----------------------------------------------------------------------------* -override method @gtlWriteToInstruction display -{ - message "write to " - + if isExecutable then "executable " else "" end - + [fileNameExpression stringRepresentation] - + " :" - -} - -#-----------------------------------------------------------------------------* -override method @gtlTabStatementInstruction display -{ - message "tab " + [tabValue stringRepresentation] - -} - -#=============================================================================* -getter @gtlInstruction mayExecuteWithoutError - ?let @gtlContext unused exeContext - ?let @gtlData unused context - ?let @library unused lib - ->@bool may -{ - may = true -} - -#-----------------------------------------------------------------------------* -override getter @gtlDisplayStatementInstruction mayExecuteWithoutError - ?let @gtlContext exeContext - ?let @gtlData context - ?let @library lib - ->@bool may -{ - may = [variablePath exists !exeContext !context !lib] -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : step -#-----------------------------------------------------------------------------* -class @gtlStepInstruction : @gtlInstruction {} - -override method @gtlStepInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context setLoopOnCommand !false] -} - -override method @gtlStepInstruction display -{ - message "step" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : do -#-----------------------------------------------------------------------------* -class @gtlDoInstInstruction : @gtlInstruction -{ - @gtlInstruction instructionToDo -} - -override method @gtlDoInstInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context appendInstructionToStepDo !instructionToDo] -} - -override method @gtlDoInstInstruction display -{ - message "do " - [instructionToDo display] -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : do not -#-----------------------------------------------------------------------------* -class @gtlDoNotInstruction : @gtlInstruction -{ - @lbigint numToDelete -} - -override method @gtlDoNotInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteStepDoInstruction !numToDelete] -} - -override method @gtlDoNotInstruction display -{ - message "do not " + [numToDelete bigint] -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : do not all -#-----------------------------------------------------------------------------* -class @gtlDoNotAllInstruction : @gtlInstruction -{ -} - -override method @gtlDoNotAllInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteAllStepDoInstructions] -} - -override method @gtlDoNotAllInstruction display -{ - message "do not all" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : do -#-----------------------------------------------------------------------------* -class @gtlDoInstruction : @gtlInstruction -{ -} - -override method @gtlDoInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [context listStepDoInstructions] -} - -override method @gtlDoInstruction display -{ - message "do" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : continue -#-----------------------------------------------------------------------------* -class @gtlContinueInstruction : @gtlInstruction -{ -} - -override method @gtlContinueInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context setBreakOnNext !false] - [!?context setLoopOnCommand !false] -} - -override method @gtlContinueInstruction display -{ - message "cont" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : add a breakpoint -#-----------------------------------------------------------------------------* -class @gtlBreakpointInstruction : @gtlInstruction -{ - @string fileName - @uint lineNum -} - -override method @gtlBreakpointInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - let instructionList = [[context debuggerContext] instructionList] - @string localFileName = "" - if [instructionList length] > 0 then - localFileName = [ - [[[instructionList instructionAtIndex !0] location] file] - lastPathComponent - ] - if fileName == localFileName | fileName == "" then - message "Setting breakpoint at " + localFileName + ":" + lineNum + "\n" - [!?context setBreakpoint !localFileName !lineNum] - else - message "Setting breakpoint at " + fileName + ":" + lineNum + "\n" - [!?context setBreakpoint !fileName !lineNum] - end - else - message "Unable to set a breakpoint in an empty file\n" - end -} - -override method @gtlBreakpointInstruction display -{ - message "break " + fileName + ":" + lineNum -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : list breakpoints -#-----------------------------------------------------------------------------* -class @gtlBreakpointListInstruction : @gtlInstruction -{ -} - -override method @gtlBreakpointListInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [context listBreakpoints] -} - -override method @gtlBreakpointListInstruction display -{ - message "break" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : delete breakpoint -#-----------------------------------------------------------------------------* -class @gtlBreakpointDeleteInstruction : @gtlInstruction -{ - @lbigint numToDelete -} - -override method @gtlBreakpointDeleteInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteBreakpoint !numToDelete] -} - -override method @gtlBreakpointDeleteInstruction display -{ - message "break not " + [numToDelete bigint] -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : delete all breakpoint -#-----------------------------------------------------------------------------* -class @gtlBreakpointDeleteAllInstruction : @gtlInstruction -{ -} - -override method @gtlBreakpointDeleteAllInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteAllBreakpoints] -} - -override method @gtlBreakpointDeleteAllInstruction display -{ - message "break not all" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : add a watchpoint -#-----------------------------------------------------------------------------* -class @gtlWatchpointInstruction : @gtlInstruction -{ - @gtlExpression watchExpression -} - -override method @gtlWatchpointInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context setWatchpoint !watchExpression] -} - -override method @gtlWatchpointInstruction display -{ - message "watch ( " + [watchExpression stringRepresentation] + " )" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : list breakpoints -#-----------------------------------------------------------------------------* -class @gtlWatchpointListInstruction : @gtlInstruction -{ -} - -override method @gtlWatchpointListInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [context listWatchpoints] -} - -override method @gtlWatchpointListInstruction display -{ - message "watch" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : delete breakpoint -#-----------------------------------------------------------------------------* -class @gtlWatchpointDeleteInstruction : @gtlInstruction -{ - @lbigint numToDelete -} - -override method @gtlWatchpointDeleteInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteWatchpoint !numToDelete] -} - -override method @gtlWatchpointDeleteInstruction display -{ - message "watch not " + [numToDelete bigint] -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : delete all watchpoints -#-----------------------------------------------------------------------------* -class @gtlWatchpointDeleteAllInstruction : @gtlInstruction -{ -} - -override method @gtlWatchpointDeleteAllInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [!?context deleteAllWatchpoints] -} - -override method @gtlWatchpointDeleteAllInstruction display -{ - message "watch not all" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : list -#-----------------------------------------------------------------------------* -class @gtlListInstruction : @gtlInstruction -{ - @uint window -} - -override method @gtlListInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [context hereWeAre !window] -} - -override method @gtlListInstruction display -{ - message "list " + window -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : hist -#-----------------------------------------------------------------------------* -class @gtlHistoryInstruction : @gtlInstruction -{ -} - -override method @gtlHistoryInstruction execute - ?!@gtlContext context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - [[[context debuggerContext] commandInput] listHistory] -} - -override method @gtlHistoryInstruction display -{ - message "hist" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : load -#-----------------------------------------------------------------------------* -class @gtlLoadInstruction : @gtlInstruction -{ - @string fileName -} - -override method @gtlLoadInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [fileName loadCommandFile !?context !?vars !?lib] -} - -override method @gtlLoadInstruction display -{ - message "load \"" + fileName + "\"" -} - -#-----------------------------------------------------------------------------* -# Debugger instruction : help -#-----------------------------------------------------------------------------* -class @gtlHelpInstruction : @gtlInstruction -{ -} - -override method @gtlHelpInstruction execute - ?!@gtlContext unused context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string unused outputString -{ - message "Available commands:\n" - message " break : : set a breakpoint at in file \n" - message " break : set a breakpoint at in the current file\n" - message " break : lists the breakpoints\n" - message " break not : delete breakpoint at index \n" - message " break not all : delete all breakpoints\n" - message " cont : continue execution until the next breakpoint or the end\n" - message " display : display variable \n" - message " do : do a command each time a step is done\n" - message " do : list the do commands\n" - message " do not : delete the do command at index \n" - message " do not all : delete all the do commands\n" - message " hist : display the command history\n" - message " if then ... : same as GTL if instruction. Must be on one line though\n" - message " list : lists instructions +/- 5 around current one\n" - message " list : lists instructions +/- around current one\n" - message " let := : compute and set to the result\n" - message " load : load commands from file \n" - message " print : prints the \n" - message " step : step one instruction\n" - message " unlet : delete \n" - message " variables : display all variables in scope\n" - message " watch () : set a watchpoint matching the boolean \n" - message " watch : lists the watchpoints\n" - message " watch not : delete watchpoint at index \n" - message " watch not all : delete all watchpoints\n" - message " : step one instruction\n" -} - -override method @gtlHelpInstruction display -{ - message "help" -} - diff --git a/goil/galgas-sources/gtl_debugger_expression_parser.galgas b/goil/galgas-sources/gtl_debugger_expression_parser.galgas deleted file mode 100644 index 56c1a6d9f..000000000 --- a/goil/galgas-sources/gtl_debugger_expression_parser.galgas +++ /dev/null @@ -1,700 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_expression_parser.galgas -# -# @section desc File description -# -# Expressions parser for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - -syntax gtl_debugger_expression_parser (gtl_debugger_scanner) { - -#------------------------------------------------------------------------------* -# E X P R E S S I O N * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $|$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlOrExpression.new { !opLocation !expression !rightSon } - while - $^$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlXorExpression.new { !opLocation !expression !rightSon } - end -} - -#------------------------------------------------------------------------------* -# R E L A T I O N T E R M * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $&$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlAndExpression.new { !opLocation !expression !rightSon } - end -} - -#------------------------------------------------------------------------------* -# R E L A T I O N F A C T O R * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - select - or - $==$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlEqualExpression.new { - !opLocation !expression !rightSon - } - or - $!=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlNotEqualExpression.new { - !opLocation !expression !rightSon - } - or - $<=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlLowerOrEqualExpression.new { - !opLocation !expression !rightSon - } - or - $>=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlGreaterOrEqualExpression.new { - !opLocation !expression !rightSon - } - or - $>$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlGreaterThanExpression.new { - !opLocation !expression !rightSon - } - or - $<$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlLowerThanExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# S I M P L E E X P R E S S I O N * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $<<$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlShiftLeftExpression.new { - !opLocation !expression !rightSon - } - while - $>>$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlShiftRightExpression.new { - !opLocation !expression !rightSon - } - while - $+$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlAddExpression.new { - !opLocation !expression !rightSon - } - while - $.$ ; let @location opLocation = .here - if [option gtl_options.warnDeprecated value] then - warning opLocation : "'.' operator is deprecated" fixit { replace "+" } - end - ?let @gtlExpression rightSon - expression = @gtlAddExpression.new { - !opLocation !expression !rightSon - } - while - $-$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlSubstractExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# T E R M * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $*$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlMultiplyExpression.new { - !opLocation !expression !rightSon - } - while - $/$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlDivideExpression.new { - !opLocation !expression !rightSon - } - while - $mod$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlModulusExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# F A C T O R : ( EXPRESSION ) * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $($ ; let @location opLocation = .here - ?let @gtlExpression factorExpression - expression = @gtlParenthesizedExpression.new { - !opLocation - !factorExpression - } - $)$ -} - -#------------------------------------------------------------------------------* -# F A C T O R : not FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $not$ ; let @location opLocation = .here - ?let @gtlExpression notExpression - expression = @gtlNotExpression.new { !opLocation !notExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : ~ FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $~$ ; let @location opLocation = .here - ?let @gtlExpression notExpression - expression = @gtlNotExpression.new { !opLocation !notExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : - FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $-$ ; let @location opLocation = .here - ?let @gtlExpression minusExpression - expression = @gtlMinusExpression.new { !opLocation !minusExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : + FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $+$ ; let @location opLocation = .here - ?let @gtlExpression plusExpression - expression = @gtlPlusExpression.new { !opLocation !plusExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : true * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $yes$ ; let @location opLocation = .here - expression = @gtlTerminal.new{ - !opLocation !@gtlBool.new { !opLocation !emptylstring() !true } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : false * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $no$ - expression = @gtlTerminal.new{ - !.here !@gtlBool.new { !.here !emptylstring() !false } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : an integer value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $signed_literal_integer_bigint$ ?let @lbigint literalInteger - expression = @gtlTerminal.new{ - !.here !@gtlInt.new { !.here !emptylstring() ![literalInteger bigint] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a float value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_double$ ?let @ldouble literalFloat - expression = @gtlTerminal.new{ - !.here !@gtlFloat.new { !.here !emptylstring() ![literalFloat double] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a literal string value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $string$ ?let @lstring literalString - expression = @gtlTerminal.new{ - !.here !@gtlString.new { !.here !emptylstring() ![literalString string] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a literal char value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_char$ ?let @lchar literalChar - expression = @gtlTerminal.new{ - !.here !@gtlChar.new { !.here !emptylstring() ![literalChar char] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R * -# template getter call : [expression getter : ... ] * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $[$ - ?let @gtlExpression target - $identifier$ ?let @lstring getterName - if [option gtl_options.warnDeprecated value] then - if "stringByCapitalizingFirstCharacter" == getterName then - warning getterName : "stringByCapitalizingFirstCharacter is deprecated" - fixit { replace "capitalized" } - end - end - @gtlExpressionList argumentList = .emptyList - select - or - $:$ - repeat - ?let @gtlExpression argument - argumentList += !argument - while - $,$ - end - end - $]$ - expression = @gtlGetterCallExpression.new { - !.here - !target - !getterName - !argumentList - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?let @gtlVarPath path - select - expression = @gtlVarRef.new { !.here !path } - or - if [path length] > 1 then - error .here : "illegal function name" - end - @gtlExpressionList functionArguments = .emptyList - $($ - select - repeat - ?let @gtlExpression expression - functionArguments += !expression - while - $,$ - end - or end - $)$ - let @lstring functionName = [path pathAsFunctionName] - expression = @gtlFunctionCallExpression.new { - !.here - !functionName - !functionArguments - } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $exists$ ; ?let @gtlVarPath path - select - $default$ - $($ - ?let @gtlExpression defaultExpression - $)$ - expression = @gtlExistsDefaultExpression.new { - !.here !path !defaultExpression - } - or - expression = @gtlExistsExpression.new { !.here !path } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $typeof$ ; ?let @gtlVarPath path - expression = @gtlTypeOfExpression.new { !.here !path } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $true$ - expression = @gtlTerminal.new { - !.here - !@gtlBool.new { - !.here - !emptylstring() - !true - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $false$ - expression = @gtlTerminal.new { - !.here - !@gtlBool.new { - !.here - !emptylstring() - !false - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_enum$ ?let @lstring enumValue - expression = @gtlTerminal.new { - !.here - !@gtlEnum.new { - !.here - !emptylstring() - !enumValue - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@$ ; $identifier$ ?let @lstring typeName - let @string name = [typeName string] - let @gtlType type - if name == "int" then - type = .new { ![typeName location] !emptylstring() !`@gtlInt } - elsif name == "float" then - type = .new { ![typeName location] !emptylstring() !`@gtlFloat } - elsif name == "string" then - type = .new { ![typeName location] !emptylstring() !`@gtlString } - elsif name == "bool" then - type = .new { ![typeName location] !emptylstring() !`@gtlBool } - elsif name == "struct" then - type = .new { ![typeName location] !emptylstring() !`@gtlStruct } - elsif name == "list" then - type = .new { ![typeName location] !emptylstring() !`@gtlList } - elsif name == "map" then - type = .new { ![typeName location] !emptylstring() !`@gtlMap } - elsif name == "enum" then - type = .new { ![typeName location] !emptylstring() !`@gtlEnum } - elsif name == "type" then - type = .new { ![typeName location] !emptylstring() !`@gtlType } - elsif name == "set" then - type = .new { ![typeName location] !emptylstring() !`@gtlSet } - elsif name == "char" then - type = .new { ![typeName location] !emptylstring() !`@gtlChar } - elsif name == "unconstructed" then - type = .new { ![typeName location] !emptylstring() !`@gtlUnconstructed } - else error .here : name + " does not name a type" : type - end - expression = @gtlTerminal.new { ![typeName location] !type } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $emptylist$ - if [option gtl_options.warnDeprecated value] then - warning .here : "emptylist is deprecated" fixit { replace "@( )" } - end - expression = @gtlTerminal.new { - !.here - !@gtlList.new { - !.here - !emptylstring() - !.emptyList - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $emptymap$ - if [option gtl_options.warnDeprecated value] then - warning .here : "emptymap is deprecated" fixit { replace "@[ ]" } - end - expression = @gtlTerminal.new { - !.here - !@gtlMap.new { - !.here - !emptylstring() - !.emptyMap - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $mapof$ - ?let @gtlExpression data - select - $by$ - $identifier$ ?let @lstring key - expression = @gtlMapOfListExpression.new { - !.here - !data - !key - } - or - $end$ - expression = @gtlMapOfStructExpression.new { - !.here - !data - } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $listof$ - ?let @gtlExpression data - expression = @gtlListOfExpression.new { !.here !data } - $end$ -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@($ - @gtlExpressionList expressionList = .emptyList - select - repeat - ?let @gtlExpression listItem - expressionList += !listItem - while $,$ - end - or - end - $)$ - expression = @gtlLiteralListExpression.new { !.here !expressionList } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@[$ - @gtlExpressionMap expressionMap = .emptyMap - select - repeat - $string$ ?let @lstring key - $:$ - ?let @gtlExpression mapItem - [!?expressionMap put !key !mapItem] - while $,$ - end - or - end - $]$ - expression = @gtlLiteralMapExpression.new { !.here !expressionMap } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@{$ - @gtlExpressionMap expressionMap = .emptyMap - select - repeat - $identifier$ ?let @lstring fieldName - $:$ - ?let @gtlExpression structField - [!?expressionMap put !fieldName !structField] - while $,$ - end - or - end - $}$ - expression = @gtlLiteralStructExpression.new { !.here !expressionMap } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@!$ - @gtlExpressionList expressionList = .emptyList - select - repeat - ?let @gtlExpression setElement - expressionList += !setElement - while $,$ - end - or - end - $!$ - expression = @gtlLiteralSetExpression.new { !.here !expressionList } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlVarPath path -{ - path = .emptyList - repeat - $identifier$ ?let @lstring variableName - select - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemCollection.new { !variableName !expression } - select - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemSubCollection.new { !.here !expression } - repeat - while - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemSubCollection.new { !.here !expression } - end - or - end - or - path += !@gtlVarItemField.new { !variableName } - end - while - $::$ - end -} - -} diff --git a/goil/galgas-sources/gtl_debugger_grammar.galgas b/goil/galgas-sources/gtl_debugger_grammar.galgas deleted file mode 100644 index 41d547e0e..000000000 --- a/goil/galgas-sources/gtl_debugger_grammar.galgas +++ /dev/null @@ -1,36 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_debugger_grammar.galgas -# -# @section desc File description -# -# Debugger parser for GTL. -# -# @section copyright Copyright -# -# GTL template language, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -grammar gtl_debugger_grammar "LL1" { - syntax gtl_debugger_parser - syntax gtl_debugger_expression_parser - - - - !@gtlInstruction instruction -} - -#---------------------------------------------------------------------------* diff --git a/goil/galgas-sources/gtl_debugger_input.galgas b/goil/galgas-sources/gtl_debugger_input.galgas deleted file mode 100644 index 53a5210cb..000000000 --- a/goil/galgas-sources/gtl_debugger_input.galgas +++ /dev/null @@ -1,159 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_debugger_input.galgas -# -# @section desc File description -# -# Manage the input buffer for debugger commands. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -class @debugCommandInput -{ - @stringlist history -} - -setter @debugCommandInput getCommand - !@string command -{ - command = "" - @string savedCommand = "" - @uint historyIndex = 0 - @char inputChar = '\r' - @uint cursorPos = 0 - @uint escapeState = 0 - - loop (@uint.max) - inputChar = @char.unicodeCharacterFromRawKeyboard - while inputChar != '\r' do - if escapeState == 1 & [inputChar uint] == 0x5B then - escapeState = 2 - elsif escapeState == 2 then - # got ESC ], the char is the arrow - if [inputChar uint] == 0x44 then - # left arrow - if cursorPos > 0 then - cursorPos-- - message "\u001B[1D" - end - elsif [inputChar uint] == 0x43 then - # right arrow - if cursorPos < [command length] then - cursorPos++ - message "\u001B[1C" - end - elsif [inputChar uint] == 0x41 then - # up arrow - if historyIndex == 0 then - savedCommand = command - end - if historyIndex < [history length] then - if cursorPos > 0 then - message "\u001B[" + cursorPos + "D" - end - message "\u001B[K" - command = [history mValueAtIndex !historyIndex] - message command - cursorPos = [command length] - historyIndex++ - end - elsif [inputChar uint] == 0x42 then - # down arrow - if historyIndex > 0 then - if cursorPos > 0 then - message "\u001B[" + cursorPos + "D" - end - message "\u001B[K" - historyIndex-- - if historyIndex == 0 then - command = savedCommand - else - command = [history mValueAtIndex !historyIndex - 1] - end - message command - cursorPos = [command length] - end - end - escapeState = 0 - else - if [inputChar uint] == 0x7F then - # delete key - if cursorPos > 0 then - cursorPos-- - [!?command removeCharacterAtIndex ?* !cursorPos] - message "\u001B[1D\u001B[K" - let @uint remainingChars = [command length] - cursorPos - if remainingChars > 0 then - message [command rightSubString !remainingChars] - message "\u001B[" + remainingChars + "D" - end - end - message [inputChar string] - elsif [inputChar uint] == 0x1B then - # escape key - escapeState = 1 - elsif inputChar != '\0' then - if cursorPos == [command length] then - command = command + inputChar - message [inputChar string] - cursorPos++ - else - [!?command insertCharacterAtIndex !inputChar !cursorPos] - message [inputChar string] - cursorPos++ - let @uint remainingChars = [command length] - cursorPos - if remainingChars > 0 then - message [command rightSubString !remainingChars] - message "\u001B[" + remainingChars + "D" - end - end - end -# message "buffer (" + cursorPos +"): " -# @uint index = 0 -# loop (@uint.max) -# while index < [command length] do -# if index == cursorPos then -# message "^" -# end -# message "[" + [[[command characterAtIndex !index] uint] xString] + "]" -# index++ -# end -# if index == cursorPos then -# message "^" -# end -# message "\n" - end - end - message "\n" - if [command stringByTrimmingWhiteSpaces] != "hist" then - [!?history insertAtIndex !command !0] - end -} - -method @debugCommandInput listHistory -{ - if [history length] > 0 then - message "Command history:\n" - for (item) in history do (index) - message [[index string] stringByLeftPadding !4 !' '] + ": " + item + "\n" - end - else - message "Command history empty.\n" - end -} diff --git a/goil/galgas-sources/gtl_debugger_parser.galgas b/goil/galgas-sources/gtl_debugger_parser.galgas deleted file mode 100644 index ae55a7122..000000000 --- a/goil/galgas-sources/gtl_debugger_parser.galgas +++ /dev/null @@ -1,493 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_debugger_parser.galgas -# -# @section desc File description -# -# Debugger parser for GTL. -# -# @section copyright Copyright -# -# GTL template language, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -syntax gtl_debugger_parser (gtl_debugger_scanner) { - -#-----------------------------------------------------------------------------* -rule - !@gtlExpression expression - -rule - !@gtlVarPath path - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - select - $cont$ - or - $continue$ - end - instruction = @gtlContinueInstruction.new { - !.here - !"" - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $help$ - instruction = @gtlHelpInstruction.new { - !.here - !"" - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $step$ - instruction = @gtlStepInstruction.new { - !.here - !"" - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $load$ - let @lstring fileName - select - $identifier$ ?fileName - or - $string$ ?fileName - end - instruction = @gtlLoadInstruction.new { - !.here - !"" - !fileName - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $hist$ - instruction = @gtlHistoryInstruction.new { - !.here - !"" - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $break$ - select - $not$ - select - $signed_literal_integer_bigint$ ?let @lbigint index - instruction = @gtlBreakpointDeleteInstruction.new { - !.here - !"" - !index - } - or - $all$ - instruction = @gtlBreakpointDeleteAllInstruction.new { - !.here - !"" - } - end - or - select - $identifier$ ?let @lstring fileName - $.$ - $identifier$ ?let @lstring fileExtension - $:$ - $signed_literal_integer_bigint$ ?let @lbigint lineNum - instruction = @gtlBreakpointInstruction.new { - !.here - !"" - ![fileName string] + "." + fileExtension - ![lineNum bigint] - } - or - $signed_literal_integer_bigint$ ?let @lbigint lineNum - instruction = @gtlBreakpointInstruction.new { - !.here - !"" - !"" - ![lineNum bigint] - } - end - or - $string$ ?let @lstring fileNameAndLineNum - let @stringlist components = [[fileNameAndLineNum string] componentsSeparatedByString !":"] - if [components length] == 2 then - let @string fileName = [components mValueAtIndex !0] - let @string lineNum = [components mValueAtIndex !1] - instruction = @gtlBreakpointInstruction.new { - !.here - !"" - !fileName - ![lineNum decimalUnsignedNumber] - } - else - error .here : "Illegal breakpoint location" : instruction - end - or - instruction = @gtlBreakpointListInstruction.new { - !.here - !"" - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $watch$ - select - $not$ - select - $signed_literal_integer_bigint$ ?let @lbigint index - instruction = @gtlWatchpointDeleteInstruction.new { - !.here - !"" - !index - } - or - $all$ - instruction = @gtlWatchpointDeleteAllInstruction.new { - !.here - !"" - } - end - or - $($ - ?let @gtlExpression watchExpression - instruction = @gtlWatchpointInstruction.new { - !.here - !"" - !watchExpression - } - $)$ - or - instruction = @gtlWatchpointListInstruction.new { - !.here - !"" - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - - $do$ - select - ?let @gtlInstruction instructionToStepDo - instruction = @gtlDoInstInstruction.new { - !.here - !"" - !instructionToStepDo - } - or - $not$ - select - $signed_literal_integer_bigint$ ?let @lbigint num - instruction = @gtlDoNotInstruction.new { - !.here - !"" - !num - } - or - $all$ - instruction = @gtlDoNotAllInstruction.new { - !.here - !"" - } - end - or - instruction = @gtlDoInstruction.new { - !.here - !"" - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - instruction = @gtlStepInstruction.new { - !.here - !"" - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $let$ - ?let @gtlVarPath variable - select - $:=$ - ?let @gtlExpression expression - instruction = @gtlLetInstruction.new { - !.here - !"" - !variable - !expression - } - or - $+=$ - ?let @gtlExpression expression - instruction = @gtlLetAddInstruction.new { - !.here - !"" - !variable - !expression - } - or - $-=$ - ?let @gtlExpression expression - instruction = @gtlLetSubstractInstruction.new { - !.here - !"" - !variable - !expression - } - or - $*=$ - ?let @gtlExpression expression - instruction = @gtlLetMultiplyInstruction.new { - !.here - !"" - !variable - !expression - } - or - $/=$ - ?let @gtlExpression expression - instruction = @gtlLetDivideInstruction.new { - !.here - !"" - !variable - !expression - } - or - $mod=$ - ?let @gtlExpression expression - instruction = @gtlLetModuloInstruction.new { - !.here - !"" - !variable - !expression - } - or - $<<=$ - ?let @gtlExpression expression - instruction = @gtlLetShiftLeftInstruction.new { - !.here - !"" - !variable - !expression - } - or - $>>=$ - ?let @gtlExpression expression - instruction = @gtlLetShiftRightInstruction.new { - !.here - !"" - !variable - !expression - } - or - $&=$ - ?let @gtlExpression expression - instruction = @gtlLetAndInstruction.new { - !.here - !"" - !variable - !expression - } - or - $|=$ - ?let @gtlExpression expression - instruction = @gtlLetOrInstruction.new { - !.here - !"" - !variable - !expression - } - or - $^=$ - ?let @gtlExpression expression - instruction = @gtlLetXorInstruction.new { - !.here - !"" - !variable - !expression - } - or - instruction = @gtlLetUnconstructedInstruction.new { - !.here - !"" - !variable - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $unlet$ - ?let @gtlVarPath variable - instruction = @gtlUnletInstruction.new { - !.here - !"" - !variable - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - ?instruction -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $variables$ - instruction = @gtlVariablesInstruction.new { - !.here - !"" - !true - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $display$ - ?let @gtlVarPath variable - instruction = @gtlDisplayStatementInstruction.new { - !.here - !"" - !variable - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $print$ - ?let @gtlExpression expression - instruction = @gtlPrintStatementInstruction.new { - !.here - !"" - !true - !expression - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $list$ - @uint window = 5 - select - $signed_literal_integer_bigint$ ?let @lbigint num - window = [[num bigint] uint] - if window > 10 then window = 10 end - or - end - instruction = @gtlListInstruction.new { - !.here - !"" - !window - } -} - -#-----------------------------------------------------------------------------* -# if ... elsif ... else ... end if instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - @gtlThenElsifStatementList thenElsifList = .emptyList - @gtlInstructionList elseList = .emptyList - - $if$ ; let @location where = .here - repeat - ?let @gtlExpression condition - $then$ - ?let @gtlInstructionList instructionList - - thenElsifList += !condition !instructionList - while - $elsif$ - end -#--- else - select - $else$ - ?elseList - or end -#--- - $end$ - $if$ - - instruction = @gtlIfStatementInstruction.new { - !where !signature(!where) !thenElsifList !elseList - } -} - -#-----------------------------------------------------------------------------* -# Instruction list in a setter, getter or function or any control instruction -#-----------------------------------------------------------------------------* -rule - !@gtlInstructionList instructionList -{ - instructionList = .emptyList - - repeat - while - ?let @gtlInstruction instruction - instructionList += !instruction - end -} - -} \ No newline at end of file diff --git a/goil/galgas-sources/gtl_debugger_scanner.galgas b/goil/galgas-sources/gtl_debugger_scanner.galgas deleted file mode 100644 index 77d566568..000000000 --- a/goil/galgas-sources/gtl_debugger_scanner.galgas +++ /dev/null @@ -1,466 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_scanner.galgas -# -# @section desc File description -# -# scanner for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - -lexique gtl_debugger_scanner { - -@string identifierString -@bigint intValue -@string tokenString -@string functionContent - -style keywordsStyle -> "Keywords" -style delimitersStyle -> "Delimiters" -style nonTerminalStyle -> "Non Terminal Symbols" -style integerStyle -> "Integer Constants" -style floatCsts -> "Floating Point Constants" -style stringStyle -> "String literals" -style commentStyle -> "Comments" -style characterStyle -> "Character Constants" - -# -------------------------- identifier or lkey word -------------------- -# keywords can be written in lower or upper case -# for identifiers, case is significant - -$identifier$ ! tokenString error message "an identifier" - -list goilTemplateKeyWordList style keywordsStyle error message "the '%K' keyword" -{ - "default", "display", "do", "emptylist", "emptymap", "exists", "false", - "list", "import", "listof", "let", "mapof", "mod", "no", "not", "or", - "print", "sort", "step", "true", "typeof", "yes", "variables", "unlet", - "libraries", "break", "watch", "by", "end", "cont", "continue", "help", - "if", "then", "else", "elsif", "hist", "all", "load" -} - -rule 'a'->'z' | 'A'->'Z' { - repeat - enterCharacterIntoString ( !?identifierString !*) - enterCharacterIntoString ( !?tokenString !*) - while 'a'->'z' | 'A'->'Z' | '_' | '0'->'9' : - end - send search identifierString in goilTemplateKeyWordList default $identifier$ -} - -# ---------------------------------- enum value-------------------------------- -$literal_enum$ ! tokenString error message "a literal enum value" - -rule '$' { - repeat - while 'a'->'z' | 'A'->'Z' | '_' | '0'->'9' : - enterCharacterIntoString ( !?tokenString !*) - end - send $literal_enum$ -} - -# ----------------------------- Delimitors --------------------------------------- -list galgasDelimitorsList style delimitersStyle error message "the '%K' delimitor"{ - "*", "|", ",", "+", "::", ">", - ":", "(", ")", "->", "?", "==", - "!", ":=", "[", "]", "+=", "-=", - "/", "!=", ">=", "&", "<=", "{", "}", - "<", "^", ">>", "~", "<-", "<<", "@", "*=", - "/=", "&=", "|=", "<<=", ">>=", "mod=", "^=", "@[", - "@(", "@{", "[!", "@!" -} - -rule list galgasDelimitorsList - -#------------------------------- Integer, floating Point Constant ------------------ -@double floatValue -$literal_double$ !floatValue style floatCsts error message "a float number" -$signed_literal_integer_bigint$ !intValue style integerStyle error message "a bigint decimal number" - -$-$ style delimitersStyle error message "the - delimitor" - -message floatNumberConversionError : "invalid float number" -message internalError : "internal error" - -rule '-' { - select - case '0'->'9': - enterCharacterIntoString(!?tokenString !'-') - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - select - case '.' : - enterCharacterIntoString(!?tokenString !'.') - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - convertDecimalStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ - end - default - send $-$ - end -} - -rule "0x" | "0X" { - repeat - while '0'->'9' | 'a'->'f' | 'A'->'F': - enterCharacterIntoString(!?tokenString !*) - end - convertHexStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ -} - - -rule '0'->'9' { - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - select - case '.' : - enterCharacterIntoString(!?tokenString !'.') - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - convertDecimalStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ - end -} - - -#------------------------------- Floating point Number ------------------ -$.$ style delimitersStyle error message "the '.' delimitor" -$.=$ style delimitersStyle error message "the '.=' delimitor" -$...$ style delimitersStyle error message "the '...' delimitor" - -#--- Floating Point constant beginning with a dot -rule '.' { - select - case '0'->'9' : - enterCharacterIntoString(!?tokenString !'0') - enterCharacterIntoString(!?tokenString !'.') - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - select - case ".." : - send $...$ - case "=" : - send $.=$ - default - send $.$ - end - end -} - -# ------------------------------------ String ---------------------------- - -message unterminatedLitteralString : "Unterminated literal string" - -@string a_string -@char charValue -@uint uint32value - -message invalideUnicodeDefinition4 : "\\u should be followed by exactly four hexadecimal digits" -message invalideUnicodeDefinition8 : "\\U should be followed by exactly eight hexadecimal digits" -message unassignedUnicodeValue : "this value does not correspond to an assigned Unicode point" -message incorrectHTMLescapeSequence : "Invalid HTML sequence, should be '&...;'" -message unknownHTMLescapeSequence : "Invalid &...; HTML sequence" -message incorrectCharConstant : "incorrect literal character" - -$literal_char$ ! charValue style characterStyle error message "a character constant" - -rule '\'' { - select - case '\\' : - select - case 'f' : - enterCharacterIntoCharacter (!?charValue !'\f' ) - case 'n' : - enterCharacterIntoCharacter (!?charValue !'\n' ) - case 'r' : - enterCharacterIntoCharacter (!?charValue !'\r' ) - case 't' : - enterCharacterIntoCharacter (!?charValue !'\t' ) - case 'v' : - enterCharacterIntoCharacter (!?charValue !'\v' ) - case '\\' : - enterCharacterIntoCharacter (!?charValue !'\\' ) - case '0' : - enterCharacterIntoCharacter (!?charValue !'\0' ) - case '\'' : - enterCharacterIntoCharacter (!?charValue !'\'' ) - case 'u' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - case 'U' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - case '&' : - repeat - while ~ ";" error incorrectHTMLescapeSequence : - enterCharacterIntoString (!?tokenString !* ) - end - convertHTMLSequenceToUnicodeCharacter (!?tokenString !?charValue error unknownHTMLescapeSequence ) - default - error incorrectCharConstant - end - case ' ' -> '\uFFFD' : - enterCharacterIntoCharacter (!?charValue !* ) - default - error incorrectCharConstant - end - select - case '\'' : - send $literal_char$ - default - error incorrectCharConstant - end -} - -$string$ !a_string style stringStyle error message "literal string" - -rule '"' { - repeat - while '\\' : - select - case 'f' : - enterCharacterIntoString (!?a_string !'\f' ) - case 'n' : - enterCharacterIntoString (!?a_string !'\n' ) - case 'r' : - enterCharacterIntoString (!?a_string !'\r' ) - case 't' : - enterCharacterIntoString (!?a_string !'\t' ) - case 'v' : - enterCharacterIntoString (!?a_string !'\v' ) - case '\\' : - enterCharacterIntoString (!?a_string !'\\' ) - case '"' : - enterCharacterIntoString (!?a_string !'"' ) - case '\'' : - enterCharacterIntoString (!?a_string !'\'' ) - case '?' : - enterCharacterIntoString (!?a_string !'?' ) - case '&' : - repeat - while ~ ";" error incorrectHTMLescapeSequence : - enterCharacterIntoString (!?identifierString !* ) - end - convertHTMLSequenceToUnicodeCharacter (!?identifierString !?charValue error unknownHTMLescapeSequence ) - enterCharacterIntoString (!?a_string !charValue ) - case 'u' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - enterCharacterIntoString (!?a_string !charValue ) - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - case 'U' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - enterCharacterIntoString (!?a_string !charValue ) - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error incorrectCharConstant - end - while ' ' | '!' | '#'-> '\uFFFD' : - enterCharacterIntoString (!?a_string !* ) - end - select - case '"' : - send $string$ - default - error unterminatedLitteralString - end -} - -# ------------------------------------ Comment ---------------------------- -$comment$ style commentStyle error message "a comment" -rule '#' { - repeat - while '\u0001' -> '\u0009' | '\u000B' | '\u000C' | '\u000E' -> '\uFFFD' : - end - drop $comment$ -} - -# --------------------- separators ----------------------------------------- -rule '\u0001' -> ' ' { -} - -} diff --git a/goil/galgas-sources/gtl_expression_parser.galgas b/goil/galgas-sources/gtl_expression_parser.galgas deleted file mode 100755 index 529b4f862..000000000 --- a/goil/galgas-sources/gtl_expression_parser.galgas +++ /dev/null @@ -1,756 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_expression_parser.galgas -# -# @section desc File description -# -# Expressions parser for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - -syntax gtl_expression_parser (gtl_scanner) { - -#------------------------------------------------------------------------------* -# E X P R E S S I O N * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $|$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlOrExpression.new { !opLocation !expression !rightSon } - while - $^$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlXorExpression.new { !opLocation !expression !rightSon } - end -} - -#------------------------------------------------------------------------------* -# R E L A T I O N T E R M * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $&$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlAndExpression.new { !opLocation !expression !rightSon } - end -} - -#------------------------------------------------------------------------------* -# R E L A T I O N F A C T O R * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - select - or - $==$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlEqualExpression.new { - !opLocation !expression !rightSon - } - or - $!=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlNotEqualExpression.new { - !opLocation !expression !rightSon - } - or - $<=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlLowerOrEqualExpression.new { - !opLocation !expression !rightSon - } - or - $>=$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlGreaterOrEqualExpression.new { - !opLocation !expression !rightSon - } - or - $>$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlGreaterThanExpression.new { - !opLocation !expression !rightSon - } - or - $<$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlLowerThanExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# S I M P L E E X P R E S S I O N * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $<<$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlShiftLeftExpression.new { - !opLocation !expression !rightSon - } - while - $>>$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlShiftRightExpression.new { - !opLocation !expression !rightSon - } - while - $+$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlAddExpression.new { - !opLocation !expression !rightSon - } - while - $.$ ; let @location opLocation = .here - if [option gtl_options.warnDeprecated value] then - warning opLocation : "'.' operator is deprecated" fixit { replace "+" } - end - ?let @gtlExpression rightSon - expression = @gtlAddExpression.new { - !opLocation !expression !rightSon - } - while - $-$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlSubstractExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# T E R M * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?expression - repeat - while - $*$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlMultiplyExpression.new { - !opLocation !expression !rightSon - } - while - $/$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlDivideExpression.new { - !opLocation !expression !rightSon - } - while - $mod$ ; let @location opLocation = .here - ?let @gtlExpression rightSon - expression = @gtlModulusExpression.new { - !opLocation !expression !rightSon - } - end -} - -#------------------------------------------------------------------------------* -# F A C T O R : ( EXPRESSION ) * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $($ ; let @location opLocation = .here - ?let @gtlExpression factorExpression - expression = @gtlParenthesizedExpression.new { - !opLocation - !factorExpression - } - $)$ -} - -#------------------------------------------------------------------------------* -# F A C T O R : not FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $not$ ; let @location opLocation = .here - ?let @gtlExpression notExpression - expression = @gtlNotExpression.new { !opLocation !notExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : ~ FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $~$ ; let @location opLocation = .here - ?let @gtlExpression notExpression - expression = @gtlNotExpression.new { !opLocation !notExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : - FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $-$ ; let @location opLocation = .here - ?let @gtlExpression minusExpression - expression = @gtlMinusExpression.new { !opLocation !minusExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : + FACTOR * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $+$ ; let @location opLocation = .here - ?let @gtlExpression plusExpression - expression = @gtlPlusExpression.new { !opLocation !plusExpression } -} - -#------------------------------------------------------------------------------* -# F A C T O R : true * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $yes$ ; let @location opLocation = .here - expression = @gtlTerminal.new{ - !opLocation !@gtlBool.new { !opLocation !emptylstring() !true } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : false * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $no$ - expression = @gtlTerminal.new{ - !.here !@gtlBool.new { !.here !emptylstring() !false } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : an integer value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $signed_literal_integer_bigint$ ?let @lbigint literalInteger - expression = @gtlTerminal.new{ - !.here !@gtlInt.new { !.here !emptylstring() ![literalInteger bigint] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a float value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_double$ ?let @ldouble literalFloat - expression = @gtlTerminal.new{ - !.here !@gtlFloat.new { !.here !emptylstring() ![literalFloat double] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a literal string value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $string$ ?let @lstring literalString - expression = @gtlTerminal.new{ - !.here !@gtlString.new { !.here !emptylstring() ![literalString string] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R : a literal char value * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_char$ ?let @lchar literalChar - expression = @gtlTerminal.new{ - !.here !@gtlChar.new { !.here !emptylstring() ![literalChar char] } - } -} - -#------------------------------------------------------------------------------* -# F A C T O R * -# template getter call : [expression getter : ... ] * -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $[$ - ?let @gtlExpression target - $identifier$ ?let @lstring getterName - if [option gtl_options.warnDeprecated value] then - if "stringByCapitalizingFirstCharacter" == getterName then - warning getterName : "stringByCapitalizingFirstCharacter is deprecated" - fixit { replace "capitalized" } - end - end - @gtlExpressionList argumentList = .emptyList - select - or - $:$ - repeat - ?let @gtlExpression argument - argumentList += !argument - while - $,$ - end - end - $]$ - expression = @gtlGetterCallExpression.new { - !.here - !target - !getterName - !argumentList - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - ?let @gtlVarPath path - select - expression = @gtlVarRef.new { !.here !path } - or - if [path length] > 1 then - error .here : "illegal function name" - end - @gtlExpressionList functionArguments = .emptyList - $($ - select - repeat - ?let @gtlExpression expression - functionArguments += !expression - while - $,$ - end - or end - $)$ - let @lstring functionName = [path pathAsFunctionName] - expression = @gtlFunctionCallExpression.new { - !.here - !functionName - !functionArguments - } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $exists$ ; ?let @gtlVarPath path - select - $default$ - $($ - ?let @gtlExpression defaultExpression - $)$ - expression = @gtlExistsDefaultExpression.new { - !.here !path !defaultExpression - } - or - expression = @gtlExistsExpression.new { !.here !path } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $typeof$ ; ?let @gtlVarPath path - expression = @gtlTypeOfExpression.new { !.here !path } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $true$ - expression = @gtlTerminal.new { - !.here - !@gtlBool.new { - !.here - !emptylstring() - !true - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $false$ - expression = @gtlTerminal.new { - !.here - !@gtlBool.new { - !.here - !emptylstring() - !false - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $literal_enum$ ?let @lstring enumValue - expression = @gtlTerminal.new { - !.here - !@gtlEnum.new { - !.here - !emptylstring() - !enumValue - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@$ ; $identifier$ ?let @lstring typeName - let @string name = [typeName string] - let @gtlType type - if name == "int" then - type = .new { ![typeName location] !emptylstring() !`@gtlInt } - elsif name == "float" then - type = .new { ![typeName location] !emptylstring() !`@gtlFloat } - elsif name == "string" then - type = .new { ![typeName location] !emptylstring() !`@gtlString } - elsif name == "bool" then - type = .new { ![typeName location] !emptylstring() !`@gtlBool } - elsif name == "struct" then - type = .new { ![typeName location] !emptylstring() !`@gtlStruct } - elsif name == "list" then - type = .new { ![typeName location] !emptylstring() !`@gtlList } - elsif name == "map" then - type = .new { ![typeName location] !emptylstring() !`@gtlMap } - elsif name == "enum" then - type = .new { ![typeName location] !emptylstring() !`@gtlEnum } - elsif name == "type" then - type = .new { ![typeName location] !emptylstring() !`@gtlType } - elsif name == "set" then - type = .new { ![typeName location] !emptylstring() !`@gtlSet } - elsif name == "char" then - type = .new { ![typeName location] !emptylstring() !`@gtlChar } - elsif name == "unconstructed" then - type = .new { ![typeName location] !emptylstring() !`@gtlUnconstructed } - else error .here : name + " does not name a type" : type - end - expression = @gtlTerminal.new { ![typeName location] !type } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $emptylist$ - if [option gtl_options.warnDeprecated value] then - warning .here : "emptylist is deprecated" fixit { replace "@( )" } - end - expression = @gtlTerminal.new { - !.here - !@gtlList.new { - !.here - !emptylstring() - !.emptyList - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $emptymap$ - if [option gtl_options.warnDeprecated value] then - warning .here : "emptymap is deprecated" fixit { replace "@[ ]" } - end - expression = @gtlTerminal.new { - !.here - !@gtlMap.new { - !.here - !emptylstring() - !.emptyMap - } - } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $mapof$ - ?let @gtlExpression data - select - $by$ - $identifier$ ?let @lstring key - expression = @gtlMapOfListExpression.new { - !.here - !data - !key - } - or - $end$ - expression = @gtlMapOfStructExpression.new { - !.here - !data - } - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $listof$ - ?let @gtlExpression data - expression = @gtlListOfExpression.new { !.here !data } - $end$ -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@($ - @gtlExpressionList expressionList = .emptyList - select - repeat - ?let @gtlExpression listItem - expressionList += !listItem - while $,$ - end - or - end - $)$ - expression = @gtlLiteralListExpression.new { !.here !expressionList } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@[$ - @gtlExpressionMap expressionMap = .emptyMap - select - repeat - $string$ ?let @lstring key - $:$ - ?let @gtlExpression mapItem - [!?expressionMap put !key !mapItem] - while $,$ - end - or - end - $]$ - expression = @gtlLiteralMapExpression.new { !.here !expressionMap } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@{$ - @gtlExpressionMap expressionMap = .emptyMap - select - repeat - $identifier$ ?let @lstring fieldName - $:$ - ?let @gtlExpression structField - [!?expressionMap put !fieldName !structField] - while $,$ - end - or - end - $}$ - expression = @gtlLiteralStructExpression.new { !.here !expressionMap } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@!$ - @gtlExpressionList expressionList = .emptyList - select - repeat - ?let @gtlExpression setElement - expressionList += !setElement - while $,$ - end - or - end - $!$ - expression = @gtlLiteralSetExpression.new { !.here !expressionList } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $@?$ - ?let @gtlExpression exp - $?$ - expression = @gtlTerminal.new { !.here !@gtlExpr.new { !.here !emptylstring() !exp } } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlExpression expression -{ - $__VARS__$ - expression = @gtlAllVarsRef.new { !.here } -} - -#------------------------------------------------------------------------------* - -rule - !@gtlVarPath path -{ - path = .emptyList - repeat - $identifier$ ?let @lstring variableName - select - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemCollection.new { !variableName !expression } - select - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemSubCollection.new { !.here !expression } - repeat - while - $[$ - ?let @gtlExpression expression - $]$ - path += !@gtlVarItemSubCollection.new { !.here !expression } - end - or - end - or - path += !@gtlVarItemField.new { !variableName } - end - while - $::$ - end -} - -#------------------------------------------------------------------------------* - -rule - !@gtlVarPath path - !@bool hereInstead -{ - select - $here$ ; path = .emptyList - hereInstead = true - or - ?path - hereInstead = false - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlArgumentList arguments -{ - arguments = .emptyList - $($ - select - repeat - $identifier$ ?let @lstring argumentName - select - $:$ ; $@$ ; $identifier$ ?let @lstring typeName - arguments += !true ![typeName gtlType] !argumentName - or - arguments += !false !`@gtlData !argumentName - end - while $,$ - end - or end - $)$ -} - -} diff --git a/goil/galgas-sources/gtl_expressions.galgas b/goil/galgas-sources/gtl_expressions.galgas deleted file mode 100755 index 85f4132d3..000000000 --- a/goil/galgas-sources/gtl_expressions.galgas +++ /dev/null @@ -1,1603 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_expressions.galgas -# -# @section desc File description -# -# expressions in GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -#-----------------------------------------------------------------------------* -# Wrappers on @gtlStruct because a gtlStruct is used to store the variables -#-----------------------------------------------------------------------------* -override getter @gtlStruct overrideMap - -> @gtlStruct mapOverriden -{ - mapOverriden = .new { - !where - !emptylstring() - !@gtlVarMap.mapWithMapToOverride{!value} - } -} - -#-----------------------------------------------------------------------------* -override getter @gtlStruct overriddenMap - -> @gtlStruct overriddenMap -{ - overriddenMap = .new{ !where !emptylstring() ![value overriddenMap] } -} - -#-----------------------------------------------------------------------------* -func wantGtlStruct - ?@gtlData inData - ->@gtlData outData -{ - cast inData - case == @gtlStruct inDataStruct: - outData = inDataStruct - else - outData = @gtlStruct.new { !inData !emptylstring() !.emptyMap } - end -} - -#-----------------------------------------------------------------------------* -func wantGtlMap - ?@gtlData inData - ->@gtlData outData -{ - cast inData - case == @gtlMap inDataMap: - outData = inDataMap - else - outData = @gtlMap.new { !inData !emptylstring() !.emptyMap } - end -} - -#-----------------------------------------------------------------------------* -func wantGtlList - ?@gtlData inData - ->@gtlData outData -{ - cast inData - case == @gtlList inDataList: - outData = inDataList - else - outData = @gtlList.new { !inData !emptylstring() !.emptyList } - end -} - -#=============================================================================* -# A @gtlVarItem is a part of a variable path. -# For instance A::B["e"]::C::D[3] is a path. A is a struct, B is a field of -# A and is a map, ["e"] is the element of the map with key "e". This element -# is a struct with field C which is itself a struct with field D which is a -# list and we reference the element at index 3. -#-----------------------------------------------------------------------------* -abstract class @gtlVarItem {} - -abstract getter @gtlVarItem stringPath - ?let @gtlContext exeContext - ?let @gtlData vars - ?let @library lib - -> @string - -abstract getter @gtlVarItem location - -> @location - -#-----------------------------------------------------------------------------* -# abstract method to set a data in a context -#-----------------------------------------------------------------------------* -abstract method @gtlVarItem setInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ?let @gtlData newData - -#-----------------------------------------------------------------------------* -# abstact getter to get a data in a context -#-----------------------------------------------------------------------------* -abstract getter @gtlVarItem getInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @gtlData - -#-----------------------------------------------------------------------------* -# abstact getter to test the existence of a field in a context -#-----------------------------------------------------------------------------* -abstract getter @gtlVarItem existsInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @bool - -#-----------------------------------------------------------------------------* -# abstact method to remove field in a context -#-----------------------------------------------------------------------------* -abstract method @gtlVarItem deleteInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -#=============================================================================* -# Scalar struct field, ie A or C in the example above -#-----------------------------------------------------------------------------* -class @gtlVarItemField : @gtlVarItem { @lstring field } - -override getter @gtlVarItemField location - -> @location loc -{ - loc = field -} - -override getter @gtlVarItemField stringPath - ?let @gtlContext unused exeContext - ?let @gtlData unused vars - ?let @library unused lib - -> @string result -{ - result = field -} - -getter @gtlVarItemField lstringPath - -> @lstring result -{ - result = field -} - -#-----------------------------------------------------------------------------* -# method to set a data in a struct context -#-----------------------------------------------------------------------------* -override method @gtlVarItemField setInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ?let @gtlData newData -{ - context = wantGtlStruct(!context) - if [path length] == 0 then - [!?context setStructField !field !newData] - else - [context structField !field ?@gtlData data ?*] - [[path itemAtIndex !0] setInContext - !exeContext - !?data - !vars - !lib - ![path subListFromIndex !1] - !newData - ] - [!?context setStructField !field !data] - end -} - -#-----------------------------------------------------------------------------* -# getter to get a data in a struct context -#-----------------------------------------------------------------------------* -override getter @gtlVarItemField getInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @gtlData result -{ - [context structField !field ?let @gtlData data ?let @bool found] - if [path length] == 0 then - if found then - result = data - else - error data : "Variable or field does not exist" : result - end - else - result = [[path itemAtIndex !0] getInContext - !exeContext - !data - !vars - !lib - ![path subListFromIndex !1] - ] - end -} - -#-----------------------------------------------------------------------------* -# getter to get a data in a struct context -#-----------------------------------------------------------------------------* -override getter @gtlVarItemField existsInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @bool result -{ - if [context hasStructField !field] then - if [path length] == 0 then - result = true - else - [context structField !field ?let @gtlData subContext ?*] - result = [[path itemAtIndex !0] existsInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - end - else - result = false - end -} - -#-----------------------------------------------------------------------------* -# method to delete a data in a struct context -#-----------------------------------------------------------------------------* -override method @gtlVarItemField deleteInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path -{ - if [context hasStructField !field] then - if [path length] == 0 then - [!?context deleteStructField !field] - else - [context structField !field ?@gtlData data ?*] - [[path itemAtIndex !0] deleteInContext - !exeContext - !?data - !vars - !lib - ![path subListFromIndex !1] - ] - [!?context setStructField !field !data] - end - end -} - -#=============================================================================* -# Collection field, ie B or D in the example above -#-----------------------------------------------------------------------------* -class @gtlVarItemCollection : @gtlVarItemField { @gtlExpression key } - -override getter @gtlVarItemCollection stringPath - ?let @gtlContext exeContext - ?let @gtlData vars - ?let @library lib - -> @string result -{ - result = [field string] + "[" - let @gtlData keyValue = [key eval !exeContext !vars !lib] - cast keyValue - case == @gtlString keyString: - result += "\"" + keyString + "\"" - case == @gtlInt keyInt: - result += keyInt - end - result += "]" -} - -#-----------------------------------------------------------------------------* -# method to set a data in a list or map context -#-----------------------------------------------------------------------------* -override method @gtlVarItemCollection setInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ?let @gtlData newData -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - context = wantGtlStruct(!context) - [context structField !field ?@gtlData data ?*] - data = wantGtlMap(!data) - if [path length] == 0 then - [!?data setMapItem !keyString !newData] - else - [data mapItem !keyString ?@gtlData subContext] - [[path itemAtIndex !0] setInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - !newData - ] - [!?data setMapItem !keyString !subContext] - end - [!?context setStructField !field !data] - case == @gtlInt keyInt: - context = wantGtlStruct(!context) - [context structField !field ?@gtlData data ?*] - data = wantGtlList(!data) - if [path length] == 0 then - [!?data setItemAtIndex !newData !keyInt] - else - [data itemAtIndex ?@gtlData subContext !keyInt] - [[path itemAtIndex !0] setInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - !newData - ] - [!?data setItemAtIndex !subContext !keyInt] - end - [!?context setStructField !field !data] - else - error key : "string ot int expected" - end -} - -#-----------------------------------------------------------------------------* -# getter to get a data in a list or map context -#-----------------------------------------------------------------------------* -override getter @gtlVarItemCollection getInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @gtlData result -{ - [context structField !field ?let @gtlData collection ?*] - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [path length] == 0 then - [collection mapItem !keyString ?result] - else - [collection mapItem !keyString ?let @gtlData subContext] - result = [[path itemAtIndex !0] getInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - end - case == @gtlInt keyInt: - if [path length] == 0 then - [collection itemAtIndex ?result !keyInt] - else - [collection itemAtIndex ?let @gtlData subContext !keyInt] - result = [[path itemAtIndex !0] getInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - end - else - error key : "string ot int expected" : result - end -} - - -#-----------------------------------------------------------------------------* -# getter to test the existence of a data in a list or map context -#-----------------------------------------------------------------------------* -override getter @gtlVarItemCollection existsInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ->@bool result -{ - if [context hasStructField !field] then - [context structField !field ?let @gtlData collection ?*] - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [path length] == 0 then - result = [collection hasMapItem !keyString] - else - if [collection hasMapItem !keyString] then - [collection mapItem !keyString ?let @gtlData subContext] - result = [[path itemAtIndex !0] existsInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - else - result = false - end - end - case == @gtlInt keyInt: - if [path length] == 0 then - result = [collection hasItemAtIndex !keyInt] - else - if [collection hasItemAtIndex !keyInt] then - [collection itemAtIndex ?let @gtlData subContext !keyInt] - result = [[path itemAtIndex !0] existsInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - else - result = false - end - end - else - error key : "string ot int expected" : result - end - else - result = false - end -} - -#-----------------------------------------------------------------------------* -# method to set a data in a list or map context -#-----------------------------------------------------------------------------* -override method @gtlVarItemCollection deleteInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [context hasStructField !field] then - [context structField !field ?@gtlData data ?*] - if [path length] == 0 then - if [data hasMapItem !keyString] then - [!?data deleteMapItem !keyString] - end - else - [data mapItem !keyString ?@gtlData subContext] - [[path itemAtIndex !0] deleteInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - ] - [!?data setMapItem !keyString !subContext] - end - [!?context setStructField !field !data] - end - case == @gtlInt keyInt: - if [context hasStructField !field] then - [context structField !field ?@gtlData data ?*] - if [path length] == 0 then - if [data hasItemAtIndex !keyInt] then - [!?data deleteItemAtIndex !keyInt] - end - else - [data itemAtIndex ?@gtlData subContext !keyInt] - [[path itemAtIndex !0] deleteInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - ] - [!?data setItemAtIndex !subContext !keyInt] - end - [!?context setStructField !field !data] - end - else - error key : "string ot int expected" - end -} - - -#=============================================================================* -# Subcollection, -# in a["key"][3] a["key"] is a @gtlVarItemCollection and [3] is -# a @gtlVarItemSubCollection -#-----------------------------------------------------------------------------* -class @gtlVarItemSubCollection : @gtlVarItem { - @location subCollectionlocation - @gtlExpression key -} - -override getter @gtlVarItemSubCollection location - -> @location loc -{ - loc = subCollectionlocation -} - -override getter @gtlVarItemSubCollection stringPath - ?let @gtlContext exeContext - ?let @gtlData vars - ?let @library lib - -> @string result -{ - result = "[" - let @gtlData keyValue = [key eval !exeContext !vars !lib] - cast keyValue - case == @gtlString keyString: - result += "\"" + keyString + "\"" - case == @gtlInt keyInt: - result += keyInt - end - result += "]" -} - -#-----------------------------------------------------------------------------* -# method to set a data in a list or map subcontext -#-----------------------------------------------------------------------------* -override method @gtlVarItemSubCollection setInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ?let @gtlData newData -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - context = wantGtlMap(!context) - if [path length] == 0 then - [!?context setMapItem !keyString !newData] - else - [context mapItem !keyString ?@gtlData subContext] - [[path itemAtIndex !0] setInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - !newData - ] - [!?context setMapItem !keyString !subContext] - end - case == @gtlInt keyInt: - context = wantGtlList(!context) - if [path length] == 0 then - [!?context setItemAtIndex !newData !keyInt] - else - [context itemAtIndex ?@gtlData subContext !keyInt] - [[path itemAtIndex !0] setInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - !newData - ] - [!?context setItemAtIndex !subContext !keyInt] - end - else - error key : "string ot int expected" - end -} - -#-----------------------------------------------------------------------------* -# getter to get a data in a list or map context -#-----------------------------------------------------------------------------* -override getter @gtlVarItemSubCollection getInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - -> @gtlData result -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [path length] == 0 then - [context mapItem !keyString ?result] - else - [context mapItem !keyString ?let @gtlData subContext] - result = [[path itemAtIndex !0] getInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - end - case == @gtlInt keyInt: - if [path length] == 0 then - [context itemAtIndex ?result !keyInt] - else - [context itemAtIndex ?let @gtlData subContext !keyInt] - result = [[path itemAtIndex !0] getInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - end - else - error key : "string ot int expected" : result - end -} - -#-----------------------------------------------------------------------------* -# getter to test the existence of a data in a list or map subcontext -#-----------------------------------------------------------------------------* -override getter @gtlVarItemSubCollection existsInContext - ?let @gtlContext exeContext - ?let @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path - ->@bool result -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [path length] == 0 then - result = [context hasMapItem !keyString] - else - if [context hasMapItem !keyString] then - [context mapItem !keyString ?let @gtlData subContext] - result = [[path itemAtIndex !0] existsInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - else - result = false - end - end - case == @gtlInt keyInt: - if [path length] == 0 then - result = [context hasItemAtIndex !keyInt] - else - if [context hasItemAtIndex !keyInt] then - [context itemAtIndex ?let @gtlData subContext !keyInt] - result = [[path itemAtIndex !0] existsInContext - !exeContext - !subContext - !vars - !lib - ![path subListFromIndex !1] - ] - else - result = false - end - end - else - error key : "string ot int expected" : result - end -} - -#-----------------------------------------------------------------------------* -# method to set a data in a list or map subcontext -#-----------------------------------------------------------------------------* -override method @gtlVarItemSubCollection deleteInContext - ?let @gtlContext exeContext - ?! @gtlData context - ?let @gtlData vars - ?let @library lib - ?let @gtlVarPath path -{ - cast [key eval !exeContext !vars !lib] - case == @gtlString keyString: - if [context hasMapItem !keyString] then - if [path length] == 0 then - [!?context deleteMapItem !keyString] - else - [context mapItem !keyString ?@gtlData subContext] - [[path itemAtIndex !0] deleteInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - ] - [!?context setMapItem !keyString !subContext] - end - end - case == @gtlInt keyInt: - if [context hasItemAtIndex !keyInt] then - if [path length] == 0 then - [!?context deleteItemAtIndex !keyInt] - else - [context itemAtIndex ?@gtlData subContext !keyInt] - [[path itemAtIndex !0] deleteInContext - !exeContext - !?subContext - !vars - !lib - ![path subListFromIndex !1] - ] - [!?context setItemAtIndex !subContext !keyInt] - end - end - else - error key : "string ot int expected" - end -} - -#=============================================================================* -# A variable path is a list of variable items -#-----------------------------------------------------------------------------* -list @gtlVarPath { - @gtlVarItem item -} - -#-----------------------------------------------------------------------------* -# variable path as functionName -#-----------------------------------------------------------------------------* -getter @gtlVarPath pathAsFunctionName - -> @lstring result -{ - let @gtlVarItem firstItem = [self itemAtIndex !0] - cast firstItem - case >= @gtlVarItemField namedField : - result = [namedField field] - else - error firstItem : "INTERNAL ERROR. A @gtlVarPath should not begin with a subcollection" : result - end -} - -#-----------------------------------------------------------------------------* -# variable path as string -#-----------------------------------------------------------------------------* -getter @gtlVarPath stringPath - ?let @gtlContext exeContext - ?let @gtlData vars - ?let @library lib - -> @string result -{ - result = "" - for (item) in self do - result += [item stringPath !exeContext !vars !lib] - between - result += "::" - end -} - -#-----------------------------------------------------------------------------* -# Set a data in a path -#-----------------------------------------------------------------------------* -method @gtlVarPath set - ?let @gtlContext exeContext - ?!@gtlData vars - ?let @library lib - ?let @gtlData data -{ - if [self length] > 0 then - let @gtlVarItem item = [self itemAtIndex !0] - cast item - case >= @gtlVarItemField itemField: - [itemField setInContext - !exeContext - !?vars - !vars - !lib - ![self subListFromIndex !1] - !data - ] - else - error item : "INTERNAL ERROR. A @gtlVarPath may not begin with a subcollection" - end - else - error .here : "INTERNAL ERROR. A @gtlVarPath should not be an empty list" - end -} - -#-----------------------------------------------------------------------------* -# Get a data in a path -#-----------------------------------------------------------------------------* -getter @gtlVarPath get - ?let @gtlContext exeContext - ?let @gtlData context - ?let @library lib - -> @gtlData variableValue -{ - if [self length] > 0 then - let @gtlVarItem item = [self itemAtIndex !0] - variableValue = [item getInContext !exeContext !context !context !lib ![self subListFromIndex !1]] - else - error .here : "INTERNAL ERROR. A @gtlVarPath should not be an empty list" - : variableValue - end -} - -#-----------------------------------------------------------------------------* -# test the existence of a path -#-----------------------------------------------------------------------------* -getter @gtlVarPath exists - ?let @gtlContext exeContext - ?let @gtlData context - ?let @library lib - -> @bool result -{ - if [self length] > 0 then - let @gtlVarItem item = [self itemAtIndex !0] - result = [item existsInContext !exeContext !context !context !lib ![self subListFromIndex !1]] - else - error .here : "INTERNAL ERROR. A @gtlVarPath should not be an empty list" - : result - end -} - -#-----------------------------------------------------------------------------* -# Set a data in a path -#-----------------------------------------------------------------------------* -method @gtlVarPath delete - ?let @gtlContext exeContext - ?!@gtlData vars - ?let @library lib -{ - if [self length] > 0 then - let @gtlVarItem item = [self itemAtIndex !0] - [item deleteInContext - !exeContext - !?vars - !vars - !lib - ![self subListFromIndex !1] - ] - else - error .here : "INTERNAL ERROR. A @gtlVarPath should not be an empty list" - end -} - -#-----------------------------------------------------------------------------* -# location of a path is the location of the last element -#-----------------------------------------------------------------------------* -getter @gtlVarPath location -> @location where -{ - [self last ?let @gtlVarItem lastOne] - where = [lastOne location] -} - -#=============================================================================* -# abstract classes for an expression -#-----------------------------------------------------------------------------* -abstract class @gtlExpression { @location where } - -getter @gtlExpression location -> @location result { result = where } - -abstract class @gtlUnaryExpression : @gtlExpression { - @gtlExpression son -} -abstract class @gtlBinaryExpression : @gtlExpression { - @gtlExpression lSon - @gtlExpression rSon -} - -abstract getter @gtlExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData - -#=============================================================================* -# Expression list -#-----------------------------------------------------------------------------* -list @gtlExpressionList { @gtlExpression expression } - -#=============================================================================* -# class for a literal terminal -#-----------------------------------------------------------------------------* -class @gtlTerminal : @gtlExpression { @gtlData value } - -override getter @gtlTerminal eval - ?let @gtlContext unused context - ?let @gtlData unused vars - ?let @library unused lib - -> @gtlData result -{ - result = value -} - -#=============================================================================* -# class for a variable reference -#-----------------------------------------------------------------------------* -class @gtlVarRef : @gtlExpression { @gtlVarPath variableName } - -override getter @gtlVarRef eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [variableName get !context !vars !lib] - [!?result setWhere !where] -} - -#=============================================================================* -# class for a reference to the special __VARS__ variable -#-----------------------------------------------------------------------------* -class @gtlAllVarsRef : @gtlExpression {} - -override getter @gtlAllVarsRef eval - ?let @gtlContext unused context - ?let @gtlData vars - ?let @library unused lib - -> @gtlData result -{ - result = vars -} - -#=============================================================================* -# classes for unary expressions -#-----------------------------------------------------------------------------* -# @gtlParenthesizedExpression : ( son ) -#-----------------------------------------------------------------------------* -class @gtlParenthesizedExpression : @gtlUnaryExpression {} - -override getter @gtlParenthesizedExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [son eval !context !vars !lib] - [!?result setWhere !where] -} - -#-----------------------------------------------------------------------------* -# @gtlMinusExpression : unary -. Does a - son -#-----------------------------------------------------------------------------* -class @gtlMinusExpression : @gtlUnaryExpression {} - -override getter @gtlMinusExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[son eval !context !vars !lib] minusOp] -} - -#-----------------------------------------------------------------------------* -# @gtlPlusExpression : unary +. Does a + son -#-----------------------------------------------------------------------------* -class @gtlPlusExpression : @gtlUnaryExpression {} - -override getter @gtlPlusExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[son eval !context !vars !lib] plusOp] -} - -#-----------------------------------------------------------------------------* -# @gtlTildeExpression : unary bitwise not or boolean not. Does a ~ son -#-----------------------------------------------------------------------------* -class @gtlNotExpression : @gtlUnaryExpression {} - -override getter @gtlNotExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[son eval !context !vars !lib] notOp] -} - -#=============================================================================* -# classes for binary expressions -#-----------------------------------------------------------------------------* -# @gtlAddExpression : binary add. Does a lSon + rSon -#-----------------------------------------------------------------------------* -class @gtlAddExpression : @gtlBinaryExpression {} - -override getter @gtlAddExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] addOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlSubstractExpression : binary substract. Does a lSon - rSon -#-----------------------------------------------------------------------------* -class @gtlSubstractExpression : @gtlBinaryExpression {} - -override getter @gtlSubstractExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] subOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlMultiplyExpression : binary multiply. Does a lSon * rSon -#-----------------------------------------------------------------------------* -class @gtlMultiplyExpression : @gtlBinaryExpression {} - -override getter @gtlMultiplyExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] mulOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlDivideExpression : binary divide. Does a lSon / rSon -#-----------------------------------------------------------------------------* -class @gtlDivideExpression : @gtlBinaryExpression {} - -override getter @gtlDivideExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] divOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlModulusExpression : binary modulus. Does a lSon mod (or %) rSon -#-----------------------------------------------------------------------------* -class @gtlModulusExpression : @gtlBinaryExpression {} - -override getter @gtlModulusExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] modOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlAndExpression : binary and. Does a lSon & rSon -#-----------------------------------------------------------------------------* -class @gtlAndExpression : @gtlBinaryExpression {} - -override getter @gtlAndExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] andOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlOrExpression : binary or. Does a lSon | rSon -#-----------------------------------------------------------------------------* -class @gtlOrExpression : @gtlBinaryExpression {} - -override getter @gtlOrExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] orOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlXorExpression : binary or. Does a lSon ^ rSon -#-----------------------------------------------------------------------------* -class @gtlXorExpression : @gtlBinaryExpression {} - -override getter @gtlXorExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] xorOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlShiftLeftExpression : Does a lSon << rSon -#-----------------------------------------------------------------------------* -class @gtlShiftLeftExpression : @gtlBinaryExpression {} - -override getter @gtlShiftLeftExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] slOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlShiftRightExpression : Does a lSon >> rSon -#-----------------------------------------------------------------------------* -class @gtlShiftRightExpression : @gtlBinaryExpression {} - -override getter @gtlShiftRightExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] srOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlNotEqualExpression : Does a lSon != rSon -#-----------------------------------------------------------------------------* -class @gtlNotEqualExpression : @gtlBinaryExpression {} - -override getter @gtlNotEqualExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] neqOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlEqualExpression : Does a lSon == rSon -#-----------------------------------------------------------------------------* -class @gtlEqualExpression : @gtlBinaryExpression {} - -override getter @gtlEqualExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] eqOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlLowerThanExpression : Does a lSon < rSon -#-----------------------------------------------------------------------------* -class @gtlLowerThanExpression : @gtlBinaryExpression {} - -override getter @gtlLowerThanExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] ltOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlLowerOrEqualExpression : Does a lSon < rSon -#-----------------------------------------------------------------------------* -class @gtlLowerOrEqualExpression : @gtlBinaryExpression {} - -override getter @gtlLowerOrEqualExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] leOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlGreaterThanExpression : Does a lSon < rSon -#-----------------------------------------------------------------------------* -class @gtlGreaterThanExpression : @gtlBinaryExpression {} - -override getter @gtlGreaterThanExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] gtOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlGreaterOrEqualExpression : Does a lSon < rSon -#-----------------------------------------------------------------------------* -class @gtlGreaterOrEqualExpression : @gtlBinaryExpression {} - -override getter @gtlGreaterOrEqualExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = [[lSon eval !context !vars !lib] geOp - ![rSon eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# @gtlGetterCallExpression : Does a getter call -#-----------------------------------------------------------------------------* -class @gtlGetterCallExpression : @gtlExpression { - @gtlExpression target - @lstring getterName - @gtlExpressionList arguments -} - -override getter @gtlGetterCallExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - @gtlDataList dataArguments = .emptyList - for () in arguments do - dataArguments += ![expression eval !context !vars !lib] - end - let @gtlData targetData = [target eval !context !vars !lib] - result = [targetData performGetter !getterName !dataArguments !context !lib] -} - - -proc checkArgumentError - ?let @lstring name - ?let @type formalType - ?let @gtlData actualArgument - ?let @uint argumentNum -{ - if formalType != [actualArgument embeddedType] then - error name : [formalType typeName] + " expected for argument " - + argumentNum + ", " + [[actualArgument dynamicType] typeName] - + " provided" - end -} - -func validateReturnValue - ?let @lstring functionName - ?let @object returnedValue - ->@gtlData result -{ - let @type returnedType = [returnedValue objectDynamicType] - let @location loc = [functionName location] - if returnedType == `@bigint then - result = @gtlInt.new { !loc !emptylstring() !returnedValue as @bigint } - elsif returnedType == `@double then - result = @gtlFloat.new { !loc !emptylstring() !returnedValue as @double } - elsif returnedType == `@string then - result = @gtlString.new { !loc !emptylstring() !returnedValue as @string } - elsif returnedType == `@bool then - result = @gtlBool.new { !loc !emptylstring() !returnedValue as @bool } - elsif returnedType == `@list then - result = @gtlList.new { !loc !emptylstring() !returnedValue as @list } - else - error functionName - : "this function does not return a compatible type" : result - end -} - -#-----------------------------------------------------------------------------* -# @gtlFunctionCallExpression : Does a function call -#-----------------------------------------------------------------------------* -class @gtlFunctionCallExpression : @gtlExpression { - @lstring functionName - @gtlExpressionList functionArguments -} - -override getter @gtlFunctionCallExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - let @uint currentErrorCount = @uint.errorCount - - if @function.isFunctionDefined { ![functionName string] } then - # built in function - @objectlist arguments = .emptyList - @gtlDataList dataArguments = .emptyList - - for () in functionArguments do - let @gtlData arg = [expression eval !context !vars !lib] - dataArguments += !arg - [arg addMyValue !?arguments] - end - - let @function function = .functionWithName { ![functionName string] } - - let @typelist formalParameterList = [function formalParameterTypeList] - if [formalParameterList length] != [arguments length] then - error functionName: "this function is invoked with " - + [arguments length] + " argument" - + if [arguments length] > 1 then "s" else "" end - + ", but requires " + [formalParameterList length] + " argument" - + if [formalParameterList length] > 1 then "s" else "" end - : result - else - for (formal) in formalParameterList, (actual) in dataArguments do (index) - checkArgumentError(!functionName !formal !actual !index) - end - if currentErrorCount == @uint.errorCount then - let @object returnedValue = - [function invoke !arguments ![functionName location]] - result = validateReturnValue(!functionName !returnedValue) - else - result = @gtlUnconstructed.new { - ![functionName location] - !emptylstring() - } - end - end - else - let @gtlFunction function = [lib getFunction !functionName] - @gtlDataList arguments = .emptyList - for () in functionArguments do - arguments += ![expression eval !context !vars !lib] - end - result = [function call ![functionName location] !context !lib !arguments] - end -} - -#-----------------------------------------------------------------------------* -# @gtlExistsExpression : returns true if the variable exists false otherwise -#-----------------------------------------------------------------------------* -class @gtlExistsExpression : @gtlExpression { - @gtlVarPath variable -} - -override getter @gtlExistsExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - result = @gtlBool.new { - !where !emptylstring() ![variable exists !context !vars !lib] - } -} - -#-----------------------------------------------------------------------------* -# @gtlExistsDefaultExpression : returns the variable if it exists -# or a default value if it does not exist -#-----------------------------------------------------------------------------* -class @gtlExistsDefaultExpression : @gtlExistsExpression { - @gtlExpression defaultValue -} - -override getter @gtlExistsDefaultExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - if [variable exists !context !vars !lib] then - result = [variable get !context !vars !lib] - else - result = [defaultValue eval !context !vars !lib] - end -} - -#-----------------------------------------------------------------------------* -# @gtlTypeOfExpression : the type of the variable -#-----------------------------------------------------------------------------* -class @gtlTypeOfExpression : @gtlExpression { - @gtlVarPath variable -} - -override getter @gtlTypeOfExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - let @gtlData variableValue = [variable get !context !vars !lib] - result = @gtlType.new { !where !emptylstring() ![variableValue dynamicType] } -} - -#-----------------------------------------------------------------------------* -# @gtlStructOfStructExpression : convert a struct to a map -#-----------------------------------------------------------------------------* -class @gtlMapOfStructExpression : @gtlExpression { - @gtlExpression expression -} - -override getter @gtlMapOfStructExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - let @gtlData expressionValue = [expression eval !context !vars !lib] - cast expressionValue - case == @gtlStruct expressionValueStruct: - result = @gtlMap.new { - !where - !emptylstring() - ![expressionValueStruct value] - } - else - error where : "struct expected" : result - end -} - -#-----------------------------------------------------------------------------* -# @gtlMapOfListExpression : convert a list of structs to a map -#-----------------------------------------------------------------------------* -class @gtlMapOfListExpression : @gtlMapOfStructExpression { - @lstring key -} - -override getter @gtlMapOfListExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - let @gtlData expressionValue = [expression eval !context !vars !lib] - cast expressionValue - case == @gtlList expressionValueList: - @gtlVarMap resultMap = .emptyMap - for (item) in [expressionValueList value] do (index) - cast item - case == @gtlStruct itemStruct: - if [[itemStruct value] hasKey ![key string]] then - [[itemStruct value] get !key ?let @gtlData keyValue] - [!?resultMap put - ![keyValue lstring] - !item - ] - else - error [expressionValue where] : "item at index " + index - + " does not have field named " + key - end - else - error [expressionValue where] : "list of struct expected" - end - end - result = @gtlMap.new { !where !emptylstring() !resultMap } - else - error [expressionValue where] : "list expected" : result - end -} - -#-----------------------------------------------------------------------------* -# @gtlListOfExpression : convert a map to a list -#-----------------------------------------------------------------------------* -class @gtlListOfExpression : @gtlExpression { - @gtlExpression expression -} - -override getter @gtlListOfExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - let @gtlData expressionValue = [expression eval !context !vars !lib] - cast expressionValue - case == @gtlMap expressionValueMap: - @list resultList = .emptyList - for (unused key item) in [expressionValueMap value] do - resultList += !item - end - result = @gtlList.new { !where !emptylstring() !resultList } - else - error where : "map expected" : result - end -} - -#-----------------------------------------------------------------------------* -# @gtlLiteralStructExpression -#-----------------------------------------------------------------------------* -class @gtlLiteralStructExpression : @gtlExpression { - @gtlExpressionMap value -} - -override getter @gtlLiteralStructExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - @gtlVarMap resultStruct = .emptyMap - for (key item) in value do - [!?resultStruct put !key ![item eval !context !vars !lib]] - end - result = @gtlStruct.new { !where !emptylstring() !resultStruct } -} - -#-----------------------------------------------------------------------------* -# @gtlLiteralMapExpression -#-----------------------------------------------------------------------------* -class @gtlLiteralMapExpression : @gtlExpression { - @gtlExpressionMap value -} - -override getter @gtlLiteralMapExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - @gtlVarMap resultStruct = .emptyMap - for (key item) in value do - [!?resultStruct put !key ![item eval !context !vars !lib]] - end - result = @gtlMap.new { !where !emptylstring() !resultStruct } -} - -#-----------------------------------------------------------------------------* -# @gtlLiteralListExpression -#-----------------------------------------------------------------------------* -class @gtlLiteralListExpression : @gtlExpression { - @gtlExpressionList value -} - -override getter @gtlLiteralListExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - @list resultList = .emptyList - for (item) in value do - resultList += ![item eval !context !vars !lib] - end - result = @gtlList.new { !where !emptylstring() !resultList } -} - -#-----------------------------------------------------------------------------* -# @gtlLiteralSetExpression -#-----------------------------------------------------------------------------* -class @gtlLiteralSetExpression : @gtlExpression { - @gtlExpressionList value -} - -override getter @gtlLiteralSetExpression eval - ?let @gtlContext context - ?let @gtlData vars - ?let @library lib - -> @gtlData result -{ - @lstringset resultSet = .emptyMap - for (item) in value do - let @lstring itemValue = [[item eval !context !vars !lib] lstring] - if [resultSet hasKey !itemValue] then - [!?resultSet del !itemValue] - end - [!?resultSet put !itemValue] - end - result = @gtlSet.new { !where !emptylstring() !resultSet } -} - diff --git a/goil/galgas-sources/gtl_functions.galgas b/goil/galgas-sources/gtl_functions.galgas deleted file mode 100755 index 13951f1a4..000000000 --- a/goil/galgas-sources/gtl_functions.galgas +++ /dev/null @@ -1,272 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_functions.galgas -# -# @section desc File description -# -# built in functions of GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -#-----------------------------------------------------------------------------* -# For compatibility purpose with previous version : returns "true" or "false" -# string according to the bool argument. -#-----------------------------------------------------------------------------* -func trueFalse ?let @bool inBool ->@string result -{ - if inBool then - result = "true" - else - result = "false" - end -} - -#-----------------------------------------------------------------------------* -# For compatibility purpose with previous version : returns "True" or "False" -# string according to the bool argument. -#-----------------------------------------------------------------------------* -func TrueFalse ?let @bool inBool ->@string result -{ - if inBool then - result = "True" - else - result = "False" - end -} - -#-----------------------------------------------------------------------------* -# For compatibility purpose with previous version : returns "YES" or "NO" -# string according to the bool argument. -#-----------------------------------------------------------------------------* -func yesNo ?let @bool inBool ->@string result -{ - if inBool then - result = "YES" - else - result = "NO" - end -} - -#-----------------------------------------------------------------------------* -# For compatibility purpose with previous version : returns "TRUE" or "FALSE" -# string according to the bool argument. -#-----------------------------------------------------------------------------* -func TRUEFALSE ?let @bool inBool ->@string result -{ - if inBool then - result = "TRUE" - else - result = "FALSE" - end -} - -#-----------------------------------------------------------------------------* -# returns a list with inSize elements. Each element is unconstructed -#-----------------------------------------------------------------------------* -func listOfSize ?@bigint inSize -> @list result -{ - result = .emptyList - loop ([inSize uint]) - while inSize > 0 do - result += !@gtlUnconstructed.new { !.here !emptylstring() } - inSize-- - end -} - -#-----------------------------------------------------------------------------* -# Returns the version string. -#-----------------------------------------------------------------------------* -func version -> @string result -{ - result = @application.projectVersionString -} - -#-----------------------------------------------------------------------------* -# Returns the major version as int. -#-----------------------------------------------------------------------------* -func majorVersion -> @bigint result -{ - let @string version = @application.projectVersionString - let @stringlist versionComponents = [version componentsSeparatedByString !"."] - if [versionComponents length] > 0 then - result = - [[[versionComponents mValueAtIndex !0] decimalUnsignedNumber] bigint] - else - result = 0 - end -} - -#-----------------------------------------------------------------------------* -# Returns the minor version as int. -#-----------------------------------------------------------------------------* -func minorVersion -> @bigint result -{ - let @string version = @application.projectVersionString - let @stringlist versionComponents = [version componentsSeparatedByString !"."] - if [versionComponents length] > 1 then - result = - [[[versionComponents mValueAtIndex !1] decimalUnsignedNumber] bigint] - else - result = 0 - end -} - -#-----------------------------------------------------------------------------* -# Returns the revision as int. -#-----------------------------------------------------------------------------* -func revision -> @bigint result -{ - let @string version = @application.projectVersionString - let @stringlist versionComponents = [version componentsSeparatedByString !"."] - if [versionComponents length] > 2 then - result = - [[[versionComponents mValueAtIndex !2] decimalUnsignedNumber] bigint] - else - result = 0 - end -} - -#-----------------------------------------------------------------------------* -# Returns the current directory. -#-----------------------------------------------------------------------------* -func currentDir -> @string result -{ - result = @string.stringWithCurrentDirectory -} - -#-----------------------------------------------------------------------------* -# Returns the home directory. -#-----------------------------------------------------------------------------* -func homeDir -> @string result -{ - result = @string.homeDirectory -} - -#-----------------------------------------------------------------------------* -# Returns the current date and time as GMT -#-----------------------------------------------------------------------------* -func currentDateTime -> @string result -{ - result = @string.stringWithCurrentDateTime -} - -#-----------------------------------------------------------------------------* -# Returns the max 8 bits unsigned integer -#-----------------------------------------------------------------------------* -func max8bitsUnsignedInt -> @bigint result -{ - result = 255 -} - -#-----------------------------------------------------------------------------* -# Returns the max 8 bits signed integer -#-----------------------------------------------------------------------------* -func max8bitsSignedInt -> @bigint result -{ - result = 127 -} - -#-----------------------------------------------------------------------------* -# Returns the min 8 bits signed integer -#-----------------------------------------------------------------------------* -func min8bitsSignedInt -> @bigint result -{ - result = -128 -} - -#-----------------------------------------------------------------------------* -# Returns the max 16 bits unsigned integer -#-----------------------------------------------------------------------------* -func max16bitsUnsignedInt -> @bigint result -{ - result = 65535 -} - -#-----------------------------------------------------------------------------* -# Returns the max 16 bits signed integer -#-----------------------------------------------------------------------------* -func max16bitsSignedInt -> @bigint result -{ - result = 32767 -} - -#-----------------------------------------------------------------------------* -# Returns the min 16 bits signed integer -#-----------------------------------------------------------------------------* -func min16bitsSignedInt -> @bigint result -{ - result = -32768 -} - -#-----------------------------------------------------------------------------* -# Returns the max 32 bits unsigned integer -#-----------------------------------------------------------------------------* -func max32bitsUnsignedInt -> @bigint result -{ - result = [@uint.max bigint] -} - -#-----------------------------------------------------------------------------* -# Returns the max 32 bits signed integer -#-----------------------------------------------------------------------------* -func max32bitsSignedInt -> @bigint result -{ - result = [@sint.max bigint] -} - -#-----------------------------------------------------------------------------* -# Returns the min 32 bits signed integer -#-----------------------------------------------------------------------------* -func min32bitsSignedInt -> @bigint result -{ - result = [@sint.min bigint] -} - -#-----------------------------------------------------------------------------* -# Returns the max 32 bits unsigned integer -#-----------------------------------------------------------------------------* -func max64bitsUnsignedInt -> @bigint result -{ - result = [@uint64.max bigint] -} - -#-----------------------------------------------------------------------------* -# Returns the max 32 bits signed integer -#-----------------------------------------------------------------------------* -func max64bitsSignedInt -> @bigint result -{ - result = [@sint64.max bigint] -} - -#-----------------------------------------------------------------------------* -# Returns the min 32 bits signed integer -#-----------------------------------------------------------------------------* -func min64bitsSignedInt -> @bigint result -{ - result = [@sint64.min bigint] -} - -#-----------------------------------------------------------------------------* -# Returns an approximation of pi -#-----------------------------------------------------------------------------* -func pi -> @double result -{ - result = @double.pi -} - diff --git a/goil/galgas-sources/gtl_grammar.galgas b/goil/galgas-sources/gtl_grammar.galgas deleted file mode 100755 index 036682f3b..000000000 --- a/goil/galgas-sources/gtl_grammar.galgas +++ /dev/null @@ -1,40 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_grammar.galgas -# -# @section desc File description -# -# Grammar for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - - -grammar gtl_grammar "LL1" { - syntax gtl_parser - syntax gtl_expression_parser - syntax gtl_instruction_parser - - - ? @gtlContext context - ?!@library lib - ! @gtlInstructionList program - -} - -#---------------------------------------------------------------------------* diff --git a/goil/galgas-sources/gtl_instruction_parser.galgas b/goil/galgas-sources/gtl_instruction_parser.galgas deleted file mode 100755 index 58c5ed8f3..000000000 --- a/goil/galgas-sources/gtl_instruction_parser.galgas +++ /dev/null @@ -1,405 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_instruction_parser.galgas -# -# @section desc File description -# -# Parsing of GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -syntax gtl_instruction_parser (gtl_scanner) { - -rule - !@gtlExpression expression - -rule - !@gtlVarPath path - -rule - !@gtlVarPath variable - !@bool hereInstead - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $let$ ; let @location where = .here - ?let @gtlVarPath variable - select - $:=$ - ?let @gtlExpression expression - instruction = @gtlLetInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $+=$ - ?let @gtlExpression expression - instruction = @gtlLetAddInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $-=$ - ?let @gtlExpression expression - instruction = @gtlLetSubstractInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $*=$ - ?let @gtlExpression expression - instruction = @gtlLetMultiplyInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $/=$ - ?let @gtlExpression expression - instruction = @gtlLetDivideInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $mod=$ - ?let @gtlExpression expression - instruction = @gtlLetModuloInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $<<=$ - ?let @gtlExpression expression - instruction = @gtlLetShiftLeftInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $>>=$ - ?let @gtlExpression expression - instruction = @gtlLetShiftRightInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $&=$ - ?let @gtlExpression expression - instruction = @gtlLetAndInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $|=$ - ?let @gtlExpression expression - instruction = @gtlLetOrInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - $^=$ - ?let @gtlExpression expression - instruction = @gtlLetXorInstruction.new { - !where - !signature(!where) - !variable - !expression - } - or - instruction = @gtlLetUnconstructedInstruction.new { - !where - !signature(!where) - !variable - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $unlet$ ; let @location where = .here - ?let @gtlVarPath variable - instruction = @gtlUnletInstruction.new { - !where - !signature(!where) - !variable - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $error$ ; let @location where = .here - ?let @gtlVarPath variable ?let @bool hereInstead - $:$ - ?let @gtlExpression expression - - instruction = @gtlErrorStatementInstruction.new { - !where - !signature(!where) - !variable - !hereInstead - !expression - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $warning$ ; let @location where = .here - ?let @gtlVarPath variable ?let @bool hereInstead - $:$ - ?let @gtlExpression expression - - instruction = @gtlWarningStatementInstruction.new { - !where - !signature(!where) - !variable - !hereInstead - !expression - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $print$ ; let @location where = .here - ?let @gtlExpression expression - - instruction = @gtlPrintStatementInstruction.new { - !where - !signature(!where) - !false - !expression - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $println$ ; let @location where = .here - select - ?let @gtlExpression expression - instruction = @gtlPrintStatementInstruction.new { - !where - !signature(!where) - !true - !expression - } - or - instruction = @gtlPrintStatementInstruction.new { - !where - !signature(!where) - !true - !@gtlTerminal.new { !where !@gtlString.new { !where !emptylstring() !"" } } - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $display$ ; let @location where = .here - - ?let @gtlVarPath variable - - instruction = @gtlDisplayStatementInstruction.new { - !where - !signature(!where) - !variable - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $sort$ ; let @location where = .here - ?let @gtlVarPath variable - select - @sortingKeyList sortList = .emptyList - $by$ - repeat - $identifier$ ?let @lstring key - ?let @lsint order - sortList += !key !order - while $,$ end - - instruction = @gtlSortStatementStructInstruction.new { - !where - !signature(!where) - !variable - !sortList - } - or - ?let @lsint order - - instruction = @gtlSortStatementInstruction.new { - !where - !signature(!where) - !variable - !order - } - end -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $tab$ ; let @location where = .here - ?let @gtlExpression expression - - instruction = @gtlTabStatementInstruction.new { - !where - !signature(!where) - !expression - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $variables$ ; let @location where = .here - instruction = @gtlVariablesInstruction.new { - !where - !signature(!where) - !false - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $libraries$ ; let @location where = .here - instruction = @gtlLibrariesInstruction.new { - !where - !signature(!where) - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - $[!$ - ?let @gtlVarPath target - $identifier$ ?let @lstring setterName - let @location where = .here - @gtlExpressionList argumentList = .emptyList - select - or - $:$ - repeat - ?let @gtlExpression argument - argumentList += !argument - while - $,$ - end - end - $]$ - instruction = @gtlSetterCallInstruction.new { - !where - !signature(!where) - !target - !setterName - !argumentList - } -} - -#-----------------------------------------------------------------------------* -rule - !@lsint order -{ - select - $>$ - order = @lsint. new { !-1 !@location.here} - or - $<$ - order = @lsint. new { !1 !@location.here} - end -} - -#-----------------------------------------------------------------------------* -rule - ?@gtlContext context - ?!@library lib -{ - $import$ ; $string$ ?let @lstring fileName - @string fullName = [fileName string] - if [fullName pathExtension] != "gtm" then - fullName = [fileName string] + ".gtm" - end - - @bool found = false - if not [fullName fileExists] then - # search in path - for (searchPath) in [context importPath] do - if not found then - let @string name = [searchPath stringByAppendingPath !fullName] - if [name fileExists] then - fullName = name - found = true - end - end - end - else - found = true - end - - if found then - if not [lib hasImport !fullName] then - [!?lib doImport !fullName] - grammar gtl_module_grammar in - @lstring.new{ !fullName ![fileName location] } !context !?lib - end - else - error .here : "module not found" - end -} - -} diff --git a/goil/galgas-sources/gtl_instructions.galgas b/goil/galgas-sources/gtl_instructions.galgas deleted file mode 100755 index b415a89f4..000000000 --- a/goil/galgas-sources/gtl_instructions.galgas +++ /dev/null @@ -1,1340 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_instructions.galgas -# -# @section desc File description -# -# Instructions of GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -#=============================================================================* -# abstract class for a template instruction -#-----------------------------------------------------------------------------* -abstract class @gtlInstruction { - @location where - @string signature -} - -getter @gtlInstruction location - -> @location result -{ - result = where -} - -abstract method @gtlInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString - -#=============================================================================* -# instruction list -#-----------------------------------------------------------------------------* -list @gtlInstructionList { - @gtlInstruction instruction -} - -method @gtlInstructionList execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - if [context debugActive] then - [!?context pushInstructionList !self] - @uint lastErrorCount = .errorCount - for () in self do (index) - let @bool errorCountIncreased = (@uint.errorCount - lastErrorCount) > 0 - if [context breakOnNext] | [context breakOn !instruction] - | [context watchOn !context !vars !lib] | errorCountIncreased then - [!?context setBreakOnNext !true] - [!?context setNextInstructionIndex !index] - [!?context setDebugger !false] - [!?context executeStepDoList !?context !?vars !?lib !?outputString] - [!?context setDebugger !true] - [!?context setLoopOnCommand !true] - loop (@uint.max) - message [context promptStyle] + "gtl> " + endc() - [!?context getCommand ?let @string input] - let @gtlInstruction command - let @uint currentErrorCount = @uint.errorCount - if [input stringByTrimmingWhiteSpaces] == "" then - command = @gtlStepInstruction.new { !.here !"" } - else - grammar gtl_debugger_grammar on (input,"Debugger command") - ?command - end - if @uint.errorCount == currentErrorCount then - if [command mayExecuteWithoutError !context !vars !lib] then - message [context outputStyle] - [!?context setDebugger !false] - [command execute !?context !?vars !?lib !?outputString] - [!?context setDebugger !true] - message endc() - end - end - while [context loopOnCommand] do - end - end - lastErrorCount = .errorCount - [instruction execute !?context !?vars !?lib !?outputString] - end - [!?context popInstructionList] - else - for () in self do - if @uint.errorCount == 0 then - [instruction execute !?context !?vars !?lib !?outputString] - if @uint.errorCount != 0 & [context propagateError] then - error instruction : "runtime error" - end - end - end - end -} - -#-----------------------------------------------------------------------------* -# let unconstructed instruction -#-----------------------------------------------------------------------------* -class @gtlLetUnconstructedInstruction : @gtlInstruction { - @gtlVarPath lValue -} - -override method @gtlLetUnconstructedInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set !context !?vars !lib !@gtlUnconstructed.new { - ![[lValue itemAtIndex !0] location] !emptylstring() - } - ] -} - -#-----------------------------------------------------------------------------* -# let instructions base class -#-----------------------------------------------------------------------------* -abstract class @gtlAssignInstruction : @gtlLetUnconstructedInstruction { - @gtlExpression rValue -} - -#-----------------------------------------------------------------------------* -# = assignment -#-----------------------------------------------------------------------------* -class @gtlLetInstruction : @gtlAssignInstruction {} - -override method @gtlLetInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set !context !?vars !lib ![rValue eval !context !vars !lib]] -} - -#-----------------------------------------------------------------------------* -# += assignment -#-----------------------------------------------------------------------------* -class @gtlLetAddInstruction : @gtlAssignInstruction {} - -override method @gtlLetAddInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] addOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# -= assignment -#-----------------------------------------------------------------------------* -class @gtlLetSubstractInstruction : @gtlAssignInstruction {} - -override method @gtlLetSubstractInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] subOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# *= assignment -#-----------------------------------------------------------------------------* -class @gtlLetMultiplyInstruction : @gtlAssignInstruction {} - -override method @gtlLetMultiplyInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] mulOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# /= assignment -#-----------------------------------------------------------------------------* -class @gtlLetDivideInstruction : @gtlAssignInstruction {} - -override method @gtlLetDivideInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] divOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# %= assignment -#-----------------------------------------------------------------------------* -class @gtlLetModuloInstruction : @gtlAssignInstruction {} - -override method @gtlLetModuloInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] divOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# <<= assignment -#-----------------------------------------------------------------------------* -class @gtlLetShiftLeftInstruction : @gtlAssignInstruction {} - -override method @gtlLetShiftLeftInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] slOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# >>= assignment -#-----------------------------------------------------------------------------* -class @gtlLetShiftRightInstruction : @gtlAssignInstruction {} - -override method @gtlLetShiftRightInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] srOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# &= assignment -#-----------------------------------------------------------------------------* -class @gtlLetAndInstruction : @gtlAssignInstruction {} - -override method @gtlLetAndInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] andOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# |= assignment -#-----------------------------------------------------------------------------* -class @gtlLetOrInstruction : @gtlAssignInstruction {} - -override method @gtlLetOrInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] orOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# ^= assignment -#-----------------------------------------------------------------------------* -class @gtlLetXorInstruction : @gtlAssignInstruction {} - -override method @gtlLetXorInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue set - !context - !?vars - !lib - ![[lValue get !context !vars !lib] xorOp - ![rValue eval !context !vars !lib]] - ] -} - -#-----------------------------------------------------------------------------* -# unlet instruction -#-----------------------------------------------------------------------------* -class @gtlUnletInstruction : @gtlLetUnconstructedInstruction {} - -override method @gtlUnletInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - [lValue delete - !context - !?vars - !lib - ] -} - -#-----------------------------------------------------------------------------* -# %...% : template string instruction -#-----------------------------------------------------------------------------* -class @gtlTemplateStringInstruction : @gtlInstruction { - @string value -} - -override method @gtlTemplateStringInstruction execute - ?!@gtlContext unused context - ?!@gtlData unused vars - ?!@library unused lib - ?!@string outputString -{ - outputString += value -} - -#-----------------------------------------------------------------------------* -# ! : emit instruction -#-----------------------------------------------------------------------------* -class @gtlEmitInstruction : @gtlInstruction { - @gtlExpression rValue -} - -override method @gtlEmitInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - outputString += [[rValue eval !context !vars !lib] string] -} - -#-----------------------------------------------------------------------------* -# write to : write the result of instruction execution to a file -#-----------------------------------------------------------------------------* -class @gtlWriteToInstruction : @gtlInstruction { - @gtlExpression fileNameExpression - @bool isExecutable - @gtlInstructionList instructions -} - - -override method @gtlWriteToInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @uint currentErrorCount = @uint.errorCount - let @string fullFileName = [[fileNameExpression eval !context !vars !lib] string] - let @gtlString fileName = .new{ - !where - !emptylstring() - ![fullFileName lastPathComponent] - } - let @gtlString filePath = .new{ - !where - !emptylstring() - ![fullFileName nativePathWithUnixPath] - } - @string result = "" - @gtlData varsCopy = vars - # remove the current FILENAME and FILEPATH variable - # and replace them with - [!?varsCopy setStructFieldAtLevel - !@lstring.new{!"FILENAME" !where} - !fileName - !0 - ] - [!?varsCopy setStructFieldAtLevel - !@lstring.new{!"FILEPATH" !where} - !filePath - !0 - ] - - if (currentErrorCount == @uint.errorCount) then - [instructions execute !?context !?varsCopy !?lib !?result] - if (currentErrorCount == @uint.errorCount) then - if isExecutable then - let @string directory = [fullFileName stringByDeletingLastPathComponent] - if directory != "" then [directory makeDirectory] end - [result writeToExecutableFile !fullFileName] - else - [result makeDirectoryAndWriteToFile !fullFileName] - end - end - end -} - -#-----------------------------------------------------------------------------* -# template instructions : invoke a template -#-----------------------------------------------------------------------------* -class @gtlTemplateInstruction : @gtlInstruction { - @lstring prefix - @gtlExpression fileName - @bool ifExists - @bool isGlobal - @gtlExpressionList arguments - @gtlInstructionList instructionsIfNotFound -} - -override method @gtlTemplateInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @gtlContext newContext = context - - if "" != prefix then - [!?newContext setPrefix !prefix] - end - - let @lstring templateFileName = [newContext fullTemplateFileName - !context - !vars - ![[fileName eval !context !vars !lib] as @gtlString lstring] - ] - - @gtlData localVars - [!?newContext setInputVars !.emptyList] - if not isGlobal then - # build the variable map for the template - localVars = @gtlStruct.new { !where !emptylstring() !.emptyMap } - for (argumentExpression) in arguments do - let @gtlData evaluedArg = [argumentExpression eval !context !vars !lib] - [!?newContext addInputVariable !evaluedArg] - end - else - localVars = vars - end - - [!?lib getTemplate - !newContext - !templateFileName - !ifExists - !?lib - ?let @bool found - ?let @gtlTemplate result - ] - - if found then - [result execute !?newContext !?localVars !?lib !?outputString] - else - if ifExists then - @gtlData localMap = [vars overrideMap] - [instructionsIfNotFound execute !?context !?localMap !?lib !?outputString] - vars = [localMap overriddenMap] - end - end - - [!?context setDebuggerContext ![newContext debuggerContext]] -} - -#-----------------------------------------------------------------------------* -# template instructions : set the destination variable with a number of spaces -# equals to the current column number in the output string -#-----------------------------------------------------------------------------* -class @gtlGetColumnInstruction : @gtlInstruction { - @gtlVarPath destVariable -} - -override method @gtlGetColumnInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @string value = "" - @bool searchEndOfLine = true - @uint index = [outputString length] - loop ([outputString length]) while (index > 0) & searchEndOfLine do - searchEndOfLine = [outputString characterAtIndex !index - 1] != '\n' - index-- - if searchEndOfLine then - value += " " - end - end - [destVariable set - !context - !?vars - !lib - !@gtlString.new{!where !emptylstring() !value} - ] -} - -#-----------------------------------------------------------------------------* -# template instructions : if statement -#-----------------------------------------------------------------------------* -list @gtlThenElsifStatementList -{ - @gtlExpression condition - @gtlInstructionList instructionList -} - -class @gtlIfStatementInstruction : @gtlInstruction { - @gtlThenElsifStatementList thenElsifList - @gtlInstructionList elseList -} - -override method @gtlIfStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @gtlData localMap = [vars overrideMap] - - @bool noConditionMatching = true - for () in thenElsifList while noConditionMatching do - let @gtlData dataCondition = [condition eval !context !localMap !lib] - if dataCondition is == @gtlBool then - let @bool boolCondition = [dataCondition as @gtlBool value] - if boolCondition then - [instructionList execute !?context !?localMap !?lib !?outputString] - noConditionMatching = false - end - else - error dataCondition : "bool expected" - end - end - if noConditionMatching then - [elseList execute !?context !?localMap !?lib !?outputString] - end - - vars = [localMap overriddenMap] -} - -#-----------------------------------------------------------------------------* -# template instructions : foreach statement -#-----------------------------------------------------------------------------* -class @gtlForeachStatementInstruction : @gtlInstruction { - @lstring keyName - @lstring variableName - @lstring indexName - @gtlExpression iterable - @gtlInstructionList beforeList - @gtlInstructionList betweenList - @gtlInstructionList afterList - @gtlInstructionList doList -} - -method @gtlForeachStatementInstruction iterateOnMap - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString - ? let @gtlMap iterableMap -{ - let @lstring actualKeyName = if "" == keyName then - .new { !"KEY" !keyName } - else - keyName - end - - for () in [iterableMap value] - before - [beforeList execute !?context !?vars !?lib !?outputString] - do (index) - [!?vars setStructField !variableName !value] - [!?vars setStructField - !actualKeyName !@gtlString.new { !keyName !emptylstring() ![lkey string] } - ] - [!?vars setStructField - !indexName !@gtlInt.new { !where !emptylstring() ![index bigint] } - ] - [doList execute !?context !?vars !?lib !?outputString] - between - [betweenList execute !?context !?vars !?lib !?outputString] - after - [afterList execute !?context !?vars !?lib !?outputString] - end -} - -method @gtlForeachStatementInstruction iterateOnList - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString - ? let @gtlList iterableList -{ - if "" != keyName then - warning keyName : "a key variable cannot be define when iterating on a list" - end - for () in [iterableList value] - before - [beforeList execute !?context !?vars !?lib !?outputString] - do (index) - [!?vars setStructField !variableName !value] - [!?vars setStructField - !indexName !@gtlInt.new { !where !emptylstring() ![index bigint] } - ] - [doList execute !?context !?vars !?lib !?outputString] - between - [betweenList execute !?context !?vars !?lib !?outputString] - after - [afterList execute !?context !?vars !?lib !?outputString] - end -} - -method @gtlForeachStatementInstruction iterateOnSet - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString - ? let @gtlSet iterableSet -{ - if "" != keyName then - warning keyName : "a key variable cannot be define when iterating on a set" - end - for () in [iterableSet value] - before - [beforeList execute !?context !?vars !?lib !?outputString] - do (index) - [!?vars setStructField - !variableName - !@gtlString.new { !lkey !emptylstring() !lkey} - ] - [!?vars setStructField - !indexName !@gtlInt.new { !where !emptylstring() ![index bigint] } - ] - [doList execute !?context !?vars !?lib !?outputString] - between - [betweenList execute !?context !?vars !?lib !?outputString] - after - [afterList execute !?context !?vars !?lib !?outputString] - end - -} - -override method @gtlForeachStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @gtlData localMap = [vars overrideMap] - let @gtlData iterableData = [iterable eval !context !localMap !lib] - cast iterableData - case == @gtlMap iterableMap: - [self iterateOnMap !?context !?localMap !?lib !?outputString !iterableMap] - case == @gtlList iterableList: - [self iterateOnList !?context !?localMap !?lib !?outputString !iterableList] - case == @gtlSet iterableSet: - [self iterateOnSet !?context !?localMap !?lib !?outputString !iterableSet] - else - error [iterable location] : "Map, list or set expected" - end - vars = [localMap overriddenMap] -} - -#-----------------------------------------------------------------------------* -# template instructions : for statement -#-----------------------------------------------------------------------------* -class @gtlForStatementInstruction : @gtlInstruction { - @lstring identifier - @gtlExpressionList iterable - @gtlInstructionList betweenList - @gtlInstructionList doList -} - -override method @gtlForStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - let @lstring indexName = .new{!"INDEX" !where} - @gtlData localMap = [vars overrideMap] - for () in iterable - do (index) - let @gtlData value = [expression eval !context !localMap !lib] - [!?localMap setStructField !identifier !value] - [!?localMap setStructField - !indexName - !@gtlInt.new { !where !emptylstring() ![index bigint] } - ] - [doList execute !?context !?localMap !?lib !?outputString] - between - [betweenList execute !?context !?localMap !?lib !?outputString] - end - vars = [localMap overriddenMap] -} - -#-----------------------------------------------------------------------------* -# template instructions : loop statement -#-----------------------------------------------------------------------------* -class @gtlLoopStatementInstruction : @gtlInstruction { - @lstring identifier - @gtlExpression start - @gtlExpression stop - @gtlExpression step - @sint64 upDown - @gtlInstructionList beforeList - @gtlInstructionList betweenList - @gtlInstructionList afterList - @gtlInstructionList doList -} - -override method @gtlLoopStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @gtlData localMap = [vars overrideMap] - let @gtlData startData = [start eval !context !localMap !lib] - let @gtlData stopData = [stop eval !context !localMap !lib] - let @gtlData stepData = [step eval !context !localMap !lib] - @bigint startVal - let @bigint stopVal - let @bigint stepVal - if startData is == @gtlInt then - startVal = [startData as @gtlInt value] - else - error [start location] : "int expected" : startVal - end - if stopData is == @gtlInt then - stopVal = [stopData as @gtlInt value] - else - error [stop location] : "int expected" : stopVal - end - if stepData is == @gtlInt then - stepVal = [stepData as @gtlInt value] * upDown - else - error [step location] : "int expected" : stepVal - end - @bigint direction = 1 - if stepVal < 0 then direction = -1 end - if (stopVal - startVal) * direction >= 0 then - [beforeList execute !?context !?localMap !?lib !?outputString] - let @uint count = [(stopVal - startVal) * direction + 1 uint] - loop (count) - [!?localMap setStructField - !identifier - !@gtlInt.new{![identifier location] !emptylstring() !startVal} - ] - [doList execute !?context !?localMap !?lib !?outputString] - startVal = startVal + stepVal - while (stopVal - startVal) * direction >= 0 do - [betweenList execute !?context !?localMap !?lib !?outputString] - end - [afterList execute !?context !?localMap !?lib !?outputString] - end - vars = [localMap overriddenMap] -} - -#-----------------------------------------------------------------------------* -# template instructions : repeat statement -#-----------------------------------------------------------------------------* -class @gtlRepeatStatementInstruction : @gtlInstruction { - @gtlExpression limit - @gtlExpression condition - @gtlInstructionList continueList - @gtlInstructionList doList -} - -override method @gtlRepeatStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - @gtlData localMap = [vars overrideMap] - @bool boolCondition = false - let @gtlData limitData = [limit eval !context !vars !lib] - let @uint limitVal - - if limitData is == @gtlInt then - limitVal = [[limitData as @gtlInt value] uint] - else - error limit : "int exprected" : limitVal - end - - loop (limitVal) - [continueList execute !?context !?localMap !?lib !?outputString] - let @gtlData conditionData = [condition eval !context !localMap !lib] - if [conditionData dynamicType] == `@gtlBool then - boolCondition = [conditionData as @gtlBool value] - else - error conditionData : "bool expected" - end - while boolCondition do - [doList execute !?context !?localMap !?lib !?outputString] - end - vars = [localMap overriddenMap] -} - -#-----------------------------------------------------------------------------* -# template instructions : error statement -#-----------------------------------------------------------------------------* -class @gtlErrorStatementInstruction : @gtlInstruction { - @gtlVarPath identifier - @bool hereInstead - @gtlExpression errorMessage -} - -override method @gtlErrorStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @location errorLocation - if hereInstead then - errorLocation = where - else - errorLocation = [[identifier get !context !vars !lib] where] - end - let @gtlData errorMessageData = [errorMessage eval !context !vars !lib] - if [errorMessageData dynamicType] == `@gtlString then - error errorLocation : [errorMessageData as @gtlString value] - [!?context setPropagateError !false] - else - error [errorMessage location] : "string expected" - end -} - -#-----------------------------------------------------------------------------* -# template instructions : warning statement -#-----------------------------------------------------------------------------* -class @gtlWarningStatementInstruction : @gtlInstruction { - @gtlVarPath identifier - @bool hereInstead - @gtlExpression warningMessage -} - -override method @gtlWarningStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @location warningLocation - if hereInstead then - warningLocation = where - else - warningLocation = [[identifier get !context !vars !lib] where] - end - let @gtlData warningMessageData = [warningMessage eval !context !vars !lib] - if [warningMessageData dynamicType] == `@gtlString then - warning warningLocation : [warningMessageData as @gtlString value] - else - error [warningMessage location] : "string expected" - end -} - -#-----------------------------------------------------------------------------* -# template instructions : print statement -#-----------------------------------------------------------------------------* -class @gtlPrintStatementInstruction : @gtlInstruction { - @bool carriageReturn - @gtlExpression messageToPrint -} - -override method @gtlPrintStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @string messageToPrintString = - [[messageToPrint eval !context !vars !lib] string] - message messageToPrintString - if carriageReturn then message "\n" end -} - -#-----------------------------------------------------------------------------* -# template instructions : display statement -#-----------------------------------------------------------------------------* -class @gtlDisplayStatementInstruction : @gtlInstruction { - @gtlVarPath variablePath -} - -override method @gtlDisplayStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @gtlData variable = [variablePath get !context !vars !lib] - message [variablePath stringPath !context !vars !lib] - + " from " + [where locationString] + "\n" - + [variable desc !4] -} - -#-----------------------------------------------------------------------------* -# template instructions : sort list of struct of list of scalars statement -#-----------------------------------------------------------------------------* -list @sortingKeyList { - @lstring key - @lsint order -} - -abstract class @gtlAbstractSortInstruction : @gtlInstruction { - @gtlVarPath variablePath -} - -abstract getter @gtlAbstractSortInstruction compare - ?let @gtlData s1 - ?let @gtlData s2 - ->@sint - -method @gtlAbstractSortInstruction swap - ?!@list aList - ?let @uint index1 - ?let @uint index2 -{ - let @gtlData temp = [aList valueAtIndex !index1] - [!?aList setValueAtIndex ![aList valueAtIndex !index2] !index1] - [!?aList setValueAtIndex !temp !index2] -} - -method @gtlAbstractSortInstruction partition - ?!@list aList - ?let @uint min - ?let @uint max - ?!@uint pivotIndex -{ - let @gtlData pivot = [aList valueAtIndex !pivotIndex] - [self swap !?aList !pivotIndex !max] - @uint storeIndex = min - @uint i = min - loop (max - min) - while i < max do - if [self compare ![aList valueAtIndex !i] !pivot] == -1 then - [self swap !?aList !i !storeIndex] - storeIndex++ - end - i++ - end - [self swap !?aList !storeIndex !max] - pivotIndex = storeIndex -} - -method @gtlAbstractSortInstruction sort - ?!@list aList - ?let @uint min - ?let @uint max -{ - if min < max then - @uint pivotIndex = (max + min) / 2 - [self partition !?aList !min !max !?pivotIndex] - [self sort !?aList !min !pivotIndex] - [self sort !?aList !pivotIndex+1 !max] - end -} - -override method @gtlAbstractSortInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - let @gtlData variable = [variablePath get !context !vars !lib] - cast variable - case == @gtlList variableList: - @list listToSort = [variableList value] - let @uint length = [listToSort length] - if length > 0 then - [self sort !?listToSort !0 !length-1] - end - [variablePath set - !context - !?vars - !lib - !@gtlList.new { !where !emptylstring() !listToSort } - ] - else - [variablePath last ?let @gtlVarItem lastComponent] - error lastComponent : "list expected" - end -} - -#-----------------------------------------------------------------------------* -class @gtlSortStatementStructInstruction : @gtlAbstractSortInstruction { - @sortingKeyList sortingKey -} - -override getter @gtlSortStatementStructInstruction compare - ?let @gtlData s1 - ?let @gtlData s2 - ->@sint result -{ - result = [self compareElements !s1 !s2 !sortingKey] -} - -getter @gtlSortStatementStructInstruction compareElements - ?let @gtlData s1 - ?let @gtlData s2 - ?@sortingKeyList keyList - ->@sint result -{ - if [keyList length] > 0 then - if s1 is == @gtlStruct then - if s2 is == @gtlStruct then - let @gtlStruct s1Struct = s1 as @gtlStruct - let @gtlStruct s2Struct = s2 as @gtlStruct - [!?keyList popFirst ?let @lstring field ?let @lsint order] - [[s1Struct value] get !field ?let @gtlData s1Field] - [[s2Struct value] get !field ?let @gtlData s2Field] - if [s1Field ltOp !s2Field] then - result = -1 * [order bigint] - else - if [s1Field gtOp !s2Field] then - result = 1 * [order bigint] - else - result = [self compareElements !s1 !s2 !keyList] - end - end - else - error [s2 location] : "struct expected" : result - end - else - error [s1 location] : "struct expected" : result - end - else - result = 0 - end -} - -#-----------------------------------------------------------------------------* -class @gtlSortStatementInstruction : @gtlAbstractSortInstruction { - @lsint order -} - -override getter @gtlSortStatementInstruction compare - ?let @gtlData s1 - ?let @gtlData s2 - ->@sint result -{ - if [s1 ltOp !s2] then - result = -1 * [order bigint] - else - if [s1 gtOp !s2] then - result = 1 * [order bigint] - else - result = 0 - end - end -} - -#-----------------------------------------------------------------------------* -# template instructions : tab -#-----------------------------------------------------------------------------* -class @gtlTabStatementInstruction : @gtlInstruction { - @gtlExpression tabValue -} - -override method @gtlTabStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - let @gtlData tabValueData = [tabValue eval !context !vars !lib] - if tabValueData is == @gtlInt then - let @gtlInt tabValueInt = tabValueData as @gtlInt - let @uint currentColumn = [outputString currentColumn] - if [tabValueInt value] >= 0 then - let @uint tabColumn = [[tabValueInt value] uint] - if tabColumn > currentColumn then - outputString += @string.stringWithSequenceOfCharacters{ - !' ' - !tabColumn - currentColumn - 1 - } - end - end - - else - error tabValueData : "int expected" - end -} - -#-----------------------------------------------------------------------------* -# template instructions : variables -#-----------------------------------------------------------------------------* -class @gtlVariablesInstruction : @gtlInstruction -{ - @bool shortDisplay -} - -method @gtlVariablesInstruction displayShort - ?let @gtlData vars -{ - cast vars - case == @gtlStruct variableMap: - for (name variable) in [variableMap value] do - message [name string] + " >\n" - message [variable desc !4] - end - else - error self : "INTERNAL ERROR. a variable map should be a @gtlStruct" - end -} - -method @gtlVariablesInstruction displayLong - ?let @gtlData vars -{ - let @string delimitor = @string.stringWithSequenceOfCharacters{!'=' !79 } + "\n" - let @string varDelim = @string.stringWithSequenceOfCharacters{!'-' !79 } + "\n" - let @string separator = @string.stringWithSequenceOfCharacters{!'=' !17 } - message separator + " Variables " - + separator + "= Displayed from " - + separator + "\n" - message [where locationString] + "\n" - message delimitor - cast vars - case == @gtlStruct variableMap: - for (name variable) in [variableMap value] do - message varDelim - message [name string] + "\n" - message varDelim - message [variable desc !0] - end - else - error self : "INTERNAL ERROR. a variable map should be a @gtlStruct" - end - message delimitor -} - -override method @gtlVariablesInstruction execute - ?!@gtlContext unused context - ?!@gtlData vars - ?!@library unused lib - ?!@string unused outputString -{ - if shortDisplay then - [self displayShort !vars] - else - [self displayLong !vars] - end -} - -#-----------------------------------------------------------------------------* -# template instructions : libraries -#-----------------------------------------------------------------------------* -class @gtlLibrariesInstruction : @gtlInstruction {} - -override method @gtlLibrariesInstruction execute - ?!@gtlContext unused context - ?!@gtlData unused vars - ?!@library lib - ?!@string unused outputString -{ - let @string delimitor = @string.stringWithSequenceOfCharacters{!'=' !79 } + "\n" - let @string varDelim = @string.stringWithSequenceOfCharacters{!'-' !79 } + "\n" - let @string separator = @string.stringWithSequenceOfCharacters{!'=' !17 } - message separator + " Libraries " - + separator + "= Displayed from " - + separator + "\n" - message [where locationString] + "\n" - message delimitor - message " Functions \n" - message varDelim - @uint lineSize = 0 - for (name *) in [lib funcMap] do - if lineSize + [[name string] length] > 75 then - lineSize = 0 - message "\n" - end - message [name string] - lineSize += [[name string] length] - between - message ", " - lineSize += 2 - after - message "\n" - end - message delimitor - message " Getters \n" - message varDelim - lineSize = 0 - for (name *) in [lib getterMap] do - if lineSize + [[name string] length] > 75 then - lineSize = 0 - message "\n" - end - message [name string] - lineSize += [[name string] length] - between - message ", " - lineSize += 2 - after - message "\n" - end - message delimitor - message " Setters \n" - message varDelim - lineSize = 0 - for (name *) in [lib setterMap] do - if lineSize + [[name string] length] > 75 then - lineSize = 0 - message "\n" - end - message [name string] - lineSize += [[name string] length] - between - message ", " - lineSize += 2 - after - message "\n" - end - message delimitor - message " Templates \n" - message varDelim - lineSize = 0 - for (name *) in [lib templateMap] do - if lineSize + [[name string] length] > 75 then - lineSize = 0 - message "\n" - end - message [name string] - lineSize += [[name string] length] - between - message ", " - lineSize += 2 - after - message "\n" - end - message delimitor -} - -#-----------------------------------------------------------------------------* -# template instructions : [!target setter : ] -#-----------------------------------------------------------------------------* -class @gtlSetterCallInstruction : @gtlInstruction { - @gtlVarPath target - @lstring setterName - @gtlExpressionList arguments -} - -override method @gtlSetterCallInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string unused outputString -{ - @gtlDataList dataArguments = .emptyList - for () in arguments do - dataArguments += ![expression eval !context !vars !lib] - end - @gtlData targetData = [target get !context !vars !lib] - [!?targetData performSetter !setterName !dataArguments !context !lib] - [target set !context !?vars !lib !targetData] -} - -#-----------------------------------------------------------------------------* -# template instructions : input -#-----------------------------------------------------------------------------* -class @gtlInputStatementInstruction : @gtlInstruction { - @gtlArgumentList formalArguments -} - -override method @gtlInputStatementInstruction execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library unused lib - ?!@string unused outputString -{ - for (typed type name) in formalArguments do - [!?context popFirstInputArg !name ?let @gtlData arg] - if typed then - if type != [arg dynamicType] then - error arg : "mistyped argument, " + [[arg dynamicType] typeName] + " provided" - error name : [type typeName] + " expected" - end - end - [!?vars setStructField !name !arg] - end -} diff --git a/goil/galgas-sources/gtl_interface.galgas b/goil/galgas-sources/gtl_interface.galgas deleted file mode 100755 index 7ff8edc52..000000000 --- a/goil/galgas-sources/gtl_interface.galgas +++ /dev/null @@ -1,94 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_interface.galgas -# -# @section desc File description -# -# Interfacing functions to embed GTL. -# -# @section copyright Copyright -# -# GTL interpreter, part of Trampoline RTOS -# -# GTL is copyright (c) CNRS & Ecole Centrale de Nantes -# GTL is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -#-----------------------------------------------------------------------------* -# invokeGTL invoke a template -#-----------------------------------------------------------------------------* -func invokeGTL - ?@gtlString rootTemplateFileName # the template file name - ?@gtlContext context # execution context - ?@gtlData vars # variables -->@string result # output string -{ - result = "" - @library lib = emptyLib() - - if [option gtl_options.debug value] then - message "Starting debugger, type help for command list\n" - [".gtlinit" loadCommandFile !?context !?vars !?lib] - end - - # Build a template instruction - let @gtlTemplateInstruction rootTemplateInstruction = .new { - !.here - !"" - !emptylstring() # empty prefix - !@gtlTerminal.new { # literal gtlString to store the file name - !.here - !rootTemplateFileName - } - !false # should always exist - !true # global template - !.emptyList # no argument - !.emptyList # no instruction if not found - } - - # Execute the template - [rootTemplateInstruction execute - !?context - !?vars - !?lib - !?result - ] -} - -#-----------------------------------------------------------------------------* -# emptyVarContainer -#-----------------------------------------------------------------------------* -func emptyVarContainer - ->@gtlData result -{ - result = @gtlStruct.new { !.nowhere !emptylstring() !.emptyMap } -} - -#-----------------------------------------------------------------------------* -# lstringToGtlString -#-----------------------------------------------------------------------------* -func lstringToGtlString - ?@lstring input - ->@gtlString output -{ - output = .new { !input !emptylstring() !input } -} - -#-----------------------------------------------------------------------------* -# stringToGtlString -#-----------------------------------------------------------------------------* -func stringToGtlString - ?@string input - ->@gtlString output -{ - output = .new { !.nowhere !emptylstring() !input } -} diff --git a/goil/galgas-sources/gtl_module.galgas b/goil/galgas-sources/gtl_module.galgas deleted file mode 100755 index 05d2b22e4..000000000 --- a/goil/galgas-sources/gtl_module.galgas +++ /dev/null @@ -1,238 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_module.galgas -# -# @section desc File description -# -# GTL modules. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -list @gtlArgumentList -{ - @bool typed - @type type - @lstring name -} - -#-----------------------------------------------------------------------------* -class @gtlExecutableEntity -{ - @location where - @lstring name - @gtlArgumentList formalArguments - @gtlInstructionList instructions -} - -method @gtlExecutableEntity checkArguments - ?let @location fromLocation - ?let @gtlDataList actualArguments - !@gtlData entityVariableMap - !@bool result -{ - result = true - entityVariableMap = @gtlStruct.new { - !fromLocation - !emptylstring() - !.emptyMap - } - - if [formalArguments length] != [actualArguments length] then - error fromLocation : "calling " - + if [self dynamicType] == `@gtlProcedure then - "procedure '" - else - "function '" - end - + name + "' needs " + [formalArguments length] + " arguments" - else - # Check the arguments have the good type - for () in formalArguments, () in actualArguments do - if [data dynamicType] != type & typed then - error [data location] : [type typeName] + " expected for " + name - result = false - else - [!?entityVariableMap setStructField !name !data] - end - end - end -} - -#-----------------------------------------------------------------------------* -class @gtlProcedure : @gtlExecutableEntity -{ -} - -method @gtlProcedure call - ?!@gtlContext context - ?!@library lib - ?!@string outputString - ? let @location fromLocation - ? let @gtlDataList actualArguments -{ - [self checkArguments - !fromLocation !actualArguments ?@gtlData vars ?let @bool ok] - if ok then - [instructions execute !?context !?vars !?lib !?outputString] - else - error fromLocation : "procedure call failed" - end -} - -#-----------------------------------------------------------------------------* -class @gtlFunction : @gtlExecutableEntity -{ - @lstring returnVariable -} - -getter @gtlFunction call - ?let @location fromLocation - ? @gtlContext context - ? @library lib - ?let @gtlDataList actualArguments - ->@gtlData result -{ - [self checkArguments - !fromLocation !actualArguments ?@gtlData funcVariableMap ?let @bool ok] - [!?funcVariableMap setStructField - !returnVariable - !@gtlUnconstructed.new{ ![returnVariable location] !emptylstring() } - ] - if ok then - @string outputString = "" - [instructions execute !?context !?funcVariableMap !?lib !?outputString] - result = [funcVariableMap resultField !returnVariable] - else - error fromLocation : "function call failed" : result - end -} - -#-----------------------------------------------------------------------------* -class @gtlGetter : @gtlFunction -{ - @type targetType -} - -getter @gtlGetter callGetter - ?let @location fromLocation - ? @gtlContext context - ? @library lib - ?let @gtlData target - ?let @gtlDataList actualArguments - ->@gtlData result -{ - [self checkArguments - !fromLocation !actualArguments ?@gtlData getterVariableMap ?let @bool ok] - [!?getterVariableMap setStructField - !returnVariable - !@gtlUnconstructed.new{ ![returnVariable location] !emptylstring() } - ] - if ok then - [!?getterVariableMap setStructField - !.new { !"self" !fromLocation } - !target - ] - @string outputString = "" - [instructions execute !?context !?getterVariableMap !?lib !?outputString] - result = [getterVariableMap resultField !returnVariable] - else - error fromLocation : "getter call failed" : result - end -} - -getter @gtlGetter typedName - ->@lstring result -{ - result = .new { ![targetType typeName]+[name string] !where } -} - -#-----------------------------------------------------------------------------* -class @gtlSetter : @gtlExecutableEntity -{ - @type targetType -} - -method @gtlSetter callSetter - ?let @location fromLocation - ? @gtlContext context - ? @library lib - ?! @gtlData target - ?let @gtlDataList actualArguments -{ - [self checkArguments - !fromLocation !actualArguments ?@gtlData setterVariableMap ?let @bool ok] - if ok then - let @lstring selfName = .new { !"self" !fromLocation } - [!?setterVariableMap setStructField - !selfName - !target - ] - @string outputString = "" - [instructions execute !?context !?setterVariableMap !?lib !?outputString] - [setterVariableMap structField !selfName ?target ?*] - else - error fromLocation : "setter call failed" - end -} - -getter @gtlSetter typedName - ->@lstring result -{ - result = .new { ![targetType typeName]+[name string] !where } -} - -#-----------------------------------------------------------------------------* -map @gtlProcMap -{ - @gtlProcedure procedure - insert put error message "a procedure named '%K' is already declared in %L" - search get error message "there is no procedure named '%K'" -} - -#-----------------------------------------------------------------------------* -map @gtlFuncMap -{ - @gtlFunction function - insert put error message "a function named '%K' is already declared in %L" - search get error message "there is no function named '%K'" -} - -#-----------------------------------------------------------------------------* -map @gtlGetterMap -{ - @gtlGetter theGetter - insert put error message "a getter named '%K' is already declared in %L" - search get error message "there is no getter named '%K'" -} - -#-----------------------------------------------------------------------------* -map @gtlSetterMap -{ - @gtlSetter theSetter - insert put error message "a setter named '%K' is already declared in %L" - search get error message "there is no setter named '%K'" -} - -#-----------------------------------------------------------------------------* -class @gtlModule -{ - @lstring name - @gtlProcMap procedures - @gtlFuncMap functions -} diff --git a/goil/galgas-sources/gtl_module_grammar.galgas b/goil/galgas-sources/gtl_module_grammar.galgas deleted file mode 100755 index 5475c48a3..000000000 --- a/goil/galgas-sources/gtl_module_grammar.galgas +++ /dev/null @@ -1,38 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_module_grammar.galgas -# -# @section desc File description -# -# Grammar for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - - -grammar gtl_module_grammar "LL1" { - syntax gtl_module_parser - syntax gtl_instruction_parser - syntax gtl_expression_parser - - - ?@gtlContext context - ?!@library lib -} - -#---------------------------------------------------------------------------* diff --git a/goil/galgas-sources/gtl_module_parser.galgas b/goil/galgas-sources/gtl_module_parser.galgas deleted file mode 100755 index 1d427a632..000000000 --- a/goil/galgas-sources/gtl_module_parser.galgas +++ /dev/null @@ -1,383 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_module_parser.galgas -# -# @section desc File description -# -# Parsing of GTL modules. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -syntax gtl_module_parser (gtl_scanner) { - -rule - !@gtlExpression expression - -rule - !@gtlInstruction instruction - -rule - ?@gtlContext context - ?!@library lib - -rule - !@gtlArgumentList arguments - -#-----------------------------------------------------------------------------* -# Instruction list in a setter, getter or function or any control instruction -#-----------------------------------------------------------------------------* -rule - !@gtlInstructionList instructionList -{ - instructionList = .emptyList - - repeat - while - ?let @gtlInstruction instruction - instructionList += !instruction -# let @string templateString = @string.retrieveAndResetTemplateString - while - ?let @gtlInstruction instruction - instructionList += !instruction# -# let @string templateString = @string.retrieveAndResetTemplateString - end -} - -#-----------------------------------------------------------------------------* -# Start symbol of a module -#-----------------------------------------------------------------------------* -rule - ?@gtlContext context - ?!@library lib -{ - repeat - while - !context !?lib - end - - repeat - while - ?let @gtlFunction aFunction - [!?lib putFunction ![aFunction name] !aFunction] - while - ?let @gtlGetter aGetter - [!?lib putGetter ![aGetter typedName] !aGetter] - while - ?let @gtlSetter aSetter - [!?lib putSetter ![aSetter typedName] !aSetter] - end -} - -#-----------------------------------------------------------------------------* -# function definition -#-----------------------------------------------------------------------------* -rule - !@gtlFunction function -{ - $func$ - $identifier$ ?let @lstring functionName - let @location where = .here - ?let @gtlArgumentList arguments - $identifier$ ?let @lstring returnVariable - ?let @gtlInstructionList instructionList - $end$ ; $func$ - - function = .new { - !where !functionName !arguments !instructionList !returnVariable - } -} - -#-----------------------------------------------------------------------------* -# getter definition -#-----------------------------------------------------------------------------* -rule - !@gtlGetter aGetter -{ - $getter$ - $@$ ; $identifier$ ?let @lstring targetType - $identifier$ ?let @lstring getterName - let @location where = .here - ?let @gtlArgumentList arguments - $identifier$ ?let @lstring returnVariable - ?let @gtlInstructionList instructionList - $end$ ; $getter$ - - aGetter = .new { - !where - !getterName - !arguments - !instructionList - !returnVariable - ![targetType gtlType] - } -} - -#-----------------------------------------------------------------------------* -# setter definition -#-----------------------------------------------------------------------------* -rule - !@gtlSetter aSetter -{ - $setter$ - $@$ ; $identifier$ ?let @lstring targetType - $identifier$ ?let @lstring getterName - let @location where = .here - ?let @gtlArgumentList arguments - ?let @gtlInstructionList instructionList - $end$ ; $setter$ - - aSetter = .new { - !where - !getterName - !arguments - !instructionList - ![targetType gtlType] - } -} - -#-----------------------------------------------------------------------------* -# if ... elsif ... else ... end if instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - @gtlThenElsifStatementList thenElsifList = .emptyList - @gtlInstructionList elseList = .emptyList - - $if$ ; let @location where = .here - repeat - ?let @gtlExpression condition - $then$ - ?let @gtlInstructionList instructionList - - thenElsifList += !condition !instructionList - while - $elsif$ - end -#--- else - select - $else$ - ?elseList - or end -#--- - $end$ - $if$ - - instruction = @gtlIfStatementInstruction.new { - !where !signature(!where) !thenElsifList !elseList - } -} - -#-----------------------------------------------------------------------------* -# foreach instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - @gtlInstructionList beforeList = .emptyList - let @gtlInstructionList doList - @gtlInstructionList betweenList = .emptyList - @gtlInstructionList afterList = .emptyList - let @lstring indexName - let @lstring variableName - - $foreach$ ; let @location where = .here - $identifier$ ?var @lstring keyName - select - $,$ ; $identifier$ ?variableName - or - variableName = keyName - keyName = .new { !"" !where } - end - select - $($ ; $identifier$ ?indexName ; $)$ - or - indexName = .new { !"INDEX" !.here } - end - $in$ - ?let @gtlExpression iterable -#--- before block - select - $before$ - ?beforeList - or end -#--- do block - $do$ - ?doList -#--- between block - select - $between$ - ?betweenList - or end -#--- after block - select - $after$ - ?afterList - or end -#--- - $end$ - $foreach$ - - instruction = @gtlForeachStatementInstruction.new { - !where - !signature(!where) - !keyName - !variableName - !indexName - !iterable - !beforeList - !betweenList - !afterList - !doList - } -} - -#-----------------------------------------------------------------------------* -# for instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - let @gtlInstructionList doList - @gtlInstructionList betweenList = .emptyList - @gtlExpressionList iterable = .emptyList - - $for$ ; let @location where = .here - if [option gtl_options.warnDeprecated value] then - warning .here : "for var in expression, ..., expression is deprecated" - fixit { replace "foreach var in @( expression, ..., expression )" } - end - $identifier$ ?let @lstring variableName - $in$ - repeat - ?let @gtlExpression expression - iterable += !expression - while - $,$ - end -#--- Do block - $do$ - ?doList -#--- between block - select - $between$ - ?betweenList - or end -#--- - $end$ - $for$ - - instruction = @gtlForStatementInstruction.new { - !where !signature(!where) !variableName !iterable !betweenList !doList - } -} - -#-----------------------------------------------------------------------------* -# loop instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - @gtlInstructionList beforeList = .emptyList - @gtlInstructionList betweenList = .emptyList - @gtlInstructionList afterList = .emptyList - @sint64 direction = 1 - - $loop$ ; let @location where = .here - - @gtlExpression step = @gtlTerminal.new { - !where !@gtlInt.new { !where !emptylstring() !1 } - } - - $identifier$ ?let @lstring variableName - $from$ - ?let @gtlExpression start - select - or - $up$ - or - $down$ ; direction = -1 - end - $to$ - ?let @gtlExpression stop - select - $step$ - ?step - or end -#--- before block - select - $before$ - ?beforeList - or end -#--- do block - $do$ - ?let @gtlInstructionList doList -#--- between block - select - $between$ - ?betweenList - or end -#--- after block - select - $after$ - ?afterList - or end -#--- - $end$ - $loop$ - - instruction = @gtlLoopStatementInstruction.new { - !where !signature(!where) !variableName !start !stop !step !direction - !beforeList !betweenList !afterList !doList - } -} - -#-----------------------------------------------------------------------------* -# repat instruction in a module -#-----------------------------------------------------------------------------* -rule - !@gtlInstruction instruction -{ - let @gtlExpression limit - - $repeat$ ; let @location where = .here - select - $($ - ?limit - $)$ - or - limit = @gtlTerminal.new { - !.here - !@gtlInt.new{ !.here !emptylstring() ![@uint.max{} bigint] } - } - end - ?let @gtlInstructionList continueList - $while$ - ?let @gtlExpression condition - $do$ - ?let @gtlInstructionList doList - $end$ - $repeat$ - - instruction = @gtlRepeatStatementInstruction.new { - !where !signature(!where) !limit !condition !continueList !doList - } -} - -} \ No newline at end of file diff --git a/goil/galgas-sources/gtl_options.galgas b/goil/galgas-sources/gtl_options.galgas deleted file mode 100755 index 276bd6a12..000000000 --- a/goil/galgas-sources/gtl_options.galgas +++ /dev/null @@ -1,12 +0,0 @@ -option gtl_options { - - @bool warnDeprecated : - '\0', - "warn-deprecated" - -> "Warns about deprecated constructs in the GTL template language" - - @bool debug : - '\0', - "debug" - -> "Execute the GTL templates in debug mode" -} diff --git a/goil/galgas-sources/gtl_parser.galgas b/goil/galgas-sources/gtl_parser.galgas deleted file mode 100755 index 219c4cc9b..000000000 --- a/goil/galgas-sources/gtl_parser.galgas +++ /dev/null @@ -1,459 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_parser.galgas -# -# @section desc File description -# -# Parsing of GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -syntax gtl_parser (gtl_scanner) { - -rule - !@gtlExpression expression - -rule - !@gtlVarPath path - -rule - !@gtlVarPath variable - !@bool hereInstead - -rule - ?@gtlContext context - ?!@library lib - -rule - !@gtlInstruction instruction - -rule - !@gtlArgumentList arguments - -#-----------------------------------------------------------------------------* -rule - ? @gtlContext context - ?!@library lib - ! @gtlInstructionList program -{ - repeat - while - !context !?lib - end - ?program -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstructionList instructionList -{ - instructionList = .emptyList - - repeat - let @string templateString = @string.retrieveAndResetTemplateString - if templateString != "" then - instructionList += - !@gtlTemplateStringInstruction.new{ - !.here - !"" - !templateString - } - end - while - ?let @gtlInstruction instruction - instructionList += !instruction - while - ?let @gtlInstruction instruction - instructionList += !instruction - end -} - -#-----------------------------------------------------------------------------* -# emit parsing. Syntax is: -# ! expression -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - $!$ ; let @location where = .here - ?let @gtlExpression expression - - instruction = @gtlEmitInstruction.new { - !where - !signature(!where) - !expression - } -} - -#-----------------------------------------------------------------------------* -# write to parsing. Syntax is: -# write to expression : -# ... -# end write -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - @bool isExecutable = false - $write$ ; let @location where = .here ; $to$ - select $executable$ ; isExecutable = true or end - ?let @gtlExpression fileName - $:$ - ?let @gtlInstructionList instructionList - $end$ ; $write$ - - instruction = @gtlWriteToInstruction.new { - !where - !signature(!where) - !fileName - !isExecutable - !instructionList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - let @lstring prefix - @bool ifExists = false - @gtlInstructionList instructionList = .emptyList - let @gtlExpression fileName - @gtlExpressionList templateArguments = .emptyList - @bool globalTemplate = true - - $template$ ; let @location where = .here - select - globalTemplate = false - $($ - select - repeat - ?let @gtlExpression expression - templateArguments += !expression - while - $,$ - end - or end - $)$ - or - end - select - $if$ ; $exists$ - ifExists = true - ?fileName - select - $in$ ; $identifier$ ?prefix - or prefix = .new { !"" !@location.here } end - select - $or$ - ?instructionList - $end$ ; $template$ - or end - or - ?fileName - select - $in$ ; $identifier$ ?prefix - or prefix = .new { !"" !@location.here } end - end - instruction = @gtlTemplateInstruction.new { - !where - !signature(!where) - !prefix - !fileName - !ifExists - !globalTemplate - !templateArguments - !instructionList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - $?$ ; let @location where = .here - ?let @gtlVarPath columnConstantName - - instruction = @gtlGetColumnInstruction.new { - !where - !signature(!where) - !columnConstantName - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - @gtlThenElsifStatementList thenElsifList = .emptyList - @gtlInstructionList elseList = .emptyList - - $if$ ; let @location where = .here - repeat - ?let @gtlExpression condition - $then$ - ?let @gtlInstructionList instructionList - - thenElsifList += !condition !instructionList - while - $elsif$ - end -#--- else - select - $else$ - ?elseList - or end -#--- - $end$ - $if$ - - instruction = @gtlIfStatementInstruction.new { - !where - !signature(!where) - !thenElsifList !elseList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - @gtlInstructionList beforeList = .emptyList - let @gtlInstructionList doList - @gtlInstructionList betweenList = .emptyList - @gtlInstructionList afterList = .emptyList - let @lstring indexName - let @lstring variableName - - $foreach$ ; let @location where = .here - $identifier$ ?var @lstring keyName - select - $,$ ; $identifier$ ?variableName - or - variableName = keyName - keyName = .new { !"" !where } - end - select - $($ ; $identifier$ ?indexName ; $)$ - or - indexName = .new { !"INDEX" !.here } - end - $in$ - ?let @gtlExpression iterable -#--- before block - select - $before$ - ?beforeList - or end -#--- do block - $do$ - ?doList -#--- between block - select - $between$ - ?betweenList - or end -#--- after block - select - $after$ - ?afterList - or end -#--- - $end$ - $foreach$ - - instruction = @gtlForeachStatementInstruction.new { - !where - !signature(!where) - !keyName - !variableName - !indexName - !iterable - !beforeList - !betweenList - !afterList - !doList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - let @gtlInstructionList doList - @gtlInstructionList betweenList = .emptyList - @gtlExpressionList iterable = .emptyList - - $for$ ; let @location where = .here - if [option gtl_options.warnDeprecated value] then - warning .here : "for var in expression, ..., expression is deprecated" - fixit { replace "foreach var in @( expression, ..., expression )" } - end - $identifier$ ?let @lstring variableName - $in$ - repeat - ?let @gtlExpression expression - iterable += !expression - while - $,$ - end -#--- Do block - $do$ - ?doList -#--- between block - select - $between$ - ?betweenList - or end -#--- - $end$ - $for$ - - instruction = @gtlForStatementInstruction.new { - !where - !signature(!where) - !variableName - !iterable - !betweenList - !doList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - @gtlInstructionList beforeList = .emptyList - @gtlInstructionList betweenList = .emptyList - @gtlInstructionList afterList = .emptyList - @sint64 direction = 1 - - $loop$ ; let @location where = .here - - @gtlExpression step = @gtlTerminal.new { - !where !@gtlInt.new { !where !emptylstring() !1 } - } - - $identifier$ ?let @lstring variableName - $from$ - ?let @gtlExpression start - select - or - $up$ - or - $down$ ; direction = -1 - end - $to$ - ?let @gtlExpression stop - select - $step$ - ?step - or end -#--- before block - select - $before$ - ?beforeList - or end -#--- do block - $do$ - ?let @gtlInstructionList doList -#--- between block - select - $between$ - ?betweenList - or end -#--- after block - select - $after$ - ?afterList - or end -#--- - $end$ - $loop$ - - instruction = @gtlLoopStatementInstruction.new { - !where - !signature(!where) - !variableName - !start - !stop - !step - !direction - !beforeList - !betweenList - !afterList - !doList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - let @gtlExpression limit - - $repeat$ ; let @location where = .here - select - $($ - ?limit - $)$ - or - limit = @gtlTerminal.new { - !.here !@gtlInt.new{ !.here !emptylstring() ![@uint.max{} bigint] } - } - end - ?let @gtlInstructionList continueList - $while$ - ?let @gtlExpression condition - $do$ - ?let @gtlInstructionList doList - $end$ - $repeat$ - - instruction = @gtlRepeatStatementInstruction.new { - !where - !signature(!where) - !limit - !condition - !continueList - !doList - } -} - -#-----------------------------------------------------------------------------* -rule !@gtlInstruction instruction -{ - $input$ ; let @location where = .here - ?let @gtlArgumentList arguments - - instruction = @gtlInputStatementInstruction.new { - !where - !signature(!where) - !arguments - } -} - -#-----------------------------------------------------------------------------* -rule - !@gtlExpression expression -{ - select - $identifier$ ?let @lstring fileName - expression = @gtlTerminal.new { - !@location.here !@gtlString.new { - ![fileName location] !emptylstring() ![fileName string] - } - } - or - $from$ - ?expression - end -} - -} # end of syntax diff --git a/goil/galgas-sources/gtl_scanner.galgas b/goil/galgas-sources/gtl_scanner.galgas deleted file mode 100755 index a104b60b5..000000000 --- a/goil/galgas-sources/gtl_scanner.galgas +++ /dev/null @@ -1,477 +0,0 @@ -#---------------------------------------------------------------------------* -# -# @file gtl_scanner.galgas -# -# @section desc File description -# -# scanner for GTL. -# -# @section copyright Copyright -# -# Goil OIL compiler, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#---------------------------------------------------------------------------* - -template lexique gtl_scanner { - -template "%" ... "%" - -replace "\\%" -> "%" - -replace "\\n" -> "\n" - -replace "\\\\" -> "\\" - -@string identifierString -@bigint intValue -@string tokenString -@string functionContent - -style keywordsStyle -> "Keywords" -style delimitersStyle -> "Delimiters" -style nonTerminalStyle -> "Non Terminal Symbols" -style integerStyle -> "Integer Constants" -style floatCsts -> "Floating Point Constants" -style stringStyle -> "String literals" -style commentStyle -> "Comments" -style characterStyle -> "Character Constants" - -# -------------------------- identifier or lkey word -------------------- -# keywords can be written in lower or upper case -# for identifiers, case is significant - -$identifier$ ! tokenString error message "an identifier" - -list goilTemplateKeyWordList style keywordsStyle error message "the '%K' keyword" -{ - "after", "before", "between", "by", "default", "display", - "do", "down", "else", "elsif", "emptylist", "emptymap", "end", "error", - "exists", "false", "for", "foreach", "from", "func", "here", "if", "in", - "import", "listof", "let", "loop", "mapof", "mod", "no", "not", "or", - "print", "println", "repeat", "sort", "step", "tab", "template", - "then", "to", "true", "typeof", "up", "yes", "warning", "while", "write", - "executable", "variables", "getter", "unlet", "setter", "libraries", "input", - "break", "__VARS__" -} - -rule 'a'->'z' | 'A'->'Z' | '_' { - repeat - enterCharacterIntoString ( !?identifierString !*) - enterCharacterIntoString ( !?tokenString !*) - while 'a'->'z' | 'A'->'Z' | '_' | '0'->'9' : - end - send search identifierString in goilTemplateKeyWordList default $identifier$ -} - -# ---------------------------------- enum value-------------------------------- -$literal_enum$ ! tokenString error message "a literal enum value" - -rule '$' { - repeat - while 'a'->'z' | 'A'->'Z' | '_' | '0'->'9' : - enterCharacterIntoString ( !?tokenString !*) - end - send $literal_enum$ -} - -# ----------------------------- Delimitors --------------------------------------- -list galgasDelimitorsList style delimitersStyle error message "the '%K' delimitor"{ - "*", "|", ",", "+", "::", ">", - ":", "(", ")", "->", "?", "==", - "!", ":=", "[", "]", "+=", "-=", - "/", "!=", ">=", "&", "<=", "{", "}", - "<", "^", ">>", "~", "<-", "<<", "@", "*=", - "/=", "&=", "|=", "<<=", ">>=", "mod=", "^=", "@[", - "@(", "@{", "[!", "@!", "@?" -} - -rule list galgasDelimitorsList - -#------------------------------- Integer, floating Point Constant ------------------ -@double floatValue -$literal_double$ !floatValue style floatCsts error message "a float number" -$signed_literal_integer_bigint$ !intValue style integerStyle error message "a bigint decimal number" - -$-$ style delimitersStyle error message "the - delimitor" - -message floatNumberConversionError : "invalid float number" -message internalError : "internal error" - -rule '-' { - select - case '0'->'9': - enterCharacterIntoString(!?tokenString !'-') - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - select - case '.' : - enterCharacterIntoString(!?tokenString !'.') - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - convertDecimalStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ - end - default - send $-$ - end -} - -rule "0x" | "0X" { - repeat - while '0'->'9' | 'a'->'f' | 'A'->'F': - enterCharacterIntoString(!?tokenString !*) - end - convertHexStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ -} - - -rule '0'->'9' { - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - select - case '.' : - enterCharacterIntoString(!?tokenString !'.') - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - convertDecimalStringIntoBigInt(!tokenString !?intValue error internalError) - send $signed_literal_integer_bigint$ - end -} - - -#------------------------------- Floating point Number ------------------ -$.$ style delimitersStyle error message "the '.' delimitor" -$.=$ style delimitersStyle error message "the '.=' delimitor" -$...$ style delimitersStyle error message "the '...' delimitor" - -#--- Floating Point constant beginning with a dot -rule '.' { - select - case '0'->'9' : - enterCharacterIntoString(!?tokenString !'0') - enterCharacterIntoString(!?tokenString !'.') - enterCharacterIntoString(!?tokenString !*) - repeat - while '0'->'9' : - enterCharacterIntoString(!?tokenString !*) - while '_' : - end - convertStringToDouble(!tokenString !?floatValue error floatNumberConversionError) - send $literal_double$ - default - select - case ".." : - send $...$ - case "=" : - send $.=$ - default - send $.$ - end - end -} - -# ------------------------------------ String ---------------------------- - -message unterminatedLitteralString : "Unterminated literal string" - -@string a_string -@char charValue -@uint uint32value - -message invalideUnicodeDefinition4 : "\\u should be followed by exactly four hexadecimal digits" -message invalideUnicodeDefinition8 : "\\U should be followed by exactly eight hexadecimal digits" -message unassignedUnicodeValue : "this value does not correspond to an assigned Unicode point" -message incorrectHTMLescapeSequence : "Invalid HTML sequence, should be '&...;'" -message unknownHTMLescapeSequence : "Invalid &...; HTML sequence" -message incorrectCharConstant : "incorrect literal character" - -$literal_char$ ! charValue style characterStyle error message "a character constant" - -rule '\'' { - select - case '\\' : - select - case 'f' : - enterCharacterIntoCharacter (!?charValue !'\f' ) - case 'n' : - enterCharacterIntoCharacter (!?charValue !'\n' ) - case 'r' : - enterCharacterIntoCharacter (!?charValue !'\r' ) - case 't' : - enterCharacterIntoCharacter (!?charValue !'\t' ) - case 'v' : - enterCharacterIntoCharacter (!?charValue !'\v' ) - case '\\' : - enterCharacterIntoCharacter (!?charValue !'\\' ) - case '0' : - enterCharacterIntoCharacter (!?charValue !'\0' ) - case '\'' : - enterCharacterIntoCharacter (!?charValue !'\'' ) - case 'u' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - case 'U' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - case '&' : - repeat - while ~ ";" error incorrectHTMLescapeSequence : - enterCharacterIntoString (!?tokenString !* ) - end - convertHTMLSequenceToUnicodeCharacter (!?tokenString !?charValue error unknownHTMLescapeSequence ) - default - error incorrectCharConstant - end - case ' ' -> '\uFFFD' : - enterCharacterIntoCharacter (!?charValue !* ) - default - error incorrectCharConstant - end - select - case '\'' : - send $literal_char$ - default - error incorrectCharConstant - end -} - -$string$ !a_string style stringStyle error message "literal string" - -rule '"' { - repeat - while '\\' : - select - case 'f' : - enterCharacterIntoString (!?a_string !'\f' ) - case 'n' : - enterCharacterIntoString (!?a_string !'\n' ) - case 'r' : - enterCharacterIntoString (!?a_string !'\r' ) - case 't' : - enterCharacterIntoString (!?a_string !'\t' ) - case 'v' : - enterCharacterIntoString (!?a_string !'\v' ) - case '\\' : - enterCharacterIntoString (!?a_string !'\\' ) - case '"' : - enterCharacterIntoString (!?a_string !'"' ) - case '\'' : - enterCharacterIntoString (!?a_string !'\'' ) - case '?' : - enterCharacterIntoString (!?a_string !'?' ) - case '&' : - repeat - while ~ ";" error incorrectHTMLescapeSequence : - enterCharacterIntoString (!?identifierString !* ) - end - convertHTMLSequenceToUnicodeCharacter (!?identifierString !?charValue error unknownHTMLescapeSequence ) - enterCharacterIntoString (!?a_string !charValue ) - case 'u' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - enterCharacterIntoString (!?a_string !charValue ) - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - default - error invalideUnicodeDefinition4 - end - case 'U' : - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - select - case '0' -> '9' | 'a' -> 'f' | 'A' -> 'F' : - enterHexDigitIntoUInt ( !* !?uint32value error internalError, internalError ) - convertUnsignedNumberToUnicodeChar (!?uint32value !?charValue error unassignedUnicodeValue ) - enterCharacterIntoString (!?a_string !charValue ) - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error invalideUnicodeDefinition8 - end - default - error incorrectCharConstant - end - while ' ' | '!' | '#'-> '\uFFFD' : - enterCharacterIntoString (!?a_string !* ) - end - select - case '"' : - send $string$ - default - error unterminatedLitteralString - end -} - -# ------------------------------------ Comment ---------------------------- -$comment$ style commentStyle error message "a comment" -rule '#' { - repeat - while '\u0001' -> '\u0009' | '\u000B' | '\u000C' | '\u000E' -> '\uFFFD' : - end - drop $comment$ -} - -# --------------------- separators ----------------------------------------- -rule '\u0001' -> ' ' { -} - -} diff --git a/goil/galgas-sources/gtl_types.galgas b/goil/galgas-sources/gtl_types.galgas deleted file mode 100755 index 838d60b40..000000000 --- a/goil/galgas-sources/gtl_types.galgas +++ /dev/null @@ -1,423 +0,0 @@ -#-----------------------------------------------------------------------------* -# -# @file gtl_types.galgas -# -# @section desc File description -# -# types for GTL. -# -# @section copyright Copyright -# -# GTL template language, part of Trampoline RTOS -# -# Trampoline is copyright (c) CNRS, University of Nantes, -# Ecole Centrale de Nantes -# Trampoline is protected by the French intellectual property law. -# -# This software is distributed under the GNU Public Licence V2. -# Check the LICENSE file in the root directory of Trampoline -# -# $Date$ -# $Rev$ -# $Author$ -# $URL$ -# -#-----------------------------------------------------------------------------* - -#=============================================================================* -# @gtlContext is used to store the execution context of a template -#-----------------------------------------------------------------------------* -class @gtlContext { - @lstring prefix - @string path - @string templateDirectory - @string userTemplateDirectory - @string templateExtension - @stringlist importPath - @gtlDataList inputVars - @bool propagateError - @debuggerContext debuggerContext -} - -func emptyContext - ->@gtlContext context -{ - context = .new { - !emptylstring() - !"" - !"" - !"" - !"gtl" - !.emptyList - !.emptyList - !true - !defaultDebugSettings() - } -} - -setter @gtlContext addModulePath - ?let @string rootPath - ?let @string modulePath -{ - let @string normalizedModulePath = - [[modulePath absolutePathFromPath !rootPath] stringByStandardizingPath] - importPath += !normalizedModulePath -} - -setter @gtlContext addInputVariable - ?@gtlData inputVariable -{ - inputVars += !inputVariable -} - -setter @gtlContext popFirstInputArg - ?@location where - !@gtlData result -{ - if [inputVars length] > 0 then - [!?inputVars popFirst ?result] - else - error where : "No input argument available" : result - end -} - -getter @gtlContext fullPrefix - ?let @gtlData unused vars - ->@lstring full -{ - full = prefix -} - -func pathWithExtension - ?@gtlContext context - ?@string path - ->@string extendedPath -{ - if [path pathExtension] != [context templateExtension] then - extendedPath = path + "." + [context templateExtension] - else - extendedPath = path - end -} - -getter @gtlContext fullTemplateFileName - ?@gtlContext context - ?@gtlData vars - ?@lstring simpleName - ->@lstring fullName -{ - #@gtlContext copy = self - let @lstring fullPref = [self fullPrefix !vars] - - @bool found = false - @string prefixedTemplatePath - @string hierarchicalPath - @string rootPath - - # - # First search in the user template directory - # - prefixedTemplatePath = - [userTemplateDirectory stringByAppendingPath !fullPref] - hierarchicalPath = path - rootPath = pathWithExtension( - !context - ![prefixedTemplatePath stringByAppendingPath ![simpleName string]] - ) - - loop ( [hierarchicalPath length] ) - let @string fullPath = pathWithExtension( - !context - ![[prefixedTemplatePath stringByAppendingPath !hierarchicalPath] stringByAppendingPath - !simpleName - ] - ) -# message "Search in " + fullPath + "... " - if [fullPath fileExists] then -# message "found\n" - rootPath = fullPath - found = true -# else -# message "\n" - end - while not found && [hierarchicalPath length] > 0 do - hierarchicalPath = [hierarchicalPath stringByDeletingLastPathComponent] - end - - if not found then - # - # Second search in the template directory - # - prefixedTemplatePath = - [templateDirectory stringByAppendingPath !fullPref] - hierarchicalPath = path - rootPath = pathWithExtension( - !context - ![prefixedTemplatePath stringByAppendingPath ![simpleName string]] - ) - - - loop ( [hierarchicalPath length] ) - let @string fullPath = pathWithExtension( - !context - ![[prefixedTemplatePath stringByAppendingPath !hierarchicalPath] stringByAppendingPath - !simpleName - ] - ) - # message "Search in " + fullPath + "... " - if [fullPath fileExists] then - # message "found\n" - rootPath = fullPath - found = true - # else - # message "\n" - end - while not found && [hierarchicalPath length] > 0 do - hierarchicalPath = [hierarchicalPath stringByDeletingLastPathComponent] - end - end -# message "#### Return " + rootPath + "\n" - fullName = .new { - !rootPath - !simpleName - } -} - -getter @string stringByAppendingPath - ?let @string pathToAppend - ->@string result -{ - if self == "" then - result = pathToAppend - else - if [self lastCharacter] == '/' then - result = self + pathToAppend - else - result = self + '/' + pathToAppend - end - end -} - -#=============================================================================* -# @gtlDataList is used to pass arguments to methods and functions -#-----------------------------------------------------------------------------* -list @gtlDataList -{ - @gtlData data -} - -#=============================================================================* -# A variable map is a map of variables. Used for variables of a gtl program -# and used in struct and map of the language itself. -#-----------------------------------------------------------------------------* -map @gtlVarMap { - @gtlData value - insert put error message "a variable or field named '%K' is already declared in %L" - search get error message "there is no variable or field named '%K'" - search getResult error message "function did not return a value in '%K'" - remove del error message "there is no variable or field named '%K' to delete" -} - -setter @gtlVarMap replaceOrCreate - ?let @lstring key - ?let @gtlData data -{ - if [self hasKey ![key string]] then - [!?self setValueForKey !data !key] - else - [!?self put !key !data] - end -} - -setter @gtlVarMap replaceOrCreateAtLevel - ?let @lstring key - ?let @gtlData data - ?let @uint level -{ - if [self hasKeyAtLevel ![key string] !level] then - [!?self del !key ?*] - end - [!?self put !key !data] -} - -#=============================================================================* -# An expression map is a map of expressions. Used for literal init of structs -# and maps -#-----------------------------------------------------------------------------* -map @gtlExpressionMap { - @gtlExpression expression - insert put error message "a field named '%K' is already declared in %L" - search get error message "there is no field named '%K'" - remove del error message "there is no field named '%K' to delete" -} - -#=============================================================================* -# templates are cached in a @gtlTemplateMap in order to retrieve them without -# parsing more than once -#-----------------------------------------------------------------------------* -class @gtlTemplate { - @string path - @gtlInstructionList program -} - -method @gtlTemplate execute - ?!@gtlContext context - ?!@gtlData vars - ?!@library lib - ?!@string outputString -{ - [program execute !?context !?vars !?lib !?outputString] -} - -map @gtlTemplateMap { - @gtlTemplate aTemplate - insert put error message "a template at path '%K' is already declared in %L" - search get error message "there is no template at path '%K'" -} - -setter @gtlTemplateMap getTemplate - ? let @gtlContext context - ? @lstring path - ? @bool ifExists - ?!@library lib - ! @bool found - ! @gtlTemplate result -{ - if [self hasKey !path] then - found = true - [self get !path ?result] - else - if [path fileExists] then - found = true - grammar gtl_grammar in path - ! context - !? lib - ?let @gtlInstructionList program - result = .new { !path !program } - [!?self put !path !result] - else - found = false - if ifExists then - result = .new { !path !.emptyList } - else - error path : "template file not found at \"" + path + "\"" : result - end - end - end -} - -#=============================================================================* -# An library stores a map of functions and getter -#-----------------------------------------------------------------------------* -class @library { - @gtlFuncMap funcMap - @gtlGetterMap getterMap - @gtlSetterMap setterMap - @gtlTemplateMap templateMap - @stringset doneImports -} - -func emptyLib - ->@library result -{ - result = .new { !.emptyMap !.emptyMap !.emptyMap !.emptyMap !.emptySet } -} - -getter @library functionExists - ?let @lstring name - ->@bool exists -{ - exists = [funcMap hasKey ![name string]] -} - -getter @library getFunction - ?let @lstring name - ->@gtlFunction aFunction -{ - [funcMap get !name ?aFunction] -} - -setter @library putFunction - ?let @lstring name - ?let @gtlFunction aFunction -{ - [!?funcMap put !name !aFunction] -} - -getter @library getterExists - ?let @string type - ?let @lstring name - ->@bool exists -{ - exists = [getterMap hasKey !type + name] -} - -getter @library getGetter - ?let @string type - ?let @lstring name - ->@gtlGetter aGetter -{ - [getterMap get !.new { !type + name ![name location] } ?aGetter] -} - -setter @library putGetter - ?let @lstring name - ?let @gtlGetter aGetter -{ - [!?getterMap put !name !aGetter] -} - -getter @library setterExists - ?let @string type - ?let @lstring name - ->@bool exists -{ - exists = [setterMap hasKey !type + name] -} - -getter @library getSetter - ?let @string type - ?let @lstring name - ->@gtlSetter aSetter -{ - [setterMap get !.new { !type + name ![name location] } ?aSetter] -} - -setter @library putSetter - ?let @lstring name - ?let @gtlSetter aSetter -{ - [!?setterMap put !name !aSetter] -} - -getter @library hasImport - ?let @string importPath - ->@bool result -{ - result = [doneImports hasKey !importPath] -} - -setter @library doImport - ?let @string importPath -{ - doneImports += !importPath -} - -setter @library getTemplate - ? let @gtlContext context - ? @lstring path - ? @bool ifExists - ?!@library lib - ! @bool found - ! @gtlTemplate result -{ -# message "**** Getting " + path + "\n" - [!?templateMap getTemplate - !context - !path - !ifExists - !?lib - ?found - ?result - ] -} diff --git a/goil/goil.galgasProject b/goil/goil.galgasProject index e1526eba3..7f7f93334 100755 --- a/goil/goil.galgasProject +++ b/goil/goil.galgasProject @@ -23,6 +23,7 @@ # $URL$ # #---------------------------------------------------------------------------* +# 3.1.16 added trimWhiteSpaces string getter # 3.1.15 generate an error if the OIL_VERSION=X.Y does not correspond to # any configX.Y file. # 3.1.14 updated to galgas 3.6.1 @@ -66,7 +67,7 @@ # string # 2.1.20 Added -o and -r options to goil -project (3:1:15) -> "goil" { +project (3:1:16) -> "goil" { %makefile-macosx %makefile-unix @@ -82,27 +83,27 @@ project (3:1:15) -> "goil" { #---------------------------------------------------------------------------* # GTL #---------------------------------------------------------------------------* - "galgas-sources/gtl_interface.galgas" - "galgas-sources/gtl_types.galgas" - "galgas-sources/gtl_expressions.galgas" - "galgas-sources/gtl_data_types.galgas" - "galgas-sources/gtl_scanner.galgas" - "galgas-sources/gtl_parser.galgas" - "galgas-sources/gtl_instruction_parser.galgas" - "galgas-sources/gtl_module.galgas" - "galgas-sources/gtl_module_parser.galgas" - "galgas-sources/gtl_module_grammar.galgas" - "galgas-sources/gtl_expression_parser.galgas" - "galgas-sources/gtl_instructions.galgas" - "galgas-sources/gtl_grammar.galgas" - "galgas-sources/gtl_functions.galgas" - "galgas-sources/gtl_options.galgas" - "galgas-sources/gtl_debugger.galgas" - "galgas-sources/gtl_debugger_input.galgas" - "galgas-sources/gtl_debugger_scanner.galgas" - "galgas-sources/gtl_debugger_grammar.galgas" - "galgas-sources/gtl_debugger_parser.galgas" - "galgas-sources/gtl_debugger_expression_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_interface.galgas" + "galgas-sources/GTL/galgas-sources/gtl_types.galgas" + "galgas-sources/GTL/galgas-sources/gtl_expressions.galgas" + "galgas-sources/GTL/galgas-sources/gtl_data_types.galgas" + "galgas-sources/GTL/galgas-sources/gtl_scanner.galgas" + "galgas-sources/GTL/galgas-sources/gtl_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_instruction_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_module.galgas" + "galgas-sources/GTL/galgas-sources/gtl_module_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_module_grammar.galgas" + "galgas-sources/GTL/galgas-sources/gtl_expression_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_instructions.galgas" + "galgas-sources/GTL/galgas-sources/gtl_grammar.galgas" + "galgas-sources/GTL/galgas-sources/gtl_functions.galgas" + "galgas-sources/GTL/galgas-sources/gtl_options.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger_input.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger_scanner.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger_grammar.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger_parser.galgas" + "galgas-sources/GTL/galgas-sources/gtl_debugger_expression_parser.galgas" #---------------------------------------------------------------------------* @@ -128,6 +129,7 @@ project (3:1:15) -> "goil" { # Datatypes # "galgas-sources/goil_types_root.galgas" + "galgas-sources/goil_gtl_extension.galgas" # # Code generation # diff --git a/goil/templates/root.goilTemplate b/goil/templates/root.goilTemplate index 19a764c04..0a97e79db 100644 --- a/goil/templates/root.goilTemplate +++ b/goil/templates/root.goilTemplate @@ -28,7 +28,7 @@ import "vectors" #------------------------------------------------------------------------------* # Check goil version is ok # -let NEEDED_VERSION := "3.1.15" +let NEEDED_VERSION := "3.1.16" if version() != NEEDED_VERSION then error here : "Goil version " + NEEDED_VERSION + " required" diff --git a/goil/xcode-project/Info.plist b/goil/xcode-project/Info.plist index 5b13a9ba2..6b302fac0 100644 --- a/goil/xcode-project/Info.plist +++ b/goil/xcode-project/Info.plist @@ -19,7 +19,7 @@ LSMinimumSystemVersion 10.13 CFBundleShortVersionString - 3.1.15 + 3.1.16 NSMainNibFile MainMenu NSPrincipalClass