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

Last change on this file since 3143 was 3143, checked in by nico, 11 years ago
  • Add check after emalloc in caca_draw_thin_polyline
File size: 56.6 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_canvas, NULL)
23        PHP_FE(caca_set_canvas_size, NULL)
24        PHP_FE(caca_get_canvas_width, NULL)
25        PHP_FE(caca_get_canvas_height, NULL)
26        PHP_FE(caca_get_canvas_chars, NULL)
27        PHP_FE(caca_get_canvas_attrs, NULL)
28        PHP_FE(caca_rand, NULL)
29        PHP_FE(caca_get_version, NULL)
30        PHP_FE(caca_gotoxy, NULL)
31        PHP_FE(caca_get_cursor_x, NULL)
32        PHP_FE(caca_get_cursor_y, NULL)
33        PHP_FE(caca_put_char, NULL)
34        PHP_FE(caca_get_char, NULL)
35        PHP_FE(caca_put_str, NULL)
36        PHP_FE(caca_clear_canvas, NULL)
37        PHP_FE(caca_set_canvas_handle, NULL)
38        PHP_FE(caca_get_canvas_handle_x, NULL)
39        PHP_FE(caca_get_canvas_handle_y, NULL)
40        PHP_FE(caca_blit, NULL)
41        PHP_FE(caca_set_canvas_boundaries, NULL)
42        PHP_FE(caca_invert, NULL)
43        PHP_FE(caca_flip, NULL)
44        PHP_FE(caca_flop, NULL)
45        PHP_FE(caca_rotate_180, NULL)
46        PHP_FE(caca_rotate_left, NULL)
47        PHP_FE(caca_rotate_right, NULL)
48        PHP_FE(caca_stretch_left, NULL)
49        PHP_FE(caca_stretch_right, NULL)
50        PHP_FE(caca_get_attr, NULL)
51        PHP_FE(caca_set_attr, NULL)
52        PHP_FE(caca_put_attr, NULL)
53        PHP_FE(caca_set_color_ansi, NULL)
54        PHP_FE(caca_set_color_argb, NULL)
55        PHP_FE(caca_attr_to_ansi, NULL)
56        PHP_FE(caca_attr_to_ansi_fg, NULL)
57        PHP_FE(caca_attr_to_ansi_bg, NULL)
58        PHP_FE(caca_attr_to_rgb12_fg, NULL)
59        PHP_FE(caca_attr_to_rgb12_bg, NULL)
60        PHP_FE(caca_attr_to_argb64, NULL)
61        PHP_FE(caca_utf8_to_utf32, NULL)
62        PHP_FE(caca_utf32_to_utf8, NULL)
63        PHP_FE(caca_utf32_to_cp437, NULL)
64        PHP_FE(caca_cp437_to_utf32, NULL)
65        PHP_FE(caca_utf32_to_ascii, NULL)
66        PHP_FE(caca_utf32_is_fullwidth, NULL)
67        PHP_FE(caca_draw_line, NULL)
68        PHP_FE(caca_draw_polyline, NULL)
69        PHP_FE(caca_draw_thin_line, NULL)
70        PHP_FE(caca_draw_thin_polyline, NULL)
71        PHP_FE(caca_draw_circle, NULL)
72        PHP_FE(caca_draw_ellipse, NULL)
73        PHP_FE(caca_draw_thin_ellipse, NULL)
74        PHP_FE(caca_fill_ellipse, NULL)
75        PHP_FE(caca_draw_box, NULL)
76        PHP_FE(caca_draw_thin_box, NULL)
77        PHP_FE(caca_draw_cp437_box, NULL)
78        PHP_FE(caca_fill_box, NULL)
79        PHP_FE(caca_draw_triangle, NULL)
80        PHP_FE(caca_draw_thin_triangle, NULL)
81        PHP_FE(caca_fill_triangle, NULL)
82        PHP_FE(caca_get_frame_count, NULL)
83        PHP_FE(caca_set_frame, NULL)
84        PHP_FE(caca_set_frame_name, NULL)
85        PHP_FE(caca_create_frame, NULL)
86        PHP_FE(caca_free_frame, NULL)
87        PHP_FE(caca_create_dither, NULL)
88        PHP_FE(caca_create_dither_gd, NULL)
89        PHP_FE(caca_set_dither_palette, NULL)
90        PHP_FE(caca_set_dither_palette_gd, 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                int line_size = img->sx * sizeof(int);
367                void *result = malloc(img->sy * line_size);
368                int j;         
369                for (j = 0; j < img->sy; j++)
370                        memcpy(result + (j * line_size), (const void *) img->tpixels[j], line_size);
371                return result;
372        }
373        else {
374                int line_size = img->sx * sizeof(char);
375                void *result = malloc(img->sy * line_size);
376                int j;         
377                for (j = 0; j < img->sy; j++)
378                        memcpy(result + (j * line_size), (const void *) img->pixels[j], line_size);
379                return result;
380        }
381}
382
383//------- Caca's functions ----------------//
384
385PHP_FUNCTION(caca_create_canvas) {
386        long width, height = 0;
387        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &width, &height) == FAILURE) {
388                RETURN_FALSE;
389        }
390        caca_canvas_t *canvas = caca_create_canvas(width, height);
391        if (!canvas) {
392                RETURN_FALSE;
393        }
394        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
395}
396
397PHP_FUNCTION(caca_set_canvas_size) {
398        zval *_zval;
399        long width, height = 0;
400        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &width, &height) == FAILURE) {
401                RETURN_FALSE;
402        }
403        caca_canvas_t *canvas;
404        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
405        RETURN_SUCCESS(caca_set_canvas_size(canvas, width, height));
406}
407
408PHP_FUNCTION(caca_get_canvas_width) {
409        caca_canvas_t *canvas;
410        FETCH_CANVAS(canvas);
411        RETURN_LONG(caca_get_canvas_width(canvas));
412}
413
414PHP_FUNCTION(caca_get_canvas_height) {
415        caca_canvas_t *canvas;
416        FETCH_CANVAS(canvas);
417        RETURN_LONG(caca_get_canvas_height(canvas));
418}
419
420PHP_FUNCTION(caca_get_canvas_chars) {
421        caca_canvas_t *canvas;
422        FETCH_CANVAS(canvas);
423        RETURN_STRING((char *) caca_get_canvas_chars(canvas), 1);
424}
425
426PHP_FUNCTION(caca_get_canvas_attrs) {
427        caca_canvas_t *canvas;
428        FETCH_CANVAS(canvas);
429        RETURN_STRING((char *) caca_get_canvas_attrs(canvas), 1);
430}
431
432PHP_FUNCTION(caca_rand) {
433        long min, max = 0;
434        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &min, &max) == FAILURE) {
435                RETURN_FALSE;
436        }
437        RETURN_LONG(caca_rand(min, max));
438}
439
440PHP_FUNCTION(caca_get_version) {
441        RETURN_STRING((char *) caca_get_version(), 1);
442}
443
444PHP_FUNCTION(caca_gotoxy) {
445        zval *_zval;
446        long x, y = 0;
447        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
448                RETURN_FALSE;
449        }
450        caca_canvas_t *canvas;
451        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
452        RETURN_SUCCESS(caca_gotoxy(canvas, x, y));
453}
454
455PHP_FUNCTION(caca_get_cursor_x) {
456        caca_canvas_t *canvas;
457        FETCH_CANVAS(canvas);
458        RETURN_LONG(caca_get_cursor_x(canvas));
459}
460
461PHP_FUNCTION(caca_get_cursor_y) {
462        caca_canvas_t *canvas;
463        FETCH_CANVAS(canvas);
464        RETURN_LONG(caca_get_cursor_y(canvas));
465}
466
467PHP_FUNCTION(caca_put_char) {
468        zval *_zval;
469        long x, y, c;
470        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &c) == FAILURE) {
471                RETURN_FALSE;
472        }
473        caca_canvas_t *canvas;
474        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
475        RETURN_SUCCESS(caca_put_char(canvas, x, y, c));
476}
477
478PHP_FUNCTION(caca_get_char) {
479        zval *_zval;
480        long x, y = 0;
481        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
482                RETURN_FALSE;
483        }
484        caca_canvas_t *canvas;
485        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
486        RETURN_CHAR(caca_get_char(canvas, x, y));
487}
488
489PHP_FUNCTION(caca_put_str) {
490        zval *_zval;
491        char *str;
492        long x, y, str_len = 0;
493        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlls", &_zval, &x, &y, &str, &str_len) == FAILURE) {
494                RETURN_FALSE;
495        }
496        caca_canvas_t *canvas;
497        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
498        RETURN_SUCCESS(caca_put_str(canvas, x, y, str));
499}
500
501PHP_FUNCTION(caca_clear_canvas) {
502        caca_canvas_t *canvas;
503        FETCH_CANVAS(canvas);
504        RETURN_LONG(caca_clear_canvas(canvas));
505}
506
507PHP_FUNCTION(caca_set_canvas_handle) {
508        zval *_zval;
509        long x, y = 0;
510        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
511                RETURN_FALSE;
512        }
513        caca_canvas_t *canvas;
514        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
515        RETURN_SUCCESS(caca_set_canvas_handle(canvas, x, y));
516}
517
518PHP_FUNCTION(caca_get_canvas_handle_x) {
519        caca_canvas_t *canvas;
520        FETCH_CANVAS(canvas);
521        RETURN_LONG(caca_get_canvas_handle_x(canvas));
522}
523
524PHP_FUNCTION(caca_get_canvas_handle_y) {
525        caca_canvas_t *canvas;
526        FETCH_CANVAS(canvas);
527        RETURN_LONG(caca_get_canvas_handle_y(canvas));
528}
529
530PHP_FUNCTION(caca_blit) {
531        zval *_zval1, *_zval2, *_zval3 = NULL;
532        long x, y = 0;
533        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllr|r", &_zval1, &x, &y, &_zval2, &_zval3) == FAILURE) {
534                RETURN_FALSE;
535        }
536        caca_canvas_t *dst, *src, *mask = NULL;
537        ZEND_FETCH_RESOURCE(dst, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
538        ZEND_FETCH_RESOURCE(src, caca_canvas_t*, &_zval2, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
539        if (_zval3) {
540                ZEND_FETCH_RESOURCE(mask, caca_canvas_t*, &_zval3, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
541        }
542        RETURN_SUCCESS(caca_blit(dst, x, y, src, NULL));
543}
544
545PHP_FUNCTION(caca_set_canvas_boundaries) {
546        zval *_zval;
547        long x, y, width, height = 0;
548        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &width, &height) == FAILURE) {
549                RETURN_FALSE;
550        }
551        caca_canvas_t *canvas;
552        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
553        RETURN_SUCCESS(caca_set_canvas_boundaries(canvas, x, y, width, height));
554}
555
556PHP_FUNCTION(caca_invert) {
557        caca_canvas_t *canvas;
558        FETCH_CANVAS(canvas);
559        RETURN_SUCCESS(caca_invert(canvas));
560}
561
562PHP_FUNCTION(caca_flip) {
563        caca_canvas_t *canvas;
564        FETCH_CANVAS(canvas);
565        RETURN_SUCCESS(caca_flip(canvas));
566}
567
568PHP_FUNCTION(caca_flop) {
569        caca_canvas_t *canvas;
570        FETCH_CANVAS(canvas);
571        RETURN_SUCCESS(caca_flop(canvas));
572}
573
574PHP_FUNCTION(caca_rotate_180) {
575        caca_canvas_t *canvas;
576        FETCH_CANVAS(canvas);
577        RETURN_SUCCESS(caca_rotate_180(canvas));
578}
579
580PHP_FUNCTION(caca_rotate_left) {
581        caca_canvas_t *canvas;
582        FETCH_CANVAS(canvas);
583        RETURN_SUCCESS(caca_rotate_left(canvas));
584}
585
586PHP_FUNCTION(caca_rotate_right) {
587        caca_canvas_t *canvas;
588        FETCH_CANVAS(canvas);
589        RETURN_SUCCESS(caca_rotate_right(canvas));
590}
591
592PHP_FUNCTION(caca_stretch_left) {
593        caca_canvas_t *canvas;
594        FETCH_CANVAS(canvas);
595        RETURN_SUCCESS(caca_stretch_left(canvas));
596}
597
598PHP_FUNCTION(caca_stretch_right) {
599        caca_canvas_t *canvas;
600        FETCH_CANVAS(canvas);
601        RETURN_SUCCESS(caca_stretch_right(canvas));
602}
603
604PHP_FUNCTION(caca_get_attr) {
605        zval *_zval;
606        long x, y = 0;
607        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
608                RETURN_FALSE;
609        }
610        caca_canvas_t *canvas;
611        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
612        RETURN_LONG(caca_get_attr(canvas, x, y));
613}
614
615PHP_FUNCTION(caca_set_attr) {
616        zval *_zval;
617        long attr = 0;
618        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &attr) == FAILURE) {
619                RETURN_FALSE;
620        }
621        caca_canvas_t *canvas;
622        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
623        RETURN_SUCCESS(caca_set_attr(canvas, attr));
624}
625
626PHP_FUNCTION(caca_put_attr) {
627        zval *_zval;
628        long x, y, attr = 0;
629        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &attr) == FAILURE) {
630                RETURN_FALSE;
631        }
632        caca_canvas_t *canvas;
633        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
634        RETURN_SUCCESS(caca_put_attr(canvas, x, y, attr));
635}
636
637PHP_FUNCTION(caca_set_color_ansi) {
638        zval *_zval;
639        long foreground, background = 0;
640        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
641                RETURN_FALSE;
642        }
643        caca_canvas_t *canvas;
644        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
645        RETURN_SUCCESS(caca_set_color_ansi(canvas, foreground, background));
646}
647
648PHP_FUNCTION(caca_set_color_argb) {
649        zval *_zval;
650        long foreground, background = 0;
651        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
652                RETURN_FALSE;
653        }
654        caca_canvas_t *canvas;
655        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
656        RETURN_SUCCESS(caca_set_color_argb(canvas, foreground, background));
657}
658
659PHP_FUNCTION(caca_attr_to_ansi) {
660        long l;
661        FETCH_LONG(l);
662        RETURN_LONG(caca_attr_to_ansi(l));
663}
664
665PHP_FUNCTION(caca_attr_to_ansi_fg) {
666        long l;
667        FETCH_LONG(l);
668        RETURN_LONG(caca_attr_to_ansi_fg(l));
669}
670
671PHP_FUNCTION(caca_attr_to_ansi_bg) {
672        long l;
673        FETCH_LONG(l);
674        RETURN_LONG(caca_attr_to_ansi_bg(l));
675}
676
677PHP_FUNCTION(caca_attr_to_rgb12_fg) {
678        long l;
679        FETCH_LONG(l);
680        RETURN_LONG(caca_attr_to_rgb12_fg(l));
681}
682
683PHP_FUNCTION(caca_attr_to_rgb12_bg) {
684        long l;
685        FETCH_LONG(l);
686        RETURN_LONG(caca_attr_to_rgb12_bg(l));
687}
688
689PHP_FUNCTION(caca_attr_to_argb64) {
690        //TODO: write or delete
691}
692
693PHP_FUNCTION(caca_utf8_to_utf32) {
694        //TODO: write or delete
695}
696
697PHP_FUNCTION(caca_utf32_to_utf8) {
698        //TODO: write or delete
699}
700
701PHP_FUNCTION(caca_utf32_to_cp437) {
702        long l;
703        FETCH_LONG(l);
704        RETURN_LONG(caca_utf32_to_cp437(l));
705}
706
707PHP_FUNCTION(caca_cp437_to_utf32) {
708        long l;
709        FETCH_LONG(l);
710        RETURN_LONG(caca_cp437_to_utf32(l));
711}
712
713PHP_FUNCTION(caca_utf32_to_ascii) {
714        long l;
715        FETCH_LONG(l);
716        RETURN_CHAR(caca_utf32_to_ascii(l));
717}
718
719PHP_FUNCTION(caca_utf32_is_fullwidth) {
720}
721
722PHP_FUNCTION(caca_draw_line) {
723        zval *_zval;
724        long xa, ya, xb, yb, c;
725        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
726                RETURN_FALSE;
727        }
728        caca_canvas_t *canvas;
729        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
730        RETURN_SUCCESS(caca_draw_line(canvas, xa, ya, xb, yb, c));
731}
732
733PHP_FUNCTION(caca_draw_polyline) {
734        zval *zval_res, *zval_arr;
735        long c;
736
737        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ral", &zval_res, &zval_arr, &c) == FAILURE) {
738                RETURN_FALSE;
739        }
740
741        caca_canvas_t *canvas;
742        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
743
744        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
745        int lenmax = zend_hash_num_elements(arr_hash);
746        int *tbl_x, *tbl_y;
747        int tbl_count = 0;
748        tbl_x = malloc(sizeof(int) * lenmax);
749        tbl_y = malloc(sizeof(int) * lenmax);
750       
751        HashPosition pos;
752        zval **pt, **x, **y;
753        for (
754                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
755                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
756                zend_hash_move_forward_ex(arr_hash, &pos)
757        ) {
758                if (
759                        Z_TYPE_P(*pt) == IS_ARRAY
760                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
761                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
762                ) {
763                        convert_to_long_ex(x);
764                        convert_to_long_ex(y);
765                        tbl_x[tbl_count] = Z_LVAL_PP(x);
766                        tbl_y[tbl_count] = Z_LVAL_PP(y);
767                        tbl_count++;
768                }
769        }
770        int res = caca_draw_polyline(canvas, tbl_x, tbl_y, tbl_count - 1, c);
771        free(tbl_x);
772        free(tbl_y);
773        RETURN_SUCCESS(res);
774}
775
776PHP_FUNCTION(caca_draw_thin_line) {
777        zval *_zval;
778        long xa, ya, xb, yb = 0;
779        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
780                RETURN_FALSE;
781        }
782        caca_canvas_t *canvas;
783        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
784        RETURN_SUCCESS(caca_draw_thin_line(canvas, xa, ya, xb, yb));
785}
786
787PHP_FUNCTION(caca_draw_thin_polyline) {
788        zval *zval_res, *zval_arr;
789        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &zval_arr) == FAILURE) {
790                RETURN_FALSE;
791        }
792
793        caca_canvas_t *canvas;
794        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
795
796        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
797        int lenmax = zend_hash_num_elements(arr_hash);
798        int *tbl_x, *tbl_y;
799        int tbl_count = 0;
800        tbl_x = malloc(sizeof(int) * lenmax);
801        tbl_y = malloc(sizeof(int) * lenmax);
802
803        if (!tbl_x || !tbl_y) {
804                RETURN_FALSE;
805        }
806       
807        HashPosition pos;
808        zval **pt, **x, **y;
809        for (
810                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
811                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
812                zend_hash_move_forward_ex(arr_hash, &pos)
813        ) {
814                if (
815                        Z_TYPE_P(*pt) == IS_ARRAY
816                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
817                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
818                ) {
819                        convert_to_long_ex(x);
820                        convert_to_long_ex(y);
821                        tbl_x[tbl_count] = Z_LVAL_PP(x);
822                        tbl_y[tbl_count] = Z_LVAL_PP(y);
823                        tbl_count++;
824                }
825        }
826        int res = caca_draw_thin_polyline(canvas, tbl_x, tbl_y, tbl_count - 1);
827        free(tbl_x);
828        free(tbl_y);
829        RETURN_SUCCESS(res);
830}
831
832PHP_FUNCTION(caca_draw_circle) {
833        zval *_zval;
834        long x, y, r, c;
835        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &r, &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_circle(canvas, x, y, r, c));
841}
842
843PHP_FUNCTION(caca_draw_ellipse) {
844        zval *_zval;
845        long xa, ya, xb, yb, c = 0;
846        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == 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_ellipse(canvas, xa, ya, xb, yb, c));
852}
853
854PHP_FUNCTION(caca_draw_thin_ellipse) {
855        zval *_zval;
856        long xa, ya, xb, yb = 0;
857        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == 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_draw_thin_ellipse(canvas, xa, ya, xb, yb));
863}
864
865PHP_FUNCTION(caca_fill_ellipse) {
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_fill_ellipse(canvas, xa, ya, xb, yb, c));
874}
875
876PHP_FUNCTION(caca_draw_box) {
877        zval *_zval;
878        long xa, ya, xb, yb, c;
879        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == 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_box(canvas, xa, ya, xb, yb, c));
885}
886
887PHP_FUNCTION(caca_draw_thin_box) {
888        zval *_zval;
889        long xa, ya, xb, yb = 0;
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_thin_box(canvas, xa, ya, xb, yb));
896}
897
898PHP_FUNCTION(caca_draw_cp437_box) {
899        zval *_zval;
900        long xa, ya, xb, yb;
901        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == 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_draw_cp437_box(canvas, xa, ya, xb, yb));
907}
908
909PHP_FUNCTION(caca_fill_box) {
910        zval *_zval;
911        long xa, ya, xb, yb, c;
912        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &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_fill_box(canvas, xa, ya, xb, yb, c));
918}
919
920PHP_FUNCTION(caca_draw_triangle) {
921        zval *_zval;
922        long xa, ya, xb, yb, xc, yc, c;
923        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == 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_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
929}
930
931PHP_FUNCTION(caca_draw_thin_triangle) {
932        zval *_zval;
933        long xa, ya, xb, yb, xc, yc = 0;
934        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc) == 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_draw_thin_triangle(canvas, xa, ya, xb, yb, xc, yc));
940}
941
942PHP_FUNCTION(caca_fill_triangle) {
943        zval *_zval;
944        long xa, ya, xb, yb, xc, yc, c = 0;
945        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
946                RETURN_FALSE;
947        }
948        caca_canvas_t *canvas;
949        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
950        RETURN_SUCCESS(caca_fill_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
951}
952
953PHP_FUNCTION(caca_get_frame_count) {
954        zval *_zval;
955        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == 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_LONG(caca_get_canvas_count(canvas));
961}
962
963PHP_FUNCTION(caca_set_frame) {
964        zval *_zval;
965        long id;
966        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
967                RETURN_FALSE;
968        }
969        caca_canvas_t *canvas;
970        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
971        RETURN_SUCCESS(caca_set_frame(canvas, id));
972}
973
974PHP_FUNCTION(caca_set_frame_name) {
975        zval *_zval;
976        char *str;
977        long str_len;
978        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == 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_set_frame_name(canvas, str));
984}
985
986PHP_FUNCTION(caca_create_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_create_frame(canvas, id));
995}
996
997PHP_FUNCTION(caca_free_frame) {
998        zval *_zval;
999        long id;
1000        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
1001                RETURN_FALSE;
1002        }
1003        caca_canvas_t *canvas;
1004        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1005        RETURN_SUCCESS(caca_free_frame(canvas, id));
1006}
1007
1008PHP_FUNCTION(caca_create_dither) {
1009        long bpp, w, h, pitch, rmask, gmask, bmask, amask = 0;
1010        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llllllll", &bpp, &w, &h, &pitch, &rmask, &gmask, &bmask, &amask) == FAILURE) {
1011                RETURN_FALSE;
1012        }
1013        caca_dither_t *dither = caca_create_dither(bpp, w, h, pitch, rmask, gmask, bmask, amask);
1014        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1015}
1016
1017PHP_FUNCTION(caca_create_dither_gd) {
1018        zval *_zval;
1019        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1020                RETURN_FALSE;
1021        }
1022
1023        gdImage *img = fetch_external_resource(_zval, "gd");
1024        if (!img) {
1025                RETURN_FALSE;
1026        }
1027
1028        caca_dither_t *dither;
1029        if (img->trueColor)
1030                dither = caca_create_dither(sizeof(int) * 8, img->sx, img->sy, img->sx * sizeof(int), 0x00ff0000, 0x0000ff00, 0x000000ff, 0x00000000);
1031        else
1032                dither = caca_create_dither(sizeof(char) * 8, img->sx, img->sy, img->sx * sizeof(char), 0, 0, 0, 0);
1033
1034        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1035}
1036
1037PHP_FUNCTION(caca_set_dither_palette) {
1038        zval *zval_res, *arr;
1039        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &arr) == FAILURE) {
1040                RETURN_FALSE;
1041        }
1042
1043        caca_dither_t *dither;
1044        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_dither);
1045
1046        uint32_t tbl[4][256];
1047        zval **color, **value;
1048        int i, j;
1049        for (i = 0; i < 256; i++) {
1050                if (zend_hash_index_find(Z_ARRVAL_P(arr), i, (void**) &color) == FAILURE || Z_TYPE_P(*color) != IS_ARRAY) {
1051                        RETURN_FALSE;
1052                }
1053                for (j = 0; j < 4; j++) {
1054                        if (zend_hash_index_find(Z_ARRVAL_P(*color), j, (void**) &value) == FAILURE) {
1055                                RETURN_FALSE;
1056                        }
1057                        convert_to_long_ex(value);
1058                        tbl[j][i] = Z_LVAL_PP(value);
1059                }
1060        }
1061        RETURN_SUCCESS(caca_set_dither_palette(dither, tbl[0], tbl[1], tbl[2], tbl[3]));
1062}
1063
1064PHP_FUNCTION(caca_set_dither_palette_gd) {
1065        zval *_zval1, *_zval2;
1066        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &_zval1, &_zval2) == FAILURE) {
1067                RETURN_FALSE;
1068        }
1069
1070        caca_dither_t *dither;
1071        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_dither);
1072
1073        gdImage *img = fetch_external_resource(_zval2, "gd");
1074        if (!img || img->trueColor || gdMaxColors != 256) {
1075                RETURN_FALSE;
1076        }
1077
1078        uint32_t r[256], g[256], b[256], a[256];
1079        int i;
1080        for (i = 0; i < 256; i++) {
1081                r[i] = img->red[i] << 4;
1082                g[i] = img->green[i] << 4;
1083                b[i] = img->blue[i] << 4;
1084                a[i] = img->alpha[i] << 4;
1085        }
1086
1087        RETURN_SUCCESS(caca_set_dither_palette(dither, &r[0], &g[0], &b[0], &a[0]));
1088}
1089
1090PHP_FUNCTION(caca_set_dither_brightness) {
1091        zval *_zval;
1092        double value;
1093        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1094                RETURN_FALSE;
1095        }
1096        caca_dither_t *dither;
1097        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1098        RETURN_SUCCESS(caca_set_dither_brightness(dither, value));
1099}
1100
1101PHP_FUNCTION(caca_get_dither_brightness) {
1102        zval *_zval;
1103        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1104                RETURN_FALSE;
1105        }
1106        caca_dither_t *dither;
1107        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1108        RETURN_DOUBLE(caca_get_dither_brightness(dither));
1109}
1110
1111PHP_FUNCTION(caca_set_dither_gamma) {
1112        zval *_zval;
1113        double value;
1114        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == 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_gamma(dither, value));
1120}
1121
1122PHP_FUNCTION(caca_get_dither_gamma) {
1123        zval *_zval;
1124        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1125                RETURN_FALSE;
1126        }
1127        caca_dither_t *dither;
1128        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1129        RETURN_DOUBLE(caca_get_dither_gamma(dither));
1130}
1131
1132PHP_FUNCTION(caca_set_dither_contrast) {
1133        zval *_zval;
1134        double value;
1135        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1136                RETURN_FALSE;
1137        }
1138        caca_dither_t *dither;
1139        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1140        RETURN_SUCCESS(caca_set_dither_contrast(dither, value));
1141}
1142
1143PHP_FUNCTION(caca_get_dither_contrast) {
1144        zval *_zval;
1145        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1146                RETURN_FALSE;
1147        }
1148        caca_dither_t *dither;
1149        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1150        RETURN_DOUBLE(caca_get_dither_contrast(dither));
1151}
1152
1153PHP_FUNCTION(caca_set_dither_antialias) {
1154        zval *_zval;
1155        int str_len;
1156        char *str;
1157        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1158                RETURN_FALSE;
1159        }
1160        caca_dither_t *dither;
1161        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1162        RETURN_SUCCESS(caca_set_dither_antialias(dither, str));
1163}
1164
1165PHP_FUNCTION(caca_get_dither_antialias_list) {
1166        //TODO: write
1167}
1168
1169PHP_FUNCTION(caca_get_dither_antialias) {
1170        zval *_zval;
1171        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1172                RETURN_FALSE;
1173        }
1174        caca_dither_t *dither;
1175        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1176        RETURN_STRING((char *) caca_get_dither_antialias(dither), 1);
1177}
1178
1179PHP_FUNCTION(caca_set_dither_color) {
1180        zval *_zval;
1181        int str_len;
1182        char *str;
1183        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1184                RETURN_FALSE;
1185        }
1186        caca_dither_t *dither;
1187        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1188        RETURN_SUCCESS(caca_set_dither_color(dither, str));
1189}
1190
1191PHP_FUNCTION(caca_get_dither_color_list) {
1192        zval *_zval;
1193        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1194                RETURN_FALSE;
1195        }
1196        caca_dither_t *dither;
1197        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1198
1199        char const * const *list = caca_get_dither_antialias_list(dither);
1200        int i;
1201        array_init(return_value);       
1202        for(i = 0; list[i]; i += 2)
1203                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1204}
1205
1206PHP_FUNCTION(caca_get_dither_color) {
1207        zval *_zval;
1208        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1209                RETURN_FALSE;
1210        }
1211        caca_dither_t *dither;
1212        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1213        RETURN_STRING((char *) caca_get_dither_color(dither), 1);
1214}
1215
1216PHP_FUNCTION(caca_set_dither_charset) {
1217        zval *_zval;
1218        int str_len;
1219        char *str;
1220        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1221                RETURN_FALSE;
1222        }
1223        caca_dither_t *dither;
1224        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1225        RETURN_SUCCESS(caca_set_dither_charset(dither, str));
1226}
1227
1228PHP_FUNCTION(caca_get_dither_charset_list) {
1229        zval *_zval;
1230        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1231                RETURN_FALSE;
1232        }
1233        caca_dither_t *dither;
1234        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1235
1236        char const * const *list = caca_get_dither_charset_list(dither);
1237        int i;
1238        array_init(return_value);       
1239        for(i = 0; list[i]; i += 2)
1240                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1241}
1242
1243PHP_FUNCTION(caca_get_dither_charset) {
1244        zval *_zval;
1245        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1246                RETURN_FALSE;
1247        }
1248        caca_dither_t *dither;
1249        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1250        RETURN_STRING((char *) caca_get_dither_charset(dither), 1);
1251}
1252
1253PHP_FUNCTION(caca_set_dither_algorithm) {
1254        zval *_zval;
1255        int str_len;
1256        char *str;
1257        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1258                RETURN_FALSE;
1259        }
1260        caca_dither_t *dither;
1261        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1262        RETURN_SUCCESS(caca_set_dither_algorithm(dither, str));
1263}
1264
1265PHP_FUNCTION(caca_get_dither_algorithm_list) {
1266        zval *_zval;
1267        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1268                RETURN_FALSE;
1269        }
1270        caca_dither_t *dither;
1271        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1272
1273        char const * const *list = caca_get_dither_algorithm_list(dither);
1274        int i;
1275        array_init(return_value);       
1276        for(i = 0; list[i]; i += 2)
1277                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1278}
1279
1280PHP_FUNCTION(caca_get_dither_algorithm) {
1281        zval *_zval;
1282        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1283                RETURN_FALSE;
1284        }
1285        caca_dither_t *dither;
1286        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1287        RETURN_STRING((char *) caca_get_dither_algorithm(dither), 1);
1288}
1289
1290PHP_FUNCTION(caca_dither_bitmap_gd) {
1291        zval *_zval1, *_zval2, *_zval3;
1292        long x, y, w, h = 0;
1293        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllrr", &_zval1, &x, &y, &w, &h, &_zval2, &_zval3) == FAILURE) {
1294                RETURN_FALSE;
1295        }
1296
1297        caca_canvas_t *canvas;
1298        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1299        caca_dither_t *dither;
1300        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval2, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1301
1302        gdImage *img = fetch_external_resource(_zval3, "gd");
1303        if (!img) {
1304                RETURN_FALSE;
1305        }
1306
1307        void *pixels = gd_get_pixels(img);
1308        if (!pixels) {
1309                RETURN_FALSE;
1310        }
1311
1312        caca_dither_bitmap(canvas, x, y, w, h, dither, pixels);
1313        free(pixels);
1314        RETURN_TRUE;
1315}
1316
1317PHP_FUNCTION(caca_load_font) {
1318        char *str;
1319        long str_len;
1320        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &str, &str_len) == FAILURE) {
1321                RETURN_FALSE;
1322        }
1323        caca_font_t *font = caca_load_font(str, str_len);
1324        ZEND_REGISTER_RESOURCE(return_value, font, le_caca_font);
1325}
1326
1327PHP_FUNCTION(caca_get_font_list) {
1328        char const * const *list = caca_get_font_list();
1329        int i;
1330        array_init(return_value);       
1331        for(i = 0; list[i]; i += 1)
1332                add_next_index_string(return_value, (char*) list[i], 1);
1333}
1334
1335PHP_FUNCTION(caca_get_font_width) {
1336        zval *_zval;
1337        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1338                RETURN_FALSE;
1339        }
1340        caca_font_t *font;
1341        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1342        RETURN_LONG(caca_get_font_width(font));
1343}
1344
1345PHP_FUNCTION(caca_get_font_height) {
1346        zval *_zval;
1347        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1348                RETURN_FALSE;
1349        }
1350        caca_font_t *font;
1351        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1352        RETURN_LONG(caca_get_font_height(font));
1353}
1354
1355PHP_FUNCTION(caca_get_font_blocks) {
1356        zval *_zval;
1357        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1358                RETURN_FALSE;
1359        }
1360        caca_font_t *font;
1361        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1362
1363        uint32_t const *list = caca_get_font_blocks(font);
1364
1365        int i;
1366        array_init(return_value);       
1367        for(i = 0; list[i]; i += 1)
1368                add_next_index_long(return_value, list[i]);
1369}
1370
1371PHP_FUNCTION(caca_render_canvas) {
1372        //TODO: write
1373}
1374
1375PHP_FUNCTION(caca_canvas_set_figfont) {
1376        zval *_zval;
1377        char *font;
1378        long font_len;
1379        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &font, &font_len) == FAILURE) {
1380                RETURN_FALSE;
1381        }
1382        caca_canvas_t *canvas;
1383        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1384        RETURN_SUCCESS(caca_canvas_set_figfont(canvas, font));
1385}
1386
1387PHP_FUNCTION(caca_put_figchar) {
1388        zval *_zval;
1389        long c;
1390        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &c) == FAILURE) {
1391                RETURN_FALSE;
1392        }
1393        caca_canvas_t *canvas;
1394        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1395
1396        RETURN_SUCCESS(caca_put_figchar(canvas, c));
1397}
1398
1399PHP_FUNCTION(caca_flush_figlet) {
1400        zval *_zval;
1401        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1402                RETURN_FALSE;
1403        }
1404        caca_canvas_t *canvas;
1405        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1406        RETURN_SUCCESS(caca_flush_figlet(canvas));
1407}
1408
1409PHP_FUNCTION(caca_file_open) {
1410        char *path, *mode;
1411        long path_len, mode_len;
1412        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &path, &path_len, &mode, &mode_len) == FAILURE) {
1413                RETURN_FALSE;
1414        }
1415        caca_file_t *file = caca_file_open(path, mode);
1416        ZEND_REGISTER_RESOURCE(return_value, file, le_caca_file);
1417}
1418
1419PHP_FUNCTION(caca_file_close) {
1420        zval *_zval;
1421        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1422                RETURN_FALSE;
1423        }
1424        caca_file_t *file;
1425        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1426        //TODO: check that file was not already closed
1427        RETURN_SUCCESS(caca_file_close(file));
1428}
1429
1430PHP_FUNCTION(caca_file_tell) {
1431        zval *_zval;
1432        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1433                RETURN_FALSE;
1434        }
1435        caca_file_t *file;
1436        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1437        RETURN_LONG(caca_file_tell(file));
1438}
1439
1440PHP_FUNCTION(caca_file_read) {
1441        zval *_zval;
1442        long len;
1443        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1444                RETURN_FALSE;
1445        }
1446        caca_file_t *file;
1447        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1448
1449        if (len < 1) {
1450                RETURN_FALSE;
1451        }
1452        char *buffer = emalloc(len);
1453        if (!buffer) {
1454                RETURN_FALSE;
1455        }
1456        caca_file_read(file, buffer, len);
1457
1458        return_value->type = IS_STRING;
1459        return_value->value.str.len = len;
1460        return_value->value.str.val = buffer;
1461}
1462
1463PHP_FUNCTION(caca_file_write) {
1464        zval *_zval;
1465        char *buf;
1466        long buf_len = 0;
1467        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &buf, &buf_len) == FAILURE) {
1468                RETURN_FALSE;
1469        }
1470        caca_file_t *file;
1471        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1472        RETURN_LONG(caca_file_write(file, buf, buf_len));
1473}
1474
1475PHP_FUNCTION(caca_file_gets) {
1476        zval *_zval;
1477        long len = 0;
1478        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1479                RETURN_FALSE;
1480        }
1481        caca_file_t *file;
1482        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1483
1484        if (len < 1) {
1485                RETURN_FALSE;
1486        }
1487        char *buffer = emalloc(len);
1488        if (!buffer) {
1489                RETURN_FALSE;
1490        }
1491        char *result = caca_file_gets(file, buffer, len);
1492        if (!result) {
1493                RETURN_FALSE;
1494        }
1495        return_value->type = IS_STRING;
1496        return_value->value.str.len = len;
1497        return_value->value.str.val = result;
1498}
1499
1500PHP_FUNCTION(caca_file_eof) {
1501        zval *_zval;
1502        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1503                RETURN_FALSE;
1504        }
1505        caca_file_t *file;
1506        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1507        RETURN_BOOL(caca_file_eof(file) != 0);
1508}
1509
1510PHP_FUNCTION(caca_import_string) {
1511        zval *_zval;
1512        char *src, *format;
1513        long src_len, format_len = 0;
1514        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &src, &src_len, &format, &format_len) == FAILURE) {
1515                RETURN_FALSE;
1516        }
1517        caca_canvas_t *canvas;
1518        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1519
1520        RETURN_LONG(caca_import_memory(canvas, src, src_len, format));
1521}
1522
1523PHP_FUNCTION(caca_import_file) {
1524        zval *_zval;
1525        char *filename, *format;
1526        long filename_len, format_len = 0;
1527        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &filename, &filename_len, &format, &format_len) == FAILURE) {
1528                RETURN_FALSE;
1529        }
1530        caca_canvas_t *canvas;
1531        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1532
1533        RETURN_LONG(caca_import_file(canvas, filename, format));
1534}
1535
1536PHP_FUNCTION(caca_get_import_list) {
1537        char const * const *list = caca_get_import_list();
1538        int i;
1539        array_init(return_value);       
1540        for(i = 0; list[i]; i += 2)
1541                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1542}
1543
1544PHP_FUNCTION(caca_export_string) {
1545        zval *_zval;
1546        char *type;
1547        long type_len;
1548        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &type, &type_len) == FAILURE) {
1549                RETURN_FALSE;
1550        }
1551        caca_canvas_t *canvas;
1552        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1553
1554        void *buffer, *copy;
1555        size_t len;
1556        buffer = caca_export_memory(canvas, type, &len);
1557        copy = emalloc(len);
1558        if (!buffer || !copy) {
1559                RETURN_FALSE;
1560        }
1561        memcpy(copy, buffer, len);
1562        free(buffer);
1563
1564        return_value->type = IS_STRING;
1565        return_value->value.str.len = len;
1566        return_value->value.str.val = copy;
1567}
1568
1569PHP_FUNCTION(caca_get_export_list) {
1570        char const * const *list = caca_get_export_list();
1571        int i;
1572        array_init(return_value);       
1573        for(i = 0; list[i]; i += 2)
1574                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1575}
1576
1577PHP_FUNCTION(caca_create_display) {
1578        caca_canvas_t *canvas;
1579        FETCH_CANVAS(canvas);
1580
1581        caca_display_t *display = caca_create_display(canvas);
1582        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1583}
1584
1585PHP_FUNCTION(caca_create_display_with_driver) {
1586        zval *_zval;
1587        char *str;
1588        long str_len = 0;
1589        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1590                RETURN_FALSE;
1591        }
1592        caca_canvas_t *canvas;
1593        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1594
1595        caca_display_t *display = caca_create_display_with_driver(canvas, str);
1596        if (!display) {
1597                RETURN_FALSE;
1598        }
1599        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1600}
1601
1602PHP_FUNCTION(caca_get_display_driver_list) {
1603        char const * const *list = caca_get_display_driver_list();
1604        int i;
1605        array_init(return_value);       
1606        for(i = 0; list[i]; i += 2)
1607                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1608}
1609
1610PHP_FUNCTION(caca_get_display_driver) {
1611        zval *_zval;
1612        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1613                RETURN_FALSE;
1614        }
1615        caca_display_t *display;
1616        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1617        RETURN_STRING((char *) caca_get_display_driver(display), 1);
1618}
1619
1620PHP_FUNCTION(caca_set_display_driver) {
1621        zval *_zval;
1622        char *str;
1623        long str_len;
1624        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1625                RETURN_FALSE;
1626        }
1627        caca_display_t *display;
1628        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1629        RETURN_SUCESS(caca_set_display_driver(display, str));
1630}
1631
1632PHP_FUNCTION(caca_get_canvas) {
1633        zval *_zval;
1634        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1635                RETURN_FALSE;
1636        }
1637        caca_display_t *display;
1638        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1639        caca_canvas_t *canvas = caca_get_canvas(display);
1640        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
1641}
1642
1643PHP_FUNCTION(caca_refresh_display) {
1644        caca_display_t *display;
1645        FETCH_DISPLAY(display);
1646        RETURN_SUCCESS(caca_refresh_display(display));
1647}
1648
1649PHP_FUNCTION(caca_set_display_time) {
1650        zval *_zval;
1651        long value = 0;
1652        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1653                RETURN_FALSE;
1654        }
1655        caca_display_t *display;
1656        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1657        RETURN_SUCCESS(caca_set_display_time(display, value));
1658}
1659
1660PHP_FUNCTION(caca_get_display_time) {
1661        caca_display_t *display;
1662        FETCH_DISPLAY(display);
1663        RETURN_LONG(caca_get_display_time(display));
1664}
1665
1666PHP_FUNCTION(caca_get_display_width) {
1667        caca_display_t *display;
1668        FETCH_DISPLAY(display);
1669        RETURN_LONG(caca_get_display_width(display));
1670}
1671
1672PHP_FUNCTION(caca_get_display_height) {
1673        caca_display_t *display;
1674        FETCH_DISPLAY(display);
1675        RETURN_LONG(caca_get_display_height(display));
1676}
1677
1678PHP_FUNCTION(caca_set_display_title) {
1679        zval *_zval;
1680        char *str;
1681        long str_len = 0;
1682        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1683                RETURN_FALSE;
1684        }
1685        caca_display_t *display;
1686        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1687        RETURN_SUCCESS(caca_set_display(display, str));
1688}
1689
1690PHP_FUNCTION(caca_set_mouse) {
1691        zval *_zval;
1692        long value = 0;
1693        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1694                RETURN_FALSE;
1695        }
1696        caca_display_t *display;
1697        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1698        RETURN_SUCCESS(caca_set_mouse(display, value));
1699}
1700
1701PHP_FUNCTION(caca_set_cursor) {
1702        zval *_zval;
1703        long value = 0;
1704        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1705                RETURN_FALSE;
1706        }
1707        caca_display_t *display;
1708        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1709        RETURN_SUCCESS(caca_set_cursor(display, value));
1710}
1711
1712PHP_FUNCTION(caca_get_event) {
1713        zval *_zval = NULL;
1714        long g, aa = 0;
1715        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|l", &_zval, &g, &aa) == FAILURE) {
1716                RETURN_FALSE;
1717        }
1718        caca_display_t *display;
1719        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1720
1721        caca_event_t *event = emalloc(sizeof(caca_event_t));
1722        if (!event) {
1723                RETURN_FALSE;
1724        }
1725
1726        caca_get_event(display, g, event, aa);
1727
1728        if (caca_get_event_type(event) == CACA_EVENT_NONE) {
1729                efree(event);   
1730                RETURN_FALSE;
1731        }
1732        ZEND_REGISTER_RESOURCE(return_value, event, le_caca_event);
1733}
1734
1735PHP_FUNCTION(caca_get_mouse_x) {
1736        caca_display_t *display;
1737        FETCH_DISPLAY(display);
1738        RETURN_LONG(caca_get_mouse_x(display));
1739}
1740
1741PHP_FUNCTION(caca_get_mouse_y) {
1742        caca_display_t *display;
1743        FETCH_DISPLAY(display);
1744        RETURN_LONG(caca_get_mouse_y(display));
1745}
1746
1747PHP_FUNCTION(caca_get_event_type) {
1748        caca_event_t *event;
1749        FETCH_EVENT(event);
1750        RETURN_LONG(caca_get_event_type(event));
1751}
1752
1753PHP_FUNCTION(caca_get_event_key_ch) {
1754        caca_event_t *event;
1755        FETCH_EVENT(event);
1756        RETURN_LONG(caca_get_event_key_ch(event));
1757}
1758
1759PHP_FUNCTION(caca_get_event_mouse_button) {
1760        caca_event_t *event;
1761        FETCH_EVENT(event);
1762        RETURN_LONG(caca_get_event_mouse_button(event));
1763}
1764
1765PHP_FUNCTION(caca_get_event_mouse_x) {
1766        caca_event_t *event;
1767        FETCH_EVENT(event);
1768        RETURN_LONG(caca_get_event_mouse_x(event));
1769}
1770
1771PHP_FUNCTION(caca_get_event_mouse_y) {
1772        caca_event_t *event;
1773        FETCH_EVENT(event);
1774        RETURN_LONG(caca_get_event_mouse_y(event));
1775}
1776
1777PHP_FUNCTION(caca_get_event_resize_width) {
1778        caca_event_t *event;
1779        FETCH_EVENT(event);
1780        RETURN_LONG(caca_get_event_resize_width(event));
1781}
1782
1783PHP_FUNCTION(caca_get_event_resize_height) {
1784        caca_event_t *event;
1785        FETCH_EVENT(event);
1786        RETURN_LONG(caca_get_event_resize_height(event));
1787}
1788
Note: See TracBrowser for help on using the repository browser.