avoid an unneeded check in the FT1 has_chars() method implementation
[imager.git] / PNG / PNG.xs
CommitLineData
1d7e3124
TC
1#define PERL_NO_GET_CONTEXT
2#ifdef __cplusplus
3extern "C" {
4#endif
5#include "EXTERN.h"
6#include "perl.h"
7#include "XSUB.h"
8#include "imext.h"
9#include "imperl.h"
10#include "impng.h"
11
12DEFINE_IMAGER_CALLBACKS;
13
14MODULE = Imager::File::PNG PACKAGE = Imager::File::PNG
15
16Imager::ImgRaw
57520a19 17i_readpng_wiol(ig, flags=0)
1d7e3124 18 Imager::IO ig
57520a19 19 int flags
1d7e3124
TC
20
21undef_int
22i_writepng_wiol(im, ig)
23 Imager::ImgRaw im
24 Imager::IO ig
25
647508aa
TC
26unsigned
27i_png_lib_version()
28
79f95bf1
TC
29MODULE = Imager::File::PNG PACKAGE = Imager::File::PNG PREFIX=i_png_
30
31void
32i_png_features(...)
33 PREINIT:
34 const char * const *p;
35 PPCODE:
36 p = i_png_features();
37 while (*p) {
38 EXTEND(SP, 1);
39 PUSHs(sv_2mortal(newSVpv(*p, 0)));
40 ++p;
41 }
42
57520a19
TC
43int
44IMPNG_READ_IGNORE_BENIGN_ERRORS()
45 CODE:
46 RETVAL = IMPNG_READ_IGNORE_BENIGN_ERRORS;
47 OUTPUT:
48 RETVAL
49
1d7e3124
TC
50BOOT:
51 PERL_INITIALIZE_IMAGER_CALLBACKS;