SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

trying to fix build, #1134

Browse Source
This commit is contained in:
larshp 2018-01-13 11:18:28 +00:00
parent 9e3025d8dc
commit ad20031902
22 changed files with 172 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/persist/zcl_abapgit_persist_background.clas.abap
View File

@ -25,7 +25,7 @@ CLASS zcl_abapgit_persist_background DEFINITION
END OF ty_xml.
TYPES: BEGIN OF ty_background,
key TYPE zcl_abapgit_persistence_db=>ty_value.
key TYPE zif_abapgit_persistence=>ty_value.
INCLUDE TYPE ty_xml.
TYPES: END OF ty_background.
TYPES: tt_background TYPE STANDARD TABLE OF ty_background WITH DEFAULT KEY.
@ -48,7 +48,6 @@ CLASS zcl_abapgit_persist_background DEFINITION
IMPORTING iv_key TYPE ty_background-key
RETURNING VALUE(rv_yes) TYPE abap_bool
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA: mo_db TYPE REF TO zcl_abapgit_persistence_db,
mt_jobs TYPE tt_background.
@ -110,7 +109,7 @@ CLASS ZCL_ABAPGIT_PERSIST_BACKGROUND IMPLEMENTATION.
METHOD list.
DATA: lt_list TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_list TYPE zif_abapgit_persistence=>tt_content,
ls_xml TYPE ty_xml.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list,

66
src/persist/zcl_abapgit_persistence_db.clas.abap
View File

@ -3,78 +3,66 @@ CLASS zcl_abapgit_persistence_db DEFINITION
CREATE PRIVATE .
PUBLIC SECTION.
TYPES:
ty_type TYPE c LENGTH 12 .
TYPES:
ty_value TYPE c LENGTH 12 .
TYPES:
BEGIN OF ty_content,
type TYPE ty_type,
value TYPE ty_value,
data_str TYPE string,
END OF ty_content .
TYPES:
tt_content TYPE SORTED TABLE OF ty_content WITH UNIQUE KEY type value .
CONSTANTS c_tabname TYPE tabname VALUE 'ZABAPGIT' ##NO_TEXT.
CONSTANTS c_lock TYPE viewname VALUE 'EZABAPGIT' ##NO_TEXT.
CONSTANTS c_type_settings TYPE ty_type VALUE 'SETTINGS' ##NO_TEXT.
CONSTANTS c_type_repo TYPE ty_type VALUE 'REPO' ##NO_TEXT.
CONSTANTS c_type_background TYPE ty_type VALUE 'BACKGROUND' ##NO_TEXT.
CONSTANTS c_type_user TYPE ty_type VALUE 'USER' ##NO_TEXT.
CONSTANTS:
c_type_settings TYPE zif_abapgit_persistence=>ty_type VALUE 'SETTINGS' ##NO_TEXT,
c_type_repo TYPE zif_abapgit_persistence=>ty_type VALUE 'REPO' ##NO_TEXT,
c_type_background TYPE zif_abapgit_persistence=>ty_type VALUE 'BACKGROUND' ##NO_TEXT,
c_type_user TYPE zif_abapgit_persistence=>ty_type VALUE 'USER' ##NO_TEXT.
CLASS-METHODS get_instance
RETURNING
VALUE(ro_db) TYPE REF TO zcl_abapgit_persistence_db .
METHODS add
IMPORTING
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_data TYPE ty_content-data_str
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RAISING
zcx_abapgit_exception .
METHODS list
RETURNING
VALUE(rt_content) TYPE tt_content .
VALUE(rt_content) TYPE zif_abapgit_persistence=>tt_content .
METHODS list_by_type
IMPORTING
!iv_type TYPE ty_type
!iv_type TYPE zif_abapgit_persistence=>ty_type
RETURNING
VALUE(rt_content) TYPE tt_content .
VALUE(rt_content) TYPE zif_abapgit_persistence=>tt_content .
METHODS lock
IMPORTING
!iv_mode TYPE enqmode DEFAULT 'E'
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RAISING
zcx_abapgit_exception .
METHODS modify
IMPORTING
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_data TYPE ty_content-data_str
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RETURNING
VALUE(rv_data) TYPE ty_content-data_str
VALUE(rv_data) TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_not_found .
METHODS update
IMPORTING
!iv_type TYPE ty_type
!iv_value TYPE ty_content-value
!iv_data TYPE ty_content-data_str
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
@ -97,7 +85,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION.
METHOD add.
DATA ls_table TYPE ty_content.
DATA ls_table TYPE zif_abapgit_persistence=>ty_content.
ls_table-type = iv_type.
ls_table-value = iv_value.
@ -171,7 +159,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION.
METHOD modify.
DATA: ls_content TYPE ty_content.
DATA: ls_content TYPE zif_abapgit_persistence=>ty_content.
lock( iv_type = iv_type
iv_value = iv_value ).

