diff --git a/package.json b/package.json index bcdf263fe..9b711d853 100644 --- a/package.json +++ b/package.json @@ -8,7 +8,7 @@ "url": "git+https://github.com/larshp/abapGit.git" }, "devDependencies": { - "abapmerge": "^0.7.0", + "abapmerge": "^0.7.1", "abaplint": ">=0.26.7" } } diff --git a/src/utils/zcl_abapgit_time.clas.abap b/src/utils/zcl_abapgit_time.clas.abap new file mode 100644 index 000000000..8c21aa0ae --- /dev/null +++ b/src/utils/zcl_abapgit_time.clas.abap @@ -0,0 +1,65 @@ +CLASS zcl_abapgit_time DEFINITION + PUBLIC + CREATE PUBLIC . + + PUBLIC SECTION. + TYPES: ty_unixtime TYPE c LENGTH 16. + + CLASS-METHODS get + RETURNING VALUE(rv_time) TYPE ty_unixtime + RAISING zcx_abapgit_exception. + PRIVATE SECTION. + CONSTANTS: c_epoch TYPE datum VALUE '19700101'. + +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_TIME IMPLEMENTATION. + + + METHOD get. + + DATA: lv_i TYPE i, + lv_tz TYPE tznzone, + lv_utcdiff TYPE tznutcdiff, + lv_utcsign TYPE tznutcsign. + + + lv_i = sy-datum - c_epoch. + lv_i = lv_i * 86400. + lv_i = lv_i + sy-uzeit. + + CALL FUNCTION 'TZON_GET_OS_TIMEZONE' + IMPORTING + ef_timezone = lv_tz. + + CALL FUNCTION 'TZON_GET_OFFSET' + EXPORTING + if_timezone = lv_tz + if_local_date = sy-datum + if_local_time = sy-uzeit + IMPORTING + ef_utcdiff = lv_utcdiff + ef_utcsign = lv_utcsign + EXCEPTIONS + conversion_error = 1 + OTHERS = 2. + IF sy-subrc <> 0. + zcx_abapgit_exception=>raise( 'Timezone error' ). + ENDIF. + + CASE lv_utcsign. + WHEN '+'. + lv_i = lv_i - lv_utcdiff. + WHEN '-'. + lv_i = lv_i + lv_utcdiff. + ENDCASE. + + rv_time = lv_i. + CONDENSE rv_time. + rv_time+11 = lv_utcsign. + rv_time+12 = lv_utcdiff. + + ENDMETHOD. "get +ENDCLASS. diff --git a/src/utils/zcl_abapgit_time.clas.xml b/src/utils/zcl_abapgit_time.clas.xml new file mode 100644 index 000000000..8e1c6b724 --- /dev/null +++ b/src/utils/zcl_abapgit_time.clas.xml @@ -0,0 +1,18 @@ + + + + + + ZCL_ABAPGIT_TIME + 1 + E + Time + 2 + 1 + X + X + X + + + + diff --git a/src/zabapgit_2fa.prog.abap b/src/zabapgit_2fa.prog.abap index 58b7bcf2a..b7c0a38e3 100644 --- a/src/zabapgit_2fa.prog.abap +++ b/src/zabapgit_2fa.prog.abap @@ -657,11 +657,11 @@ CLASS lcl_2fa_auth_registry DEFINITION "! @parameter cv_username | Username "! @parameter cv_password | Password, will be replaced by an access token if two factor "! authentication succeeds - "! @raising lcx_exception | Error in two factor authentication + "! @raising zcx_abapgit_exception | Error in two factor authentication use_2fa_if_required IMPORTING iv_url TYPE string CHANGING cv_username TYPE string cv_password TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-DATA: "! All authenticators managed by the registry gt_registered_authenticators TYPE HASHED TABLE OF REF TO lif_2fa_authenticator @@ -670,7 +670,7 @@ CLASS lcl_2fa_auth_registry DEFINITION CLASS-METHODS: popup_token RETURNING VALUE(rv_token) TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. CLASS lcl_2fa_auth_registry IMPLEMENTATION. @@ -754,10 +754,7 @@ CLASS lcl_2fa_auth_registry IMPLEMENTATION. CATCH lcx_2fa_illegal_state ##NO_HANDLER. ENDTRY. - RAISE EXCEPTION TYPE lcx_exception - EXPORTING - iv_text = |2FA error: { lx_ex->get_text( ) }| - ix_previous = lx_ex. + zcx_abapgit_exception=>raise( |2FA error: { lx_ex->get_text( ) }| ). ENDTRY. ENDMETHOD. @@ -786,11 +783,11 @@ CLASS lcl_2fa_auth_registry IMPLEMENTATION. error_in_fields = 1 OTHERS = 2. "#EC NOTEXT IF sy-subrc <> 0. - lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ). + zcx_abapgit_exception=>raise( 'Error from POPUP_GET_VALUES' ). ENDIF. IF lv_returncode = 'A'. - lcx_exception=>raise( 'Authentication cancelled' ). + zcx_abapgit_exception=>raise( 'Authentication cancelled' ). ENDIF. READ TABLE lt_fields INDEX 1 ASSIGNING . diff --git a/src/zabapgit_app.prog.abap b/src/zabapgit_app.prog.abap index cdfcd79fc..303a501b7 100644 --- a/src/zabapgit_app.prog.abap +++ b/src/zabapgit_app.prog.abap @@ -16,12 +16,12 @@ CLASS lcl_app DEFINITION FINAL. CLASS-METHODS gui RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS user IMPORTING iv_user TYPE xubname DEFAULT sy-uname RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS repo_srv RETURNING VALUE(ro_repo_srv) TYPE REF TO lcl_repo_srv. diff --git a/src/zabapgit_background.prog.abap b/src/zabapgit_background.prog.abap index 545e4a5c1..090e2cfd5 100644 --- a/src/zabapgit_background.prog.abap +++ b/src/zabapgit_background.prog.abap @@ -7,7 +7,7 @@ CLASS lcl_background DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS: run - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CLASS-METHODS: @@ -17,14 +17,14 @@ CLASS lcl_background DEFINITION FINAL. push IMPORTING io_repo TYPE REF TO lcl_repo_online is_settings TYPE lcl_persist_background=>ty_background - RAISING lcx_exception, + RAISING zcx_abapgit_exception, push_fixed IMPORTING io_repo TYPE REF TO lcl_repo_online is_settings TYPE lcl_persist_background=>ty_background - RAISING lcx_exception, + RAISING zcx_abapgit_exception, push_auto IMPORTING io_repo TYPE REF TO lcl_repo_online - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. @@ -44,7 +44,7 @@ CLASS lcl_background IMPLEMENTATION. WHEN lcl_persist_background=>c_amethod-auto. push_auto( io_repo ). WHEN OTHERS. - lcx_exception=>raise( 'unknown push method' ). + zcx_abapgit_exception=>raise( 'unknown push method' ). ENDCASE. ENDMETHOD. @@ -233,7 +233,7 @@ CLASS lcl_background IMPLEMENTATION. push( io_repo = lo_repo is_settings = ). WHEN OTHERS. - lcx_exception=>raise( 'background, unknown mode' ). + zcx_abapgit_exception=>raise( 'background, unknown mode' ). ENDCASE. ENDLOOP. diff --git a/src/zabapgit_definitions.prog.abap b/src/zabapgit_definitions.prog.abap index 90abd5bdf..987b7dd36 100644 --- a/src/zabapgit_definitions.prog.abap +++ b/src/zabapgit_definitions.prog.abap @@ -214,6 +214,7 @@ INTERFACE lif_defs. repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums', repo_toggle_fav TYPE string VALUE 'repo_toggle_fav', repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch', + repo_syntax_check TYPE string VALUE 'repo_syntax_check', abapgit_home TYPE string VALUE 'abapgit_home', abapgit_wiki TYPE string VALUE 'abapgit_wiki', diff --git a/src/zabapgit_dot_abapgit.prog.abap b/src/zabapgit_dot_abapgit.prog.abap index a56aeae0b..d43f188d2 100644 --- a/src/zabapgit_dot_abapgit.prog.abap +++ b/src/zabapgit_dot_abapgit.prog.abap @@ -32,14 +32,14 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit. deserialize IMPORTING iv_xstr TYPE xstring RETURNING VALUE(ro_dot_abapgit) TYPE REF TO lcl_dot_abapgit - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS: constructor IMPORTING is_data TYPE ty_dot_abapgit, serialize RETURNING VALUE(rv_xstr) TYPE xstring - RAISING lcx_exception, + RAISING zcx_abapgit_exception, get_data RETURNING VALUE(rs_data) TYPE ty_dot_abapgit, add_ignore @@ -66,7 +66,7 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit. * IMPORTING iv_language TYPE spras, get_signature RETURNING VALUE(rs_signature) TYPE lif_defs=>ty_file_signature - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. DATA: ms_data TYPE ty_dot_abapgit. @@ -75,7 +75,7 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit. to_xml IMPORTING is_data TYPE ty_dot_abapgit RETURNING VALUE(rv_xml) TYPE string - RAISING lcx_exception, + RAISING zcx_abapgit_exception, from_xml IMPORTING iv_xml TYPE string RETURNING VALUE(rs_data) TYPE ty_dot_abapgit. diff --git a/src/zabapgit_exceptions.prog.abap b/src/zabapgit_exceptions.prog.abap index 8302f029e..1264bf705 100644 --- a/src/zabapgit_exceptions.prog.abap +++ b/src/zabapgit_exceptions.prog.abap @@ -2,45 +2,6 @@ *& Include ZABAPGIT_EXCEPTIONS *&---------------------------------------------------------------------* -*----------------------------------------------------------------------* -* CLASS LCX_EXCEPTION DEFINITION -*----------------------------------------------------------------------* -CLASS lcx_exception DEFINITION INHERITING FROM cx_static_check FINAL. - - PUBLIC SECTION. - DATA mv_text TYPE string. - - METHODS constructor - IMPORTING iv_text TYPE string - ix_previous TYPE REF TO cx_root OPTIONAL. - - CLASS-METHODS: raise IMPORTING iv_text TYPE clike - RAISING lcx_exception. - - PRIVATE SECTION. - DATA mx_previous TYPE REF TO cx_root. - -ENDCLASS. "CX_LOCAL_EXCEPTION DEFINITION - -*----------------------------------------------------------------------* -* CLASS LCX_EXCEPTION IMPLEMENTATION -*----------------------------------------------------------------------* -CLASS lcx_exception IMPLEMENTATION. - - METHOD constructor. - super->constructor( ). - mv_text = iv_text. - mx_previous = previous. - ENDMETHOD. "CONSTRUCTOR - - METHOD raise. - RAISE EXCEPTION TYPE lcx_exception - EXPORTING - iv_text = iv_text. - ENDMETHOD. - -ENDCLASS. "lcx_exception IMPLEMENTATION - *----------------------------------------------------------------------* * CLASS LCX_NOT_FOUND DEFINITION *----------------------------------------------------------------------* diff --git a/src/zabapgit_file_status.prog.abap b/src/zabapgit_file_status.prog.abap index 827bf21ba..dcf759ab8 100644 --- a/src/zabapgit_file_status.prog.abap +++ b/src/zabapgit_file_status.prog.abap @@ -17,7 +17,7 @@ CLASS lcl_file_status DEFINITION FINAL IMPORTING io_repo TYPE REF TO lcl_repo io_log TYPE REF TO lcl_log OPTIONAL RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. @@ -28,13 +28,13 @@ CLASS lcl_file_status DEFINITION FINAL it_remote TYPE lif_defs=>ty_files_tt it_cur_state TYPE lif_defs=>ty_file_signatures_tt RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt - RAISING lcx_exception, + RAISING zcx_abapgit_exception, run_checks IMPORTING io_log TYPE REF TO lcl_log it_results TYPE lif_defs=>ty_results_tt io_dot TYPE REF TO lcl_dot_abapgit iv_top TYPE devclass - RAISING lcx_exception, + RAISING zcx_abapgit_exception, build_existing IMPORTING is_local TYPE lif_defs=>ty_file_item is_remote TYPE lif_defs=>ty_file diff --git a/src/zabapgit_folder_logic.prog.abap b/src/zabapgit_folder_logic.prog.abap index d0fc5516b..24a9a42d3 100644 --- a/src/zabapgit_folder_logic.prog.abap +++ b/src/zabapgit_folder_logic.prog.abap @@ -13,7 +13,7 @@ CLASS lcl_folder_logic DEFINITION. iv_package TYPE devclass RETURNING VALUE(rv_path) TYPE string - RAISING lcx_exception, + RAISING zcx_abapgit_exception, path_to_package IMPORTING iv_top TYPE devclass @@ -22,7 +22,7 @@ CLASS lcl_folder_logic DEFINITION. RETURNING VALUE(rv_package) TYPE devclass RAISING - lcx_exception. + zcx_abapgit_exception. ENDCLASS. @@ -38,7 +38,7 @@ CLASS lcl_folder_logic IMPLEMENTATION. lv_length = strlen( io_dot->get_starting_folder( ) ). IF lv_length > strlen( iv_path ). - lcx_exception=>raise( 'unexpected folder structure' ). + zcx_abapgit_exception=>raise( 'unexpected folder structure' ). ENDIF. lv_path = iv_path+lv_length. lv_parent = iv_top. @@ -86,7 +86,7 @@ CLASS lcl_folder_logic IMPLEMENTATION. lv_parentcl = lcl_sap_package=>get( iv_package )->read_parent( ). IF lv_parentcl IS INITIAL. - lcx_exception=>raise( |error, expected parent package, { iv_package }| ). + zcx_abapgit_exception=>raise( |error, expected parent package, { iv_package }| ). ELSE. CASE io_dot->get_folder_logic( ). WHEN lcl_dot_abapgit=>c_folder_logic-full. @@ -102,7 +102,7 @@ CLASS lcl_folder_logic IMPLEMENTATION. * ZZZ_something. This will define the folder name in the zip file to be "something", * similarily with online projects. Alternatively change to FULL folder logic lv_message = 'PREFIX: Unexpected package naming(' && iv_package && ')' ##no_text. - lcx_exception=>raise( lv_message ). + zcx_abapgit_exception=>raise( lv_message ). ENDIF. WHEN OTHERS. ASSERT 0 = 1. @@ -110,7 +110,7 @@ CLASS lcl_folder_logic IMPLEMENTATION. lv_path = iv_package+lv_len. IF strlen( lv_path ) = 0. - lcx_exception=>raise( 'Folder logic: length = 0' ). + zcx_abapgit_exception=>raise( 'Folder logic: length = 0' ). ENDIF. IF lv_path(1) = '_'. @@ -143,7 +143,7 @@ CLASS ltcl_folder_logic_helper DEFINITION FOR TESTING FINAL. iv_logic TYPE string iv_package TYPE devclass iv_path TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. @@ -194,11 +194,11 @@ CLASS ltcl_folder_logic DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHOR METHODS: setup, teardown, - prefix1 FOR TESTING RAISING lcx_exception, - prefix2 FOR TESTING RAISING lcx_exception, - prefix_error1 FOR TESTING RAISING lcx_exception, - full1 FOR TESTING RAISING lcx_exception, - full2 FOR TESTING RAISING lcx_exception. + prefix1 FOR TESTING RAISING zcx_abapgit_exception, + prefix2 FOR TESTING RAISING zcx_abapgit_exception, + prefix_error1 FOR TESTING RAISING zcx_abapgit_exception, + full1 FOR TESTING RAISING zcx_abapgit_exception, + full2 FOR TESTING RAISING zcx_abapgit_exception. ENDCLASS. "ltcl_convert DEFINITION @@ -274,7 +274,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION. iv_package = '$FOOBAR' iv_path = '/src/' ). cl_abap_unit_assert=>fail( 'Error expected' ). - CATCH lcx_exception ##NO_HANDLER. + CATCH zcx_abapgit_exception ##NO_HANDLER. ENDTRY. ENDMETHOD. @@ -310,10 +310,10 @@ CLASS ltcl_folder_logic_namespaces DEFINITION FOR TESTING RISK LEVEL HARMLESS DU METHODS: setup, teardown, - prefix1 FOR TESTING RAISING lcx_exception, - prefix2 FOR TESTING RAISING lcx_exception, - full1 FOR TESTING RAISING lcx_exception, - full2 FOR TESTING RAISING lcx_exception. + prefix1 FOR TESTING RAISING zcx_abapgit_exception, + prefix2 FOR TESTING RAISING zcx_abapgit_exception, + full1 FOR TESTING RAISING zcx_abapgit_exception, + full2 FOR TESTING RAISING zcx_abapgit_exception. ENDCLASS. "ltcl_convert DEFINITION diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap index 3cae67f9c..9d99211f5 100644 --- a/src/zabapgit_forms.prog.abap +++ b/src/zabapgit_forms.prog.abap @@ -7,7 +7,7 @@ *&---------------------------------------------------------------------* FORM run. - DATA: lx_exception TYPE REF TO lcx_exception, + DATA: lx_exception TYPE REF TO zcx_abapgit_exception, lv_ind TYPE t000-ccnocliind. @@ -23,13 +23,13 @@ FORM run. TRY. lcl_migrations=>run( ). PERFORM open_gui. - CATCH lcx_exception INTO lx_exception. - MESSAGE lx_exception->mv_text TYPE 'E'. + CATCH zcx_abapgit_exception INTO lx_exception. + MESSAGE lx_exception->text TYPE 'E'. ENDTRY. ENDFORM. "run -FORM open_gui RAISING lcx_exception. +FORM open_gui RAISING zcx_abapgit_exception. IF sy-batch = abap_true. lcl_background=>run( ). @@ -50,7 +50,7 @@ ENDFORM. * -->CS_ERROR text * -->CV_SHOW_POPUP text * -->RAISING text -* -->LCX_EXCEPTION text +* -->zcx_abapgit_exception text * -->##CALLED text * -->##NEEDED text *----------------------------------------------------------------------* @@ -58,11 +58,11 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt USING pv_code TYPE clike CHANGING cs_error TYPE svale cv_show_popup TYPE c - RAISING lcx_exception ##called ##needed. + RAISING zcx_abapgit_exception ##called ##needed. * called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS DATA: lv_url TYPE string, - lx_error TYPE REF TO lcx_exception, + lx_error TYPE REF TO zcx_abapgit_exception, ls_package_data TYPE scompkdtln, ls_branch TYPE lcl_git_branch_list=>ty_git_branch, lv_create TYPE boolean. @@ -85,7 +85,7 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt TRY. ls_branch = lcl_popups=>branch_list_popup( lv_url ). - CATCH lcx_exception INTO lx_error. + CATCH zcx_abapgit_exception INTO lx_error. MESSAGE lx_error TYPE 'S' DISPLAY LIKE 'E'. RETURN. ENDTRY. @@ -120,7 +120,7 @@ FORM package_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt USING pv_code TYPE clike CHANGING cs_error TYPE svale cv_show_popup TYPE c - RAISING lcx_exception ##called ##needed. + RAISING zcx_abapgit_exception ##called ##needed. * called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS DATA: ls_package_data TYPE scompkdtln, @@ -161,7 +161,7 @@ FORM output. p_exclude = lt_ucomm. ENDFORM. -FORM exit RAISING lcx_exception. +FORM exit RAISING zcx_abapgit_exception. CASE sy-ucomm. WHEN 'CBAC'. "Back IF lcl_app=>gui( )->back( ) IS INITIAL. diff --git a/src/zabapgit_git.prog.abap b/src/zabapgit_git.prog.abap index 448defdff..39bd4aab9 100644 --- a/src/zabapgit_git.prog.abap +++ b/src/zabapgit_git.prog.abap @@ -18,7 +18,7 @@ CLASS lcl_git_transport DEFINITION FINAL. it_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt OPTIONAL EXPORTING et_objects TYPE lif_defs=>ty_objects_tt ev_branch TYPE lif_defs=>ty_sha1 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. * local to remote CLASS-METHODS receive_pack @@ -27,12 +27,12 @@ CLASS lcl_git_transport DEFINITION FINAL. iv_new TYPE lif_defs=>ty_sha1 iv_branch_name TYPE string iv_pack TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS branches IMPORTING iv_url TYPE string RETURNING VALUE(ro_branch_list) TYPE REF TO lcl_git_branch_list - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CONSTANTS: BEGIN OF c_service, @@ -45,7 +45,7 @@ CLASS lcl_git_transport DEFINITION FINAL. iv_service TYPE string EXPORTING eo_client TYPE REF TO lcl_http_client eo_branch_list TYPE REF TO lcl_git_branch_list - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS find_branch IMPORTING iv_url TYPE string @@ -53,12 +53,12 @@ CLASS lcl_git_transport DEFINITION FINAL. iv_branch_name TYPE string EXPORTING eo_client TYPE REF TO lcl_http_client ev_branch TYPE lif_defs=>ty_sha1 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS parse EXPORTING ev_pack TYPE xstring CHANGING cv_data TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_transport DEFINITION @@ -89,22 +89,22 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack. CLASS-METHODS decode IMPORTING iv_data TYPE xstring RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS decode_tree IMPORTING iv_data TYPE xstring RETURNING VALUE(rt_nodes) TYPE ty_nodes_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS decode_commit IMPORTING iv_data TYPE xstring RETURNING VALUE(rs_commit) TYPE ty_commit - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS encode IMPORTING it_objects TYPE lif_defs=>ty_objects_tt RETURNING VALUE(rv_data) TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS encode_tree IMPORTING it_nodes TYPE ty_nodes_tt @@ -118,7 +118,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack. IMPORTING iv_type TYPE lif_defs=>ty_type iv_length TYPE i RETURNING VALUE(rv_xstring) TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CONSTANTS: c_pack_start TYPE x LENGTH 4 VALUE '5041434B', " PACK @@ -128,12 +128,12 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack. CLASS-METHODS decode_deltas CHANGING ct_objects TYPE lif_defs=>ty_objects_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS delta IMPORTING is_object TYPE lif_defs=>ty_object CHANGING ct_objects TYPE lif_defs=>ty_objects_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS delta_header EXPORTING ev_header TYPE i @@ -146,7 +146,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack. CLASS-METHODS get_type IMPORTING iv_x TYPE x RETURNING VALUE(rv_type) TYPE lif_defs=>ty_type - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS get_length EXPORTING ev_length TYPE i @@ -155,7 +155,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack. CLASS-METHODS zlib_decompress CHANGING cv_data TYPE xstring cv_decompressed TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_pack DEFINITION @@ -264,11 +264,11 @@ CLASS lcl_git_transport IMPLEMENTATION. lv_string = lcl_convert=>xstring_to_string_utf8( lv_xstring ). IF NOT lv_string CP '*unpack ok*'. - lcx_exception=>raise( 'unpack not ok' ). + zcx_abapgit_exception=>raise( 'unpack not ok' ). ELSEIF lv_string CP '*pre-receive hook declined*'. - lcx_exception=>raise( 'pre-receive hook declined' ). + zcx_abapgit_exception=>raise( 'pre-receive hook declined' ). ELSEIF lv_string CP '*funny refname*'. - lcx_exception=>raise( 'funny refname' ). + zcx_abapgit_exception=>raise( 'funny refname' ). ENDIF. ENDMETHOD. "receive_pack @@ -286,7 +286,7 @@ CLASS lcl_git_transport IMPLEMENTATION. lv_len = lcl_git_utils=>length_utf8_hex( cv_data ). IF lv_len > xstrlen( cv_data ). - lcx_exception=>raise( 'parse, string length too large' ). + zcx_abapgit_exception=>raise( 'parse, string length too large' ). ENDIF. lv_contents = cv_data(lv_len). @@ -372,7 +372,7 @@ CLASS lcl_git_transport IMPLEMENTATION. CHANGING cv_data = lv_xstring ). IF lv_pack IS INITIAL. - lcx_exception=>raise( 'empty pack' ). + zcx_abapgit_exception=>raise( 'empty pack' ). ENDIF. et_objects = lcl_git_pack=>decode( lv_pack ). @@ -441,7 +441,7 @@ CLASS lcl_git_pack IMPLEMENTATION. WHEN lif_defs=>gc_type-ref_d. lv_type = '111'. WHEN OTHERS. - lcx_exception=>raise( 'Unexpected object type while encoding pack' ). + zcx_abapgit_exception=>raise( 'Unexpected object type while encoding pack' ). ENDCASE. lv_x4 = iv_length. @@ -466,7 +466,7 @@ CLASS lcl_git_pack IMPLEMENTATION. CONCATENATE lv_result '0' lv_bits+7(7) INTO lv_result. ELSE. * this IF can be refactored, use shifting? - lcx_exception=>raise( 'Todo, encoding length' ). + zcx_abapgit_exception=>raise( 'Todo, encoding length' ). ENDIF. * convert bit string to xstring @@ -603,7 +603,7 @@ CLASS lcl_git_pack IMPLEMENTATION. WHEN '111'. rv_type = lif_defs=>gc_type-ref_d. WHEN OTHERS. - lcx_exception=>raise( 'Todo, unknown type' ). + zcx_abapgit_exception=>raise( 'Todo, unknown type' ). ENDCASE. ENDMETHOD. "get_type @@ -663,7 +663,7 @@ CLASS lcl_git_pack IMPLEMENTATION. IF rs_commit-author IS INITIAL OR rs_commit-committer IS INITIAL OR rs_commit-tree IS INITIAL. - lcx_exception=>raise( 'multiple parents? not supported' ). + zcx_abapgit_exception=>raise( 'multiple parents? not supported' ). ENDIF. ENDMETHOD. "decode_commit @@ -714,10 +714,10 @@ CLASS lcl_git_pack IMPLEMENTATION. * find base READ TABLE ct_objects ASSIGNING WITH KEY sha1 = is_object-sha1. IF sy-subrc <> 0. - lcx_exception=>raise( |Base not found, { is_object-sha1 }| ). + zcx_abapgit_exception=>raise( |Base not found, { is_object-sha1 }| ). ELSEIF -type = lif_defs=>gc_type-ref_d. * sanity check - lcx_exception=>raise( 'Delta, base eq delta' ). + zcx_abapgit_exception=>raise( 'Delta, base eq delta' ). ENDIF. lv_base = -data. @@ -857,7 +857,7 @@ CLASS lcl_git_pack IMPLEMENTATION. IF ls_node-chmod <> lif_defs=>gc_chmod-dir AND ls_node-chmod <> lif_defs=>gc_chmod-file AND ls_node-chmod <> lif_defs=>gc_chmod-executable. - lcx_exception=>raise( 'Unknown chmod' ). + zcx_abapgit_exception=>raise( 'Unknown chmod' ). ENDIF. ls_node-name = lv_name. @@ -886,7 +886,7 @@ CLASS lcl_git_pack IMPLEMENTATION. cv_decompressed = ls_data-raw. IF lv_compressed_len IS INITIAL. - lcx_exception=>raise( 'Decompression falied :o/' ). + zcx_abapgit_exception=>raise( 'Decompression falied :o/' ). ENDIF. cv_data = cv_data+lv_compressed_len. @@ -899,7 +899,7 @@ CLASS lcl_git_pack IMPLEMENTATION. cv_data = cv_data+1. ENDIF. IF cv_data(4) <> lv_adler32. - lcx_exception=>raise( 'Wrong Adler checksum' ). + zcx_abapgit_exception=>raise( 'Wrong Adler checksum' ). ENDIF. ENDMETHOD. @@ -926,13 +926,13 @@ CLASS lcl_git_pack IMPLEMENTATION. * header IF NOT xstrlen( lv_data ) > 4 OR lv_data(4) <> c_pack_start. - lcx_exception=>raise( 'Unexpected pack header' ). + zcx_abapgit_exception=>raise( 'Unexpected pack header' ). ENDIF. lv_data = lv_data+4. * version IF lv_data(4) <> c_version. - lcx_exception=>raise( 'Version not supported' ). + zcx_abapgit_exception=>raise( 'Version not supported' ). ENDIF. lv_data = lv_data+4. @@ -958,7 +958,7 @@ CLASS lcl_git_pack IMPLEMENTATION. * strip header, '789C', CMF + FLG lv_zlib = lv_data(2). IF lv_zlib <> c_zlib AND lv_zlib <> c_zlib_hmm. - lcx_exception=>raise( 'Unexpected zlib header' ). + zcx_abapgit_exception=>raise( 'Unexpected zlib header' ). ENDIF. lv_data = lv_data+2. @@ -973,7 +973,7 @@ CLASS lcl_git_pack IMPLEMENTATION. raw_out_len = lv_decompress_len ). IF lv_expected <> lv_decompress_len. - lcx_exception=>raise( 'Decompression falied' ). + zcx_abapgit_exception=>raise( 'Decompression falied' ). ENDIF. cl_abap_gzip=>compress_binary( @@ -1024,7 +1024,7 @@ CLASS lcl_git_pack IMPLEMENTATION. lv_xstring = iv_data(lv_len). lv_sha1 = lcl_hash=>sha1_raw( lv_xstring ). IF to_upper( lv_sha1 ) <> lv_data. - lcx_exception=>raise( 'SHA1 at end of pack doesnt match' ). + zcx_abapgit_exception=>raise( 'SHA1 at end of pack doesnt match' ). ENDIF. decode_deltas( CHANGING ct_objects = rt_objects ). @@ -1109,7 +1109,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain. EXPORTING et_files TYPE lif_defs=>ty_files_tt et_objects TYPE lif_defs=>ty_objects_tt ev_branch TYPE lif_defs=>ty_sha1 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS push IMPORTING io_repo TYPE REF TO lcl_repo_online @@ -1117,24 +1117,24 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain. io_stage TYPE REF TO lcl_stage EXPORTING ev_branch TYPE lif_defs=>ty_sha1 et_updated_files TYPE lif_defs=>ty_file_signatures_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS create_branch IMPORTING io_repo TYPE REF TO lcl_repo_online iv_name TYPE string iv_from TYPE lif_defs=>ty_sha1 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS delete_branch IMPORTING io_repo TYPE REF TO lcl_repo_online is_branch TYPE lcl_git_branch_list=>ty_git_branch - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS full_tree IMPORTING it_objects TYPE lif_defs=>ty_objects_tt iv_branch TYPE lif_defs=>ty_sha1 RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. @@ -1159,7 +1159,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain. CLASS-METHODS build_trees IMPORTING it_expanded TYPE ty_expanded_tt RETURNING VALUE(rt_trees) TYPE ty_trees_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS find_folders IMPORTING it_expanded TYPE ty_expanded_tt @@ -1170,14 +1170,14 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain. iv_sha1 TYPE lif_defs=>ty_sha1 iv_path TYPE string CHANGING ct_files TYPE lif_defs=>ty_files_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS walk_tree IMPORTING it_objects TYPE lif_defs=>ty_objects_tt iv_tree TYPE lif_defs=>ty_sha1 iv_base TYPE string RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS receive_pack IMPORTING is_comment TYPE lif_defs=>ty_comment @@ -1186,7 +1186,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain. it_blobs TYPE lif_defs=>ty_files_tt io_stage TYPE REF TO lcl_stage RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_porcelain DEFINITION @@ -1199,7 +1199,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. METHOD receive_pack. - DATA: lv_time TYPE lcl_time=>ty_unixtime, + DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime, lv_commit TYPE xstring, lt_objects TYPE lif_defs=>ty_objects_tt, lv_pack TYPE xstring, @@ -1210,7 +1210,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. LIKE LINE OF it_blobs. - lv_time = lcl_time=>get( ). + lv_time = zcl_abapgit_time=>get( ). READ TABLE it_trees ASSIGNING WITH KEY path = '/'. ASSERT sy-subrc = 0. @@ -1302,7 +1302,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. lv_pack TYPE xstring. IF iv_name CS ` `. - lcx_exception=>raise( 'Branch name cannot contain blank spaces' ). + zcx_abapgit_exception=>raise( 'Branch name cannot contain blank spaces' ). ENDIF. * "client MUST send an empty packfile" @@ -1391,7 +1391,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. CLEAR -sha1. " Mark as deleted WHEN OTHERS. - lcx_exception=>raise( 'stage method not supported, todo' ). + zcx_abapgit_exception=>raise( 'stage method not supported, todo' ). ENDCASE. ENDLOOP. @@ -1419,7 +1419,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. WITH KEY sha1 = iv_tree type = lif_defs=>gc_type-tree. IF sy-subrc <> 0. - lcx_exception=>raise( 'tree not found' ). + zcx_abapgit_exception=>raise( 'tree not found' ). ENDIF. lt_nodes = lcl_git_pack=>decode_tree( ls_object-data ). @@ -1439,7 +1439,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. iv_base = iv_base && -name && '/' ). APPEND LINES OF lt_expanded TO rt_expanded. WHEN OTHERS. - lcx_exception=>raise( 'walk_tree: unknown chmod' ). + zcx_abapgit_exception=>raise( 'walk_tree: unknown chmod' ). ENDCASE. ENDLOOP. @@ -1453,7 +1453,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = lif_defs=>gc_type-commit. IF sy-subrc <> 0. - lcx_exception=>raise( 'commit not found' ). + zcx_abapgit_exception=>raise( 'commit not found' ). ENDIF. ls_commit = lcl_git_pack=>decode_commit( ls_object-data ). @@ -1479,7 +1479,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = lif_defs=>gc_type-commit. IF sy-subrc <> 0. - lcx_exception=>raise( 'Commit/branch not found' ). + zcx_abapgit_exception=>raise( 'Commit/branch not found' ). ENDIF. ls_commit = lcl_git_pack=>decode_commit( ls_object-data ). @@ -1599,7 +1599,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. READ TABLE it_objects ASSIGNING WITH KEY sha1 = iv_sha1 type = lif_defs=>gc_type-tree. IF sy-subrc <> 0. - lcx_exception=>raise( 'Walk, tree not found' ). + zcx_abapgit_exception=>raise( 'Walk, tree not found' ). ENDIF. lt_nodes = lcl_git_pack=>decode_tree( -data ). @@ -1609,7 +1609,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. READ TABLE it_objects ASSIGNING WITH KEY sha1 = -sha1 type = lif_defs=>gc_type-blob. IF sy-subrc <> 0. - lcx_exception=>raise( 'Walk, blob not found' ). + zcx_abapgit_exception=>raise( 'Walk, blob not found' ). ENDIF. CLEAR ls_file. diff --git a/src/zabapgit_git_helpers.prog.abap b/src/zabapgit_git_helpers.prog.abap index 65e20e3aa..2cda29106 100644 --- a/src/zabapgit_git_helpers.prog.abap +++ b/src/zabapgit_git_helpers.prog.abap @@ -14,12 +14,12 @@ CLASS lcl_git_utils DEFINITION FINAL. " > Maybe better move to lcl_git_pack ?? CLASS-METHODS pkt_string IMPORTING iv_string TYPE string RETURNING VALUE(rv_pkt) TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS length_utf8_hex IMPORTING iv_data TYPE xstring RETURNING VALUE(rv_len) TYPE i - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_git_utils @@ -61,7 +61,7 @@ CLASS lcl_git_utils IMPLEMENTATION. lo_obj->read( EXPORTING n = lv_len IMPORTING data = lv_string ). CATCH cx_sy_conversion_codepage. - lcx_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ). + zcx_abapgit_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ). ENDTRY. lv_char4 = lv_string. @@ -80,7 +80,7 @@ CLASS lcl_git_utils IMPLEMENTATION. lv_len = strlen( iv_string ). IF lv_len >= 255. - lcx_exception=>raise( 'PKT, todo' ). + zcx_abapgit_exception=>raise( 'PKT, todo' ). ENDIF. lv_x = lv_len + 4. @@ -115,27 +115,27 @@ CLASS lcl_git_branch_list DEFINITION FINAL. METHODS constructor IMPORTING iv_data TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS find_by_name IMPORTING iv_branch_name TYPE clike RETURNING VALUE(rs_branch) TYPE ty_git_branch - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_head " For potential future use RETURNING VALUE(rs_branch) TYPE ty_git_branch - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_head_symref RETURNING VALUE(rv_head_symref) TYPE string. METHODS get_branches_only RETURNING VALUE(rt_branches) TYPE ty_git_branch_list_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_tags_only " For potential future use RETURNING VALUE(rt_branches) TYPE ty_git_branch_list_tt - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS is_ignored IMPORTING iv_branch_name TYPE clike @@ -165,7 +165,7 @@ CLASS lcl_git_branch_list DEFINITION FINAL. IMPORTING iv_data TYPE string EXPORTING et_list TYPE ty_git_branch_list_tt ev_head_symref TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS parse_head_params IMPORTING iv_data TYPE string @@ -192,13 +192,13 @@ CLASS lcl_git_branch_list IMPLEMENTATION. METHOD find_by_name. IF iv_branch_name IS INITIAL. - lcx_exception=>raise( 'Branch name empty' ). + zcx_abapgit_exception=>raise( 'Branch name empty' ). ENDIF. READ TABLE mt_branches INTO rs_branch WITH KEY name = iv_branch_name. IF sy-subrc <> 0. - lcx_exception=>raise( 'Branch not found' ). + zcx_abapgit_exception=>raise( 'Branch not found' ). ENDIF. ENDMETHOD. "find_by_name @@ -244,7 +244,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION. lv_hash = lv_data+4. lv_name = lv_data+45. ELSEIF sy-tabix = 2 AND strlen( lv_data ) = 8 AND lv_data(8) = '00000000'. - lcx_exception=>raise( 'No branches, create branch manually by adding file' ). + zcx_abapgit_exception=>raise( 'No branches, create branch manually by adding file' ). ELSE. CONTINUE. ENDIF. diff --git a/src/zabapgit_gui.prog.abap b/src/zabapgit_gui.prog.abap index efcbe2a22..850af55d1 100644 --- a/src/zabapgit_gui.prog.abap +++ b/src/zabapgit_gui.prog.abap @@ -10,12 +10,12 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app. PUBLIC SECTION. METHODS go_home - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS back IMPORTING iv_to_bookmark TYPE abap_bool DEFAULT abap_false RETURNING VALUE(rv_exit) TYPE xfeld - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS on_event FOR EVENT sapevent OF cl_gui_html_viewer IMPORTING action frame getdata postdata query_table. "#EC NEEDED @@ -34,10 +34,10 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app. mo_html_viewer TYPE REF TO cl_gui_html_viewer. METHODS constructor - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS startup - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS cache_html IMPORTING iv_text TYPE string @@ -52,7 +52,7 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app. RETURNING VALUE(rv_url) TYPE w3url. METHODS render - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_current_page_name RETURNING VALUE(rv_page_name) TYPE string. @@ -61,7 +61,7 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app. IMPORTING ii_page TYPE REF TO lif_gui_page iv_with_bookmark TYPE abap_bool DEFAULT abap_false iv_replacing TYPE abap_bool DEFAULT abap_false - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS handle_action IMPORTING action TYPE c @@ -85,7 +85,7 @@ CLASS lcl_gui IMPLEMENTATION. METHOD handle_action. - DATA: lx_exception TYPE REF TO lcx_exception, + DATA: lx_exception TYPE REF TO zcx_abapgit_exception, li_page TYPE REF TO lif_gui_page, lv_state TYPE i. @@ -130,12 +130,12 @@ CLASS lcl_gui IMPLEMENTATION. WHEN lif_defs=>gc_event_state-no_more_act. " Do nothing, handling completed WHEN OTHERS. - lcx_exception=>raise( |Unknown action: { action }| ). + zcx_abapgit_exception=>raise( |Unknown action: { action }| ). ENDCASE. - CATCH lcx_exception INTO lx_exception. + CATCH zcx_abapgit_exception INTO lx_exception. ROLLBACK WORK. - MESSAGE lx_exception->mv_text TYPE 'S' DISPLAY LIKE 'E'. + MESSAGE lx_exception->text TYPE 'S' DISPLAY LIKE 'E'. CATCH lcx_cancel ##NO_HANDLER. " Do nothing = gc_event_state-no_more_act ENDTRY. diff --git a/src/zabapgit_gui_asset_manager.prog.abap b/src/zabapgit_gui_asset_manager.prog.abap index e061f4b47..c46555194 100644 --- a/src/zabapgit_gui_asset_manager.prog.abap +++ b/src/zabapgit_gui_asset_manager.prog.abap @@ -8,7 +8,7 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui. METHODS get_asset IMPORTING iv_asset_name TYPE string RETURNING VALUE(rv_data) TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_images RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets. @@ -21,12 +21,12 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui. METHODS get_inline_asset IMPORTING iv_asset_name TYPE string RETURNING VALUE(rv_data) TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_mime_asset IMPORTING iv_asset_name TYPE c RETURNING VALUE(rv_data) TYPE xstring - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_inline_images RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets. @@ -48,7 +48,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION. WHEN 'JS_COMMON'. lv_mime_name = 'ZABAPGIT_JS_COMMON'. WHEN OTHERS. - lcx_exception=>raise( |Improper resource name: { iv_asset_name }| ). + zcx_abapgit_exception=>raise( |Improper resource name: { iv_asset_name }| ). ENDCASE. " Inline is default (for older AG snapshots to work) @@ -58,7 +58,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION. ENDIF. IF rv_data IS INITIAL. - lcx_exception=>raise( |Failed to get GUI resource: { iv_asset_name }| ). + zcx_abapgit_exception=>raise( |Failed to get GUI resource: { iv_asset_name }| ). ENDIF. ENDMETHOD. " get_asset. @@ -152,7 +152,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION. WHEN 'JS_COMMON'. " @@abapmerge include zabapgit_js_common.w3mi.data.js > _inline '$$'. WHEN OTHERS. - lcx_exception=>raise( |No inline resource: { iv_asset_name }| ). + zcx_abapgit_exception=>raise( |No inline resource: { iv_asset_name }| ). ENDCASE. CONCATENATE LINES OF lt_data INTO lv_str SEPARATED BY lif_defs=>gc_newline. diff --git a/src/zabapgit_gui_pages.prog.abap b/src/zabapgit_gui_pages.prog.abap index e4c658462..b1e5182cc 100644 --- a/src/zabapgit_gui_pages.prog.abap +++ b/src/zabapgit_gui_pages.prog.abap @@ -30,3 +30,4 @@ INCLUDE zabapgit_page_stage. INCLUDE zabapgit_page_debug. INCLUDE zabapgit_page_settings. INCLUDE zabapgit_page_repo_settings. +INCLUDE zabapgit_page_syntax_check. diff --git a/src/zabapgit_gui_router.prog.abap b/src/zabapgit_gui_router.prog.abap index 1c7a0b009..5a74941a8 100644 --- a/src/zabapgit_gui_router.prog.abap +++ b/src/zabapgit_gui_router.prog.abap @@ -15,45 +15,45 @@ CLASS lcl_gui_router DEFINITION FINAL. it_postdata TYPE cnht_post_data_tab OPTIONAL EXPORTING ei_page TYPE REF TO lif_gui_page ev_state TYPE i - RAISING lcx_exception lcx_cancel. + RAISING zcx_abapgit_exception lcx_cancel. PRIVATE SECTION. METHODS get_page_by_name IMPORTING iv_name TYPE clike RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_diff IMPORTING iv_getdata TYPE clike iv_prev_page TYPE clike RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_branch_overview IMPORTING iv_getdata TYPE clike RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_stage IMPORTING iv_getdata TYPE clike RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_db_by_name IMPORTING iv_name TYPE clike iv_getdata TYPE clike RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_background IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS get_page_playground RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page - RAISING lcx_exception lcx_cancel. + RAISING zcx_abapgit_exception lcx_cancel. ENDCLASS. @@ -163,6 +163,11 @@ CLASS lcl_gui_router IMPLEMENTATION. WHEN lif_defs=>gc_action-repo_refresh. " Repo refresh lcl_services_repo=>refresh( lv_key ). ev_state = lif_defs=>gc_event_state-re_render. + WHEN lif_defs=>gc_action-repo_syntax_check. + CREATE OBJECT ei_page TYPE lcl_gui_page_syntax_check + EXPORTING + io_repo = lcl_app=>repo_srv( )->get( lv_key ). + ev_state = lif_defs=>gc_event_state-new_page. WHEN lif_defs=>gc_action-repo_purge. " Repo remove & purge all objects lcl_services_repo=>purge( lv_key ). ev_state = lif_defs=>gc_event_state-re_render. @@ -251,7 +256,7 @@ CLASS lcl_gui_router IMPLEMENTATION. TRY. CREATE OBJECT ri_page TYPE (lv_page_class). CATCH cx_sy_create_object_error. - lcx_exception=>raise( |Cannot create page class { lv_page_class }| ). + zcx_abapgit_exception=>raise( |Cannot create page class { lv_page_class }| ). ENDTRY. ENDMETHOD. " get_page_by_name @@ -272,7 +277,7 @@ CLASS lcl_gui_router IMPLEMENTATION. CATCH cx_sy_create_object_error. lv_message = |Cannot create page class { lv_page_class }|. - lcx_exception=>raise( lv_message ). + zcx_abapgit_exception=>raise( lv_message ). ENDTRY. ENDMETHOD. " get_page_db_by_name @@ -372,7 +377,7 @@ CLASS lcl_gui_router IMPLEMENTATION. TRY. CREATE OBJECT ri_page TYPE (lv_class_name). CATCH cx_sy_create_object_error. - lcx_exception=>raise( |Cannot create page class { lv_class_name }| ). + zcx_abapgit_exception=>raise( |Cannot create page class { lv_class_name }| ). ENDTRY. ENDMETHOD. "get_page_playground diff --git a/src/zabapgit_html_action_utils.prog.abap b/src/zabapgit_html_action_utils.prog.abap index bf81621fc..c73ea0eb5 100644 --- a/src/zabapgit_html_action_utils.prog.abap +++ b/src/zabapgit_html_action_utils.prog.abap @@ -38,7 +38,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL. IMPORTING iv_string TYPE clike EXPORTING ev_obj_type TYPE tadir-object ev_obj_name TYPE tadir-obj_name - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS dir_encode IMPORTING iv_path TYPE string @@ -47,7 +47,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL. CLASS-METHODS dir_decode IMPORTING iv_string TYPE clike RETURNING VALUE(rv_path) TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS file_encode IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key @@ -64,7 +64,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL. EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key eg_file TYPE any "assuming ty_file eg_object TYPE any "assuming ty_item - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS dbkey_encode IMPORTING is_key TYPE lcl_persistence_db=>ty_content @@ -90,7 +90,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL. IMPORTING iv_getdata TYPE clike EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key ev_seed TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CLASS-METHODS unescape diff --git a/src/zabapgit_html_chunks.prog.abap b/src/zabapgit_html_chunks.prog.abap index bae2b2983..d3b095fac 100644 --- a/src/zabapgit_html_chunks.prog.abap +++ b/src/zabapgit_html_chunks.prog.abap @@ -7,7 +7,7 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS render_error - IMPORTING ix_error TYPE REF TO lcx_exception OPTIONAL + IMPORTING ix_error TYPE REF TO zcx_abapgit_exception OPTIONAL iv_error TYPE string OPTIONAL RETURNING VALUE(ro_html) TYPE REF TO lcl_html. @@ -19,7 +19,7 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL. iv_branch TYPE string OPTIONAL io_news TYPE REF TO lcl_news OPTIONAL RETURNING VALUE(ro_html) TYPE REF TO lcl_html - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS render_item_state IMPORTING iv1 TYPE char1 @@ -31,17 +31,17 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL. io_repo TYPE REF TO lcl_repo_online iv_interactive TYPE abap_bool RETURNING VALUE(ro_html) TYPE REF TO lcl_html - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS render_js_error_banner RETURNING VALUE(ro_html) TYPE REF TO lcl_html - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS render_news IMPORTING io_news TYPE REF TO lcl_news RETURNING VALUE(ro_html) TYPE REF TO lcl_html - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_gui_chunk_lib @@ -223,7 +223,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION. CREATE OBJECT ro_html. IF ix_error IS BOUND. - lv_error = ix_error->mv_text. + lv_error = ix_error->text. ELSE. lv_error = iv_error. ENDIF. diff --git a/src/zabapgit_http.prog.abap b/src/zabapgit_http.prog.abap index 7ff6fab52..f46300637 100644 --- a/src/zabapgit_http.prog.abap +++ b/src/zabapgit_http.prog.abap @@ -8,13 +8,13 @@ CLASS lcl_proxy_auth DEFINITION FINAL. CLASS-METHODS: run IMPORTING ii_client TYPE REF TO if_http_client - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CLASS-DATA: gv_username TYPE string, gv_password TYPE string. - CLASS-METHODS: enter RAISING lcx_exception. + CLASS-METHODS: enter RAISING zcx_abapgit_exception. ENDCLASS. @@ -43,7 +43,7 @@ CLASS lcl_proxy_auth IMPLEMENTATION. cv_pass = gv_password ). IF gv_username IS INITIAL OR gv_password IS INITIAL. - lcx_exception=>raise( 'Proxy auth failed' ). + zcx_abapgit_exception=>raise( 'Proxy auth failed' ). ENDIF. ENDMETHOD. @@ -59,11 +59,11 @@ CLASS lcl_http_digest DEFINITION FINAL. ii_client TYPE REF TO if_http_client iv_username TYPE string iv_password TYPE string - RAISING lcx_exception, + RAISING zcx_abapgit_exception, run IMPORTING ii_client TYPE REF TO if_http_client - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. DATA: mv_ha1 TYPE string, @@ -80,7 +80,7 @@ CLASS lcl_http_digest DEFINITION FINAL. iv_data TYPE string RETURNING VALUE(rv_hash) TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS: hash @@ -92,7 +92,7 @@ CLASS lcl_http_digest DEFINITION FINAL. iv_cnonse TYPE string RETURNING VALUE(rv_response) TYPE string - RAISING lcx_exception, + RAISING zcx_abapgit_exception, parse IMPORTING ii_client TYPE REF TO if_http_client. @@ -114,17 +114,17 @@ CLASS lcl_http_client DEFINITION FINAL. iv_data TYPE xstring RETURNING VALUE(rv_data) TYPE xstring - RAISING lcx_exception, + RAISING zcx_abapgit_exception, get_cdata RETURNING VALUE(rv_value) TYPE string, check_http_200 - RAISING lcx_exception, + RAISING zcx_abapgit_exception, send_receive - RAISING lcx_exception, + RAISING zcx_abapgit_exception, set_headers IMPORTING iv_url TYPE string iv_service TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. DATA: mi_client TYPE REF TO if_http_client, @@ -222,7 +222,7 @@ CLASS lcl_http_client IMPLEMENTATION. WHEN OTHERS. lv_text = 'Another error occured'. "#EC NOTEXT ENDCASE. - lcx_exception=>raise( lv_text ). + zcx_abapgit_exception=>raise( lv_text ). ENDIF. ENDMETHOD. "send_receive @@ -240,18 +240,18 @@ CLASS lcl_http_client IMPLEMENTATION. WHEN 200. RETURN. WHEN 302. - lcx_exception=>raise( 'HTTP redirect, check URL' ). + zcx_abapgit_exception=>raise( 'HTTP redirect, check URL' ). WHEN 401. - lcx_exception=>raise( 'HTTP 401, unauthorized' ). + zcx_abapgit_exception=>raise( 'HTTP 401, unauthorized' ). WHEN 403. - lcx_exception=>raise( 'HTTP 403, forbidden' ). + zcx_abapgit_exception=>raise( 'HTTP 403, forbidden' ). WHEN 404. - lcx_exception=>raise( 'HTTP 404, not found' ). + zcx_abapgit_exception=>raise( 'HTTP 404, not found' ). WHEN 415. - lcx_exception=>raise( 'HTTP 415, unsupported media type' ). + zcx_abapgit_exception=>raise( 'HTTP 415, unsupported media type' ). WHEN OTHERS. lv_text = mi_client->response->get_cdata( ). - lcx_exception=>raise( |HTTP error code: { lv_code }, { lv_text }| ). + zcx_abapgit_exception=>raise( |HTTP error code: { lv_code }, { lv_text }| ). ENDCASE. ENDMETHOD. "http_200 @@ -359,7 +359,7 @@ CLASS lcl_http_digest IMPLEMENTATION. internal_error = 3 OTHERS = 4. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from CALCULATE_HASH_FOR_RAW' ). + zcx_abapgit_exception=>raise( 'error from CALCULATE_HASH_FOR_RAW' ). ENDIF. rv_hash = lv_hash. @@ -383,14 +383,14 @@ CLASS lcl_http DEFINITION FINAL. IMPORTING iv_url TYPE string iv_service TYPE string RETURNING VALUE(ro_client) TYPE REF TO lcl_http_client - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CLASS-METHODS: check_auth_requested IMPORTING ii_client TYPE REF TO if_http_client RETURNING VALUE(rv_auth_requested) TYPE abap_bool - RAISING lcx_exception, + RAISING zcx_abapgit_exception, is_local_system IMPORTING iv_url TYPE string RETURNING VALUE(rv_bool) TYPE abap_bool, @@ -399,7 +399,7 @@ CLASS lcl_http DEFINITION FINAL. io_client TYPE REF TO lcl_http_client iv_url TYPE string RETURNING VALUE(rv_scheme) TYPE string - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. @@ -446,7 +446,7 @@ CLASS lcl_http IMPLEMENTATION. lv_text = 'While creating HTTP Client'. "#EC NOTEXT ENDCASE. - lcx_exception=>raise( lv_text ). + zcx_abapgit_exception=>raise( lv_text ). ENDIF. IF lo_settings->get_proxy_authentication( ) = abap_true. @@ -559,7 +559,7 @@ CLASS lcl_http IMPLEMENTATION. cv_pass = lv_pass ). IF lv_user IS INITIAL. - lcx_exception=>raise( 'HTTP 401, unauthorized' ). + zcx_abapgit_exception=>raise( 'HTTP 401, unauthorized' ). ENDIF. IF lv_user <> lv_default_user. diff --git a/src/zabapgit_migrations.prog.abap b/src/zabapgit_migrations.prog.abap index fe556d302..7eb0a6228 100644 --- a/src/zabapgit_migrations.prog.abap +++ b/src/zabapgit_migrations.prog.abap @@ -6,13 +6,13 @@ CLASS lcl_migrations DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS run - RAISING lcx_exception. + RAISING zcx_abapgit_exception. PRIVATE SECTION. CLASS-METHODS rebuild_local_checksums_161112 - RAISING lcx_exception. + RAISING zcx_abapgit_exception. CLASS-METHODS local_dot_abapgit - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_migrations @@ -37,7 +37,7 @@ CLASS lcl_migrations IMPLEMENTATION. lv_msg TYPE string, lv_shown TYPE abap_bool, lo_dot_abapgit TYPE REF TO lcl_dot_abapgit, - lx_exception TYPE REF TO lcx_exception. + lx_exception TYPE REF TO zcx_abapgit_exception. FIELD-SYMBOLS: LIKE LINE OF lt_repos. @@ -64,12 +64,12 @@ CLASS lcl_migrations IMPLEMENTATION. " everybody to fetch their repos. TRY. ->refresh( ). - CATCH lcx_exception INTO lx_exception. + CATCH zcx_abapgit_exception INTO lx_exception. lv_msg = |Please do not use the "{ ->get_name( ) }" repository until migrated|. CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING titel = 'Migration has failed' - txt1 = lx_exception->mv_text + txt1 = lx_exception->text txt2 = lv_msg txt3 = 'You will be prompted to migrate the repository every time you run abapGit.' txt4 = 'You can safely remove the repository in its ''Advanced -> Remove'' menu.'. diff --git a/src/zabapgit_news.prog.abap b/src/zabapgit_news.prog.abap index ceb19df72..c52e3a982 100644 --- a/src/zabapgit_news.prog.abap +++ b/src/zabapgit_news.prog.abap @@ -28,7 +28,7 @@ CLASS lcl_news DEFINITION CREATE PRIVATE FRIENDS ltcl_news. create " TODO REFACTOR IMPORTING io_repo TYPE REF TO lcl_repo RETURNING VALUE(ro_instance) TYPE REF TO lcl_news - RAISING lcx_exception. + RAISING zcx_abapgit_exception. METHODS: get_log @@ -115,7 +115,7 @@ CLASS lcl_news IMPLEMENTATION. TRY. " Find changelog lt_remote = io_repo->get_files_remote( ). - CATCH lcx_exception. + CATCH zcx_abapgit_exception. RETURN. ENDTRY. diff --git a/src/zabapgit_object_acid.prog.abap b/src/zabapgit_object_acid.prog.abap index 2e339f2b8..908bf7352 100644 --- a/src/zabapgit_object_acid.prog.abap +++ b/src/zabapgit_object_acid.prog.abap @@ -16,7 +16,7 @@ CLASS lcl_object_acid DEFINITION INHERITING FROM lcl_objects_super FINAL. PRIVATE SECTION. METHODS: create_object RETURNING VALUE(ro_aab) TYPE REF TO cl_aab_id - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_object_acid DEFINITION @@ -54,7 +54,7 @@ CLASS lcl_object_acid IMPLEMENTATION. name_not_allowed = 1 OTHERS = 2. IF sy-subrc <> 0. - lcx_exception=>raise( 'error creating CL_AAB_ID object' ). + zcx_abapgit_exception=>raise( 'error creating CL_AAB_ID object' ). ENDIF. ENDMETHOD. "create_object @@ -117,7 +117,7 @@ CLASS lcl_object_acid IMPLEMENTATION. where_used_error = 9 OTHERS = 10 ). IF sy-subrc <> 0. - lcx_exception=>raise( 'error deleting ACID object' ). + zcx_abapgit_exception=>raise( 'error deleting ACID object' ). ENDIF. lo_aab->dequeue( ). diff --git a/src/zabapgit_object_auth.prog.abap b/src/zabapgit_object_auth.prog.abap index 8cfe21e0b..12d58651d 100644 --- a/src/zabapgit_object_auth.prog.abap +++ b/src/zabapgit_object_auth.prog.abap @@ -64,12 +64,12 @@ CLASS lcl_object_auth IMPLEMENTATION. CREATE OBJECT lo_auth. IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0. - lcx_exception=>raise( 'Error deserializing AUTH' ). + zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ). ENDIF. MODIFY authx FROM ls_authx. IF sy-subrc <> 0. - lcx_exception=>raise( 'Error deserializing AUTH' ). + zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ). ENDIF. CALL FUNCTION 'DB_COMMIT'. @@ -96,7 +96,7 @@ CLASS lcl_object_auth IMPLEMENTATION. no_authority = 4 OTHERS = 5. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SUSR_AUTF_DELETE_FIELD' ). + zcx_abapgit_exception=>raise( 'error from SUSR_AUTF_DELETE_FIELD' ). ENDIF. ENDMETHOD. "lif_object~delete diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap index 1bb625e13..829e3521f 100644 --- a/src/zabapgit_object_clas.prog.abap +++ b/src/zabapgit_object_clas.prog.abap @@ -25,20 +25,20 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program. deserialize_abap IMPORTING io_xml TYPE REF TO lcl_xml_input iv_package TYPE devclass - RAISING lcx_exception, + RAISING zcx_abapgit_exception, deserialize_docu IMPORTING io_xml TYPE REF TO lcl_xml_input - RAISING lcx_exception, + RAISING zcx_abapgit_exception, deserialize_tpool IMPORTING io_xml TYPE REF TO lcl_xml_input - RAISING lcx_exception, + RAISING zcx_abapgit_exception, deserialize_sotr IMPORTING io_xml TYPE REF TO lcl_xml_input iv_package TYPE devclass - RAISING lcx_exception, + RAISING zcx_abapgit_exception, serialize_xml IMPORTING io_xml TYPE REF TO lcl_xml_output - RAISING lcx_exception. + RAISING zcx_abapgit_exception. ENDCLASS. "lcl_object_dtel DEFINITION @@ -430,7 +430,7 @@ CLASS lcl_oo_class IMPLEMENTATION. other = 6 OTHERS = 7. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ). + zcx_abapgit_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ). ENDIF. ENDMETHOD. @@ -450,7 +450,7 @@ CLASS lcl_oo_class IMPLEMENTATION. locals_not_initialised = 4 OTHERS = 5. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from generate_locals' ). + zcx_abapgit_exception=>raise( 'error from generate_locals' ). ENDIF. ENDMETHOD. @@ -464,7 +464,7 @@ CLASS lcl_oo_class IMPLEMENTATION. LANGUAGE iv_language STATE 'I'. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from INSERT TEXTPOOL' ). + zcx_abapgit_exception=>raise( 'error from INSERT TEXTPOOL' ). ENDIF. lcl_objects_activation=>add( iv_type = 'REPT' @@ -489,7 +489,7 @@ CLASS lcl_oo_class IMPLEMENTATION. object_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SOTR_OBJECT_GET_OBJECTS' ). + zcx_abapgit_exception=>raise( 'error from SOTR_OBJECT_GET_OBJECTS' ). ENDIF. READ TABLE lt_objects INDEX 1 INTO lv_object. @@ -526,7 +526,7 @@ CLASS lcl_oo_class IMPLEMENTATION. no_entry_found = 18 OTHERS = 19. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SOTR_CREATE_CONCEPT' ). + zcx_abapgit_exception=>raise( 'error from SOTR_CREATE_CONCEPT' ). ENDIF. ENDLOOP. ENDMETHOD. @@ -566,7 +566,7 @@ CLASS lcl_oo_class IMPLEMENTATION. class_not_existing = 1 ). IF sy-subrc <> 0. - lcx_exception=>raise( |Class { lv_class_name } not existing| ). + zcx_abapgit_exception=>raise( |Class { lv_class_name } not existing| ). ENDIF. LOOP AT lt_methods ASSIGNING . @@ -590,7 +590,7 @@ CLASS lcl_oo_class IMPLEMENTATION. IF sy-subrc = 1. RETURN. " in case only inactive version exists ELSEIF sy-subrc <> 0. - lcx_exception=>raise( 'error from seo_clif_get' ). + zcx_abapgit_exception=>raise( 'error from seo_clif_get' ). ENDIF. ENDMETHOD. @@ -673,7 +673,7 @@ CLASS lcl_oo_class IMPLEMENTATION. other = 5 OTHERS = 6. IF sy-subrc <> 0. - lcx_exception=>raise( 'Error from SEO_CLASS_DELETE_COMPLETE' ). + zcx_abapgit_exception=>raise( 'Error from SEO_CLASS_DELETE_COMPLETE' ). ENDIF. ENDMETHOD. diff --git a/src/zabapgit_object_clas_new.prog.abap b/src/zabapgit_object_clas_new.prog.abap index 7132916a6..727123743 100644 --- a/src/zabapgit_object_clas_new.prog.abap +++ b/src/zabapgit_object_clas_new.prog.abap @@ -25,14 +25,14 @@ CLASS lcl_oo_class_new DEFINITION INHERITING FROM lcl_oo_class. IMPORTING iv_name TYPE seoclsname RAISING - lcx_exception, + zcx_abapgit_exception, update_meta IMPORTING iv_name TYPE seoclsname iv_exposure TYPE seoexpose it_source TYPE rswsourcet RAISING - lcx_exception, + zcx_abapgit_exception, determine_method_include IMPORTING iv_name TYPE seoclsname @@ -40,7 +40,7 @@ CLASS lcl_oo_class_new DEFINITION INHERITING FROM lcl_oo_class. RETURNING VALUE(rv_program) TYPE programm RAISING - lcx_exception, + zcx_abapgit_exception, init_scanner IMPORTING it_source TYPE lif_defs=>ty_string_tt @@ -89,7 +89,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. internal_error_insert_report = 11 OTHERS = 12. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SEO_METHOD_GENERATE_INCLUDE' ). + zcx_abapgit_exception=>raise( 'error from SEO_METHOD_GENERATE_INCLUDE' ). ENDIF. rv_program = cl_oo_classname_service=>get_method_include( ls_mtdkey ). @@ -115,7 +115,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. other = 6 OTHERS = 7. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ). + zcx_abapgit_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ). ENDIF. ENDMETHOD. @@ -192,7 +192,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. read_source_error = 2 OTHERS = 3. IF sy-subrc <> 0. - lcx_exception=>raise( 'error instantiating CL_OO_CLASS_SECTION_SOURCE' ). + zcx_abapgit_exception=>raise( 'error instantiating CL_OO_CLASS_SECTION_SOURCE' ). ENDIF. lo_update->set_dark_mode( seox_true ). @@ -210,7 +210,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. scan_abap_source_error = 1 OTHERS = 2 ). IF sy-subrc <> 0 OR lv_scan_error = abap_true. - lcx_exception=>raise( 'CLAS, error while scanning source' ). + zcx_abapgit_exception=>raise( 'CLAS, error while scanning source' ). ENDIF. * this will update the SEO* database tables @@ -254,7 +254,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. _internal_class_overflow = 19 OTHERS = 20. IF sy-subrc <> 0. - lcx_exception=>raise( 'error from SEO_CLASS_GENERATE_CLASSPOOL' ). + zcx_abapgit_exception=>raise( 'error from SEO_CLASS_GENERATE_CLASSPOOL' ). ENDIF. ENDMETHOD. @@ -313,7 +313,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION. TRY. lt_source = lo_scanner->get_method_impl_source( lv_method ). CATCH cx_oo_clif_component. - lcx_exception=>raise( 'error from GET_METHOD_IMPL_SOURCE' ). + zcx_abapgit_exception=>raise( 'error from GET_METHOD_IMPL_SOURCE' ). ENDTRY. lv_program = determine_method_include( iv_name = is_key-clsname diff --git a/src/zabapgit_object_cmpt.prog.abap b/src/zabapgit_object_cmpt.prog.abap index 63b7ebb77..fa01570bc 100644 --- a/src/zabapgit_object_cmpt.prog.abap +++ b/src/zabapgit_object_cmpt.prog.abap @@ -58,7 +58,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION. r_user = rv_user. CATCH cx_root. - lcx_exception=>raise( 'CMPT not supported' ). + zcx_abapgit_exception=>raise( 'CMPT not supported' ). ENDTRY. ENDMETHOD. @@ -85,7 +85,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION. r_flg_exists = rv_bool. CATCH cx_root. - lcx_exception=>raise( 'CMPT not supported' ). + zcx_abapgit_exception=>raise( 'CMPT not supported' ). ENDTRY. ENDMETHOD. @@ -110,7 +110,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION. ig_data =