mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
de1ab01e8e
Changes in 1.2.10 (2 Jan 2017) - Avoid warnings on snprintf() return value - Fix bug in deflate_stored() for zero-length input - Fix bug in gzwrite.c that produced corrupt gzip files - Remove files to be installed before copying them in Makefile.in - Add warnings when compiling with assembler code Changes in 1.2.9 (31 Dec 2016) - Fix contrib/minizip to permit unzipping with desktop API [Zouzou] - Improve contrib/blast to return unused bytes - Assure that gzoffset() is correct when appending - Improve compress() and uncompress() to support large lengths - Fix bug in test/example.c where error code not saved - Remedy Coverity warning [Randers-Pehrson] - Improve speed of gzprintf() in transparent mode - Fix inflateInit2() bug when windowBits is 16 or 32 - Change DEBUG macro to ZLIB_DEBUG - Avoid uninitialized access by gzclose_w() - Allow building zlib outside of the source directory - Fix bug that accepted invalid zlib header when windowBits is zero - Fix gzseek() problem on MinGW due to buggy _lseeki64 there - Loop on write() calls in gzwrite.c in case of non-blocking I/O - Add --warn (-w) option to ./configure for more compiler warnings - Reject a window size of 256 bytes if not using the zlib wrapper - Fix bug when level 0 used with Z_HUFFMAN or Z_RLE - Add --debug (-d) option to ./configure to define ZLIB_DEBUG - Fix bugs in creating a very large gzip header - Add uncompress2() function, which returns the input size used - Assure that deflateParams() will not switch functions mid-block - Dramatically speed up deflation for level 0 (storing) - Add gzfread(), duplicating the interface of fread() - Add gzfwrite(), duplicating the interface of fwrite() - Add deflateGetDictionary() function - Use snprintf() for later versions of Microsoft C - Fix *Init macros to use z_ prefix when requested - Replace as400 with os400 for OS/400 support [Monnerat] - Add crc32_z() and adler32_z() functions with size_t lengths - Update Visual Studio project files [AraHaan]
115 lines
4.2 KiB
Ada
115 lines
4.2 KiB
Ada
----------------------------------------------------------------
|
|
-- ZLib for Ada thick binding. --
|
|
-- --
|
|
-- Copyright (C) 2002-2003 Dmitriy Anisimkov --
|
|
-- --
|
|
-- Open source license information is in the zlib.ads file. --
|
|
----------------------------------------------------------------
|
|
|
|
-- $Id: zlib-streams.ads,v 1.12 2004/05/31 10:53:40 vagul Exp $
|
|
|
|
package ZLib.Streams is
|
|
|
|
type Stream_Mode is (In_Stream, Out_Stream, Duplex);
|
|
|
|
type Stream_Access is access all Ada.Streams.Root_Stream_Type'Class;
|
|
|
|
type Stream_Type is
|
|
new Ada.Streams.Root_Stream_Type with private;
|
|
|
|
procedure Read
|
|
(Stream : in out Stream_Type;
|
|
Item : out Ada.Streams.Stream_Element_Array;
|
|
Last : out Ada.Streams.Stream_Element_Offset);
|
|
|
|
procedure Write
|
|
(Stream : in out Stream_Type;
|
|
Item : in Ada.Streams.Stream_Element_Array);
|
|
|
|
procedure Flush
|
|
(Stream : in out Stream_Type;
|
|
Mode : in Flush_Mode := Sync_Flush);
|
|
-- Flush the written data to the back stream,
|
|
-- all data placed to the compressor is flushing to the Back stream.
|
|
-- Should not be used until necessary, because it is decreasing
|
|
-- compression.
|
|
|
|
function Read_Total_In (Stream : in Stream_Type) return Count;
|
|
pragma Inline (Read_Total_In);
|
|
-- Return total number of bytes read from back stream so far.
|
|
|
|
function Read_Total_Out (Stream : in Stream_Type) return Count;
|
|
pragma Inline (Read_Total_Out);
|
|
-- Return total number of bytes read so far.
|
|
|
|
function Write_Total_In (Stream : in Stream_Type) return Count;
|
|
pragma Inline (Write_Total_In);
|
|
-- Return total number of bytes written so far.
|
|
|
|
function Write_Total_Out (Stream : in Stream_Type) return Count;
|
|
pragma Inline (Write_Total_Out);
|
|
-- Return total number of bytes written to the back stream.
|
|
|
|
procedure Create
|
|
(Stream : out Stream_Type;
|
|
Mode : in Stream_Mode;
|
|
Back : in Stream_Access;
|
|
Back_Compressed : in Boolean;
|
|
Level : in Compression_Level := Default_Compression;
|
|
Strategy : in Strategy_Type := Default_Strategy;
|
|
Header : in Header_Type := Default;
|
|
Read_Buffer_Size : in Ada.Streams.Stream_Element_Offset
|
|
:= Default_Buffer_Size;
|
|
Write_Buffer_Size : in Ada.Streams.Stream_Element_Offset
|
|
:= Default_Buffer_Size);
|
|
-- Create the Comression/Decompression stream.
|
|
-- If mode is In_Stream then Write operation is disabled.
|
|
-- If mode is Out_Stream then Read operation is disabled.
|
|
|
|
-- If Back_Compressed is true then
|
|
-- Data written to the Stream is compressing to the Back stream
|
|
-- and data read from the Stream is decompressed data from the Back stream.
|
|
|
|
-- If Back_Compressed is false then
|
|
-- Data written to the Stream is decompressing to the Back stream
|
|
-- and data read from the Stream is compressed data from the Back stream.
|
|
|
|
-- !!! When the Need_Header is False ZLib-Ada is using undocumented
|
|
-- ZLib 1.1.4 functionality to do not create/wait for ZLib headers.
|
|
|
|
function Is_Open (Stream : Stream_Type) return Boolean;
|
|
|
|
procedure Close (Stream : in out Stream_Type);
|
|
|
|
private
|
|
|
|
use Ada.Streams;
|
|
|
|
type Buffer_Access is access all Stream_Element_Array;
|
|
|
|
type Stream_Type
|
|
is new Root_Stream_Type with
|
|
record
|
|
Mode : Stream_Mode;
|
|
|
|
Buffer : Buffer_Access;
|
|
Rest_First : Stream_Element_Offset;
|
|
Rest_Last : Stream_Element_Offset;
|
|
-- Buffer for Read operation.
|
|
-- We need to have this buffer in the record
|
|
-- because not all read data from back stream
|
|
-- could be processed during the read operation.
|
|
|
|
Buffer_Size : Stream_Element_Offset;
|
|
-- Buffer size for write operation.
|
|
-- We do not need to have this buffer
|
|
-- in the record because all data could be
|
|
-- processed in the write operation.
|
|
|
|
Back : Stream_Access;
|
|
Reader : Filter_Type;
|
|
Writer : Filter_Type;
|
|
end record;
|
|
|
|
end ZLib.Streams;
|