30
src/persist/zcl_abapgit_persistence_repo.clas.abap
View File

@ -17,14 +17,14 @@ CLASS zcl_abapgit_persistence_repo DEFINITION
package TYPE devclass,
offline TYPE sap_bool,
local_checksums TYPE ty_local_checksum_tt,
dot_abapgit TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit,
dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit,
head_branch TYPE string, " HEAD symref of the repo, master branch
write_protect TYPE sap_bool, " Deny destructive ops: pull, switch branch ...
ignore_subpackages TYPE sap_bool,
END OF ty_repo_xml.
TYPES: BEGIN OF ty_repo,
key TYPE zcl_abapgit_persistence_db=>ty_value.
key TYPE zif_abapgit_persistence=>ty_value.
INCLUDE TYPE ty_repo_xml.
TYPES: END OF ty_repo.
TYPES: tt_repo TYPE STANDARD TABLE OF ty_repo WITH DEFAULT KEY.
@ -68,7 +68,7 @@ CLASS zcl_abapgit_persistence_repo DEFINITION
METHODS update_dot_abapgit
IMPORTING iv_key TYPE ty_repo-key
is_dot_abapgit TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit
is_dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
RAISING zcx_abapgit_exception.
METHODS add
@ -77,7 +77,7 @@ CLASS zcl_abapgit_persistence_repo DEFINITION
iv_branch TYPE zif_abapgit_definitions=>ty_sha1 OPTIONAL
iv_package TYPE devclass
iv_offline TYPE sap_bool DEFAULT abap_false
is_dot_abapgit TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit
is_dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
RETURNING VALUE(rv_key) TYPE ty_repo-key
RAISING zcx_abapgit_exception.
@ -95,7 +95,6 @@ CLASS zcl_abapgit_persistence_repo DEFINITION
IMPORTING iv_mode TYPE enqmode
iv_key TYPE ty_repo-key
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA: mo_db TYPE REF TO zcl_abapgit_persistence_db.
@ -109,9 +108,8 @@ CLASS zcl_abapgit_persistence_repo DEFINITION
RETURNING VALUE(rv_repo_xml_string) TYPE string.
METHODS get_next_id
RETURNING VALUE(rv_next_repo_id) TYPE zcl_abapgit_persistence_db=>ty_content-value
RETURNING VALUE(rv_next_repo_id) TYPE zif_abapgit_persistence=>ty_content-value
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -188,7 +186,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
* todo: Lock the complete persistence in order to prevent concurrent repo-creation
* however the current approach will most likely work in almost all cases
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content.
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content.
FIELD-SYMBOLS: <ls_content> LIKE LINE OF lt_content.
@ -213,7 +211,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD list.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo LIKE LINE OF rt_repos.
@ -267,7 +265,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_branch_name.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -292,7 +290,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_dot_abapgit.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -317,7 +315,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_head_branch.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -342,7 +340,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_local_checksums.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -367,7 +365,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_offline.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -391,7 +389,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_sha1.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.
@ -416,7 +414,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION.
METHOD update_url.
DATA: lt_content TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_content TYPE zif_abapgit_persistence=>tt_content,
ls_content LIKE LINE OF lt_content,
ls_repo TYPE ty_repo.

