466 |
return Val_unit; |
return Val_unit; |
467 |
} |
} |
468 |
|
|
469 |
|
#ifdef HAVE_PNGVERSION |
470 |
|
#include <png.h> |
471 |
|
#endif |
472 |
|
|
473 |
int ml_image_pngversion(void) |
int ml_image_pngversion(void) |
474 |
{ |
{ |
475 |
CAMLparam0 (); |
CAMLparam0 (); |
476 |
CAMLlocal1 (v); |
CAMLlocal1 (v); |
477 |
#ifdef HAVE_PNGVERSION |
#ifdef HAVE_PNGVERSION |
478 |
void* w = png_access_version_number(); |
#include <png.h> |
479 |
v = copy_int32 ((int32)w); |
v = copy_int32 ((int32)png_access_version_number()); |
480 |
CAMLreturn (v); |
CAMLreturn (v); |
481 |
#else |
#else |
482 |
raise_constant(*(value *)caml_named_value("gd type not supported")); |
raise_constant(*(value *)caml_named_value("gd type not supported")); |