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

Last change on this file since 3151 was 3151, checked in by nico, 11 years ago
  • Add destructor for "caca_file" resources
File size: 57.8 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_set_dither_palette, NULL)
89        PHP_FE(caca_set_dither_brightness, NULL)
90        PHP_FE(caca_get_dither_brightness, NULL)
91        PHP_FE(caca_set_dither_gamma, NULL)
92        PHP_FE(caca_get_dither_gamma, NULL)
93        PHP_FE(caca_set_dither_contrast, NULL)
94        PHP_FE(caca_get_dither_contrast, NULL)
95        PHP_FE(caca_set_dither_antialias, NULL)
96        PHP_FE(caca_get_dither_antialias_list, NULL)
97        PHP_FE(caca_get_dither_antialias, NULL)
98        PHP_FE(caca_set_dither_color, NULL)
99        PHP_FE(caca_get_dither_color_list, NULL)
100        PHP_FE(caca_get_dither_color, NULL)
101        PHP_FE(caca_set_dither_charset, NULL)
102        PHP_FE(caca_get_dither_charset_list, NULL)
103        PHP_FE(caca_get_dither_charset, NULL)
104        PHP_FE(caca_set_dither_algorithm, NULL)
105        PHP_FE(caca_get_dither_algorithm_list, NULL)
106        PHP_FE(caca_get_dither_algorithm, NULL)
107        PHP_FE(caca_dither_bitmap, NULL)
108        PHP_FE(caca_load_font, NULL)
109        PHP_FE(caca_load_builtin_font, NULL)
110        PHP_FE(caca_get_font_list, NULL)
111        PHP_FE(caca_get_font_width, NULL)
112        PHP_FE(caca_get_font_height, NULL)
113        PHP_FE(caca_get_font_blocks, NULL)
114        PHP_FE(caca_render_canvas, NULL)
115        PHP_FE(caca_canvas_set_figfont, NULL)
116        PHP_FE(caca_put_figchar, NULL)
117        PHP_FE(caca_flush_figlet, NULL)
118        PHP_FE(caca_file_open, NULL)
119        PHP_FE(caca_file_close, NULL)
120        PHP_FE(caca_file_tell, NULL)
121        PHP_FE(caca_file_read, NULL)
122        PHP_FE(caca_file_write, NULL)
123        PHP_FE(caca_file_gets, NULL)
124        PHP_FE(caca_file_eof, NULL)
125        PHP_FE(caca_import_string, NULL)
126        PHP_FE(caca_import_file, NULL)
127        PHP_FE(caca_get_import_list, NULL)
128        PHP_FE(caca_export_string, NULL)
129        PHP_FE(caca_get_export_list, NULL)
130        PHP_FE(caca_create_display, NULL)
131        PHP_FE(caca_create_display_with_driver, NULL)
132        PHP_FE(caca_get_display_driver_list, NULL)
133        PHP_FE(caca_get_display_driver, NULL)
134        PHP_FE(caca_set_display_driver, NULL)
135        PHP_FE(caca_get_canvas, NULL)
136        PHP_FE(caca_refresh_display, NULL)
137        PHP_FE(caca_set_display_time, NULL)
138        PHP_FE(caca_get_display_time, NULL)
139        PHP_FE(caca_get_display_width, NULL)
140        PHP_FE(caca_get_display_height, NULL)
141        PHP_FE(caca_set_display_title, NULL)
142        PHP_FE(caca_set_mouse, NULL)
143        PHP_FE(caca_set_cursor, NULL)
144        PHP_FE(caca_get_event, NULL)
145        PHP_FE(caca_get_mouse_x, NULL)
146        PHP_FE(caca_get_mouse_y, NULL)
147        PHP_FE(caca_get_event_type, NULL)
148        PHP_FE(caca_get_event_key_ch, NULL)
149        PHP_FE(caca_get_event_mouse_button, NULL)
150        PHP_FE(caca_get_event_mouse_x, NULL)
151        PHP_FE(caca_get_event_mouse_y, NULL)
152        PHP_FE(caca_get_event_resize_width, NULL)
153        PHP_FE(caca_get_event_resize_height, NULL)
154
155        {NULL, NULL, NULL}
156};
157
158zend_module_entry caca_module_entry = {
159#if ZEND_MODULE_API_NO >= 20010901
160        STANDARD_MODULE_HEADER,
161#endif
162        PHP_CACA_EXTNAME,
163        caca_functions,
164        PHP_MINIT(caca),
165        NULL,
166        NULL,
167        NULL,
168        PHP_MINFO(caca),
169#if ZEND_MODULE_API_NO >= 20010901
170        PHP_CACA_VERSION,
171#endif
172        STANDARD_MODULE_PROPERTIES
173};
174
175#ifdef COMPILE_DL_CACA
176ZEND_GET_MODULE(caca)
177#endif
178
179PHP_MINFO_FUNCTION(caca) {
180        php_info_print_table_start();
181        php_info_print_table_row(2, "Caca library version", caca_get_version());
182        php_info_print_table_end();
183}
184
185//-------- Caca's ressources destructors -----------//
186
187static void php_caca_canvas_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
188        caca_free_canvas(rsrc->ptr);
189}
190
191static void php_caca_dither_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
192        caca_free_dither(rsrc->ptr);
193}
194
195static void php_caca_font_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
196        caca_free_font(rsrc->ptr);
197}
198
199static void php_caca_file_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC) {
200        caca_file_close(rsrc->ptr);
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        void *result;
366        int j, pitch;           
367        if (img->trueColor)  {
368                pitch = img->sx * sizeof(int);
369                result = malloc(img->sy * pitch);
370                for (j = 0; j < img->sy; j++)
371                        memcpy(result + (j * pitch), (const void *) img->tpixels[j], pitch);
372        }
373        else {
374                pitch = img->sx * sizeof(char);
375                result = malloc(img->sy * pitch);
376                for (j = 0; j < img->sy; j++)
377                        memcpy(result + (j * pitch), (const void *) img->pixels[j], pitch);
378        }
379        return result;
380}
381
382int gd_load_palette(gdImage *img, caca_dither_t *dither) {
383        if (!img || img->trueColor || gdMaxColors != 256) {
384                return -1;
385        }
386
387        uint32_t r[256], g[256], b[256], a[256];
388        int i;
389        for (i = 0; i < 256; i++) {
390                r[i] = img->red[i] << 4;
391                g[i] = img->green[i] << 4;
392                b[i] = img->blue[i] << 4;
393                a[i] = img->alpha[i] << 4;
394        }
395
396        return caca_set_dither_palette(dither, &r[0], &g[0], &b[0], &a[0]);
397}
398
399//------- Caca's functions ----------------//
400
401PHP_FUNCTION(caca_create_canvas) {
402        long width, height = 0;
403        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &width, &height) == FAILURE) {
404                RETURN_FALSE;
405        }
406        caca_canvas_t *canvas = caca_create_canvas(width, height);
407        if (!canvas) {
408                RETURN_FALSE;
409        }
410        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
411}
412
413PHP_FUNCTION(caca_set_canvas_size) {
414        zval *_zval;
415        long width, height = 0;
416        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &width, &height) == FAILURE) {
417                RETURN_FALSE;
418        }
419        caca_canvas_t *canvas;
420        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
421        RETURN_SUCCESS(caca_set_canvas_size(canvas, width, height));
422}
423
424PHP_FUNCTION(caca_get_canvas_width) {
425        caca_canvas_t *canvas;
426        FETCH_CANVAS(canvas);
427        RETURN_LONG(caca_get_canvas_width(canvas));
428}
429
430PHP_FUNCTION(caca_get_canvas_height) {
431        caca_canvas_t *canvas;
432        FETCH_CANVAS(canvas);
433        RETURN_LONG(caca_get_canvas_height(canvas));
434}
435
436PHP_FUNCTION(caca_get_canvas_chars) {
437        caca_canvas_t *canvas;
438        FETCH_CANVAS(canvas);
439        RETURN_STRING((char *) caca_get_canvas_chars(canvas), 1);
440}
441
442PHP_FUNCTION(caca_get_canvas_attrs) {
443        caca_canvas_t *canvas;
444        FETCH_CANVAS(canvas);
445        RETURN_STRING((char *) caca_get_canvas_attrs(canvas), 1);
446}
447
448PHP_FUNCTION(caca_rand) {
449        long min, max = 0;
450        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &min, &max) == FAILURE) {
451                RETURN_FALSE;
452        }
453        RETURN_LONG(caca_rand(min, max));
454}
455
456PHP_FUNCTION(caca_get_version) {
457        RETURN_STRING((char *) caca_get_version(), 1);
458}
459
460PHP_FUNCTION(caca_gotoxy) {
461        zval *_zval;
462        long x, y = 0;
463        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
464                RETURN_FALSE;
465        }
466        caca_canvas_t *canvas;
467        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
468        RETURN_SUCCESS(caca_gotoxy(canvas, x, y));
469}
470
471PHP_FUNCTION(caca_get_cursor_x) {
472        caca_canvas_t *canvas;
473        FETCH_CANVAS(canvas);
474        RETURN_LONG(caca_get_cursor_x(canvas));
475}
476
477PHP_FUNCTION(caca_get_cursor_y) {
478        caca_canvas_t *canvas;
479        FETCH_CANVAS(canvas);
480        RETURN_LONG(caca_get_cursor_y(canvas));
481}
482
483PHP_FUNCTION(caca_put_char) {
484        zval *_zval;
485        long x, y, c;
486        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &c) == 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_SUCCESS(caca_put_char(canvas, x, y, c));
492}
493
494PHP_FUNCTION(caca_get_char) {
495        zval *_zval;
496        long x, y = 0;
497        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
498                RETURN_FALSE;
499        }
500        caca_canvas_t *canvas;
501        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
502        RETURN_CHAR(caca_get_char(canvas, x, y));
503}
504
505PHP_FUNCTION(caca_put_str) {
506        zval *_zval;
507        char *str;
508        long x, y, str_len = 0;
509        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlls", &_zval, &x, &y, &str, &str_len) == FAILURE) {
510                RETURN_FALSE;
511        }
512        caca_canvas_t *canvas;
513        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
514        RETURN_SUCCESS(caca_put_str(canvas, x, y, str));
515}
516
517PHP_FUNCTION(caca_clear_canvas) {
518        caca_canvas_t *canvas;
519        FETCH_CANVAS(canvas);
520        RETURN_LONG(caca_clear_canvas(canvas));
521}
522
523PHP_FUNCTION(caca_set_canvas_handle) {
524        zval *_zval;
525        long x, y = 0;
526        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
527                RETURN_FALSE;
528        }
529        caca_canvas_t *canvas;
530        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
531        RETURN_SUCCESS(caca_set_canvas_handle(canvas, x, y));
532}
533
534PHP_FUNCTION(caca_get_canvas_handle_x) {
535        caca_canvas_t *canvas;
536        FETCH_CANVAS(canvas);
537        RETURN_LONG(caca_get_canvas_handle_x(canvas));
538}
539
540PHP_FUNCTION(caca_get_canvas_handle_y) {
541        caca_canvas_t *canvas;
542        FETCH_CANVAS(canvas);
543        RETURN_LONG(caca_get_canvas_handle_y(canvas));
544}
545
546PHP_FUNCTION(caca_blit) {
547        zval *_zval1, *_zval2, *_zval3 = NULL;
548        long x, y = 0;
549        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllr|r", &_zval1, &x, &y, &_zval2, &_zval3) == FAILURE) {
550                RETURN_FALSE;
551        }
552        caca_canvas_t *dst, *src, *mask = NULL;
553        ZEND_FETCH_RESOURCE(dst, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
554        ZEND_FETCH_RESOURCE(src, caca_canvas_t*, &_zval2, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
555        if (_zval3) {
556                ZEND_FETCH_RESOURCE(mask, caca_canvas_t*, &_zval3, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
557        }
558        RETURN_SUCCESS(caca_blit(dst, x, y, src, NULL));
559}
560
561PHP_FUNCTION(caca_set_canvas_boundaries) {
562        zval *_zval;
563        long x, y, width, height = 0;
564        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &width, &height) == FAILURE) {
565                RETURN_FALSE;
566        }
567        caca_canvas_t *canvas;
568        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
569        RETURN_SUCCESS(caca_set_canvas_boundaries(canvas, x, y, width, height));
570}
571
572PHP_FUNCTION(caca_invert) {
573        caca_canvas_t *canvas;
574        FETCH_CANVAS(canvas);
575        RETURN_SUCCESS(caca_invert(canvas));
576}
577
578PHP_FUNCTION(caca_flip) {
579        caca_canvas_t *canvas;
580        FETCH_CANVAS(canvas);
581        RETURN_SUCCESS(caca_flip(canvas));
582}
583
584PHP_FUNCTION(caca_flop) {
585        caca_canvas_t *canvas;
586        FETCH_CANVAS(canvas);
587        RETURN_SUCCESS(caca_flop(canvas));
588}
589
590PHP_FUNCTION(caca_rotate_180) {
591        caca_canvas_t *canvas;
592        FETCH_CANVAS(canvas);
593        RETURN_SUCCESS(caca_rotate_180(canvas));
594}
595
596PHP_FUNCTION(caca_rotate_left) {
597        caca_canvas_t *canvas;
598        FETCH_CANVAS(canvas);
599        RETURN_SUCCESS(caca_rotate_left(canvas));
600}
601
602PHP_FUNCTION(caca_rotate_right) {
603        caca_canvas_t *canvas;
604        FETCH_CANVAS(canvas);
605        RETURN_SUCCESS(caca_rotate_right(canvas));
606}
607
608PHP_FUNCTION(caca_stretch_left) {
609        caca_canvas_t *canvas;
610        FETCH_CANVAS(canvas);
611        RETURN_SUCCESS(caca_stretch_left(canvas));
612}
613
614PHP_FUNCTION(caca_stretch_right) {
615        caca_canvas_t *canvas;
616        FETCH_CANVAS(canvas);
617        RETURN_SUCCESS(caca_stretch_right(canvas));
618}
619
620PHP_FUNCTION(caca_get_attr) {
621        zval *_zval;
622        long x, y = 0;
623        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == 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_LONG(caca_get_attr(canvas, x, y));
629}
630
631PHP_FUNCTION(caca_set_attr) {
632        zval *_zval;
633        long attr = 0;
634        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &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_set_attr(canvas, attr));
640}
641
642PHP_FUNCTION(caca_put_attr) {
643        zval *_zval;
644        long x, y, attr = 0;
645        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &attr) == 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_put_attr(canvas, x, y, attr));
651}
652
653PHP_FUNCTION(caca_set_color_ansi) {
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_ansi(canvas, foreground, background));
662}
663
664PHP_FUNCTION(caca_set_color_argb) {
665        zval *_zval;
666        long foreground, background = 0;
667        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
668                RETURN_FALSE;
669        }
670        caca_canvas_t *canvas;
671        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
672        RETURN_SUCCESS(caca_set_color_argb(canvas, foreground, background));
673}
674
675PHP_FUNCTION(caca_attr_to_ansi) {
676        long l;
677        FETCH_LONG(l);
678        RETURN_LONG(caca_attr_to_ansi(l));
679}
680
681PHP_FUNCTION(caca_attr_to_ansi_fg) {
682        long l;
683        FETCH_LONG(l);
684        RETURN_LONG(caca_attr_to_ansi_fg(l));
685}
686
687PHP_FUNCTION(caca_attr_to_ansi_bg) {
688        long l;
689        FETCH_LONG(l);
690        RETURN_LONG(caca_attr_to_ansi_bg(l));
691}
692
693PHP_FUNCTION(caca_attr_to_rgb12_fg) {
694        long l;
695        FETCH_LONG(l);
696        RETURN_LONG(caca_attr_to_rgb12_fg(l));
697}
698
699PHP_FUNCTION(caca_attr_to_rgb12_bg) {
700        long l;
701        FETCH_LONG(l);
702        RETURN_LONG(caca_attr_to_rgb12_bg(l));
703}
704
705PHP_FUNCTION(caca_attr_to_argb64) {
706        //TODO: write or delete
707}
708
709PHP_FUNCTION(caca_utf8_to_utf32) {
710        //TODO: write or delete
711}
712
713PHP_FUNCTION(caca_utf32_to_utf8) {
714        //TODO: write or delete
715}
716
717PHP_FUNCTION(caca_utf32_to_cp437) {
718        long l;
719        FETCH_LONG(l);
720        RETURN_LONG(caca_utf32_to_cp437(l));
721}
722
723PHP_FUNCTION(caca_cp437_to_utf32) {
724        long l;
725        FETCH_LONG(l);
726        RETURN_LONG(caca_cp437_to_utf32(l));
727}
728
729PHP_FUNCTION(caca_utf32_to_ascii) {
730        long l;
731        FETCH_LONG(l);
732        RETURN_CHAR(caca_utf32_to_ascii(l));
733}
734
735PHP_FUNCTION(caca_utf32_is_fullwidth) {
736}
737
738PHP_FUNCTION(caca_draw_line) {
739        zval *_zval;
740        long xa, ya, xb, yb, c;
741        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
742                RETURN_FALSE;
743        }
744        caca_canvas_t *canvas;
745        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
746        RETURN_SUCCESS(caca_draw_line(canvas, xa, ya, xb, yb, c));
747}
748
749PHP_FUNCTION(caca_draw_polyline) {
750        zval *zval_res, *zval_arr;
751        long c;
752
753        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ral", &zval_res, &zval_arr, &c) == FAILURE) {
754                RETURN_FALSE;
755        }
756
757        caca_canvas_t *canvas;
758        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
759
760        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
761        int lenmax = zend_hash_num_elements(arr_hash);
762        int *tbl_x, *tbl_y;
763        int tbl_count = 0;
764        tbl_x = malloc(sizeof(int) * lenmax);
765        tbl_y = malloc(sizeof(int) * lenmax);
766       
767        HashPosition pos;
768        zval **pt, **x, **y;
769        for (
770                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
771                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
772                zend_hash_move_forward_ex(arr_hash, &pos)
773        ) {
774                if (
775                        Z_TYPE_P(*pt) == IS_ARRAY
776                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
777                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
778                ) {
779                        convert_to_long_ex(x);
780                        convert_to_long_ex(y);
781                        tbl_x[tbl_count] = Z_LVAL_PP(x);
782                        tbl_y[tbl_count] = Z_LVAL_PP(y);
783                        tbl_count++;
784                }
785        }
786        int res = caca_draw_polyline(canvas, tbl_x, tbl_y, tbl_count - 1, c);
787        free(tbl_x);
788        free(tbl_y);
789        RETURN_SUCCESS(res);
790}
791
792PHP_FUNCTION(caca_draw_thin_line) {
793        zval *_zval;
794        long xa, ya, xb, yb = 0;
795        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
796                RETURN_FALSE;
797        }
798        caca_canvas_t *canvas;
799        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
800        RETURN_SUCCESS(caca_draw_thin_line(canvas, xa, ya, xb, yb));
801}
802
803PHP_FUNCTION(caca_draw_thin_polyline) {
804        zval *zval_res, *zval_arr;
805        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &zval_arr) == FAILURE) {
806                RETURN_FALSE;
807        }
808
809        caca_canvas_t *canvas;
810        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
811
812        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
813        int lenmax = zend_hash_num_elements(arr_hash);
814        int *tbl_x, *tbl_y;
815        int tbl_count = 0;
816        tbl_x = malloc(sizeof(int) * lenmax);
817        tbl_y = malloc(sizeof(int) * lenmax);
818
819        if (!tbl_x || !tbl_y) {
820                RETURN_FALSE;
821        }
822       
823        HashPosition pos;
824        zval **pt, **x, **y;
825        for (
826                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
827                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
828                zend_hash_move_forward_ex(arr_hash, &pos)
829        ) {
830                if (
831                        Z_TYPE_P(*pt) == IS_ARRAY
832                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
833                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
834                ) {
835                        convert_to_long_ex(x);
836                        convert_to_long_ex(y);
837                        tbl_x[tbl_count] = Z_LVAL_PP(x);
838                        tbl_y[tbl_count] = Z_LVAL_PP(y);
839                        tbl_count++;
840                }
841        }
842        int res = caca_draw_thin_polyline(canvas, tbl_x, tbl_y, tbl_count - 1);
843        free(tbl_x);
844        free(tbl_y);
845        RETURN_SUCCESS(res);
846}
847
848PHP_FUNCTION(caca_draw_circle) {
849        zval *_zval;
850        long x, y, r, c;
851        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &r, &c) == FAILURE) {
852                RETURN_FALSE;
853        }
854        caca_canvas_t *canvas;
855        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
856        RETURN_SUCCESS(caca_draw_circle(canvas, x, y, r, c));
857}
858
859PHP_FUNCTION(caca_draw_ellipse) {
860        zval *_zval;
861        long xa, ya, xb, yb, c = 0;
862        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
863                RETURN_FALSE;
864        }
865        caca_canvas_t *canvas;
866        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
867        RETURN_SUCCESS(caca_draw_ellipse(canvas, xa, ya, xb, yb, c));
868}
869
870PHP_FUNCTION(caca_draw_thin_ellipse) {
871        zval *_zval;
872        long xa, ya, xb, yb = 0;
873        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
874                RETURN_FALSE;
875        }
876        caca_canvas_t *canvas;
877        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
878        RETURN_SUCCESS(caca_draw_thin_ellipse(canvas, xa, ya, xb, yb));
879}
880
881PHP_FUNCTION(caca_fill_ellipse) {
882        zval *_zval;
883        long xa, ya, xb, yb, c;
884        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
885                RETURN_FALSE;
886        }
887        caca_canvas_t *canvas;
888        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
889        RETURN_SUCCESS(caca_fill_ellipse(canvas, xa, ya, xb, yb, c));
890}
891
892PHP_FUNCTION(caca_draw_box) {
893        zval *_zval;
894        long xa, ya, xb, yb, c;
895        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
896                RETURN_FALSE;
897        }
898        caca_canvas_t *canvas;
899        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
900        RETURN_SUCCESS(caca_draw_box(canvas, xa, ya, xb, yb, c));
901}
902
903PHP_FUNCTION(caca_draw_thin_box) {
904        zval *_zval;
905        long xa, ya, xb, yb = 0;
906        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
907                RETURN_FALSE;
908        }
909        caca_canvas_t *canvas;
910        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
911        RETURN_SUCCESS(caca_draw_thin_box(canvas, xa, ya, xb, yb));
912}
913
914PHP_FUNCTION(caca_draw_cp437_box) {
915        zval *_zval;
916        long xa, ya, xb, yb;
917        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
918                RETURN_FALSE;
919        }
920        caca_canvas_t *canvas;
921        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
922        RETURN_SUCCESS(caca_draw_cp437_box(canvas, xa, ya, xb, yb));
923}
924
925PHP_FUNCTION(caca_fill_box) {
926        zval *_zval;
927        long xa, ya, xb, yb, c;
928        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
929                RETURN_FALSE;
930        }
931        caca_canvas_t *canvas;
932        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
933        RETURN_SUCCESS(caca_fill_box(canvas, xa, ya, xb, yb, c));
934}
935
936PHP_FUNCTION(caca_draw_triangle) {
937        zval *_zval;
938        long xa, ya, xb, yb, xc, yc, c;
939        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
940                RETURN_FALSE;
941        }
942        caca_canvas_t *canvas;
943        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
944        RETURN_SUCCESS(caca_draw_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
945}
946
947PHP_FUNCTION(caca_draw_thin_triangle) {
948        zval *_zval;
949        long xa, ya, xb, yb, xc, yc = 0;
950        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc) == FAILURE) {
951                RETURN_FALSE;
952        }
953        caca_canvas_t *canvas;
954        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
955        RETURN_SUCCESS(caca_draw_thin_triangle(canvas, xa, ya, xb, yb, xc, yc));
956}
957
958PHP_FUNCTION(caca_fill_triangle) {
959        zval *_zval;
960        long xa, ya, xb, yb, xc, yc, c = 0;
961        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
962                RETURN_FALSE;
963        }
964        caca_canvas_t *canvas;
965        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
966        RETURN_SUCCESS(caca_fill_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
967}
968
969PHP_FUNCTION(caca_get_frame_count) {
970        zval *_zval;
971        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
972                RETURN_FALSE;
973        }
974        caca_canvas_t *canvas;
975        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
976        RETURN_LONG(caca_get_canvas_count(canvas));
977}
978
979PHP_FUNCTION(caca_set_frame) {
980        zval *_zval;
981        long id;
982        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
983                RETURN_FALSE;
984        }
985        caca_canvas_t *canvas;
986        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
987        RETURN_SUCCESS(caca_set_frame(canvas, id));
988}
989
990PHP_FUNCTION(caca_set_frame_name) {
991        zval *_zval;
992        char *str;
993        long str_len;
994        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
995                RETURN_FALSE;
996        }
997        caca_canvas_t *canvas;
998        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
999        RETURN_SUCCESS(caca_set_frame_name(canvas, str));
1000}
1001
1002PHP_FUNCTION(caca_create_frame) {
1003        zval *_zval;
1004        long id;
1005        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
1006                RETURN_FALSE;
1007        }
1008        caca_canvas_t *canvas;
1009        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1010        RETURN_SUCCESS(caca_create_frame(canvas, id));
1011}
1012
1013PHP_FUNCTION(caca_free_frame) {
1014        zval *_zval;
1015        long id;
1016        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
1017                RETURN_FALSE;
1018        }
1019        caca_canvas_t *canvas;
1020        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1021        RETURN_SUCCESS(caca_free_frame(canvas, id));
1022}
1023
1024PHP_FUNCTION(caca_create_dither) {
1025        zval *_zval;
1026        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1027                RETURN_FALSE;
1028        }
1029
1030        gdImage *img = fetch_external_resource(_zval, "gd");
1031        if (!img) {
1032                RETURN_FALSE;
1033        }
1034
1035        caca_dither_t *dither;
1036        if (img->trueColor)
1037                dither = caca_create_dither(sizeof(int) * 8, img->sx, img->sy, img->sx * sizeof(int), 0x00ff0000, 0x0000ff00, 0x000000ff, 0x00000000);
1038        else
1039                dither = caca_create_dither(sizeof(char) * 8, img->sx, img->sy, img->sx * sizeof(char), 0, 0, 0, 0);
1040
1041        if (!dither) {
1042                RETURN_FALSE;
1043        }
1044
1045        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1046}
1047
1048PHP_FUNCTION(caca_set_dither_palette) {
1049        zval *zval_res, *arr;
1050        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &arr) == FAILURE) {
1051                RETURN_FALSE;
1052        }
1053
1054        caca_dither_t *dither;
1055        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_dither);
1056
1057        uint32_t tbl[4][256];
1058        zval **color, **value;
1059        int i, j;
1060        for (i = 0; i < 256; i++) {
1061                if (zend_hash_index_find(Z_ARRVAL_P(arr), i, (void**) &color) == FAILURE || Z_TYPE_P(*color) != IS_ARRAY) {
1062                        RETURN_FALSE;
1063                }
1064                for (j = 0; j < 4; j++) {
1065                        if (zend_hash_index_find(Z_ARRVAL_P(*color), j, (void**) &value) == FAILURE) {
1066                                RETURN_FALSE;
1067                        }
1068                        convert_to_long_ex(value);
1069                        tbl[j][i] = Z_LVAL_PP(value);
1070                }
1071        }
1072        RETURN_SUCCESS(caca_set_dither_palette(dither, tbl[0], tbl[1], tbl[2], tbl[3]));
1073}
1074
1075PHP_FUNCTION(caca_set_dither_brightness) {
1076        zval *_zval;
1077        double value;
1078        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1079                RETURN_FALSE;
1080        }
1081        caca_dither_t *dither;
1082        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1083        RETURN_SUCCESS(caca_set_dither_brightness(dither, value));
1084}
1085
1086PHP_FUNCTION(caca_get_dither_brightness) {
1087        zval *_zval;
1088        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1089                RETURN_FALSE;
1090        }
1091        caca_dither_t *dither;
1092        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1093        RETURN_DOUBLE(caca_get_dither_brightness(dither));
1094}
1095
1096PHP_FUNCTION(caca_set_dither_gamma) {
1097        zval *_zval;
1098        double value;
1099        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1100                RETURN_FALSE;
1101        }
1102        caca_dither_t *dither;
1103        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1104        RETURN_SUCCESS(caca_set_dither_gamma(dither, value));
1105}
1106
1107PHP_FUNCTION(caca_get_dither_gamma) {
1108        zval *_zval;
1109        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1110                RETURN_FALSE;
1111        }
1112        caca_dither_t *dither;
1113        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1114        RETURN_DOUBLE(caca_get_dither_gamma(dither));
1115}
1116
1117PHP_FUNCTION(caca_set_dither_contrast) {
1118        zval *_zval;
1119        double value;
1120        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1121                RETURN_FALSE;
1122        }
1123        caca_dither_t *dither;
1124        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1125        RETURN_SUCCESS(caca_set_dither_contrast(dither, value));
1126}
1127
1128PHP_FUNCTION(caca_get_dither_contrast) {
1129        zval *_zval;
1130        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1131                RETURN_FALSE;
1132        }
1133        caca_dither_t *dither;
1134        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1135        RETURN_DOUBLE(caca_get_dither_contrast(dither));
1136}
1137
1138PHP_FUNCTION(caca_set_dither_antialias) {
1139        zval *_zval;
1140        int str_len;
1141        char *str;
1142        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1143                RETURN_FALSE;
1144        }
1145        caca_dither_t *dither;
1146        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1147        RETURN_SUCCESS(caca_set_dither_antialias(dither, str));
1148}
1149
1150PHP_FUNCTION(caca_get_dither_antialias_list) {
1151        zval *_zval;
1152        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1153                RETURN_FALSE;
1154        }
1155        caca_dither_t *dither;
1156        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1157
1158        char const * const *list = caca_get_dither_antialias_list(dither);
1159        int i;
1160        array_init(return_value);       
1161        for(i = 0; list[i]; i += 1)
1162                add_next_index_string(return_value, (char*) list[i], 1);
1163}
1164
1165PHP_FUNCTION(caca_get_dither_antialias) {
1166        zval *_zval;
1167        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1168                RETURN_FALSE;
1169        }
1170        caca_dither_t *dither;
1171        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1172        RETURN_STRING((char *) caca_get_dither_antialias(dither), 1);
1173}
1174
1175PHP_FUNCTION(caca_set_dither_color) {
1176        zval *_zval;
1177        int str_len;
1178        char *str;
1179        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1180                RETURN_FALSE;
1181        }
1182        caca_dither_t *dither;
1183        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1184        RETURN_SUCCESS(caca_set_dither_color(dither, str));
1185}
1186
1187PHP_FUNCTION(caca_get_dither_color_list) {
1188        zval *_zval;
1189        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1190                RETURN_FALSE;
1191        }
1192        caca_dither_t *dither;
1193        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1194
1195        char const * const *list = caca_get_dither_antialias_list(dither);
1196        int i;
1197        array_init(return_value);       
1198        for(i = 0; list[i]; i += 2)
1199                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1200}
1201
1202PHP_FUNCTION(caca_get_dither_color) {
1203        zval *_zval;
1204        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1205                RETURN_FALSE;
1206        }
1207        caca_dither_t *dither;
1208        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1209        RETURN_STRING((char *) caca_get_dither_color(dither), 1);
1210}
1211
1212PHP_FUNCTION(caca_set_dither_charset) {
1213        zval *_zval;
1214        int str_len;
1215        char *str;
1216        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1217                RETURN_FALSE;
1218        }
1219        caca_dither_t *dither;
1220        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1221        RETURN_SUCCESS(caca_set_dither_charset(dither, str));
1222}
1223
1224PHP_FUNCTION(caca_get_dither_charset_list) {
1225        zval *_zval;
1226        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1227                RETURN_FALSE;
1228        }
1229        caca_dither_t *dither;
1230        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1231
1232        char const * const *list = caca_get_dither_charset_list(dither);
1233        int i;
1234        array_init(return_value);       
1235        for(i = 0; list[i]; i += 2)
1236                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1237}
1238
1239PHP_FUNCTION(caca_get_dither_charset) {
1240        zval *_zval;
1241        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1242                RETURN_FALSE;
1243        }
1244        caca_dither_t *dither;
1245        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1246        RETURN_STRING((char *) caca_get_dither_charset(dither), 1);
1247}
1248
1249PHP_FUNCTION(caca_set_dither_algorithm) {
1250        zval *_zval;
1251        int str_len;
1252        char *str;
1253        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1254                RETURN_FALSE;
1255        }
1256        caca_dither_t *dither;
1257        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1258        RETURN_SUCCESS(caca_set_dither_algorithm(dither, str));
1259}
1260
1261PHP_FUNCTION(caca_get_dither_algorithm_list) {
1262        zval *_zval;
1263        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1264                RETURN_FALSE;
1265        }
1266        caca_dither_t *dither;
1267        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1268
1269        char const * const *list = caca_get_dither_algorithm_list(dither);
1270        int i;
1271        array_init(return_value);       
1272        for(i = 0; list[i]; i += 2)
1273                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1274}
1275
1276PHP_FUNCTION(caca_get_dither_algorithm) {
1277        zval *_zval;
1278        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1279                RETURN_FALSE;
1280        }
1281        caca_dither_t *dither;
1282        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1283        RETURN_STRING((char *) caca_get_dither_algorithm(dither), 1);
1284}
1285
1286PHP_FUNCTION(caca_dither_bitmap) {
1287        zval *_zval1, *_zval2, *_zval3;
1288        long x, y, w, h = 0;
1289        zend_bool load_palette = 1;
1290        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllrr|b", &_zval1, &x, &y, &w, &h, &_zval2, &_zval3, &load_palette) == FAILURE) {
1291                RETURN_FALSE;
1292        }
1293
1294        caca_canvas_t *canvas;
1295        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1296        caca_dither_t *dither;
1297        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval2, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1298
1299        gdImage *img = fetch_external_resource(_zval3, "gd");
1300        if (!img) {
1301                RETURN_FALSE;
1302        }
1303
1304        void *pixels = gd_get_pixels(img);
1305        if (!pixels) {
1306                RETURN_FALSE;
1307        }
1308
1309        //load palette if image is not true color
1310        if (load_palette && !img->trueColor && gd_load_palette(img, dither) != 0) {
1311                RETURN_FALSE;
1312        }
1313
1314        caca_dither_bitmap(canvas, x, y, w, h, dither, pixels);
1315        free(pixels);
1316        RETURN_TRUE;
1317}
1318
1319PHP_FUNCTION(caca_load_font) {
1320        char *str;
1321        long str_len;
1322        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &str, &str_len) == FAILURE) {
1323                RETURN_FALSE;
1324        }
1325        caca_font_t *font = caca_load_font(str, str_len);
1326        if (!font) {
1327                RETURN_FALSE;
1328        }
1329        ZEND_REGISTER_RESOURCE(return_value, font, le_caca_font);
1330}
1331
1332PHP_FUNCTION(caca_load_builtin_font) {
1333        char *str;
1334        long str_len;
1335        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &str, &str_len) == FAILURE) {
1336                RETURN_FALSE;
1337        }
1338        caca_font_t *font = caca_load_font(str, 0);
1339        if (!font) {
1340                RETURN_FALSE;
1341        }
1342        ZEND_REGISTER_RESOURCE(return_value, font, le_caca_font);
1343}
1344
1345PHP_FUNCTION(caca_get_font_list) {
1346        char const * const *list = caca_get_font_list();
1347        int i;
1348        array_init(return_value);       
1349        for(i = 0; list[i]; i += 1)
1350                add_next_index_string(return_value, (char*) list[i], 1);
1351}
1352
1353PHP_FUNCTION(caca_get_font_width) {
1354        zval *_zval;
1355        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1356                RETURN_FALSE;
1357        }
1358        caca_font_t *font;
1359        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1360        RETURN_LONG(caca_get_font_width(font));
1361}
1362
1363PHP_FUNCTION(caca_get_font_height) {
1364        zval *_zval;
1365        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1366                RETURN_FALSE;
1367        }
1368        caca_font_t *font;
1369        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1370        RETURN_LONG(caca_get_font_height(font));
1371}
1372
1373PHP_FUNCTION(caca_get_font_blocks) {
1374        zval *_zval;
1375        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1376                RETURN_FALSE;
1377        }
1378        caca_font_t *font;
1379        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1380
1381        uint32_t const *list = caca_get_font_blocks(font);
1382
1383        int i;
1384        array_init(return_value);       
1385        for(i = 0; list[i]; i += 1)
1386                add_next_index_long(return_value, list[i]);
1387}
1388
1389PHP_FUNCTION(caca_render_canvas) {
1390        zval *_zval1, *_zval2, *_zval3;
1391        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrr", &_zval1, &_zval2, &_zval3) == FAILURE) {
1392                RETURN_FALSE;
1393        }
1394        caca_canvas_t *canvas;
1395        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1396        caca_font_t *font;
1397        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval2, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1398
1399        gdImage *img = fetch_external_resource(_zval3, "gd");
1400        if (!img || !img->trueColor) {
1401                RETURN_FALSE;
1402        }
1403
1404        int pitch = img->sx * 4;
1405        uint8_t *buffer = malloc(pitch * img->sy);
1406        if (!buffer) {
1407                RETURN_FALSE;
1408        }
1409
1410        caca_render_canvas(canvas, font, (void *) buffer, img->sx, img->sy, pitch);
1411        int i, j;
1412        for (i = 0; i < img->sy; i++) {
1413                for (j = 0; j < img->sx; j++) {
1414                        uint8_t *src = buffer + i * pitch + j * 4;
1415                        img->tpixels[i][j] = *(src + 3) | (*(src + 2) << 8) | (*(src + 1) << 16) | (*(src + 0) << 24);
1416                }
1417        }
1418       
1419        free(buffer);
1420        RETURN_TRUE;
1421}
1422
1423PHP_FUNCTION(caca_canvas_set_figfont) {
1424        zval *_zval;
1425        char *font;
1426        long font_len;
1427        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &font, &font_len) == FAILURE) {
1428                RETURN_FALSE;
1429        }
1430        caca_canvas_t *canvas;
1431        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1432        RETURN_SUCCESS(caca_canvas_set_figfont(canvas, font));
1433}
1434
1435PHP_FUNCTION(caca_put_figchar) {
1436        zval *_zval;
1437        long c;
1438        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &c) == FAILURE) {
1439                RETURN_FALSE;
1440        }
1441        caca_canvas_t *canvas;
1442        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1443
1444        RETURN_SUCCESS(caca_put_figchar(canvas, c));
1445}
1446
1447PHP_FUNCTION(caca_flush_figlet) {
1448        zval *_zval;
1449        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1450                RETURN_FALSE;
1451        }
1452        caca_canvas_t *canvas;
1453        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1454        RETURN_SUCCESS(caca_flush_figlet(canvas));
1455}
1456
1457PHP_FUNCTION(caca_file_open) {
1458        char *path, *mode;
1459        long path_len, mode_len;
1460        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &path, &path_len, &mode, &mode_len) == FAILURE) {
1461                RETURN_FALSE;
1462        }
1463        caca_file_t *file = caca_file_open(path, mode);
1464        if (!file) {
1465                RETURN_FALSE;
1466        }
1467        ZEND_REGISTER_RESOURCE(return_value, file, le_caca_file);
1468}
1469
1470PHP_FUNCTION(caca_file_close) {
1471        zval *_zval;
1472        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1473                RETURN_FALSE;
1474        }
1475        caca_file_t *file;
1476        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1477
1478        int res = caca_file_close(file);
1479
1480        //Delete php resource
1481        zend_list_delete(_zval->value.lval);
1482        RETURN_SUCCESS(res);
1483}
1484
1485PHP_FUNCTION(caca_file_tell) {
1486        zval *_zval;
1487        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1488                RETURN_FALSE;
1489        }
1490        caca_file_t *file;
1491        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1492        RETURN_LONG(caca_file_tell(file));
1493}
1494
1495PHP_FUNCTION(caca_file_read) {
1496        zval *_zval;
1497        long len;
1498        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1499                RETURN_FALSE;
1500        }
1501        caca_file_t *file;
1502        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1503
1504        if (len < 1) {
1505                RETURN_FALSE;
1506        }
1507        char *buffer = emalloc(len);
1508        if (!buffer) {
1509                RETURN_FALSE;
1510        }
1511        caca_file_read(file, buffer, len);
1512
1513        return_value->type = IS_STRING;
1514        return_value->value.str.len = len;
1515        return_value->value.str.val = buffer;
1516}
1517
1518PHP_FUNCTION(caca_file_write) {
1519        zval *_zval;
1520        char *buf;
1521        long buf_len = 0;
1522        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &buf, &buf_len) == FAILURE) {
1523                RETURN_FALSE;
1524        }
1525        caca_file_t *file;
1526        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1527        RETURN_LONG(caca_file_write(file, buf, buf_len));
1528}
1529
1530PHP_FUNCTION(caca_file_gets) {
1531        zval *_zval;
1532        long len = 0;
1533        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1534                RETURN_FALSE;
1535        }
1536        caca_file_t *file;
1537        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1538
1539        if (len < 1) {
1540                RETURN_FALSE;
1541        }
1542        char *buffer = emalloc(len);
1543        if (!buffer) {
1544                RETURN_FALSE;
1545        }
1546        char *result = caca_file_gets(file, buffer, len);
1547        if (!result) {
1548                RETURN_FALSE;
1549        }
1550        return_value->type = IS_STRING;
1551        return_value->value.str.len = len;
1552        return_value->value.str.val = result;
1553}
1554
1555PHP_FUNCTION(caca_file_eof) {
1556        zval *_zval;
1557        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1558                RETURN_FALSE;
1559        }
1560        caca_file_t *file;
1561        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1562        RETURN_BOOL(caca_file_eof(file) != 0);
1563}
1564
1565PHP_FUNCTION(caca_import_string) {
1566        zval *_zval;
1567        char *src, *format;
1568        long src_len, format_len = 0;
1569        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &src, &src_len, &format, &format_len) == FAILURE) {
1570                RETURN_FALSE;
1571        }
1572        caca_canvas_t *canvas;
1573        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1574
1575        RETURN_LONG(caca_import_memory(canvas, src, src_len, format));
1576}
1577
1578PHP_FUNCTION(caca_import_file) {
1579        zval *_zval;
1580        char *filename, *format;
1581        long filename_len, format_len = 0;
1582        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &filename, &filename_len, &format, &format_len) == FAILURE) {
1583                RETURN_FALSE;
1584        }
1585        caca_canvas_t *canvas;
1586        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1587
1588        RETURN_LONG(caca_import_file(canvas, filename, format));
1589}
1590
1591PHP_FUNCTION(caca_get_import_list) {
1592        char const * const *list = caca_get_import_list();
1593        int i;
1594        array_init(return_value);       
1595        for(i = 0; list[i]; i += 2)
1596                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1597}
1598
1599PHP_FUNCTION(caca_export_string) {
1600        zval *_zval;
1601        char *type;
1602        long type_len;
1603        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &type, &type_len) == FAILURE) {
1604                RETURN_FALSE;
1605        }
1606        caca_canvas_t *canvas;
1607        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1608
1609        void *buffer, *copy;
1610        size_t len;
1611        buffer = caca_export_memory(canvas, type, &len);
1612        copy = emalloc(len);
1613        if (!buffer || !copy) {
1614                RETURN_FALSE;
1615        }
1616        memcpy(copy, buffer, len);
1617        free(buffer);
1618
1619        return_value->type = IS_STRING;
1620        return_value->value.str.len = len;
1621        return_value->value.str.val = copy;
1622}
1623
1624PHP_FUNCTION(caca_get_export_list) {
1625        char const * const *list = caca_get_export_list();
1626        int i;
1627        array_init(return_value);       
1628        for(i = 0; list[i]; i += 2)
1629                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1630}
1631
1632PHP_FUNCTION(caca_create_display) {
1633        caca_canvas_t *canvas;
1634        FETCH_CANVAS(canvas);
1635
1636        caca_display_t *display = caca_create_display(canvas);
1637        if (!display) {
1638                RETURN_FALSE;
1639        }
1640        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1641}
1642
1643PHP_FUNCTION(caca_create_display_with_driver) {
1644        zval *_zval;
1645        char *str;
1646        long str_len = 0;
1647        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1648                RETURN_FALSE;
1649        }
1650        caca_canvas_t *canvas;
1651        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1652
1653        caca_display_t *display = caca_create_display_with_driver(canvas, str);
1654        if (!display) {
1655                RETURN_FALSE;
1656        }
1657        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1658}
1659
1660PHP_FUNCTION(caca_get_display_driver_list) {
1661        char const * const *list = caca_get_display_driver_list();
1662        int i;
1663        array_init(return_value);       
1664        for(i = 0; list[i]; i += 2)
1665                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1666}
1667
1668PHP_FUNCTION(caca_get_display_driver) {
1669        zval *_zval;
1670        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1671                RETURN_FALSE;
1672        }
1673        caca_display_t *display;
1674        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1675        RETURN_STRING((char *) caca_get_display_driver(display), 1);
1676}
1677
1678PHP_FUNCTION(caca_set_display_driver) {
1679        zval *_zval;
1680        char *str;
1681        long str_len;
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_SUCESS(caca_set_display_driver(display, str));
1688}
1689
1690PHP_FUNCTION(caca_get_canvas) {
1691        zval *_zval;
1692        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1693                RETURN_FALSE;
1694        }
1695        caca_display_t *display;
1696        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1697        caca_canvas_t *canvas = caca_get_canvas(display);
1698        if (!canvas) {
1699                RETURN_FALSE;
1700        }
1701        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
1702}
1703
1704PHP_FUNCTION(caca_refresh_display) {
1705        caca_display_t *display;
1706        FETCH_DISPLAY(display);
1707        RETURN_SUCCESS(caca_refresh_display(display));
1708}
1709
1710PHP_FUNCTION(caca_set_display_time) {
1711        zval *_zval;
1712        long value = 0;
1713        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1714                RETURN_FALSE;
1715        }
1716        caca_display_t *display;
1717        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1718        RETURN_SUCCESS(caca_set_display_time(display, value));
1719}
1720
1721PHP_FUNCTION(caca_get_display_time) {
1722        caca_display_t *display;
1723        FETCH_DISPLAY(display);
1724        RETURN_LONG(caca_get_display_time(display));
1725}
1726
1727PHP_FUNCTION(caca_get_display_width) {
1728        caca_display_t *display;
1729        FETCH_DISPLAY(display);
1730        RETURN_LONG(caca_get_display_width(display));
1731}
1732
1733PHP_FUNCTION(caca_get_display_height) {
1734        caca_display_t *display;
1735        FETCH_DISPLAY(display);
1736        RETURN_LONG(caca_get_display_height(display));
1737}
1738
1739PHP_FUNCTION(caca_set_display_title) {
1740        zval *_zval;
1741        char *str;
1742        long str_len = 0;
1743        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1744                RETURN_FALSE;
1745        }
1746        caca_display_t *display;
1747        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1748        RETURN_SUCCESS(caca_set_display(display, str));
1749}
1750
1751PHP_FUNCTION(caca_set_mouse) {
1752        zval *_zval;
1753        long value = 0;
1754        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1755                RETURN_FALSE;
1756        }
1757        caca_display_t *display;
1758        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1759        RETURN_SUCCESS(caca_set_mouse(display, value));
1760}
1761
1762PHP_FUNCTION(caca_set_cursor) {
1763        zval *_zval;
1764        long value = 0;
1765        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1766                RETURN_FALSE;
1767        }
1768        caca_display_t *display;
1769        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1770        RETURN_SUCCESS(caca_set_cursor(display, value));
1771}
1772
1773PHP_FUNCTION(caca_get_event) {
1774        zval *_zval = NULL;
1775        long g, aa = 0;
1776        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|l", &_zval, &g, &aa) == FAILURE) {
1777                RETURN_FALSE;
1778        }
1779        caca_display_t *display;
1780        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1781
1782        caca_event_t *event = emalloc(sizeof(caca_event_t));
1783        if (!event) {
1784                RETURN_FALSE;
1785        }
1786
1787        caca_get_event(display, g, event, aa);
1788
1789        if (caca_get_event_type(event) == CACA_EVENT_NONE) {
1790                efree(event);   
1791                RETURN_FALSE;
1792        }
1793        ZEND_REGISTER_RESOURCE(return_value, event, le_caca_event);
1794}
1795
1796PHP_FUNCTION(caca_get_mouse_x) {
1797        caca_display_t *display;
1798        FETCH_DISPLAY(display);
1799        RETURN_LONG(caca_get_mouse_x(display));
1800}
1801
1802PHP_FUNCTION(caca_get_mouse_y) {
1803        caca_display_t *display;
1804        FETCH_DISPLAY(display);
1805        RETURN_LONG(caca_get_mouse_y(display));
1806}
1807
1808PHP_FUNCTION(caca_get_event_type) {
1809        caca_event_t *event;
1810        FETCH_EVENT(event);
1811        RETURN_LONG(caca_get_event_type(event));
1812}
1813
1814PHP_FUNCTION(caca_get_event_key_ch) {
1815        caca_event_t *event;
1816        FETCH_EVENT(event);
1817        RETURN_LONG(caca_get_event_key_ch(event));
1818}
1819
1820PHP_FUNCTION(caca_get_event_mouse_button) {
1821        caca_event_t *event;
1822        FETCH_EVENT(event);
1823        RETURN_LONG(caca_get_event_mouse_button(event));
1824}
1825
1826PHP_FUNCTION(caca_get_event_mouse_x) {
1827        caca_event_t *event;
1828        FETCH_EVENT(event);
1829        RETURN_LONG(caca_get_event_mouse_x(event));
1830}
1831
1832PHP_FUNCTION(caca_get_event_mouse_y) {
1833        caca_event_t *event;
1834        FETCH_EVENT(event);
1835        RETURN_LONG(caca_get_event_mouse_y(event));
1836}
1837
1838PHP_FUNCTION(caca_get_event_resize_width) {
1839        caca_event_t *event;
1840        FETCH_EVENT(event);
1841        RETURN_LONG(caca_get_event_resize_width(event));
1842}
1843
1844PHP_FUNCTION(caca_get_event_resize_height) {
1845        caca_event_t *event;
1846        FETCH_EVENT(event);
1847        RETURN_LONG(caca_get_event_resize_height(event));
1848}
1849
Note: See TracBrowser for help on using the repository browser.