16
src/persist/zif_abapgit_persistence.intf.abap Normal file
View File

@ -0,0 +1,16 @@
INTERFACE zif_abapgit_persistence PUBLIC.
TYPES:
ty_type TYPE c LENGTH 12 .
TYPES:
ty_value TYPE c LENGTH 12 .
TYPES:
BEGIN OF ty_content,
type TYPE ty_type,
value TYPE ty_value,
data_str TYPE string,
END OF ty_content .
TYPES:
tt_content TYPE SORTED TABLE OF ty_content WITH UNIQUE KEY type value .
ENDINTERFACE.

16
src/persist/zif_abapgit_persistence.intf.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_PERSISTENCE</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>Persistence types</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<UNICODE>X</UNICODE>
</VSEOINTERF>
</asx:values>
</asx:abap>
</abapGit>

6
src/ui/zcl_abapgit_html_action_utils.clas.abap
View File

@ -78,19 +78,19 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
zcx_abapgit_exception .
CLASS-METHODS dbkey_encode
IMPORTING
!is_key TYPE zcl_abapgit_persistence_db=>ty_content
!is_key TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS dbkey_decode
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rs_key) TYPE zcl_abapgit_persistence_db=>ty_content .
VALUE(rs_key) TYPE zif_abapgit_persistence=>ty_content .
CLASS-METHODS dbcontent_decode
IMPORTING
!it_postdata TYPE cnht_post_data_tab
RETURNING
VALUE(rs_content) TYPE zcl_abapgit_persistence_db=>ty_content .
VALUE(rs_content) TYPE zif_abapgit_persistence=>ty_content .
CLASS-METHODS parse_commit_request
IMPORTING
!it_postdata TYPE cnht_post_data_tab

26
src/zabapgit_folder_logic.prog.abap
View File

@ -51,13 +51,13 @@ CLASS lcl_folder_logic IMPLEMENTATION.
SPLIT lv_path AT '/' INTO lv_new lv_path.
CASE io_dot->get_folder_logic( ).
WHEN zcl_abapgit_dot_abapgit=>c_folder_logic-full.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-full.
rv_package = lv_new.
TRANSLATE rv_package USING '#/'.
IF iv_top(1) = '$'.
CONCATENATE '$' rv_package INTO rv_package.
ENDIF.
WHEN zcl_abapgit_dot_abapgit=>c_folder_logic-prefix.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
CONCATENATE rv_package '_' lv_new INTO rv_package.
WHEN OTHERS.
ASSERT 0 = 1.
@ -92,12 +92,12 @@ CLASS lcl_folder_logic IMPLEMENTATION.
zcx_abapgit_exception=>raise( |error, expected parent package, { iv_package }| ).
ELSE.
CASE io_dot->get_folder_logic( ).
WHEN zcl_abapgit_dot_abapgit=>c_folder_logic-full.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-full.
lv_len = 0.
IF iv_package(1) = '$'.
lv_len = 1.
ENDIF.
WHEN zcl_abapgit_dot_abapgit=>c_folder_logic-prefix.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
lv_len = strlen( lv_parentcl ).
IF iv_package(lv_len) <> lv_parentcl.
@ -258,7 +258,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_package = lc_top
iv_path = lc_src ).
ENDMETHOD.
@ -267,7 +267,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_package = '$TOP_FOO'
iv_path = '/src/foo/' ).
ENDMETHOD.
@ -278,7 +278,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_package = '$FOOBAR'
iv_path = '/src/' ).
cl_abap_unit_assert=>fail( 'Error expected' ).
@ -290,7 +290,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-full
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-full
iv_package = lc_top
iv_path = lc_src ).
ENDMETHOD.
@ -299,7 +299,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-full
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-full
iv_package = '$TOP_FOO'
iv_path = '/src/top_foo/' ).
ENDMETHOD.
@ -373,7 +373,7 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_package = lc_top
iv_path = lc_src ).
ENDMETHOD.
@ -382,7 +382,7 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_package = '/TEST/TOOLS_T1'
iv_path = '/src/t1/' ).
ENDMETHOD.
@ -391,7 +391,7 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-full
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-full
iv_package = lc_top
iv_path = lc_src ).
ENDMETHOD.
@ -400,7 +400,7 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
ltcl_folder_logic_helper=>test(
iv_starting = lc_src
iv_top = lc_top
iv_logic = zcl_abapgit_dot_abapgit=>c_folder_logic-full
iv_logic = zif_abapgit_dot_abapgit=>c_folder_logic-full
iv_package = '/TEST/T1'
iv_path = '/src/#test#t1/' ).
ENDMETHOD.

