| 1 | ----------------------------------------------------------------
|
|---|
| 2 | -- ZLib for Ada thick binding. --
|
|---|
| 3 | -- --
|
|---|
| 4 | -- Copyright (C) 2002-2003 Dmitriy Anisimkov --
|
|---|
| 5 | -- --
|
|---|
| 6 | -- Open source license information is in the zlib.ads file. --
|
|---|
| 7 | ----------------------------------------------------------------
|
|---|
| 8 |
|
|---|
| 9 | -- $Id: zlib-streams.ads,v 1.12 2004/05/31 10:53:40 vagul Exp $
|
|---|
| 10 |
|
|---|
| 11 | package ZLib.Streams is
|
|---|
| 12 |
|
|---|
| 13 | type Stream_Mode is (In_Stream, Out_Stream, Duplex);
|
|---|
| 14 |
|
|---|
| 15 | type Stream_Access is access all Ada.Streams.Root_Stream_Type'Class;
|
|---|
| 16 |
|
|---|
| 17 | type Stream_Type is
|
|---|
| 18 | new Ada.Streams.Root_Stream_Type with private;
|
|---|
| 19 |
|
|---|
| 20 | procedure Read
|
|---|
| 21 | (Stream : in out Stream_Type;
|
|---|
| 22 | Item : out Ada.Streams.Stream_Element_Array;
|
|---|
| 23 | Last : out Ada.Streams.Stream_Element_Offset);
|
|---|
| 24 |
|
|---|
| 25 | procedure Write
|
|---|
| 26 | (Stream : in out Stream_Type;
|
|---|
| 27 | Item : in Ada.Streams.Stream_Element_Array);
|
|---|
| 28 |
|
|---|
| 29 | procedure Flush
|
|---|
| 30 | (Stream : in out Stream_Type;
|
|---|
| 31 | Mode : in Flush_Mode := Sync_Flush);
|
|---|
| 32 | -- Flush the written data to the back stream,
|
|---|
| 33 | -- all data placed to the compressor is flushing to the Back stream.
|
|---|
| 34 | -- Should not be used untill necessary, becouse it is decreasing
|
|---|
| 35 | -- compression.
|
|---|
| 36 |
|
|---|
| 37 | function Read_Total_In (Stream : in Stream_Type) return Count;
|
|---|
| 38 | pragma Inline (Read_Total_In);
|
|---|
| 39 | -- Return total number of bytes read from back stream so far.
|
|---|
| 40 |
|
|---|
| 41 | function Read_Total_Out (Stream : in Stream_Type) return Count;
|
|---|
| 42 | pragma Inline (Read_Total_Out);
|
|---|
| 43 | -- Return total number of bytes read so far.
|
|---|
| 44 |
|
|---|
| 45 | function Write_Total_In (Stream : in Stream_Type) return Count;
|
|---|
| 46 | pragma Inline (Write_Total_In);
|
|---|
| 47 | -- Return total number of bytes written so far.
|
|---|
| 48 |
|
|---|
| 49 | function Write_Total_Out (Stream : in Stream_Type) return Count;
|
|---|
| 50 | pragma Inline (Write_Total_Out);
|
|---|
| 51 | -- Return total number of bytes written to the back stream.
|
|---|
| 52 |
|
|---|
| 53 | procedure Create
|
|---|
| 54 | (Stream : out Stream_Type;
|
|---|
| 55 | Mode : in Stream_Mode;
|
|---|
| 56 | Back : in Stream_Access;
|
|---|
| 57 | Back_Compressed : in Boolean;
|
|---|
| 58 | Level : in Compression_Level := Default_Compression;
|
|---|
| 59 | Strategy : in Strategy_Type := Default_Strategy;
|
|---|
| 60 | Header : in Header_Type := Default;
|
|---|
| 61 | Read_Buffer_Size : in Ada.Streams.Stream_Element_Offset
|
|---|
| 62 | := Default_Buffer_Size;
|
|---|
| 63 | Write_Buffer_Size : in Ada.Streams.Stream_Element_Offset
|
|---|
| 64 | := Default_Buffer_Size);
|
|---|
| 65 | -- Create the Comression/Decompression stream.
|
|---|
| 66 | -- If mode is In_Stream then Write operation is disabled.
|
|---|
| 67 | -- If mode is Out_Stream then Read operation is disabled.
|
|---|
| 68 |
|
|---|
| 69 | -- If Back_Compressed is true then
|
|---|
| 70 | -- Data written to the Stream is compressing to the Back stream
|
|---|
| 71 | -- and data read from the Stream is decompressed data from the Back stream.
|
|---|
| 72 |
|
|---|
| 73 | -- If Back_Compressed is false then
|
|---|
| 74 | -- Data written to the Stream is decompressing to the Back stream
|
|---|
| 75 | -- and data read from the Stream is compressed data from the Back stream.
|
|---|
| 76 |
|
|---|
| 77 | -- !!! When the Need_Header is False ZLib-Ada is using undocumented
|
|---|
| 78 | -- ZLib 1.1.4 functionality to do not create/wait for ZLib headers.
|
|---|
| 79 |
|
|---|
| 80 | function Is_Open (Stream : Stream_Type) return Boolean;
|
|---|
| 81 |
|
|---|
| 82 | procedure Close (Stream : in out Stream_Type);
|
|---|
| 83 |
|
|---|
| 84 | private
|
|---|
| 85 |
|
|---|
| 86 | use Ada.Streams;
|
|---|
| 87 |
|
|---|
| 88 | type Buffer_Access is access all Stream_Element_Array;
|
|---|
| 89 |
|
|---|
| 90 | type Stream_Type
|
|---|
| 91 | is new Root_Stream_Type with
|
|---|
| 92 | record
|
|---|
| 93 | Mode : Stream_Mode;
|
|---|
| 94 |
|
|---|
| 95 | Buffer : Buffer_Access;
|
|---|
| 96 | Rest_First : Stream_Element_Offset;
|
|---|
| 97 | Rest_Last : Stream_Element_Offset;
|
|---|
| 98 | -- Buffer for Read operation.
|
|---|
| 99 | -- We need to have this buffer in the record
|
|---|
| 100 | -- becouse not all read data from back stream
|
|---|
| 101 | -- could be processed during the read operation.
|
|---|
| 102 |
|
|---|
| 103 | Buffer_Size : Stream_Element_Offset;
|
|---|
| 104 | -- Buffer size for write operation.
|
|---|
| 105 | -- We do not need to have this buffer
|
|---|
| 106 | -- in the record becouse all data could be
|
|---|
| 107 | -- processed in the write operation.
|
|---|
| 108 |
|
|---|
| 109 | Back : Stream_Access;
|
|---|
| 110 | Reader : Filter_Type;
|
|---|
| 111 | Writer : Filter_Type;
|
|---|
| 112 | end record;
|
|---|
| 113 |
|
|---|
| 114 | end ZLib.Streams;
|
|---|
