WIP, it compiles
[imager.git] / imext.h
CommitLineData
92bda632
TC
1#ifndef IMAGER_IMEXT_H_
2#define IMAGER_IMEXT_H_
3
4#include "imexttypes.h"
bea65b1f 5#include "immacros.h"
92bda632
TC
6
7extern im_ext_funcs *imager_function_ext_table;
8
9#define DEFINE_IMAGER_CALLBACKS im_ext_funcs *imager_function_ext_table
10
d1f5892c
TC
11#ifndef IMAGER_MIN_API_LEVEL
12#define IMAGER_MIN_API_LEVEL IMAGER_API_LEVEL
13#endif
14
38742a13 15#define PERL_INITIALIZE_IMAGER_CALLBACKS_NAME(name) \
d1f5892c
TC
16 do { \
17 imager_function_ext_table = INT2PTR(im_ext_funcs *, SvIV(get_sv(PERL_FUNCTION_TABLE_NAME, 1))); \
18 if (!imager_function_ext_table) \
19 croak("Imager API function table not found!"); \
af7d3ef8 20 if (imager_function_ext_table->version != IMAGER_API_VERSION) { \
38742a13
TC
21 croak("Imager API version incorrect loaded %d vs expected %d in %s", \
22 imager_function_ext_table->version, IMAGER_API_VERSION, (name)); \
af7d3ef8 23 } \
d1f5892c 24 if (imager_function_ext_table->level < IMAGER_MIN_API_LEVEL) \
38742a13 25 croak("API level %d below minimum of %d in %s", imager_function_ext_table->level, IMAGER_MIN_API_LEVEL, (name)); \
d1f5892c 26 } while (0)
92bda632 27
38742a13
TC
28#define PERL_INITIALIZE_IMAGER_CALLBACKS PERL_INITIALIZE_IMAGER_CALLBACKS_NAME(__FILE__)
29
92bda632
TC
30/* just for use here */
31#define im_extt imager_function_ext_table
32
a482206e
TC
33#define im_get_context() ((im_extt->f_im_get_context)())
34
e310e5f9
TC
35#ifdef IMAGER_DEBUG_MALLOC
36
37#define mymalloc(size) ((im_extt->f_mymalloc_file_line)((size), __FILE__, __LINE__))
38#define myrealloc(ptr, size) ((im_extt->f_myrealloc_file_line)((ptr), (size), __FILE__, __LINE__))
39#define myfree(ptr) ((im_extt->f_myfree_file_line)((ptr), __FILE__, __LINE__))
40
41#else
42
92bda632
TC
43#define mymalloc(size) ((im_extt->f_mymalloc)(size))
44#define myfree(size) ((im_extt->f_myfree)(size))
45#define myrealloc(block, newsize) ((im_extt->f_myrealloc)((block), (newsize)))
46
e310e5f9
TC
47#endif
48
a482206e
TC
49#define im_img_8_new(ctx, xsize, ysize, channels) ((im_extt->f_im_img_8_new)((ctx), (xsize), (ysize), (channels)))
50#define im_img_16_new(ctx, xsize, ysize, channels) ((im_extt->f_im_img_16_new)((ctx), (xsize), (ysize), (channels)))
51#define im_img_double_new(ctx, xsize, ysize, channels) ((im_extt->f_im_img_double_new)((ctx), (xsize), (ysize), (channels)))
52#define im_img_pal_new(ctx, xsize, ysize, channels, maxpal) ((im_extt->f_im_img_pal_new)((ctx), (xsize), (ysize), (channels), (maxpal)))
92bda632
TC
53
54#define i_img_destroy(im) ((im_extt->f_i_img_destroy)(im))
55#define i_sametype(im, xsize, ysize) ((im_extt->f_i_sametype)((im), (xsize), (ysize)))
56#define i_sametype_chans(im, xsize, ysize, channels) ((im_extt->f_i_sametype_chans)((im), (xsize), (ysize), (channels)))
57#define i_img_info(im, info) ((im_extt->f_i_img_info)((im), (info)))
58
59#ifndef IMAGER_DIRECT_IMAGE_CALLS
60#define IMAGER_DIRECT_IMAGE_CALLS 1
61#endif
62
63#if IMAGER_DIRECT_IMAGE_CALLS
64#define i_ppix(im, x, y, val) (((im)->i_f_ppix)((im), (x), (y), (val)))
65#define i_gpix(im, x, y, val) (((im)->i_f_gpix)((im), (x), (y), (val)))
66#define i_ppixf(im, x, y, val) (((im)->i_f_ppixf)((im), (x), (y), (val)))
67#define i_gpixf(im, x, y, val) (((im)->i_f_gpixf)((im), (x), (y), (val)))
68#define i_plin(im, l, r, y, val) (((im)->i_f_plin)(im, l, r, y, val))
69#define i_glin(im, l, r, y, val) (((im)->i_f_glin)(im, l, r, y, val))
70#define i_plinf(im, l, r, y, val) (((im)->i_f_plinf)(im, l, r, y, val))
71#define i_glinf(im, l, r, y, val) (((im)->i_f_glinf)(im, l, r, y, val))
72
73#define i_gsamp(im, l, r, y, samps, chans, count) \
74 (((im)->i_f_gsamp)((im), (l), (r), (y), (samps), (chans), (count)))
75#define i_gsampf(im, l, r, y, samps, chans, count) \
76 (((im)->i_f_gsampf)((im), (l), (r), (y), (samps), (chans), (count)))
77
78#define i_findcolor(im, color, entry) \
79 (((im)->i_f_findcolor) ? ((im)->i_f_findcolor)((im), (color), (entry)) : 0)
80
81#define i_gpal(im, l, r, y, vals) \
82 (((im)->i_f_gpal) ? ((im)->i_f_gpal)((im), (l), (r), (y), (vals)) : 0)
83#define i_ppal(im, l, r, y, vals) \
84 (((im)->i_f_ppal) ? ((im)->i_f_ppal)((im), (l), (r), (y), (vals)) : 0)
85#define i_addcolors(im, colors, count) \
86 (((im)->i_f_addcolors) ? ((im)->i_f_addcolors)((im), (colors), (count)) : -1)
87#define i_getcolors(im, index, color, count) \
88 (((im)->i_f_getcolors) ? \
89 ((im)->i_f_getcolors)((im), (index), (color), (count)) : 0)
90#define i_setcolors(im, index, color, count) \
91 (((im)->i_f_setcolors) ? \
92 ((im)->i_f_setcolors)((im), (index), (color), (count)) : 0)
93#define i_colorcount(im) \
94 (((im)->i_f_colorcount) ? ((im)->i_f_colorcount)(im) : -1)
95#define i_maxcolors(im) \
96 (((im)->i_f_maxcolors) ? ((im)->i_f_maxcolors)(im) : -1)
97#define i_findcolor(im, color, entry) \
98 (((im)->i_f_findcolor) ? ((im)->i_f_findcolor)((im), (color), (entry)) : 0)
99#else
100#define i_ppix(im, x, y, val) ((im_extt->f_i_ppix)((im), (x), (y), (val)))
101#define i_gpix(im, x, y, val) ((im_extt->f_i_gpix)((im), (x), (y), (val)))
102#define i_ppixf(im, x, y, val) ((im_extt->f_i_ppixf)((im), (x), (y), (val)))
103#define i_gpixf(im, x, y, val) ((im_extt->f_i_gpixf)((im), (x), (y), (val)))
104#define i_plin(im, l, r, y, val) ((im_extt->f_i_plin)((im), (l), (r), (y), (val)))
105#define i_glin(im, l, r, y, val) ((im_extt->f_i_glin)((im), (l), (r), (y), (val)))
106#define i_plinf(im, l, r, y, val) ((im_extt->f_i_plinf)((im), (l), (r), (y), (val)))
107#define i_glinf(im, l, r, y, val) ((im_extt->f_i_glinf)((im), (l), (r), (y), (val)))
108#define i_gsamp(im, l, r, y, samps, chans, count) \
109 ((im_extt->f_i_gsamp)((im), (l), (r), (y), (samps), (chans), (count)))
110#define i_gsampf(im, l, r, y, samps, chans, count) \
111 ((im_extt->f_i_gsampf)((im), (l), (r), (y), (samps), (chans), (count)))
112
113#endif
114
e5ee047b
TC
115#define i_gsamp_bits(im, l, r, y, samps, chans, count, bits) \
116 (((im)->i_f_gsamp_bits) ? ((im)->i_f_gsamp_bits)((im), (l), (r), (y), (samps), (chans), (count), (bits)) : -1)
117#define i_psamp_bits(im, l, r, y, samps, chans, count, bits) \
118 (((im)->i_f_psamp_bits) ? ((im)->i_f_psamp_bits)((im), (l), (r), (y), (samps), (chans), (count), (bits)) : -1)
119
92bda632
TC
120#define i_new_fill_solid(c, combine) ((im_extt->f_i_new_fill_solid)((c), (combine)))
121#define i_new_fill_solidf(c, combine) ((im_extt->f_i_new_fill_solidf)((c), (combine)))
122#define i_new_fill_hatch(fg, bg, combine, hatch, cust_hatch, dx, dy) \
123 ((im_extt->f_i_new_fill_hatch)((fg), (bg), (combine), (hatch), (cust_hatch), (dx), (dy)))
124#define i_new_fill_hatchf(fg, bg, combine, hatch, cust_hatch, dx, dy) \
125 ((im_extt->f_i_new_fill_hatchf)((fg), (bg), (combine), (hatch), (cust_hatch), (dx), (dy)))
126#define i_new_fill_image(im, matrix, xoff, yoff, combine) \
127 ((im_extt->f_i_new_fill_image)((im), (matrix), (xoff), (yoff), (combine)))
128#define i_new_fill_fount(xa, ya, xb, yb, type, repeat, combine, super_sample, ssample_param, count, segs) \
129 ((im_extt->f_i_new_fill_fount)((xa), (ya), (xb), (yb), (type), (repeat), (combine), (super_sample), (ssample_param), (count), (segs)))
130#define i_fill_destroy(fill) ((im_extt->f_i_fill_destroy)(fill))
131
132#define i_quant_makemap(quant, imgs, count) \
133 ((im_extt->f_i_quant_makemap)((quant), (imgs), (count)))
134#define i_quant_translate(quant, img) \
135 ((im_extt->f_i_quant_translate)((quant), (img)))
136#define i_quant_transparent(quant, indices, img, trans_index) \
137 ((im_extt->f_i_quant_transparent)((quant), (indices), (img), (trans_index)))
138
a482206e
TC
139#define im_clear_error(ctx) ((im_extt->f_im_clear_error)(ctx))
140#define im_push_error(ctx, code, msg) ((im_extt->f_im_push_error)((ctx), (code), (msg)))
92bda632 141#define i_push_errorf (im_extt->f_i_push_errorf)
a482206e
TC
142#define im_push_errorvf(ctx, code, fmt, list) \
143 ((im_extt->f_im_push_errorvf)((ctx), (code), (fmt), (list)))
92bda632
TC
144
145#define i_tags_new(tags) ((im_extt->f_i_tags_new)(tags))
146#define i_tags_set(tags, name, data, size) \
147 ((im_extt->f_i_tags_set)((tags), (name), (data), (size)))
148#define i_tags_setn(tags, name, idata) \
149 ((im_extt->f_i_tags_setn)((tags), (name), (idata)))
150#define i_tags_destroy(tags) ((im_extt->f_i_tags_destroy)(tags))
151#define i_tags_find(tags, name, start, entry) \
152 ((im_extt->f_i_tags_find)((tags), (name), (start), (entry)))
153#define i_tags_findn(tags, code, start, entry) \
154 ((im_extt->f_i_tags_findn)((tags), (code), (start), (entry)))
155#define i_tags_delete(tags, entry) \
156 ((im_extt->f_i_tags_delete)((tags), (entry)))
157#define i_tags_delbyname(tags, name) \
158 ((im_extt->f_i_tags_delbyname)((tags), (name)))
159#define i_tags_delbycode(tags, code) \
160 ((im_extt->f_i_tags_delbycode)((tags), (code)))
161#define i_tags_get_float(tags, name, code, value) \
162 ((im_extt->f_i_tags_get_float)((tags), (name), (code), (value)))
163#define i_tags_set_float(tags, name, code, value) \
164 ((im_extt->f_i_tags_set_float)((tags), (name), (code), (value)))
165#define i_tags_set_float2(tags, name, code, value, places) \
166 ((im_extt->f_i_tags_set_float2)((tags), (name), (code), (value), (places)))
167#define i_tags_get_int(tags, name, code, value) \
168 ((im_extt->f_i_tags_get_int)((tags), (name), (code), (value)))
169#define i_tags_get_string(tags, name, code, value, value_size) \
170 ((im_extt->f_i_tags_get_string)((tags), (name), (code), (value), (value_size)))
171#define i_tags_get_color(tags, name, code, value) \
172 ((im_extt->f_i_tags_get_color)((tags), (name), (code), (value)))
173#define i_tags_set_color(tags, name, code, value) \
174 ((im_extt->f_i_tags_set_color)((tags), (name), (code), (value)))
175
176#define i_box(im, x1, y1, x2, y2, val) ((im_extt->f_i_box)((im), (x1), (y1), (x2), (y2), (val)))
177#define i_box_filled(im, x1, y1, x2, y2, val) ((im_extt->f_i_box_filled)((im), (x1), (y1), (x2), (y2), (val)))
178#define i_box_cfill(im, x1, y1, x2, y2, fill) ((im_extt->f_i_box_cfill)((im), (x1), (y1), (x2), (y2), (fill)))
179#define i_line(im, x1, y1, x2, y2, val, endp) ((im_extt->f_i_line)((im), (x1), (y1), (x2), (y2), (val), (endp)))
180#define i_line_aa(im, x1, y1, x2, y2, val, endp) ((im_extt->f_i_line_aa)((im), (x1), (y1), (x2), (y2), (val), (endp)))
181#define i_arc(im, x, y, rad, d1, d2, val) ((im_extt->f_i_arc)((im), (x), (y), (rad), (d1), (d2), (val)))
182#define i_arc_aa(im, x, y, rad, d1, d2, val) ((im_extt->f_i_arc_aa)((im), (x), (y), (rad), (d1), (d2), (val)))
183#define i_arc_cfill(im, x, y, rad, d1, d2, fill) ((im_extt->f_i_arc_cfill)((im), (x), (y), (rad), (d1), (d2), (fill)))
184#define i_arc_aa_cfill(im, x, y, rad, d1, d2, fill) ((im_extt->f_i_arc_aa_cfill)((im), (x), (y), (rad), (d1), (d2), (fill)))
185#define i_circle_aa(im, x, y, rad, val) ((im_extt->f_i_circle_aa)((im), (x), (y), (rad), (val)))
186#define i_flood_fill(im, seedx, seedy, dcol) ((im_extt->f_i_flood_fill)((im), (seedx), (seedy), (dcol)))
187#define i_flood_cfill(im, seedx, seedy, fill) ((im_extt->f_i_flood_cfill)((im), (seedx), (seedy), (fill)))
3efb0915
TC
188#define i_flood_fill_border(im, seedx, seedy, dcol, border) ((im_extt->f_i_flood_fill_border)((im), (seedx), (seedy), (dcol), (border)))
189#define i_flood_cfill_border(im, seedx, seedy, fill, border) ((im_extt->f_i_flood_cfill_border)((im), (seedx), (seedy), (fill), (border)))
92bda632
TC
190
191#define i_copyto(im, src, x1, y1, x2, y2, tx, ty) \
192 ((im_extt->f_i_copyto)((im), (src), (x1), (y1), (x2), (y2), (tx), (ty)))
193#define i_copyto_trans(im, src, x1, y1, x2, y2, tx, ty, trans) \
194 ((im_extt->f_i_copyto_trans)((im), (src), (x1), (y1), (x2), (y2), (tx), (ty), (trans)))
195#define i_copy(im) ((im_extt->f_i_copy)(im))
196#define i_rubthru(im, src, tx, ty, src_minx, src_miny, src_maxx, src_maxy) \
197 ((im_extt->f_i_rubthru)((im), (src), (tx), (ty), (src_minx), (src_miny), (src_maxx), (src_maxy)))
198
a482206e
TC
199#define im_set_image_file_limits(ctx, max_width, max_height, max_bytes) \
200 ((im_extt->f_im_set_image_file_limits)((max_width), (max_height), (max_bytes)))
201#define im_get_image_file_limits(ctx, pmax_width, pmax_height, pmax_bytes) \
202 ((im_extt->f_im_get_image_file_limits)((ctx), (pmax_width), (pmax_height), (pmax_bytes)))
203#define im_int_check_image_file_limits(ctx, width, height, channels, sample_size) \
204 ((im_extt->f_im_int_check_image_file_limits)((ctx), (width), (height), (channels), (sample_size)))
2b405c9e 205
d5477d3d
TC
206#define i_img_setmask(img, mask) ((im_extt->f_i_img_setmask)((img), (mask)))
207#define i_img_getmask(img) ((im_extt->f_i_img_getmask)(img))
208#define i_img_getchannels(img) ((im_extt->f_i_img_getchannels)(img))
209#define i_img_get_width(img) ((im_extt->f_i_img_get_width)(img))
210#define i_img_get_height(img) ((im_extt->f_i_img_get_height)(img))
211#define i_lhead(file, line) ((im_extt->f_i_lhead)((file), (line)))
212#define i_loog (im_extt->f_i_loog)
213
a482206e
TC
214#define im_img_alloc(ctx) ((im_extt->f_im_img_alloc)(ctx))
215#define im_img_init(ctx, img) ((im_extt->fm_i_img_init)((ctx), (img)))
bd8052a6 216
e5ee047b
TC
217#define i_img_is_monochrome(img, zero_is_white) ((im_extt->f_i_img_is_monochrome)((img), (zero_is_white)))
218
797a9f9c
TC
219#define i_gsamp_bg(im, l, r, y, samples, out_channels, bg) \
220 ((im_extt->f_i_gsamp_bg)((im), (l), (r), (y), (samples), (out_channels), (bg)))
221#define i_gsampf_bg(im, l, r, y, samples, out_channels, bg) \
222 ((im_extt->f_i_gsampf_bg)((im), (l), (r), (y), (samples), (out_channels), (bg)))
223#define i_get_file_background(im, bg) \
224 ((im_extt->f_i_get_file_background)((im), (bg)))
225#define i_get_file_backgroundf(im, bg) \
226 ((im_extt->f_i_get_file_backgroundf)((im), (bg)))
227
718b8c97
TC
228#define i_utf8_advance(p, s) ((im_extt->f_i_utf8_advance)((p), (s)))
229
50c75381
TC
230#define i_render_new(im, width) ((im_extt->f_i_render_new)((im), (width)))
231#define i_render_delete(r) ((im_extt->f_i_render_delete)(r))
232#define i_render_color(r, x, y, width, src, color) \
233 ((im_extt->f_i_render_color)((r), (x), (y), (width), (src), (color)))
234#define i_render_fill(r, x, y, width, src, fill) \
235 ((im_extt->f_i_render_fill)((r), (x), (y), (width), (src), (fill)))
236#define i_render_line(r, x, y, width, src, line, combine) \
237 ((im_extt->f_i_render_line)((r), (x), (y), (width), (src), (line), (combine)))
238#define i_render_linef(r, x, y, width, src, line, combine) \
239 ((im_extt->f_i_render_linef)((r), (x), (y), (width), (src), (line), (combine)))
240
6d5c85a2
TC
241#define i_io_getc_imp (im_extt->f_i_io_getc_imp)
242#define i_io_peekc_imp (im_extt->f_i_io_peekc_imp)
243#define i_io_peekn (im_extt->f_i_io_peekn)
244#define i_io_putc_imp (im_extt->f_i_io_putc_imp)
245#define i_io_read (im_extt->f_i_io_read)
246#define i_io_write (im_extt->f_i_io_write)
247#define i_io_seek (im_extt->f_i_io_seek)
248#define i_io_flush (im_extt->f_i_io_flush)
249#define i_io_close (im_extt->f_i_io_close)
250#define i_io_set_buffered (im_extt->f_i_io_set_buffered)
251#define i_io_gets (im_extt->f_i_io_gets)
252#define io_new_fd(fd) ((im_extt->f_io_new_fd)(fd))
253#define io_new_bufchain() ((im_extt->f_io_new_bufchain)())
254#define io_new_buffer(data, len, closecb, closedata) \
255 ((im_extt->f_io_new_buffer)((data), (len), (closecb), (closedata)))
256#define io_new_cb(p, readcb, writecb, seekcb, closecb, destroycb) \
257 ((im_extt->f_io_new_cb)((p), (readcb), (writecb), (seekcb), (closecb), (destroycb)))
258#define io_slurp(ig, datap) ((im_extt->f_io_slurp)((ig), (datap)))
259#define io_glue_destroy(ig) ((im_extt->f_io_glue_destroy)(ig))
260
8d14daab
TC
261#ifdef IMAGER_LOG
262#define mm_log(x) { i_lhead(__FILE__,__LINE__); i_loog x; }
263#else
264#define mm_log(x)
265#endif
266
92bda632 267#endif