Packages
otpbp
6.3.2
7.18.0
7.16.1
7.15.0
7.14.0
7.13.0
7.12.0
7.11.0
7.10.2
7.9.3
7.9.2
7.9.1
7.8.7
7.8.6
7.8.5
7.8.4
7.7.1
7.7.0
7.6.3
7.6.2
7.6.1
7.6.0
7.5.1
7.5.0
7.4.0
7.3.4
7.3.3
7.3.2
7.3.1
7.3.0
7.2.0
7.1.1
7.1.0
7.0.4
7.0.3
7.0.2
7.0.1
6.26.0
6.25.0
6.24.0
6.23.0
6.22.2
6.21.3
6.21.2
6.21.1
6.20.2
6.19.1
6.19.0
6.18.3
6.18.2
6.18.1
6.18.0
6.17.1
6.17.0
6.16.0
6.15.4
6.15.3
6.15.2
6.15.1
6.15.0
6.14.0
6.13.5
6.13.4
6.13.3
6.13.2
6.13.1
6.13.0
6.12.0
6.11.2
6.11.1
6.10.0
6.9.2
6.9.1
6.9.0
6.8.0
6.7.1
6.7.0
6.6.4
6.6.3
6.6.2
6.6.1
6.6.0
6.5.0
6.4.0
6.3.3
6.3.2
6.3.1
6.3.0
6.2.1
6.2.0
6.1.0
6.0.0
5.39.0
5.38.0
5.37.0
5.36.0
5.35.2
5.34.3
5.34.2
5.34.1
5.33.1
5.32.1
5.32.0
5.31.3
5.31.2
5.31.1
5.31.0
5.30.1
5.30.0
5.29.0
5.28.4
5.28.3
5.28.2
5.28.1
5.28.0
5.27.0
5.26.5
5.26.4
5.26.3
5.26.2
5.26.1
5.26.0
5.25.0
5.24.2
5.24.1
5.23.0
5.22.2
5.22.1
5.22.0
5.21.0
5.20.1
5.20.0
5.19.4
5.19.3
5.19.2
5.19.1
5.19.0
5.18.0
5.17.0
5.16.3
5.16.1
5.16.0
5.15.1
5.15.0
5.14.0
5.13.1
5.13.0
5.12.1
5.12.0
5.11.2
5.11.1
5.10.1
5.10.0
5.9.0
5.8.0
5.7.0
5.6.1
5.6.0
5.5.0
5.4.2
5.4.1
5.4.0
5.3.0
5.2.2
5.2.1
5.2.0
5.1.2
5.1.1
4.79.0
4.78.0
4.77.0
4.76.2
4.75.3
4.75.2
4.75.1
4.74.0
4.73.1
4.73.0
4.72.3
4.72.2
4.72.1
4.72.0
4.71.1
4.71.0
4.70.0
4.69.4
4.69.3
4.69.2
4.69.1
4.69.0
4.68.0
4.67.5
4.67.4
4.67.3
4.67.2
4.67.0
4.66.0
4.65.2
4.65.1
4.64.0
4.63.2
4.63.1
4.63.0
4.62.0
4.61.1
4.61.0
4.60.4
4.60.3
4.60.2
4.60.1
4.60.0
4.59.0
4.58.0
4.57.2
4.57.1
4.57.0
4.56.2
4.56.1
4.56.0
4.55.0
4.54.0
4.53.0
4.52.1
4.52.0
4.51.3
4.51.2
4.51.0
4.50.0
4.49.3
4.49.2
OTP backports
Current section
Files
Jump to
Current section
Files
src/otpbp_zlib.erl
-module(otpbp_zlib).
-compile([{parse_transform, otpbp_pt}]).
-ifndef(HAVE_zlib__compress_2).
-export([compress/2]).
-endif.
-ifndef(HAVE_zlib__zip_2).
-export([zip/2]).
-endif.
-ifndef(HAVE_zlib__gzip_2).
-export([gzip/2]).
-endif.
-ifndef(HAVE_zlib__inflateGetDictionary_1).
% OTP 20.0
-export([inflateGetDictionary/1]).
-endif.
-ifndef(HAVE_zlib__safeInflate_2).
% OTP 20.1
-export([safeInflate/2]).
-endif.
-ifndef(HAVE_zlib__inflate_3).
% OTP 20.1
-export([inflate/3]).
-endif.
-ifndef(HAVE_zlib__adler32_2).
% OTP < 27.0
-export([adler32/2]).
-endif.
-ifndef(HAVE_zlib__adler32_3).
% OTP < 27.0
-export([adler32/3]).
-endif.
-ifndef(HAVE_zlib__adler32_combine_4).
% OTP < 27.0
-export([adler32_combine/4]).
-endif.
-ifndef(HAVE_zlib__crc32_2).
% OTP < 27.0
-export([crc32/2]).
-endif.
-ifndef(HAVE_zlib__crc32_3).
% OTP < 27.0
-export([crc32/3]).
-endif.
-ifndef(HAVE_zlib__crc32_combine_4).
% OTP < 27.0
-export([crc32_combine/4]).
-endif.
-ifndef(HAVE_zlib__inflateChunk_1).
% OTP < 27.0
-export([inflateChunk/1]).
-endif.
-ifndef(HAVE_zlib__inflateChunk_2).
% OTP < 27.0
-export([inflateChunk/2]).
-ifndef(NEED_zlib__inflateChunk_2).
-define(NEED_zlib__inflateChunk_2, true).
-endif.
-endif.
-ifndef(HAVE_zlib__setBufSize_2).
-export([setBufSize/2]).
-endif.
-ifndef(HAVE_zlib__getBufSize_1).
-export([getBufSize/1]).
-endif.
-define(MAX_WBITS, 15).
-ifndef(HAVE_zlib__compress_2).
-spec compress(Data::iodata(), Level::zlib:zlevel()) -> binary().
compress(Data, Level) ->
Z = zlib:open(),
iolist_to_binary(try
ok = zlib:deflateInit(Z, Level),
B = zlib:deflate(Z, Data, finish),
ok = zlib:deflateEnd(Z),
B
after
zlib:close(Z)
end).
-endif.
-ifndef(HAVE_zlib__zip_2).
-ifndef(NEED_zlib__z_3).
-define(NEED_zlib__z_3, true).
-endif.
-spec zip(Data::iodata(), Level::zlib:zlevel()) -> binary().
zip(Data, Level) -> z(Data, Level, -?MAX_WBITS).
-endif.
-ifndef(HAVE_zlib__gzip2_1).
-ifndef(NEED_zlib__z_3).
-define(NEED_zlib__z_3, true).
-endif.
-spec gzip(Data::iodata(), Level::zlib:zlevel()) -> binary().
gzip(Data, Level) -> z(Data, Level, 16 + ?MAX_WBITS).
-endif.
-ifdef(NEED_zlib__z_3).
z(Data, Level, WindowBits) ->
Z = zlib:open(),
iolist_to_binary(try
ok = zlib:deflateInit(Z, Level, deflated, WindowBits, 8, default),
B = zlib:deflate(Z, Data, finish),
ok = zlib:deflateEnd(Z),
B
after
zlib:close(Z)
end).
-endif.
-ifndef(HAVE_zlib__inflateGetDictionary_1).
inflateGetDictionary(_) -> error(enotsup).
-endif.
-ifndef(HAVE_zlib__safeInflate_2).
safeInflate(Z, []) ->
try zlib:inflateChunk(Z) of
{more, Output} -> {continue, Output};
Output -> {finished, Output}
catch
error:{need_dictionary, Adler} -> {need_dictionary, Adler, []};
C:R:S -> erlang:raise(C, R, S)
end;
safeInflate(Z, Data) ->
try zlib:inflateChunk(Z, Data) of
{more, Output} -> {continue, Output};
Output -> {finished, Output}
catch
error:{need_dictionary, Adler} -> {need_dictionary, Adler, []};
C:R:S -> erlang:raise(C, R, S)
end.
-endif.
-ifndef(HAVE_zlib__inflate_3).
inflate(Z, Data, Options) ->
case lists:keyfind(exception_on_need_dict, 1, Options) of
{_, false} ->
try
zlib:inflate(Z, Data)
catch
error:{need_dictionary, Adler} -> {need_dictionary, Adler, []};
C:R:S -> erlang:raise(C, R, S)
end;
_ -> zlib:inflate(Z, Data)
end.
-endif.
-ifndef(HAVE_zlib__adler32_2).
adler32(Z, Data) when is_reference(Z) -> erlang:adler32(Data);
adler32(_Z, _Data) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__adler32_3).
adler32(Z, Adler, Data) when is_reference(Z) -> erlang:adler32(Adler, Data);
adler32(_Z, _Adler, _Data) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__adler32_combine_4).
adler32_combine(Z, Adler1, Adler2, Size2) when is_reference(Z) -> erlang:adler32_combine(Adler1, Adler2, Size2);
adler32_combine(_Z, _Adler1, _Adler2, _Size2) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__crc32_2).
crc32(Z, Data) when is_reference(Z) -> erlang:crc32(Data);
crc32(_Z, _Data) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__crc32_3).
crc32(Z, CRC, Data) when is_reference(Z) -> erlang:crc32(CRC, Data);
crc32(_Z, _CRC, _Data) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__crc32_combine_4).
crc32_combine(Z, CRC1, CRC2, Size2) when is_reference(Z) -> erlang:crc32_combine(CRC1, CRC2, Size2);
crc32_combine(_Z, _CRC1, _CRC2, _Size2) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__inflateChunk_1).
inflateChunk(Z) -> inflateChunk(Z, <<>>).
-ifndef(NEED_zlib__inflateChunk_2).
-define(NEED_zlib__inflateChunk_2, true).
-endif.
-endif.
-ifdef(NEED_zlib__inflateChunk_2).
inflateChunk(Z, Data) ->
case zlib:safeInflate(Z, Data) of
{finished, Output} -> Output;
{continue, Output} -> {more, Output}
end.
-endif.
-ifndef(HAVE_zlib__setBufSize_2).
setBufSize(Z, Size) when is_reference(Z), is_integer(Size), Size > 16, Size < 1 bsl 24 -> ok;
setBufSize(_Z, _Size) -> error(badarg).
-endif.
-ifndef(HAVE_zlib__getBufSize_1).
getBufSize(Z) when is_reference(Z) -> 4000;
getBufSize(_Z) -> error(badarg).
-endif.