DELTA 11 3280 339
SVN  ƒ´C³€ˆw ,s€ª /* -*- mode: c; indent-tabs-mode: t; c-basic-offset: 8 -*- */
static const char fileIdent[] = "$Id$";

#ifdef HAVE_LIBZEPHYR
#include <zephyr/zephyr.h>
#endif
#include <EXTERN.h>

#define OWL_PERL
#include "owl.h"
SV *owl_perlconfig_curmessage2hashref(void);

#define SV_IS_CODEREF(sv) (SvROK((sv)) && SvTYPE(SvRV((sv))) == SVt_PVCV)

	/*************************************************************
	 * NOTE
	 *************************************************************
	 * These functions, when they are intended to be user-visible,
	 * are document in perlwrap.pm. If you add functions to this
	 * file, add the appropriate documentation there!
	 *
	 * If the function is simple enough, we simply define its
	 * entire functionality here in XS. If, however, it needs
	 * complex argument processing or something, we define a
	 * simple version here that takes arguments in as flat a
	 * manner as possible, to simplify the XS code, with a name
	 * with a trailing `_internal', and write a perl wrapper in
	 * perlwrap.pm that munges the arguments as appropriate and
	 * calls the internal version.
	 */

MODULE = BarnOwl		PACKAGE = BarnOwlSV *
getcurmsg()
	CODE:
		ST(0) = owl_perlconfig_curmessage2hashref();

int
getnumcols()
	CODE:
		RETVAL = owl_global_get_cols(&g);
	OUTPUT:
		RETVAL
		
time_t
getidletime()
	CODE:
		RETVAL = owl_global_get_idletime(&g);
	OUTPUT:
		RETVAL

char *
zephyr_getrealm()
	CODE:
		RETVAL = owl_zephyr_get_realm();
	OUTPUT:
		RETVAL

char *
zephyr_getsender()
	CODE:
		RETVAL = owl_zephyr_get_sender();
	OUTPUT:
		RETVAL

void
zephyr_zwrite(cmd,msg)
	char *cmd
	char *msg
	PREINIT:
		int i;
	CODE:
		i = owl_zwrite_create_and_send_from_line(cmd, msg);

char *
ztext_stylestrip(ztext)
	char *ztext
	PREINIT:
		char *rv = NULL;
	CODE:
		rv = owl_function_ztext_stylestrip(ztext);
		RETVAL = rv;
	OUTPUT:
		RETVAL
	CLEANUP:
		if (rv) owl_free(rv);

void
new_command_internal(name, func, summary, usage, description)
	char *name
	SV *func
	char *summary
	char *usage
	char *description
	PREINIT:
		owl_cmd cmd;
	CODE:
	{
		if(!SV_IS_CODEREF(func)) {
			croak("Command function must be a coderef!");
		}
		SvREFCNT_inc(func);
		cmd.name = name;
		cmd.cmd_perl = func;
		cmd.summary = summary;
		cmd.usage = usage;
		cmd.description = description;
		cmd.validctx = OWL_CTX_ANY;
		cmd.cmd_aliased_to = NULL;
		cmd.cmd_args_fn = NULL;
		cmd.cmd_v_fn = NULL;
		cmd.cmd_i_fn = NULL;
		cmd.cmd_ctxargs_fn = NULL;
		cmd.cmd_ctxv_fn = NULL;
		cmd.cmd_ctxi_fn = NULL;
		owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
	   }

void queue_message(msg) 
	SV *msg
	PREINIT:
		owl_message *m;
	CODE:
	{
		if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
			croak("Usage: BarnOwl::queue_message($message)");
		}

		m = owl_perlconfig_hashref2message(msg);

		owl_global_messagequeue_addmsg(&g, m);
	}

void admin_message(header, body) 
	char *header
	char *body
	CODE:
	{
		owl_function_adminmsg(header, body);		
	}

void start_question(line, callback)
	char *line
	SV *callback
	PREINIT:
	CODE:
	{
		if(!SV_IS_CODEREF(callback))
			croak("Callback must be a subref");

		owl_function_start_question(line);

		SvREFCNT_inc(callback);
		owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
		owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
	}

void start_password(line, callback)
	char *line
	SV *callback
	PREINIT:
	CODE:
	{
		if(!SV_IS_CODEREF(callback))
			croak("Callback must be a subref");

		owl_function_start_password(line);

		SvREFCNT_inc(callback);
		owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
		owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
	}

void start_edit_win(line, callback)
	char *line
	SV *callback
	PREINIT:
		owl_editwin * e;
		char buff[1024];
	CODE:
	{
		if(!SV_IS_CODEREF(callback))
			croak("Callback must be a subref");

		e = owl_global_get_typwin(&g);
		owl_editwin_new_style(e, OWL_EDITWIN_STYLE_MULTILINE,
				      owl_global_get_msg_history(&g));
		owl_editwin_clear(e);
		owl_editwin_set_dotsend(e);
		snprintf(buff, 1023, "----> %s\n", line);
		owl_editwin_set_locktext(e, buff);

		owl_global_set_typwin_active(&g);

		SvREFCNT_inc(callback);
		owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
		owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
	}


