Mercurial > hg > sv-dependency-builds

annotate src/zlib-1.2.7/contrib/ada/zlib-thin.adb @ 143:e95e00bdc3eb

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