[224] in BarnOwl Developers
[D-O-H] r400 - trunk/owl
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:03:52 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
Date: Tue, 24 Oct 2006 13:21:47 -0400 (EDT)
To: dirty-owl-hackers@MIT.EDU
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Author: asedeno
Date: 2006-10-24 12:40:02 -0400 (Tue, 24 Oct 2006)
New Revision: 400
Modified:
trunk/owl/commands.c
trunk/owl/perlconfig.c
trunk/owl/perlwrap.pm
Log:
Adding my getstyle patch, which I rely on from perl right now for a
number of my "modules".
Modified: trunk/owl/commands.c
===================================================================
--- trunk/owl/commands.c 2006-10-24 15:45:16 UTC (rev 399)
+++ trunk/owl/commands.c 2006-10-24 16:40:02 UTC (rev 400)
@@ -703,6 +703,10 @@
"returns the value of a variable",
"getvar <varname>", ""),
+ OWLCMD_ARGS("getstyle", owl_command_getstyle, OWL_CTX_INTERACTIVE,
+ "returns the name of the style for the current view",
+ "", ""),
+
OWLCMD_ARGS("search", owl_command_search, OWL_CTX_INTERACTIVE,
"search messages for a particular string",
"search [-r] [<string>]",
@@ -2394,6 +2398,18 @@
return(NULL);
}
+char *owl_command_getstyle(int argc, char **argv, char *buff)
+{
+ char *stylename;
+ if (argc != 1) {
+ owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
+ return NULL;
+ }
+ stylename = owl_view_get_style_name(owl_global_get_current_view(&g));
+ if (stylename) stylename = owl_strdup(stylename);
+ return stylename;
+}
+
/*********************************************************************/
/************************** EDIT SPECIFIC ****************************/
/*********************************************************************/
Modified: trunk/owl/perlconfig.c
===================================================================
--- trunk/owl/perlconfig.c 2006-10-24 15:45:16 UTC (rev 399)
+++ trunk/owl/perlconfig.c 2006-10-24 16:40:02 UTC (rev 400)
@@ -77,6 +77,7 @@
hv_store(h, "time", strlen("time"), newSVpv(owl_message_get_timestr(m),0),0);
hv_store(h, "id", strlen("id"), newSViv(owl_message_get_id(m)),0);
hv_store(h, "deleted", strlen("deleted"), newSViv(owl_message_is_delete(m)),0);
+ hv_store(h, "private", strlen("private"), newSViv(owl_message_is_private(m)),0);
if (owl_message_is_type_zephyr(m)) blessas = "owl::Message::Zephyr";
else if (owl_message_is_type_aim(m)) blessas = "owl::Message::AIM";
Modified: trunk/owl/perlwrap.pm
===================================================================
--- trunk/owl/perlwrap.pm 2006-10-24 15:45:16 UTC (rev 399)
+++ trunk/owl/perlwrap.pm 2006-10-24 16:40:02 UTC (rev 400)
@@ -44,6 +44,7 @@
sub sender { return shift->{"sender"}; }
sub recipient { return shift->{"recipient"}; }
sub login { return shift->{"login"}; }
+sub is_private { return shift->{"private"}; }
sub is_login { return shift->login eq "login"; }
sub is_logout { return shift->login eq "logout"; }
@@ -62,7 +63,6 @@
sub is_ping { return 0; }
sub is_mail { return 0; }
sub is_personal { return undef; }
-sub is_private { return undef; }
sub class { return undef; }
sub instance { return undef; }
sub realm { return undef; }
@@ -190,11 +190,6 @@
sub is_ping { return (lc(shift->opcode) eq "ping"); }
-sub is_private {
- my ($m) = @_;
- return (lc($m->recipient) eq lc(owl::zephyr_getsender()));
-}
-
sub is_personal {
my ($m) = @_;
return ((lc($m->class) eq "message")