char * 
get_data_dir ()
	CODE:
		RETVAL = (char *) owl_get_datadir();
	OUTPUT:
	RETVAL

char * 
get_config_dir ()
	CODE:
		RETVAL = (char *) owl_global_get_confdir(&g);
	OUTPUT:
	RETVAL	

void
popless_text(text) 
	char *text
	CODE:
	{
		owl_function_popless_text(text);
	}

void
popless_ztext(text) 
	char *text
	CODE:
	{
		owl_fmtext fm;
		owl_fmtext_init_null(&fm);
		owl_fmtext_append_ztext(&fm, text);
		owl_function_popless_fmtext(&fm);
		owl_fmtext_free(&fm);
	}

void
error(text) 
	char *text
	CODE:
	{
		owl_function_error("%s", text);
	}

void
_create_style(name, function, description)
     char *name
     char *function
     char *description
     PREINIT:
		/* This is to allow us to bootstrap the default style before the
		command architecture has been initialized */
		owl_style *s;
     CODE:
	{
		s = owl_malloc(sizeof(owl_style));
		owl_style_create_perl(s, name, function, description);
		owl_global_add_style(&g, s);
	}

int
getnumcolors()
	CODE:
		RETVAL = owl_function_get_color_count();
	OUTPUT:
		RETVAL

void
_remove_filter(filterName)
	char *filterName
	CODE:
	{
		/* Don't delete the current view, or the 'all' filter */
		if (strcmp(filterName, owl_view_get_filtname(owl_global_get_current_view(&g)))
		    && strcmp(filterName, "all")) {
			owl_global_remove_filter(&g,filterName);
		}
	}

char *
wordwrap(in, cols)
	char *in
	int cols
	PREINIT:
		char *rv = NULL;
	CODE:
		rv = owl_text_wordwrap(in, cols);
		RETVAL = rv;	
	OUTPUT:
		RETVAL
	CLEANUP:
		if (rv) owl_free(rv);

void
new_variable_string_internal(name, ival, summ, desc)
	char * name
	char * ival
	char * summ
	char * desc
	CODE:
	owl_variable_dict_newvar_string(owl_global_get_vardict(&g),
					name,
					summ,
					desc,
					ival);

void
new_variable_int_internal(name, ival, summ, desc)
	char * name
	int ival
	char * summ
	char * desc
	CODE:
	owl_variable_dict_newvar_int(owl_global_get_vardict(&g),
				     name,
				     summ,
				     desc,
				     ival);

void
new_variable_bool_internal(name, ival, summ, desc)
	char * name
	int ival
	char * summ
	char * desc
	CODE:
	owl_variable_dict_newvar_bool(owl_global_get_vardict(&g),
				      name,
				      summ,
				      desc,
				      ival);
ENDREP
id: 1v.0.r828/6599
type: file
pred: 1v.0.r825/41
count: 32
text: 828 0 6574 6723 10e2ac05e0005045dd0fd176c788f1ac
props: 11 7891 81 0 685faf6a4230ea531a31a12e4b3cb565
cpath: /trunk/owl/perlglue.xs
copyroot: 0 /

