cannam@89: (* zlibpas -- Pascal interface to the zlib data compression library cannam@89: * cannam@89: * Copyright (C) 2003 Cosmin Truta. cannam@89: * Derived from original sources by Bob Dellaca. cannam@89: * For conditions of distribution and use, see copyright notice in readme.txt cannam@89: *) cannam@89: cannam@89: unit zlibpas; cannam@89: cannam@89: interface cannam@89: cannam@89: const cannam@89: ZLIB_VERSION = '1.2.7'; cannam@89: ZLIB_VERNUM = $1270; cannam@89: cannam@89: type cannam@89: alloc_func = function(opaque: Pointer; items, size: Integer): Pointer; cannam@89: cdecl; cannam@89: free_func = procedure(opaque, address: Pointer); cannam@89: cdecl; cannam@89: cannam@89: in_func = function(opaque: Pointer; var buf: PByte): Integer; cannam@89: cdecl; cannam@89: out_func = function(opaque: Pointer; buf: PByte; size: Integer): Integer; cannam@89: cdecl; cannam@89: cannam@89: z_streamp = ^z_stream; cannam@89: z_stream = packed record cannam@89: next_in: PChar; (* next input byte *) cannam@89: avail_in: Integer; (* number of bytes available at next_in *) cannam@89: total_in: LongInt; (* total nb of input bytes read so far *) cannam@89: cannam@89: next_out: PChar; (* next output byte should be put there *) cannam@89: avail_out: Integer; (* remaining free space at next_out *) cannam@89: total_out: LongInt; (* total nb of bytes output so far *) cannam@89: cannam@89: msg: PChar; (* last error message, NULL if no error *) cannam@89: state: Pointer; (* not visible by applications *) cannam@89: cannam@89: zalloc: alloc_func; (* used to allocate the internal state *) cannam@89: zfree: free_func; (* used to free the internal state *) cannam@89: opaque: Pointer; (* private data object passed to zalloc and zfree *) cannam@89: cannam@89: data_type: Integer; (* best guess about the data type: ascii or binary *) cannam@89: adler: LongInt; (* adler32 value of the uncompressed data *) cannam@89: reserved: LongInt; (* reserved for future use *) cannam@89: end; cannam@89: cannam@89: gz_headerp = ^gz_header; cannam@89: gz_header = packed record cannam@89: text: Integer; (* true if compressed data believed to be text *) cannam@89: time: LongInt; (* modification time *) cannam@89: xflags: Integer; (* extra flags (not used when writing a gzip file) *) cannam@89: os: Integer; (* operating system *) cannam@89: extra: PChar; (* pointer to extra field or Z_NULL if none *) cannam@89: extra_len: Integer; (* extra field length (valid if extra != Z_NULL) *) cannam@89: extra_max: Integer; (* space at extra (only when reading header) *) cannam@89: name: PChar; (* pointer to zero-terminated file name or Z_NULL *) cannam@89: name_max: Integer; (* space at name (only when reading header) *) cannam@89: comment: PChar; (* pointer to zero-terminated comment or Z_NULL *) cannam@89: comm_max: Integer; (* space at comment (only when reading header) *) cannam@89: hcrc: Integer; (* true if there was or will be a header crc *) cannam@89: done: Integer; (* true when done reading gzip header *) cannam@89: end; cannam@89: cannam@89: (* constants *) cannam@89: const cannam@89: Z_NO_FLUSH = 0; cannam@89: Z_PARTIAL_FLUSH = 1; cannam@89: Z_SYNC_FLUSH = 2; cannam@89: Z_FULL_FLUSH = 3; cannam@89: Z_FINISH = 4; cannam@89: Z_BLOCK = 5; cannam@89: Z_TREES = 6; cannam@89: cannam@89: Z_OK = 0; cannam@89: Z_STREAM_END = 1; cannam@89: Z_NEED_DICT = 2; cannam@89: Z_ERRNO = -1; cannam@89: Z_STREAM_ERROR = -2; cannam@89: Z_DATA_ERROR = -3; cannam@89: Z_MEM_ERROR = -4; cannam@89: Z_BUF_ERROR = -5; cannam@89: Z_VERSION_ERROR = -6; cannam@89: cannam@89: Z_NO_COMPRESSION = 0; cannam@89: Z_BEST_SPEED = 1; cannam@89: Z_BEST_COMPRESSION = 9; cannam@89: Z_DEFAULT_COMPRESSION = -1; cannam@89: cannam@89: Z_FILTERED = 1; cannam@89: Z_HUFFMAN_ONLY = 2; cannam@89: Z_RLE = 3; cannam@89: Z_FIXED = 4; cannam@89: Z_DEFAULT_STRATEGY = 0; cannam@89: cannam@89: Z_BINARY = 0; cannam@89: Z_TEXT = 1; cannam@89: Z_ASCII = 1; cannam@89: Z_UNKNOWN = 2; cannam@89: cannam@89: Z_DEFLATED = 8; cannam@89: cannam@89: (* basic functions *) cannam@89: function zlibVersion: PChar; cannam@89: function deflateInit(var strm: z_stream; level: Integer): Integer; cannam@89: function deflate(var strm: z_stream; flush: Integer): Integer; cannam@89: function deflateEnd(var strm: z_stream): Integer; cannam@89: function inflateInit(var strm: z_stream): Integer; cannam@89: function inflate(var strm: z_stream; flush: Integer): Integer; cannam@89: function inflateEnd(var strm: z_stream): Integer; cannam@89: cannam@89: (* advanced functions *) cannam@89: function deflateInit2(var strm: z_stream; level, method, windowBits, cannam@89: memLevel, strategy: Integer): Integer; cannam@89: function deflateSetDictionary(var strm: z_stream; const dictionary: PChar; cannam@89: dictLength: Integer): Integer; cannam@89: function deflateCopy(var dest, source: z_stream): Integer; cannam@89: function deflateReset(var strm: z_stream): Integer; cannam@89: function deflateParams(var strm: z_stream; level, strategy: Integer): Integer; cannam@89: function deflateTune(var strm: z_stream; good_length, max_lazy, nice_length, max_chain: Integer): Integer; cannam@89: function deflateBound(var strm: z_stream; sourceLen: LongInt): LongInt; cannam@89: function deflatePending(var strm: z_stream; var pending: Integer; var bits: Integer): Integer; cannam@89: function deflatePrime(var strm: z_stream; bits, value: Integer): Integer; cannam@89: function deflateSetHeader(var strm: z_stream; head: gz_header): Integer; cannam@89: function inflateInit2(var strm: z_stream; windowBits: Integer): Integer; cannam@89: function inflateSetDictionary(var strm: z_stream; const dictionary: PChar; cannam@89: dictLength: Integer): Integer; cannam@89: function inflateSync(var strm: z_stream): Integer; cannam@89: function inflateCopy(var dest, source: z_stream): Integer; cannam@89: function inflateReset(var strm: z_stream): Integer; cannam@89: function inflateReset2(var strm: z_stream; windowBits: Integer): Integer; cannam@89: function inflatePrime(var strm: z_stream; bits, value: Integer): Integer; cannam@89: function inflateMark(var strm: z_stream): LongInt; cannam@89: function inflateGetHeader(var strm: z_stream; var head: gz_header): Integer; cannam@89: function inflateBackInit(var strm: z_stream; cannam@89: windowBits: Integer; window: PChar): Integer; cannam@89: function inflateBack(var strm: z_stream; in_fn: in_func; in_desc: Pointer; cannam@89: out_fn: out_func; out_desc: Pointer): Integer; cannam@89: function inflateBackEnd(var strm: z_stream): Integer; cannam@89: function zlibCompileFlags: LongInt; cannam@89: cannam@89: (* utility functions *) cannam@89: function compress(dest: PChar; var destLen: LongInt; cannam@89: const source: PChar; sourceLen: LongInt): Integer; cannam@89: function compress2(dest: PChar; var destLen: LongInt; cannam@89: const source: PChar; sourceLen: LongInt; cannam@89: level: Integer): Integer; cannam@89: function compressBound(sourceLen: LongInt): LongInt; cannam@89: function uncompress(dest: PChar; var destLen: LongInt; cannam@89: const source: PChar; sourceLen: LongInt): Integer; cannam@89: cannam@89: (* checksum functions *) cannam@89: function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt; cannam@89: function adler32_combine(adler1, adler2, len2: LongInt): LongInt; cannam@89: function crc32(crc: LongInt; const buf: PChar; len: Integer): LongInt; cannam@89: function crc32_combine(crc1, crc2, len2: LongInt): LongInt; cannam@89: cannam@89: (* various hacks, don't look :) *) cannam@89: function deflateInit_(var strm: z_stream; level: Integer; cannam@89: const version: PChar; stream_size: Integer): Integer; cannam@89: function inflateInit_(var strm: z_stream; const version: PChar; cannam@89: stream_size: Integer): Integer; cannam@89: function deflateInit2_(var strm: z_stream; cannam@89: level, method, windowBits, memLevel, strategy: Integer; cannam@89: const version: PChar; stream_size: Integer): Integer; cannam@89: function inflateInit2_(var strm: z_stream; windowBits: Integer; cannam@89: const version: PChar; stream_size: Integer): Integer; cannam@89: function inflateBackInit_(var strm: z_stream; cannam@89: windowBits: Integer; window: PChar; cannam@89: const version: PChar; stream_size: Integer): Integer; cannam@89: cannam@89: cannam@89: implementation cannam@89: cannam@89: {$L adler32.obj} cannam@89: {$L compress.obj} cannam@89: {$L crc32.obj} cannam@89: {$L deflate.obj} cannam@89: {$L infback.obj} cannam@89: {$L inffast.obj} cannam@89: {$L inflate.obj} cannam@89: {$L inftrees.obj} cannam@89: {$L trees.obj} cannam@89: {$L uncompr.obj} cannam@89: {$L zutil.obj} cannam@89: cannam@89: function adler32; external; cannam@89: function adler32_combine; external; cannam@89: function compress; external; cannam@89: function compress2; external; cannam@89: function compressBound; external; cannam@89: function crc32; external; cannam@89: function crc32_combine; external; cannam@89: function deflate; external; cannam@89: function deflateBound; external; cannam@89: function deflateCopy; external; cannam@89: function deflateEnd; external; cannam@89: function deflateInit_; external; cannam@89: function deflateInit2_; external; cannam@89: function deflateParams; external; cannam@89: function deflatePending; external; cannam@89: function deflatePrime; external; cannam@89: function deflateReset; external; cannam@89: function deflateSetDictionary; external; cannam@89: function deflateSetHeader; external; cannam@89: function deflateTune; external; cannam@89: function inflate; external; cannam@89: function inflateBack; external; cannam@89: function inflateBackEnd; external; cannam@89: function inflateBackInit_; external; cannam@89: function inflateCopy; external; cannam@89: function inflateEnd; external; cannam@89: function inflateGetHeader; external; cannam@89: function inflateInit_; external; cannam@89: function inflateInit2_; external; cannam@89: function inflateMark; external; cannam@89: function inflatePrime; external; cannam@89: function inflateReset; external; cannam@89: function inflateReset2; external; cannam@89: function inflateSetDictionary; external; cannam@89: function inflateSync; external; cannam@89: function uncompress; external; cannam@89: function zlibCompileFlags; external; cannam@89: function zlibVersion; external; cannam@89: cannam@89: function deflateInit(var strm: z_stream; level: Integer): Integer; cannam@89: begin cannam@89: Result := deflateInit_(strm, level, ZLIB_VERSION, sizeof(z_stream)); cannam@89: end; cannam@89: cannam@89: function deflateInit2(var strm: z_stream; level, method, windowBits, memLevel, cannam@89: strategy: Integer): Integer; cannam@89: begin cannam@89: Result := deflateInit2_(strm, level, method, windowBits, memLevel, strategy, cannam@89: ZLIB_VERSION, sizeof(z_stream)); cannam@89: end; cannam@89: cannam@89: function inflateInit(var strm: z_stream): Integer; cannam@89: begin cannam@89: Result := inflateInit_(strm, ZLIB_VERSION, sizeof(z_stream)); cannam@89: end; cannam@89: cannam@89: function inflateInit2(var strm: z_stream; windowBits: Integer): Integer; cannam@89: begin cannam@89: Result := inflateInit2_(strm, windowBits, ZLIB_VERSION, sizeof(z_stream)); cannam@89: end; cannam@89: cannam@89: function inflateBackInit(var strm: z_stream; cannam@89: windowBits: Integer; window: PChar): Integer; cannam@89: begin cannam@89: Result := inflateBackInit_(strm, windowBits, window, cannam@89: ZLIB_VERSION, sizeof(z_stream)); cannam@89: end; cannam@89: cannam@89: function _malloc(Size: Integer): Pointer; cdecl; cannam@89: begin cannam@89: GetMem(Result, Size); cannam@89: end; cannam@89: cannam@89: procedure _free(Block: Pointer); cdecl; cannam@89: begin cannam@89: FreeMem(Block); cannam@89: end; cannam@89: cannam@89: procedure _memset(P: Pointer; B: Byte; count: Integer); cdecl; cannam@89: begin cannam@89: FillChar(P^, count, B); cannam@89: end; cannam@89: cannam@89: procedure _memcpy(dest, source: Pointer; count: Integer); cdecl; cannam@89: begin cannam@89: Move(source^, dest^, count); cannam@89: end; cannam@89: cannam@89: end.