4
src/zabapgit_gui_router.prog.abap
View File

@ -66,7 +66,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
DATA: lv_url TYPE string,
lv_key TYPE zcl_abapgit_persistence_repo=>ty_repo-key,
ls_db TYPE zcl_abapgit_persistence_db=>ty_content,
ls_db TYPE zif_abapgit_persistence=>ty_content,
ls_item TYPE zif_abapgit_definitions=>ty_item.
lv_key = iv_getdata. " TODO refactor
@ -276,7 +276,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
DATA: lv_page_class TYPE string,
lv_message TYPE string,
ls_key TYPE zcl_abapgit_persistence_db=>ty_content.
ls_key TYPE zif_abapgit_persistence=>ty_content.
lv_page_class = |LCL_GUI_PAGE_{ to_upper( iv_name ) }|.
ls_key = zcl_abapgit_html_action_utils=>dbkey_decode( iv_getdata ).

20
src/zabapgit_page_db.prog.abap
View File

@ -6,17 +6,17 @@ CLASS lcl_gui_page_db_dis DEFINITION FINAL INHERITING FROM lcl_gui_page.
PUBLIC SECTION.
METHODS: constructor
IMPORTING is_key TYPE zcl_abapgit_persistence_db=>ty_content.
IMPORTING is_key TYPE zif_abapgit_persistence=>ty_content.
CLASS-METHODS: render_record_banner
IMPORTING is_key TYPE zcl_abapgit_persistence_db=>ty_content
IMPORTING is_key TYPE zif_abapgit_persistence=>ty_content
RETURNING VALUE(rv_html) TYPE string.
PROTECTED SECTION.
METHODS render_content REDEFINITION.
PRIVATE SECTION.
DATA: ms_key TYPE zcl_abapgit_persistence_db=>ty_content.
DATA: ms_key TYPE zif_abapgit_persistence=>ty_content.
ENDCLASS.
@ -41,8 +41,8 @@ CLASS lcl_gui_page_db_dis IMPLEMENTATION.
DATA:
lo_highlighter TYPE REF TO zcl_abapgit_syntax_highlighter,
lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar,
lv_data TYPE zcl_abapgit_persistence_db=>ty_content-data_str,
ls_action TYPE zcl_abapgit_persistence_db=>ty_content,
lv_data TYPE zif_abapgit_persistence=>ty_content-data_str,
ls_action TYPE zif_abapgit_persistence=>ty_content,
lv_action TYPE string.
TRY.
@ -83,13 +83,13 @@ CLASS lcl_gui_page_db_edit DEFINITION FINAL INHERITING FROM lcl_gui_page.
PUBLIC SECTION.
METHODS: constructor
IMPORTING is_key TYPE zcl_abapgit_persistence_db=>ty_content.
IMPORTING is_key TYPE zif_abapgit_persistence=>ty_content.
PROTECTED SECTION.
METHODS render_content REDEFINITION.
PRIVATE SECTION.
DATA: ms_key TYPE zcl_abapgit_persistence_db=>ty_content.
DATA: ms_key TYPE zif_abapgit_persistence=>ty_content.
ENDCLASS.
@ -103,7 +103,7 @@ CLASS lcl_gui_page_db_edit IMPLEMENTATION.
METHOD render_content.
DATA: lv_data TYPE zcl_abapgit_persistence_db=>ty_content-data_str,
DATA: lv_data TYPE zif_abapgit_persistence=>ty_content-data_str,
lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar.
TRY.
@ -160,7 +160,7 @@ CLASS lcl_gui_page_db DEFINITION FINAL INHERITING FROM lcl_gui_page.
PRIVATE SECTION.
METHODS explain_content
IMPORTING is_data TYPE zcl_abapgit_persistence_db=>ty_content
IMPORTING is_data TYPE zif_abapgit_persistence=>ty_content
RETURNING VALUE(rv_text) TYPE string
RAISING zcx_abapgit_exception.
@ -175,7 +175,7 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
METHOD render_content.
DATA: lt_data TYPE zcl_abapgit_persistence_db=>tt_content,
DATA: lt_data TYPE zif_abapgit_persistence=>tt_content,
lv_action TYPE string,
lv_trclass TYPE string,
lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar.

