------------------------------------------------------------------  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.6 2003/01/21 15:26:37 vagul Exp $package body ZLib.Thin is   ZLIB_VERSION : constant Chars_Ptr :=      Interfaces.C.Strings.New_String ("1.1.4");   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  : in Z_Streamp;      level : in Int := Z_DEFAULT_COMPRESSION)      return  Int is   begin      return deflateInit (strm, level, ZLIB_VERSION, Z_Stream_Size);   end 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) return Int is   begin      return inflateInit (strm, ZLIB_VERSION, Z_Stream_Size);   end 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;   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;   -------------   -- Need_In --   -------------   function Need_In (strm : Z_Stream) return Boolean is   begin      return strm.Avail_In = 0;   end Need_In;   --------------   -- Need_Out --   --------------   function Need_Out (strm : Z_Stream) return Boolean is   begin      return strm.Avail_Out = 0;   end Need_Out;   ------------   -- Set_In --   ------------   procedure Set_In     (Strm   : in out Z_Stream;      Buffer : in Byte_Access;      Size   : in UInt) is   begin      Strm.Next_In  := Buffer;      Strm.Avail_In := Size;   end Set_In;   procedure Set_In     (Strm   : in out Z_Stream;      Buffer : in Voidp;      Size   : in UInt) is   begin      Set_In (Strm, Bytes.To_Pointer (Buffer), 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 Byte_Access;      Size   : in UInt) is   begin      Strm.Next_Out  := Buffer;      Strm.Avail_Out := Size;   end Set_Out;   procedure Set_Out     (Strm   : in out Z_Stream;      Buffer : in Voidp;      Size   : in UInt) is   begin      Set_Out (Strm, Bytes.To_Pointer (Buffer), 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;