mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
9c41a2b7d8
* remove text pragmas and pseudo comments * fix whitespace * fix carriage return * test * test * Update zcl_abapgit_repo.clas.abap
309 lines
7.1 KiB
ABAP
309 lines
7.1 KiB
ABAP
CLASS zcl_abapgit_dot_abapgit DEFINITION
|
|
PUBLIC
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
CLASS-METHODS build_default
|
|
RETURNING
|
|
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit .
|
|
CLASS-METHODS deserialize
|
|
IMPORTING
|
|
!iv_xstr TYPE xstring
|
|
RETURNING
|
|
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
METHODS constructor
|
|
IMPORTING
|
|
!is_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
|
|
METHODS serialize
|
|
RETURNING
|
|
VALUE(rv_xstr) TYPE xstring
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
METHODS get_data
|
|
RETURNING
|
|
VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
|
|
METHODS add_ignore
|
|
IMPORTING
|
|
!iv_path TYPE string
|
|
!iv_filename TYPE string .
|
|
METHODS is_ignored
|
|
IMPORTING
|
|
!iv_path TYPE string
|
|
!iv_filename TYPE string
|
|
RETURNING
|
|
VALUE(rv_ignored) TYPE abap_bool .
|
|
METHODS remove_ignore
|
|
IMPORTING
|
|
!iv_path TYPE string
|
|
!iv_filename TYPE string .
|
|
METHODS get_starting_folder
|
|
RETURNING
|
|
VALUE(rv_path) TYPE string .
|
|
|
|
METHODS get_folder_logic
|
|
RETURNING
|
|
VALUE(rv_logic) TYPE string .
|
|
|
|
METHODS set_folder_logic
|
|
IMPORTING
|
|
!iv_logic TYPE string .
|
|
|
|
METHODS set_starting_folder
|
|
IMPORTING
|
|
!iv_path TYPE string .
|
|
|
|
METHODS get_master_language
|
|
RETURNING
|
|
VALUE(rv_language) TYPE spras .
|
|
* set_master_language
|
|
* IMPORTING iv_language TYPE spras,
|
|
METHODS get_signature
|
|
RETURNING
|
|
VALUE(rs_signature) TYPE zif_abapgit_definitions=>ty_file_signature
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
METHODS get_requirements
|
|
RETURNING
|
|
VALUE(rt_requirements) TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt.
|
|
METHODS set_requirements
|
|
IMPORTING
|
|
it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
DATA: ms_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
|
|
|
|
CLASS-METHODS:
|
|
to_xml
|
|
IMPORTING is_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
|
|
RETURNING VALUE(rv_xml) TYPE string
|
|
RAISING zcx_abapgit_exception,
|
|
from_xml
|
|
IMPORTING iv_xml TYPE string
|
|
RETURNING VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION.
|
|
|
|
|
|
METHOD add_ignore.
|
|
|
|
DATA: lv_name TYPE string.
|
|
|
|
FIELD-SYMBOLS: <lv_ignore> LIKE LINE OF ms_data-ignore.
|
|
|
|
|
|
lv_name = iv_path && iv_filename.
|
|
|
|
READ TABLE ms_data-ignore FROM lv_name TRANSPORTING NO FIELDS.
|
|
IF sy-subrc = 0.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
APPEND INITIAL LINE TO ms_data-ignore ASSIGNING <lv_ignore>.
|
|
<lv_ignore> = lv_name.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD build_default.
|
|
|
|
DATA: ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
|
|
|
|
|
|
ls_data-master_language = sy-langu.
|
|
ls_data-starting_folder = '/src/'.
|
|
ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
|
|
|
|
APPEND '/.gitignore' TO ls_data-ignore.
|
|
APPEND '/LICENSE' TO ls_data-ignore.
|
|
APPEND '/README.md' TO ls_data-ignore.
|
|
APPEND '/package.json' TO ls_data-ignore.
|
|
APPEND '/.travis.yml' TO ls_data-ignore.
|
|
APPEND '/.gitlab-ci.yml' TO ls_data-ignore.
|
|
APPEND '/abaplint.json' TO ls_data-ignore.
|
|
APPEND '/azure-pipelines.yml' TO ls_data-ignore.
|
|
APPEND '/.devcontainer.json' TO ls_data-ignore.
|
|
|
|
CREATE OBJECT ro_dot_abapgit
|
|
EXPORTING
|
|
is_data = ls_data.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD constructor.
|
|
ms_data = is_data.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD deserialize.
|
|
|
|
DATA: lv_xml TYPE string,
|
|
ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
|
|
|
|
|
|
lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( iv_xstr ).
|
|
|
|
ls_data = from_xml( lv_xml ).
|
|
|
|
CREATE OBJECT ro_dot_abapgit
|
|
EXPORTING
|
|
is_data = ls_data.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD from_xml.
|
|
|
|
DATA: lv_xml TYPE string.
|
|
|
|
lv_xml = iv_xml.
|
|
|
|
CALL TRANSFORMATION id
|
|
OPTIONS value_handling = 'accept_data_loss'
|
|
SOURCE XML lv_xml
|
|
RESULT data = rs_data.
|
|
|
|
* downward compatibility
|
|
IF rs_data-folder_logic IS INITIAL.
|
|
rs_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_data.
|
|
rs_data = ms_data.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_folder_logic.
|
|
rv_logic = ms_data-folder_logic.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_master_language.
|
|
rv_language = ms_data-master_language.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_requirements.
|
|
rt_requirements = ms_data-requirements.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_signature.
|
|
|
|
rs_signature-path = zif_abapgit_definitions=>c_root_dir.
|
|
rs_signature-filename = zif_abapgit_definitions=>c_dot_abapgit.
|
|
rs_signature-sha1 = zcl_abapgit_hash=>sha1( iv_type = zif_abapgit_definitions=>c_type-blob
|
|
iv_data = serialize( ) ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_starting_folder.
|
|
rv_path = ms_data-starting_folder.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD is_ignored.
|
|
|
|
DATA: lv_name TYPE string,
|
|
lv_starting TYPE string,
|
|
lv_dot TYPE string,
|
|
lv_count TYPE i,
|
|
lv_ignore TYPE string.
|
|
|
|
|
|
lv_name = iv_path && iv_filename.
|
|
|
|
CONCATENATE ms_data-starting_folder '*' INTO lv_starting.
|
|
CONCATENATE '/' zif_abapgit_definitions=>c_dot_abapgit INTO lv_dot.
|
|
|
|
LOOP AT ms_data-ignore INTO lv_ignore.
|
|
FIND ALL OCCURRENCES OF '/' IN lv_name MATCH COUNT lv_count.
|
|
|
|
IF lv_name CP lv_ignore
|
|
OR ( ms_data-starting_folder <> '/'
|
|
AND lv_count > 1
|
|
AND NOT lv_name CP lv_starting
|
|
AND NOT lv_name = lv_dot ).
|
|
rv_ignored = abap_true.
|
|
RETURN.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD remove_ignore.
|
|
|
|
DATA: lv_name TYPE string.
|
|
|
|
|
|
lv_name = iv_path && iv_filename.
|
|
|
|
DELETE TABLE ms_data-ignore FROM lv_name.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD serialize.
|
|
|
|
DATA: lv_xml TYPE string,
|
|
lv_mark TYPE string.
|
|
|
|
lv_xml = to_xml( ms_data ).
|
|
|
|
"unicode systems always add the byte order mark to the xml, while non-unicode does not
|
|
"this code will always add the byte order mark if it is not in the xml
|
|
lv_mark = zcl_abapgit_convert=>xstring_to_string_utf8( cl_abap_char_utilities=>byte_order_mark_utf8 ).
|
|
IF lv_xml(1) <> lv_mark.
|
|
CONCATENATE lv_mark lv_xml INTO lv_xml.
|
|
ENDIF.
|
|
|
|
rv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8_bom( lv_xml ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD set_folder_logic.
|
|
ms_data-folder_logic = iv_logic.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD set_requirements.
|
|
ms_data-requirements = it_requirements.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD set_starting_folder.
|
|
ms_data-starting_folder = iv_path.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD to_xml.
|
|
|
|
CALL TRANSFORMATION id
|
|
OPTIONS initial_components = 'suppress'
|
|
SOURCE data = is_data
|
|
RESULT XML rv_xml.
|
|
|
|
rv_xml = zcl_abapgit_xml_pretty=>print( rv_xml ).
|
|
|
|
REPLACE FIRST OCCURRENCE
|
|
OF REGEX '<\?xml version="1\.0" encoding="[\w-]+"\?>'
|
|
IN rv_xml
|
|
WITH '<?xml version="1.0" encoding="utf-8"?>'.
|
|
ASSERT sy-subrc = 0.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|