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

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