30 |
#include <caml/memory.h> |
#include <caml/memory.h> |
31 |
#include <caml/callback.h> |
#include <caml/callback.h> |
32 |
#include <caml/fail.h> |
#include <caml/fail.h> |
33 |
|
#include <caml/alloc.h> |
34 |
|
|
35 |
#include <gd.h> |
#include <gd.h> |
36 |
#include <gdfontl.h> |
#include <gdfontl.h> |
465 |
gdImageColorTransparent(IM_VAL(gdw), Int_val(c)); |
gdImageColorTransparent(IM_VAL(gdw), Int_val(c)); |
466 |
return Val_unit; |
return Val_unit; |
467 |
} |
} |
468 |
|
|
469 |
|
int ml_image_pngversion(void) |
470 |
|
{ |
471 |
|
CAMLparam0 (); |
472 |
|
CAMLlocal1 (v); |
473 |
|
#ifdef HAVE_PNGVERSION |
474 |
|
void* w = png_access_version_number(); |
475 |
|
v = copy_int32 ((int32)w); |
476 |
|
CAMLreturn (v); |
477 |
|
#else |
478 |
|
raise_constant(*(value *)caml_named_value("gd type not supported")); |
479 |
|
return Val_unit; |
480 |
|
#endif |
481 |
|
} |