[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/gdstubs.c
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/gdstubs.c |
Date: |
Mon, 01 Aug 2005 16:09:20 -0400 |
Index: mldonkey/src/utils/cdk/gdstubs.c
diff -u mldonkey/src/utils/cdk/gdstubs.c:1.2
mldonkey/src/utils/cdk/gdstubs.c:1.3
--- mldonkey/src/utils/cdk/gdstubs.c:1.2 Fri Jun 24 23:49:19 2005
+++ mldonkey/src/utils/cdk/gdstubs.c Mon Aug 1 20:09:13 2005
@@ -30,6 +30,7 @@
#include <caml/memory.h>
#include <caml/callback.h>
#include <caml/fail.h>
+#include <caml/alloc.h>
#include <gd.h>
#include <gdfontl.h>
@@ -463,4 +464,18 @@
value ml_image_set_transparent(value gdw, value c) {
gdImageColorTransparent(IM_VAL(gdw), Int_val(c));
return Val_unit;
+}
+
+int ml_image_pngversion(void)
+{
+ CAMLparam0 ();
+ CAMLlocal1 (v);
+#ifdef HAVE_PNGVERSION
+ void* w = png_access_version_number();
+ v = copy_int32 ((int32)w);
+ CAMLreturn (v);
+#else
+ raise_constant(*(value *)caml_named_value("gd type not supported"));
+ return Val_unit;
+#endif
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/utils/cdk/gdstubs.c,
mldonkey-commits <=