PLAIN
K 4
BUGS
V 20
file 5u.0.r689/48450
K 9
ChangeLog
V 18
file h.0.r393/2438
K 11
Makefile.in
V 18
file i.0.r759/1066
K 4
NEWS
V 16
file j.0.r5/8251
K 6
README
V 18
file 5r.0.r710/316
K 4
TODO
V 18
file 5s.0.r619/324
K 5
aim.c
V 19
file 22.0.r321/7423
K 9
athstatic
V 18
file 1x.0.r533/117
K 7
buddy.c
V 20
file 3o.0.r234/19726
K 11
buddylist.c
V 20
file 3d.0.r238/12168
K 5
cmd.c
V 18
file k.0.r405/7146
K 11
codelist.pl
V 19
file l.0.r212/11814
K 10
commands.c
V 18
file m.0.r789/3245
K 11
config.h.in
V 18
file n.0.r707/3406
K 12
configure.in
V 17
file p.0.r760/683
K 9
context.c
V 18
file q.0.r209/8754
K 6
debian
V 17
dir 63.0.r772/647
K 6
dict.c
V 18
file r.0.r738/5748
K 3
doc
V 18
dir 1n.0.r589/1227
K 9
editwin.c
V 16
file s.0.r733/68
K 14
encapsulate.pl
V 20
file 3l.0.r225/44724
K 10
errqueue.c
V 20
file 3p.0.r242/19206
K 8
examples
V 17
dir 1s.0.r226/477
K 8
filter.c
V 19
file t.0.r752/15504
K 15
filterelement.c
V 16
file u.0.r600/52
K 8
fmtext.c
V 18
file v.0.r711/1132
K 11
functions.c
V 18
file w.0.r789/3456
K 8
global.c
V 17
file x.0.r801/173
K 6
help.c
V 17
file y.0.r712/145
K 9
history.c
V 17
file z.0.r283/439
K 10
install.sh
V 19
file 21.0.r122/7916
K 12
keybinding.c
V 18
file 10.0.r640/656
K 8
keymap.c
V 19
file 11.0.r209/8965
K 10
keypress.c
V 18
file 12.0.r359/996
K 6
keys.c
V 17
file 13.0.r773/90
K 7
libfaim
V 16
dir 23.0.r716/87
K 6
list.c
V 17
file 14.0.r635/59
K 9
logging.c
V 19
file 15.0.r730/9209
K 9
mainwin.c
V 20
file 16.0.r693/11667
K 9
message.c
V 19
file 17.0.r823/1093
K 13
messagelist.c
V 18
file 18.0.r558/539
K 13
mkinstalldirs
V 19
file 3v.0.r346/1232
K 11
muxevents.c
V 18
file 3w.0.r359/781
K 9
obarray.c
V 18
file 62.0.r739/564
K 5
owl.c
V 18
file 19.0.r778/580
K 5
owl.h
V 19
file 1a.0.r760/1103
K 6
pair.c
V 18
file 1z.0.r102/270
K 4
perl
V 18
dir 4a.0.r826/2018
K 12
perlconfig.c
V 20
file 3n.0.r752/15935
K 11
perlglue.xs
V 19
file 1v.0.r828/6599
K 11
perlwrap.pm
V 19
file 3m.0.r827/2002
K 9
popexec.c
V 19
file 3x.0.r364/1658
K 8
popwin.c
V 18
file 1b.0.r373/263
K 7
regex.c
V 19
file 1c.0.r597/1404
K 10
stubgen.pl
V 17
file 1d.0.r5/8659
K 7
style.c
V 19
file 3f.0.r280/1095
K 11
stylefunc.c
V 17
file 3g.0.r783/77
K 10
svkversion
V 18
file 6d.0.r660/834
K 1
t
V 18
dir 7y.0.r738/6796
K 6
test.h
V 19
file 3y.0.r738/5953
K 8
tester.c
V 19
file 1e.0.r738/6378
K 6
text.c
V 18
file 1f.0.r575/729
K 7
timer.c
V 20
file 3e.0.r143/11961
K 6
util.c
V 18
file 1g.0.r778/370
K 10
variable.c
V 19
file 1h.0.r819/8353
K 6
view.c
V 19
file 1i.0.r586/9731
K 9
viewwin.c
V 19
file 1j.0.r362/1349
K 12
zbuddylist.c
V 18
file 3u.0.r330/561
K 8
zcrypt.c
V 20
file 1y.0.r219/11682
K 8
zephyr.c
V 18
file 1k.0.r821/775
K 8
zwrite.c
V 17
file 1l.0.r744/99
END
ENDREP
id: g.0.r828/9521
type: dir
pred: g.0.r827/4927
count: 728
text: 828 6811 2697 2697 d1416650fa990f13a7f99fc5db904517
props: 789 6386 508 0 58ef94c2ac4d517e30ce5d5b3ba5faaa
cpath: /trunk/owl
copyroot: 0 /

PLAIN
K 7
CVSROOT
V 16
dir 4.0.r112/895
K 11
conf.alexmv
V 18
dir 5z.0.r790/1571
K 12
conf.asedeno
V 18
dir 3z.0.r617/2908
K 3
owl
V 17
dir g.0.r828/9521
END
ENDREP
id: 1.0.r828/9891
type: dir
pred: 1.0.r827/5297
count: 761
text: 828 9726 152 152 15a41f1f0da2b8c0a76481383da8e0d8
props: 808 8881 206 0 fb63802d68de5c3dce8ab7f057f7c25c
cpath: /trunk
copyroot: 0 /

PLAIN
K 8
branches
V 17
dir 2.0.r813/4825
K 4
tags
V 16
dir 3.0.r391/435
K 5
trunk
V 17
dir 1.0.r828/9891
END
ENDREP
id: 0.0.r828/10207
type: dir
pred: 0.0.r827/5613
count: 828
text: 828 10090 104 104 3dda82a8456d33235966384956e7a75e
props: 814 5811 257 0 1bba3ff3b0bec5c44a6f38be0d2645e9
cpath: /
copyroot: 0 /

1v.0.t827-1 modify true false /trunk/owl/perlglue.xs


10207 10403