Changeset 216c734

Timestamp:

Oct 24, 2006, 12:40:02 PM (16 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

0138478

Parents:

4211f50b

Message:

Adding my getstyle patch, which I rely on from perl right now for a
number of my "modules".

Files:

• commands.c (modified) (2 diffs)
• perlconfig.c (modified) (1 diff)
• perlwrap.pm (modified) (3 diffs)

commands.c

@@ -703 +703 @@
               "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,
@@ -2395 +2399 @@
 }
 
+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 ****************************/

perlconfig.c

@@ -78 +78 @@
   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";

perlwrap.pm

@@ -45 +45 @@
 sub recipient   { return shift->{"recipient"}; }
 sub login       { return shift->{"login"}; }
+sub is_private  { return shift->{"private"}; }
 
 sub is_login    { return shift->login eq "login"; }
@@ -63 +64 @@
 sub is_mail     { return 0; }
 sub is_personal { return undef; }
-sub is_private  { return undef; }
 sub class       { return undef; }
 sub instance    { return undef; }
@@ -191 +191 @@
 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) = @_;