Context Navigation

source: perlglue.xs @ 6ee496b

Visit:

Last change on this file since 6ee496b was 6ee496b, checked in by Adam Glasgall <glasgall@mit.edu>, 8 years ago
Initial support for displaying message edits
Property mode set to `100644`
File size: 13.2 KB

Line
1	/* -- mode: c; indent-tabs-mode: t; c-basic-offset: 8 -- */
2	#define OWL_PERL
3	#include "owl.h"
4
5	#define SV_IS_CODEREF(sv) (SvROK((sv)) && SvTYPE(SvRV((sv))) == SVt_PVCV)
6
7	typedef char utf8;
8
9	/*************************************************************
10	* NOTE
11	*************************************************************
12	* These functions, when they are intended to be user-visible,
13	* are documented in perl/lib/BarnOwl.pm. If you add functions
14	* to this file, add the appropriate documentation there!
15	*
16	* If the function is simple enough, we simply define its
17	* entire functionality here in XS. If, however, it needs
18	* complex argument processing or something, we define a
19	* simple version here that takes arguments in as flat a
20	* manner as possible, to simplify the XS code, put it in
21	* BarnOwl::Internal::, and write a perl wrapper in BarnOwl.pm
22	* that munges the arguments as appropriate and calls the
23	* internal version.
24	*/
25
26	MODULE = BarnOwl PACKAGE = BarnOwl
27
28	const utf8 *
29	command(cmd, ...)
30	const char *cmd
31	PREINIT:
32	char *rv = NULL;
33	const char **argv;
34	int i;
35	CODE:
36	{
37	if (items == 1) {
38	rv = owl_function_command(cmd);
39	} else {
40	/* Ensure this is NULL-terminated. */
41	argv = g_new0(const char *, items + 1);
42	argv[0] = cmd;
43	for(i = 1; i < items; i++) {
44	argv[i] = SvPV_nolen(ST(i));
45	}
46	rv = owl_function_command_argv(argv, items);
47	g_free(argv);
48	}
49	RETVAL = rv;
50	}
51	OUTPUT:
52	RETVAL
53	CLEANUP:
54	g_free(rv);
55
56	SV *
57	getcurmsg()
58	CODE:
59	RETVAL = owl_perlconfig_curmessage2hashref();
60	OUTPUT:
61	RETVAL
62
63	int
64	getnumcols()
65	CODE:
66	RETVAL = owl_global_get_cols(&g);
67	OUTPUT:
68	RETVAL
69
70	int
71	getnumlines()
72	CODE:
73	RETVAL = owl_global_get_lines(&g);
74	OUTPUT:
75	RETVAL
76
77	time_t
78	getidletime()
79	CODE:
80	RETVAL = owl_global_get_idletime(&g);
81	OUTPUT:
82	RETVAL
83
84	const utf8 *
85	zephyr_getrealm()
86	CODE:
87	RETVAL = owl_zephyr_get_realm();
88	OUTPUT:
89	RETVAL
90
91	const utf8 *
92	zephyr_getsender()
93	CODE:
94	RETVAL = owl_zephyr_get_sender();
95	OUTPUT:
96	RETVAL
97
98	const utf8 *
99	ztext_stylestrip(ztext)
100	const char *ztext
101	PREINIT:
102	char *rv = NULL;
103	CODE:
104	rv = owl_function_ztext_stylestrip(ztext);
105	RETVAL = rv;
106	OUTPUT:
107	RETVAL
108	CLEANUP:
109	g_free(rv);
110
111	const utf8 *
112	zephyr_smartstrip_user(in)
113	const char *in
114	PREINIT:
115	char *rv = NULL;
116	CODE:
117	{
118	rv = owl_zephyr_smartstripped_user(in);
119	RETVAL = rv;
120	}
121	OUTPUT:
122	RETVAL
123	CLEANUP:
124	g_free(rv);
125
126	const utf8 *
127	zephyr_getsubs()
128	PREINIT:
129	char *rv = NULL;
130	CODE:
131	rv = owl_zephyr_getsubs();
132	RETVAL = rv;
133	OUTPUT:
134	RETVAL
135	CLEANUP:
136	g_free(rv);
137
138	SV *
139	queue_message(msg)
140	SV *msg
141	PREINIT:
142	owl_message *m;
143	CODE:
144	{
145	if(!SvROK(msg) \|\| SvTYPE(SvRV(msg)) != SVt_PVHV) {
146	croak("Usage: BarnOwl::queue_message($message)");
147	}
148
149	m = owl_perlconfig_hashref2message(msg);
150
151	owl_global_messagequeue_addmsg(&g, m);
152
153	RETVAL = owl_perlconfig_message2hashref(m);
154	}
155	OUTPUT:
156	RETVAL
157
158	SV *
159	get_message_by_id(id)
160	int id
161	PREINIT:
162	owl_message *m;
163	owl_messagelist *ml;
164	CODE:
165	{
166	ml = owl_global_get_msglist(&g);
167	m = owl_messagelist_get_by_id(ml, id);
168	if(!m) {
169	croak("No message with id %d!", id);
170	}
171	RETVAL = owl_perlconfig_message2hashref(m);
172	}
173	OUTPUT:
174	RETVAL
175
176
177	void
178	admin_message(header, body)
179	const char *header
180	const char *body
181	CODE:
182	{
183	owl_function_adminmsg(header, body);
184	}
185
186
187	const char *
188	get_data_dir ()
189	CODE:
190	RETVAL = owl_get_datadir();
191	OUTPUT:
192	RETVAL
193
194	const char *
195	get_config_dir ()
196	CODE:
197	RETVAL = owl_global_get_confdir(&g);
198	OUTPUT:
199	RETVAL
200
201	void
202	popless_text(text)
203	const char *text
204	CODE:
205	{
206	owl_function_popless_text(text);
207	}
208
209	void
210	popless_ztext(text)
211	const char *text
212	CODE:
213	{
214	owl_fmtext fm;
215	owl_fmtext_init_null(&fm);
216	owl_fmtext_append_ztext(&fm, text);
217	owl_function_popless_fmtext(&fm);
218	owl_fmtext_cleanup(&fm);
219	}
220
221	void
222	error(text)
223	const char *text
224	CODE:
225	{
226	owl_function_error("%s", text);
227	}
228
229	void
230	debug(text)
231	const char *text
232	CODE:
233	{
234	owl_function_debugmsg("%s", text);
235	}
236
237	void
238	message(text)
239	const char *text
240	CODE:
241	{
242	owl_function_makemsg("%s", text);
243	}
244
245	void
246	create_style(name, object)
247	const char *name
248	SV *object
249	PREINIT:
250	owl_style *s;
251	CODE:
252	{
253	s = g_slice_new(owl_style);
254	owl_style_create_perl(s, name, newSVsv(object));
255	owl_global_add_style(&g, s);
256	}
257
258	int
259	getnumcolors()
260	CODE:
261	RETVAL = owl_function_get_color_count();
262	OUTPUT:
263	RETVAL
264
265	void
266	_remove_filter(filterName)
267	const char *filterName
268	CODE:
269	{
270	/* Don't delete the current view, or the 'all' filter */
271	if (strcmp(filterName, owl_view_get_filtname(owl_global_get_current_view(&g)))
272	&& strcmp(filterName, "all")) {
273	owl_global_remove_filter(&g,filterName);
274	}
275	}
276
277	bool
278	message_matches_filter(message, filter_name, quiet = false)
279	SV *message
280	const char *filter_name
281	bool quiet
282	PREINIT:
283	owl_message *m;
284	const owl_filter *f;
285	CODE:
286	{
287	if (!SvROK(message) \|\| SvTYPE(SvRV(message)) != SVt_PVHV) {
288	croak("Usage: BarnOwl::message_matches_filter($message, $filter_name[, $quiet])");
289	}
290
291	m = owl_perlconfig_hashref2message(message);
292	f = owl_global_get_filter(&g, filter_name);
293	if (!f && !quiet) {
294	owl_function_error("%s filter is not defined", filter_name);
295	}
296	RETVAL = f && owl_filter_message_match(f, m);
297	}
298	OUTPUT:
299	RETVAL
300	CLEANUP:
301	owl_message_delete(m);
302
303	const utf8 *
304	wordwrap(in, cols)
305	const char *in
306	int cols
307	PREINIT:
308	char *rv = NULL;
309	CODE:
310	rv = owl_text_wordwrap(in, cols);
311	RETVAL = rv;
312	OUTPUT:
313	RETVAL
314	CLEANUP:
315	g_free(rv);
316
317	AV*
318	all_filters()
319	PREINIT:
320	GPtrArray *fl;
321	CODE:
322	{
323	fl = owl_dict_get_keys(&g.filters);
324	RETVAL = owl_new_av(fl, (SV()(const void*))owl_new_sv);
325	sv_2mortal((SV*)RETVAL);
326	owl_ptr_array_free(fl, g_free);
327	}
328	OUTPUT:
329	RETVAL
330
331	AV*
332	all_styles()
333	PREINIT:
334	GPtrArray *l;
335	CODE:
336	{
337	l = owl_global_get_style_names(&g);
338	RETVAL = owl_new_av(l, (SV()(const void*))owl_new_sv);
339	sv_2mortal((SV*)RETVAL);
340	}
341	OUTPUT:
342	RETVAL
343	CLEANUP:
344	owl_ptr_array_free(l, g_free);
345
346
347	AV*
348	all_variables()
349	PREINIT:
350	GPtrArray *l;
351	CODE:
352	{
353	l = owl_dict_get_keys(owl_global_get_vardict(&g));
354	RETVAL = owl_new_av(l, (SV()(const void*))owl_new_sv);
355	sv_2mortal((SV*)RETVAL);
356	}
357	OUTPUT:
358	RETVAL
359	CLEANUP:
360	owl_ptr_array_free(l, g_free);
361
362
363	AV*
364	all_keymaps()
365	PREINIT:
366	GPtrArray *l;
367	const owl_keyhandler *kh;
368	CODE:
369	{
370	kh = owl_global_get_keyhandler(&g);
371	l = owl_keyhandler_get_keymap_names(kh);
372	RETVAL = owl_new_av(l, (SV()(const void*))owl_new_sv);
373	sv_2mortal((SV*)RETVAL);
374	}
375	OUTPUT:
376	RETVAL
377	CLEANUP:
378	owl_ptr_array_free(l, g_free);
379
380	void
381	redisplay()
382	CODE:
383	{
384	owl_messagelist_invalidate_formats(owl_global_get_msglist(&g));
385	owl_function_calculate_topmsg(OWL_DIRECTION_DOWNWARDS);
386	owl_mainwin_redisplay(owl_global_get_mainwin(&g));
387	}
388
389	const char *
390	get_zephyr_variable(name)
391	const char *name;
392	CODE:
393	RETVAL = owl_zephyr_get_variable(name);
394	OUTPUT:
395	RETVAL
396
397	const utf8 *
398	skiptokens(str, n)
399	const char *str;
400	int n;
401	CODE:
402	RETVAL = skiptokens(str, n);
403	OUTPUT:
404	RETVAL
405
406	SV *
407	get_variable_info(name)
408	const char *name;
409	PREINIT:
410	owl_variable *var;
411	HV *h;
412	CODE:
413	var = owl_variable_get_var(owl_global_get_vardict(&g), name);
414	if (var == NULL) {
415	croak("No such variable");
416	}
417	h = newHV();
418	(void)hv_store(h, "name", strlen("name"),
419	owl_new_sv(owl_variable_get_name(var)), 0);
420	(void)hv_store(h, "description", strlen("description"),
421	owl_new_sv(owl_variable_get_description(var)),
422	0);
423	(void)hv_store(h, "summary", strlen("summary"),
424	owl_new_sv(owl_variable_get_summary(var)), 0);
425	(void)hv_store(h, "validsettings", strlen("validsettings"),
426	owl_new_sv(owl_variable_get_validsettings(var)),
427	0);
428	(void)hv_store(h, "takes_on_off", strlen("takes_on_off"),
429	newSViv(owl_variable_takes_on_off(var)), 0);
430	RETVAL = newRV_noinc((SV*)h);
431	OUTPUT:
432	RETVAL
433
434	const utf8 *
435	compat_casefold(in)
436	const char * in
437	PREINIT:
438	char *rv;
439	CODE:
440	rv = owl_util_compat_casefold(in);
441	RETVAL = rv;
442	OUTPUT:
443	RETVAL
444	CLEANUP:
445	g_free(rv);
446
447
448	MODULE = BarnOwl PACKAGE = BarnOwl::Zephyr
449
450	int
451	have_zephyr()
452	CODE:
453	RETVAL = owl_global_is_havezephyr(&g);
454	OUTPUT:
455	RETVAL
456
457	MODULE = BarnOwl PACKAGE = BarnOwl::Internal
458
459
460	int
461	file_deleteline(filename, line, backup)
462	const char *filename
463	const char *line
464	int backup
465	CODE:
466	RETVAL = owl_util_file_deleteline(filename, line, backup);
467	OUTPUT:
468	RETVAL
469
470	const utf8 *
471	makepath(in)
472	const char * in
473	PREINIT:
474	char *rv;
475	CODE:
476	rv = owl_util_makepath(in);
477	RETVAL = rv;
478	OUTPUT:
479	RETVAL
480	CLEANUP:
481	g_free(rv);
482
483	void
484	new_command(name, func, summary, usage, description)
485	char *name
486	SV *func
487	char *summary
488	char *usage
489	char *description
490	PREINIT:
491	owl_cmd cmd;
492	CODE:
493	{
494	if(!SV_IS_CODEREF(func)) {
495	croak("Command function must be a coderef!");
496	}
497	cmd.name = name;
498	cmd.cmd_perl = newSVsv(func);
499	cmd.summary = summary;
500	cmd.usage = usage;
501	cmd.description = description;
502	cmd.validctx = OWL_CTX_ANY;
503	cmd.cmd_aliased_to = NULL;
504	cmd.cmd_args_fn = NULL;
505	cmd.cmd_v_fn = NULL;
506	cmd.cmd_i_fn = NULL;
507	cmd.cmd_ctxargs_fn = NULL;
508	cmd.cmd_ctxv_fn = NULL;
509	cmd.cmd_ctxi_fn = NULL;
510	owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
511	}
512
513
514	MODULE = BarnOwl PACKAGE = BarnOwl::Internal
515
516	void
517	new_variable(name, summary, description, validsettings, takes_on_off, get_tostring_fn, set_fromstring_fn, data)
518	const char *name
519	const char *summary
520	const char *description
521	const char *validsettings
522	int takes_on_off
523	SV *get_tostring_fn
524	SV *set_fromstring_fn
525	SV *data
526	CODE:
527	{
528	/* data is somewhat redundant given we can create closures, but oh
529	* well. Might be convenient sometimes. */
530	if(!SV_IS_CODEREF(get_tostring_fn)) {
531	croak("To-string function must be a coderef!");
532	}
533	if(!SV_IS_CODEREF(set_fromstring_fn)) {
534	croak("From-string function must be a coderef!");
535	}
536
537	owl_variable_dict_newvar_other(owl_global_get_vardict(&g),
538	name, summary, description, validsettings, takes_on_off,
539	perl_closure_new(get_tostring_fn, data, false),
540	perl_closure_new(set_fromstring_fn, data, false));
541	}
542
543	void
544	start_edit(edit_type, line, callback)
545	const char *edit_type
546	const char *line
547	SV *callback
548	PREINIT:
549	owl_editwin *e;
550	CODE:
551	{
552	if (!SV_IS_CODEREF(callback))
553	croak("Callback must be a subref");
554
555	if (!strcmp(edit_type, "question"))
556	e = owl_function_start_question(line);
557	else if (!strcmp(edit_type, "password"))
558	e = owl_function_start_password(line);
559	else if (!strcmp(edit_type, "edit_win"))
560	e = owl_function_start_edit_win(line);
561	else
562	croak("edit_type must be one of 'password', 'question', 'edit_win', not '%s'", edit_type);
563
564	owl_editwin_set_cbdata(e, newSVsv(callback), owl_perlconfig_dec_refcnt);
565	owl_editwin_set_callback(e, owl_perlconfig_edit_callback);
566	}
567
568	int
569	zephyr_zwrite(cmd,msg)
570	const char *cmd
571	const char *msg
572	CODE:
573	RETVAL = owl_zwrite_create_and_send_from_line(cmd, msg);
574	OUTPUT:
575	RETVAL
576
577	MODULE = BarnOwl PACKAGE = BarnOwl::Editwin
578
579	int
580	replace(count, string)
581	int count;
582	const char *string;
583	PREINIT:
584	owl_editwin *e;
585	CODE:
586	e = owl_global_current_typwin(&g);
587	if (e) {
588	RETVAL = owl_editwin_replace(e, count, string);
589	} else {
590	RETVAL = 0;
591	}
592	OUTPUT:
593	RETVAL
594
595	int
596	point_move(delta)
597	int delta;
598	PREINIT:
599	owl_editwin *e;
600	CODE:
601	e = owl_global_current_typwin(&g);
602	if (e) {
603	RETVAL = owl_editwin_point_move(e, delta);
604	} else {
605	RETVAL = 0;
606	}
607	OUTPUT:
608	RETVAL
609
610	int
611	replace_region(string)
612	const char *string;
613	PREINIT:
614	owl_editwin *e;
615	CODE:
616	e = owl_global_current_typwin(&g);
617	if (e) {
618	RETVAL = owl_editwin_replace_region(e, string);
619	} else {
620	RETVAL = 0;
621	}
622	OUTPUT:
623	RETVAL
624
625	const utf8 *
626	get_region()
627	PREINIT:
628	char *region;
629	owl_editwin *e;
630	CODE:
631	e = owl_global_current_typwin(&g);
632	if (e) {
633	region = owl_editwin_get_region(owl_global_current_typwin(&g));
634	} else {
635	region = NULL;
636	}
637	RETVAL = region;
638	OUTPUT:
639	RETVAL
640	CLEANUP:
641	g_free(region);
642
643	SV *
644	save_excursion(sub)
645	SV *sub;
646	PROTOTYPE: &
647	PREINIT:
648	int count;
649	owl_editwin *e;
650	owl_editwin_excursion *x;
651	CODE:
652	{
653	e = owl_global_current_typwin(&g);
654	if(!e)
655	croak("The edit window is not currently active!");
656
657	x = owl_editwin_begin_excursion(owl_global_current_typwin(&g));
658	PUSHMARK(SP);
659	count = call_sv(sub, G_SCALAR\|G_EVAL\|G_NOARGS);
660	SPAGAIN;
661	owl_editwin_end_excursion(owl_global_current_typwin(&g), x);
662
663	if(SvTRUE(ERRSV)) {
664	croak(NULL);
665	}
666
667	if(count == 1)
668	RETVAL = SvREFCNT_inc(POPs);
669	else
670	XSRETURN_UNDEF;
671
672	}
673	OUTPUT:
674	RETVAL
675
676	int
677	current_column()
678	PREINIT:
679	owl_editwin *e;
680	CODE:
681	e = owl_global_current_typwin(&g);
682	if (e) {
683	RETVAL = owl_editwin_current_column(e);
684	} else {
685	RETVAL = 0;
686	}
687	OUTPUT:
688	RETVAL
689
690	int
691	point()
692	PREINIT:
693	owl_editwin *e;
694	CODE:
695	e = owl_global_current_typwin(&g);
696	if (e) {
697	RETVAL = owl_editwin_get_point(e);
698	} else {
699	RETVAL = 0;
700	}
701	OUTPUT:
702	RETVAL
703
704	int
705	mark()
706	PREINIT:
707	owl_editwin *e;
708	CODE:
709	e = owl_global_current_typwin(&g);
710	if (e) {
711	RETVAL = owl_editwin_get_mark(e);
712	} else {
713	RETVAL = 0;
714	}
715	OUTPUT:
716	RETVAL
717
718	MODULE = BarnOwl PACKAGE = BarnOwl::Logging
719
720	void
721	enqueue_text(log_text, filename)
722	const char * log_text
723	const char * filename
724	CODE:
725	owl_log_enqueue_message(log_text, filename);

Note: See TracBrowser for help on using the repository browser.

Download in other formats: