Lines Matching full:zlib

2 --  ZLib for Ada thick binding.                               --
6 --  Open source license information is in the zlib.ads file.  --
12 --  1. Test ZLib.Ada95 thick binding functionality.
13 --  2. Show the example of use main functionality of the ZLib.Ada95 binding.
14 --  3. Build this program automatically compile all ZLib.Ada95 packages under
17 with ZLib.Streams;
37    Header      : constant ZLib.Header_Type := ZLib.Default;
38                                               --  ZLib.None;
39                                               --  ZLib.Auto;
40                                               --  ZLib.GZip;
41    --  Do not use Header other then Default in ZLib versions 1.1.4
44    Strategy    : constant ZLib.Strategy_Type := ZLib.Default_Strategy;
61    File_Z    : ZLib.Streams.Stream_Type;
63    Filter : ZLib.Filter_Type;
89    --  ZLib.Generic_Translate.
94    --  ZLib.Generic_Translate.
100    procedure Print_Statistic (Msg : String; Data_Size : ZLib.Count);
103    procedure Translate is new ZLib.Generic_Translate
261    procedure Print_Statistic (Msg : String; Data_Size : ZLib.Count) is
265       package Count_IO is new Integer_IO (ZLib.Count);
291    Ada.Text_IO.Put_Line ("ZLib " & ZLib.Version);
296       for Level in ZLib.Compression_Level'Range loop
299             & ZLib.Compression_Level'Image (Level));
309          ZLib.Deflate_Init
316          Print_Statistic ("Generic compress", ZLib.Total_Out (Filter));
317          ZLib.Close (Filter);
329          ZLib.Inflate_Init (Filter, Header => Header);
332          Print_Statistic ("Generic decompress", ZLib.Total_Out (Filter));
334          ZLib.Close (Filter);
350          ZLib.Streams.Create
352             Mode            => ZLib.Streams.Out_Stream,
353             Back            => ZLib.Streams.Stream_Access
366          ZLib.Streams.Flush (File_Z, ZLib.Finish);
369                           ZLib.Streams.Write_Total_Out (File_Z));
371          ZLib.Streams.Close (File_Z);
382          ZLib.Streams.Create
384             Mode            => ZLib.Streams.In_Stream,
385             Back            => ZLib.Streams.Stream_Access
394                           ZLib.Streams.Read_Total_Out (File_Z));
396          ZLib.Streams.Close (File_Z);
405          ZLib.Streams.Create
407             Mode            => ZLib.Streams.In_Stream,
408             Back            => ZLib.Streams.Stream_Access
421                           ZLib.Streams.Read_Total_Out (File_Z));
423          ZLib.Streams.Close (File_Z);
433          ZLib.Streams.Create
435             Mode            => ZLib.Streams.Out_Stream,
436             Back            => ZLib.Streams.Stream_Access
448                           ZLib.Streams.Write_Total_Out (File_Z));
450          ZLib.Streams.Close (File_Z);