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 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 | 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 17x 17x 4x 1x 10x 10x 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 6x 6x 18x 18x 18x 18x 18x 18x 18x 18x 18x 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 1x 1x 1x 2x 2x 12x 12x 12x 12x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS zcl_abapgit_version DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS normalize
IMPORTING
!iv_version TYPE string
RETURNING
VALUE(rv_version) TYPE string .
CLASS-METHODS conv_str_to_version
IMPORTING
!iv_version TYPE csequence
RETURNING
VALUE(rs_version) TYPE zif_abapgit_definitions=>ty_version
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_dependant_version
IMPORTING
!is_current TYPE zif_abapgit_definitions=>ty_version
!is_dependant TYPE zif_abapgit_definitions=>ty_version
RAISING
zcx_abapgit_exception .
CLASS-METHODS compare
IMPORTING
!iv_a TYPE string OPTIONAL
!iv_b TYPE string OPTIONAL
!is_a TYPE zif_abapgit_definitions=>ty_version OPTIONAL
!is_b TYPE zif_abapgit_definitions=>ty_version OPTIONAL
RETURNING
VALUE(rv_result) TYPE i .
CLASS-METHODS get_version_constant_value
IMPORTING
iv_version_constant TYPE string
RETURNING
VALUE(rv_version) TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS version_to_numeric
IMPORTING
!iv_version TYPE string
RETURNING
VALUE(rv_version) TYPE i.
ENDCLASS.
CLASS zcl_abapgit_version IMPLEMENTATION.
METHOD check_dependant_version.
CONSTANTS: lc_message TYPE string VALUE 'Current version is older than required'.
IF is_dependant-major > is_current-major.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-major < is_current-major.
RETURN.
ENDIF.
IF is_dependant-minor > is_current-minor.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-minor < is_current-minor.
RETURN.
ENDIF.
IF is_dependant-patch > is_current-patch.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-patch < is_current-patch.
RETURN.
ENDIF.
IF is_current-prerelase IS INITIAL.
RETURN.
ENDIF.
CASE is_current-prerelase.
WHEN 'rc'.
IF is_dependant-prerelase = ''.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
WHEN 'beta'.
IF is_dependant-prerelase = '' OR is_dependant-prerelase = 'rc'.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
WHEN 'alpha'.
IF is_dependant-prerelase = '' OR is_dependant-prerelase = 'rc' OR is_dependant-prerelase = 'beta'.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
ENDCASE.
IF is_dependant-prerelase = is_current-prerelase AND is_dependant-prerelase_patch > is_current-prerelase_patch.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
ENDMETHOD.
METHOD compare.
DATA: ls_version_a TYPE zif_abapgit_definitions=>ty_version,
ls_version_b TYPE zif_abapgit_definitions=>ty_version.
TRY.
IF is_a IS NOT INITIAL.
ls_version_a = is_a.
ELSE.
ls_version_a = conv_str_to_version( iv_a ).
ENDIF.
IF is_b IS NOT INITIAL.
ls_version_b = is_b.
ELSE.
ls_version_b = conv_str_to_version( iv_b ).
ENDIF.
CATCH zcx_abapgit_exception.
rv_result = 0.
RETURN.
ENDTRY.
IF ls_version_a = ls_version_b.
rv_result = 0.
ELSE.
TRY.
check_dependant_version( is_current = ls_version_a
is_dependant = ls_version_b ).
rv_result = 1.
CATCH zcx_abapgit_exception.
rv_result = -1.
RETURN.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD conv_str_to_version.
DATA: lt_segments TYPE STANDARD TABLE OF string,
lt_parts TYPE STANDARD TABLE OF string,
lv_segment TYPE string.
SPLIT iv_version AT '-' INTO TABLE lt_segments.
READ TABLE lt_segments INTO lv_segment INDEX 1. " Version
IF sy-subrc <> 0. " No version
RETURN.
ENDIF.
SPLIT lv_segment AT '.' INTO TABLE lt_parts.
LOOP AT lt_parts INTO lv_segment.
TRY.
CASE sy-tabix.
WHEN 1.
rs_version-major = lv_segment.
WHEN 2.
rs_version-minor = lv_segment.
WHEN 3.
rs_version-patch = lv_segment.
ENDCASE.
CATCH cx_sy_conversion_no_number.
zcx_abapgit_exception=>raise( 'Incorrect format for Semantic Version' ).
ENDTRY.
ENDLOOP.
READ TABLE lt_segments INTO lv_segment INDEX 2. " Pre-release Version
IF sy-subrc <> 0. " No version
RETURN.
ENDIF.
SPLIT lv_segment AT '.' INTO TABLE lt_parts.
LOOP AT lt_parts INTO lv_segment.
CASE sy-tabix.
WHEN 1.
rs_version-prerelase = lv_segment.
TRANSLATE rs_version-prerelase TO LOWER CASE.
WHEN 2.
rs_version-prerelase_patch = lv_segment.
ENDCASE.
ENDLOOP.
IF rs_version-prerelase <> 'rc' AND rs_version-prerelase <> 'beta' AND rs_version-prerelase <> 'alpha'.
zcx_abapgit_exception=>raise( 'Incorrect format for Semantic Version' ).
ENDIF.
ENDMETHOD.
METHOD get_version_constant_value.
DATA: lv_version_class TYPE seoclsname,
lv_version_component TYPE string.
FIELD-SYMBOLS: <lv_version> TYPE string.
IF iv_version_constant NP '*=>*'.
zcx_abapgit_exception=>raise( 'Version constant needs to use the format CLASS/INTERFACE=>CONSTANT' ).
ENDIF.
SPLIT iv_version_constant AT '=>' INTO lv_version_class lv_version_component.
IF sy-subrc <> 0 OR lv_version_class IS INITIAL OR lv_version_component IS INITIAL.
zcx_abapgit_exception=>raise( 'Version constant cannot be parsed' ).
ENDIF.
" You should remember that accessing a class or an interface with syntax errors
" gives us a shortdump. Therefore we do a syntax check here.
zcl_abapgit_oo_factory=>get_by_name( lv_version_class )->syntax_check( lv_version_class ).
ASSIGN (lv_version_class)=>(lv_version_component) TO <lv_version>.
IF sy-subrc = 0.
rv_version = <lv_version>.
ELSE.
zcx_abapgit_exception=>raise( |Could not access version at class { lv_version_class } component | &&
|{ lv_version_component }| ).
ENDIF.
ENDMETHOD.
METHOD normalize.
" Internal program version should be in format "XXX.XXX.XXX" or "vXXX.XXX.XXX"
CONSTANTS:
lc_version_pattern TYPE string VALUE '^v?(\d{1,3}\.\d{1,3}\.\d{1,3})\s*$',
lc_prerelease_pattern TYPE string VALUE '^((rc|beta|alpha)\.\d{1,3})\s*$'.
DATA: lv_version TYPE string,
lv_prerelease TYPE string,
lv_version_n TYPE string,
lv_prerelease_n TYPE string.
SPLIT iv_version AT '-' INTO lv_version lv_prerelease.
FIND FIRST OCCURRENCE OF REGEX lc_version_pattern
IN lv_version SUBMATCHES lv_version_n.
IF lv_prerelease IS NOT INITIAL.
FIND FIRST OCCURRENCE OF REGEX lc_prerelease_pattern
IN lv_prerelease SUBMATCHES lv_prerelease_n.
ENDIF.
IF lv_version_n IS INITIAL.
RETURN.
ENDIF.
rv_version = lv_version_n.
IF lv_prerelease_n IS NOT INITIAL.
CONCATENATE rv_version '-' lv_prerelease_n INTO rv_version.
ENDIF.
ENDMETHOD.
METHOD version_to_numeric.
DATA: lv_major TYPE n LENGTH 4,
lv_minor TYPE n LENGTH 4,
lv_release TYPE n LENGTH 4.
SPLIT iv_version AT '.' INTO lv_major lv_minor lv_release.
" Calculated value of version number, empty version will become 0 which is OK
rv_version = lv_major * 1000000 + lv_minor * 1000 + lv_release.
ENDMETHOD.
ENDCLASS.
|