2
src/zabapgit_page_main.prog.abap
View File

@ -19,7 +19,7 @@ CLASS lcl_gui_page_main DEFINITION FINAL INHERITING FROM lcl_gui_page.
changed_by TYPE string VALUE 'changed_by',
END OF c_actions.
DATA: mv_show TYPE zcl_abapgit_persistence_db=>ty_value,
DATA: mv_show TYPE zif_abapgit_persistence=>ty_value,
mo_repo_content TYPE REF TO lcl_gui_view_repo.
METHODS:

6
src/zabapgit_page_repo_settings.prog.abap
View File

@ -46,17 +46,17 @@ CLASS lcl_gui_page_repo_sett IMPLEMENTATION.
METHOD render_content.
DATA: ls_dot TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit,
DATA: ls_dot TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit,
lv_selected TYPE string,
lt_folder_logic TYPE stringtab.
FIELD-SYMBOLS: <lv_folder_logic> TYPE LINE OF stringtab.
ls_dot = mo_repo->get_dot_abapgit( )->get_data( ).
INSERT zcl_abapgit_dot_abapgit=>c_folder_logic-full
INSERT zif_abapgit_dot_abapgit=>c_folder_logic-full
INTO TABLE lt_folder_logic.
INSERT zcl_abapgit_dot_abapgit=>c_folder_logic-prefix
INSERT zif_abapgit_dot_abapgit=>c_folder_logic-prefix
INTO TABLE lt_folder_logic.
CREATE OBJECT ro_html.

6
src/zabapgit_repo.prog.abap
View File

@ -12,7 +12,7 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
constructor
IMPORTING is_data TYPE zcl_abapgit_persistence_repo=>ty_repo,
get_key
RETURNING VALUE(rv_key) TYPE zcl_abapgit_persistence_db=>ty_value,
RETURNING VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_value,
get_name
RETURNING VALUE(rv_name) TYPE string
RAISING zcx_abapgit_exception,
@ -206,7 +206,7 @@ CLASS lcl_repo_srv DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
RAISING zcx_abapgit_exception.
METHODS get
IMPORTING iv_key TYPE zcl_abapgit_persistence_db=>ty_value
IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_value
RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo
RAISING zcx_abapgit_exception.
@ -217,7 +217,7 @@ CLASS lcl_repo_srv DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
RAISING zcx_abapgit_exception.
METHODS switch_repo_type
IMPORTING iv_key TYPE zcl_abapgit_persistence_db=>ty_value
IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_value
iv_offline TYPE abap_bool
RAISING zcx_abapgit_exception.

2
src/zabapgit_repo_impl.prog.abap
View File

@ -549,7 +549,7 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD deserialize.
DATA: lt_updated_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
lt_requirements TYPE STANDARD TABLE OF zcl_abapgit_dot_abapgit=>ty_requirement,
lt_requirements TYPE STANDARD TABLE OF zif_abapgit_dot_abapgit=>ty_requirement,
lx_error TYPE REF TO zcx_abapgit_exception.
find_remote_dot_abapgit( ).

6
src/zabapgit_requirements.prog.abap
View File

