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

Last change on this file since 3132 was 3132, checked in by nico, 12 years ago
  • Change type of the last argument of drawing function (from string to long)
  • Adapt sample programs
File size: 54.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_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        long x, y, c;
477        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &c) == FAILURE) {
478                RETURN_FALSE;
479        }
480        caca_canvas_t *canvas;
481        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
482        RETURN_SUCCESS(caca_put_char(canvas, x, y, c));
483}
484
485PHP_FUNCTION(caca_get_char) {
486        zval *_zval;
487        long x, y = 0;
488        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
489                RETURN_FALSE;
490        }
491        caca_canvas_t *canvas;
492        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
493        RETURN_CHAR(caca_get_char(canvas, x, y));
494}
495
496PHP_FUNCTION(caca_put_str) {
497        zval *_zval;
498        char *str;
499        long x, y, str_len = 0;
500        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlls", &_zval, &x, &y, &str, &str_len) == FAILURE) {
501                RETURN_FALSE;
502        }
503        caca_canvas_t *canvas;
504        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
505        RETURN_SUCCESS(caca_put_str(canvas, x, y, str));
506}
507
508PHP_FUNCTION(caca_clear_canvas) {
509        caca_canvas_t *canvas;
510        FETCH_CANVAS(canvas);
511        RETURN_LONG(caca_clear_canvas(canvas));
512}
513
514PHP_FUNCTION(caca_set_canvas_handle) {
515        zval *_zval;
516        long x, y = 0;
517        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
518                RETURN_FALSE;
519        }
520        caca_canvas_t *canvas;
521        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
522        RETURN_SUCCESS(caca_set_canvas_handle(canvas, x, y));
523}
524
525PHP_FUNCTION(caca_get_canvas_handle_x) {
526        caca_canvas_t *canvas;
527        FETCH_CANVAS(canvas);
528        RETURN_LONG(caca_get_canvas_handle_x(canvas));
529}
530
531PHP_FUNCTION(caca_get_canvas_handle_y) {
532        caca_canvas_t *canvas;
533        FETCH_CANVAS(canvas);
534        RETURN_LONG(caca_get_canvas_handle_y(canvas));
535}
536
537PHP_FUNCTION(caca_blit) {
538        zval *_zval1, *_zval2, *_zval3 = NULL;
539        long x, y = 0;
540        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllr|r", &_zval1, &x, &y, &_zval2, &_zval3) == FAILURE) {
541                RETURN_FALSE;
542        }
543        caca_canvas_t *dst, *src, *mask = NULL;
544        ZEND_FETCH_RESOURCE(dst, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
545        ZEND_FETCH_RESOURCE(src, caca_canvas_t*, &_zval2, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
546        if (_zval3) {
547                ZEND_FETCH_RESOURCE(mask, caca_canvas_t*, &_zval3, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
548        }
549        RETURN_SUCCESS(caca_blit(dst, x, y, src, NULL));
550}
551
552PHP_FUNCTION(caca_set_canvas_boundaries) {
553        zval *_zval;
554        long x, y, width, height = 0;
555        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &width, &height) == FAILURE) {
556                RETURN_FALSE;
557        }
558        caca_canvas_t *canvas;
559        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
560        RETURN_SUCCESS(caca_set_canvas_boundaries(canvas, x, y, width, height));
561}
562
563PHP_FUNCTION(caca_invert) {
564        caca_canvas_t *canvas;
565        FETCH_CANVAS(canvas);
566        RETURN_SUCCESS(caca_invert(canvas));
567}
568
569PHP_FUNCTION(caca_flip) {
570        caca_canvas_t *canvas;
571        FETCH_CANVAS(canvas);
572        RETURN_SUCCESS(caca_flip(canvas));
573}
574
575PHP_FUNCTION(caca_flop) {
576        caca_canvas_t *canvas;
577        FETCH_CANVAS(canvas);
578        RETURN_SUCCESS(caca_flop(canvas));
579}
580
581PHP_FUNCTION(caca_rotate_180) {
582        caca_canvas_t *canvas;
583        FETCH_CANVAS(canvas);
584        RETURN_SUCCESS(caca_rotate_180(canvas));
585}
586
587PHP_FUNCTION(caca_rotate_left) {
588        caca_canvas_t *canvas;
589        FETCH_CANVAS(canvas);
590        RETURN_SUCCESS(caca_rotate_left(canvas));
591}
592
593PHP_FUNCTION(caca_rotate_right) {
594        caca_canvas_t *canvas;
595        FETCH_CANVAS(canvas);
596        RETURN_SUCCESS(caca_rotate_right(canvas));
597}
598
599PHP_FUNCTION(caca_stretch_left) {
600        caca_canvas_t *canvas;
601        FETCH_CANVAS(canvas);
602        RETURN_SUCCESS(caca_stretch_left(canvas));
603}
604
605PHP_FUNCTION(caca_stretch_right) {
606        caca_canvas_t *canvas;
607        FETCH_CANVAS(canvas);
608        RETURN_SUCCESS(caca_stretch_right(canvas));
609}
610
611PHP_FUNCTION(caca_get_attr) {
612        zval *_zval;
613        long x, y = 0;
614        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &x, &y) == FAILURE) {
615                RETURN_FALSE;
616        }
617        caca_canvas_t *canvas;
618        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
619        RETURN_LONG(caca_get_attr(canvas, x, y));
620}
621
622PHP_FUNCTION(caca_set_attr) {
623        zval *_zval;
624        long attr = 0;
625        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &attr) == FAILURE) {
626                RETURN_FALSE;
627        }
628        caca_canvas_t *canvas;
629        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
630        RETURN_SUCCESS(caca_set_attr(canvas, attr));
631}
632
633PHP_FUNCTION(caca_put_attr) {
634        zval *_zval;
635        long x, y, attr = 0;
636        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlll", &_zval, &x, &y, &attr) == FAILURE) {
637                RETURN_FALSE;
638        }
639        caca_canvas_t *canvas;
640        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
641        RETURN_SUCCESS(caca_put_attr(canvas, x, y, attr));
642}
643
644PHP_FUNCTION(caca_set_color_ansi) {
645        zval *_zval;
646        long foreground, background = 0;
647        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
648                RETURN_FALSE;
649        }
650        caca_canvas_t *canvas;
651        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
652        RETURN_SUCCESS(caca_set_color_ansi(canvas, foreground, background));
653}
654
655PHP_FUNCTION(caca_set_color_argb) {
656        zval *_zval;
657        long foreground, background = 0;
658        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rll", &_zval, &foreground, &background) == FAILURE) {
659                RETURN_FALSE;
660        }
661        caca_canvas_t *canvas;
662        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
663        RETURN_SUCCESS(caca_set_color_argb(canvas, foreground, background));
664}
665
666PHP_FUNCTION(caca_attr_to_ansi) {
667        long l;
668        FETCH_LONG(l);
669        RETURN_LONG(caca_attr_to_ansi(l));
670}
671
672PHP_FUNCTION(caca_attr_to_ansi_fg) {
673        long l;
674        FETCH_LONG(l);
675        RETURN_LONG(caca_attr_to_ansi_fg(l));
676}
677
678PHP_FUNCTION(caca_attr_to_ansi_bg) {
679        long l;
680        FETCH_LONG(l);
681        RETURN_LONG(caca_attr_to_ansi_bg(l));
682}
683
684PHP_FUNCTION(caca_attr_to_rgb12_fg) {
685        long l;
686        FETCH_LONG(l);
687        RETURN_LONG(caca_attr_to_rgb12_fg(l));
688}
689
690PHP_FUNCTION(caca_attr_to_rgb12_bg) {
691        long l;
692        FETCH_LONG(l);
693        RETURN_LONG(caca_attr_to_rgb12_bg(l));
694}
695
696PHP_FUNCTION(caca_attr_to_argb64) {
697}
698
699PHP_FUNCTION(caca_utf8_to_utf32) {
700}
701
702PHP_FUNCTION(caca_utf32_to_utf8) {
703}
704
705PHP_FUNCTION(caca_utf32_to_cp437) {
706}
707
708PHP_FUNCTION(caca_cp437_to_utf32) {
709}
710
711PHP_FUNCTION(caca_utf32_to_ascii) {
712}
713
714PHP_FUNCTION(caca_utf32_is_fullwidth) {
715}
716
717PHP_FUNCTION(caca_draw_line) {
718        zval *_zval;
719        long xa, ya, xb, yb, c;
720        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
721                RETURN_FALSE;
722        }
723        caca_canvas_t *canvas;
724        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
725        RETURN_SUCCESS(caca_draw_line(canvas, xa, ya, xb, yb, c));
726}
727
728PHP_FUNCTION(caca_draw_polyline) {
729        zval *zval_res, *zval_arr;
730        long c;
731
732        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ral", &zval_res, &zval_arr, &c) == FAILURE) {
733                RETURN_FALSE;
734        }
735
736        caca_canvas_t *canvas;
737        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
738
739        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
740        int lenmax = zend_hash_num_elements(arr_hash);
741        int *tbl_x, *tbl_y;
742        int tbl_count = 0;
743        tbl_x = malloc(sizeof(int) * lenmax);
744        tbl_y = malloc(sizeof(int) * lenmax);
745       
746        HashPosition pos;
747        zval **pt, **x, **y;
748        for (
749                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
750                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
751                zend_hash_move_forward_ex(arr_hash, &pos)
752        ) {
753                if (
754                        Z_TYPE_P(*pt) == IS_ARRAY
755                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
756                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
757                ) {
758                        convert_to_long_ex(x);
759                        convert_to_long_ex(y);
760                        tbl_x[tbl_count] = Z_LVAL_PP(x);
761                        tbl_y[tbl_count] = Z_LVAL_PP(y);
762                        tbl_count++;
763                }
764        }
765        int res = caca_draw_polyline(canvas, tbl_x, tbl_y, tbl_count - 1, c);
766        free(tbl_x);
767        free(tbl_y);
768        RETURN_SUCCESS(res);
769}
770
771PHP_FUNCTION(caca_draw_thin_line) {
772        zval *_zval;
773        long xa, ya, xb, yb = 0;
774        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
775                RETURN_FALSE;
776        }
777        caca_canvas_t *canvas;
778        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
779        RETURN_SUCCESS(caca_draw_thin_line(canvas, xa, ya, xb, yb));
780}
781
782PHP_FUNCTION(caca_draw_thin_polyline) {
783        zval *zval_res, *zval_arr;
784        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ra", &zval_res, &zval_arr) == FAILURE) {
785                RETURN_FALSE;
786        }
787
788        caca_canvas_t *canvas;
789        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &zval_res, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
790
791        HashTable *arr_hash = Z_ARRVAL_P(zval_arr);
792        int lenmax = zend_hash_num_elements(arr_hash);
793        int *tbl_x, *tbl_y;
794        int tbl_count = 0;
795        tbl_x = malloc(sizeof(int) * lenmax);
796        tbl_y = malloc(sizeof(int) * lenmax);
797       
798        HashPosition pos;
799        zval **pt, **x, **y;
800        for (
801                zend_hash_internal_pointer_reset_ex(arr_hash, &pos);
802                zend_hash_get_current_data_ex(arr_hash, (void**) &pt, &pos) == SUCCESS;
803                zend_hash_move_forward_ex(arr_hash, &pos)
804        ) {
805                if (
806                        Z_TYPE_P(*pt) == IS_ARRAY
807                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 0, (void**) &x) != FAILURE)
808                        && (zend_hash_index_find(Z_ARRVAL_P(*pt), 1, (void**) &y) != FAILURE)
809                ) {
810                        convert_to_long_ex(x);
811                        convert_to_long_ex(y);
812                        tbl_x[tbl_count] = Z_LVAL_PP(x);
813                        tbl_y[tbl_count] = Z_LVAL_PP(y);
814                        tbl_count++;
815                }
816        }
817        int res = caca_draw_thin_polyline(canvas, tbl_x, tbl_y, tbl_count - 1);
818        free(tbl_x);
819        free(tbl_y);
820        RETURN_SUCCESS(res);
821}
822
823PHP_FUNCTION(caca_draw_circle) {
824        zval *_zval;
825        long x, y, r, c;
826        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &x, &y, &r, &c) == FAILURE) {
827                RETURN_FALSE;
828        }
829        caca_canvas_t *canvas;
830        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
831        RETURN_SUCCESS(caca_draw_circle(canvas, x, y, r, c));
832}
833
834PHP_FUNCTION(caca_draw_ellipse) {
835        zval *_zval;
836        long xa, ya, xb, yb, c = 0;
837        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
838                RETURN_FALSE;
839        }
840        caca_canvas_t *canvas;
841        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
842        RETURN_SUCCESS(caca_draw_ellipse(canvas, xa, ya, xb, yb, c));
843}
844
845PHP_FUNCTION(caca_draw_thin_ellipse) {
846        zval *_zval;
847        long xa, ya, xb, yb = 0;
848        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
849                RETURN_FALSE;
850        }
851        caca_canvas_t *canvas;
852        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
853        RETURN_SUCCESS(caca_draw_thin_ellipse(canvas, xa, ya, xb, yb));
854}
855
856PHP_FUNCTION(caca_fill_ellipse) {
857        zval *_zval;
858        long xa, ya, xb, yb, c;
859        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
860                RETURN_FALSE;
861        }
862        caca_canvas_t *canvas;
863        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
864        RETURN_SUCCESS(caca_fill_ellipse(canvas, xa, ya, xb, yb, c));
865}
866
867PHP_FUNCTION(caca_draw_box) {
868        zval *_zval;
869        long xa, ya, xb, yb, c;
870        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
871                RETURN_FALSE;
872        }
873        caca_canvas_t *canvas;
874        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
875        RETURN_SUCCESS(caca_draw_box(canvas, xa, ya, xb, yb, c));
876}
877
878PHP_FUNCTION(caca_draw_thin_box) {
879        zval *_zval;
880        long xa, ya, xb, yb = 0;
881        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == 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        RETURN_SUCCESS(caca_draw_thin_box(canvas, xa, ya, xb, yb));
887}
888
889PHP_FUNCTION(caca_draw_cp437_box) {
890        zval *_zval;
891        long xa, ya, xb, yb;
892        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllll", &_zval, &xa, &ya, &xb, &yb) == FAILURE) {
893                RETURN_FALSE;
894        }
895        caca_canvas_t *canvas;
896        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
897        RETURN_SUCCESS(caca_draw_cp437_box(canvas, xa, ya, xb, yb));
898}
899
900PHP_FUNCTION(caca_fill_box) {
901        zval *_zval;
902        long xa, ya, xb, yb, c;
903        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllll", &_zval, &xa, &ya, &xb, &yb, &c) == FAILURE) {
904                RETURN_FALSE;
905        }
906        caca_canvas_t *canvas;
907        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
908        RETURN_SUCCESS(caca_fill_box(canvas, xa, ya, xb, yb, c));
909}
910
911PHP_FUNCTION(caca_draw_triangle) {
912        zval *_zval;
913        long xa, ya, xb, yb, xc, yc, c;
914        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
915                RETURN_FALSE;
916        }
917        caca_canvas_t *canvas;
918        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
919        RETURN_SUCCESS(caca_draw_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
920}
921
922PHP_FUNCTION(caca_draw_thin_triangle) {
923        zval *_zval;
924        long xa, ya, xb, yb, xc, yc = 0;
925        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc) == FAILURE) {
926                RETURN_FALSE;
927        }
928        caca_canvas_t *canvas;
929        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
930        RETURN_SUCCESS(caca_draw_thin_triangle(canvas, xa, ya, xb, yb, xc, yc));
931}
932
933PHP_FUNCTION(caca_fill_triangle) {
934        zval *_zval;
935        long xa, ya, xb, yb, xc, yc, c = 0;
936        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlllllll", &_zval, &xa, &ya, &xb, &yb, &xc, &yc, &c) == FAILURE) {
937                RETURN_FALSE;
938        }
939        caca_canvas_t *canvas;
940        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
941        RETURN_SUCCESS(caca_fill_triangle(canvas, xa, ya, xb, yb, xc, yc, c));
942}
943
944PHP_FUNCTION(caca_get_frame_count) {
945        zval *_zval;
946        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
947                RETURN_FALSE;
948        }
949        caca_canvas_t *canvas;
950        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
951        RETURN_LONG(caca_get_canvas_count(canvas));
952}
953
954PHP_FUNCTION(caca_set_frame) {
955        zval *_zval;
956        long id;
957        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
958                RETURN_FALSE;
959        }
960        caca_canvas_t *canvas;
961        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
962        RETURN_SUCCESS(caca_set_frame(canvas, id));
963}
964
965PHP_FUNCTION(caca_set_frame_name) {
966        zval *_zval;
967        char *str;
968        long str_len;
969        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
970                RETURN_FALSE;
971        }
972        caca_canvas_t *canvas;
973        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
974        RETURN_SUCCESS(caca_set_frame_name(canvas, str));
975}
976
977PHP_FUNCTION(caca_create_frame) {
978        zval *_zval;
979        long id;
980        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
981                RETURN_FALSE;
982        }
983        caca_canvas_t *canvas;
984        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
985        RETURN_SUCCESS(caca_create_frame(canvas, id));
986}
987
988PHP_FUNCTION(caca_free_frame) {
989        zval *_zval;
990        long id;
991        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &id) == FAILURE) {
992                RETURN_FALSE;
993        }
994        caca_canvas_t *canvas;
995        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
996        RETURN_SUCCESS(caca_free_frame(canvas, id));
997}
998
999PHP_FUNCTION(caca_create_dither) {
1000        long bpp, w, h, pitch, rmask, gmask, bmask, amask = 0;
1001        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llllllll", &bpp, &w, &h, &pitch, &rmask, &gmask, &bmask, &amask) == FAILURE) {
1002                RETURN_FALSE;
1003        }
1004        caca_dither_t *dither = caca_create_dither(bpp, w, h, pitch, rmask, gmask, bmask, amask);
1005        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1006}
1007
1008PHP_FUNCTION(caca_create_dither_gd) {
1009        zval *_zval;
1010        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1011                RETURN_FALSE;
1012        }
1013
1014        gdImage *img = fetch_external_resource(_zval, "gd");
1015        if (!img | !img->trueColor) {
1016                RETURN_FALSE;
1017        }
1018        caca_dither_t *dither = caca_create_dither(sizeof(int) * 8, img->sx, img->sy, img->sx * sizeof(int), 0x00ff0000, 0x0000ff00, 0x000000ff, 0x00000000);
1019        ZEND_REGISTER_RESOURCE(return_value, dither, le_caca_dither);
1020}
1021
1022PHP_FUNCTION(caca_set_dither_palette) {
1023}
1024
1025PHP_FUNCTION(caca_set_dither_brightness) {
1026        zval *_zval;
1027        double value;
1028        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1029                RETURN_FALSE;
1030        }
1031        caca_dither_t *dither;
1032        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1033        RETURN_SUCCESS(caca_set_dither_brightness(dither, value));
1034}
1035
1036PHP_FUNCTION(caca_get_dither_brightness) {
1037        zval *_zval;
1038        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1039                RETURN_FALSE;
1040        }
1041        caca_dither_t *dither;
1042        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1043        RETURN_DOUBLE(caca_get_dither_brightness(dither));
1044}
1045
1046PHP_FUNCTION(caca_set_dither_gamma) {
1047        zval *_zval;
1048        double value;
1049        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1050                RETURN_FALSE;
1051        }
1052        caca_dither_t *dither;
1053        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1054        RETURN_SUCCESS(caca_set_dither_gamma(dither, value));
1055}
1056
1057PHP_FUNCTION(caca_get_dither_gamma) {
1058        zval *_zval;
1059        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1060                RETURN_FALSE;
1061        }
1062        caca_dither_t *dither;
1063        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1064        RETURN_DOUBLE(caca_get_dither_gamma(dither));
1065}
1066
1067PHP_FUNCTION(caca_set_dither_contrast) {
1068        zval *_zval;
1069        double value;
1070        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rd", &_zval, &value) == FAILURE) {
1071                RETURN_FALSE;
1072        }
1073        caca_dither_t *dither;
1074        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1075        RETURN_SUCCESS(caca_set_dither_contrast(dither, value));
1076}
1077
1078PHP_FUNCTION(caca_get_dither_contrast) {
1079        zval *_zval;
1080        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1081                RETURN_FALSE;
1082        }
1083        caca_dither_t *dither;
1084        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1085        RETURN_DOUBLE(caca_get_dither_contrast(dither));
1086}
1087
1088PHP_FUNCTION(caca_set_dither_antialias) {
1089        zval *_zval;
1090        int str_len;
1091        char *str;
1092        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1093                RETURN_FALSE;
1094        }
1095        caca_dither_t *dither;
1096        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1097        RETURN_SUCCESS(caca_set_dither_antialias(dither, str));
1098}
1099
1100PHP_FUNCTION(caca_get_dither_antialias_list) {
1101}
1102
1103PHP_FUNCTION(caca_get_dither_antialias) {
1104        zval *_zval;
1105        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1106                RETURN_FALSE;
1107        }
1108        caca_dither_t *dither;
1109        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1110        RETURN_STRING((char *) caca_get_dither_antialias(dither), 1);
1111}
1112
1113PHP_FUNCTION(caca_set_dither_color) {
1114        zval *_zval;
1115        int str_len;
1116        char *str;
1117        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1118                RETURN_FALSE;
1119        }
1120        caca_dither_t *dither;
1121        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1122        RETURN_SUCCESS(caca_set_dither_color(dither, str));
1123}
1124
1125PHP_FUNCTION(caca_get_dither_color_list) {
1126        zval *_zval;
1127        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1128                RETURN_FALSE;
1129        }
1130        caca_dither_t *dither;
1131        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1132
1133        char const * const *list = caca_get_dither_antialias_list(dither);
1134        int i;
1135        array_init(return_value);       
1136        for(i = 0; list[i]; i += 2)
1137                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1138}
1139
1140PHP_FUNCTION(caca_get_dither_color) {
1141        zval *_zval;
1142        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1143                RETURN_FALSE;
1144        }
1145        caca_dither_t *dither;
1146        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1147        RETURN_STRING((char *) caca_get_dither_color(dither), 1);
1148}
1149
1150PHP_FUNCTION(caca_set_dither_charset) {
1151        zval *_zval;
1152        int str_len;
1153        char *str;
1154        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1155                RETURN_FALSE;
1156        }
1157        caca_dither_t *dither;
1158        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1159        RETURN_SUCCESS(caca_set_dither_charset(dither, str));
1160}
1161
1162PHP_FUNCTION(caca_get_dither_charset_list) {
1163        zval *_zval;
1164        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1165                RETURN_FALSE;
1166        }
1167        caca_dither_t *dither;
1168        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1169
1170        char const * const *list = caca_get_dither_charset_list(dither);
1171        int i;
1172        array_init(return_value);       
1173        for(i = 0; list[i]; i += 2)
1174                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1175}
1176
1177PHP_FUNCTION(caca_get_dither_charset) {
1178        zval *_zval;
1179        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1180                RETURN_FALSE;
1181        }
1182        caca_dither_t *dither;
1183        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1184        RETURN_STRING((char *) caca_get_dither_charset(dither), 1);
1185}
1186
1187PHP_FUNCTION(caca_set_dither_algorithm) {
1188        zval *_zval;
1189        int str_len;
1190        char *str;
1191        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1192                RETURN_FALSE;
1193        }
1194        caca_dither_t *dither;
1195        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1196        RETURN_SUCCESS(caca_set_dither_algorithm(dither, str));
1197}
1198
1199PHP_FUNCTION(caca_get_dither_algorithm_list) {
1200        zval *_zval;
1201        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1202                RETURN_FALSE;
1203        }
1204        caca_dither_t *dither;
1205        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1206
1207        char const * const *list = caca_get_dither_algorithm_list(dither);
1208        int i;
1209        array_init(return_value);       
1210        for(i = 0; list[i]; i += 2)
1211                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1212}
1213
1214PHP_FUNCTION(caca_get_dither_algorithm) {
1215        zval *_zval;
1216        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1217                RETURN_FALSE;
1218        }
1219        caca_dither_t *dither;
1220        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1221        RETURN_STRING((char *) caca_get_dither_algorithm(dither), 1);
1222}
1223
1224PHP_FUNCTION(caca_dither_bitmap_gd) {
1225        zval *_zval1, *_zval2, *_zval3;
1226        long x, y, w, h = 0;
1227        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rllllrr", &_zval1, &x, &y, &w, &h, &_zval2, &_zval3) == FAILURE) {
1228                RETURN_FALSE;
1229        }
1230
1231        caca_canvas_t *canvas;
1232        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval1, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1233        caca_dither_t *dither;
1234        ZEND_FETCH_RESOURCE(dither, caca_dither_t*, &_zval2, -1, PHP_CACA_DITHER_RES_NAME, le_caca_dither);
1235
1236        gdImage *img = fetch_external_resource(_zval3, "gd");
1237        if (!img) {
1238                RETURN_FALSE;
1239        }
1240
1241        void *pixels = gd_get_pixels(img);
1242        if (!pixels) {
1243                RETURN_FALSE;
1244        }
1245
1246        caca_dither_bitmap(canvas, x, y, w, h, dither, pixels);
1247        free(pixels);
1248        RETURN_TRUE;
1249}
1250
1251PHP_FUNCTION(caca_load_font) {
1252        char *str;
1253        long str_len;
1254        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &str, &str_len) == FAILURE) {
1255                RETURN_FALSE;
1256        }
1257        caca_font_t *font = caca_load_font(str, str_len);
1258        ZEND_REGISTER_RESOURCE(return_value, font, le_caca_font);
1259}
1260
1261PHP_FUNCTION(caca_get_font_list) {
1262        char const * const *list = caca_get_font_list();
1263        int i;
1264        array_init(return_value);       
1265        for(i = 0; list[i]; i += 1)
1266                add_next_index_string(return_value, (char*) list[i], 1);
1267}
1268
1269PHP_FUNCTION(caca_get_font_width) {
1270        zval *_zval;
1271        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1272                RETURN_FALSE;
1273        }
1274        caca_font_t *font;
1275        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1276        RETURN_LONG(caca_get_font_width(font));
1277}
1278
1279PHP_FUNCTION(caca_get_font_height) {
1280        zval *_zval;
1281        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1282                RETURN_FALSE;
1283        }
1284        caca_font_t *font;
1285        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1286        RETURN_LONG(caca_get_font_height(font));
1287}
1288
1289PHP_FUNCTION(caca_get_font_blocks) {
1290        zval *_zval;
1291        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1292                RETURN_FALSE;
1293        }
1294        caca_font_t *font;
1295        ZEND_FETCH_RESOURCE(font, caca_font_t*, &_zval, -1, PHP_CACA_FONT_RES_NAME, le_caca_font);
1296
1297        uint32_t const *list = caca_get_font_blocks(font);
1298
1299        int i;
1300        array_init(return_value);       
1301        for(i = 0; list[i]; i += 1)
1302                add_next_index_long(return_value, list[i]);
1303}
1304
1305PHP_FUNCTION(caca_render_canvas) {
1306}
1307
1308PHP_FUNCTION(caca_canvas_set_figfont) {
1309        zval *_zval;
1310        char *font;
1311        long font_len;
1312        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &font, &font_len) == FAILURE) {
1313                RETURN_FALSE;
1314        }
1315        caca_canvas_t *canvas;
1316        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1317        RETURN_SUCCESS(caca_canvas_set_figfont(canvas, font));
1318}
1319
1320PHP_FUNCTION(caca_put_figchar) {
1321        zval *_zval;
1322        long c;
1323        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &c) == FAILURE) {
1324                RETURN_FALSE;
1325        }
1326        caca_canvas_t *canvas;
1327        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1328
1329        RETURN_SUCCESS(caca_put_figchar(canvas, c));
1330}
1331
1332PHP_FUNCTION(caca_flush_figlet) {
1333        zval *_zval;
1334        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1335                RETURN_FALSE;
1336        }
1337        caca_canvas_t *canvas;
1338        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1339        RETURN_SUCCESS(caca_flush_figlet(canvas));
1340}
1341
1342PHP_FUNCTION(caca_file_open) {
1343        char *path, *mode;
1344        long path_len, mode_len;
1345        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &path, &path_len, &mode, &mode_len) == FAILURE) {
1346                RETURN_FALSE;
1347        }
1348        caca_file_t *file = caca_file_open(path, mode);
1349        ZEND_REGISTER_RESOURCE(return_value, file, le_caca_file);
1350}
1351
1352PHP_FUNCTION(caca_file_close) {
1353        zval *_zval;
1354        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1355                RETURN_FALSE;
1356        }
1357        caca_file_t *file;
1358        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1359        //TODO: check that file was not already closed
1360        RETURN_SUCCESS(caca_file_close(file));
1361}
1362
1363PHP_FUNCTION(caca_file_tell) {
1364        zval *_zval;
1365        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1366                RETURN_FALSE;
1367        }
1368        caca_file_t *file;
1369        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1370        RETURN_LONG(caca_file_tell(file));
1371}
1372
1373PHP_FUNCTION(caca_file_read) {
1374        zval *_zval;
1375        long len;
1376        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1377                RETURN_FALSE;
1378        }
1379        caca_file_t *file;
1380        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1381
1382        if (len < 1) {
1383                RETURN_FALSE;
1384        }
1385        char *buffer = emalloc(len);
1386        if (!buffer) {
1387                RETURN_FALSE;
1388        }
1389        caca_file_read(file, buffer, len);
1390
1391        return_value->type = IS_STRING;
1392        return_value->value.str.len = len;
1393        return_value->value.str.val = buffer;
1394}
1395
1396PHP_FUNCTION(caca_file_write) {
1397        zval *_zval;
1398        char *buf;
1399        long buf_len = 0;
1400        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &buf, &buf_len) == FAILURE) {
1401                RETURN_FALSE;
1402        }
1403        caca_file_t *file;
1404        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1405        RETURN_LONG(caca_file_write(file, buf, buf_len));
1406}
1407
1408PHP_FUNCTION(caca_file_gets) {
1409        zval *_zval;
1410        long len = 0;
1411        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &len) == FAILURE) {
1412                RETURN_FALSE;
1413        }
1414        caca_file_t *file;
1415        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1416
1417        if (len < 1) {
1418                RETURN_FALSE;
1419        }
1420        char *buffer = emalloc(len);
1421        if (!buffer) {
1422                RETURN_FALSE;
1423        }
1424        char *result = caca_file_gets(file, buffer, len);
1425        if (!result) {
1426                RETURN_FALSE;
1427        }
1428        return_value->type = IS_STRING;
1429        return_value->value.str.len = len;
1430        return_value->value.str.val = result;
1431}
1432
1433PHP_FUNCTION(caca_file_eof) {
1434        zval *_zval;
1435        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1436                RETURN_FALSE;
1437        }
1438        caca_file_t *file;
1439        ZEND_FETCH_RESOURCE(file, caca_file_t*, &_zval, -1, PHP_CACA_FILE_RES_NAME, le_caca_file);
1440        RETURN_BOOL(caca_file_eof(file) != 0);
1441}
1442
1443PHP_FUNCTION(caca_import_string) {
1444        zval *_zval;
1445        char *src, *format;
1446        long src_len, format_len = 0;
1447        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &src, &src_len, &format, &format_len) == FAILURE) {
1448                RETURN_FALSE;
1449        }
1450        caca_canvas_t *canvas;
1451        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1452
1453        RETURN_LONG(caca_import_memory(canvas, src, src_len, format));
1454}
1455
1456PHP_FUNCTION(caca_import_file) {
1457        zval *_zval;
1458        char *filename, *format;
1459        long filename_len, format_len = 0;
1460        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &_zval, &filename, &filename_len, &format, &format_len) == FAILURE) {
1461                RETURN_FALSE;
1462        }
1463        caca_canvas_t *canvas;
1464        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1465
1466        RETURN_LONG(caca_import_file(canvas, filename, format));
1467}
1468
1469PHP_FUNCTION(caca_get_import_list) {
1470        char const * const *list = caca_get_import_list();
1471        int i;
1472        array_init(return_value);       
1473        for(i = 0; list[i]; i += 2)
1474                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1475}
1476
1477PHP_FUNCTION(caca_export_string) {
1478        zval *_zval;
1479        char *type;
1480        long type_len;
1481        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &type, &type_len) == FAILURE) {
1482                RETURN_FALSE;
1483        }
1484        caca_canvas_t *canvas;
1485        ZEND_FETCH_RESOURCE(canvas, caca_canvas_t*, &_zval, -1, PHP_CACA_CANVAS_RES_NAME, le_caca_canvas);
1486
1487        void *buffer, *copy;
1488        size_t len;
1489        buffer = caca_export_memory(canvas, type, &len);
1490        copy = emalloc(len);
1491        if (!buffer | !copy) {
1492                RETURN_FALSE;
1493        }
1494        memcpy(copy, buffer, len);
1495        free(buffer);
1496
1497        return_value->type = IS_STRING;
1498        return_value->value.str.len = len;
1499        return_value->value.str.val = copy;
1500}
1501
1502PHP_FUNCTION(caca_get_export_list) {
1503        char const * const *list = caca_get_export_list();
1504        int i;
1505        array_init(return_value);       
1506        for(i = 0; list[i]; i += 2)
1507                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1508}
1509
1510PHP_FUNCTION(caca_create_display) {
1511        caca_canvas_t *canvas;
1512        FETCH_CANVAS(canvas);
1513
1514        caca_display_t *display = caca_create_display(canvas);
1515        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1516}
1517
1518PHP_FUNCTION(caca_create_display_with_driver) {
1519        zval *_zval;
1520        char *str;
1521        long str_len = 0;
1522        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_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        caca_display_t *display = caca_create_display_with_driver(canvas, str);
1529        if (!display) {
1530                RETURN_FALSE;
1531        }
1532        ZEND_REGISTER_RESOURCE(return_value, display, le_caca_display);
1533}
1534
1535PHP_FUNCTION(caca_get_display_driver_list) {
1536        char const * const *list = caca_get_display_driver_list();
1537        int i;
1538        array_init(return_value);       
1539        for(i = 0; list[i]; i += 2)
1540                add_assoc_string(return_value, (char*) list[i], (char*) list[i + 1], 1);
1541}
1542
1543PHP_FUNCTION(caca_get_display_driver) {
1544        zval *_zval;
1545        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1546                RETURN_FALSE;
1547        }
1548        caca_display_t *display;
1549        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1550        RETURN_STRING((char *) caca_get_display_driver(display), 1);
1551}
1552
1553PHP_FUNCTION(caca_set_display_driver) {
1554        zval *_zval;
1555        char *str;
1556        long str_len;
1557        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1558                RETURN_FALSE;
1559        }
1560        caca_display_t *display;
1561        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1562        RETURN_SUCESS(caca_set_display_driver(display, str));
1563}
1564
1565PHP_FUNCTION(caca_get_canvas) {
1566        zval *_zval;
1567        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &_zval) == FAILURE) {
1568                RETURN_FALSE;
1569        }
1570        caca_display_t *display;
1571        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1572        caca_canvas_t *canvas = caca_get_canvas(display);
1573        ZEND_REGISTER_RESOURCE(return_value, canvas, le_caca_canvas);
1574}
1575
1576PHP_FUNCTION(caca_refresh_display) {
1577        caca_display_t *display;
1578        FETCH_DISPLAY(display);
1579        RETURN_SUCCESS(caca_refresh_display(display));
1580}
1581
1582PHP_FUNCTION(caca_set_display_time) {
1583        zval *_zval;
1584        long value = 0;
1585        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1586                RETURN_FALSE;
1587        }
1588        caca_display_t *display;
1589        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1590        RETURN_SUCCESS(caca_set_display_time(display, value));
1591}
1592
1593PHP_FUNCTION(caca_get_display_time) {
1594        caca_display_t *display;
1595        FETCH_DISPLAY(display);
1596        RETURN_LONG(caca_get_display_time(display));
1597}
1598
1599PHP_FUNCTION(caca_get_display_width) {
1600        caca_display_t *display;
1601        FETCH_DISPLAY(display);
1602        RETURN_LONG(caca_get_display_width(display));
1603}
1604
1605PHP_FUNCTION(caca_get_display_height) {
1606        caca_display_t *display;
1607        FETCH_DISPLAY(display);
1608        RETURN_LONG(caca_get_display_height(display));
1609}
1610
1611PHP_FUNCTION(caca_set_display_title) {
1612        zval *_zval;
1613        char *str;
1614        long str_len = 0;
1615        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &_zval, &str, &str_len) == FAILURE) {
1616                RETURN_FALSE;
1617        }
1618        caca_display_t *display;
1619        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1620        RETURN_SUCCESS(caca_set_display(display, str));
1621}
1622
1623PHP_FUNCTION(caca_set_mouse) {
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_mouse(display, value));
1632}
1633
1634PHP_FUNCTION(caca_set_cursor) {
1635        zval *_zval;
1636        long value = 0;
1637        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &_zval, &value) == FAILURE) {
1638                RETURN_FALSE;
1639        }
1640        caca_display_t *display;
1641        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1642        RETURN_SUCCESS(caca_set_cursor(display, value));
1643}
1644
1645PHP_FUNCTION(caca_get_event) {
1646        zval *_zval1, *_zval2 = NULL;
1647        long g, aa = 0;
1648        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|rl", &_zval1, &g, &_zval2, &aa) == FAILURE) {
1649                RETURN_FALSE;
1650        }
1651        caca_display_t *display;
1652        ZEND_FETCH_RESOURCE(display, caca_display_t*, &_zval1, -1, PHP_CACA_DISPLAY_RES_NAME, le_caca_display);
1653
1654        caca_event_t *event = NULL;
1655        if (_zval2) {
1656                ZEND_FETCH_RESOURCE(event, caca_event_t*, &_zval2, -1, PHP_CACA_EVENT_RES_NAME, le_caca_event);
1657        }
1658        RETURN_LONG(caca_get_event(display, g, event, aa));
1659}
1660
1661PHP_FUNCTION(caca_get_mouse_x) {
1662        caca_display_t *display;
1663        FETCH_DISPLAY(display);
1664        RETURN_LONG(caca_get_mouse_x(display));
1665}
1666
1667PHP_FUNCTION(caca_get_mouse_y) {
1668        caca_display_t *display;
1669        FETCH_DISPLAY(display);
1670        RETURN_LONG(caca_get_mouse_y(display));
1671}
1672
1673PHP_FUNCTION(caca_get_event_type) {
1674        caca_event_t *event;
1675        FETCH_EVENT(event);
1676        RETURN_LONG(caca_get_event_type(event));
1677}
1678
1679PHP_FUNCTION(caca_get_event_key_ch) {
1680        caca_event_t *event;
1681        FETCH_EVENT(event);
1682        RETURN_LONG(caca_get_event_key_ch(event));
1683}
1684
1685PHP_FUNCTION(caca_get_event_mouse_button) {
1686        caca_event_t *event;
1687        FETCH_EVENT(event);
1688        RETURN_LONG(caca_get_event_mouse_button(event));
1689}
1690
1691PHP_FUNCTION(caca_get_event_mouse_x) {
1692        caca_event_t *event;
1693        FETCH_EVENT(event);
1694        RETURN_LONG(caca_get_event_mouse_x(event));
1695}
1696
1697PHP_FUNCTION(caca_get_event_mouse_y) {
1698        caca_event_t *event;
1699        FETCH_EVENT(event);
1700        RETURN_LONG(caca_get_event_mouse_y(event));
1701}
1702
1703PHP_FUNCTION(caca_get_event_resize_width) {
1704        caca_event_t *event;
1705        FETCH_EVENT(event);
1706        RETURN_LONG(caca_get_event_resize_width(event));
1707}
1708
1709PHP_FUNCTION(caca_get_event_resize_height) {
1710        caca_event_t *event;
1711        FETCH_EVENT(event);
1712        RETURN_LONG(caca_get_event_resize_height(event));
1713}
1714
Note: See TracBrowser for help on using the repository browser.