CbC/CbC_gcc: zlib/contrib/pascal/zlibpas.pas annotate

annotate zlib/contrib/pascal/zlibpas.pas @ 51:ae3a4bfb450b

add some files of version 4.4.3 that have been forgotten.

author	kent <kent@cr.ie.u-ryukyu.ac.jp>
date	Sun, 07 Feb 2010 18:27:48 +0900
parents
children	04ced10e8804

rev	line source
51 ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 (* zlibpas -- Pascal interface to the zlib data compression library
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	2 *
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3 * Copyright (C) 2003 Cosmin Truta.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 * Derived from original sources by Bob Dellaca.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5 * For conditions of distribution and use, see copyright notice in readme.txt
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 unit zlibpas;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10 interface
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 const
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13 ZLIB_VERSION = '1.2.3';
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15 type
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 alloc_func = function(opaque: Pointer; items, size: Integer): Pointer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 free_func = procedure(opaque, address: Pointer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19 cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21 in_func = function(opaque: Pointer; var buf: PByte): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 out_func = function(opaque: Pointer; buf: PByte; size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	26 z_streamp = ^z_stream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27 z_stream = packed record
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 next_in: PChar; (* next input byte *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29 avail_in: Integer; (* number of bytes available at next_in *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30 total_in: LongInt; (* total nb of input bytes read so far *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	31
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	32 next_out: PChar; (* next output byte should be put there *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33 avail_out: Integer; (* remaining free space at next_out *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 total_out: LongInt; (* total nb of bytes output so far *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 msg: PChar; (* last error message, NULL if no error *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37 state: Pointer; (* not visible by applications *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 zalloc: alloc_func; (* used to allocate the internal state *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40 zfree: free_func; (* used to free the internal state *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	41 opaque: Pointer; (* private data object passed to zalloc and zfree *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	42
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	43 data_type: Integer; (* best guess about the data type: ascii or binary *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	44 adler: LongInt; (* adler32 value of the uncompressed data *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 reserved: LongInt; (* reserved for future use *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 (* constants *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49 const
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 Z_NO_FLUSH = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 Z_PARTIAL_FLUSH = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 Z_SYNC_FLUSH = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 Z_FULL_FLUSH = 3;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 Z_FINISH = 4;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 Z_OK = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57 Z_STREAM_END = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 Z_NEED_DICT = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 Z_ERRNO = -1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60 Z_STREAM_ERROR = -2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 Z_DATA_ERROR = -3;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 Z_MEM_ERROR = -4;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 Z_BUF_ERROR = -5;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 Z_VERSION_ERROR = -6;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 Z_NO_COMPRESSION = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 Z_BEST_SPEED = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 Z_BEST_COMPRESSION = 9;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 Z_DEFAULT_COMPRESSION = -1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 Z_FILTERED = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 Z_HUFFMAN_ONLY = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 Z_RLE = 3;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 Z_DEFAULT_STRATEGY = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76 Z_BINARY = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77 Z_ASCII = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 Z_UNKNOWN = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 Z_DEFLATED = 8;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82 (* basic functions *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 function zlibVersion: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84 function deflateInit(var strm: z_stream; level: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 function deflate(var strm: z_stream; flush: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 function deflateEnd(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 function inflateInit(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 function inflate(var strm: z_stream; flush: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 function inflateEnd(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 (* advanced functions *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 function deflateInit2(var strm: z_stream; level, method, windowBits,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 memLevel, strategy: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 function deflateSetDictionary(var strm: z_stream; const dictionary: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 dictLength: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96 function deflateCopy(var dest, source: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97 function deflateReset(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 function deflateParams(var strm: z_stream; level, strategy: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99 function deflateBound(var strm: z_stream; sourceLen: LongInt): LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 function deflatePrime(var strm: z_stream; bits, value: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 function inflateInit2(var strm: z_stream; windowBits: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 function inflateSetDictionary(var strm: z_stream; const dictionary: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 dictLength: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 function inflateSync(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 function inflateCopy(var dest, source: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 function inflateReset(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107 function inflateBackInit(var strm: z_stream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 windowBits: Integer; window: PChar): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109 function inflateBack(var strm: z_stream; in_fn: in_func; in_desc: Pointer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110 out_fn: out_func; out_desc: Pointer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 function inflateBackEnd(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 function zlibCompileFlags: LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 (* utility functions *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 function compress(dest: PChar; var destLen: LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 const source: PChar; sourceLen: LongInt): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 function compress2(dest: PChar; var destLen: LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 const source: PChar; sourceLen: LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119 level: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 function compressBound(sourceLen: LongInt): LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 function uncompress(dest: PChar; var destLen: LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 const source: PChar; sourceLen: LongInt): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124 (* checksum functions *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126 function crc32(crc: LongInt; const buf: PChar; len: Integer): LongInt;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 (* various hacks, don't look :) *)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 function deflateInit_(var strm: z_stream; level: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 const version: PChar; stream_size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 function inflateInit_(var strm: z_stream; const version: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 stream_size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 function deflateInit2_(var strm: z_stream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134 level, method, windowBits, memLevel, strategy: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135 const version: PChar; stream_size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136 function inflateInit2_(var strm: z_stream; windowBits: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 const version: PChar; stream_size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138 function inflateBackInit_(var strm: z_stream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 windowBits: Integer; window: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 const version: PChar; stream_size: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 implementation
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145 {$L adler32.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146 {$L compress.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 {$L crc32.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 {$L deflate.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 {$L infback.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150 {$L inffast.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 {$L inflate.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 {$L inftrees.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153 {$L trees.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 {$L uncompr.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 {$L zutil.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157 function adler32; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 function compress; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 function compress2; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160 function compressBound; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161 function crc32; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 function deflate; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163 function deflateBound; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 function deflateCopy; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 function deflateEnd; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166 function deflateInit_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 function deflateInit2_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 function deflateParams; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 function deflatePrime; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 function deflateReset; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 function deflateSetDictionary; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 function inflate; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 function inflateBack; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 function inflateBackEnd; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	175 function inflateBackInit_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 function inflateCopy; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 function inflateEnd; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 function inflateInit_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 function inflateInit2_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180 function inflateReset; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181 function inflateSetDictionary; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182 function inflateSync; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 function uncompress; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 function zlibCompileFlags; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 function zlibVersion; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187 function deflateInit(var strm: z_stream; level: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 Result := deflateInit_(strm, level, ZLIB_VERSION, sizeof(z_stream));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	192 function deflateInit2(var strm: z_stream; level, method, windowBits, memLevel,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 strategy: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195 Result := deflateInit2_(strm, level, method, windowBits, memLevel, strategy,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196 ZLIB_VERSION, sizeof(z_stream));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199 function inflateInit(var strm: z_stream): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 Result := inflateInit_(strm, ZLIB_VERSION, sizeof(z_stream));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 function inflateInit2(var strm: z_stream; windowBits: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 Result := inflateInit2_(strm, windowBits, ZLIB_VERSION, sizeof(z_stream));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 function inflateBackInit(var strm: z_stream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210 windowBits: Integer; window: PChar): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 Result := inflateBackInit_(strm, windowBits, window,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 ZLIB_VERSION, sizeof(z_stream));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 function _malloc(Size: Integer): Pointer; cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218 GetMem(Result, Size);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 procedure _free(Block: Pointer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	223 FreeMem(Block);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	226 procedure _memset(P: Pointer; B: Byte; count: Integer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 FillChar(P^, count, B);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231 procedure _memcpy(dest, source: Pointer; count: Integer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233 Move(source^, dest^, count);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	236 end.

Mercurial > hg > CbC > CbC_gcc

annotate zlib/contrib/pascal/zlibpas.pas @ 51:ae3a4bfb450b