@ -29,14 +29,14 @@ CLASS lcl_requirement_helper DEFINITION FINAL.
"! @parameter it_requirements | The requirements to check
"! @parameter iv_show_popup | Show popup with requirements
"! @raising zcx_abapgit_exception | Cancelled by user or internal error
check_requirements IMPORTING it_requirements TYPE zcl_abapgit_dot_abapgit=>ty_requirement_tt
check_requirements IMPORTING it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt
iv_show_popup TYPE abap_bool DEFAULT abap_true
RAISING zcx_abapgit_exception,
"! Get a table with information about each requirement
"! @parameter it_requirements | Requirements
"! @parameter rt_status | Result
"! @raising zcx_abapgit_exception | Internal error
get_requirement_met_status IMPORTING it_requirements TYPE zcl_abapgit_dot_abapgit=>ty_requirement_tt
get_requirement_met_status IMPORTING it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt
RETURNING VALUE(rt_status) TYPE ty_requirement_status_tt
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -83,7 +83,7 @@ CLASS lcl_requirement_helper IMPLEMENTATION.
DATA: lt_installed TYPE STANDARD TABLE OF cvers_sdu.
FIELD-SYMBOLS: <ls_requirement> TYPE zcl_abapgit_dot_abapgit=>ty_requirement,
FIELD-SYMBOLS: <ls_requirement> TYPE zif_abapgit_dot_abapgit=>ty_requirement,
<ls_status> TYPE ty_requirement_status,
<ls_installed_comp> TYPE cvers_sdu.

4
src/zabapgit_services_db.prog.abap
View File

@ -6,11 +6,11 @@ CLASS lcl_services_db DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS delete
IMPORTING is_key TYPE zcl_abapgit_persistence_db=>ty_content
IMPORTING is_key TYPE zif_abapgit_persistence=>ty_content
RAISING zcx_abapgit_exception zcx_abapgit_cancel.
CLASS-METHODS update
IMPORTING is_content TYPE zcl_abapgit_persistence_db=>ty_content
IMPORTING is_content TYPE zif_abapgit_persistence=>ty_content
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_services_db

2
src/zabapgit_services_repo.prog.abap
View File

@ -48,7 +48,7 @@ CLASS lcl_services_repo DEFINITION FINAL.
RAISING zcx_abapgit_exception.
CLASS-METHODS transport_to_branch
IMPORTING iv_repository_key TYPE zcl_abapgit_persistence_db=>ty_value
IMPORTING iv_repository_key TYPE zif_abapgit_persistence=>ty_value
RAISING zcx_abapgit_exception zcx_abapgit_cancel.
ENDCLASS. "lcl_services_repo

2
src/zabapgit_view_repo.prog.abap
View File

@ -267,7 +267,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
DATA: lo_tb_advanced TYPE REF TO zcl_abapgit_html_toolbar,
lo_tb_branch TYPE REF TO zcl_abapgit_html_toolbar,
lo_tb_tag TYPE REF TO zcl_abapgit_html_toolbar,
lv_key TYPE zcl_abapgit_persistence_db=>ty_value,
lv_key TYPE zif_abapgit_persistence=>ty_value,
lv_wp_opt LIKE zif_abapgit_definitions=>gc_html_opt-crossout,
lv_crossout LIKE zif_abapgit_definitions=>gc_html_opt-crossout,
lv_pull_opt LIKE zif_abapgit_definitions=>gc_html_opt-crossout.

2
src/zabapgit_zip.prog.abap
View File

@ -11,7 +11,7 @@ CLASS lcl_zip DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS import
IMPORTING iv_key TYPE zcl_abapgit_persistence_db=>ty_value
IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_value
RAISING zcx_abapgit_exception.
CLASS-METHODS export

41
src/zcl_abapgit_dot_abapgit.clas.abap
View File

