Lines Matching +full:translate +full:- +full:errno
1 ----------------------------------------------------------------
2 -- ZLib for Ada thick binding. --
3 -- --
4 -- Copyright (C) 2002-2004 Dmitriy Anisimkov --
5 -- --
6 -- Open source license information is in the zlib.ads file. --
7 ----------------------------------------------------------------
9 -- $Id: zlib.adb,v 1.31 2004/09/06 06:53:19 vagul Exp $
29 ERRNO, literal
52 := (16#1f#, 16#8b#, -- Magic header
53 16#08#, -- Z_DEFLATED
54 16#00#, -- Flags
55 16#00#, 16#00#, 16#00#, 16#00#, -- Time
56 16#00#, -- XFlags
57 16#03# -- OS code
59 -- The simplest gzip header is not for informational, but just for
60 -- gzip format compatibility.
61 -- Note that some code below is using assumption
62 -- Simple_GZip_Header'Last > Footer_Array'Last, so do not make
63 -- Simple_GZip_Header'Last <= Footer_Array'Last.
69 -1 => ERRNO,
70 -2 => STREAM_ERROR,
71 -3 => DATA_ERROR,
72 -4 => MEM_ERROR,
73 -5 => BUF_ERROR,
74 -6 => VERSION_ERROR);
106 -- Separate translate routine for make gzip header.
115 -- translate routine without additional headers.
117 -----------------
118 -- Check_Error --
119 -----------------
131 -----------
132 -- Close --
133 -----------
163 -----------
164 -- CRC32 --
165 -----------
186 ------------------
187 -- Deflate_Init --
188 ------------------
206 -- We allow ZLib to make header only in case of default header type.
207 -- Otherwise we would either do header by ourselves, or do not do
208 -- header at all.
211 Win_Bits := -Win_Bits;
214 -- For the GZip CRC calculation and make headers.
240 -----------
241 -- Flush --
242 -----------
253 Translate (Filter, No_Data, Last, Out_Data, Out_Last, Flush);
256 -----------------------
257 -- Generic_Translate --
258 -----------------------
280 Translate
294 -- The end of in buffer.
304 ------------------
305 -- Inflate_Init --
306 ------------------
317 -- Check the latest header types compatibility.
337 -- Inflate data without headers determined
338 -- by negative Win_Bits.
340 Win_Bits := -Win_Bits;
344 -- Inflate gzip data defined by flag 16.
350 -- Inflate with automatic detection
351 -- of gzip or native header defined by flag 32.
369 -------------
370 -- Is_Open --
371 -------------
378 -----------------
379 -- Raise_Error --
380 -----------------
392 ----------
393 -- Read --
394 ----------
408 pragma Assert (Rest_Last in Buffer'First - 1 .. Buffer'Last);
411 if Rest_Last = Buffer'First - 1 then
423 Translate
441 ----------------
442 -- Stream_End --
443 ----------------
455 --------------
456 -- Total_In --
457 --------------
464 ---------------
465 -- Total_Out --
466 ---------------
473 ---------------
474 -- Translate --
475 ---------------
477 procedure Translate subprogram
502 end Translate;
504 --------------------
505 -- Translate_Auto --
506 --------------------
542 - Stream_Element_Offset (Avail_In (Filter.Strm.all));
544 - Stream_Element_Offset (Avail_Out (Filter.Strm.all));
547 --------------------
548 -- Translate_GZip --
549 --------------------
562 -- Add data to stream from the Filter.Offset till necessary,
563 -- used for add gzip headr/footer.
570 --------------
571 -- Add_Data --
572 --------------
577 Data_Len : Stream_Element_Offset; -- -1
578 Out_Len : Stream_Element_Offset; -- -1
586 Data_Len := Data'Last - Data_First;
587 Out_Len := Out_Data'Last - Out_First;
603 ------------
604 -- Put_32 --
605 ------------
620 Out_Last := Out_Data'First - 1;
637 -- This detection method would work only when
638 -- Simple_GZip_Header'Last > Footer_Array'Last
655 -------------
656 -- Version --
657 -------------
664 -----------
665 -- Write --
666 -----------
683 Translate