mirrors/zlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update the Pascal interface in contrib/pascal.

Browse Source
This commit is contained in:
Mark Adler 2012-01-15 20:46:53 -08:00
parent 0ddfbd2346
commit c3799a2480
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
contrib/pascal/zlibpas.pas
View File

@ -11,6 +11,7 @@ interface
const const
ZLIB_VERSION = '1.2.6'; ZLIB_VERSION = '1.2.6';
ZLIB_VERNUM = $1260;
type type
alloc_func = function(opaque: Pointer; items, size: Integer): Pointer; alloc_func = function(opaque: Pointer; items, size: Integer): Pointer;
@ -45,6 +46,23 @@ type
reserved: LongInt; (* reserved for future use *) reserved: LongInt; (* reserved for future use *)
end; end;
gz_headerp = ^gz_header;
gz_header = packed record
text: Integer; (* true if compressed data believed to be text *)
time: LongInt; (* modification time *)
xflags: Integer; (* extra flags (not used when writing a gzip file) *)
os: Integer; (* operating system *)
extra: PChar; (* pointer to extra field or Z_NULL if none *)
extra_len: Integer; (* extra field length (valid if extra != Z_NULL) *)
extra_max: Integer; (* space at extra (only when reading header) *)
name: PChar; (* pointer to zero-terminated file name or Z_NULL *)
name_max: Integer; (* space at name (only when reading header) *)
comment: PChar; (* pointer to zero-terminated comment or Z_NULL *)
comm_max: Integer; (* space at comment (only when reading header) *)
hcrc: Integer; (* true if there was or will be a header crc *)
done: Integer; (* true when done reading gzip header *)
end;
(* constants *) (* constants *)
const const
Z_NO_FLUSH = 0; Z_NO_FLUSH = 0;
@ -52,6 +70,8 @@ const
Z_SYNC_FLUSH = 2; Z_SYNC_FLUSH = 2;
Z_FULL_FLUSH = 3; Z_FULL_FLUSH = 3;
Z_FINISH = 4; Z_FINISH = 4;
Z_BLOCK = 5;
Z_TREES = 6;
Z_OK = 0; Z_OK = 0;
Z_STREAM_END = 1; Z_STREAM_END = 1;
@ -71,9 +91,11 @@ const
Z_FILTERED = 1; Z_FILTERED = 1;
Z_HUFFMAN_ONLY = 2; Z_HUFFMAN_ONLY = 2;
Z_RLE = 3; Z_RLE = 3;
Z_FIXED = 4;
Z_DEFAULT_STRATEGY = 0; Z_DEFAULT_STRATEGY = 0;
Z_BINARY = 0; Z_BINARY = 0;
Z_TEXT = 1;
Z_ASCII = 1; Z_ASCII = 1;
Z_UNKNOWN = 2; Z_UNKNOWN = 2;
@ -96,15 +118,21 @@ function deflateSetDictionary(var strm: z_stream; const dictionary: PChar;
function deflateCopy(var dest, source: z_stream): Integer; function deflateCopy(var dest, source: z_stream): Integer;
function deflateReset(var strm: z_stream): Integer; function deflateReset(var strm: z_stream): Integer;
function deflateParams(var strm: z_stream; level, strategy: Integer): Integer; function deflateParams(var strm: z_stream; level, strategy: Integer): Integer;
function deflateTune(var strm: z_stream; good_length, max_lazy, nice_length, max_chain: Integer): Integer;
function deflateBound(var strm: z_stream; sourceLen: LongInt): LongInt; function deflateBound(var strm: z_stream; sourceLen: LongInt): LongInt;
function deflatePending(var strm: z_stream; var pending: Integer; var bits: Integer): Integer; function deflatePending(var strm: z_stream; var pending: Integer; var bits: Integer): Integer;
function deflatePrime(var strm: z_stream; bits, value: Integer): Integer; function deflatePrime(var strm: z_stream; bits, value: Integer): Integer;
function deflateSetHeader(var strm: z_stream; head: gz_header): Integer;
function inflateInit2(var strm: z_stream; windowBits: Integer): Integer; function inflateInit2(var strm: z_stream; windowBits: Integer): Integer;
function inflateSetDictionary(var strm: z_stream; const dictionary: PChar; function inflateSetDictionary(var strm: z_stream; const dictionary: PChar;
dictLength: Integer): Integer; dictLength: Integer): Integer;
function inflateSync(var strm: z_stream): Integer; function inflateSync(var strm: z_stream): Integer;
function inflateCopy(var dest, source: z_stream): Integer; function inflateCopy(var dest, source: z_stream): Integer;
function inflateReset(var strm: z_stream): Integer; function inflateReset(var strm: z_stream): Integer;
function inflateReset2(var strm: z_stream; windowBits: Integer): Integer;
function inflatePrime(var strm: z_stream; bits, value: Integer): Integer;
function inflateMark(var strm: z_stream): LongInt;
function inflateGetHeader(var strm: z_stream; var head: gz_header): Integer;
function inflateBackInit(var strm: z_stream; function inflateBackInit(var strm: z_stream;
windowBits: Integer; window: PChar): Integer; windowBits: Integer; window: PChar): Integer;
function inflateBack(var strm: z_stream; in_fn: in_func; in_desc: Pointer; function inflateBack(var strm: z_stream; in_fn: in_func; in_desc: Pointer;
@ -124,7 +152,9 @@ function uncompress(dest: PChar; var destLen: LongInt;
(* checksum functions *) (* checksum functions *)
function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt; function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt;
function adler32_combine(adler1, adler2, len2: LongInt): LongInt;
function crc32(crc: LongInt; const buf: PChar; len: Integer): LongInt; function crc32(crc: LongInt; const buf: PChar; len: Integer): LongInt;
function crc32_combine(crc1, crc2, len2: LongInt): LongInt;
(* various hacks, don't look :) *) (* various hacks, don't look :) *)
function deflateInit_(var strm: z_stream; level: Integer; function deflateInit_(var strm: z_stream; level: Integer;
@ -156,10 +186,12 @@ implementation
{$L zutil.obj} {$L zutil.obj}
function adler32; external; function adler32; external;
function adler32_combine; external;
function compress; external; function compress; external;
function compress2; external; function compress2; external;
function compressBound; external; function compressBound; external;
function crc32; external; function crc32; external;
function crc32_combine; external;
function deflate; external; function deflate; external;
function deflateBound; external; function deflateBound; external;
function deflateCopy; external; function deflateCopy; external;
@ -171,15 +203,21 @@ function deflatePending; external;
function deflatePrime; external; function deflatePrime; external;
function deflateReset; external; function deflateReset; external;
function deflateSetDictionary; external; function deflateSetDictionary; external;
function deflateSetHeader; external;
function deflateTune; external;
function inflate; external; function inflate; external;
function inflateBack; external; function inflateBack; external;
function inflateBackEnd; external; function inflateBackEnd; external;
function inflateBackInit_; external; function inflateBackInit_; external;
function inflateCopy; external; function inflateCopy; external;
function inflateEnd; external; function inflateEnd; external;
function inflateGetHeader; external;
function inflateInit_; external; function inflateInit_; external;
function inflateInit2_; external; function inflateInit2_; external;
function inflateMark; external;
function inflatePrime; external;
function inflateReset; external; function inflateReset; external;
function inflateReset2; external;
function inflateSetDictionary; external; function inflateSetDictionary; external;
function inflateSync; external; function inflateSync; external;
function uncompress; external; function uncompress; external;