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

Last change on this file since 3129 was 3129, checked in by nico, 11 years ago
  • Add php binding for caca_load_font, caca_get_font_blocks, caca_put_figchar
  • Add a working sample file examples/figfont.php
  • Rename sample programs:

examples1.php > cacapig.php
drivers.php > cacainfo.php

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