/[mldonkey]/mldonkey/src/utils/cdk/zlib.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/zlib.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by mldonkey, Mon Nov 1 11:23:02 2004 UTC revision 1.4 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC
# Line 28  external inflate_end: stream -> unit = " Line 28  external inflate_end: stream -> unit = "
28  external update_crc: int32 -> string -> int -> int -> int32  external update_crc: int32 -> string -> int -> int -> int32
29                     = "camlzip_update_crc32"                     = "camlzip_update_crc32"
30    
31    external zlib_version : unit -> string = "camlzip_zlibversion"
32    
33    let zlib_version_num () =
34      begin
35        try
36          let s = Printf.sprintf "%s" (zlib_version ()) in s
37        with e -> ""
38      end
39    
40  let buffer_size = 1024  let buffer_size = 1024
41    
42  let compress ?(level = 6) ?(header = true) refill flush =  let compress ?(level = 6) ?(header = true) refill flush =

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26