• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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-thin.adb,v 1.8 2003/12/14 18:27:31 vagul Exp $
10
11package body ZLib.Thin is
12
13   ZLIB_VERSION  : constant Chars_Ptr := zlibVersion;
14
15   Z_Stream_Size : constant Int := Z_Stream'Size / System.Storage_Unit;
16
17   --------------
18   -- Avail_In --
19   --------------
20
21   function Avail_In (Strm : in Z_Stream) return UInt is
22   begin
23      return Strm.Avail_In;
24   end Avail_In;
25
26   ---------------
27   -- Avail_Out --
28   ---------------
29
30   function Avail_Out (Strm : in Z_Stream) return UInt is
31   begin
32      return Strm.Avail_Out;
33   end Avail_Out;
34
35   ------------------
36   -- Deflate_Init --
37   ------------------
38
39   function Deflate_Init
40     (strm       : Z_Streamp;
41      level      : Int;
42      method     : Int;
43      windowBits : Int;
44      memLevel   : Int;
45      strategy   : Int)
46      return       Int is
47   begin
48      return deflateInit2
49               (strm,
50                level,
51                method,
52                windowBits,
53                memLevel,
54                strategy,
55                ZLIB_VERSION,
56                Z_Stream_Size);
57   end Deflate_Init;
58
59   ------------------
60   -- Inflate_Init --
61   ------------------
62
63   function Inflate_Init (strm : Z_Streamp; windowBits : Int) return Int is
64   begin
65      return inflateInit2 (strm, windowBits, ZLIB_VERSION, Z_Stream_Size);
66   end Inflate_Init;
67
68   ------------------------
69   -- Last_Error_Message --
70   ------------------------
71
72   function Last_Error_Message (Strm : in Z_Stream) return String is
73      use Interfaces.C.Strings;
74   begin
75      if Strm.msg = Null_Ptr then
76         return "";
77      else
78         return Value (Strm.msg);
79      end if;
80   end Last_Error_Message;
81
82   ------------
83   -- Set_In --
84   ------------
85
86   procedure Set_In
87     (Strm   : in out Z_Stream;
88      Buffer : in     Voidp;
89      Size   : in     UInt) is
90   begin
91      Strm.Next_In  := Buffer;
92      Strm.Avail_In := Size;
93   end Set_In;
94
95   ------------------
96   -- Set_Mem_Func --
97   ------------------
98
99   procedure Set_Mem_Func
100     (Strm   : in out Z_Stream;
101      Opaque : in     Voidp;
102      Alloc  : in     alloc_func;
103      Free   : in     free_func) is
104   begin
105      Strm.opaque := Opaque;
106      Strm.zalloc := Alloc;
107      Strm.zfree  := Free;
108   end Set_Mem_Func;
109
110   -------------
111   -- Set_Out --
112   -------------
113
114   procedure Set_Out
115     (Strm   : in out Z_Stream;
116      Buffer : in     Voidp;
117      Size   : in     UInt) is
118   begin
119      Strm.Next_Out  := Buffer;
120      Strm.Avail_Out := Size;
121   end Set_Out;
122
123   --------------
124   -- Total_In --
125   --------------
126
127   function Total_In (Strm : in Z_Stream) return ULong is
128   begin
129      return Strm.Total_In;
130   end Total_In;
131
132   ---------------
133   -- Total_Out --
134   ---------------
135
136   function Total_Out (Strm : in Z_Stream) return ULong is
137   begin
138      return Strm.Total_Out;
139   end Total_Out;
140
141end ZLib.Thin;
142