]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
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 | ||
11 | package 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 | ||
141 | end ZLib.Thin; |