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

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