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

zlib/deflate decompression, bugfix (#5723)

Browse Source 
zlib, bugfix
This commit is contained in:
Lars Hvam 2022-08-18 06:00:46 +02:00 committed by GitHub
parent 900e3f2484
commit 7ac80cebf3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/zlib/zcl_abapgit_zlib.clas.abap
View File

@ -153,7 +153,6 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION.
CASE lv_btype.
WHEN '00'.
not_compressed( ).
EXIT.
WHEN '01'.
fixed( ).
decode_loop( ).
@ -446,13 +445,16 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION.
DATA: lv_len TYPE i,
lv_nlen TYPE i ##NEEDED.
DATA lv_bytes TYPE xstring.
go_stream->take_bits( 5 ).
* skip any remaining bits in current partially processed byte
go_stream->clear_bits( ).
lv_len = go_stream->take_int( 16 ).
lv_nlen = go_stream->take_int( 16 ).
gv_out = go_stream->take_bytes( lv_len ).
lv_bytes = go_stream->take_bytes( lv_len ).
CONCATENATE gv_out lv_bytes INTO gv_out IN BYTE MODE.
ENDMETHOD.

20
src/zlib/zcl_abapgit_zlib_stream.clas.abap
View File

@ -23,23 +23,29 @@ CLASS zcl_abapgit_zlib_stream DEFINITION
"! Take bytes, there's an implicit realignment to start at the beginning of a byte
"! i.e. if next bit of current byte is not the first bit, then this byte is skipped
"! and the bytes are taken from the next one.
"! @parameter iv_length | <p class="shorttext synchronized" lang="en">Number of BYTES to read (not bits)</p>
"! @parameter rv_bytes | <p class="shorttext synchronized" lang="en">Bytes taken</p>
"! @parameter iv_length | <p class="shorttext synchronized" lang="en"></p>
"! @parameter rv_bytes | <p class="shorttext synchronized" lang="en"></p>
METHODS take_bytes
IMPORTING
iv_length TYPE i
!iv_length TYPE i
RETURNING
VALUE(rv_bytes) TYPE xstring.
VALUE(rv_bytes) TYPE xstring .
METHODS clear_bits .
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mv_compressed TYPE xstring,
mv_bits TYPE string.
DATA mv_bits TYPE string .
DATA mv_compressed TYPE xstring .
ENDCLASS.
CLASS zcl_abapgit_zlib_stream IMPLEMENTATION.
CLASS ZCL_ABAPGIT_ZLIB_STREAM IMPLEMENTATION.
METHOD clear_bits.
CLEAR mv_bits.
ENDMETHOD.
METHOD constructor.

2
src/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap
View File

@ -4,7 +4,7 @@ CLASS ltcl_test DEFINITION FOR TESTING
RISK LEVEL HARMLESS FINAL.
PRIVATE SECTION.
METHODS: test FOR TESTING.
METHODS test FOR TESTING.
ENDCLASS.