Mercurial > hg > sv-dependency-builds

annotate src/zlib-1.2.8/contrib/ada/zlib-thin.adb @ 169:223a55898ab9 tip default

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add null config files
author Chris Cannam <cannam@all-day-breakfast.com>
date Mon, 02 Mar 2020 14:03:47 +0000
parents 5b4145a0d408
children
rev   line source
cannam@128 1 ----------------------------------------------------------------
cannam@128 2 -- ZLib for Ada thick binding. --
cannam@128 3 -- --
cannam@128 4 -- Copyright (C) 2002-2003 Dmitriy Anisimkov --
cannam@128 5 -- --
cannam@128 6 -- Open source license information is in the zlib.ads file. --
cannam@128 7 ----------------------------------------------------------------
cannam@128 8
cannam@128 9 -- $Id: zlib-thin.adb,v 1.8 2003/12/14 18:27:31 vagul Exp $
cannam@128 10
cannam@128 11 package body ZLib.Thin is
cannam@128 12
cannam@128 13 ZLIB_VERSION : constant Chars_Ptr := zlibVersion;
cannam@128 14
cannam@128 15 Z_Stream_Size : constant Int := Z_Stream'Size / System.Storage_Unit;
cannam@128 16
cannam@128 17 --------------
cannam@128 18 -- Avail_In --
cannam@128 19 --------------
cannam@128 20
cannam@128 21 function Avail_In (Strm : in Z_Stream) return UInt is
cannam@128 22 begin
cannam@128 23 return Strm.Avail_In;
cannam@128 24 end Avail_In;
cannam@128 25
cannam@128 26 ---------------
cannam@128 27 -- Avail_Out --
cannam@128 28 ---------------
cannam@128 29
cannam@128 30 function Avail_Out (Strm : in Z_Stream) return UInt is
cannam@128 31 begin
cannam@128 32 return Strm.Avail_Out;
cannam@128 33 end Avail_Out;
cannam@128 34
cannam@128 35 ------------------
cannam@128 36 -- Deflate_Init --
cannam@128 37 ------------------
cannam@128 38
cannam@128 39 function Deflate_Init
cannam@128 40 (strm : Z_Streamp;
cannam@128 41 level : Int;
cannam@128 42 method : Int;
cannam@128 43 windowBits : Int;
cannam@128 44 memLevel : Int;
cannam@128 45 strategy : Int)
cannam@128 46 return Int is
cannam@128 47 begin
cannam@128 48 return deflateInit2
cannam@128 49 (strm,
cannam@128 50 level,
cannam@128 51 method,
cannam@128 52 windowBits,
cannam@128 53 memLevel,
cannam@128 54 strategy,
cannam@128 55 ZLIB_VERSION,
cannam@128 56 Z_Stream_Size);
cannam@128 57 end Deflate_Init;
cannam@128 58
cannam@128 59 ------------------
cannam@128 60 -- Inflate_Init --
cannam@128 61 ------------------
cannam@128 62
cannam@128 63 function Inflate_Init (strm : Z_Streamp; windowBits : Int) return Int is
cannam@128 64 begin
cannam@128 65 return inflateInit2 (strm, windowBits, ZLIB_VERSION, Z_Stream_Size);
cannam@128 66 end Inflate_Init;
cannam@128 67
cannam@128 68 ------------------------
cannam@128 69 -- Last_Error_Message --
cannam@128 70 ------------------------
cannam@128 71
cannam@128 72 function Last_Error_Message (Strm : in Z_Stream) return String is
cannam@128 73 use Interfaces.C.Strings;
cannam@128 74 begin
cannam@128 75 if Strm.msg = Null_Ptr then
cannam@128 76 return "";
cannam@128 77 else
cannam@128 78 return Value (Strm.msg);
cannam@128 79 end if;
cannam@128 80 end Last_Error_Message;
cannam@128 81
cannam@128 82 ------------
cannam@128 83 -- Set_In --
cannam@128 84 ------------
cannam@128 85
cannam@128 86 procedure Set_In
cannam@128 87 (Strm : in out Z_Stream;
cannam@128 88 Buffer : in Voidp;
cannam@128 89 Size : in UInt) is
cannam@128 90 begin
cannam@128 91 Strm.Next_In := Buffer;
cannam@128 92 Strm.Avail_In := Size;
cannam@128 93 end Set_In;
cannam@128 94
cannam@128 95 ------------------
cannam@128 96 -- Set_Mem_Func --
cannam@128 97 ------------------
cannam@128 98
cannam@128 99 procedure Set_Mem_Func
cannam@128 100 (Strm : in out Z_Stream;
cannam@128 101 Opaque : in Voidp;
cannam@128 102 Alloc : in alloc_func;
cannam@128 103 Free : in free_func) is
cannam@128 104 begin
cannam@128 105 Strm.opaque := Opaque;
cannam@128 106 Strm.zalloc := Alloc;
cannam@128 107 Strm.zfree := Free;
cannam@128 108 end Set_Mem_Func;
cannam@128 109
cannam@128 110 -------------
cannam@128 111 -- Set_Out --
cannam@128 112 -------------
cannam@128 113
cannam@128 114 procedure Set_Out
cannam@128 115 (Strm : in out Z_Stream;
cannam@128 116 Buffer : in Voidp;
cannam@128 117 Size : in UInt) is
cannam@128 118 begin
cannam@128 119 Strm.Next_Out := Buffer;
cannam@128 120 Strm.Avail_Out := Size;
cannam@128 121 end Set_Out;
cannam@128 122
cannam@128 123 --------------
cannam@128 124 -- Total_In --
cannam@128 125 --------------
cannam@128 126
cannam@128 127 function Total_In (Strm : in Z_Stream) return ULong is
cannam@128 128 begin
cannam@128 129 return Strm.Total_In;
cannam@128 130 end Total_In;
cannam@128 131
cannam@128 132 ---------------
cannam@128 133 -- Total_Out --
cannam@128 134 ---------------
cannam@128 135
cannam@128 136 function Total_Out (Strm : in Z_Stream) return ULong is
cannam@128 137 begin
cannam@128 138 return Strm.Total_Out;
cannam@128 139 end Total_Out;
cannam@128 140
cannam@128 141 end ZLib.Thin;