[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/zlib.ml

[mldonkey-commits]

Index: mldonkey/src/utils/cdk/zlib.ml
diff -u mldonkey/src/utils/cdk/zlib.ml:1.3 mldonkey/src/utils/cdk/zlib.ml:1.4
--- mldonkey/src/utils/cdk/zlib.ml:1.3  Mon Nov  1 11:23:02 2004
+++ mldonkey/src/utils/cdk/zlib.ml      Mon Aug  1 20:09:13 2005
@@ -28,6 +28,15 @@
 external update_crc: int32 -> string -> int -> int -> int32
                    = "camlzip_update_crc32"
 
+external zlib_version : unit -> string = "camlzip_zlibversion"
+
+let zlib_version_num () =
+  begin
+    try
+      let s = Printf.sprintf "%s" (zlib_version ()) in s
+    with e -> ""
+  end
+
 let buffer_size = 1024
 
 let compress ?(level = 6) ?(header = true) refill flush =