source: libcaca/trunk/caca-php/php_caca.c @ 3134

Last change on this file since 3134 was 3134, checked in by nico, 11 years ago
  • Add php binding for function "caca_set_dither_palette"
File size: 55.5 KB
Line 
1/*
2 *  php-caca      Php binding for Libcaca
3 *  Copyright (c) 2008 Vion Nicolas <nico@picapo.net>
4 *
5 *
6 *  This library is free software. It comes without any warranty, to
7 *  the extent permitted by applicable law. You can redistribute it
8 *  and/or modify it under the terms of the Do What The Fuck You Want
9 *  To Public License, Version 2, as published by Sam Hocevar. See
10 *  http://sam.zoy.org/wtfpl/COPYING for more details.
11 */
12
13#ifdef HAVE_CONFIG_H
14#include "config.h"
15#endif
16
17#include "php.h"
18#include "php_caca.h"
19#include <gd.h>
20
21static function_entry caca_functions[] = {
22        PHP_FE(caca_create_event, NULL)
23        PHP_FE(caca_create_canvas, NULL)
24        PHP_FE(caca_set_canvas_size, NULL)
25        PHP_FE(caca_get_canvas_width, NULL)
26        PHP_FE(caca_get_canvas_height, NULL)
27        PHP_FE(caca_get_canvas_chars, NULL)
28        PHP_FE(caca_get_canvas_attrs, NULL)
29        PHP_FE(caca_rand, NULL)
30        PHP_FE(caca_get_version, NULL)
31        PHP_FE(caca_gotoxy, NULL)
32        PHP_FE(caca_get_cursor_x, NULL)
33        PHP_FE(caca_get_cursor_y, NULL)
34        PHP_FE(caca_put_char, NULL)
35        PHP_FE(caca_get_char, NULL)
36        PHP_FE(caca_put_str, NULL)
37        PHP_FE(caca_clear_canvas, NULL)
38        PHP_FE(caca_set_canvas_handle, NULL)
39        PHP_FE(caca_get_canvas_handle_x, NULL)
40        PHP_FE(caca_get_canvas_handle_y, NULL)
41        PHP_FE(caca_blit, NULL)
42        PHP_FE(caca_set_canvas_boundaries, NULL)
43        PHP_FE(caca_invert, NULL)
44        PHP_FE(caca_flip, NULL)
45        PHP_FE(caca_flop, NULL)
46        PHP_FE(caca_rotate_180, NULL)
47        PHP_FE(caca_rotate_left, NULL)
48        PHP_FE(caca_rotate_right, NULL)
49        PHP_FE(caca_stretch_left, NULL)
50        PHP_FE(caca_stretch_right, NULL)
51        PHP_FE(caca_get_attr, NULL)
52        PHP_FE(caca_set_attr, NULL)
53        PHP_FE(caca_put_attr, NULL)
54        PHP_FE(caca_set_color_ansi, NULL)
55        PHP_FE(caca_set_color_argb, NULL)
56        PHP_FE(caca_attr_to_ansi, NULL)
57        PHP_FE(caca_attr_to_ansi_fg, NULL)
58        PHP_FE(caca_attr_to_ansi_bg, NULL)
59        PHP_FE(caca_attr_to_rgb12_fg, NULL)
60        PHP_FE(caca_attr_to_rgb12_bg, NULL)
61        PHP_FE(caca_attr_to_argb64, NULL)
62        PHP_FE(caca_utf8_to_utf32, NULL)
63        PHP_FE(caca_utf32_to_utf8, NULL)
64        PHP_FE(caca_utf32_to_cp437, NULL)
65        PHP_FE(caca_cp437_to_utf32, NULL)
66        PHP_FE(caca_utf32_to_ascii, NULL)
67        PHP_FE(caca_utf32_is_fullwidth, NULL)
68        PHP_FE(caca_draw_line, NULL)
69        PHP_FE(caca_draw_polyline, NULL)
70        PHP_FE(caca_draw_thin_line, NULL)
71        PHP_FE(caca_draw_thin_polyline, NULL)
72        PHP_FE(caca_draw_circle, NULL)
73        PHP_FE(caca_draw_ellipse, NULL)
74        PHP_FE(caca_draw_thin_ellipse, NULL)
75        PHP_FE(caca_fill_ellipse, NULL)
76        PHP_FE(caca_draw_box, NULL)
77        PHP_FE(caca_draw_thin_box, NULL)
78        PHP_FE(caca_draw_cp437_box, NULL)
79        PHP_FE(caca_fill_box, NULL)
80        PHP_FE(caca_draw_triangle, NULL)
81        PHP_FE(caca_draw_thin_triangle, NULL)
82        PHP_FE(caca_fill_triangle, NULL)
83        PHP_FE(caca_get_frame_count, NULL)
84        PHP_FE(caca_set_frame, NULL)
85        PHP_FE(caca_set_frame_name, NULL)
86        PHP_FE(caca_create_frame, NULL)
87        PHP_FE(caca_free_frame, NULL)
88        PHP_FE(caca_create_dither, NULL)
89        PHP_FE(caca_create_dither_gd, NULL)
90        PHP_FE(caca_set_dither_palette, NULL)
91        PHP_FE(caca_set_dither_brightness, NULL)
92        PHP_FE(caca_get_dither_brightness, NULL)
93        PHP_FE(caca_set_dither_gamma, NULL)
94        PHP_FE(caca_get_dither_gamma, NULL)
95        PHP_FE(caca_set_dither_contrast, NULL)
96        PHP_FE(caca_get_dither_contrast, NULL)
97        PHP_FE(caca_set_dither_antialias, NULL)
98        PHP_FE(caca_get_dither_antialias_list, NULL)
99        PHP_FE(caca_get_dither_antialias, NULL)
100        PHP_FE(caca_set_dither_color, NULL)
101        PHP_FE(caca_get_dither_color_list, NULL)
102        PHP_FE(caca_get_dither_color, NULL)
103        PHP_FE(caca_set_dither_charset, NULL)
104        PHP_FE(caca_get_dither_charset_list, NULL)
105        PHP_FE(caca_get_dither_charset, NULL)
106        PHP_FE(caca_set_dither_algorithm, NULL)
107        PHP_FE(caca_get_dither_algorithm_list, NULL)
108        PHP_FE(caca_get_dither_algorithm, NULL)
109        PHP_FE(caca_dither_bitmap_gd, NULL)
110        PHP_FE(caca_load_font, NULL)
111        PHP_FE(caca_get_font_list, NULL)
112        PHP_FE(caca_get_font_width, NULL)
113        PHP_FE(caca_get_font_height, NULL)
114        PHP_FE(caca_get_font_blocks, NULL)
115        PHP_FE(caca_render_canvas, NULL)
116        PHP_FE(caca_canvas_set_figfont, NULL)
117        PHP_FE(caca_put_figchar, NULL)
118        PHP_FE(caca_flush_figlet, NULL)
119        PHP_FE(caca_file_open, NULL)
120        PHP_FE(caca_file_close, NULL)
121        PHP_FE(caca_file_tell, NULL)
122        PHP_FE(caca_file_read, NULL)
123        PHP_FE(caca_file_write, NULL)
124        PHP_FE(caca_file_gets, NULL)
125        PHP_FE(caca_file_eof, NULL)
126        PHP_FE(caca_import_string, NULL)
127        PHP_FE(caca_import_file, NULL)
128        PHP_FE(caca_get_import_list, NULL)
129        PHP_FE(caca_export_string, NULL)
130        PHP_FE(caca_get_export_list, NULL)
131        PHP_FE(caca_create_display, NULL)
132        PHP_FE(caca_create_display_with_driver, NULL)
133        PHP_FE(caca_get_display_driver_list, NULL)
134        PHP_FE(caca_get_display_driver, NULL)
135        PHP_FE(caca_set_display_driver, NULL)
136        PHP_FE(caca_get_canvas, NULL)
137        PHP_FE(caca_refresh_display, NULL)
138        PHP_FE(caca_set_display_time, NULL)
139        PHP_FE(caca_get_display_time, NULL)
140        PHP_FE(caca_get_display_width, NULL)
141        PHP_FE(caca_get_display_height, NULL)
142        PHP_FE(caca_set_display_title, NULL)
143        PHP_FE(caca_set_mouse, NULL)
144        PHP_FE(caca_set_cursor, NULL)
145        PHP_FE(caca_get_event, NULL)
146        PHP_FE(caca_get_mouse_x, NULL)
147        PHP_FE(caca_get_mouse_y, NULL)
148        PHP_FE(caca_get_event_type, NULL)
149        PHP_FE(caca_get_event_key_ch, NULL)
150        PHP_FE(caca_get_event_mouse_button, NULL)
151        PHP_FE(caca_get_event_mouse_x, NULL)
152        PHP_FE(caca_get_event_mouse_y, NULL)
153        PHP_FE(caca_get_event_resize_width, NULL)
154        PHP_FE(caca_get_event_resize_height, NULL)
155
156        {NULL, NULL, NULL}
157};
158
159zend_module_entry caca_module_entry = {
160#if ZEND_MODULE_API_NO >= 20010901
161        STANDARD_MODULE_HEADER,
162#endif
163        PHP_CACA_EXTNAME,
164        caca_functions,
165        PHP_MINIT(caca),
166        NULL,
167        NULL,
168        NULL,
169        PHP_MINFO(caca),
170#if ZEND_MODULE_API_NO >= 20010901
171        PHP_CACA_VERSION,
172#endif
173        STANDARD_MODULE_PROPERTIES
174};
175
176#ifdef COMPILE_DL_CACA
177ZEND_GET_MODULE(caca)
178#endif
179
180PHP_MINFO_FUNCTION(caca) {
181        php_info_print_table_start();
182        php_info_print_table_row(2, "Caca library version", caca_get_version());
183        php_info_print_table_end();
184}
185
186//-------- Caca's ressources destructors -----------//
187
188static void php_caca_canvas_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
189        caca_free_canvas(rsrc->ptr);
190}
191
192static void php_caca_dither_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
193        caca_free_dither(rsrc->ptr);
194}
195
196static void php_caca_font_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
197        caca_free_font(rsrc->ptr);
198}
199
200static void php_caca_file_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
201}
202
203static void php_caca_display_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
204        caca_free_display(rsrc->ptr);
205}
206
207static void php_caca_event_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
208        efree((caca_event_t *) rsrc->ptr);
209}
210
211//-------- Initialization ---------//
212
213PHP_MINIT_FUNCTION(caca) {
214
215        le_caca_canvas = zend_register_list_destructors_ex(php_caca_canvas_dtor, NULL, PHP_CACA_CANVAS_RES_NAME, module_number);
216        le_caca_dither = zend_register_list_destructors_ex(php_caca_dither_dtor, NULL, PHP_CACA_DITHER_RES_NAME, module_number);
217        le_caca_font = zend_register_list_destructors_ex(php_caca_font_dtor, NULL, PHP_CACA_FONT_RES_NAME, module_number);
218        le_caca_file = zend_register_list_destructors_ex(php_caca_file_dtor, NULL, PHP_CACA_FILE_RES_NAME, module_number);
219        le_caca_display = zend_register_list_destructors_ex(php_caca_display_dtor, NULL, PHP_CACA_DISPLAY_RES_NAME, module_number);
220        le_caca_event = zend_register_list_destructors_ex(php_caca_event_dtor, NULL, PHP_CACA_EVENT_RES_NAME, module_number);
221       
222        REGISTER_LONG_CONSTANT("CACA_BLACK", CACA_BLACK, CONST_CS | CONST_PERSISTENT);
223        REGISTER_LONG_CONSTANT("CACA_BLUE", CACA_BLUE, CONST_CS | CONST_PERSISTENT);
224        REGISTER_LONG_CONSTANT("CACA_GREEN", CACA_GREEN, CONST_CS | CONST_PERSISTENT);
225        REGISTER_LONG_CONSTANT("CACA_CYAN", CACA_CYAN, CONST_CS | CONST_PERSISTENT);
226        REGISTER_LONG_CONSTANT("CACA_RED", CACA_RED, CONST_CS | CONST_PERSISTENT);
227        REGISTER_LONG_CONSTANT("CACA_MAGENTA", CACA_MAGENTA, CONST_CS | CONST_PERSISTENT);
228        REGISTER_LONG_CONSTANT("CACA_BROWN", CACA_BROWN, CONST_CS | CONST_PERSISTENT);
229        REGISTER_LONG_CONSTANT("CACA_LIGHTGRAY", CACA_LIGHTGRAY, CONST_CS | CONST_PERSISTENT);
230        REGISTER_LONG_CONSTANT("CACA_DARKGRAY", CACA_DARKGRAY, CONST_CS | CONST_PERSISTENT);
231        REGISTER_LONG_CONSTANT("CACA_LIGHTBLUE", CACA_LIGHTBLUE, CONST_CS | CONST_PERSISTENT);
232        REGISTER_LONG_CONSTANT("CACA_LIGHTGREEN", CACA_LIGHTGREEN, CONST_CS | CONST_PERSISTENT);
233        REGISTER_LONG_CONSTANT("CACA_LIGHTCYAN", CACA_LIGHTCYAN, CONST_CS | CONST_PERSISTENT);
234        REGISTER_LONG_CONSTANT("CACA_LIGHTRED", CACA_LIGHTRED, CONST_CS | CONST_PERSISTENT);
235        REGISTER_LONG_CONSTANT("CACA_LIGHTMAGENTA", CACA_LIGHTMAGENTA, CONST_CS | CONST_PERSISTENT);
236        REGISTER_LONG_CONSTANT("CACA_YELLOW", CACA_YELLOW, CONST_CS | CONST_PERSISTENT);
237        REGISTER_LONG_CONSTANT("CACA_WHITE", CACA_WHITE, CONST_CS | CONST_PERSISTENT);
238        REGISTER_LONG_CONSTANT("CACA_DEFAULT", CACA_DEFAULT, CONST_CS | CONST_PERSISTENT);
239        REGISTER_LONG_CONSTANT("CACA_TRANSPARENT", CACA_TRANSPARENT, CONST_CS | CONST_PERSISTENT);
240        REGISTER_LONG_CONSTANT("CACA_BOLD", CACA_BOLD, CONST_CS | CONST_PERSISTENT);
241        REGISTER_LONG_CONSTANT("CACA_ITALICS", CACA_ITALICS, CONST_CS | CONST_PERSISTENT);
242        REGISTER_LONG_CONSTANT("CACA_UNDERLINE", CACA_UNDERLINE, CONST_CS | CONST_PERSISTENT);
243        REGISTER_LONG_CONSTANT("CACA_BLINK", CACA_BLINK, CONST_CS | CONST_PERSISTENT);
244
245        REGISTER_LONG_CONSTANT("CACA_EVENT_NONE", CACA_EVENT_NONE, CONST_CS | CONST_PERSISTENT);
246        REGISTER_LONG_CONSTANT("CACA_EVENT_KEY_PRESS", CACA_EVENT_KEY_PRESS, CONST_CS | CONST_PERSISTENT);
247        REGISTER_LONG_CONSTANT("CACA_EVENT_KEY_RELEASE", CACA_EVENT_KEY_RELEASE, CONST_CS | CONST_PERSISTENT);
248        REGISTER_LONG_CONSTANT("CACA_EVENT_MOUSE_PRESS", CACA_EVENT_MOUSE_PRESS, CONST_CS | CONST_PERSISTENT);
249        REGISTER_LONG_CONSTANT("CACA_EVENT_MOUSE_RELEASE", CACA_EVENT_MOUSE_RELEASE, CONST_CS | CONST_PERSISTENT);
250        REGISTER_LONG_CONSTANT("CACA_EVENT_MOUSE_MOTION", CACA_EVENT_MOUSE_MOTION, CONST_CS | CONST_PERSISTENT);
251        REGISTER_LONG_CONSTANT("CACA_EVENT_RESIZE", CACA_EVENT_RESIZE, CONST_CS | CONST_PERSISTENT);
252        REGISTER_LONG_CONSTANT("CACA_EVENT_QUIT", CACA_EVENT_QUIT, CONST_CS | CONST_PERSISTENT);
253        REGISTER_LONG_CONSTANT("CACA_EVENT_ANY", CACA_EVENT_ANY, CONST_CS | CONST_PERSISTENT);
254
255        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_A", CACA_KEY_CTRL_A, CONST_CS | CONST_PERSISTENT);
256        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_B", CACA_KEY_CTRL_B, CONST_CS | CONST_PERSISTENT);
257        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_C", CACA_KEY_CTRL_C, CONST_CS | CONST_PERSISTENT);
258        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_D", CACA_KEY_CTRL_D, CONST_CS | CONST_PERSISTENT);
259        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_E", CACA_KEY_CTRL_E, CONST_CS | CONST_PERSISTENT);
260        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_F", CACA_KEY_CTRL_F, CONST_CS | CONST_PERSISTENT);
261        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_G", CACA_KEY_CTRL_G, CONST_CS | CONST_PERSISTENT);
262        REGISTER_LONG_CONSTANT("CACA_KEY_BACKSPACE", CACA_KEY_BACKSPACE, CONST_CS | CONST_PERSISTENT);
263        REGISTER_LONG_CONSTANT("CACA_KEY_TAB", CACA_KEY_TAB, CONST_CS | CONST_PERSISTENT);
264        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_J", CACA_KEY_CTRL_J, CONST_CS | CONST_PERSISTENT);
265        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_K", CACA_KEY_CTRL_K, CONST_CS | CONST_PERSISTENT);
266        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_L", CACA_KEY_CTRL_L, CONST_CS | CONST_PERSISTENT);
267        REGISTER_LONG_CONSTANT("CACA_KEY_RETURN", CACA_KEY_RETURN, CONST_CS | CONST_PERSISTENT);
268        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_N", CACA_KEY_CTRL_N, CONST_CS | CONST_PERSISTENT);
269        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_O", CACA_KEY_CTRL_O, CONST_CS | CONST_PERSISTENT);
270        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_P", CACA_KEY_CTRL_P, CONST_CS | CONST_PERSISTENT);
271        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_Q", CACA_KEY_CTRL_Q, CONST_CS | CONST_PERSISTENT);
272        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_R", CACA_KEY_CTRL_R, CONST_CS | CONST_PERSISTENT);
273        REGISTER_LONG_CONSTANT("CACA_KEY_PAUSE", CACA_KEY_PAUSE, CONST_CS | CONST_PERSISTENT);
274        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_T", CACA_KEY_CTRL_T, CONST_CS | CONST_PERSISTENT);
275        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_U", CACA_KEY_CTRL_U, CONST_CS | CONST_PERSISTENT);
276        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_V", CACA_KEY_CTRL_V, CONST_CS | CONST_PERSISTENT);
277        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_W", CACA_KEY_CTRL_W, CONST_CS | CONST_PERSISTENT);
278        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_X", CACA_KEY_CTRL_X, CONST_CS | CONST_PERSISTENT);
279        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_Y", CACA_KEY_CTRL_Y, CONST_CS | CONST_PERSISTENT);
280        REGISTER_LONG_CONSTANT("CACA_KEY_CTRL_Z", CACA_KEY_CTRL_Z, CONST_CS | CONST_PERSISTENT);
281        REGISTER_LONG_CONSTANT("CACA_KEY_ESCAPE", CACA_KEY_ESCAPE, CONST_CS | CONST_PERSISTENT);
282        REGISTER_LONG_CONSTANT("CACA_KEY_DELETE", CACA_KEY_DELETE, CONST_CS | CONST_PERSISTENT);
283        REGISTER_LONG_CONSTANT("CACA_KEY_UP", CACA_KEY_UP, CONST_CS | CONST_PERSISTENT);
284        REGISTER_LONG_CONSTANT("CACA_KEY_DOWN", CACA_KEY_DOWN, CONST_CS | CONST_PERSISTENT);
285        REGISTER_LONG_CONSTANT("CACA_KEY_LEFT", CACA_KEY_LEFT, CONST_CS | CONST_PERSISTENT);
286        REGISTER_LONG_CONSTANT("CACA_KEY_RIGHT", CACA_KEY_RIGHT, CONST_CS | CONST_PERSISTENT);
287        REGISTER_LONG_CONSTANT("CACA_KEY_INSERT", CACA_KEY_INSERT, CONST_CS | CONST_PERSISTENT);
288        REGISTER_LONG_CONSTANT("CACA_KEY_HOME", CACA_KEY_HOME, CONST_CS | CONST_PERSISTENT);
289        REGISTER_LONG_CONSTANT("CACA_KEY_END", CACA_KEY_END, CONST_CS | CONST_PERSISTENT);
290        REGISTER_LONG_CONSTANT("CACA_KEY_PAGEUP", CACA_KEY_PAGEUP, CONST_CS | CONST_PERSISTENT);
291        REGISTER_LONG_CONSTANT("CACA_KEY_PAGEDOWN", CACA_KEY_PAGEDOWN, CONST_CS | CONST_PERSISTENT);
292        REGISTER_LONG_CONSTANT("CACA_KEY_F1", CACA_KEY_F1, CONST_CS | CONST_PERSISTENT);
293        REGISTER_LONG_CONSTANT("CACA_KEY_F2", CACA_KEY_F2, CONST_CS | CONST_PERSISTENT);
294        REGISTER_LONG_CONSTANT("CACA_KEY_F3", CACA_KEY_F3, CONST_CS | CONST_PERSISTENT);
295        REGISTER_LONG_CONSTANT("CACA_KEY_F4", CACA_KEY_F4, CONST_CS | CONST_PERSISTENT);
296        REGISTER_LONG_CONSTANT("CACA_KEY_F5", CACA_KEY_F5, CONST_CS | CONST_PERSISTENT);
297        REGISTER_LONG_CONSTANT("CACA_KEY_F6", CACA_KEY_F6, CONST_CS | CONST_PERSISTENT);
298        REGISTER_LONG_CONSTANT("CACA_KEY_F7", CACA_KEY_F7, CONST_CS | CONST_PERSISTENT);
299        REGISTER_LONG_CONSTANT("CACA_KEY_F8", CACA_KEY_F8, CONST_CS | CONST_PERSISTENT);
300        REGISTER_LONG_CONSTANT("CACA_KEY_F9", CACA_KEY_F9, CONST_CS | CONST_PERSISTENT);
301        REGISTER_LONG_CONSTANT("CACA_KEY_F10", CACA_KEY_F10, CONST_CS | CONST_PERSISTENT);
302        REGISTER_LONG_CONSTANT("CACA_KEY_F11", CACA_KEY_F11, CONST_CS | CONST_PERSISTENT);
303        REGISTER_LONG_CONSTANT("CACA_KEY_F12", CACA_KEY_F12, CONST_CS | CONST_PERSISTENT);
304        REGISTER_LONG_CONSTANT("CACA_KEY_F13", CACA_KEY_F13, CONST_CS | CONST_PERSISTENT);
305        REGISTER_LONG_CONSTANT("CACA_KEY_F14", CACA_KEY_F14, CONST_CS | CONST_PERSISTENT);
306        REGISTER_LONG_CONSTANT("CACA_KEY_F15", CACA_KEY_F15, CONST_CS | CONST_PERSISTENT);
307
308        return SUCCESS;
309}
310
311//---------- Some usefull macros ---------------//
312
313#define FETCH_CANVAS(canvas) \
314        zval *_zval; \
315        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) { \
316                RETURN_FALSE; \
317        } \
318        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
319
320#define FETCH_DISPLAY(display) \
321        zval *_zval; \
322        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) { \
323                RETURN_FALSE; \
324        } \
325        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
326
327#define FETCH_EVENT(event) \
328        zval *_zval; \
329        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) { \
330                RETURN_FALSE; \
331        } \
332        ZEND_FETCH_RESOURCE(event, caca_event_t*, &_zval, -1, PHP_CACA_EVENT_RES_NAME, le_caca_event);
333
334#define FETCH_LONG(l) \
335        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &l) == FAILURE) { \
336                RETURN_FALSE; \
337        }
338
339#define RETURN_CHAR(c) \
340        char *str = emalloc(2); \
341        str[0] = c; \
342        str[1] = '\0'; \
343        RETURN_STRING(str, 0);
344
345#define RETURN_SUCCESS(i) \
346        RETURN_BOOL((i) == 0);
347
348//---------- Some usefull functions --------------------//
349
350//Fetch external php resources such as gd resouces
351
352void *fetch_external_resource(zval *_zval, char const *type_name) {
353        int resource_id = _zval->value.lval;
354        int resource_type;
355        void *result = zend_list_find(resource_id, &resource_type);
356        if (!result)
357                return NULL;
358        char *resource_type_name = zend_rsrc_list_get_rsrc_type(resource_id);
359        return (strcmp(resource_type_name, type_name) == 0) ? result : NULL;
360}
361
362//Fetch buffer of pixels from gdImage
363
364void *gd_get_pixels(gdImage *img) {
365        if (!img->trueColor)
366                return NULL;
367
368        int line_size = img->sx * sizeof(int);
369        void *result = malloc(img->sy * line_size);
370        int j;         
371        for (j = 0; j < img->sy; j++)
372                memcpy(result + (j * line_size), (const void *) img->tpixels[j], line_size);
373        return result;
374}
375
376//------- PHP Binding's specific functions ----------//
377
378//TODO: register new resources in caca_get_event and remove caca_create_event
379PHP_FUNCTION(caca_create_event) {
380        caca_event_t *event;
381        event = emalloc(sizeof(caca_event_t));
382        if (!event) {
383                RETURN_FALSE;
384        }
385        ZEND_REGISTER_RESOURCE(return_value, event, le_caca_event);
386}
387
388//------- Caca's functions ----------------//
389
390PHP_FUNCTION(caca_create_canvas) {
391        long width, height = 0;
392        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &width, &height) == FAILURE) {
393                RETURN_FALSE;
394        }
395        caca_canvas_t *canvas = caca_create_canvas(width, height);
396        if (!canvas) {
397                RETURN_FALSE;
398        }
399        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
400}
401
402PHP_FUNCTION(caca_set_canvas_size) {
403        zval *_zval;
404        long width, height = 0;
405        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &width, &height) == FAILURE) {
406                RETURN_FALSE;
407        }
408        caca_canvas_t *canvas;
409        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
410        RETURN_SUCCESS(caca_set_canvas_size(canvas, width, height));
411}
412
413PHP_FUNCTION(caca_get_canvas_width) {
414        caca_canvas_t *canvas;
415        FETCH_CANVAS(canvas);
416        RETURN_LONG(caca_get_canvas_width(canvas));
417}
418
419PHP_FUNCTION(caca_get_canvas_height) {
420        caca_canvas_t *canvas;
421        FETCH_CANVAS(canvas);
422        RETURN_LONG(caca_get_canvas_height(canvas));
423}
424
425PHP_FUNCTION(caca_get_canvas_chars) {
426        caca_canvas_t *canvas;
427        FETCH_CANVAS(canvas);
428        RETURN_STRING((char *) caca_get_canvas_chars(canvas), 1);
429}
430
431PHP_FUNCTION(caca_get_canvas_attrs) {
432        caca_canvas_t *canvas;
433        FETCH_CANVAS(canvas);
434        RETURN_STRING((char *) caca_get_canvas_attrs(canvas), 1);
435}
436
437PHP_FUNCTION(caca_rand) {
438        long min, max = 0;
439        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &min, &max) == FAILURE) {
440                RETURN_FALSE;
441        }
442        RETURN_LONG(caca_rand(min, max));
443}
444
445PHP_FUNCTION(caca_get_version) {
446        RETURN_STRING((char *) caca_get_version(), 1);
447}
448
449PHP_FUNCTION(caca_gotoxy) {
450        zval *_zval;
451        long x, y = 0;
452        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
453                RETURN_FALSE;
454        }
455        caca_canvas_t *canvas;
456        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
457        RETURN_SUCCESS(caca_gotoxy(canvas, x, y));
458}
459
460PHP_FUNCTION(caca_get_cursor_x) {
461        caca_canvas_t *canvas;
462        FETCH_CANVAS(canvas);
463        RETURN_LONG(caca_get_cursor_x(canvas));
464}
465
466PHP_FUNCTION(caca_get_cursor_y) {
467        caca_canvas_t *canvas;
468        FETCH_CANVAS(canvas);
469        RETURN_LONG(caca_get_cursor_y(canvas));
470}
471
472PHP_FUNCTION(caca_put_char) {
473        zval *_zval;
474        long x, y, c;
475        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &c) == FAILURE) {
476                RETURN_FALSE;
477        }
478        caca_canvas_t *canvas;
479        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
480        RETURN_SUCCESS(caca_put_char(canvas, x, y, c));
481}
482
483PHP_FUNCTION(caca_get_char) {
484        zval *_zval;
485        long x, y = 0;
486        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
487                RETURN_FALSE;
488        }
489        caca_canvas_t *canvas;
490        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
491        RETURN_CHAR(caca_get_char(canvas, x, y));
492}
493
494PHP_FUNCTION(caca_put_str) {
495        zval *_zval;
496        char *str;
497        long x, y, str_len = 0;
498        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlls", &_zval, &x, &y, &str, &str_len) == FAILURE) {
499                RETURN_FALSE;
500        }
501        caca_canvas_t *canvas;
502        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
503        RETURN_SUCCESS(caca_put_str(canvas, x, y, str));
504}
505
506PHP_FUNCTION(caca_clear_canvas) {
507        caca_canvas_t *canvas;
508        FETCH_CANVAS(canvas);
509        RETURN_LONG(caca_clear_canvas(canvas));
510}
511
512PHP_FUNCTION(caca_set_canvas_handle) {
513        zval *_zval;
514        long x, y = 0;
515        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
516                RETURN_FALSE;
517        }
518        caca_canvas_t *canvas;
519        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
520        RETURN_SUCCESS(caca_set_canvas_handle(canvas, x, y));
521}
522
523PHP_FUNCTION(caca_get_canvas_handle_x) {
524        caca_canvas_t *canvas;
525        FETCH_CANVAS(canvas);
526        RETURN_LONG(caca_get_canvas_handle_x(canvas));
527}
528
529PHP_FUNCTION(caca_get_canvas_handle_y) {
530        caca_canvas_t *canvas;
531        FETCH_CANVAS(canvas);
532        RETURN_LONG(caca_get_canvas_handle_y(canvas));
533}
534
535PHP_FUNCTION(caca_blit) {
536        zval *_zval1, *_zval2, *_zval3 = NULL;
537        long x, y = 0;
538        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllr|r", &_zval1, &x, &y, &_zval2, &_zval3) == FAILURE) {
539                RETURN_FALSE;
540        }
541        caca_canvas_t *dst, *src, *mask = NULL;
542        ZEND_FETCH_RESOURCE(dst, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
543        ZEND_FETCH_RESOURCE(src, caca_canvas_t*, &_zval2, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
544        if (_zval3) {
545                ZEND_FETCH_RESOURCE(mask, caca_canvas_t*, &_zval3, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
546        }
547        RETURN_SUCCESS(caca_blit(dst, x, y, src, NULL));
548}
549
550PHP_FUNCTION(caca_set_canvas_boundaries) {
551        zval *_zval;
552        long x, y, width, height = 0;
553        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &width, &height) == FAILURE) {
554                RETURN_FALSE;
555        }
556        caca_canvas_t *canvas;
557        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
558        RETURN_SUCCESS(caca_set_canvas_boundaries(canvas, x, y, width, height));
559}
560
561PHP_FUNCTION(caca_invert) {
562        caca_canvas_t *canvas;
563        FETCH_CANVAS(canvas);
564        RETURN_SUCCESS(caca_invert(canvas));
565}
566
567PHP_FUNCTION(caca_flip) {
568        caca_canvas_t *canvas;
569        FETCH_CANVAS(canvas);
570        RETURN_SUCCESS(caca_flip(canvas));
571}
572
573PHP_FUNCTION(caca_flop) {
574        caca_canvas_t *canvas;
575        FETCH_CANVAS(canvas);
576        RETURN_SUCCESS(caca_flop(canvas));
577}
578
579PHP_FUNCTION(caca_rotate_180) {
580        caca_canvas_t *canvas;
581        FETCH_CANVAS(canvas);
582        RETURN_SUCCESS(caca_rotate_180(canvas));
583}
584
585PHP_FUNCTION(caca_rotate_left) {
586        caca_canvas_t *canvas;
587        FETCH_CANVAS(canvas);
588        RETURN_SUCCESS(caca_rotate_left(canvas));
589}
590
591PHP_FUNCTION(caca_rotate_right) {
592        caca_canvas_t *canvas;
593        FETCH_CANVAS(canvas);
594        RETURN_SUCCESS(caca_rotate_right(canvas));
595}
596
597PHP_FUNCTION(caca_stretch_left) {
598        caca_canvas_t *canvas;
599        FETCH_CANVAS(canvas);
600        RETURN_SUCCESS(caca_stretch_left(canvas));
601}
602
603PHP_FUNCTION(caca_stretch_right) {
604        caca_canvas_t *canvas;
605        FETCH_CANVAS(canvas);
606        RETURN_SUCCESS(caca_stretch_right(canvas));
607}
608
609PHP_FUNCTION(caca_get_attr) {
610        zval *_zval;
611        long x, y = 0;
612        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
613                RETURN_FALSE;
614        }
615        caca_canvas_t *canvas;
616        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
617        RETURN_LONG(caca_get_attr(canvas, x, y));
618}
619
620PHP_FUNCTION(caca_set_attr) {
621        zval *_zval;
622        long attr = 0;
623        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &attr) == FAILURE) {
624                RETURN_FALSE;
625        }
626        caca_canvas_t *canvas;
627        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
628        RETURN_SUCCESS(caca_set_attr(canvas, attr));
629}
630
631PHP_FUNCTION(caca_put_attr) {
632        zval *_zval;
633        long x, y, attr = 0;
634        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &attr) == FAILURE) {
635                RETURN_FALSE;
636        }
637        caca_canvas_t *canvas;
638        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
639        RETURN_SUCCESS(caca_put_attr(canvas, x, y, attr));
640}
641
642PHP_FUNCTION(caca_set_color_ansi) {
643        zval *_zval;
644        long foreground, background = 0;
645        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
646                RETURN_FALSE;
647        }
648        caca_canvas_t *canvas;
649        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
650        RETURN_SUCCESS(caca_set_color_ansi(canvas, foreground, background));
651}
652
653PHP_FUNCTION(caca_set_color_argb) {
654        zval *_zval;
655        long foreground, background = 0;
656        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
657                RETURN_FALSE;
658        }
659        caca_canvas_t *canvas;
660        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
661        RETURN_SUCCESS(caca_set_color_argb(canvas, foreground, background));
662}
663
664PHP_FUNCTION(caca_attr_to_ansi) {
665        long l;
666        FETCH_LONG(l);
667        RETURN_LONG(caca_attr_to_ansi(l));
668}
669
670PHP_FUNCTION(caca_attr_to_ansi_fg) {
671        long l;
672        FETCH_LONG(l);
673        RETURN_LONG(caca_attr_to_ansi_fg(l));
674}
675
676PHP_FUNCTION(caca_attr_to_ansi_bg) {
677        long l;
678        FETCH_LONG(l);
679        RETURN_LONG(caca_attr_to_ansi_bg(l));
680}
681
682PHP_FUNCTION(caca_attr_to_rgb12_fg) {
683        long l;
684        FETCH_LONG(l);
685        RETURN_LONG(caca_attr_to_rgb12_fg(l));
686}
687
688PHP_FUNCTION(caca_attr_to_rgb12_bg) {
689        long l;
690        FETCH_LONG(l);
691        RETURN_LONG(caca_attr_to_rgb12_bg(l));
692}
693
694PHP_FUNCTION(caca_attr_to_argb64) {
695}
696
697PHP_FUNCTION(caca_utf8_to_utf32) {
698}
699
700PHP_FUNCTION(caca_utf32_to_utf8) {
701}
702
703PHP_FUNCTION(caca_utf32_to_cp437) {
704}
705
706PHP_FUNCTION(caca_cp437_to_utf32) {
707}
708
709PHP_FUNCTION(caca_utf32_to_ascii) {
710}
711
712PHP_FUNCTION(caca_utf32_is_fullwidth) {
713}
714
715PHP_FUNCTION(caca_draw_line) {
716        zval *_zval;
717        long xa, ya, xb, yb, c;
718        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
719                RETURN_FALSE;
720        }
721        caca_canvas_t *canvas;
722        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
723        RETURN_SUCCESS(caca_draw_line(canvas, xa, ya, xb, yb, c));
724}
725
726PHP_FUNCTION(caca_draw_polyline) {
727        zval *zval_res, *zval_arr;
728        long c;
729
730        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ral", &zval_res, &zval_arr, &c) == FAILURE) {
731                RETURN_FALSE;
732        }
733
734        caca_canvas_t *canvas;
735        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
736
737        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
738        int lenmax = zend_hash_num_elements(arr_hash);
739        int *tbl_x, *tbl_y;
740        int tbl_count = 0;
741        tbl_x = malloc(sizeof(int) * lenmax);
742        tbl_y = malloc(sizeof(int) * lenmax);
743       
744        HashPosition pos;
745        zval **pt, **x, **y;
746        for (
747                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
748                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
749                zend_hash_move_forward_ex(arr_hash, &pos)
750        ) {
751                if (
752                        Z_TYPE_P(*pt) == IS_ARRAY
753                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
754                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
755                ) {
756                        convert_to_long_ex(x);
757                        convert_to_long_ex(y);
758                        tbl_x[tbl_count] = Z_LVAL_PP(x);
759                        tbl_y[tbl_count] = Z_LVAL_PP(y);
760                        tbl_count++;
761                }
762        }
763        int res = caca_draw_polyline(canvas, tbl_x, tbl_y, tbl_count - 1, c);
764        free(tbl_x);
765        free(tbl_y);
766        RETURN_SUCCESS(res);
767}
768
769PHP_FUNCTION(caca_draw_thin_line) {
770        zval *_zval;
771        long xa, ya, xb, yb = 0;
772        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
773                RETURN_FALSE;
774        }
775        caca_canvas_t *canvas;
776        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
777        RETURN_SUCCESS(caca_draw_thin_line(canvas, xa, ya, xb, yb));
778}
779
780PHP_FUNCTION(caca_draw_thin_polyline) {
781        zval *zval_res, *zval_arr;
782        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &zval_arr) == FAILURE) {
783                RETURN_FALSE;
784        }
785
786        caca_canvas_t *canvas;
787        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
788
789        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
790        int lenmax = zend_hash_num_elements(arr_hash);
791        int *tbl_x, *tbl_y;
792        int tbl_count = 0;
793        tbl_x = malloc(sizeof(int) * lenmax);
794        tbl_y = malloc(sizeof(int) * lenmax);
795       
796        HashPosition pos;
797        zval **pt, **x, **y;
798        for (
799                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
800                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
801                zend_hash_move_forward_ex(arr_hash, &pos)
802        ) {
803                if (
804                        Z_TYPE_P(*pt) == IS_ARRAY
805                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
806                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
807                ) {
808                        convert_to_long_ex(x);
809                        convert_to_long_ex(y);
810                        tbl_x[tbl_count] = Z_LVAL_PP(x);
811                        tbl_y[tbl_count] = Z_LVAL_PP(y);
812                        tbl_count++;
813                }
814        }
815        int res = caca_draw_thin_polyline(canvas, tbl_x, tbl_y, tbl_count - 1);
816        free(tbl_x);
817        free(tbl_y);
818        RETURN_SUCCESS(res);
819}
820
821PHP_FUNCTION(caca_draw_circle) {
822        zval *_zval;
823        long x, y, r, c;
824        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &r, &c) == FAILURE) {
825                RETURN_FALSE;
826        }
827        caca_canvas_t *canvas;
828        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
829        RETURN_SUCCESS(caca_draw_circle(canvas, x, y, r, c));
830}
831
832PHP_FUNCTION(caca_draw_ellipse) {
833        zval *_zval;
834        long xa, ya, xb, yb, c = 0;
835        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
836                RETURN_FALSE;
837        }
838        caca_canvas_t *canvas;
839        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
840        RETURN_SUCCESS(caca_draw_ellipse(canvas, xa, ya, xb, yb, c));
841}
842
843PHP_FUNCTION(caca_draw_thin_ellipse) {
844        zval *_zval;
845        long xa, ya, xb, yb = 0;
846        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
847                RETURN_FALSE;
848        }
849        caca_canvas_t *canvas;
850        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
851        RETURN_SUCCESS(caca_draw_thin_ellipse(canvas, xa, ya, xb, yb));
852}
853
854PHP_FUNCTION(caca_fill_ellipse) {
855        zval *_zval;
856        long xa, ya, xb, yb, c;
857        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
858                RETURN_FALSE;
859        }
860        caca_canvas_t *canvas;
861        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
862        RETURN_SUCCESS(caca_fill_ellipse(canvas, xa, ya, xb, yb, c));
863}
864
865PHP_FUNCTION(caca_draw_box) {
866        zval *_zval;
867        long xa, ya, xb, yb, c;
868        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
869                RETURN_FALSE;
870        }
871        caca_canvas_t *canvas;
872        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
873        RETURN_SUCCESS(caca_draw_box(canvas, xa, ya, xb, yb, c));
874}
875
876PHP_FUNCTION(caca_draw_thin_box) {
877        zval *_zval;
878        long xa, ya, xb, yb = 0;
879        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
880                RETURN_FALSE;
881        }
882        caca_canvas_t *canvas;
883        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
884        RETURN_SUCCESS(caca_draw_thin_box(canvas, xa, ya, xb, yb));
885}
886
887PHP_FUNCTION(caca_draw_cp437_box) {
888        zval *_zval;
889        long xa, ya, xb, yb;
890        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
891                RETURN_FALSE;
892        }
893        caca_canvas_t *canvas;
894        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
895        RETURN_SUCCESS(caca_draw_cp437_box(canvas, xa, ya, xb, yb));
896}
897
898PHP_FUNCTION(caca_fill_box) {
899        zval *_zval;
900        long xa, ya, xb, yb, c;
901        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
902                RETURN_FALSE;
903        }
904        caca_canvas_t *canvas;
905        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
906        RETURN_SUCCESS(caca_fill_box(canvas, xa, ya, xb, yb, c));
907}
908
909PHP_FUNCTION(caca_draw_triangle) {
910        zval *_zval;
911        long xa, ya, xb, yb, xc, yc, c;
912        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
913                RETURN_FALSE;
914        }
915        caca_canvas_t *canvas;
916        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
917        RETURN_SUCCESS(caca_draw_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
918}
919
920PHP_FUNCTION(caca_draw_thin_triangle) {
921        zval *_zval;
922        long xa, ya, xb, yb, xc, yc = 0;
923        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc) == FAILURE) {
924                RETURN_FALSE;
925        }
926        caca_canvas_t *canvas;
927        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
928        RETURN_SUCCESS(caca_draw_thin_triangle(canvas, xa, ya, xb, yb, xc, yc));
929}
930
931PHP_FUNCTION(caca_fill_triangle) {
932        zval *_zval;
933        long xa, ya, xb, yb, xc, yc, c = 0;
934        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
935                RETURN_FALSE;
936        }
937        caca_canvas_t *canvas;
938        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
939        RETURN_SUCCESS(caca_fill_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
940}
941
942PHP_FUNCTION(caca_get_frame_count) {
943        zval *_zval;
944        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
945                RETURN_FALSE;
946        }
947        caca_canvas_t *canvas;
948        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
949        RETURN_LONG(caca_get_canvas_count(canvas));
950}
951
952PHP_FUNCTION(caca_set_frame) {
953        zval *_zval;
954        long id;
955        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
956                RETURN_FALSE;
957        }
958        caca_canvas_t *canvas;
959        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
960        RETURN_SUCCESS(caca_set_frame(canvas, id));
961}
962
963PHP_FUNCTION(caca_set_frame_name) {
964        zval *_zval;
965        char *str;
966        long str_len;
967        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
968                RETURN_FALSE;
969        }
970        caca_canvas_t *canvas;
971        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
972        RETURN_SUCCESS(caca_set_frame_name(canvas, str));
973}
974
975PHP_FUNCTION(caca_create_frame) {
976        zval *_zval;
977        long id;
978        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
979                RETURN_FALSE;
980        }
981        caca_canvas_t *canvas;
982        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
983        RETURN_SUCCESS(caca_create_frame(canvas, id));
984}
985
986PHP_FUNCTION(caca_free_frame) {
987        zval *_zval;
988        long id;
989        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
990                RETURN_FALSE;
991        }
992        caca_canvas_t *canvas;
993        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
994        RETURN_SUCCESS(caca_free_frame(canvas, id));
995}
996
997PHP_FUNCTION(caca_create_dither) {
998        long bpp, w, h, pitch, rmask, gmask, bmask, amask = 0;
999        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llllllll", &bpp, &w, &h, &pitch, &rmask, &gmask, &bmask, &amask) == FAILURE) {
1000                RETURN_FALSE;
1001        }
1002        caca_dither_t *dither = caca_create_dither(bpp, w, h, pitch, rmask, gmask, bmask, amask);
1003        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1004}
1005
1006PHP_FUNCTION(caca_create_dither_gd) {
1007        zval *_zval;
1008        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1009                RETURN_FALSE;
1010        }
1011
1012        gdImage *img = fetch_external_resource(_zval, "gd");
1013        if (!img | !img->trueColor) {
1014                RETURN_FALSE;
1015        }
1016        caca_dither_t *dither = caca_create_dither(sizeof(int) * 8, img->sx, img->sy, img->sx * sizeof(int), 0x00ff0000, 0x0000ff00, 0x000000ff, 0x00000000);
1017        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1018}
1019
1020PHP_FUNCTION(caca_set_dither_palette) {
1021        zval *zval_res, *arr;
1022        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &arr) == FAILURE) {
1023                RETURN_FALSE;
1024        }
1025
1026        caca_dither_t *dither;
1027        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_dither);
1028
1029        uint32_t tbl[4][256];
1030        zval **color, **value;
1031        int i, j;
1032        for (i = 0; i < 256; i++) {
1033                if (zend_hash_index_find(Z_ARRVAL_P(arr), i, (void**) &color) == FAILURE | Z_TYPE_P(*color) != IS_ARRAY) {
1034                        RETURN_FALSE;
1035                }
1036                for (j = 0; j < 4; j++) {
1037                        if (zend_hash_index_find(Z_ARRVAL_P(*color), j, (void**) &value) == FAILURE) {
1038                                RETURN_FALSE;
1039                        }
1040                        convert_to_long_ex(value);
1041                        tbl[j][i] = Z_LVAL_PP(value);
1042                }
1043        }
1044        RETURN_SUCCESS(caca_set_dither_palette(dither, &tbl[0][0], &tbl[1][0], &tbl[2][0], &tbl[3][0]));
1045}
1046
1047PHP_FUNCTION(caca_set_dither_brightness) {
1048        zval *_zval;
1049        double value;
1050        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1051                RETURN_FALSE;
1052        }
1053        caca_dither_t *dither;
1054        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1055        RETURN_SUCCESS(caca_set_dither_brightness(dither, value));
1056}
1057
1058PHP_FUNCTION(caca_get_dither_brightness) {
1059        zval *_zval;
1060        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1061                RETURN_FALSE;
1062        }
1063        caca_dither_t *dither;
1064        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1065        RETURN_DOUBLE(caca_get_dither_brightness(dither));
1066}
1067
1068PHP_FUNCTION(caca_set_dither_gamma) {
1069        zval *_zval;
1070        double value;
1071        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1072                RETURN_FALSE;
1073        }
1074        caca_dither_t *dither;
1075        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1076        RETURN_SUCCESS(caca_set_dither_gamma(dither, value));
1077}
1078
1079PHP_FUNCTION(caca_get_dither_gamma) {
1080        zval *_zval;
1081        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1082                RETURN_FALSE;
1083        }
1084        caca_dither_t *dither;
1085        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1086        RETURN_DOUBLE(caca_get_dither_gamma(dither));
1087}
1088
1089PHP_FUNCTION(caca_set_dither_contrast) {
1090        zval *_zval;
1091        double value;
1092        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1093                RETURN_FALSE;
1094        }
1095        caca_dither_t *dither;
1096        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1097        RETURN_SUCCESS(caca_set_dither_contrast(dither, value));
1098}
1099
1100PHP_FUNCTION(caca_get_dither_contrast) {
1101        zval *_zval;
1102        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1103                RETURN_FALSE;
1104        }
1105        caca_dither_t *dither;
1106        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1107        RETURN_DOUBLE(caca_get_dither_contrast(dither));
1108}
1109
1110PHP_FUNCTION(caca_set_dither_antialias) {
1111        zval *_zval;
1112        int str_len;
1113        char *str;
1114        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1115                RETURN_FALSE;
1116        }
1117        caca_dither_t *dither;
1118        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1119        RETURN_SUCCESS(caca_set_dither_antialias(dither, str));
1120}
1121
1122PHP_FUNCTION(caca_get_dither_antialias_list) {
1123}
1124
1125PHP_FUNCTION(caca_get_dither_antialias) {
1126        zval *_zval;
1127        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1128                RETURN_FALSE;
1129        }
1130        caca_dither_t *dither;
1131        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1132        RETURN_STRING((char *) caca_get_dither_antialias(dither), 1);
1133}
1134
1135PHP_FUNCTION(caca_set_dither_color) {
1136        zval *_zval;
1137        int str_len;
1138        char *str;
1139        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1140                RETURN_FALSE;
1141        }
1142        caca_dither_t *dither;
1143        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1144        RETURN_SUCCESS(caca_set_dither_color(dither, str));
1145}
1146
1147PHP_FUNCTION(caca_get_dither_color_list) {
1148        zval *_zval;
1149        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1150                RETURN_FALSE;
1151        }
1152        caca_dither_t *dither;
1153        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1154
1155        char const * const *list = caca_get_dither_antialias_list(dither);
1156        int i;
1157        array_init(return_value);       
1158        for(i = 0; list[i]; i += 2)
1159                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1160}
1161
1162PHP_FUNCTION(caca_get_dither_color) {
1163        zval *_zval;
1164        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1165                RETURN_FALSE;
1166        }
1167        caca_dither_t *dither;
1168        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1169        RETURN_STRING((char *) caca_get_dither_color(dither), 1);
1170}
1171
1172PHP_FUNCTION(caca_set_dither_charset) {
1173        zval *_zval;
1174        int str_len;
1175        char *str;
1176        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1177                RETURN_FALSE;
1178        }
1179        caca_dither_t *dither;
1180        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1181        RETURN_SUCCESS(caca_set_dither_charset(dither, str));
1182}
1183
1184PHP_FUNCTION(caca_get_dither_charset_list) {
1185        zval *_zval;
1186        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1187                RETURN_FALSE;
1188        }
1189        caca_dither_t *dither;
1190        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1191
1192        char const * const *list = caca_get_dither_charset_list(dither);
1193        int i;
1194        array_init(return_value);       
1195        for(i = 0; list[i]; i += 2)
1196                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1197}
1198
1199PHP_FUNCTION(caca_get_dither_charset) {
1200        zval *_zval;
1201        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1202                RETURN_FALSE;
1203        }
1204        caca_dither_t *dither;
1205        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1206        RETURN_STRING((char *) caca_get_dither_charset(dither), 1);
1207}
1208
1209PHP_FUNCTION(caca_set_dither_algorithm) {
1210        zval *_zval;
1211        int str_len;
1212        char *str;
1213        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1214                RETURN_FALSE;
1215        }
1216        caca_dither_t *dither;
1217        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1218        RETURN_SUCCESS(caca_set_dither_algorithm(dither, str));
1219}
1220
1221PHP_FUNCTION(caca_get_dither_algorithm_list) {
1222        zval *_zval;
1223        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1224                RETURN_FALSE;
1225        }
1226        caca_dither_t *dither;
1227        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1228
1229        char const * const *list = caca_get_dither_algorithm_list(dither);
1230        int i;
1231        array_init(return_value);       
1232        for(i = 0; list[i]; i += 2)
1233                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1234}
1235
1236PHP_FUNCTION(caca_get_dither_algorithm) {
1237        zval *_zval;
1238        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1239                RETURN_FALSE;
1240        }
1241        caca_dither_t *dither;
1242        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1243        RETURN_STRING((char *) caca_get_dither_algorithm(dither), 1);
1244}
1245
1246PHP_FUNCTION(caca_dither_bitmap_gd) {
1247        zval *_zval1, *_zval2, *_zval3;
1248        long x, y, w, h = 0;
1249        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllrr", &_zval1, &x, &y, &w, &h, &_zval2, &_zval3) == FAILURE) {
1250                RETURN_FALSE;
1251        }
1252
1253        caca_canvas_t *canvas;
1254        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1255        caca_dither_t *dither;
1256        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval2, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1257
1258        gdImage *img = fetch_external_resource(_zval3, "gd");
1259        if (!img) {
1260                RETURN_FALSE;
1261        }
1262
1263        void *pixels = gd_get_pixels(img);
1264        if (!pixels) {
1265                RETURN_FALSE;
1266        }
1267
1268        caca_dither_bitmap(canvas, x, y, w, h, dither, pixels);
1269        free(pixels);
1270        RETURN_TRUE;
1271}
1272
1273PHP_FUNCTION(caca_load_font) {
1274        char *str;
1275        long str_len;
1276        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &str, &str_len) == FAILURE) {
1277                RETURN_FALSE;
1278        }
1279        caca_font_t *font = caca_load_font(str, str_len);
1280        ZEND_REGISTER_RESOURCE(return_value, font, le_caca_font);
1281}
1282
1283PHP_FUNCTION(caca_get_font_list) {
1284        char const * const *list = caca_get_font_list();
1285        int i;
1286        array_init(return_value);       
1287        for(i = 0; list[i]; i += 1)
1288                add_next_index_string(return_value, (char*) list[i], 1);
1289}
1290
1291PHP_FUNCTION(caca_get_font_width) {
1292        zval *_zval;
1293        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1294                RETURN_FALSE;
1295        }
1296        caca_font_t *font;
1297        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1298        RETURN_LONG(caca_get_font_width(font));
1299}
1300
1301PHP_FUNCTION(caca_get_font_height) {
1302        zval *_zval;
1303        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1304                RETURN_FALSE;
1305        }
1306        caca_font_t *font;
1307        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1308        RETURN_LONG(caca_get_font_height(font));
1309}
1310
1311PHP_FUNCTION(caca_get_font_blocks) {
1312        zval *_zval;
1313        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1314                RETURN_FALSE;
1315        }
1316        caca_font_t *font;
1317        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1318
1319        uint32_t const *list = caca_get_font_blocks(font);
1320
1321        int i;
1322        array_init(return_value);       
1323        for(i = 0; list[i]; i += 1)
1324                add_next_index_long(return_value, list[i]);
1325}
1326
1327PHP_FUNCTION(caca_render_canvas) {
1328}
1329
1330PHP_FUNCTION(caca_canvas_set_figfont) {
1331        zval *_zval;
1332        char *font;
1333        long font_len;
1334        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &font, &font_len) == FAILURE) {
1335                RETURN_FALSE;
1336        }
1337        caca_canvas_t *canvas;
1338        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1339        RETURN_SUCCESS(caca_canvas_set_figfont(canvas, font));
1340}
1341
1342PHP_FUNCTION(caca_put_figchar) {
1343        zval *_zval;
1344        long c;
1345        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &c) == FAILURE) {
1346                RETURN_FALSE;
1347        }
1348        caca_canvas_t *canvas;
1349        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1350
1351        RETURN_SUCCESS(caca_put_figchar(canvas, c));
1352}
1353
1354PHP_FUNCTION(caca_flush_figlet) {
1355        zval *_zval;
1356        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1357                RETURN_FALSE;
1358        }
1359        caca_canvas_t *canvas;
1360        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1361        RETURN_SUCCESS(caca_flush_figlet(canvas));
1362}
1363
1364PHP_FUNCTION(caca_file_open) {
1365        char *path, *mode;
1366        long path_len, mode_len;
1367        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &path, &path_len, &mode, &mode_len) == FAILURE) {
1368                RETURN_FALSE;
1369        }
1370        caca_file_t *file = caca_file_open(path, mode);
1371        ZEND_REGISTER_RESOURCE(return_value, file, le_caca_file);
1372}
1373
1374PHP_FUNCTION(caca_file_close) {
1375        zval *_zval;
1376        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1377                RETURN_FALSE;
1378        }
1379        caca_file_t *file;
1380        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1381        //TODO: check that file was not already closed
1382        RETURN_SUCCESS(caca_file_close(file));
1383}
1384
1385PHP_FUNCTION(caca_file_tell) {
1386        zval *_zval;
1387        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1388                RETURN_FALSE;
1389        }
1390        caca_file_t *file;
1391        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1392        RETURN_LONG(caca_file_tell(file));
1393}
1394
1395PHP_FUNCTION(caca_file_read) {
1396        zval *_zval;
1397        long len;
1398        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1399                RETURN_FALSE;
1400        }
1401        caca_file_t *file;
1402        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1403
1404        if (len < 1) {
1405                RETURN_FALSE;
1406        }
1407        char *buffer = emalloc(len);
1408        if (!buffer) {
1409                RETURN_FALSE;
1410        }
1411        caca_file_read(file, buffer, len);
1412
1413        return_value->type = IS_STRING;
1414        return_value->value.str.len = len;
1415        return_value->value.str.val = buffer;
1416}
1417
1418PHP_FUNCTION(caca_file_write) {
1419        zval *_zval;
1420        char *buf;
1421        long buf_len = 0;
1422        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &buf, &buf_len) == FAILURE) {
1423                RETURN_FALSE;
1424        }
1425        caca_file_t *file;
1426        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1427        RETURN_LONG(caca_file_write(file, buf, buf_len));
1428}
1429
1430PHP_FUNCTION(caca_file_gets) {
1431        zval *_zval;
1432        long len = 0;
1433        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1434                RETURN_FALSE;
1435        }
1436        caca_file_t *file;
1437        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1438
1439        if (len < 1) {
1440                RETURN_FALSE;
1441        }
1442        char *buffer = emalloc(len);
1443        if (!buffer) {
1444                RETURN_FALSE;
1445        }
1446        char *result = caca_file_gets(file, buffer, len);
1447        if (!result) {
1448                RETURN_FALSE;
1449        }
1450        return_value->type = IS_STRING;
1451        return_value->value.str.len = len;
1452        return_value->value.str.val = result;
1453}
1454
1455PHP_FUNCTION(caca_file_eof) {
1456        zval *_zval;
1457        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1458                RETURN_FALSE;
1459        }
1460        caca_file_t *file;
1461        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1462        RETURN_BOOL(caca_file_eof(file) != 0);
1463}
1464
1465PHP_FUNCTION(caca_import_string) {
1466        zval *_zval;
1467        char *src, *format;
1468        long src_len, format_len = 0;
1469        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &src, &src_len, &format, &format_len) == FAILURE) {
1470                RETURN_FALSE;
1471        }
1472        caca_canvas_t *canvas;
1473        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1474
1475        RETURN_LONG(caca_import_memory(canvas, src, src_len, format));
1476}
1477
1478PHP_FUNCTION(caca_import_file) {
1479        zval *_zval;
1480        char *filename, *format;
1481        long filename_len, format_len = 0;
1482        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &filename, &filename_len, &format, &format_len) == FAILURE) {
1483                RETURN_FALSE;
1484        }
1485        caca_canvas_t *canvas;
1486        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1487
1488        RETURN_LONG(caca_import_file(canvas, filename, format));
1489}
1490
1491PHP_FUNCTION(caca_get_import_list) {
1492        char const * const *list = caca_get_import_list();
1493        int i;
1494        array_init(return_value);       
1495        for(i = 0; list[i]; i += 2)
1496                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1497}
1498
1499PHP_FUNCTION(caca_export_string) {
1500        zval *_zval;
1501        char *type;
1502        long type_len;
1503        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &type, &type_len) == FAILURE) {
1504                RETURN_FALSE;
1505        }
1506        caca_canvas_t *canvas;
1507        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1508
1509        void *buffer, *copy;
1510        size_t len;
1511        buffer = caca_export_memory(canvas, type, &len);
1512        copy = emalloc(len);
1513        if (!buffer | !copy) {
1514                RETURN_FALSE;
1515        }
1516        memcpy(copy, buffer, len);
1517        free(buffer);
1518
1519        return_value->type = IS_STRING;
1520        return_value->value.str.len = len;
1521        return_value->value.str.val = copy;
1522}
1523
1524PHP_FUNCTION(caca_get_export_list) {
1525        char const * const *list = caca_get_export_list();
1526        int i;
1527        array_init(return_value);       
1528        for(i = 0; list[i]; i += 2)
1529                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1530}
1531
1532PHP_FUNCTION(caca_create_display) {
1533        caca_canvas_t *canvas;
1534        FETCH_CANVAS(canvas);
1535
1536        caca_display_t *display = caca_create_display(canvas);
1537        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1538}
1539
1540PHP_FUNCTION(caca_create_display_with_driver) {
1541        zval *_zval;
1542        char *str;
1543        long str_len = 0;
1544        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1545                RETURN_FALSE;
1546        }
1547        caca_canvas_t *canvas;
1548        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1549
1550        caca_display_t *display = caca_create_display_with_driver(canvas, str);
1551        if (!display) {
1552                RETURN_FALSE;
1553        }
1554        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1555}
1556
1557PHP_FUNCTION(caca_get_display_driver_list) {
1558        char const * const *list = caca_get_display_driver_list();
1559        int i;
1560        array_init(return_value);       
1561        for(i = 0; list[i]; i += 2)
1562                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1563}
1564
1565PHP_FUNCTION(caca_get_display_driver) {
1566        zval *_zval;
1567        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1568                RETURN_FALSE;
1569        }
1570        caca_display_t *display;
1571        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1572        RETURN_STRING((char *) caca_get_display_driver(display), 1);
1573}
1574
1575PHP_FUNCTION(caca_set_display_driver) {
1576        zval *_zval;
1577        char *str;
1578        long str_len;
1579        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1580                RETURN_FALSE;
1581        }
1582        caca_display_t *display;
1583        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1584        RETURN_SUCESS(caca_set_display_driver(display, str));
1585}
1586
1587PHP_FUNCTION(caca_get_canvas) {
1588        zval *_zval;
1589        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1590                RETURN_FALSE;
1591        }
1592        caca_display_t *display;
1593        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1594        caca_canvas_t *canvas = caca_get_canvas(display);
1595        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
1596}
1597
1598PHP_FUNCTION(caca_refresh_display) {
1599        caca_display_t *display;
1600        FETCH_DISPLAY(display);
1601        RETURN_SUCCESS(caca_refresh_display(display));
1602}
1603
1604PHP_FUNCTION(caca_set_display_time) {
1605        zval *_zval;
1606        long value = 0;
1607        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1608                RETURN_FALSE;
1609        }
1610        caca_display_t *display;
1611        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1612        RETURN_SUCCESS(caca_set_display_time(display, value));
1613}
1614
1615PHP_FUNCTION(caca_get_display_time) {
1616        caca_display_t *display;
1617        FETCH_DISPLAY(display);
1618        RETURN_LONG(caca_get_display_time(display));
1619}
1620
1621PHP_FUNCTION(caca_get_display_width) {
1622        caca_display_t *display;
1623        FETCH_DISPLAY(display);
1624        RETURN_LONG(caca_get_display_width(display));
1625}
1626
1627PHP_FUNCTION(caca_get_display_height) {
1628        caca_display_t *display;
1629        FETCH_DISPLAY(display);
1630        RETURN_LONG(caca_get_display_height(display));
1631}
1632
1633PHP_FUNCTION(caca_set_display_title) {
1634        zval *_zval;
1635        char *str;
1636        long str_len = 0;
1637        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1638                RETURN_FALSE;
1639        }
1640        caca_display_t *display;
1641        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1642        RETURN_SUCCESS(caca_set_display(display, str));
1643}
1644
1645PHP_FUNCTION(caca_set_mouse) {
1646        zval *_zval;
1647        long value = 0;
1648        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1649                RETURN_FALSE;
1650        }
1651        caca_display_t *display;
1652        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1653        RETURN_SUCCESS(caca_set_mouse(display, value));
1654}
1655
1656PHP_FUNCTION(caca_set_cursor) {
1657        zval *_zval;
1658        long value = 0;
1659        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1660                RETURN_FALSE;
1661        }
1662        caca_display_t *display;
1663        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1664        RETURN_SUCCESS(caca_set_cursor(display, value));
1665}
1666
1667PHP_FUNCTION(caca_get_event) {
1668        zval *_zval1, *_zval2 = NULL;
1669        long g, aa = 0;
1670        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|rl", &_zval1, &g, &_zval2, &aa) == FAILURE) {
1671                RETURN_FALSE;
1672        }
1673        caca_display_t *display;
1674        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval1, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1675
1676        caca_event_t *event = NULL;
1677        if (_zval2) {
1678                ZEND_FETCH_RESOURCE(event, caca_event_t*, &_zval2, -1, PHP_CACA_EVENT_RES_NAME, le_caca_event);
1679        }
1680        RETURN_LONG(caca_get_event(display, g, event, aa));
1681}
1682
1683PHP_FUNCTION(caca_get_mouse_x) {
1684        caca_display_t *display;
1685        FETCH_DISPLAY(display);
1686        RETURN_LONG(caca_get_mouse_x(display));
1687}
1688
1689PHP_FUNCTION(caca_get_mouse_y) {
1690        caca_display_t *display;
1691        FETCH_DISPLAY(display);
1692        RETURN_LONG(caca_get_mouse_y(display));
1693}
1694
1695PHP_FUNCTION(caca_get_event_type) {
1696        caca_event_t *event;
1697        FETCH_EVENT(event);
1698        RETURN_LONG(caca_get_event_type(event));
1699}
1700
1701PHP_FUNCTION(caca_get_event_key_ch) {
1702        caca_event_t *event;
1703        FETCH_EVENT(event);
1704        RETURN_LONG(caca_get_event_key_ch(event));
1705}
1706
1707PHP_FUNCTION(caca_get_event_mouse_button) {
1708        caca_event_t *event;
1709        FETCH_EVENT(event);
1710        RETURN_LONG(caca_get_event_mouse_button(event));
1711}
1712
1713PHP_FUNCTION(caca_get_event_mouse_x) {
1714        caca_event_t *event;
1715        FETCH_EVENT(event);
1716        RETURN_LONG(caca_get_event_mouse_x(event));
1717}
1718
1719PHP_FUNCTION(caca_get_event_mouse_y) {
1720        caca_event_t *event;
1721        FETCH_EVENT(event);
1722        RETURN_LONG(caca_get_event_mouse_y(event));
1723}
1724
1725PHP_FUNCTION(caca_get_event_resize_width) {
1726        caca_event_t *event;
1727        FETCH_EVENT(event);
1728        RETURN_LONG(caca_get_event_resize_width(event));
1729}
1730
1731PHP_FUNCTION(caca_get_event_resize_height) {
1732        caca_event_t *event;
1733        FETCH_EVENT(event);
1734        RETURN_LONG(caca_get_event_resize_height(event));
1735}
1736
Note: See TracBrowser for help on using the repository browser.