Skip to content
Permalink
Browse files

Set Sourcelanguage always to SAP #110

  • Loading branch information...
RainerWinkler committed Aug 30, 2019
1 parent 0e84e6f commit 2141a504ce28335ac06f918bd36b5353b267b4c3
@@ -142,7 +142,7 @@ CLASS ltcl_class IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #(
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Class CLASS_A modifiers ABAPGlobalClass| )
( |FAMIX.Class CLASS_A parentPackage PACKAGE1| )
( |FAMIX.Class INTERFACE_A modifiers ABAPGlobalClass| )
@@ -250,7 +250,7 @@ CLASS ltcl_interface IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #(
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Class INTERFACE_A modifiers ABAPGlobalInterface| )
( |FAMIX.Class INTERFACE_A parentPackage PACKAGE1| )
( |FAMIX.Class INTERFACE_A isInterface true| )
@@ -78,7 +78,8 @@ CLASS ltcl_main IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.Package PACKAGE_A| ) ).
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Package PACKAGE_A| ) ).

cl_abap_unit_assert=>assert_equals(
EXPORTING
@@ -105,7 +105,7 @@ CLASS ltcl_main IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #(
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Method PROGRAM_A>>PROGRAM_A signature PROGRAM_A| )
( |FAMIX.Class PROGRAM_A modifiers ABAPProgram| )
( |FAMIX.Class PROGRAM_A parentPackage PACKAGE1| )
@@ -89,7 +89,8 @@ CLASS ltcl_main IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.Class TABLE_A modifiers DBTable| )
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Class TABLE_A modifiers DBTable| )
( |FAMIX.Attribute TABLE_A>>TABLE_A| )
( |FAMIX.Class TABLE_A parentPackage PACKAGE1| )
( |FAMIX.Package PACKAGE1| ) ).
@@ -102,7 +102,7 @@ CLASS ltcl_class IMPLEMENTATION.


equalized_harmonized_mse_act = z2mse_mse_harmonize=>mse_2_harmonized( mse = mse_model_act ).
equalized_harmonized_mse_exp = VALUE #(
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Class WDY_COMP_A modifiers ABAPWebDynproComponent| )
( |FAMIX.Class WDY_COMP_A parentPackage PACKAGE1| )
( |FAMIX.Method WDY_COMP_A>>WDY_CONTR_1 signature WDY_CONTR_1| )
@@ -649,7 +649,8 @@ CLASS z2mse_mse_harmonize IMPLEMENTATION.
IF <id_to_name3>-simple_name IS NOT INITIAL
AND <element>-elementname EQ 'FAMIX.Class'
OR <element>-elementname EQ 'FAMIX.Package'
OR <element>-elementname EQ 'FAMIX.FileAnchor'.
OR <element>-elementname EQ 'FAMIX.FileAnchor'
OR <element>-elementname EQ 'FAMIX.CustomSourceLanguage'.
<element>-concatenated_name = <id_to_name3>-simple_name.
ELSE.
<element>-concatenated_name = <id_to_name3>-concatenated_name.
@@ -293,43 +293,46 @@ CLASS ltcl_main IMPLEMENTATION.
equalized_harmonized_mse_act TYPE z2mse_mse_harmonize=>harmonized_mse,
equalized_harmonized_mse_exp TYPE z2mse_mse_harmonize=>harmonized_mse.

mse = VALUE #( ( |( (FAMIX.Package (id: 1 )| )
mse = VALUE #( ( |( ( FAMIX.CustomSourceLanguage (id: 1)| )
( | (name 'SAP'))| )
( |(FAMIX.Package (id: 2 )| )
( | (name 'Z2MSE_TEST_INITIAL_SELECTION'))| )
( |(FAMIX.Class (id: 2 )| )
( |(FAMIX.Class (id: 3 )| )
( | (name 'Z2MSE_TEST_CL_A')| )
( | (modifiers 'ABAPGlobalClass')| )
( | (parentPackage (ref: 1)))| )
( |(FAMIX.FileAnchor (id: 7)| )
( | (element (ref: 2))| )
( | (parentPackage (ref: 2)))| )
( |(FAMIX.FileAnchor (id: 8)| )
( | (element (ref: 3))| )
( | (fileName 'adt://NPL/sap/bc/adt/oo/classes/z2mse_extr3_access/source/main'))| )
( |(FAMIX.Attribute (id: 4 )| )
( |(FAMIX.Attribute (id: 5 )| )
( | (name 'Z2MSE_TEST_IF_A~ATTRIBUTE_A')| )
( | (parentType (ref: 2)))| )
( |(FAMIX.Method (id: 5 )| )
( | (parentType (ref: 3)))| )
( |(FAMIX.Method (id: 6 )| )
( | (name 'Z2MSE_TEST_IF_A~METHOD_A')| )
( | (signature 'Z2MSE_TEST_IF_A~METHOD_A')| )
( | (parentType (ref: 2)))| )
( |(FAMIX.FileAnchor (id: 8)| )
( | (element (ref: 5))| )
( | (parentType (ref: 3)))| )
( |(FAMIX.FileAnchor (id: 9)| )
( | (element (ref: 6))| )
( | (fileName 'adt://NPL/sap/bc/adt/oo/classes/z2mse_extr3_access/source/main#start=27,5'))| )
( |(FAMIX.Method (id: 6 )| )
( |(FAMIX.Method (id: 7 )| )
( | (name 'METHOD_B')| )
( | (signature 'METHOD_B')| )
( | (parentType (ref: 2)))| )
( | (parentType (ref: 3)))| )
( |(FAMIX.Access| )
( | (accessor (ref: 5))| )
( | (variable (ref: 4)))| )
( | (accessor (ref: 6))| )
( | (variable (ref: 5)))| )
( |(FAMIX.Invocation| )
( | (sender (ref: 6))| )
( | (candidates (ref: 5))| )
( | (sender (ref: 7))| )
( | (candidates (ref: 6))| )
( | (signature 'DUMMY')))| ) ).

* equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.Package Z2MSE_TEST_INITIAL_SELECTION| )
* ( |FAMIX.Class Z2MSE_TEST_CL_A modifiers 'ABAPGlobalClass'| )
* ( |FAMIX.Class Z2MSE_TEST_CL_A parentPackage Z2MSE_TEST_INITIAL_SELECTION| ) ).

equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.Attribute Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~ATTRIBUTE_A| )
( | FAMIX.Access accessor Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~METHOD_A variable Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~ATTRIBUTE_A | )
equalized_harmonized_mse_exp = VALUE #( ( |FAMIX.CustomSourceLanguage SAP| )
( |FAMIX.Attribute Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~ATTRIBUTE_A| )
( |FAMIX.Access accessor Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~METHOD_A variable Z2MSE_TEST_CL_A>>Z2MSE_TEST_IF_A~ATTRIBUTE_A | )
( |FAMIX.Class Z2MSE_TEST_CL_A modifiers ABAPGlobalClass| )
( |FAMIX.FileAnchor Z2MSE_TEST_CL_A fileName adt://NPL/sap/bc/adt/oo/classes/z2mse_extr3_access/source/main| )
( |FAMIX.FileAnchor Z2MSE_TEST_IF_A~METHOD_A fileName adt://NPL/sap/bc/adt/oo/classes/z2mse_extr3_access/source/main#start=27,5| )
@@ -104,6 +104,8 @@ CLASS z2mse_mse_harmonize_maker DEFINITION
using TYPE string OPTIONAL
used_group TYPE string DEFAULT ''
used TYPE string.
METHODS add_custom_source_language
IMPORTING language TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
DATA last_grouping TYPE string.
@@ -112,10 +114,10 @@ ENDCLASS.



CLASS Z2MSE_MSE_HARMONIZE_MAKER IMPLEMENTATION.
CLASS z2mse_mse_harmonize_maker IMPLEMENTATION.


METHOD ACCESS.
METHOD access.

IF using IS NOT SUPPLIED.
DATA(ung) = last_grouping.
@@ -474,4 +476,8 @@ CLASS Z2MSE_MSE_HARMONIZE_MAKER IMPLEMENTATION.
to_change = VALUE #( BASE to_change ( |FAMIX.Invocation sender { ung }>>{ my_using } candidates { udg }>>{ used } signature DUMMY| ) ).

ENDMETHOD.
METHOD add_custom_source_language.
to_change = VALUE #( BASE to_change ( |FAMIX.CustomSourceLanguage { language }| ) ).
ENDMETHOD.

ENDCLASS.
@@ -244,6 +244,8 @@ CLASS z2mse_main_test IMPLEMENTATION.

maker->to_change = equalized_harmonized_mse_exp.

maker->add_custom_source_language( |SAP| ).

maker->add_package( package = |Z2MSE_TEST2_INITIAL| ).

maker->add_function_group( EXPORTING name = |Z2MSE_TEST2_I_FGR_A|
@@ -411,6 +413,8 @@ CLASS z2mse_main_test IMPLEMENTATION.

maker->to_change = equalized_harmonized_mse_exp.

maker->add_custom_source_language( |SAP| ).

maker->add_package( package = |Z2MSE_TEST2_INITIAL| ).

* maker->add_function_group( EXPORTING name = |Z2MSE_TEST2_I_FGR_A|
@@ -556,7 +560,7 @@ CLASS z2mse_main_test IMPLEMENTATION.
maker = NEW #( ).

maker->to_change = equalized_harmonized_mse_exp.

maker->add_custom_source_language( |SAP| ).
maker->add_package( package = |Z2MSE_TEST_INITIAL_SELECTION| ).
maker->add_package( package = |Z2MSE_TEST_NO_INITIAL_SELECTN| ).
maker->add_db_table( name = |Z2MSE_TEST_A| parentpackage = |Z2MSE_TEST_INITIAL_SELECTION| ).
@@ -725,6 +729,8 @@ CLASS z2mse_main_test IMPLEMENTATION.

maker->to_change = equalized_harmonized_mse_exp.

maker->add_custom_source_language( |SAP| ).

maker->add_package( package = |Z2MSE_TEST2_INITIAL| ).

maker->add_function_group( EXPORTING name = |Z2MSE_TEST2_I_FGR_A|
@@ -1,5 +1,5 @@
*
* This is version 1.2.1
* This is version 1.2.2
*
*The MIT License (MIT)
*

0 comments on commit 2141a50

Please sign in to comment.
You can’t perform that action at this time.