/[mldonkey]/mldonkey/src/utils/cdk/gdstubs.c
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/gdstubs.c

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

revision 1.2 by spiralvoice, Fri Jun 24 23:49:19 2005 UTC revision 1.3 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC
# Line 30  Line 30 
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>
# Line 464  value ml_image_set_transparent(value gdw Line 465  value ml_image_set_transparent(value gdw
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    }

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

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