Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 16x 16x 3x 3x 3x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 13x 13x 13x 3x 13x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 2x 2x 1x | CLASS zcl_abapgit_url DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS validate
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS host
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_host) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS name
IMPORTING
!iv_url TYPE string
!iv_validate TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_name) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS path_name
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_path_name) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_abapgit_repo
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_abapgit) TYPE abap_bool .
CLASS-METHODS url_address
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_adress) TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS regex
IMPORTING
!iv_url TYPE string
EXPORTING
!ev_host TYPE string
!ev_path TYPE string
!ev_name TYPE string
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_url IMPLEMENTATION.
METHOD host.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_host = rv_host ).
ENDMETHOD.
METHOD is_abapgit_repo.
IF iv_url CS 'github.com' AND ( iv_url CP '*/abapGit' OR iv_url CP '*/abapGit.git' ).
rv_abapgit = abap_true.
ENDIF.
ENDMETHOD.
METHOD name.
DATA: lv_path TYPE string.
TRY.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_name = rv_name
ev_path = lv_path ).
IF rv_name IS INITIAL.
FIND REGEX '([\w-]+)/$' IN lv_path SUBMATCHES rv_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Malformed URL' ).
ENDIF.
ENDIF.
CATCH zcx_abapgit_exception.
IF iv_validate = abap_true.
zcx_abapgit_exception=>raise( 'Malformed URL' ).
ELSE.
rv_name = 'URL error (fix repo with "Advanced > Change Remote")'.
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD path_name.
DATA: lv_host TYPE string ##NEEDED.
FIND REGEX '(.*://[^/]*)(.*)' IN iv_url
SUBMATCHES lv_host rv_path_name.
ENDMETHOD.
METHOD regex.
FIND REGEX '^(https?://[^/]*)(.*/)(.*)\.git$' IN iv_url
SUBMATCHES ev_host ev_path ev_name.
IF sy-subrc <> 0.
FIND REGEX '^(https?://[^/]*)(.*/)(.*)$' IN iv_url
SUBMATCHES ev_host ev_path ev_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Malformed URL' ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD url_address.
DATA:
lv_host TYPE string,
lv_path TYPE string,
lv_name TYPE string,
lv_len TYPE i.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_host = lv_host
ev_path = lv_path
ev_name = lv_name ).
IF lv_path IS INITIAL AND lv_name IS INITIAL.
zcx_abapgit_exception=>raise( 'Malformed URL' ).
ELSEIF lv_name IS INITIAL.
lv_len = strlen( lv_path ) - 1.
IF lv_path+lv_len(1) = '/'.
lv_path = lv_path(lv_len).
ENDIF.
ENDIF.
rv_adress = |{ lv_host }{ lv_path }{ lv_name }|.
ENDMETHOD.
METHOD validate.
name( iv_url = iv_url
iv_validate = abap_true ).
ENDMETHOD.
ENDCLASS.
|