Lines Matching full:thin
17 with ZLib.Thin;
21 use type Thin.Int;
23 type Z_Stream is new Thin.Z_Stream;
37 function (Strm : in Thin.Z_Streamp; Flush : in Thin.Int) return Thin.Int;
41 function (Ctrm : in Thin.Z_Streamp) return Thin.Int;
65 Return_Code : constant array (Thin.Int range <>) of Return_Code_Enum
77 := (True => (Step => Thin.Deflate'Access,
78 Done => Thin.DeflateEnd'Access),
79 False => (Step => Thin.Inflate'Access,
80 Done => Thin.InflateEnd'Access));
91 procedure Check_Error (Stream : in Z_Stream; Code : in Thin.Int);
97 (Z_Stream_Access, Thin.Z_Streamp);
121 procedure Check_Error (Stream : in Z_Stream; Code : in Thin.Int) is
122 use type Thin.Int;
124 if Code /= Thin.Z_OK then
139 Code : Thin.Int;
147 if Ignore_Error or else Code = Thin.Z_OK then
172 use Thin;
199 use type Thin.Int;
200 Win_Bits : Thin.Int := Thin.Int (Window_Bits);
228 if Thin.Deflate_Init
230 Level => Thin.Int (Level),
231 method => Thin.Int (Method),
233 memLevel => Thin.Int (Memory_Level),
234 strategy => Thin.Int (Strategy)) /= Thin.Z_OK
313 use type Thin.Int;
314 Win_Bits : Thin.Int := Thin.Int (Window_Bits);
362 if Thin.Inflate_Init
363 (To_Thin_Access (Filter.Strm), Win_Bits) /= Thin.Z_OK
461 return Count (Thin.Total_In (To_Thin_Access (Filter.Strm).all));
470 return Count (Thin.Total_Out (To_Thin_Access (Filter.Strm).all));
516 use type Thin.Int;
517 Code : Thin.Int;
533 Thin.Int (Flush));
535 if Code = Thin.Z_STREAM_END then
661 return Interfaces.C.Strings.Value (Thin.zlibVersion);
