Subversion Repositories scarts

----------------------------------------------------------------
--  ZLib for Ada thick binding.                               --
--                                                            --
--  Copyright (C) 2002-2003 Dmitriy Anisimkov                 --
--                                                            --
--  Open source license information is in the zlib.ads file.  --
----------------------------------------------------------------
 
--  $Id: read.adb,v 1.1.1.1 2007/08/18 13:53:34 jeunes2 Exp $
 
--  Test/demo program for the generic read interface.
 
with Ada.Numerics.Discrete_Random;
with Ada.Streams;
with Ada.Text_IO;
 
with ZLib;
 
procedure Read is
 
   use Ada.Streams;
 
   ------------------------------------
   --  Test configuration parameters --
   ------------------------------------
 
   File_Size   : Stream_Element_Offset := 100_000;
 
   Continuous  : constant Boolean          := False;
   --  If this constant is True, the test would be repeated again and again,
   --  with increment File_Size for every iteration.
 
   Header      : constant ZLib.Header_Type := ZLib.Default;
   --  Do not use Header other than Default in ZLib versions 1.1.4 and older.
 
   Init_Random : constant := 8;
   --  We are using the same random sequence, in case of we catch bug,
   --  so we would be able to reproduce it.
 
   -- End --
 
   Pack_Size : Stream_Element_Offset;
   Offset    : Stream_Element_Offset;
 
   Filter     : ZLib.Filter_Type;
 
   subtype Visible_Symbols
      is Stream_Element range 16#20# .. 16#7E#;
 
   package Random_Elements is new
      Ada.Numerics.Discrete_Random (Visible_Symbols);
 
   Gen : Random_Elements.Generator;
   Period  : constant Stream_Element_Offset := 200;
   --  Period constant variable for random generator not to be very random.
   --  Bigger period, harder random.
 
   Read_Buffer : Stream_Element_Array (1 .. 2048);
   Read_First  : Stream_Element_Offset;
   Read_Last   : Stream_Element_Offset;
 
   procedure Reset;
 
   procedure Read
     (Item : out Stream_Element_Array;
      Last : out Stream_Element_Offset);
   --  this procedure is for generic instantiation of
   --  ZLib.Read
   --  reading data from the File_In.
 
   procedure Read is new ZLib.Read
                           (Read,
                            Read_Buffer,
                            Rest_First => Read_First,
                            Rest_Last  => Read_Last);
 
   ----------
   -- Read --
   ----------
 
   procedure Read
     (Item : out Stream_Element_Array;
      Last : out Stream_Element_Offset) is
   begin
      Last := Stream_Element_Offset'Min
               (Item'Last,
                Item'First + File_Size - Offset);
 
      for J in Item'First .. Last loop
         if J < Item'First + Period then
            Item (J) := Random_Elements.Random (Gen);
         else
            Item (J) := Item (J - Period);
         end if;
 
         Offset   := Offset + 1;
      end loop;
   end Read;
 
   -----------
   -- Reset --
   -----------
 
   procedure Reset is
   begin
      Random_Elements.Reset (Gen, Init_Random);
      Pack_Size := 0;
      Offset := 1;
      Read_First := Read_Buffer'Last + 1;
      Read_Last  := Read_Buffer'Last;
   end Reset;
 
begin
   Ada.Text_IO.Put_Line ("ZLib " & ZLib.Version);
 
   loop
      for Level in ZLib.Compression_Level'Range loop
 
         Ada.Text_IO.Put ("Level ="
            & ZLib.Compression_Level'Image (Level));
 
         --  Deflate using generic instantiation.
 
         ZLib.Deflate_Init
               (Filter,
                Level,
                Header => Header);
 
         Reset;
 
         Ada.Text_IO.Put
           (Stream_Element_Offset'Image (File_Size) & " ->");
 
         loop
            declare
               Buffer : Stream_Element_Array (1 .. 1024);
               Last   : Stream_Element_Offset;
            begin
               Read (Filter, Buffer, Last);
 
               Pack_Size := Pack_Size + Last - Buffer'First + 1;
 
               exit when Last < Buffer'Last;
            end;
         end loop;
 
         Ada.Text_IO.Put_Line (Stream_Element_Offset'Image (Pack_Size));
 
         ZLib.Close (Filter);
      end loop;
 
      exit when not Continuous;
 
      File_Size := File_Size + 1;
   end loop;
end Read;