From 762742960e335013943f5b9b55ebff9b09bd8133 Mon Sep 17 00:00:00 2001 From: peter Date: Thu, 6 Jan 2000 23:43:11 +0000 Subject: [PATCH] * paszlib compatibility --- packages/zlib/zlib.pp | 52 +++++++++++++++++++++---------------------- 1 file changed, 26 insertions(+), 26 deletions(-) diff --git a/packages/zlib/zlib.pp b/packages/zlib/zlib.pp index 5d06a52848..1c005c89b9 100644 --- a/packages/zlib/zlib.pp +++ b/packages/zlib/zlib.pp @@ -12,13 +12,13 @@ const libz='z'; type - - { Compatibility types } - Uint = cardinal; - Ulong = Cardinal; - Ulongf = Cardinal; + { Compatible with paszlib } + Uint = Longint; + Ulong = Longint; + Ulongf = Longint; Pulongf = ^Ulongf; z_off_t = longint; + pbytef = ^byte; TAllocfunc = function (opaque:pointer; items:uInt; size:uInt):pointer;cdecl; TFreeFunc = procedure (opaque:pointer; address:pointer);cdecl; @@ -28,13 +28,13 @@ type PInternalState = ^TInternalstate; TZStream = record - next_in : pchar; + next_in : pbytef; avail_in : uInt; total_in : uLong; - next_out : pchar; + next_out : pbytef; avail_out : uInt; total_out : uLong; - msg : pchar; + msg : pbytef; state : PInternalState; zalloc : TAllocFunc; zfree : TFreeFunc; @@ -82,30 +82,30 @@ const Z_NULL = 0; -function zlibVersionPchar:pchar;cdecl;external libz name 'zlibVersion'; +function zlibVersionpchar:pchar;cdecl;external libz name 'zlibVersion'; function zlibVersion:string; function deflate(var strm:TZStream; flush:longint):longint;cdecl;external libz name 'deflate'; function deflateEnd(var strm:TZStream):longint;cdecl;external libz name 'deflateEnd'; function inflate(var strm:TZStream; flush:longint):longint;cdecl;external libz name 'inflate'; function inflateEnd(var strm:TZStream):longint;cdecl;external libz name 'inflateEnd'; -function deflateSetDictionary(var strm:TZStream;dictionary : pchar; dictLength:uInt):longint;cdecl;external libz name 'deflateSetDictionary'; +function deflateSetDictionary(var strm:TZStream;dictionary : pbytef; dictLength:uInt):longint;cdecl;external libz name 'deflateSetDictionary'; function deflateCopy(var dest,source:TZstream):longint;cdecl;external libz name 'deflateCopy'; function deflateReset(var strm:TZStream):longint;cdecl;external libz name 'deflateReset'; function deflateParams(var strm:TZStream; level:longint; strategy:longint):longint;cdecl;external libz name 'deflateParams'; -function inflateSetDictionary(var strm:TZStream;dictionary : pchar; dictLength:uInt):longint;cdecl;external libz name 'inflateSetDictionary'; +function inflateSetDictionary(var strm:TZStream;dictionary : pbytef; dictLength:uInt):longint;cdecl;external libz name 'inflateSetDictionary'; function inflateSync(var strm:TZStream):longint;cdecl;external libz name 'inflateSync'; function inflateReset(var strm:TZStream):longint;cdecl;external libz name 'inflateReset'; -function compress(dest:pchar;destLen:uLongf; source : pchar; sourceLen:uLong):longint;cdecl;external libz name 'compress'; -function compress2(dest:pchar;destLen:uLongf; source : pchar; sourceLen:uLong; level:longint):longint;cdecl;external libz name 'compress2'; -function uncompress(dest:pchar;destLen:uLongf; source : pchar; sourceLen:uLong):longint;cdecl;external libz name 'uncompress'; -function gzopen(path:pchar; mode:pchar):gzFile;cdecl;external libz name 'gzopen'; -function gzdopen(fd:longint; mode:pchar):gzFile;cdecl;external libz name 'gzdopen'; +function compress(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong):longint;cdecl;external libz name 'compress'; +function compress2(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong; level:longint):longint;cdecl;external libz name 'compress2'; +function uncompress(dest:pbytef;destLen:uLongf; source : pbytef; sourceLen:uLong):longint;cdecl;external libz name 'uncompress'; +function gzopen(path:pbytef; mode:pbytef):gzFile;cdecl;external libz name 'gzopen'; +function gzdopen(fd:longint; mode:pbytef):gzFile;cdecl;external libz name 'gzdopen'; function gzsetparams(thefile:gzFile; level:longint; strategy:longint):longint;cdecl;external libz name 'gzsetparams'; function gzread(thefile:gzFile; buf:pointer; len:cardinal):longint;cdecl;external libz name 'gzread'; function gzwrite(thefile:gzFile; buf:pointer; len:cardinal):longint;cdecl;external libz name 'gzwrite'; -function gzprintf(thefile:gzFile; format:pchar; args:array of const):longint;cdecl;external libz name 'gzprintf'; -function gzputs(thefile:gzFile; s:pchar):longint;cdecl;external libz name 'gzputs'; -function gzgets(thefile:gzFile; buf:pchar; len:longint):pchar;cdecl;external libz name 'gzgets'; +function gzprintf(thefile:gzFile; format:pbytef; args:array of const):longint;cdecl;external libz name 'gzprintf'; +function gzputs(thefile:gzFile; s:pbytef):longint;cdecl;external libz name 'gzputs'; +function gzgets(thefile:gzFile; buf:pbytef; len:longint):pbytef;cdecl;external libz name 'gzgets'; function gzputc(thefile:gzFile; c:char):char;cdecl;external libz name 'gzputc'; function gzgetc(thefile:gzFile):char;cdecl;external libz name 'gzgetc'; function gzflush(thefile:gzFile; flush:longint):longint;cdecl;external libz name 'gzflush'; @@ -114,9 +114,9 @@ function gzrewind(thefile:gzFile):longint;cdecl;external libz name 'gzrewind'; function gztell(thefile:gzFile):z_off_t;cdecl;external libz name 'gztell'; function gzeof(thefile:gzFile):longbool;cdecl;external libz name 'gzeof'; function gzclose(thefile:gzFile):longint;cdecl;external libz name 'gzclose'; -function gzerror(thefile:gzFile; var errnum:longint):pchar;cdecl;external libz name 'gzerror'; -function adler32(adler:uLong;buf : pchar; len:uInt):uLong;cdecl;external libz name 'adler32'; -function crc32(crc:uLong;buf : pchar; len:uInt):uLong;cdecl;external libz name 'crc32'; +function gzerror(thefile:gzFile; var errnum:longint):pbytef;cdecl;external libz name 'gzerror'; +function adler32(adler:uLong;buf : pbytef; len:uInt):uLong;cdecl;external libz name 'adler32'; +function crc32(crc:uLong;buf : pbytef; len:uInt):uLong;cdecl;external libz name 'crc32'; function deflateInit_(var strm:TZStream; level:longint; version:pchar; stream_size:longint):longint;cdecl;external libz name 'deflateInit_'; function inflateInit_(var strm:TZStream; version:pchar; stream_size:longint):longint;cdecl;external libz name 'inflateInit_'; function deflateInit(var strm:TZStream;level : longint) : longint; @@ -125,7 +125,7 @@ function deflateInit2_(var strm:TZStream; level:longint; method:longint; windowB function inflateInit2_(var strm:TZStream; windowBits:longint; version:pchar; stream_size:longint):longint;cdecl;external libz name 'inflateInit2_'; function deflateInit2(var strm:TZStream;level,method,windowBits,memLevel,strategy : longint) : longint; function inflateInit2(var strm:TZStream;windowBits : longint) : longint; -function zErrorPchar(err:longint):pchar;cdecl;external libz name 'zError'; +function zErrorpchar(err:longint):pchar;cdecl;external libz name 'zError'; function zError(err:longint):string; function inflateSyncPoint(z:PZstream):longint;cdecl;external libz name 'inflateSyncPoint'; function get_crc_table:pointer;cdecl;external libz name 'get_crc_table'; @@ -138,7 +138,7 @@ uses function zlibversion : string; begin - zlibversion:=strpas(zlibversionPchar); + zlibversion:=strpas(zlibversionpchar); end; function deflateInit(var strm:TZStream;level : longint) : longint; @@ -163,7 +163,7 @@ function inflateInit2(var strm:TZStream;windowBits : longint) : longint; function zError(err:longint):string; begin - zerror:=Strpas(zErrorPchar(err)); + zerror:=Strpas(zErrorpchar(err)); end; -end. \ No newline at end of file +end.