@ -4,29 +4,6 @@ CLASS zcl_abapgit_dot_abapgit DEFINITION
PUBLIC SECTION.
TYPES:
BEGIN OF ty_requirement,
component TYPE dlvunit,
min_release TYPE saprelease,
min_patch TYPE sappatchlv,
END OF ty_requirement .
TYPES:
ty_requirement_tt TYPE STANDARD TABLE OF ty_requirement WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_dot_abapgit,
master_language TYPE spras,
starting_folder TYPE string,
folder_logic TYPE string,
ignore TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
requirements TYPE ty_requirement_tt,
END OF ty_dot_abapgit .
CONSTANTS:
BEGIN OF c_folder_logic,
prefix TYPE string VALUE 'PREFIX',
full TYPE string VALUE 'FULL',
END OF c_folder_logic .
CLASS-METHODS build_default
RETURNING
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit .
@ -39,7 +16,7 @@ CLASS zcl_abapgit_dot_abapgit DEFINITION
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!is_data TYPE ty_dot_abapgit .
!is_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
METHODS serialize
RETURNING
VALUE(rv_xstr) TYPE xstring
@ -47,7 +24,7 @@ CLASS zcl_abapgit_dot_abapgit DEFINITION
zcx_abapgit_exception .
METHODS get_data
RETURNING
VALUE(rs_data) TYPE ty_dot_abapgit .
VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
METHODS add_ignore
IMPORTING
!iv_path TYPE string
@ -85,16 +62,16 @@ CLASS zcl_abapgit_dot_abapgit DEFINITION
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
DATA: ms_data TYPE ty_dot_abapgit.
DATA: ms_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
CLASS-METHODS:
to_xml
IMPORTING is_data TYPE ty_dot_abapgit
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 ty_dot_abapgit.
RETURNING VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
ENDCLASS.
@ -125,12 +102,12 @@ CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION.
METHOD build_default.
DATA: ls_data TYPE ty_dot_abapgit.
DATA: ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
ls_data-master_language = sy-langu.
ls_data-starting_folder = '/'.
ls_data-folder_logic = c_folder_logic-prefix.
ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
APPEND '/.gitignore' TO ls_data-ignore.
APPEND '/LICENSE' TO ls_data-ignore.
@ -153,7 +130,7 @@ CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION.
METHOD deserialize.
DATA: lv_xml TYPE string,
ls_data TYPE ty_dot_abapgit.
ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( iv_xstr ).
@ -184,7 +161,7 @@ CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION.
* downward compatibility
IF rs_data-folder_logic IS INITIAL.
rs_data-folder_logic = c_folder_logic-prefix.
rs_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
ENDIF.
ENDMETHOD.

4
src/zcl_abapgit_dot_abapgit.clas.testclasses.abap
View File

@ -17,8 +17,8 @@ CLASS ltcl_dot_abapgit IMPLEMENTATION.
METHOD identity.
DATA: lo_dot TYPE REF TO zcl_abapgit_dot_abapgit,
ls_before TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit,
ls_after TYPE zcl_abapgit_dot_abapgit=>ty_dot_abapgit.
ls_before TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit,
ls_after TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
lo_dot = zcl_abapgit_dot_abapgit=>build_default( ).

26
src/zif_abapgit_dot_abapgit.intf.abap Normal file
View File

@ -0,0 +1,26 @@
INTERFACE zif_abapgit_dot_abapgit PUBLIC.
TYPES:
BEGIN OF ty_requirement,
component TYPE dlvunit,
min_release TYPE saprelease,
min_patch TYPE sappatchlv,
END OF ty_requirement .
TYPES:
ty_requirement_tt TYPE STANDARD TABLE OF ty_requirement WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_dot_abapgit,
master_language TYPE spras,
starting_folder TYPE string,
folder_logic TYPE string,
ignore TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
requirements TYPE ty_requirement_tt,
END OF ty_dot_abapgit .
CONSTANTS:
BEGIN OF c_folder_logic,
prefix TYPE string VALUE 'PREFIX',
full TYPE string VALUE 'FULL',
END OF c_folder_logic .
ENDINTERFACE.

16
src/zif_abapgit_dot_abapgit.intf.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_DOT_ABAPGIT</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>.abapgit.xml</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<UNICODE>X</UNICODE>
</VSEOINTERF>
</asx:values>
</asx:abap>
</abapGit>