source: perlglue.xs @ 61abb18

barnowl_perlaim
Last change on this file since 61abb18 was 61abb18, checked in by Geoffrey Thomas <geofft@mit.edu>, 16 years ago
Now it compiles. Highly likely to leak or crash, although it seems to work for me...
  • Property mode set to 100644
File size: 6.4 KB
Line 
1/* -*- mode: c; indent-tabs-mode: t; c-basic-offset: 8 -*- */
2static const char fileIdent[] = "$Id$";
3
4#ifdef HAVE_LIBZEPHYR
5#include <zephyr/zephyr.h>
6#endif
7#include <EXTERN.h>
8
9#define OWL_PERL
10#include "owl.h"
11SV *owl_perlconfig_curmessage2hashref(void);
12
13#define SV_IS_CODEREF(sv) (SvROK((sv)) && SvTYPE(SvRV((sv))) == SVt_PVCV)
14
15        /*************************************************************
16         * NOTE
17         *************************************************************
18         * These functions, when they are intended to be user-visible,
19         * are document in perlwrap.pm. If you add functions to this
20         * file, add the appropriate documentation there!
21         *
22         * If the function is simple enough, we simply define its
23         * entire functionality here in XS. If, however, it needs
24         * complex argument processing or something, we define a
25         * simple version here that takes arguments in as flat a
26         * manner as possible, to simplify the XS code, with a name
27         * with a trailing `_internal', and write a perl wrapper in
28         * perlwrap.pm that munges the arguments as appropriate and
29         * calls the internal version.
30         */
31
32MODULE = BarnOwl                PACKAGE = BarnOwl
33
34char *
35command(cmd)
36        char *cmd
37        PREINIT:
38                char *rv = NULL;
39        CODE:
40                rv = owl_function_command(cmd);
41                RETVAL = rv;   
42        OUTPUT:
43                RETVAL
44        CLEANUP:
45                if (rv) owl_free(rv);
46
47SV *
48getcurmsg()
49        CODE:
50                ST(0) = owl_perlconfig_curmessage2hashref();
51
52int
53getnumcols()
54        CODE:
55                RETVAL = owl_global_get_cols(&g);
56        OUTPUT:
57                RETVAL
58               
59time_t
60getidletime()
61        CODE:
62                RETVAL = owl_global_get_idletime(&g);
63        OUTPUT:
64                RETVAL
65
66char *
67zephyr_getrealm()
68        CODE:
69                RETVAL = owl_zephyr_get_realm();
70        OUTPUT:
71                RETVAL
72
73char *
74zephyr_getsender()
75        CODE:
76                RETVAL = owl_zephyr_get_sender();
77        OUTPUT:
78                RETVAL
79
80void
81zephyr_zwrite(cmd,msg)
82        char *cmd
83        char *msg
84        PREINIT:
85                int i;
86        CODE:
87                i = owl_zwrite_create_and_send_from_line(cmd, msg);
88
89char *
90ztext_stylestrip(ztext)
91        char *ztext
92        PREINIT:
93                char *rv = NULL;
94        CODE:
95                rv = owl_function_ztext_stylestrip(ztext);
96                RETVAL = rv;
97        OUTPUT:
98                RETVAL
99        CLEANUP:
100                if (rv) owl_free(rv);
101
102void
103new_command_internal(name, func, summary, usage, description)
104        char *name
105        SV *func
106        char *summary
107        char *usage
108        char *description
109        PREINIT:
110                owl_cmd cmd;
111        CODE:
112        {
113                if(!SV_IS_CODEREF(func)) {
114                        croak("Command function must be a coderef!");
115                }
116                SvREFCNT_inc(func);
117                cmd.name = name;
118                cmd.cmd_perl = func;
119                cmd.summary = summary;
120                cmd.usage = usage;
121                cmd.description = description;
122                cmd.validctx = OWL_CTX_ANY;
123                cmd.cmd_aliased_to = NULL;
124                cmd.cmd_args_fn = NULL;
125                cmd.cmd_v_fn = NULL;
126                cmd.cmd_i_fn = NULL;
127                cmd.cmd_ctxargs_fn = NULL;
128                cmd.cmd_ctxv_fn = NULL;
129                cmd.cmd_ctxi_fn = NULL;
130                owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
131           }
132
133void queue_message(msg) 
134        SV *msg
135        PREINIT:
136                owl_message *m;
137        CODE:
138        {
139                if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
140                        croak("Usage: BarnOwl::queue_message($message)");
141                }
142
143                m = owl_perlconfig_hashref2message(msg);
144
145                owl_global_messagequeue_addmsg(&g, m);
146        }
147
148void admin_message(header, body) 
149        char *header
150        char *body
151        CODE:
152        {
153                owl_function_adminmsg(header, body);           
154        }
155
156void start_question(line, callback)
157        char *line
158        SV *callback
159        PREINIT:
160        CODE:
161        {
162                if(!SV_IS_CODEREF(callback))
163                        croak("Callback must be a subref");
164
165                owl_function_start_question(line);
166
167                SvREFCNT_inc(callback);
168                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
169        }
170
171void start_password(line, callback)
172        char *line
173        SV *callback
174        PREINIT:
175        CODE:
176        {
177                if(!SV_IS_CODEREF(callback))
178                        croak("Callback must be a subref");
179
180                owl_function_start_password(line);
181
182                SvREFCNT_inc(callback);
183                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
184        }
185
186void start_edit_win(line, callback)
187        char *line
188        SV *callback
189        PREINIT:
190                owl_editwin * e;
191                char buff[1024];
192        CODE:
193        {
194                if(!SV_IS_CODEREF(callback))
195                        croak("Callback must be a subref");
196
197                e = owl_global_get_typwin(&g);
198                owl_editwin_new_style(e, OWL_EDITWIN_STYLE_MULTILINE,
199                                      owl_global_get_msg_history(&g));
200                owl_editwin_clear(e);
201                owl_editwin_set_dotsend(e);
202                snprintf(buff, 1023, "----> %s\n", line);
203                owl_editwin_set_locktext(e, buff);
204
205                owl_global_set_typwin_active(&g);
206
207                SvREFCNT_inc(callback);
208                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback, callback);
209        }
210
211
212char * 
213get_data_dir ()
214        CODE:
215                RETVAL = (char *) owl_get_datadir();
216        OUTPUT:
217        RETVAL
218
219char * 
220get_config_dir ()
221        CODE:
222                RETVAL = (char *) owl_global_get_confdir(&g);
223        OUTPUT:
224        RETVAL 
225
226void
227popless_text(text) 
228        char *text
229        CODE:
230        {
231                owl_function_popless_text(text);
232        }
233
234void
235popless_ztext(text) 
236        char *text
237        CODE:
238        {
239                owl_fmtext fm;
240                owl_fmtext_init_null(&fm);
241                owl_fmtext_append_ztext(&fm, text);
242                owl_function_popless_fmtext(&fm);
243                owl_fmtext_free(&fm);
244        }
245
246void
247error(text) 
248        char *text
249        CODE:
250        {
251                owl_function_error("%s", text);
252        }
253
254void
255create_style(name, object)
256     char *name
257     SV  *object
258     PREINIT:
259                owl_style *s;
260     CODE:
261        {
262                s = owl_malloc(sizeof(owl_style));
263                owl_style_create_perl(s, name, object);
264                owl_global_add_style(&g, s);
265        }
266
267int
268getnumcolors()
269        CODE:
270                RETVAL = owl_function_get_color_count();
271        OUTPUT:
272                RETVAL
273
274void
275_remove_filter(filterName)
276        char *filterName
277        CODE:
278        {
279                /* Don't delete the current view, or the 'all' filter */
280                if (strcmp(filterName, owl_view_get_filtname(owl_global_get_current_view(&g)))
281                    && strcmp(filterName, "all")) {
282                        owl_global_remove_filter(&g,filterName);
283                }
284        }
285
286char *
287wordwrap(in, cols)
288        char *in
289        int cols
290        PREINIT:
291                char *rv = NULL;
292        CODE:
293                rv = owl_text_wordwrap(in, cols);
294                RETVAL = rv;   
295        OUTPUT:
296                RETVAL
297        CLEANUP:
298                if (rv) owl_free(rv);
299
300void
301new_variable_string_internal(name, ival, summ, desc)
302        char * name
303        char * ival
304        char * summ
305        char * desc
306        CODE:
307        owl_variable_dict_newvar_string(owl_global_get_vardict(&g),
308                                        name,
309                                        summ,
310                                        desc,
311                                        ival);
312
313void
314new_variable_int_internal(name, ival, summ, desc)
315        char * name
316        int ival
317        char * summ
318        char * desc
319        CODE:
320        owl_variable_dict_newvar_int(owl_global_get_vardict(&g),
321                                     name,
322                                     summ,
323                                     desc,
324                                     ival);
325
326void
327new_variable_bool_internal(name, ival, summ, desc)
328        char * name
329        int ival
330        char * summ
331        char * desc
332        CODE:
333        owl_variable_dict_newvar_bool(owl_global_get_vardict(&g),
334                                      name,
335                                      summ,
336                                      desc,
337                                      ival);
338
339void
340add_dispatch(fd, cb)
341        int fd
342        SV * cb
343        CODE:
344        SvREFCNT_inc(cb);
345        owl_select_add_perl_dispatch(fd, cb);
346
347void
348remove_dispatch(fd)
349        int fd
350        CODE:
351        owl_select_remove_perl_dispatch(fd);
Note: See TracBrowser for help on using the repository browser.