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: zlib-thin.adb,v 1.1.1.1 2007/08/18 13:53:33 jeunes2 Exp $

package body ZLib.Thin is

   ZLIB_VERSION  : constant Chars_Ptr := zlibVersion;

   Z_Stream_Size : constant Int := Z_Stream'Size / System.Storage_Unit;

   --------------

   -- Avail_In --

   --------------

   function Avail_In (Strm : in Z_Stream) return UInt is

   begin

      return Strm.Avail_In;

   end Avail_In;

   ---------------

   -- Avail_Out --

   ---------------

   function Avail_Out (Strm : in Z_Stream) return UInt is

   begin

      return Strm.Avail_Out;

   end Avail_Out;

   ------------------

   -- Deflate_Init --

   ------------------

   function Deflate_Init

     (strm       : Z_Streamp;

      level      : Int;

      method     : Int;

      windowBits : Int;

      memLevel   : Int;

      strategy   : Int)

      return       Int is

   begin

      return deflateInit2

               (strm,

                level,

                method,

                windowBits,

                memLevel,

                strategy,

                ZLIB_VERSION,

                Z_Stream_Size);

   end Deflate_Init;

   ------------------

   -- Inflate_Init --

   ------------------

   function Inflate_Init (strm : Z_Streamp; windowBits : Int) return Int is

   begin

      return inflateInit2 (strm, windowBits, ZLIB_VERSION, Z_Stream_Size);

   end Inflate_Init;

   ------------------------

   -- Last_Error_Message --

   ------------------------

   function Last_Error_Message (Strm : in Z_Stream) return String is

      use Interfaces.C.Strings;

   begin

      if Strm.msg = Null_Ptr then

         return "";

      else

         return Value (Strm.msg);

      end if;

   end Last_Error_Message;

   ------------

   -- Set_In --

   ------------

   procedure Set_In

     (Strm   : in out Z_Stream;

      Buffer : in     Voidp;

      Size   : in     UInt) is

   begin

      Strm.Next_In  := Buffer;

      Strm.Avail_In := Size;

   end Set_In;

   ------------------

   -- Set_Mem_Func --

   ------------------

   procedure Set_Mem_Func

     (Strm   : in out Z_Stream;

      Opaque : in     Voidp;

      Alloc  : in     alloc_func;

      Free   : in     free_func) is

   begin

      Strm.opaque := Opaque;

      Strm.zalloc := Alloc;

      Strm.zfree  := Free;

   end Set_Mem_Func;

   -------------

   -- Set_Out --

   -------------

   procedure Set_Out

     (Strm   : in out Z_Stream;

      Buffer : in     Voidp;

      Size   : in     UInt) is

   begin

      Strm.Next_Out  := Buffer;

      Strm.Avail_Out := Size;

   end Set_Out;

   --------------

   -- Total_In --

   --------------

   function Total_In (Strm : in Z_Stream) return ULong is

   begin

      return Strm.Total_In;

   end Total_In;

   ---------------

   -- Total_Out --

   ---------------

   function Total_Out (Strm : in Z_Stream) return ULong is

   begin

      return Strm.Total_Out;

   end Total_Out;

end ZLib.Thin;