/SAP2Moose

Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
Raw Blame History
5902 lines (4627 sloc) 218 KB
* generated on system NPL at 15.06.2018 on 11:15:13
*
* This is version 1.1.2
*
*The MIT License (MIT)
*
*Copyright (c) 2016 Rainer Winkler, CubeServ
*
*Permission is hereby granted, free of charge, to any person obtaining a copy
*of this software and associated documentation files (the "Software"), to deal
*in the Software without restriction, including without limitation the rights
*to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
*copies of the Software, and to permit persons to whom the Software is
*furnished to do so, subject to the following conditions:
*
*The above copyright notice and this permission notice shall be included in all
*copies or substantial portions of the Software.
*
*THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
*IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
*FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
*AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
*LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
*OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
*SOFTWARE.
"! The latest version is available on https://github.com/SAP2Moose/SAP2Moose
"!
"! Thanks to Enno Wulff for providing the initial ABAP 7.31 version
"!
REPORT z2mse_moose_extractor2.
TABLES tadir. "So that select-options work
SELECTION-SCREEN BEGIN OF BLOCK block_global_source WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN END OF BLOCK block_global_source.
SELECTION-SCREEN BEGIN OF BLOCK block_selct_sap_comp WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS s_pack FOR tadir-devclass.
SELECT-OPTIONS s_spack FOR tadir-devclass.
DATA: element_filter TYPE string.
PARAMETERS p_eltyp TYPE text30.
PARAMETERS p_elpar TYPE c LENGTH 30.
PARAMETERS p_elnam TYPE c LENGTH 61.
PARAMETERS p_sub AS CHECKBOX DEFAULT 'X'.
PARAMETERS p_nup TYPE i DEFAULT -1.
PARAMETERS p_ndown TYPE i DEFAULT -1.
"Exclude interfaces in sap name space when found via where used analysis
PARAMETERS p_ex AS CHECKBOX DEFAULT 'X'.
PARAMETERS p_dyn TYPE string. "Classes to determine dynamic accesses
*SELECT-OPTIONS s_compsn FOR tadir-obj_name.
SELECTION-SCREEN END OF BLOCK block_selct_sap_comp.
SELECTION-SCREEN BEGIN OF BLOCK block_using_comp WITH FRAME TITLE TEXT-003.
*PARAMETERS: p_dm AS CHECKBOX DEFAULT ' '.
*"! Usages outside package grouped
*"! If false, a recursive search for using components is performed until no further using components are found
*DATA g_param_usage_outpack_groupd TYPE abap_bool.
*g_param_usage_outpack_groupd = p_dm.
SELECTION-SCREEN END OF BLOCK block_using_comp.
SELECTION-SCREEN BEGIN OF BLOCK block_infos WITH FRAME TITLE TEXT-004.
*PARAMETERS: p_list AS CHECKBOX DEFAULT ' '.
*"! List Tokens of selected programs
*DATA g_parameter_list_tokens TYPE abap_bool.
*g_parameter_list_tokens = p_list.
SELECTION-SCREEN END OF BLOCK block_infos.
" include z_mse.
******************************************** Begin Include Z_MSE_ABAP *****************************
*The MIT License (MIT)
*
*Copyright (c) 2016 Rainer Winkler, CubeServ
*
*Permission is hereby granted, free of charge, to any person obtaining a copy
*of this software and associated documentation files (the "Software"), to deal
*in the Software without restriction, including without limitation the rights
*to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
*copies of the Software, and to permit persons to whom the Software is
*furnished to do so, subject to the following conditions:
*
*The above copyright notice and this permission notice shall be included in all
*copies or substantial portions of the Software.
*
*THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
*IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
*FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
*AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
*LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
*OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
*SOFTWARE.
SELECTION-SCREEN BEGIN OF BLOCK bl_model_settings WITH FRAME TITLE TEXT-100.
PARAMETERS: p_down AS CHECKBOX DEFAULT 'X',
" Default filename
p_df TYPE string.
*"! Download model to file
*DATA g_parameter_download_file TYPE abap_bool.
*g_parameter_download_file = p_down.
SELECTION-SCREEN END OF BLOCK bl_model_settings.
" Begin Model
"! Specifies a model.
"! Create an instance only once, otherwise there will be multiple models each containing only part of the informations.
CLASS cl_model DEFINITION
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: BEGIN OF line_type,
line TYPE string,
END OF line_type.
TYPES: lines_type TYPE STANDARD TABLE OF line_type WITH DEFAULT KEY.
METHODS constructor.
"! Add a named entity
"! @parameter elementname | The name of the FAMIX Element. Like FAMIX.NamedEntity
"! @parameter name_group | optional to handle cases where names may be duplicates
"! @parameter is_named_entity | True if the entity has a name
"! @parameter is_id_required | Set true if (id: ...) is always required
"! @parameter can_be_referenced_by_name | True if referencing by name is possible (For this the name has to be unique)
"! @parameter name | the name of a FAMIX Entity that inherits from FAMIX.NamedEntity leave empty is is_named_entity is false
"! @parameter exists_already_with_id | only if can_be_referenced_by_name true. Zero if it does not yet exist, otherwise filled with id
"! @parameter processedid | the id in model either if just created or already existing
METHODS add_entity
IMPORTING elementname TYPE clike
name_group TYPE clike OPTIONAL
is_named_entity TYPE abap_bool
is_id_required TYPE abap_bool DEFAULT ''
can_be_referenced_by_name TYPE abap_bool
name TYPE clike OPTIONAL
EXPORTING VALUE(exists_already_with_id) TYPE i
VALUE(processed_id) TYPE i.
"! Generates a string with a valid MSE file
METHODS make_mse
EXPORTING
mse_model TYPE lines_type.
"! Generates an attribute of type string
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter attribute_name | the name of the attribute
"! @parameter string | The value of the attribute
METHODS add_string
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
attribute_name TYPE clike
string TYPE clike.
"! Generates an attribute of type reference using a name
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter attribute_name | the name of the attribute
"! @parameter elementname | the element type of the reference
"! @parameter name_of_reference | the reference
METHODS add_reference_by_name
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
attribute_name TYPE clike
type_of_reference TYPE clike
name_group_of_reference TYPE clike OPTIONAL
name_of_reference TYPE clike.
"! Generates an attribute of type reference using an id
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter attribute_name | the name of the attribute
"! @parameter reference_id | the id of the reference
METHODS add_reference_by_id
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
attribute_name TYPE clike
reference_id TYPE i.
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
METHODS add_boolean
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
attribute_name TYPE clike
is_true TYPE abap_bool.
" Public type so that the caller is able to test the model
TYPES:
"! A public type that returns the attributes of the model
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
BEGIN OF public_attribute_type,
attribute_id TYPE i,
attribute_type TYPE string,
string TYPE string,
reference TYPE i,
boolean TYPE abap_bool,
END OF public_attribute_type.
TYPES:
"! A public table type to contain the attributes of an element
public_attributes_type TYPE HASHED TABLE OF public_attribute_type WITH UNIQUE KEY attribute_id.
TYPES:
"! A type that contains informations on an element
BEGIN OF public_element_type,
element_id TYPE i,
element_type TYPE string,
is_named_entity TYPE abap_bool,
is_id_required TYPE abap_bool,
public_attributes TYPE public_attributes_type,
END OF public_element_type.
TYPES:
"! A public table type to contain all elements of a model
public_elements_type TYPE HASHED TABLE OF public_element_type WITH UNIQUE KEY element_id.
"! Returns the current model
"! Use for checks and to decide what further actions are done to build the model.
"! Also to give a feedback what is extracted
METHODS get_model
RETURNING VALUE(public_elements) TYPE public_elements_type.
PRIVATE SECTION.
TYPES: BEGIN OF element_in_model_type,
element_id TYPE i,
is_named_entity TYPE abap_bool,
is_id_required TYPE abap_bool,
element_type TYPE string,
END OF element_in_model_type.
"! A table with all Elements in the model
DATA g_elements_in_model TYPE HASHED TABLE OF element_in_model_type WITH UNIQUE KEY element_id.
TYPES: BEGIN OF named_entity_type,
element_type TYPE string,
element_name_group TYPE string,
element_name TYPE string,
element_id TYPE i,
END OF named_entity_type.
"! A table to find IDs using the names
DATA g_named_entities TYPE HASHED TABLE OF named_entity_type WITH UNIQUE KEY element_type element_name_group element_name.
TYPES value_type TYPE c LENGTH 1.
"! An attribute where a name is specified
CONSTANTS string_value TYPE value_type VALUE 'S'.
"! An attribute where a reference is specified
CONSTANTS reference_value TYPE value_type VALUE 'R'.
CONSTANTS boolean_value TYPE value_type VALUE 'B'.
TYPES: BEGIN OF attribute_type,
element_id TYPE i,
attribute_id TYPE i,
attribute_type TYPE string,
value_type TYPE value_type,
name TYPE string,
reference TYPE i,
boolean TYPE abap_bool,
END OF attribute_type.
"! A table with all the attributes of an entity
DATA g_attributes TYPE SORTED TABLE OF attribute_type WITH UNIQUE KEY element_id attribute_id.
"! The ID of processed entity in the model
DATA g_processed_id TYPE i.
"! The ID of any attribute. Unique together with mv_id
DATA g_attribute_id TYPE i.
"! True if attribute is already identically assigned
METHODS _check_if_attr_already_there
IMPORTING
attribute TYPE cl_model=>attribute_type
RETURNING
VALUE(already_there) TYPE abap_bool.
METHODS _get_element_id
IMPORTING
element_id TYPE i
element_type TYPE clike
element_name_group TYPE clike
element_name TYPE clike
RETURNING
VALUE(my_element_id) TYPE i.
ENDCLASS.
CLASS CL_MODEL IMPLEMENTATION.
METHOD add_boolean.
DATA ls_attribute LIKE LINE OF g_attributes. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_attribute.
ls_attribute-element_id = _get_element_id( element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name ).
ls_attribute-attribute_type = attribute_name.
ls_attribute-value_type = boolean_value.
ls_attribute-boolean = is_true.
" SAP_2_FAMIX_52 Do not attributes twice if they are added with identical attributes
IF _check_if_attr_already_there( ls_attribute ) EQ abap_false.
sy-subrc = 1.
WHILE sy-subrc <> 0.
ADD 1 TO g_attribute_id.
ls_attribute-attribute_id = g_attribute_id.
INSERT ls_attribute INTO TABLE g_attributes.
ENDWHILE.
ENDIF.
ENDMETHOD.
METHOD add_entity.
IF can_be_referenced_by_name EQ abap_true.
ASSERT name_group IS NOT INITIAL.
ENDIF.
FIELD-SYMBOLS <ls_name> LIKE LINE OF g_named_entities.
IF can_be_referenced_by_name EQ abap_true.
READ TABLE g_named_entities ASSIGNING <ls_name>
WITH TABLE KEY element_type = elementname element_name_group = name_group element_name = name.
IF sy-subrc EQ 0. "OK
exists_already_with_id = <ls_name>-element_id.
processed_id = <ls_name>-element_id.
RETURN.
ENDIF.
ENDIF.
ADD 1 TO g_processed_id.
g_attribute_id = 0.
IF can_be_referenced_by_name EQ abap_true.
DATA ls_named_entity LIKE LINE OF g_named_entities. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_named_entity.
ls_named_entity-element_type = elementname.
ls_named_entity-element_name_group = name_group.
ls_named_entity-element_name = name.
ls_named_entity-element_id = g_processed_id.
INSERT ls_named_entity INTO TABLE g_named_entities.
ENDIF.
DATA ls_elements_in_model LIKE LINE OF g_elements_in_model. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_elements_in_model.
ls_elements_in_model-element_id = g_processed_id.
ls_elements_in_model-is_named_entity = is_named_entity.
ls_elements_in_model-is_id_required = is_id_required.
ls_elements_in_model-element_type = elementname.
INSERT ls_elements_in_model INTO TABLE g_elements_in_model.
IF is_named_entity EQ abap_true.
me->add_string( EXPORTING element_id = g_processed_id attribute_name = 'name' string = name element_name_group = name_group ).
ENDIF.
processed_id = g_processed_id.
ENDMETHOD.
METHOD add_reference_by_id.
DATA ls_attribute TYPE attribute_type. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_attribute.
ls_attribute-element_id = _get_element_id( element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name ).
ls_attribute-attribute_type = attribute_name.
ls_attribute-value_type = reference_value.
ls_attribute-reference = reference_id.
" SAP_2_FAMIX_52 Do not attributes twice if they are added with identical attributes
IF _check_if_attr_already_there( ls_attribute ) EQ abap_false.
sy-subrc = 1.
WHILE sy-subrc <> 0.
ADD 1 TO g_attribute_id.
ls_attribute-attribute_id = g_attribute_id.
INSERT ls_attribute INTO TABLE g_attributes.
ENDWHILE.
ENDIF.
ENDMETHOD.
METHOD add_reference_by_name.
ASSERT name_group_of_reference IS NOT INITIAL.
FIELD-SYMBOLS <named_entity> LIKE LINE OF g_named_entities.
READ TABLE g_named_entities ASSIGNING <named_entity> WITH TABLE KEY element_type = type_of_reference
element_name_group = name_group_of_reference
element_name = name_of_reference.
* ASSERT sy-subrc EQ 0. "OK
IF sy-subrc <> 0.
ASSERT 1 = 2.
ENDIF.
DATA ls_attribute LIKE LINE OF g_attributes. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_attribute.
ls_attribute-element_id = _get_element_id( element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name ).
ls_attribute-attribute_type = attribute_name.
ls_attribute-value_type = reference_value.
ls_attribute-reference = <named_entity>-element_id.
" SAP_2_FAMIX_52 Do not attributes twice if they are added with identical attributes
IF _check_if_attr_already_there( ls_attribute ) EQ abap_false.
sy-subrc = 1.
WHILE sy-subrc <> 0.
ADD 1 TO g_attribute_id.
ls_attribute-attribute_id = g_attribute_id.
INSERT ls_attribute INTO TABLE g_attributes.
ENDWHILE.
ENDIF.
ENDMETHOD.
METHOD add_string.
DATA ls_attribute LIKE LINE OF g_attributes. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_attribute.
ls_attribute-element_id = _get_element_id( element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name ).
ls_attribute-attribute_type = attribute_name.
ls_attribute-value_type = string_value.
ls_attribute-name = string.
" SAP_2_FAMIX_52 Do not attributes twice if they are added with identical attributes
IF _check_if_attr_already_there( ls_attribute ) EQ abap_false.
sy-subrc = 1.
WHILE sy-subrc <> 0.
ADD 1 TO g_attribute_id.
ls_attribute-attribute_id = g_attribute_id.
INSERT ls_attribute INTO TABLE g_attributes.
ENDWHILE.
ENDIF.
ENDMETHOD.
METHOD constructor.
g_processed_id = 0.
ENDMETHOD.
METHOD get_model.
DATA ls_public_element TYPE public_element_type.
DATA ls_public_attribute TYPE public_attribute_type.
DATA lt_public_attributes TYPE public_attributes_type.
CLEAR public_elements.
DATA ls_elements_in_model LIKE LINE OF g_elements_in_model.
LOOP AT g_elements_in_model INTO ls_elements_in_model.
CLEAR lt_public_attributes.
DATA ls_attributes LIKE LINE OF g_attributes.
LOOP AT g_attributes INTO ls_attributes WHERE element_id = ls_elements_in_model-element_id.
CLEAR ls_public_attribute.
ls_public_attribute-attribute_id = ls_attributes-attribute_id.
ls_public_attribute-attribute_type = ls_attributes-attribute_type.
ls_public_attribute-boolean = ls_attributes-boolean.
ls_public_attribute-reference = ls_attributes-reference.
ls_public_attribute-string = ls_attributes-name.
INSERT ls_public_attribute INTO TABLE lt_public_attributes.
ENDLOOP.
CLEAR ls_public_element.
ls_public_element-element_type = ls_elements_in_model-element_type.
ls_public_element-element_id = ls_elements_in_model-element_id.
ls_public_element-is_named_entity = ls_elements_in_model-is_named_entity.
ls_public_element-is_id_required = ls_elements_in_model-is_id_required.
ls_public_element-public_attributes = lt_public_attributes.
INSERT ls_public_element INTO TABLE public_elements.
ENDLOOP.
ENDMETHOD.
METHOD make_mse.
" SAP_2_FAMIX_34 Allow to export the model in the .mse Moose format
DATA: mse_model_line TYPE line_type.
mse_model_line-line = |( |.
SORT g_elements_in_model BY element_id.
DATA is_first TYPE boolean VALUE abap_true.
FIELD-SYMBOLS <element_in_model> LIKE LINE OF g_elements_in_model.
LOOP AT g_elements_in_model ASSIGNING <element_in_model>.
IF is_first EQ abap_false.
APPEND mse_model_line TO mse_model.
CLEAR mse_model_line.
ENDIF.
mse_model_line-line = mse_model_line-line && |(| && <element_in_model>-element_type.
IF <element_in_model>-is_named_entity EQ abap_true
OR <element_in_model>-is_id_required EQ abap_true.
mse_model_line-line = mse_model_line-line && | (id: | && <element_in_model>-element_id && | )|.
ENDIF.
FIELD-SYMBOLS <attribute> LIKE LINE OF g_attributes.
LOOP AT g_attributes ASSIGNING <attribute> WHERE element_id = <element_in_model>-element_id.
APPEND mse_model_line TO mse_model.
mse_model_line-line = | (| && <attribute>-attribute_type.
ASSERT ( <attribute>-value_type EQ string_value ) OR ( <attribute>-value_type EQ reference_value ) OR ( <attribute>-value_type EQ boolean_value ).
CASE <attribute>-value_type.
WHEN string_value.
mse_model_line-line = mse_model_line-line && | '| && <attribute>-name && |')|.
WHEN reference_value.
mse_model_line-line = mse_model_line-line && | (ref: | && <attribute>-reference && |))|.
WHEN boolean_value.
ASSERT ( <attribute>-boolean EQ abap_true ) OR ( <attribute>-boolean EQ abap_false ).
CASE <attribute>-boolean.
WHEN abap_true.
mse_model_line-line = mse_model_line-line && | true)|.
WHEN abap_false.
mse_model_line-line = mse_model_line-line && | false)|.
ENDCASE.
ENDCASE.
ENDLOOP.
mse_model_line-line = mse_model_line-line && |)|.
is_first = abap_false.
ENDLOOP.
mse_model_line-line = mse_model_line-line && |)|.
APPEND mse_model_line TO mse_model.
ENDMETHOD.
METHOD _check_if_attr_already_there.
" Check if attribute is already there
DATA ls_attribute_2 TYPE attribute_type.
DATA ls_attribute_3 TYPE attribute_type.
ls_attribute_3 = attribute.
CLEAR ls_attribute_3-attribute_id.
already_there = abap_false.
LOOP AT g_attributes INTO ls_attribute_2 WHERE element_id = attribute-element_id.
CLEAR ls_attribute_2-attribute_id.
IF ls_attribute_2 EQ ls_attribute_3.
already_there = abap_true.
EXIT.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD _get_element_id.
" Get element ID
IF element_id <> 0.
my_element_id = element_id.
ELSE.
ASSERT element_name_group IS NOT INITIAL.
FIELD-SYMBOLS <element_named_entity> LIKE LINE OF g_named_entities.
READ TABLE g_named_entities ASSIGNING <element_named_entity> WITH TABLE KEY element_type = element_type
element_name_group = element_name_group
element_name = element_name.
ASSERT sy-subrc EQ 0. "OK
my_element_id = <element_named_entity>-element_id.
ENDIF.
ENDMETHOD.
ENDCLASS.
CLASS cl_output_model DEFINITION
CREATE PUBLIC.
PUBLIC SECTION.
METHODS make
IMPORTING
mse_model TYPE cl_model=>lines_type
g_parameter_download_file TYPE abap_bool
i_default_prefix TYPE string.
ENDCLASS.
CLASS CL_OUTPUT_MODEL IMPLEMENTATION.
METHOD make.
" Download the file
DATA: filename TYPE string,
default_file_name TYPE string,
pathname TYPE string,
fullpath TYPE string,
user_action TYPE i.
default_file_name = |{ i_default_prefix }_{ sy-sysid }_{ sy-datum }_{ sy-uzeit }|.
IF g_parameter_download_file EQ abap_true.
cl_gui_frontend_services=>file_save_dialog( EXPORTING default_extension = 'mse'
default_file_name = default_file_name
CHANGING filename = filename " File Name to Save
path = pathname " Path to File
fullpath = fullpath " Path + File Name
user_action = user_action ). " User Action (C Class Const ACTION_OK, ACTION_OVERWRITE etc)
IF user_action = cl_gui_frontend_services=>action_cancel.
WRITE: / 'Canceled by user'.
ELSE.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = fullpath
TABLES
data_tab = mse_model.
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
******************************************** End Include Z_MSE_ABAP *******************************
" include z_famix.
******************************************** Begin Include Z_FAMIX_ABAP ***************************
*The MIT License (MIT)
*
*Copyright (c) 2016 Rainer Winkler, CubeServ
*
*Permission is hereby granted, free of charge, to any person obtaining a copy
*of this software and associated documentation files (the "Software"), to deal
*in the Software without restriction, including without limitation the rights
*to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
*copies of the Software, and to permit persons to whom the Software is
*furnished to do so, subject to the following conditions:
*
*The above copyright notice and this permission notice shall be included in all
*copies or substantial portions of the Software.
*
*THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
*IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
*FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
*AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
*LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
*OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
*SOFTWARE.
CLASS cl_famix_entity DEFINITION ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
PROTECTED SECTION.
DATA g_elementname TYPE string.
DATA g_model TYPE REF TO cl_model.
DATA g_last_used_id TYPE i.
ENDCLASS.
CLASS CL_FAMIX_ENTITY IMPLEMENTATION.
METHOD constructor.
g_model = model.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_sourced_entity DEFINITION ABSTRACT INHERITING FROM cl_famix_entity
CREATE PUBLIC.
PUBLIC SECTION.
"! Declare source language
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter source_language_element | the FAMIX element of the source language
"! @parameter source_language_name | the name of the source language
METHODS set_declared_source_language
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
source_language_element TYPE clike
source_language_name TYPE clike.
ENDCLASS.
CLASS CL_FAMIX_SOURCED_ENTITY IMPLEMENTATION.
METHOD set_declared_source_language.
g_model->add_reference_by_name( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'declaredSourceLanguage'
type_of_reference = source_language_element
name_of_reference = source_language_name ).
ENDMETHOD.
ENDCLASS.
class CL_FAMIX_FILE_ANCHOR definition
inheriting from CL_FAMIX_ENTITY
create public .
public section.
"! Call once to create a new file anchor entiry
"! @parameter element_id | The ID of the element for which a source is specified
"! @parameter file_name | The path or link to the source
methods ADD
importing
!ELEMENT_ID type I
!FILE_NAME type CLIKE
exporting
value(ID) type I .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS CL_FAMIX_FILE_ANCHOR IMPLEMENTATION.
METHOD add.
g_model->add_entity( EXPORTING elementname = |FAMIX.FileAnchor|
name_group = |FILE_ANCHOR|
is_named_entity = abap_false
is_id_required = abap_true
can_be_referenced_by_name = abap_false
IMPORTING processed_id = id ).
g_model->add_reference_by_id( EXPORTING element_id = id
attribute_name = 'element'
reference_id = element_id ).
g_model->add_string( EXPORTING element_id = id
attribute_name = 'fileName'
string = file_name ).
g_last_used_id = id.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_named_entity DEFINITION INHERITING FROM cl_famix_sourced_entity ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
"! Call once to create a new named entity
"! @parameter exists_already_with_id | Contains the id if entry already existed.
"! @parameter id | The id in model either if just created or already existing.
"! @parameter modifiers | A list of modifiers separated by blank. This attribute is marked by an asterisk in the Moose Meta Browser, which may be the sign of this. Will be an Ordered Collection in Moose.
METHODS add
IMPORTING name_group TYPE clike OPTIONAL
name TYPE clike
modifiers TYPE clike OPTIONAL
EXPORTING VALUE(exists_already_with_id) TYPE i
VALUE(id) TYPE i.
"! Call once to set the parent package
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter parent_package | the name of an element of type FAMIX.Package
METHODS set_parent_package IMPORTING element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
parent_package TYPE clike
parent_package_name_group TYPE clike.
"! Set the container an element is in using the reference
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter container_element | the FAMIX element of the Container
"! @parameter source_anchor_id | the id of the SoureceAnchor
METHODS set_source_anchor_by_id IMPORTING element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
source_anchor_id TYPE i.
PROTECTED SECTION.
ENDCLASS.
CLASS CL_FAMIX_NAMED_ENTITY IMPLEMENTATION.
METHOD add.
" ASSERT name_group IS NOT INITIAL.
g_model->add_entity( EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_true
name_group = name_group
name = name
IMPORTING exists_already_with_id = exists_already_with_id
processed_id = id ).
IF modifiers IS SUPPLIED.
g_model->add_string( EXPORTING element_id = id
attribute_name = 'modifiers'
string = modifiers ).
ENDIF.
g_last_used_id = id.
ENDMETHOD.
METHOD set_parent_package.
g_model->add_reference_by_name( element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name type_of_reference = 'FAMIX.Package'
name_of_reference = parent_package
name_group_of_reference = parent_package_name_group
attribute_name = 'parentPackage' ).
ENDMETHOD.
METHOD set_source_anchor_by_id.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'sourceAnchor'
reference_id = source_anchor_id ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_attribute DEFINITION INHERITING FROM cl_famix_named_entity
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
"! Store the relation between class, attribute name and id in internal table to enable associations
"! Call before performing the next time the method add, because the ID is stored internally after creating an element
"! @parameter class | the class of the method
"! @parameter attribute | the attribute name
METHODS store_id
IMPORTING
name_group TYPE clike
class TYPE clike
attribute TYPE clike.
"! Returns the ID for a given attribute of a class
"! Returns 0 if the attribute is not known
"! @parameter class | the class of the attribute
"! @parameter attribute | the attribute name
"! @parameter id | the ID of the element
METHODS get_id
IMPORTING
name_group TYPE clike
class TYPE clike
attribute TYPE clike
RETURNING VALUE(id) TYPE i.
METHODS add REDEFINITION.
"! set the parent type, for instance the class the method is contained in
"! Provide either ID or type and name of element
"! For parent: provide either parent_element and parent_name or parent_id
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter parent_element | the FAMIX element of the parent Type
"! @parameter parent_name_group | the name group of the parent element
"! @parameter parent_name | the name of the parent element
"! @parameter parent_id | the id of the parent element
METHODS set_parent_type
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
parent_element TYPE clike OPTIONAL
parent_name_group TYPE clike OPTIONAL
parent_name TYPE clike OPTIONAL
parent_id TYPE i OPTIONAL.
PRIVATE SECTION.
TYPES: BEGIN OF attribute_id_type,
name_group TYPE string,
class TYPE string,
attribute TYPE string,
id TYPE i,
END OF attribute_id_type.
DATA: g_attribute_ids TYPE HASHED TABLE OF attribute_id_type WITH UNIQUE KEY name_group class attribute.
ENDCLASS.
CLASS CL_FAMIX_ATTRIBUTE IMPLEMENTATION.
METHOD add.
g_model->add_entity(
EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_false
name = name
IMPORTING processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Attribute'.
ENDMETHOD.
METHOD get_id.
FIELD-SYMBOLS <attribute_id> LIKE LINE OF g_attribute_ids.
READ TABLE g_attribute_ids ASSIGNING <attribute_id> WITH TABLE KEY name_group = name_group class = class attribute = attribute.
IF sy-subrc EQ 0. "OK
id = <attribute_id>-id.
ELSE.
id = 0.
ENDIF.
ENDMETHOD.
METHOD set_parent_type.
ASSERT ( parent_element IS SUPPLIED AND parent_name IS SUPPLIED )
OR parent_id IS SUPPLIED.
IF parent_element IS SUPPLIED AND parent_name IS SUPPLIED.
g_model->add_reference_by_name( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'parentType'
type_of_reference = parent_element
name_group_of_reference = parent_name_group
name_of_reference = parent_name ).
ELSEIF parent_id IS SUPPLIED.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'parentType'
reference_id = parent_id ).
ENDIF.
ENDMETHOD.
METHOD store_id.
DATA ls_attribute_id LIKE LINE OF g_attribute_ids. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_attribute_id.
ls_attribute_id-id = g_last_used_id.
ls_attribute_id-name_group = name_group.
ls_attribute_id-class = class.
ls_attribute_id-attribute = attribute.
INSERT ls_attribute_id INTO TABLE g_attribute_ids.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_container_entity DEFINITION INHERITING FROM cl_famix_named_entity ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
"! Set the container an element is in
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter container_element | the FAMIX element of the Container
"! @parameter parent_container | the name of the Container
METHODS set_container IMPORTING element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL container_element TYPE clike
parent_container TYPE clike
parent_container_name_group TYPE clike.
"! Set the container an element is in using the reference
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter container_element | the FAMIX element of the Container
"! @parameter parent_container_id | the id of the Container
METHODS set_container_by_id IMPORTING element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL container_element TYPE clike
parent_container_id TYPE i.
PROTECTED SECTION.
ENDCLASS.
CLASS CL_FAMIX_CONTAINER_ENTITY IMPLEMENTATION.
METHOD set_container.
g_model->add_reference_by_name( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
type_of_reference = container_element
name_of_reference = parent_container
name_group_of_reference = parent_container_name_group
attribute_name = 'container' ).
ENDMETHOD.
METHOD set_container_by_id.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'container'
reference_id = parent_container_id ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_behavioural_entty DEFINITION INHERITING FROM CL_famix_container_entity ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
"! Set the signature of a method
"! This might not be relevant for ABAP, but is contained here for completeness
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter signature | The signature like myMethod( myParameters, ...)
METHODS set_signature IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
signature TYPE clike.
ENDCLASS.
CLASS CL_FAMIX_BEHAVIOURAL_ENTTY IMPLEMENTATION.
METHOD set_signature.
g_model->add_string( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'signature'
string = signature ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_package DEFINITION INHERITING FROM cl_famix_named_entity
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
METHODS add REDEFINITION.
ENDCLASS.
CLASS CL_FAMIX_PACKAGE IMPLEMENTATION.
METHOD add.
g_model->add_entity( EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_true
name_group = name_group
name = name
IMPORTING exists_already_with_id = exists_already_with_id
processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Package'.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_method DEFINITION INHERITING FROM CL_famix_behavioural_entty
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
METHODS add REDEFINITION.
"! set the parent type, for instance the class the method is contained in
"! Provide either parent_name or parent_id
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter parent_element | the FAMIX element of the parent Type
"! @parameter parent_name_group | optional the name group of the parent element
"! @parameter parent_name | optional the name of the parent element
"! @parameter parent_id | optional the id of the parent element
METHODS set_parent_type
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
parent_element TYPE clike
parent_name_group TYPE clike OPTIONAL
parent_name TYPE clike OPTIONAL
parent_id TYPE i OPTIONAL.
"! Store the relation between class, method name and id in internal table to enable associations
"! Call before performing the next time the method add, because the ID is stored internally after creating an element
"! @parameter class_name_group | the name group of the class of the method
"! @parameter class | the class of the method
"! @parameter method_name_group | the name group of the method name
"! @parameter method | the method name
METHODS store_id
IMPORTING class_name_group TYPE clike
class TYPE clike
method_name_group TYPE clike
method TYPE clike.
"! Returns the ID for a given method of a class
"! Returns 0 if the class is not known
"! @parameter class_name_group | the name group of the class of the method
"! @parameter class | the class of the method
"! @parameter method_name_group | the name group of the method name
"! @parameter method | the method name
"! @parameter id | the ID of the element
METHODS get_id
IMPORTING class_name_group TYPE clike
class TYPE clike
method_name_group TYPE clike
method TYPE clike
RETURNING VALUE(id) TYPE i.
PRIVATE SECTION.
TYPES: BEGIN OF ty_method_id,
class_name_group TYPE string,
class TYPE string,
method_name_group TYPE string,
method TYPE string,
id TYPE i,
END OF ty_method_id.
DATA: g_method_ids TYPE HASHED TABLE OF ty_method_id WITH UNIQUE KEY class_name_group class method_name_group method.
ENDCLASS.
CLASS CL_FAMIX_METHOD IMPLEMENTATION.
METHOD add.
g_model->add_entity(
EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_false
name = name
IMPORTING processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Method'.
ENDMETHOD.
METHOD get_id.
FIELD-SYMBOLS <method_id> LIKE LINE OF g_method_ids.
READ TABLE g_method_ids ASSIGNING <method_id> WITH TABLE KEY class_name_group = class_name_group
class = class
method_name_group = method_name_group
method = method.
IF sy-subrc EQ 0. "OK
id = <method_id>-id.
ELSE.
id = 0.
ENDIF.
ENDMETHOD.
METHOD set_parent_type.
ASSERT parent_name IS SUPPLIED OR parent_id IS SUPPLIED.
IF parent_name IS SUPPLIED.
g_model->add_reference_by_name( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'parentType'
type_of_reference = parent_element
name_group_of_reference = parent_name_group
name_of_reference = parent_name ).
ELSEIF parent_id IS SUPPLIED.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'parentType'
reference_id = parent_id ).
ENDIF.
ENDMETHOD.
METHOD store_id.
DATA ls_method_id LIKE LINE OF g_method_ids. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_method_id.
ls_method_id-id = g_last_used_id.
ls_method_id-class_name_group = class_name_group.
ls_method_id-class = class.
ls_method_id-method_name_group = method_name_group.
ls_method_id-method = method.
INSERT ls_method_id INTO TABLE g_method_ids.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_class DEFINITION INHERITING FROM CL_famix_container_entity
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
"! Set if it is an interface
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
METHODS is_interface
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL .
ENDCLASS.
CLASS CL_FAMIX_CLASS IMPLEMENTATION.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Class'.
ENDMETHOD.
METHOD is_interface.
g_model->add_boolean( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'isInterface'
is_true = abap_true ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_association DEFINITION INHERITING FROM cl_famix_sourced_entity ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
METHODS add
RETURNING VALUE(id) TYPE i.
ENDCLASS.
CLASS CL_FAMIX_ASSOCIATION IMPLEMENTATION.
METHOD add.
g_model->add_entity( EXPORTING elementname = g_elementname
is_named_entity = abap_false
can_be_referenced_by_name = abap_false
IMPORTING processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_access DEFINITION INHERITING FROM CL_famix_association
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
"! Checks that accessor and variable of an access are a new access
"! @parameter accessor_id | the accessing method or function (type BehaviouralEntity)
"! @parameter variable_id | the accessed parameter, variable ... (type StructuralEntity)
METHODS is_new_access
IMPORTING
accessor_id TYPE i
variable_id TYPE i
RETURNING VALUE(is_new) TYPE abap_bool.
"! defines accessor and variable of an access
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter accessor_id | the accessing method or function (type BehaviouralEntity)
"! @parameter variable_id | the accessed parameter, variable ... (type StructuralEntity)
METHODS set_accessor_variable_relation
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
accessor_id TYPE i
variable_id TYPE i.
PRIVATE SECTION.
TYPES: BEGIN OF ty_accessor_variable_id,
accessor_id TYPE i,
variable_id TYPE i,
END OF ty_accessor_variable_id.
DATA: g_accessor_variable_ids TYPE HASHED TABLE OF ty_accessor_variable_id WITH UNIQUE KEY accessor_id variable_id.
ENDCLASS.
CLASS CL_FAMIX_ACCESS IMPLEMENTATION.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Access'.
ENDMETHOD.
METHOD is_new_access.
READ TABLE g_accessor_variable_ids TRANSPORTING NO FIELDS WITH TABLE KEY accessor_id = accessor_id variable_id = variable_id.
IF sy-subrc <> 0. "OK
is_new = abap_true.
ENDIF.
ENDMETHOD.
METHOD set_accessor_variable_relation.
DATA ls_accessor_id LIKE LINE OF g_accessor_variable_ids. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_accessor_id.
ls_accessor_id-accessor_id = accessor_id.
ls_accessor_id-variable_id = variable_id.
INSERT ls_accessor_id INTO TABLE g_accessor_variable_ids.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'accessor'
reference_id = accessor_id ).
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'variable'
reference_id = variable_id ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_invocation DEFINITION INHERITING FROM CL_famix_association
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
METHODS is_new_invocation_to_candidate
IMPORTING
sender_id TYPE i
candidates_id TYPE i
RETURNING VALUE(is_new) TYPE abap_bool.
"! defines an invocation
"! this also models standard call by functions or methods to components other than attributes
"! Us this method to reference the receiver using his id
"! Provide either ID or type and name of element
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter elemenent_type | the element type of the element (not needed if ID is provided)
"! @parameter element_name_group | the name group of the element where the ID shall be added
"! @parameter element_name | the name of the element
"! @parameter sender_id | the id of the sender or calling method or function
"! @parameter candidates_id | the id of the candidate, this is the used method or function of type BehaviouralEntity in case of method or function usage
"! @parameter receiver_id | optional the id of the receiver or called method or function
"! @parameter signature | optional a signature
"! @parameter receiver_source_code | optional a receiver source code
METHODS set_invocation_by_reference
IMPORTING
element_id TYPE i
element_type TYPE clike OPTIONAL
element_name_group TYPE clike OPTIONAL
element_name TYPE clike OPTIONAL
sender_id TYPE i
candidates_id TYPE i OPTIONAL
receiver_id TYPE i OPTIONAL
signature TYPE clike OPTIONAL
receiver_source_code TYPE clike OPTIONAL.
PRIVATE SECTION.
TYPES: BEGIN OF ty_sender_candidate,
sender_id TYPE i,
candidates_id TYPE i,
END OF ty_sender_candidate.
DATA g_sender_candidates TYPE HASHED TABLE OF ty_sender_candidate WITH UNIQUE KEY sender_id candidates_id.
ENDCLASS.
CLASS CL_FAMIX_INVOCATION IMPLEMENTATION.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Invocation'.
ENDMETHOD.
METHOD is_new_invocation_to_candidate.
READ TABLE g_sender_candidates TRANSPORTING NO FIELDS WITH TABLE KEY sender_id = sender_id candidates_id = candidates_id.
IF sy-subrc <> 0. "OK
is_new = abap_true.
ENDIF.
ENDMETHOD.
METHOD set_invocation_by_reference.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'sender'
reference_id = sender_id ).
IF candidates_id IS SUPPLIED.
DATA ls_sender_candidate LIKE LINE OF g_sender_candidates. " ABAP 7.31 use prefix ls_ to prevent shadowing after conversion
CLEAR ls_sender_candidate.
ls_sender_candidate-sender_id = sender_id.
ls_sender_candidate-candidates_id = candidates_id.
INSERT ls_sender_candidate INTO TABLE g_sender_candidates.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name attribute_name = 'candidates'
reference_id = candidates_id ).
ENDIF.
IF receiver_id IS SUPPLIED.
g_model->add_reference_by_id( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'receiver'
reference_id = receiver_id ).
ENDIF.
IF signature IS SUPPLIED.
g_model->add_string( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name
attribute_name = 'signature'
string = signature ).
ENDIF.
IF receiver_source_code IS SUPPLIED.
g_model->add_string( EXPORTING element_id = element_id
element_type = element_type
element_name_group = element_name_group
element_name = element_name attribute_name = 'receiverSourceCode'
string = receiver_source_code ).
ENDIF.
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_inheritance DEFINITION INHERITING FROM CL_famix_association
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
"! defines an inheritance
"! @parameter element_id | the ID of the element where the ID shall be added
"! @parameter subclass_element | the FAMIX element of the subclass Type
"! @parameter subclass_name_group | the name group of the subclass
"! @parameter subclass_name | the name of the subclass
"! @parameter superclass_element | the FAMIX element of the subclass Type
"! @parameter superclass_name_group | the name group
"! @parameter superclass_name | the name of the subclass of the superclass
METHODS set_sub_and_super_class
IMPORTING
element_id TYPE i
subclass_element TYPE clike
subclass_name_group TYPE clike
subclass_name TYPE clike
superclass_element TYPE clike
superclass_name_group TYPE clike
superclass_name TYPE clike.
ENDCLASS.
CLASS CL_FAMIX_INHERITANCE IMPLEMENTATION.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Inheritance'.
ENDMETHOD.
METHOD set_sub_and_super_class.
g_model->add_reference_by_name( EXPORTING element_id = element_id
attribute_name = 'subclass'
type_of_reference = subclass_element
name_group_of_reference = subclass_name_group
name_of_reference = subclass_name ).
g_model->add_reference_by_name( EXPORTING element_id = element_id
attribute_name = 'superclass'
type_of_reference = superclass_element
name_group_of_reference = superclass_name_group
name_of_reference = superclass_name ).
ENDMETHOD.
ENDCLASS.
CLASS cl_famix_custom_source_lng DEFINITION INHERITING FROM cl_famix_entity
CREATE PUBLIC.
PUBLIC SECTION.
"! @parameter exists_already_with_id | contains the id if entry already existed
METHODS add IMPORTING name TYPE clike
name_group TYPE clike
EXPORTING VALUE(exists_already_with_id) TYPE i
VALUE(id) TYPE i.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
ENDCLASS.
CLASS CL_FAMIX_CUSTOM_SOURCE_LNG IMPLEMENTATION.
METHOD add.
g_model->add_entity( EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_true
name = name
name_group = name_group
IMPORTING exists_already_with_id = exists_already_with_id
processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.CustomSourceLanguage'.
ENDMETHOD.
ENDCLASS.
" Obsolete:
CLASS cl_famix_module DEFINITION INHERITING FROM cl_famix_named_entity
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor IMPORTING model TYPE REF TO cl_model.
METHODS add REDEFINITION.
ENDCLASS.
CLASS CL_FAMIX_MODULE IMPLEMENTATION.
METHOD add.
g_model->add_entity( EXPORTING elementname = g_elementname
is_named_entity = abap_true
can_be_referenced_by_name = abap_true
name = name
name_group = name_group
IMPORTING exists_already_with_id = exists_already_with_id
processed_id = id ).
g_last_used_id = id.
ENDMETHOD.
METHOD constructor.
CALL METHOD super->constructor( model ).
g_elementname = 'FAMIX.Module'.
ENDMETHOD.
ENDCLASS.
******************************************** End Include Z_FAMIX_ABAP *****************************
CLASS CL_EXTR3_ACCESS_OR_INVOCATN DEFINITION DEFERRED.
CLASS CL_EXTR3_ASSOCIATION DEFINITION DEFERRED.
CLASS CL_EXTR3_MODEL_BUILDER DEFINITION DEFERRED.
CLASS CL_EXTR3_ELEMENTS DEFINITION DEFERRED.
"! I know all elements and associations between elements that are currently known.
"! I provide general methods to add new elements and associations between elements.
CLASS cl_extr3_element_manager DEFINITION
.
PUBLIC SECTION.
DATA model TYPE REF TO cl_model.
DATA famix_package TYPE REF TO cl_famix_package.
DATA famix_class TYPE REF TO cl_famix_class.
DATA famix_method TYPE REF TO cl_famix_method.
DATA famix_attribute TYPE REF TO cl_famix_attribute.
DATA famix_invocation TYPE REF TO cl_famix_invocation.
DATA famix_access TYPE REF TO cl_famix_access.
data famix_file_anchor TYPE REF TO cl_famix_file_anchor.
DATA exclude_found_sap_intf TYPE abap_bool READ-ONLY.
"! A unique identifier for each object extracted
TYPES element_id_type TYPE i.
TYPES: BEGIN OF association_type,
element_id1 TYPE element_id_type,
element_id2 TYPE element_id_type,
ass_type TYPE c LENGTH 30, "To prevent problem with local classes, better would be: cl_extr3_association=>ass_type,
association TYPE REF TO cl_extr3_association,
END OF association_type.
TYPES associations_type TYPE STANDARD TABLE OF association_type WITH KEY element_id1 element_id2 ass_type association.
METHODS constructor
IMPORTING i_model_builder TYPE REF TO cl_extr3_model_builder
i_exclude_found_sap_intf TYPE abap_bool.
"! Call if an element might be added.
"! Add the element if it is not already part of the model.
METHODS add_element
IMPORTING
element TYPE REF TO cl_extr3_elements
is_specific TYPE abap_bool
RETURNING VALUE(element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS add_association
IMPORTING
element_1 TYPE element_id_type
element_2 TYPE element_id_type
association TYPE REF TO cl_extr3_association.
"! Call so that the classes that contain the collected elements determine further informations that are required for the model.
METHODS collect_infos
IMPORTING
sysid TYPE string OPTIONAL.
"! Call to build the mse model
METHODS make_model
RETURNING
VALUE(r_result) TYPE cl_model=>lines_type.
METHODS get_element
IMPORTING
i_element_id TYPE element_id_type
RETURNING
VALUE(r_result) TYPE REF TO cl_extr3_elements.
METHODS get_associations
IMPORTING
i_element_id TYPE element_id_type
RETURNING VALUE(associations) TYPE associations_type.
DATA model_builder TYPE REF TO cl_extr3_model_builder.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF element_type,
element_id TYPE element_id_type,
"! A reference to the instance that handles this object
element TYPE REF TO cl_extr3_elements,
END OF element_type.
TYPES elements_type TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements TYPE elements_type.
TYPES associations1_type TYPE SORTED TABLE OF association_type WITH UNIQUE KEY element_id1 element_id2 ass_type.
TYPES associations2_type TYPE SORTED TABLE OF association_type WITH UNIQUE KEY element_id2 element_id1 ass_type.
DATA associations1 TYPE associations1_type.
DATA associations2 TYPE associations2_type.
DATA next_element_id TYPE i.
ENDCLASS.
"! I am the top superclass for all classes that require the element manager.
CLASS cl_extr3 DEFINITION
CREATE PROTECTED .
PUBLIC SECTION.
"! Call once to clear all global variables. This is required before an extraction is repeated
CLASS-METHODS clear_all.
CONSTANTS: ng_source_language TYPE string VALUE 'SOURCE_LANGUAGE',
ng_abap_package TYPE string VALUE 'ABAP_PACKAGE',
ng_abap_class TYPE string VALUE 'ABAP_CLASS',
ng_abap_method TYPE string VALUE 'ABAP_METHOD',
ng_abap_program TYPE string VALUE 'ABAP_PROGRAM',
ng_abap_webdynpro TYPE string VALUE 'ABAP_WEBDYNPRO',
ng_sap_table TYPE string VALUE 'SAP_TABLE'.
PROTECTED SECTION.
DATA element_manager TYPE REF TO cl_extr3_element_manager.
METHODS constructor
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager.
PRIVATE SECTION.
ENDCLASS.
"! I describe an association between elements.
"! I have sub classes that specify concrete types of associations.
CLASS cl_extr3_association DEFINITION
INHERITING FROM cl_extr3.
PUBLIC SECTION.
types ass_type TYPE c LENGTH 30.
DATA type TYPE ass_type READ-ONLY.
CONSTANTS: parent_package_ass LIKE type VALUE 'parent_package',
access_ass LIKE type VALUE 'access',
invocation_ass LIKE type VALUE 'invocation'.
METHODS make_model
IMPORTING
association TYPE cl_extr3_element_manager=>association_type.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS cl_extr3_access_or_invocatn DEFINITION
INHERITING FROM cl_extr3_association
CREATE PUBLIC .
PUBLIC SECTION.
PROTECTED SECTION.
METHODS _get_famix_id_used_and_using
IMPORTING
i_association TYPE cl_extr3_element_manager=>association_type
EXPORTING
e_using_method_id TYPE i
e_used_id TYPE i.
PRIVATE SECTION.
ENDCLASS.
CLASS cl_extr3_access DEFINITION
INHERITING FROM cl_extr3_access_or_invocatn
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING VALUE(r_instance) TYPE REF TO cl_extr3_access.
METHODS add
IMPORTING
accessed_element_id1 TYPE cl_extr3_element_manager=>element_id_type
accessing_element_id2 TYPE cl_extr3_element_manager=>element_id_type.
METHODS make_model REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_access.
TYPES: BEGIN OF association_type,
accessed_element_id1 TYPE cl_extr3_element_manager=>element_id_type,
accessing_element_id2 TYPE cl_extr3_element_manager=>element_id_type,
END OF association_type.
TYPES associations_type TYPE STANDARD TABLE OF association_type WITH DEFAULT KEY.
DATA associations TYPE HASHED TABLE OF association_type WITH UNIQUE KEY accessed_element_id1 accessing_element_id2.
ENDCLASS.
"! I am the abstract super class of all elements.
"! My subclasses know the details of elements.
CLASS cl_extr3_elements DEFINITION
INHERITING FROM cl_extr3.
PUBLIC SECTION.
"! True if further informations are collected
DATA infos_are_collected TYPE abap_bool.
"! Collect further informations
METHODS collect_infos IMPORTING sysid TYPE string.
DATA type TYPE c LENGTH 30.
CONSTANTS: package_type LIKE type VALUE 'package',
table_type LIKE type VALUE 'table',
class_type LIKE type VALUE 'class',
program_type LIKE type VALUE 'program',
web_dynpro_comps_type LIKE type VALUE 'web_dynpro_components'.
METHODS make_model
IMPORTING
element_id TYPE cl_extr3_element_manager=>element_id_type
associations TYPE cl_extr3_element_manager=>associations_type.
METHODS name
IMPORTING
element_id TYPE cl_extr3_element_manager=>element_id_type
EXPORTING
element_type TYPE string
parent_name TYPE string
name TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS cl_extr3_invocation DEFINITION
INHERITING FROM cl_extr3_access_or_invocatn
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING VALUE(r_instance) TYPE REF TO cl_extr3_invocation.
METHODS add
IMPORTING
invoced_element_id1 TYPE cl_extr3_element_manager=>element_id_type
invocing_element_id2 TYPE cl_extr3_element_manager=>element_id_type.
METHODS make_model REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_invocation.
TYPES: BEGIN OF association_type,
invoced_element_id1 TYPE cl_extr3_element_manager=>element_id_type,
invocing_element_id2 TYPE cl_extr3_element_manager=>element_id_type,
END OF association_type.
TYPES associations_type TYPE STANDARD TABLE OF association_type WITH DEFAULT KEY.
DATA associations TYPE HASHED TABLE OF association_type WITH UNIQUE KEY invoced_element_id1 invocing_element_id2.
ENDCLASS.
CLASS cl_extr3_parent_package DEFINITION
INHERITING FROM cl_extr3_association
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING VALUE(r_instance) TYPE REF TO cl_extr3_parent_package.
METHODS add
IMPORTING
element_id TYPE cl_extr3_element_manager=>element_id_type
parent_element_id TYPE cl_extr3_element_manager=>element_id_type.
METHODS make_model REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_parent_package.
TYPES: BEGIN OF association_type,
element_id1 TYPE cl_extr3_element_manager=>element_id_type,
element_id2 TYPE cl_extr3_element_manager=>element_id_type,
END OF association_type.
TYPES associations_type TYPE STANDARD TABLE OF association_type WITH DEFAULT KEY.
DATA associations TYPE HASHED TABLE OF association_type WITH UNIQUE KEY element_id1 element_id2.
ENDCLASS.
"! I know how to build required associations
"! I have subclasses with concrete specifications that are used to find or build concrete associations.
CLASS cl_extr3_association_build DEFINITION
INHERITING FROM cl_extr3.
PUBLIC SECTION.
METHODS search_down
IMPORTING
element_id TYPE cl_extr3_element_manager=>element_id_type.
METHODS search_up
IMPORTING
element_id TYPE cl_extr3_element_manager=>element_id_type.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS cl_extr3_classes DEFINITION
INHERITING FROM cl_extr3_elements
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS: is_class_type TYPE seoclstype VALUE 0,
interface_type TYPE seoclstype VALUE 1,
attribute_type TYPE seocmptype VALUE 0,
method_type TYPE seocmptype VALUE 1,
event_type TYPE seocmptype VALUE 2.
TYPES: BEGIN OF ty_class_component,
clsname TYPE string,
cmpname TYPE string,
cmptype TYPE seocmptype,
mtdtype TYPE seomtdtype,
END OF ty_class_component.
TYPES ty_class_components TYPE STANDARD TABLE OF ty_class_component WITH KEY clsname cmpname.
DATA: class_components TYPE ty_class_components.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
element_manager TYPE REF TO cl_extr3_element_manager
RETURNING
VALUE(r_instance) TYPE REF TO cl_extr3_classes.
METHODS add
IMPORTING
class TYPE string
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type
VALUE(class_components) TYPE ty_class_components.
METHODS add_component
IMPORTING
clsname TYPE string
cmpname TYPE string
is_specific TYPE abap_bool
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS class_name
IMPORTING
element_id TYPE i
EXPORTING
VALUE(class_name) TYPE string
VALUE(clstype) TYPE seoclstype
VALUE(exists) TYPE abap_bool.
METHODS comp_name
IMPORTING
element_id TYPE i
EXPORTING
VALUE(class_name) TYPE string
VALUE(cmpname) TYPE string
VALUE(cmptype) TYPE seocmptype
VALUE(exists) TYPE abap_bool.
METHODS is_redefinition_of_method
IMPORTING
invoced_element_id1 TYPE i
invocing_element_id2 TYPE i
RETURNING
VALUE(r_result) TYPE abap_bool.
METHODS make_model REDEFINITION.
METHODS name REDEFINITION.
METHODS collect_infos REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_classes.
TYPES: BEGIN OF element_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
class_name TYPE string,
clstype TYPE seoclstype,
adt_link TYPE string,
END OF element_type.
DATA elements_element_id TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements_class_name TYPE HASHED TABLE OF element_type WITH UNIQUE KEY class_name.
TYPES: BEGIN OF element_comp_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
clsname TYPE string,
cmpname TYPE string,
cmptype TYPE seocmptype,
mtdtype TYPE seomtdtype,
adt_link TYPE string,
END OF element_comp_type.
DATA elements_comp_element_id TYPE HASHED TABLE OF element_comp_type WITH UNIQUE KEY element_id.
DATA elements_comp_clsname_cmpname TYPE SORTED TABLE OF element_comp_type WITH UNIQUE KEY clsname cmpname.
TYPES: BEGIN OF element_metarel_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
refclsname TYPE string,
reltype TYPE seoreltype,
END OF element_metarel_type.
DATA elements_metarel_element_id TYPE HASHED TABLE OF element_metarel_type WITH UNIQUE KEY element_id.
DATA elements_metarel_refclsname TYPE HASHED TABLE OF element_metarel_type WITH UNIQUE KEY refclsname.
TYPES: BEGIN OF redefined_type,
clsname TYPE seoclsname,
refclsname TYPE seoclsname,
mtdname TYPE seocpdname,
END OF redefined_type.
TYPES: BEGIN OF redefined_method_type,
clsname TYPE seoclsname,
defined_in_clsname TYPE seoclsname,
method TYPE seocpdname,
END OF redefined_method_type.
DATA redefined_methods TYPE HASHED TABLE OF redefined_method_type WITH UNIQUE KEY method clsname defined_in_clsname.
METHODS _add_component
IMPORTING
clsname TYPE string
cmpname TYPE string
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(is_added_now) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS _add_metarel
IMPORTING
clsname TYPE string.
"! Call me only after checking that the component to be added is not already added.
METHODS _add_single_component_to_class
IMPORTING
i_found_class_name TYPE string
i_found_cmpname TYPE string
i_found_cmptype TYPE seocmptype
i_found_mtdtype TYPE seomtdtype
RETURNING
VALUE(r_new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS _get_redefined
IMPORTING
class TYPE string
RETURNING
VALUE(r_result) TYPE cl_extr3_classes=>ty_class_components.
ENDCLASS.
"! I describe an element of type package
CLASS cl_extr3_packages DEFINITION
INHERITING FROM cl_extr3_elements
CREATE PRIVATE
.
PUBLIC SECTION.
TYPES:
ty_s_pack TYPE RANGE OF tadir-devclass.
TYPES: BEGIN OF ty_package,
package TYPE devclass,
parentpackage TYPE parentcl,
END OF ty_package.
TYPES ty_packages TYPE HASHED TABLE OF ty_package WITH UNIQUE KEY package.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING VALUE(r_instance) TYPE REF TO cl_extr3_packages.
METHODS add
IMPORTING package TYPE devclass
EXPORTING VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS devclass
IMPORTING
i_element_id TYPE i
RETURNING
VALUE(r_result) TYPE devclass.
METHODS make_model REDEFINITION.
METHODS name REDEFINITION.
METHODS collect_infos REDEFINITION.
PROTECTED SECTION.
METHODS _does_package_exists
IMPORTING
i_package TYPE devclass
RETURNING
VALUE(exists) TYPE abap_bool.
PRIVATE SECTION.
TYPES: BEGIN OF element_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
devclass TYPE devclass,
END OF element_type.
CLASS-DATA instance TYPE REF TO cl_extr3_packages.
DATA elements_element_id TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements_devclass TYPE HASHED TABLE OF element_type WITH UNIQUE KEY devclass.
ENDCLASS.
CLASS cl_extr3_programs DEFINITION
INHERITING FROM cl_extr3_elements
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING
VALUE(r_instance) TYPE REF TO cl_extr3_programs.
CONSTANTS: type_function TYPE string VALUE 'FUNCTION',
type_function_include TYPE string VALUE 'FUNCTION_INCLUDE',
type_program TYPE string VALUE 'PROGRAM',
type_bw_transformation TYPE string VALUE 'BW_TRAN'.
METHODS add
IMPORTING
program TYPE progname
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS program_name
IMPORTING
i_element_id TYPE i
EXPORTING
VALUE(program_type) TYPE string
VALUE(program) TYPE progname
VALUE(external_program_name_class) TYPE string
VALUE(external_program_name_method) TYPE string
value(program_attribute_2) TYPE string
VALUE(subc) TYPE subc.
METHODS make_model REDEFINITION.
METHODS name REDEFINITION.
METHODS collect_infos REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_programs.
TYPES: BEGIN OF element_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
program TYPE progname,
external_program_name TYPE string,
subc TYPE subc,
program_type TYPE string,
program_attribute_1 TYPE string,
program_attribute_2 TYPE string,
adt_or_bwmt_link TYPE string,
END OF element_type.
DATA elements_element_id TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements_program TYPE HASHED TABLE OF element_type WITH UNIQUE KEY program.
METHODS _convert_program_2_ext_name
IMPORTING
i_element_program TYPE progname
EXPORTING
program_type TYPE string
program_attribute_1 TYPE string
program_attribute_2 TYPE string
VALUE(r_result) TYPE string.
METHODS _extract_function_name
IMPORTING
i_element_program TYPE progname
EXPORTING
function_group TYPE rs38l_area
function TYPE rs38l_fnam
function_include TYPE string
VALUE(r_result) TYPE string.
METHODS _extract_sap_bw_logic
IMPORTING
i_element_program TYPE progname
EXPORTING
tranid TYPE rstranid
VALUE(r_result) TYPE string.
METHODS _get_names_for_function_groups
IMPORTING
i_element TYPE cl_extr3_programs=>element_type
RETURNING
VALUE(name_of_mapped_class) TYPE string.
ENDCLASS.
"! I describe elements of type table
CLASS cl_extr3_tables DEFINITION
INHERITING FROM cl_extr3_elements
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager
RETURNING
VALUE(r_instance) TYPE REF TO cl_extr3_tables.
METHODS add
IMPORTING
table TYPE string
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS table_name
IMPORTING
i_element_id TYPE i
RETURNING
VALUE(r_result) TYPE tabname.
METHODS make_model REDEFINITION.
METHODS name REDEFINITION.
METHODS collect_infos REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_tables.
TYPES: BEGIN OF element_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
tabname TYPE tabname,
END OF element_type.
DATA elements_element_id TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements_tabname TYPE HASHED TABLE OF element_type WITH UNIQUE KEY tabname.
ENDCLASS.
CLASS cl_extr3_web_dynpro_comp DEFINITION
INHERITING FROM cl_extr3_elements
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS clear.
CLASS-METHODS get_instance
IMPORTING
element_manager TYPE REF TO cl_extr3_element_manager
RETURNING
VALUE(r_instance) TYPE REF TO cl_extr3_web_dynpro_comp.
METHODS add
IMPORTING
wdy_component_name TYPE wdy_component_name
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS add_component
IMPORTING
wdy_component_name TYPE wdy_component_name
wdy_controller_name TYPE wdy_controller_name
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
METHODS wdy_component_name
IMPORTING
element_id TYPE i
EXPORTING
VALUE(wdy_component_name) TYPE wdy_component_name.
METHODS wdy_controller_name
IMPORTING
element_id TYPE i
EXPORTING
VALUE(wdy_component_name) TYPE wdy_component_name
VALUE(wdy_controller_name) TYPE wdy_controller_name.
METHODS make_model REDEFINITION.
METHODS name REDEFINITION.
METHODS collect_infos REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA instance TYPE REF TO cl_extr3_web_dynpro_comp.
TYPES: BEGIN OF element_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
wdy_component_name TYPE wdy_component_name,
END OF element_type.
DATA elements_element_id TYPE HASHED TABLE OF element_type WITH UNIQUE KEY element_id.
DATA elements_wdy_component_name TYPE HASHED TABLE OF element_type WITH UNIQUE KEY wdy_component_name.
TYPES: BEGIN OF element_comp_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
wdy_component_name TYPE wdy_component_name,
wdy_controller_name TYPE wdy_controller_name,
END OF element_comp_type.
DATA elements_comp_element_id TYPE HASHED TABLE OF element_comp_type WITH UNIQUE KEY element_id.
DATA elements_comp_comp_contr_name TYPE HASHED TABLE OF element_comp_type WITH UNIQUE KEY wdy_component_name wdy_controller_name.
METHODS _add_component
IMPORTING
wdy_component_name TYPE wdy_component_name
wdy_controller_name TYPE wdy_controller_name
EXPORTING
VALUE(is_added) TYPE abap_bool
VALUE(new_element_id) TYPE cl_extr3_element_manager=>element_id_type.
ENDCLASS.
CLASS cl_extr3_tadir_builder DEFINITION
INHERITING FROM cl_extr3_association_build
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
i_element_manager TYPE REF TO cl_extr3_element_manager.
METHODS search_down REDEFINITION.
METHODS search_up REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
DATA: tables TYPE REF TO cl_extr3_tables,
classes TYPE REF TO cl_extr3_classes,
programs TYPE REF TO cl_extr3_programs,
web_dynpro_components TYPE REF TO cl_extr3_web_dynpro_comp,
parent_package TYPE REF TO cl_extr3_parent_package.
ENDCLASS.
CLASS cl_extr3_where_used_builder DEFINITION
INHERITING FROM cl_extr3_association_build
CREATE PUBLIC .
PUBLIC SECTION.
METHODS set_dynamic_read
IMPORTING
!i_dynamic_read TYPE string OPTIONAL .
METHODS search_down
REDEFINITION .
METHODS search_up
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF wbcrossgt_type,
otype TYPE char2,
name TYPE eu_lname,
include TYPE programm,
direct TYPE sgrade,
indirect TYPE sgrade,
END OF wbcrossgt_type ,
wbcrossgts_type TYPE SORTED TABLE OF wbcrossgt_type WITH UNIQUE KEY otype name include,
BEGIN OF cross_type,
type TYPE char1,
name TYPE seu_name,
include TYPE syrepid,
END OF cross_type,
cross_types TYPE STANDARD TABLE OF cross_type WITH DEFAULT KEY.
DATA: g_dynamic_usage TYPE SORTED TABLE OF wbcrossgt WITH UNIQUE KEY otype name include.
ENDCLASS.
"! I build all initial elements that are the starting point for searching further elements.
CLASS cl_extr3_initial_elements DEFINITION
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: BEGIN OF ty_package,
package TYPE devclass,
parentpackage TYPE parentcl,
END OF ty_package.
TYPES ty_packages TYPE HASHED TABLE OF ty_package WITH UNIQUE KEY package.
TYPES: ty_s_pack TYPE RANGE OF tadir-devclass .
TYPES:
BEGIN OF ty_tdevc_test,
devclass TYPE devclass,
parentcl TYPE parentcl,
END OF ty_tdevc_test.
TYPES ty_t_tdevc_test TYPE HASHED TABLE OF ty_tdevc_test WITH UNIQUE KEY devclass.
METHODS select_packages
IMPORTING
!top_packages TYPE ty_s_pack
!sub_packages_filter TYPE ty_s_pack OPTIONAL
!including_sub_packages TYPE abap_bool DEFAULT abap_false.
TYPES: ty_filter TYPE string.
METHODS select_specific
IMPORTING
model_builder TYPE REF TO cl_extr3_model_builder
element_manager TYPE REF TO cl_extr3_element_manager
i_element_type_filter TYPE ty_filter
i_parent_name_filter TYPE ty_filter
i_name_filter TYPE ty_filter.
METHODS get_selected
RETURNING VALUE(r_packages) TYPE ty_packages.
"! @parameter tdevc_test | provide test data for table TDEVC during unit tests.
METHODS constructor
IMPORTING
!tdevc_test TYPE ty_t_tdevc_test OPTIONAL.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF ty_package_store,
package TYPE devclass,
parentpackage TYPE parentcl,
subclass_searched TYPE abap_bool,
is_to_be_returned TYPE abap_bool,
END OF ty_package_store.
TYPES ty_packages_store TYPE HASHED TABLE OF ty_package_store WITH UNIQUE KEY package.
DATA g_selected_packages TYPE ty_packages.
"! Select packages according to filter transfered by report
"! @parameter top_packages | Select packages
"! @parameter sub_packages_filter | Optional: Include sub packages only if they are filtered by this filter
"! @parameter including_sub_packages | Default false: Search sub packages
"! Filled during tests
DATA g_tdevc_test TYPE ty_t_tdevc_test.
DATA g_is_test TYPE abap_bool.
METHODS _select_top_packages
IMPORTING
i_top_packages TYPE cl_extr3_packages=>ty_s_pack
RETURNING
VALUE(r_packages) TYPE cl_extr3_packages=>ty_packages.
TYPES:
ty_packages_to_search_sub TYPE HASHED TABLE OF ty_package WITH UNIQUE KEY package.
METHODS _select_sub_packages
IMPORTING
i_packages_to_search_sub TYPE ty_packages_to_search_sub
RETURNING
VALUE(r_packages) TYPE cl_extr3_packages=>ty_packages.
ENDCLASS.
"! I know the level where an element was added to the model.
"! I know whether it was found in upward or downward search.
CLASS cl_extr3_model_builder DEFINITION
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: BEGIN OF found_element_type,
where TYPE c LENGTH 1,
level TYPE i,
"! Not zero in case an element is found in up and down search. If filled this is the level for downsearch
alternate_level TYPE i,
element_type TYPE string,
parent_name TYPE string,
name TYPE string,
specific TYPE abap_bool,
up_search_done TYPE abap_bool,
down_search_done TYPE abap_bool,
END OF found_element_type.
TYPES: found_elements_type TYPE STANDARD TABLE OF found_element_type.
METHODS search
IMPORTING
i_search_up TYPE i
i_search_down TYPE i.
"! I am called once to notify that the initial selection of elements is started.
"! All elements added to the model before my method search is called belong to the level 0
METHODS initial_selection_started.
"! Called whenever a new element ID was added to the model.
"! @parameters i_is_specific | set to true if the element is added due to a specific search. It is for instance to be false, if all components of a class are added.
METHODS new_element_id
IMPORTING
i_element_id TYPE i
i_is_specific TYPE abap_bool.
METHODS initialize
IMPORTING i_element_manager TYPE REF TO cl_extr3_element_manager
i_dynamic_read TYPE string OPTIONAL.
METHODS write_found_elements
IMPORTING
write TYPE abap_bool OPTIONAL
EXPORTING
fes TYPE found_elements_type.
METHODS usage_of_single_element.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF found_in_level_type,
element_id TYPE cl_extr3_element_manager=>element_id_type,
"! A flag to mark all elements that are part of the initial selection
found_in_initial_selection TYPE abap_bool,
"! Elements that where added when the main search is finished
found_in_post_selection TYPE abap_bool,
"! Marks that an initially selected element is analyzed for lower and higher levels as requested
initially_selected_analyzed TYPE abap_bool,
"! The level where an element is first found. Needed to stop searching as specified.
"! Also required to determine whether an upward or downward search will be done.
found_in_level_upsearch TYPE i,
found_in_level_downsearch TYPE i,
"! Used to analyze usages of a single element.
"! Marks an element that is specifically marked.
"! In case a specific search is done, only elements with this flag are used for an where used analysis
specific TYPE abap_bool,
END OF found_in_level_type.
TYPES found_in_levels_type TYPE HASHED TABLE OF found_in_level_type WITH UNIQUE KEY element_id.
DATA: found_in_levels TYPE found_in_levels_type,
is_initial_selection TYPE abap_bool,
is_up_search TYPE abap_bool,
"! Add newly found elements during upsearch in this level
level_for_found_in_upsearch TYPE i,
is_down_search TYPE abap_bool,
"! Add newly found elements during downsearch in this level
level_for_found_in_downsearch TYPE i,
is_post_selection TYPE abap_bool.
TYPES: BEGIN OF builder_type,
association_builder TYPE REF TO cl_extr3_association_build,
END OF builder_type.
DATA element_manager TYPE REF TO cl_extr3_element_manager.
"! Use for initial search
DATA association_builders_init TYPE STANDARD TABLE OF builder_type.
"! Use for final search
DATA association_builders_post TYPE STANDARD TABLE OF builder_type.
"! Use for search
DATA association_builders TYPE STANDARD TABLE OF builder_type.
DATA: tadir_builder TYPE REF TO cl_extr3_tadir_builder,
where_used_builder TYPE REF TO cl_extr3_where_used_builder.
"! A single element is analyzed of usage and using
DATA is_usage_of_single_element TYPE abap_bool.
ENDCLASS.
"! I am the starting point for an extraction. I am called from the main report.
CLASS cl_extract3 DEFINITION
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: ty_s_pack TYPE RANGE OF tadir-devclass .
TYPES: ty_string_range TYPE RANGE OF char45.
CONSTANTS modifier_abapglobalclass TYPE string VALUE 'ABAPGlobalClass' ##NO_TEXT.
CONSTANTS modifier_abapglobalinterface TYPE string VALUE 'ABAPGlobalInterface' ##NO_TEXT.
CONSTANTS modifier_webdynpro_component TYPE string VALUE 'ABAPWebDynproComponent'.
CONSTANTS modifier_dbtable TYPE string VALUE 'DBTable' ##NO_TEXT.
CONSTANTS modifier_program TYPE string VALUE 'ABAPProgram' ##NO_TEXT.
CONSTANTS modifier_function_group TYPE string VALUE 'ABAPFunktionGroup' ##NO_TEXT.
CONSTANTS modifier_BW_TRANSFORMATION TYPE string VALUE 'BWTransformation' ##NO_TEXT.
CONSTANTS modifier_unknown TYPE string VALUE 'UNKNOWN' ##NO_TEXT.
METHODS constructor.
"! Main start to do the extraction
"! @parameter i_search_up | how often is a upward searched in the where-used-information to be repeated. Search infinite if < 0
"! @parameter i_exclude_found_sap_intf | exclude found interfaces in SAP namespace in the where-used analysis
METHODS extract
IMPORTING
model_builder TYPE REF TO cl_extr3_model_builder
element_manager TYPE REF TO cl_extr3_element_manager
!initial_elements TYPE REF TO cl_extr3_initial_elements
i_search_up TYPE i
i_search_down TYPE i
i_exclude_found_sap_intf TYPE abap_bool
EXPORTING
!mse_model TYPE cl_model=>lines_type
VALUE(nothing_done) TYPE abap_bool .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS CL_EXTR3_ACCESS IMPLEMENTATION.
METHOD add.
DATA association TYPE association_type.
association-accessed_element_id1 = accessed_element_id1.
association-accessing_element_id2 = accessing_element_id2.
INSERT association INTO TABLE associations.
element_manager->add_association( EXPORTING element_1 = association-accessed_element_id1
element_2 = association-accessing_element_id2
association = me ).
ENDMETHOD.
METHOD clear.
CLEAR instance.
ENDMETHOD.
METHOD get_instance.
IF instance IS NOT BOUND.
CREATE OBJECT instance
EXPORTING
i_element_manager = i_element_manager.
ENDIF.
instance->type = access_ass..
r_instance = instance.
ENDMETHOD.
METHOD make_model.
DATA using_method_id TYPE i.
DATA used_id TYPE i.
_get_famix_id_used_and_using( EXPORTING i_association = association
IMPORTING e_using_method_id = using_method_id
e_used_id = used_id ).
ASSERT using_method_id IS NOT INITIAL.
ASSERT used_id IS NOT INITIAL.
DATA last_id2 TYPE i.
last_id2 = element_manager->famix_access->add( ).
element_manager->famix_access->set_accessor_variable_relation( EXPORTING element_id = last_id2
accessor_id = using_method_id
variable_id = used_id ).
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_ACCESS_OR_INVOCATN IMPLEMENTATION.
METHOD _get_famix_id_used_and_using.
DATA: invoced_element TYPE REF TO cl_extr3_elements,
invocing_element TYPE REF TO cl_extr3_elements.
DATA used_id TYPE i.
invoced_element = element_manager->get_element( i_element_id = i_association-element_id1 ).
invocing_element = element_manager->get_element( i_element_id = i_association-element_id2 ).
CASE invoced_element->type.
WHEN invoced_element->class_type.
DATA classes TYPE REF TO cl_extr3_classes.
DATA: invoced_class_name TYPE string,
invoced_cmpname TYPE string,
invoced_cmptype TYPE seocmptype.
classes = cl_extr3_classes=>get_instance( element_manager = element_manager ).
classes->comp_name( EXPORTING element_id = i_association-element_id1
IMPORTING class_name = invoced_class_name
cmpname = invoced_cmpname
cmptype = invoced_cmptype ).
CASE invoced_cmptype.
WHEN classes->attribute_type.
e_used_id = element_manager->famix_attribute->get_id( name_group = ng_abap_class
class = invoced_class_name
attribute = invoced_cmpname ).
WHEN classes->method_type OR classes->event_type.
e_used_id = element_manager->famix_method->get_id( class_name_group = ng_abap_class
class = invoced_class_name
method_name_group = ng_abap_method
method = invoced_cmpname ).
ENDCASE.
WHEN invoced_element->table_type.
DATA tables TYPE REF TO cl_extr3_tables.
DATA tabname TYPE tabname.
tables = cl_extr3_tables=>get_instance( i_element_manager = element_manager ).
tabname = tables->table_name( i_element_id = i_association-element_id1 ).
e_used_id = element_manager->famix_attribute->get_id( name_group = ng_sap_table
class = tabname
attribute = tabname ).
WHEN invoced_element->program_type.
DATA programs2 TYPE REF TO cl_extr3_programs.
DATA: invoced_ext_progr_name_class TYPE string,
invoced_ext_progr_name_method TYPE string.
programs2 = cl_extr3_programs=>get_instance( i_element_manager = element_manager ).
programs2->program_name( EXPORTING i_element_id = i_association-element_id1
IMPORTING external_program_name_class = invoced_ext_progr_name_class
external_program_name_method = invoced_ext_progr_name_method ).
e_used_id = element_manager->famix_method->get_id( class_name_group = ng_abap_program
class = invoced_ext_progr_name_class
method_name_group = ng_abap_program
method = invoced_ext_progr_name_method ).
WHEN OTHERS.
ASSERT 1 = 2.
ENDCASE.
DATA: invoicing_famix_class TYPE string,
invoicing_famix_method TYPE string,
invoicing_class_name_group TYPE string,
invoicing_method_name_group TYPE string.
CASE invocing_element->type.
WHEN invocing_element->class_type.
invoicing_class_name_group = ng_abap_class.
invoicing_method_name_group = ng_abap_method.
DATA: invocing_class_name TYPE string,
invocing_cmpname TYPE string.
classes = cl_extr3_classes=>get_instance( element_manager = element_manager ).
classes->comp_name( EXPORTING element_id = i_association-element_id2
IMPORTING class_name = invocing_class_name
cmpname = invocing_cmpname ).
invoicing_famix_class = invocing_class_name.
invoicing_famix_method = invocing_cmpname.
WHEN invocing_element->web_dynpro_comps_type.
invoicing_class_name_group = ng_abap_webdynpro.
invoicing_method_name_group = ng_abap_webdynpro.
DATA web_dynpro_component TYPE REF TO cl_extr3_web_dynpro_comp.
DATA: invocing_wdy_component_name TYPE wdy_component_name,
invocing_wdy_controller_name TYPE wdy_controller_name.
web_dynpro_component = cl_extr3_web_dynpro_comp=>get_instance( element_manager = element_manager ).
web_dynpro_component->wdy_controller_name( EXPORTING element_id = i_association-element_id2
IMPORTING wdy_component_name = invocing_wdy_component_name
wdy_controller_name = invocing_wdy_controller_name ).
invoicing_famix_class = invocing_wdy_component_name.
invoicing_famix_method = invocing_wdy_controller_name.
WHEN invocing_element->program_type.
invoicing_class_name_group = ng_abap_program.
invoicing_method_name_group = ng_abap_program.
DATA programs TYPE REF TO cl_extr3_programs.
programs = cl_extr3_programs=>get_instance( i_element_manager = element_manager ).
programs->program_name( EXPORTING i_element_id = i_association-element_id2
IMPORTING external_program_name_class = invoicing_famix_class
external_program_name_method = invoicing_famix_method ).
WHEN OTHERS.
ASSERT 1 = 2.
ENDCASE.
DATA using_method_id TYPE i.
ASSERT invoicing_class_name_group IS NOT INITIAL.
ASSERT invoicing_method_name_group IS NOT INITIAL.
e_using_method_id = element_manager->famix_method->get_id( class_name_group = invoicing_class_name_group
class = invoicing_famix_class
method_name_group = invoicing_method_name_group
method = invoicing_famix_method ).
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_ASSOCIATION IMPLEMENTATION.
METHOD make_model.
" I must be redefined
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_INVOCATION IMPLEMENTATION.
METHOD add.
DATA association TYPE association_type.
association-invoced_element_id1 = invoced_element_id1.
association-invocing_element_id2 = invocing_element_id2.
INSERT association INTO TABLE associations.
element_manager->add_association( EXPORTING element_1 = association-invoced_element_id1
element_2 = association-invocing_element_id2
association = me ).
ENDMETHOD.
METHOD clear.
CLEAR instance.
ENDMETHOD.
METHOD get_instance.
IF instance IS NOT BOUND.
CREATE OBJECT instance
EXPORTING
i_element_manager = i_element_manager.
ENDIF.
instance->type = invocation_ass.
r_instance = instance.
ENDMETHOD.
METHOD make_model.
DATA using_method_id TYPE i.
DATA used_id TYPE i.
_get_famix_id_used_and_using( EXPORTING i_association = association
IMPORTING e_using_method_id = using_method_id
e_used_id = used_id ).
ASSERT using_method_id IS NOT INITIAL.
ASSERT used_id IS NOT INITIAL.
DATA invocation_id TYPE i.
invocation_id = element_manager->famix_invocation->add( ).
element_manager->famix_invocation->set_invocation_by_reference( EXPORTING element_id = invocation_id
sender_id = using_method_id
candidates_id = used_id
signature = 'DUMMY' ).
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_PARENT_PACKAGE IMPLEMENTATION.
METHOD add.
DATA association TYPE association_type.
association-element_id1 = element_id.
association-element_id2 = parent_element_id.
INSERT association INTO TABLE associations.
element_manager->add_association( EXPORTING element_1 = association-element_id1
element_2 = association-element_id2
association = me ).
ENDMETHOD.
METHOD clear.
CLEAR instance.
ENDMETHOD.
METHOD get_instance.
IF instance IS NOT BOUND.
CREATE OBJECT instance
EXPORTING
i_element_manager = i_element_manager.
ENDIF.
instance->type = parent_package_ass.
r_instance = instance.
ENDMETHOD.
METHOD make_model.
" I am added in the elements them self to the model
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_ASSOCIATION_BUILD IMPLEMENTATION.
METHOD search_down.
" Redefine me
ASSERT 1 = 2.
ENDMETHOD.
METHOD search_up.
" Redefine me
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_TADIR_BUILDER IMPLEMENTATION.
METHOD constructor.
super->constructor( i_element_manager = i_element_manager ).
parent_package = cl_extr3_parent_package=>get_instance( i_element_manager = element_manager ).
classes = cl_extr3_classes=>get_instance( element_manager = element_manager ).
programs = cl_extr3_programs=>get_instance( i_element_manager = element_manager ).
tables = cl_extr3_tables=>get_instance( i_element_manager = element_manager ).
web_dynpro_components = cl_extr3_web_dynpro_comp=>get_instance( element_manager = element_manager ).
ENDMETHOD.
METHOD search_down.
DATA: element TYPE REF TO cl_extr3_elements,
package TYPE REF TO cl_extr3_packages,
is_found TYPE abap_bool,
new_element_id TYPE cl_extr3_element_manager=>element_id_type,
class_name TYPE string,
tabname TYPE string,
program TYPE progname,
wdy_component_name TYPE wdy_component_name.
element = element_manager->get_element( element_id ).
IF element->type EQ element->package_type.
package ?= element.
DATA devclass TYPE devclass.
devclass = package->devclass( element_id ).
TYPES: BEGIN OF ty_tadir,
pgmid TYPE pgmid,
object TYPE trobjtype,
obj_name TYPE sobj_name,
END OF ty_tadir.
DATA: tadir TYPE ty_tadir,
tadirs TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY.
SELECT pgmid object obj_name FROM tadir INTO TABLE tadirs WHERE devclass = devclass.
LOOP AT tadirs INTO tadir.
is_found = abap_false.
CASE tadir-pgmid.
WHEN 'R3TR'.
CASE tadir-object.
WHEN 'CLAS' OR 'INTF'.
class_name = tadir-obj_name.
classes->add( EXPORTING class = class_name
IMPORTING is_added = is_found
new_element_id = new_element_id ).
WHEN 'DEVC'.
WHEN 'FUGR'.
WHEN 'PROG'.
program = tadir-obj_name.
programs->add( EXPORTING program = program
IMPORTING is_added = is_found
new_element_id = new_element_id ).
WHEN 'TABL'.
tabname = tadir-obj_name.
tables->add( EXPORTING table = tabname
IMPORTING is_added = is_found
new_element_id = new_element_id ).
WHEN 'WDYN'.
wdy_component_name = tadir-obj_name.
web_dynpro_components->add( EXPORTING wdy_component_name = wdy_component_name
IMPORTING is_added = is_found
new_element_id = new_element_id ).
WHEN OTHERS.
" TBD handle
ENDCASE.
WHEN OTHERS.
"TBD handle
ENDCASE.
IF is_found EQ abap_true.
parent_package->add( EXPORTING element_id = new_element_id
parent_element_id = element_id ).
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD search_up.
DATA: element TYPE REF TO cl_extr3_elements,
package TYPE REF TO cl_extr3_packages,
is_found TYPE abap_bool,
new_element_id TYPE cl_extr3_element_manager=>element_id_type,
class_name TYPE string,
clstype TYPE seoclstype,
tabname TYPE tabname.
package = cl_extr3_packages=>get_instance( i_element_manager = element_manager ).
element = element_manager->get_element( element_id ).
DATA: object TYPE trobjtype,
obj_name TYPE sobj_name.
CLEAR object.
CLEAR obj_name.
CASE element->type.
WHEN element->class_type.
classes->class_name( EXPORTING element_id = element_id
IMPORTING class_name = class_name
clstype = clstype ).
obj_name = class_name.
IF clstype EQ classes->is_class_type.
object = 'CLAS'.
ELSEIF clstype EQ classes->interface_type.
object = 'INTF'.
ELSE.
ASSERT 1 = 2.
ENDIF.
WHEN element->table_type.
tabname = tables->table_name( i_element_id = element_id ).
object = 'TABL'.
obj_name = tabname.
ENDCASE.
TYPES: BEGIN OF ty_tadir,
devclass TYPE devclass,
END OF ty_tadir.
DATA: tadir TYPE ty_tadir,
tadirs TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY.
IF object IS NOT INITIAL.
SELECT devclass FROM tadir INTO TABLE tadirs WHERE pgmid = 'R3TR'
AND object = object
AND obj_name = obj_name.
IF sy-subrc EQ 0.
LOOP AT tadirs INTO tadir.
package->add( EXPORTING package = tadir-devclass
IMPORTING is_added = is_found
new_element_id = new_element_id ).
IF is_found EQ abap_true.
parent_package->add( EXPORTING element_id = element_id
parent_element_id = new_element_id ).
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_WHERE_USED_BUILDER IMPLEMENTATION.
METHOD search_down.
DATA: element TYPE REF TO cl_extr3_elements.
element = element_manager->get_element( element_id ).
ENDMETHOD.
METHOD search_up.
DATA: element TYPE REF TO cl_extr3_elements,
is_access TYPE abap_bool.
element = element_manager->get_element( element_id ).
DATA classes TYPE REF TO cl_extr3_classes.
classes = cl_extr3_classes=>get_instance( element_manager = element_manager ).
DATA access TYPE REF TO cl_extr3_access.
access = cl_extr3_access=>get_instance( i_element_manager = element_manager ).
DATA invocation TYPE REF TO cl_extr3_invocation.
invocation = cl_extr3_invocation=>get_instance( i_element_manager = element_manager ).
CASE element->type.
WHEN element->class_type.
DATA class_name TYPE string.
DATA cmpname TYPE string.
DATA cmptype TYPE seocmptype.
DATA clstype TYPE seoclstype.
DATA exists TYPE abap_bool.
IF element_manager->exclude_found_sap_intf EQ abap_true.
classes->class_name( EXPORTING element_id = element_id
IMPORTING class_name = class_name
clstype = clstype
exists = exists ).
IF exists EQ abap_true.
IF clstype EQ classes->interface_type.
IF class_name CP 'Y*'
OR class_name CP 'Z*'
OR class_name CP '/*' .
" OK
ELSE.
" Do not collect, it should be OK just to leave the method here
RETURN.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
classes->comp_name( EXPORTING element_id = element_id
IMPORTING class_name = class_name
cmpname = cmpname
cmptype = cmptype ).
IF element_manager->exclude_found_sap_intf EQ abap_true AND class_name CP 'IF*'.
" Do not collect, it should be OK just to leave the method here
RETURN.
ENDIF.
DATA: otype TYPE char2,
where_used_name TYPE eu_lname.
CASE cmptype.
WHEN classes->method_type.
otype = 'ME'.
WHEN classes->attribute_type.
otype = 'DA'.
is_access = abap_true.
WHEN classes->event_type.
otype = 'EV'.
WHEN OTHERS.
ASSERT 1 = 2.
ENDCASE.
FIND '~' IN cmpname.
IF sy-subrc <> 0.
where_used_name = class_name && |\\| && otype && |:| && cmpname.
ELSE.
DATA: interface_name TYPE string,
method_name TYPE string.
SPLIT cmpname AT '~' INTO interface_name method_name.
where_used_name = class_name && |\\IN:| && interface_name && |\\| && otype && |:| && method_name.
ENDIF.
WHEN element->table_type.
DATA tables TYPE REF TO cl_extr3_tables.
tables = cl_extr3_tables=>get_instance( i_element_manager = element_manager ).
DATA table TYPE tabname.
table = tables->table_name( i_element_id = element_id ).
otype = 'TY'.
where_used_name = table.
is_access = abap_true.
WHEN element->program_type.
DATA programs2 TYPE REF TO cl_extr3_programs.
programs2 = cl_extr3_programs=>get_instance( i_element_manager = element_manager ).
DATA: program TYPE progname,
program_type TYPE string,
program_attribute_2 TYPE string.
programs2->program_name(
EXPORTING
i_element_id = element_id
IMPORTING
program = program
program_type = program_type
program_attribute_2 = program_attribute_2
* external_program_name_class =
* external_program_name_method =
* subc =
).
DATA: cross_type TYPE char1,
cross_name TYPE seu_name.
CASE program_type.
WHEN programs2->type_program.
cross_type = 'R'.
cross_name = program.
WHEN programs2->type_function.
cross_type = 'F'.
cross_name = program_attribute_2.
WHEN OTHERS.
" TBD
ENDCASE.
ENDCASE.
IF where_used_name IS NOT INITIAL OR cross_name IS NOT INITIAL.
DATA: wbcrossgts TYPE wbcrossgts_type,
wbcrossgt TYPE wbcrossgt_type,
cross TYPE cross_type,
crosss TYPE cross_types.
IF otype IS NOT INITIAL.
SELECT otype name include direct indirect
FROM wbcrossgt
INTO TABLE wbcrossgts
WHERE otype = otype
AND name = where_used_name.
ENDIF.
IF cross_type IS NOT INITIAL.
SELECT type name include FROM cross INTO TABLE crosss
WHERE type = cross_type
AND name = cross_name.
LOOP AT crosss INTO cross.
" Most where used information is in table wbcrossgt. Now some information is read from table cross. Use nonetheless wbcrossgt
" for further processing. There is an integration test, that assures the correctness of the whole coding.
CLEAR wbcrossgt.
wbcrossgt-name = cross-name.
wbcrossgt-include = cross-include.
INSERT wbcrossgt INTO TABLE wbcrossgts.
ENDLOOP.
ENDIF.
" Read dynamic usages
DATA: w TYPE wbcrossgt.
LOOP AT g_dynamic_usage INTO w
WHERE otype = otype
AND name = where_used_name.
MOVE-CORRESPONDING w TO wbcrossgt.
INSERT wbcrossgt INTO TABLE wbcrossgts.
ENDLOOP.
LOOP AT wbcrossgts INTO wbcrossgt.
DATA: is_added TYPE abap_bool,
used_by_element_id TYPE cl_extr3_element_manager=>element_id_type.
CLEAR is_added.
" Analyze where used table
DATA: pgmid TYPE pgmid,
object TYPE trobjtype,
obj_name TYPE trobj_name.
DATA found_class_name TYPE string.
DATA found_cmpname TYPE string.
cl_oo_include_naming=>get_trkey_by_include(
EXPORTING
progname = wbcrossgt-include
IMPORTING
pgmid = pgmid
object = object
obj_name = obj_name
EXCEPTIONS
no_objecttype = 1
invalid_include = 2
internal_error = 3
OTHERS = 4
).
IF sy-subrc EQ 0.
CASE object.
WHEN 'METH'.
found_class_name = obj_name+0(30).
" TBD include code here?
found_cmpname = obj_name+30(61).
DATA: temp TYPE string.
temp = class_name && |~| && cmpname.
IF found_cmpname <> temp. " Implementation of interface methods are in the where used list. These are added explicitely in the class coding. So filter here.
classes->add_component(
EXPORTING
clsname = found_class_name
cmpname = found_cmpname
is_specific = abap_false
IMPORTING
is_added = is_added
new_element_id = used_by_element_id ).
IF is_added EQ abap_true.
element_manager->model_builder->new_element_id( EXPORTING i_element_id = used_by_element_id
i_is_specific = abap_true ).
ELSE.
"TBD what is to be done here?
ENDIF.
ENDIF.
WHEN OTHERS.
" TBD is code required here?
ENDCASE.
* <include_2_component>-is_class_component = abap_true.
ELSE.
"Check for usage in Web Dynpro ABAP
DATA ls_wd_sourcemap TYPE wdy_wb_sourcemap.
SELECT SINGLE * FROM wdy_wb_sourcemap INTO ls_wd_sourcemap WHERE relid = 'LI' AND inclname = wbcrossgt-include AND srtf2 = 0.
IF sy-subrc EQ 0.
DATA web_dynpro_component TYPE REF TO cl_extr3_web_dynpro_comp.
web_dynpro_component = cl_extr3_web_dynpro_comp=>get_instance( element_manager = element_manager ).
web_dynpro_component->add_component( EXPORTING wdy_component_name = ls_wd_sourcemap-component_name
wdy_controller_name = ls_wd_sourcemap-controller_name
IMPORTING is_added = is_added
new_element_id = used_by_element_id ).
ELSE.
DATA programs TYPE REF TO cl_extr3_programs.
programs = cl_extr3_programs=>get_instance( i_element_manager = element_manager ).
programs->add( EXPORTING program = wbcrossgt-include
IMPORTING is_added = is_added
new_element_id = used_by_element_id ).
ENDIF.
ENDIF.
IF is_added EQ abap_true.
IF is_access EQ abap_true.
access->add( EXPORTING accessed_element_id1 = element_id
accessing_element_id2 = used_by_element_id ).
ELSE.
DATA: is_redefinition_of_method TYPE abap_bool.
is_redefinition_of_method = classes->is_redefinition_of_method( invoced_element_id1 = element_id
invocing_element_id2 = used_by_element_id ).
IF is_redefinition_of_method EQ ''.
invocation->add( EXPORTING invoced_element_id1 = element_id
invocing_element_id2 = used_by_element_id ).
ELSE.
invocation->add( EXPORTING invoced_element_id1 = used_by_element_id
invocing_element_id2 = element_id ).
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD set_dynamic_read.
DATA: s TYPE string,
class TYPE string,
t TYPE TABLE OF string,
w2 TYPE wbcrossgt.
CLEAR g_dynamic_usage.
s = i_dynamic_read.
TRANSLATE s TO UPPER CASE.
CONDENSE s.
SPLIT s AT space INTO TABLE t.
LOOP AT t INTO class.
DATA dyn_usage TYPE STANDARD TABLE OF wbcrossgt WITH DEFAULT KEY.
CALL METHOD (class)=>where_used
IMPORTING
data = dyn_usage.
LOOP AT dyn_usage INTO w2.
INSERT w2 INTO TABLE g_dynamic_usage.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
CLASS CL_EXTR3_CLASSES IMPLEMENTATION.
METHOD add.
DATA: element TYPE element_type,
element_comp TYPE element_comp_type.
READ TABLE elements_class_name INTO element WITH KEY class_name = class.
IF sy-subrc EQ 0.
is_added = abap_true.
new_element_id = element-element_id.
LOOP AT elements_comp_clsname_cmpname INTO element_comp WHERE clsname = class.
DATA class_component TYPE cl_extr3_classes=>ty_class_component.
class_component-clsname = element_comp-clsname.
class_component-cmpname = element_comp-cmpname.
class_component-cmptype = element_comp-cmptype.
class_component-mtdtype = element_comp-mtdtype.
INSERT class_component INTO TABLE class_components.
ENDLOOP.
ELSE.
" Does table exists?
DATA: found_class_name TYPE seoclsname,
found_class_type TYPE seoclstype.
" No blank between ( and found... to be 7.02 compatible
SELECT SINGLE clsname clstype FROM seoclass INTO (found_class_name , found_class_type ) WHERE clsname = class.
IF found_class_name IS NOT INITIAL.
is_added = abap_true.
ENDIF.
IF is_added EQ abap_true.
new_element_id = element_manager->add_element( element = me
is_specific = abap_false ).
element-element_id = new_element_id.
element-class_name = class.
element-clstype = found_class_type.
INSERT element INTO TABLE elements_element_id.
INSERT element INTO TABLE elements_class_name.
ENDIF.
SELECT clsname cmpname cmptype mtdtype
FROM seocompo
INTO CORRESPONDING FIELDS OF TABLE class_components
WHERE cmptype <> 3 " A type
AND clsname = class.
DATA: redefined_class_components TYPE ty_class_components,
redefined_class_component TYPE ty_class_component.
redefined_class_components = _get_redefined( class ).
* DATA: redefined_components TYPE STANDARD TABLE OF redefined_type WITH DEFAULT KEY,
* redefined_component TYPE redefined_type.
*
* TEST-SEAM seoredef.
*
* SELECT clsname refclsname mtdname FROM seoredef INTO TABLE redefined_components
* WHERE clsname = class
* AND version = 1.
*
* END-TEST-SEAM.
*
* IF sy-subrc EQ 0.
*
* DATA: referenced_class_component TYPE cl_extr3_classes=>ty_class_component.
*
* LOOP AT redefined_components INTO redefined_component.
*
* TEST-SEAM seocompo_3.
*
* SELECT SINGLE clsname cmpname cmptype mtdtype
* FROM seocompo
* INTO CORRESPONDING FIELDS OF referenced_class_component
* WHERE cmptype <> 3 " A type
* AND clsname = class
* AND cmpname = redefined_component-mtdname.
*
* END-TEST-SEAM.
*
* IF sy-subrc <> 0.
* "Inconsistency
* ELSE.
* INSERT referenced_class_component INTO TABLE class_components.
* ASSERT sy-subrc EQ 0.
* ENDIF.
*
* ENDLOOP.
*
* ENDIF.
LOOP AT redefined_class_components INTO redefined_class_component.
INSERT redefined_class_component INTO TABLE class_components.
ENDLOOP.
LOOP AT class_components INTO class_component.
_add_component( EXPORTING clsname = class_component-clsname
cmpname = class_component-cmpname ).
ENDLOOP.
_add_metarel( clsname = class ).
ENDIF.
ENDMETHOD.
METHOD add_component.
DATA: is_added_now TYPE abap_bool.
add( EXPORTING class = clsname
IMPORTING is_added = is_added ).
IF is_added EQ abap_true.
_add_component( EXPORTING clsname = clsname
cmpname = cmpname
IMPORTING is_added = is_added
new_element_id = new_element_id
is_added_now = is_added_now ).
IF is_specific EQ abap_true AND
is_added_now EQ abap_true.
element_manager->model_builder->new_element_id( EXPORTING i_element_id = new_element_id
i_is_specific = abap_true ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD class_name.
DATA element TYPE element_type.
READ TABLE elements_element_id INTO element WITH TABLE KEY element_id = element_id.
IF sy-subrc EQ 0.
class_name = element-class_name.
clstype = element-clstype.
exists = abap_true.
ENDIF.
ENDMETHOD.
METHOD clear.
CLEAR instance.
ENDMETHOD.
METHOD collect_infos.
DATA: part1 TYPE string,
part2_classes TYPE string,
part2_interfaces TYPE string,
name TYPE string,
part3 TYPE string.
" Get ADT Link to class or interface
CONCATENATE 'adt://' sysid '/sap/bc/adt/oo/' INTO part1.
part2_classes = 'classes/'.
part2_interfaces = 'interfaces/'.
part3 = '/source/main'.
FIELD-SYMBOLS: <element> TYPE element_type.
LOOP AT elements_element_id ASSIGNING <element>.
name = <element>-class_name.
TRANSLATE name TO LOWER CASE.
IF <element>-clstype EQ is_class_type.
CONCATENATE part1 part2_classes name part3 INTO <element>-adt_link.
ELSEIF <element>-clstype EQ interface_type.
CONCATENATE part1 part2_interfaces name part3 INTO <element>-adt_link.
ELSE.
ASSERT 1 = 2.
ENDIF.
" Get ADT Link to components
DATA: cifkey TYPE seoclskey,
cifref TYPE REF TO if_oo_clif_incl_naming,
clsref TYPE REF TO if_oo_class_incl_naming,
intref TYPE REF TO if_oo_interface_incl_naming,
source TYPE seop_source_string,
source_protected TYPE seop_source_string,
source_private TYPE seop_source_string,
source_line TYPE LINE OF seop_source_string.
cifkey-clsname = <element>-class_name.
CLEAR source.
CLEAR source_protected.
CLEAR source_private.
CALL METHOD cl_oo_include_naming=>get_instance_by_cifkey
EXPORTING
cifkey = cifkey
RECEIVING
cifref = cifref
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
" :-(
ELSE.
CASE cifref->clstype.
WHEN seoc_clstype_class.
clsref ?= cifref.
READ REPORT clsref->public_section
INTO source.
READ REPORT clsref->protected_section
INTO source_protected.
READ REPORT clsref->private_section
INTO source_private.
WHEN seoc_clstype_interface.
intref ?= cifref.
READ REPORT intref->public_section
INTO source.
WHEN OTHERS.
" What is to be done?
ENDCASE.
ENDIF.
APPEND LINES OF source_protected TO source.
APPEND LINES OF source_private TO source.
DATA: line_no TYPE i,
line TYPE string.
line_no = 0.
* LOOP AT source INTO source_line.
* add 1 to line_no.
* line = source_line.
* condense line.
* split line at ' ' into
* ENDLOOP.
DATA: tokens TYPE STANDARD TABLE OF stokes,
token LIKE LINE OF tokens,
next_component TYPE seocmptype,
next_line TYPE i.
DATA statements TYPE STANDARD TABLE OF sstmnt.
SCAN ABAP-SOURCE source TOKENS INTO tokens STATEMENTS INTO statements.
LOOP AT tokens INTO token.
ADD 1 TO line_no.
IF line_no EQ next_line.
DATA: element_comp TYPE element_comp_type.
READ TABLE elements_comp_clsname_cmpname INTO element_comp
WITH TABLE KEY
clsname = <element>-class_name
cmpname = token-str.
IF sy-subrc <> 0.
" What to do?
ELSE.
FIELD-SYMBOLS <element_comp> TYPE element_comp_type.
READ TABLE elements_comp_element_id ASSIGNING <element_comp>
WITH TABLE KEY element_id = element_comp-element_id.
IF sy-subrc <> 0.
" What to do?
ELSE.
DATA: row TYPE string.
row = token-row.
DATA: adt_link TYPE string.
CONCATENATE <element>-adt_link '#start=' row ',1' INTO adt_link.
CONDENSE adt_link NO-GAPS.
IF <element_comp>-adt_link IS INITIAL. " Are there further hits?
<element_comp>-adt_link = adt_link.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR next_line.
CLEAR next_component.
CASE token-str.
WHEN 'CLASS-DATA' OR 'DATA'.
next_component = attribute_type.
next_line = line_no + 1.
WHEN 'CLASS-METHODS' OR 'METHODS'.
next_component = method_type.
next_line = line_no + 1.
WHEN 'CLASS-EVENTS' OR 'EVENTS'.
next_component = event_type.
next_line = line_no + 1.
ENDCASE.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD comp_name.
DATA element_comp TYPE element_comp_type.
READ TABLE elements_comp_element_id INTO element_comp WITH KEY element_id = element_id.
IF sy-subrc EQ 0.
class_name = element_comp-clsname.
cmpname = element_comp-cmpname.
cmptype = element_comp-cmptype.
exists = abap_true.
ENDIF.
ENDMETHOD.
METHOD get_instance.
IF instance IS NOT BOUND.
CREATE OBJECT instance
EXPORTING
i_element_manager = element_manager.
ENDIF.
instance->type = class_type.
r_instance = instance.
ENDMETHOD.
METHOD is_redefinition_of_method.
DATA: invoced TYPE element_comp_type,
invocing TYPE element_comp_type.
READ TABLE elements_comp_element_id INTO invoced WITH KEY element_id = invoced_element_id1.
IF sy-subrc <> 0.
RETURN.
ENDIF.
READ TABLE elements_comp_element_id INTO invocing WITH KEY element_id = invocing_element_id2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
IF invoced-cmpname <> invocing-cmpname.
RETURN.
ENDIF.
DATA: r TYPE redefined_method_type.
READ TABLE redefined_methods INTO r WITH TABLE KEY method = invocing-cmpname
clsname = invocing-clsname
defined_in_clsname = invoced-clsname.
IF sy-subrc EQ 0.
r_result = 'X'.
ENDIF.
ENDMETHOD.
METHOD make_model.
DATA element TYPE element_type.
READ TABLE elements_element_id INTO element WITH TABLE KEY element_id = element_id.
IF sy-subrc EQ 0.
DATA: last_id TYPE i,
file_anchor_id TYPE i.
IF element-clstype EQ is_class_type.
" SAP_2_FAMIX_59 Mark the FAMIX Class with the attribute modifiers = 'ABAPGlobalClass'
" SAP_2_FAMIX_6 Map ABAP classes to FAMIX.Class
element_manager->famix_class->add( EXPORTING name_group = ng_abap_class
name = element-class_name
modifiers = cl_extract3=>modifier_abapglobalclass
IMPORTING id = last_id ).
IF element-adt_link IS NOT INITIAL.
element_manager->famix_file_anchor->add( EXPORTING element_id = last_id " Required for Moose 6.1
file_name = element-adt_link
IMPORTING id = file_anchor_id ).
IF file_anchor_id IS NOT INITIAL.
element_manager->famix_class->set_source_anchor_by_id(
EXPORTING
element_id = last_id
source_anchor_id = file_anchor_id
).
ENDIF.
ENDIF.
ELSEIF element-clstype EQ interface_type.
" SAP_2_FAMIX_60 Mark the FAMIX Class with the attribute modifiers = 'ABAPGlobalInterface'
" SAP_2_FAMIX_7 Map ABAP Interfaces to FAMIX.Class
element_manager->famix_class->add( EXPORTING name_group = ng_abap_class
name = element-class_name
modifiers = cl_extract3=>modifier_abapglobalinterface
IMPORTING id = last_id ).
" SAP_2_FAMIX_8 Set the attribute isInterface in case of ABAP Interfaces
element_manager->famix_class->is_interface( element_id = last_id ).
IF element-adt_link IS NOT INITIAL.
element_manager->famix_file_anchor->add( EXPORTING element_id = last_id " Required for Moose 6.1
file_name = element-adt_link
IMPORTING id = file_anchor_id ).
IF file_anchor_id IS NOT INITIAL.
element_manager->famix_class->set_source_anchor_by_id(
EXPORTING
element_id = last_id
source_anchor_id = file_anchor_id
).
ENDIF.
ENDIF.
ELSE.
ASSERT 1 = 2.
ENDIF.
DATA association TYPE cl_extr3_element_manager=>association_type.
LOOP AT associations INTO association WHERE element_id1 = element_id
AND association->type = cl_extr3_association=>parent_package_ass.
DATA package TYPE REF TO cl_extr3_packages.
package ?= element_manager->get_element( i_element_id = association-element_id2 ).
element_manager->famix_class->set_parent_package( element_id = last_id
parent_package = package->devclass( i_element_id = association-element_id2 )
parent_package_name_group = ng_abap_package ).
ENDLOOP.
ELSE.
DATA element_comp TYPE element_comp_type.
READ TABLE elements_comp_element_id INTO element_comp WITH KEY element_id = element_id.
ASSERT sy-subrc EQ 0.
CASE element_comp-cmptype.
WHEN attribute_type.
* DATA last_id TYPE i.!
element_manager->famix_attribute->add( EXPORTING name = element_comp-cmpname IMPORTING id = last_id ).
element_manager->famix_attribute->set_parent_type( EXPORTING element_id = last_id
parent_element = 'FAMIX.Class'
parent_name_group = ng_abap_class
parent_name = element_comp-clsname ).
IF element_comp-adt_link IS NOT INITIAL.
element_manager->famix_file_anchor->add( EXPORTING element_id = last_id " Required for Moose 6.1
file_name = element_comp-adt_link
IMPORTING id = file_anchor_id ).
IF file_anchor_id IS NOT INITIAL.
element_manager->famix_attribute->set_source_anchor_by_id(
EXPORTING
element_id = last_id
source_anchor_id = file_anchor_id
).
ENDIF.
ENDIF.
element_manager->famix_attribute->store_id( EXPORTING name_group = ng_abap_class
class = element_comp-clsname
attribute = element_comp-cmpname ).
* sap_attribute->add( EXPORTING class = class-clsname
* attribute = component-cmpname ).
WHEN method_type OR event_type.
" SAP_2_FAMIX_15 Map methods of classes to FAMIX.Method
" SAP_2_FAMIX_16 Map methods of interfaces to FAMIX.Method
element_manager->famix_method->add( EXPORTING name = element_comp-cmpname IMPORTING id = last_id ).
" SAP_2_FAMIX_41 Fill the attribut signature of FAMIX.METHOD with the name of the method
" SAP_2_FAMIX_42 Fill the attribut signature of FAMIX.METHOD with the name of the method
element_manager->famix_method->set_signature( element_id = last_id
signature = element_comp-cmpname ).
element_manager->famix_method->set_parent_type( EXPORTING element_id = last_id
parent_element = 'FAMIX.Class'
parent_name_group = ng_abap_class
parent_name = element_comp-clsname ).
IF element_comp-adt_link IS NOT INITIAL.
element_manager->famix_file_anchor->add( EXPORTING element_id = last_id " Required for Moose 6.1
file_name = element_comp-adt_link
IMPORTING id = file_anchor_id ).
IF file_anchor_id IS NOT INITIAL.
element_manager->famix_method->set_source_anchor_by_id(
EXPORTING
element_id = last_id
source_anchor_id = file_anchor_id
).
ENDIF.
ENDIF.
element_manager->famix_method->store_id( EXPORTING class_name_group = ng_abap_class
class = element_comp-clsname
method_name_group = ng_abap_method
method = element_comp-cmpname ).
* sap_method->add( EXPORTING class = class-clsname
* method = component-cmpname ).
WHEN OTHERS.
ASSERT 1 = 2.
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD name.
DATA: class_name TYPE string,
clstype TYPE seoclstype,
exists TYPE abap_bool.
class_name( EXPORTING element_id = element_id
IMPORTING class_name = class_name