Changes in / [dec60b4:95414bf]

Files:

• Makefile.am (modified) (2 diffs)
• commands.c (modified) (11 diffs)
• doc/code.txt (modified) (1 diff)
• functions.c (modified) (6 diffs)
• global.c (modified) (6 diffs)
• keymap.c (modified) (8 diffs)
• keys.c (modified) (6 diffs)
• logging.c (modified) (3 diffs)
• message.c (modified) (10 diffs)
• obarray.c (added)
• owl.c (modified) (1 diff)
• owl.h (modified) (5 diffs)
• perl/lib/BarnOwl/Hooks.pm (modified) (3 diffs)
• perl/lib/BarnOwl/MainLoopCompatHook.pm (deleted)
• perl/lib/BarnOwl/Message/Generic.pm (modified) (1 diff)
• perl/lib/BarnOwl/Style/Default.pm (modified) (2 diffs)
• perl/lib/BarnOwl/Timer.pm (modified) (2 diffs)
• perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (3 diffs)
• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (27 diffs)
• perl/modules/Makefile.am (modified) (1 diff)
• perl/modules/Twitter/.gitignore (deleted)
• perl/modules/Twitter/.hgignore (deleted)
• perl/modules/Twitter/Makefile.PL (deleted)
• perl/modules/Twitter/README (deleted)
• perl/modules/Twitter/inc/Module/Install.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/BarnOwl.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Base.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Can.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Fetch.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Makefile.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Metadata.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/Win32.pm (deleted)
• perl/modules/Twitter/inc/Module/Install/WriteAll.pm (deleted)
• perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm (deleted)
• perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm (deleted)
• perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Completion.pm (deleted)
• perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm (deleted)
• perl/modules/Twitter/twitter.example (deleted)
• perlconfig.c (modified) (1 diff)
• tester.c (modified) (2 diffs)
• variable.c (modified) (6 diffs)
• zephyr.c (modified) (2 diffs)

Makefile.am

@@ -1 +1 @@
 ACLOCAL_AMFLAGS = -I m4
-CFLAGS += $(EXTRA_CFLAGS)
 
 GIT_DESCRIPTION := $(if $(wildcard .git),$(shell git describe --match='barnowl-*' HEAD 2>/dev/null))
@@ -42 +41 @@
      keypress.c keymap.c keybinding.c cmd.c context.c \
      aim.c buddy.c buddylist.c style.c errqueue.c \
-     zbuddylist.c popexec.c select.c wcwidth.c \
+     zbuddylist.c popexec.c obarray.c select.c wcwidth.c \
      glib_compat.c filterproc.c
 

commands.c

@@ -106 +106 @@
   OWLCMD_ARGS("zwrite", owl_command_zwrite, OWL_CTX_INTERACTIVE,
               "send a zephyr",
-              "zwrite [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcode] [<user> ...] [-m <message...>]",
+              "zwrite [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcde] [<user> ...] [-m <message...>]",
               "Zwrite send a zephyr to the one or more users specified.\n\n"
               "The following options are available:\n\n"
@@ -138 +138 @@
   OWLCMD_ARGS("zcrypt", owl_command_zcrypt, OWL_CTX_INTERACTIVE,
               "send an encrypted zephyr",
-              "zcrypt [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcode] [-m <message...>]\n",
+              "zcrypt [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcde] [-m <message...>]\n",
               "Behaves like zwrite but uses encryption.  Not for use with\n"
               "personal messages\n"),
@@ -148 +148 @@
               "allow editing.\n\n"
               "If 'sender' is specified, reply to the sender.\n\n"
-              "If 'all' or no args are specified, reply publicly to the\n"
+              "If 'all' or no args are specified, reply publically to the\n"
               "same class/instance for non-personal messages and to the\n"
               "sender for personal messages.\n\n"
@@ -266 +266 @@
               "zpunt <class> <instance> [recipient]\n"
               "zpunt <instance>",
-              "The zpunt command will suppress messages to the specified\n"
+              "The zpunt command will supress message to the specified\n"
               "zephyr triplet.  In the second usage messages are suppressed\n"
               "for class MESSAGE and the named instance.\n\n"
@@ -283 +283 @@
               "punt <filter-text>",
               "punt <filter-text (multiple words)>\n"
-              "The punt command will suppress messages to the specified\n"
+              "The punt command will supress message to the specified\n"
               "filter\n\n"
               "SEE ALSO:  unpunt, zpunt, show zpunts\n"),
@@ -586 +586 @@
               "name style after the -s argument.\n"
               "\n"
-              "The other usages listed above are abbreviated forms that simply set\n"
+              "The other usages listed above are abbreivated forms that simply set\n"
               "the filter of the current view. The -d option allows you to write a\n"
               "filter expression that will be dynamically created by owl and then\n"
@@ -594 +594 @@
   OWLCMD_ARGS("smartnarrow", owl_command_smartnarrow, OWL_CTX_INTERACTIVE,
               "view only messages similar to the current message",
-              "smartnarrow [-i | --instance]  [-r | --related]",
+              "smartnarrow [-i | --instance]  [-r | --relatde]",
               "If the curmsg is a personal message narrow\n"
               "   to the conversation with that user.\n"
@@ -614 +614 @@
               "   message, the filter is to that instance.\n"
               "If the curmsg is a class message, the filter is that class.\n"
-              "If the curmsg is a class message and '-i' is specified\n"
+              "If the curmsg is a class message and '-i' is specied\n"
               "    the filter is to that class and instance.\n"),
 
@@ -674 +674 @@
               "for formatting messages.\n\n"
               "Show variables will list the names of all variables.\n\n"
-              "Show errors will show a list of errors encountered by Owl.\n\n"
+              "Show errors will show a list of errors ecountered by Owl.\n\n"
               "SEE ALSO: filter, view, alias, bindkey, help\n"),
   
@@ -743 +743 @@
               "set the search highlight string without searching",
               "setsearch <string>",
-              "The setsearch command highlights all occurrences of its\n"
+              "The setsearch command highlights all occurences of its\n"
           "argument and makes it the default argument for future\n"
           "search commands, but does not move the cursor.  With\n"
@@ -2184 +2184 @@
       argc--;
       argv++;
+    } else if (!strcmp(argv[0], "-r")) {
+      const char *foo;
+      foo=owl_function_create_negative_filter(owl_view_get_filtname(owl_global_get_current_view(&g)));
+      owl_function_change_currentview_filter(foo);
     } else if (!strcmp(argv[0], "-s")) {
       if (argc<2) {

doc/code.txt

@@ -86 +86 @@
              Meta.  At any one time, there is exactly one active
              keymap which determines where keybindings are looked for
-             (along with its parents).
+             (along with its submaps).
 
 list:        Simple list abstraction.  (Uses realloc to resize the list.)

functions.c

@@ -1999 +1999 @@
     pclose(p);
     
-    if (type == OWL_OUTPUT_RETURN) {
+    if (type == OWL_OUTPUT_POPUP) {
+      owl_function_popless_text(out);
+    } else if (type == OWL_OUTPUT_RETURN) {
       owl_free(newbuff);
       return out;
     } else if (type == OWL_OUTPUT_ADMINMSG) {
       owl_function_adminmsg(buff, out);
+    } else {
+      owl_function_popless_text(out);
     }
     owl_free(out);
@@ -2036 +2040 @@
     } else if (type == OWL_OUTPUT_RETURN) {
       return perlout;
+    } else {
+      owl_function_popless_text(perlout);
     }
     owl_free(perlout);
@@ -2499 +2505 @@
 
   owl_mainwin_redisplay(owl_global_get_mainwin(&g));  
-}
-
-static char *owl_function_smartfilter_cc(const owl_message *m) {
-  const char *ccs;
-  char *filtname;
-  char *text;
-  owl_filter *f;
-
-  ccs = owl_message_get_attribute_value(m, "zephyr_ccs");
-
-  filtname = owl_sprintf("conversation-%s", ccs);
-  owl_text_tr(filtname, ' ', '-');
-
-  if (owl_global_get_filter(&g, filtname)) {
-    return filtname;
-  }
-
-  text = owl_sprintf("type ^zephyr$ and filter personal and "
-                     "zephyr_ccs ^%s%s%s$",
-                     owl_getquoting(ccs), ccs, owl_getquoting(ccs));
-
-  f = owl_filter_new_fromstring(filtname, text);
-
-  owl_global_add_filter(&g, f);
-
-  owl_free(text);
-
-  return filtname;
 }
 
@@ -2582 +2560 @@
   if (owl_message_is_type_zephyr(m)) {
     if (owl_message_is_personal(m) || owl_message_is_loginout(m)) {
-      if (owl_message_get_attribute_value(m, "zephyr_ccs") != NULL) {
-        return owl_function_smartfilter_cc(m);
-      }
-
       if (owl_message_is_direction_in(m)) {
         zperson=short_zuser(owl_message_get_sender(m));
@@ -2879 +2853 @@
     km = owl_keyhandler_get_keymap(kh, kmname);
     owl_fmtext_append_bold(&fm, "\n\n----------------------------------------------------------------------------------------------------\n\n");
-    owl_keymap_get_details(km, &fm, 0);
+    owl_keymap_get_details(km, &fm);    
   }
   owl_fmtext_append_normal(&fm, "\n");
@@ -2905 +2879 @@
   km = owl_keyhandler_get_keymap(owl_global_get_keyhandler(&g), name);
   if (km) {
-    owl_keymap_get_details(km, &fm, 1);
+    owl_keymap_get_details(km, &fm);
   } else {
     owl_fmtext_append_normal(&fm, "No such keymap...\n");

global.c

@@ -18 +18 @@
   char *cd;
 
+  g->malloced=0;
+  g->freed=0;
+
   gethostname(hostname, MAXHOSTNAMELEN);
   hent=gethostbyname(hostname);
@@ -50 +53 @@
   g->filterlist = NULL;
   owl_list_create(&(g->puntlist));
-  g->messagequeue = g_queue_new();
+  owl_list_create(&(g->messagequeue));
   owl_dict_create(&(g->styledict));
   g->curmsg_vert_offset=0;
@@ -110 +113 @@
   g->pseudologin_notify = 0;
 
+  owl_obarray_init(&(g->obarray));
+
   owl_message_init_fmtext_cache();
   owl_list_create(&(g->io_dispatch_list));
@@ -859 +864 @@
 void owl_global_messagequeue_addmsg(owl_global *g, owl_message *m)
 {
-  g_queue_push_tail(g->messagequeue, m);
+  owl_list_append_element(&(g->messagequeue), m);
 }
 
@@ -870 +875 @@
   owl_message *out;
 
-  if (g_queue_is_empty(g->messagequeue))
-    return NULL;
-  out = g_queue_pop_head(g->messagequeue);
-  return out;
+  if (owl_list_get_size(&(g->messagequeue))==0) return(NULL);
+  out=owl_list_get_element(&(g->messagequeue), 0);
+  owl_list_remove_element(&(g->messagequeue), 0);
+  return(out);
 }
 
 int owl_global_messagequeue_pending(owl_global *g)
 {
-  return !g_queue_is_empty(g->messagequeue);
+  if (owl_list_get_size(&(g->messagequeue))==0) return(0);
+  return(1);
 }
 
@@ -1004 +1010 @@
 {
   return(&(g->startup_tio));
+}
+
+const char * owl_global_intern(owl_global *g, const char * string)
+{
+  return owl_obarray_insert(&(g->obarray), string);
 }
 

keymap.c

@@ -1 +1 @@
 #include <string.h>
 #include "owl.h"
-
-static void _owl_keymap_format_bindings(const owl_keymap *km, owl_fmtext *fm);
-static void _owl_keymap_format_with_parents(const owl_keymap *km, owl_fmtext *fm);
 
 /* returns 0 on success */
@@ -12 +9 @@
   if ((km->desc = owl_strdup(desc)) == NULL) return(-1);
   if (0 != owl_list_create(&km->bindings)) return(-1);
-  km->parent = NULL;
+  km->submap = NULL;
   km->default_fn = default_fn;
   km->prealways_fn = prealways_fn;
@@ -27 +24 @@
 }
 
-void owl_keymap_set_parent(owl_keymap *km, const owl_keymap *parent)
-{
-  km->parent = parent;
+void owl_keymap_set_submap(owl_keymap *km, const owl_keymap *submap)
+{
+  km->submap = submap;
 }
 
@@ -89 +86 @@
 
 /* Appends details about the keymap to fm */
-void owl_keymap_get_details(const owl_keymap *km, owl_fmtext *fm, int recurse)
-{
+void owl_keymap_get_details(const owl_keymap *km, owl_fmtext *fm)
+{
+  int i, nbindings; 
+  const owl_keybinding *kb;
+  
   owl_fmtext_append_bold(fm, "KEYMAP - ");
   owl_fmtext_append_bold(fm, km->name);
@@ -99 +99 @@
     owl_fmtext_append_normal(fm, "\n");
   }
-  if (km->parent) {
-    owl_fmtext_append_normal(fm, OWL_TABSTR "Has parent: ");
-    owl_fmtext_append_normal(fm, km->parent->name);
+  if (km->submap) {
+    owl_fmtext_append_normal(fm, OWL_TABSTR "Has submap: ");
+    owl_fmtext_append_normal(fm, km->submap->name);
     owl_fmtext_append_normal(fm, "\n");
   }
@@ -119 +119 @@
 
   owl_fmtext_append_bold(fm, "\nKey bindings:\n\n");  
-  if (recurse) {
-    _owl_keymap_format_with_parents(km, fm);
-  } else {
-    _owl_keymap_format_bindings(km, fm);
-  }
-}
-
-static void _owl_keymap_format_with_parents(const owl_keymap *km, owl_fmtext *fm)
-{
-  while (km) {
-    _owl_keymap_format_bindings(km, fm);
-    km = km->parent;
-    if (km) {
-      owl_fmtext_append_bold(fm, "\nInherited from ");
-      owl_fmtext_append_bold(fm, km->name);
-      owl_fmtext_append_bold(fm, ":\n\n");
-    }
-  }
-}
-
-static void _owl_keymap_format_bindings(const owl_keymap *km, owl_fmtext *fm)
-{
-  int i, nbindings;
-  const owl_keybinding *kb;
-  
   nbindings = owl_list_get_size(&km->bindings);
   for (i=0; i<nbindings; i++) {
@@ -273 +248 @@
   }
 
-  /* deal with the always_fn for the map and parents */
-  for (km=kh->active; km; km=km->parent) {
+  /* deal with the always_fn for the map and submaps */
+  for (km=kh->active; km; km=km->submap) {
     if (km->prealways_fn) {
       km->prealways_fn(j);
@@ -281 +256 @@
 
   /* search for a match.  goes through active keymap and then
-   * through parents... TODO:  clean this up so we can pull
+   * through submaps... TODO:  clean this up so we can pull
    * keyhandler and keymap apart.  */
-  for (km=kh->active; km; km=km->parent) {
+  for (km=kh->active; km; km=km->submap) {
     for (i=owl_list_get_size(&km->bindings)-1; i>=0; i--) {
       kb = owl_list_get_element(&km->bindings, i);

keys.c

@@ -30 +30 @@
        "Text editing and command window", 
        owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
-  owl_keymap_set_parent(km_editwin, km_global);
+  owl_keymap_set_submap(km_editwin, km_global);
   /*
   BIND_CMD("F1",          "help",            "");
@@ -99 +99 @@
        "Multi-line text editing", 
        owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
-  owl_keymap_set_parent(km_ew_multi, km_editwin);
+  owl_keymap_set_submap(km_ew_multi, km_editwin);
 
   BIND_CMD("UP",      "edit:move-up-line", "");
@@ -129 +129 @@
        "Single-line text editing", 
        owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
-  owl_keymap_set_parent(km_ew_onel, km_editwin);
+  owl_keymap_set_submap(km_ew_onel, km_editwin);
 
   BIND_CMD("C-u",         "edit:delete-all", "Clears the entire line");
@@ -154 +154 @@
        "Single-line response to question", 
        owl_keys_editwin_default, NULL, owl_keys_editwin_postalways);
-  owl_keymap_set_parent(km_ew_onel, km_editwin);
+  owl_keymap_set_submap(km_ew_onel, km_editwin);
 
   BIND_CMD("C-u",         "edit:delete-all", "Clears the entire line");
@@ -169 +169 @@
        "Pop-up window (eg, help)", 
        owl_keys_default_invalid, NULL, owl_keys_popless_postalways);
-  owl_keymap_set_parent(km_viewwin, km_global);
+  owl_keymap_set_submap(km_viewwin, km_global);
 
   BIND_CMD("SPACE",       "popless:scroll-down-page", "");
@@ -222 +222 @@
         "Main window / message list",
         owl_keys_default_invalid, owl_keys_recwin_prealways, NULL);
-  owl_keymap_set_parent(km_mainwin, km_global);
+  owl_keymap_set_submap(km_mainwin, km_global);
   BIND_CMD("C-x C-c", "start-command quit", "");
   BIND_CMD("F1",      "help",           "");

logging.c

@@ -128 +128 @@
   char filename[MAXPATHLEN], *logpath;
   char *to, *temp;
-  GList *cc;
 
   /* expand ~ in path names */
@@ -136 +135 @@
   if (owl_message_is_type_zephyr(m)) {
     /* If this has CC's, do all but the "recipient" which we'll do below */
-    cc = owl_message_get_cc_without_recipient(m);
-    while (cc != NULL) {
-      temp = short_zuser(cc->data);
-      snprintf(filename, MAXPATHLEN, "%s/%s", logpath, temp);
-      owl_log_append(m, filename);
-
-      owl_free(cc->data);
-      cc = g_list_delete_link(cc, cc);
-    }
-
+    to = owl_message_get_cc_without_recipient(m);
+    if (to != NULL) {
+      temp = strtok(to, " ");
+      while (temp != NULL) {
+          temp = short_zuser(temp);
+          snprintf(filename, MAXPATHLEN, "%s/%s", logpath, temp);
+          owl_log_append(m, filename);
+          temp = strtok(NULL, " ");
+      }
+      owl_free(to);
+    }
     to = short_zuser(owl_message_get_recipient(m));
   } else if (owl_message_is_type_jabber(m)) {
@@ -325 +325 @@
      * the sender, as well.
      */
-    char *temp;
-    GList *cc;
+    char *cc, *temp;
     cc = owl_message_get_cc_without_recipient(m);
-    while (cc != NULL) {
-      temp = short_zuser(cc->data);
-      if (strcasecmp(temp, frombuff) != 0) {
-        snprintf(filename, MAXPATHLEN, "%s/%s", logpath, temp);
-        owl_log_append(m, filename);
+    if (cc != NULL) {
+      temp = strtok(cc, " ");
+      while (temp != NULL) {
+        temp = short_zuser(temp);
+        if (strcasecmp(temp, frombuff) != 0) {
+          snprintf(filename, MAXPATHLEN, "%s/%s", logpath, temp);
+          owl_log_append(m, filename);
+        }
+        temp = strtok(NULL, " ");
       }
-
-      owl_free(cc->data);
-      cc = g_list_delete_link(cc, cc);
+      owl_free(cc);
     }
   }

message.c

@@ -61 +61 @@
   owl_pair *p = NULL, *pair = NULL;
 
-  attrname = g_intern_string(attrname);
-
   /* look for an existing pair with this key, */
   j=owl_list_get_size(&(m->attributes));
   for (i=0; i<j; i++) {
     p=owl_list_get_element(&(m->attributes), i);
-    if (owl_pair_get_key(p) == attrname) {
+    if (!strcmp(owl_pair_get_key(p), attrname)) {
       owl_free(owl_pair_get_value(p));
       pair = p;
@@ -76 +74 @@
   if(pair ==  NULL) {
     pair = owl_malloc(sizeof(owl_pair));
-    owl_pair_create(pair, attrname, NULL);
+    owl_pair_create(pair, owl_global_intern(&g, attrname), NULL);
     owl_list_append_element(&(m->attributes), pair);
   }
@@ -89 +87 @@
   int i, j;
   owl_pair *p;
-  GQuark quark;
-
-  quark = g_quark_try_string(attrname);
-  if (quark == 0)
-    /* don't bother inserting into string table */
-    return NULL;
-  attrname = g_quark_to_string(quark);
 
   j=owl_list_get_size(&(m->attributes));
   for (i=0; i<j; i++) {
     p=owl_list_get_element(&(m->attributes), i);
-    if (owl_pair_get_key(p) == attrname) {
+    if (!strcmp(owl_pair_get_key(p), attrname)) {
       return(owl_pair_get_value(p));
     }
@@ -505 +496 @@
 void owl_message_set_hostname(owl_message *m, const char *hostname)
 {
-  m->hostname = g_intern_string(hostname);
+  m->hostname=owl_global_intern(&g, hostname);
 }
 
@@ -593 +584 @@
 
 /* caller must free return value */
-GList *owl_message_get_cc_without_recipient(const owl_message *m)
-{
-  char *cc, *shortuser, *recip;
+char *owl_message_get_cc_without_recipient(const owl_message *m)
+{
+  char *cc, *out, *end, *shortuser, *recip;
   const char *user;
-  GList *out = NULL;
 
   cc = owl_message_get_cc(m);
@@ -604 +594 @@
 
   recip = short_zuser(owl_message_get_recipient(m));
+  out = owl_malloc(strlen(cc) + 2);
+  end = out;
 
   user = strtok(cc, " ");
@@ -609 +601 @@
     shortuser = short_zuser(user);
     if (strcasecmp(shortuser, recip) != 0) {
-      out = g_list_prepend(out, owl_strdup(user));
+      strcpy(end, user);
+      end[strlen(user)] = ' ';
+      end += strlen(user) + 1;
     }
     owl_free(shortuser);
     user = strtok(NULL, " ");
   }
+  end[0] = '\0';
 
   owl_free(recip);
   owl_free(cc);
+
+  if (strlen(out) == 0) {
+    owl_free(out);
+    out = NULL;
+  }
 
   return(out);
@@ -732 +732 @@
   owl_message_set_recipient(m, "looprecip");
   owl_message_set_isprivate(m);
-}
-
-void owl_message_save_ccs(owl_message *m) {
-  GList *cc;
-  char *tmp;
-
-  cc = owl_message_get_cc_without_recipient(m);
-
-  if (cc != NULL) {
-    GString *recips = g_string_new("");
-    cc = g_list_prepend(cc, short_zuser(owl_message_get_sender(m)));
-    cc = g_list_prepend(cc, short_zuser(owl_message_get_recipient(m)));
-    cc = g_list_sort(cc, (GCompareFunc)strcasecmp);
-
-    while(cc != NULL) {
-      /* Collapse any identical entries */
-      while (cc->next && strcasecmp(cc->data, cc->next->data) == 0) {
-        owl_free(cc->data);
-        cc = g_list_delete_link(cc, cc);
-      }
-
-      tmp = short_zuser(cc->data);
-      g_string_append(recips, tmp);
-
-      owl_free(tmp);
-      owl_free(cc->data);
-      cc = g_list_delete_link(cc, cc);
-
-      if (cc)
-        g_string_append_c(recips, ' ');
-    }
-
-    owl_message_set_attribute(m, "zephyr_ccs", recips->str);
-    g_string_free(recips, true);
-  }
 }
 
@@ -904 +869 @@
     }
   }
-
-  owl_message_save_ccs(m);
 }
 #else
@@ -1000 +963 @@
     owl_message_set_isprivate(m);
   }
-
-  owl_message_save_ccs(m);
 }
 

owl.c

@@ -589 +589 @@
   owl_global_push_context(&g, OWL_CTX_READCONFIG|OWL_CTX_RECV, NULL, "recv");
 
+  /* If we ever deprecate the mainloop hook, remove this. */
+  owl_select_add_timer(0, 1, owl_perlconfig_mainloop, NULL, NULL);
+
   owl_select_add_pre_select_action(owl_refresh_pre_select_action, NULL, NULL);
   owl_select_add_pre_select_action(owl_process_messages, NULL, NULL);

owl.h

@@ -476 +476 @@
   char     *desc;               /* description */
   owl_list  bindings;           /* key bindings */
-  const struct _owl_keymap *parent;     /* parent */
+  const struct _owl_keymap *submap;     /* submap */
   void (*default_fn)(owl_input j);      /* default action (takes a keypress) */
   void (*prealways_fn)(owl_input  j);   /* always called before a keypress is received */
@@ -521 +521 @@
   short **pairs;
 } owl_colorpair_mgr;
+
+typedef struct _owl_obarray {
+  owl_list strings;
+} owl_obarray;
 
 typedef struct _owl_io_dispatch {
@@ -595 +599 @@
   owl_colorpair_mgr cpmgr;
   pid_t newmsgproc_pid;
+  int malloced, freed;
   owl_regex search_re;
   aim_session_t aimsess;
@@ -605 +610 @@
   char *aim_screenname_for_filters;     /* currently logged in AIM screen name */
   owl_buddylist buddylist;  /* list of logged in AIM buddies */
-  GQueue *messagequeue;     /* for queueing up aim and other messages */
+  owl_list messagequeue;    /* for queueing up aim and other messages */
   owl_dict styledict;       /* global dictionary of available styles */
   char *response;           /* response to the last question asked */
@@ -618 +623 @@
   int pseudologin_notify;
   struct termios startup_tio;
+  owl_obarray obarray;
   owl_list io_dispatch_list;
   owl_list psa_list;

perl/lib/BarnOwl/Hooks.pm

@@ -79 +79 @@
 our %EXPORT_TAGS = (all => [@EXPORT_OK]);
 
-use BarnOwl::MainLoopCompatHook;
-
 our $startup = BarnOwl::Hook->new;
 our $shutdown = BarnOwl::Hook->new;
 our $receiveMessage = BarnOwl::Hook->new;
 our $newMessage = BarnOwl::Hook->new;
-our $mainLoop = BarnOwl::MainLoopCompatHook->new;
+our $mainLoop = BarnOwl::Hook->new;
 our $getBuddyList = BarnOwl::Hook->new;
 our $getQuickstart = BarnOwl::Hook->new;
@@ -164 +162 @@
     }
     
-    $mainLoop->check_owlconf();
     $startup->run(0);
     BarnOwl::startup() if *BarnOwl::startup{CODE};
@@ -189 +186 @@
     
     BarnOwl::new_msg($m) if *BarnOwl::new_msg{CODE};
+}
+
+sub _mainloop_hook {
+    $mainLoop->run;
+    BarnOwl::mainloop_hook() if *BarnOwl::mainloop_hook{CODE};
 }
 

perl/lib/BarnOwl/Message/Generic.pm

@@ -6 +6 @@
 use base qw( BarnOwl::Message );
 
-sub body { "" }
-
 
 1;

perl/lib/BarnOwl/Style/Default.pm

@@ -32 +32 @@
     my $m = shift;
     return $m->is_personal && $m->direction eq "in";
-}
-
-sub maybe {
-    my $x = shift;
-    return defined($x) ? $x : "";
 }
 
@@ -104 +99 @@
             $header .= ' / ' . $self->humanize($m->subcontext, 1);
         }
-        $header .= ' / @b{' . maybe($m->pretty_sender) . '}';
+        $header .= ' / @b{' . $m->pretty_sender . '}';
     }
 

perl/lib/BarnOwl/Timer.pm

@@ -21 +21 @@
 }
 
-sub stop {
-    my $self = shift;
-    if(defined($self->{timer})) {
-        BarnOwl::Internal::remove_timer($self->{timer});
-        undef $self->{timer};
-    }
-}
-
 sub do_callback {
     my $self = shift;
@@ -36 +28 @@
 sub DESTROY {
     my $self = shift;
-    $self->stop;
+    if(defined($self->{timer})) {
+        BarnOwl::Internal::remove_timer($self->{timer});
+    }
 }
 

perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

@@ -20 +20 @@
 sub to { shift->{to} };
 sub room { shift->{room} };
-sub nick { shift->{nick} };
 sub subject { shift->{subject} };
 sub status { shift->{status} }
@@ -42 +41 @@
 sub long_sender {
     my $self = shift;
-    if ($self->jtype eq 'groupchat' && $self->nick) {
-        my $from_jid = Net::Jabber::JID->new($self->from);
-        if ($from_jid->GetJID('base') eq $self->room &&
-            $from_jid->GetResource() eq $self->nick) {
-            return $self->nick;
-        }
-    }
     return $self->from;
 }
@@ -85 +77 @@
     } elsif ($self->jtype eq 'groupchat') {
         my $room = $self->room;
-        if ($inst) {
-            my $subject = $self->subject;
-            $filter = "jabber-room-$room-subject-$subject";
-            BarnOwl::command(qw[filter], $filter,
-                             qw[type ^jabber$ and room], "^\Q$room\E\$",
-                             qw[and subject], "^\Q$subject\E\$");
-        } else {
-            $filter = "jabber-room-$room";
-            BarnOwl::command(qw[filter], $filter,
-                             qw[type ^jabber$ and room], "^\Q$room\E\$");
-        }
+        $filter = "jabber-room-$room";
+        BarnOwl::command(qw[filter], $filter,
+                         qw[type ^jabber$ and room], "^\Q$room\E\$");
         return $filter;
     } elsif ($self->login ne 'none') {

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -285 +285 @@
         {
             summary => "Send a Jabber Message",
-            usage   => "jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>] [-m <message>]"
+            usage   => "jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]"
         }
     );
@@ -308 +308 @@
             description => "jmuc sends Jabber commands related to MUC.\n\n"
               . "The following commands are available\n\n"
-              . "join <muc>[/<nick>]\n"
-              . "            Join a MUC (with a given nickname, or otherwise your JID).\n\n"
+              . "join <muc>  Join a MUC.\n\n"
               . "part <muc>  Part a MUC.\n"
               . "            The MUC is taken from the current message if not supplied.\n\n"
@@ -378 +377 @@
         my $cjidStr = $conn->baseJIDExists($jidStr);
         if ($cjidStr) {
-            die("Already logged in as $cjidStr.\n");
+            BarnOwl::error("Already logged in as $cjidStr.");
+            return;
         }
     }
@@ -387 +387 @@
 
     if ( !$uid || !$componentname ) {
-        die("usage: $cmd JID\n");
+        BarnOwl::error("usage: $cmd JID");
+        return;
     }
 
     if ( $conn->jidActive($jidStr) ) {
-        die("Already logged in as $jidStr.\n");
+        BarnOwl::error("Already logged in as $jidStr.");
+        return;
     } elsif ($conn->jidExists($jidStr)) {
         return $conn->tryReconnect($jidStr, 1);
@@ -524 +526 @@
 sub cmd_jlist {
     if ( !( scalar $conn->getJIDs() ) ) {
-        die("You are not logged in to Jabber.\n");
+        BarnOwl::error("You are not logged in to Jabber.");
+        return;
     }
     BarnOwl::popless_ztext( onGetBuddyList() );
@@ -531 +534 @@
 sub cmd_jwrite {
     if ( !$conn->connected() ) {
-        die("You are not logged in to Jabber.\n");
+        BarnOwl::error("You are not logged in to Jabber.");
+        return;
     }
 
@@ -539 +543 @@
     my $jwrite_thread  = "";
     my $jwrite_subject = "";
-    my $jwrite_body;
     my ($to, $from);
     my $jwrite_type    = "chat";
@@ -551 +554 @@
         'subject=s' => \$jwrite_subject,
         'account=s' => \$from,
-        'id=s'      => \$jwrite_sid,
-        'message=s' => \$jwrite_body,
+        'id=s'     =>  \$jwrite_sid,
     ) or die("Usage: jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]\n");
     $jwrite_type = 'groupchat' if $gc;
 
     if ( scalar @ARGV != 1 ) {
-        die("Usage: jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]\n");
+        BarnOwl::error(
+            "Usage: jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]");
+        return;
     }
     else {
@@ -566 +570 @@
 
     unless(scalar @candidates) {
-        die("Unable to resolve JID $to\n");
+        die("Unable to resolve JID $to");
     }
 
@@ -573 +577 @@
     unless(scalar @candidates) {
         if(!$from) {
-            die("You must specify an account with -a\n");
+            die("You must specify an account with -a");
         } else {
-            die("Unable to resolve account $from\n");
+            die("Unable to resolve account $from");
         }
     }
@@ -590 +594 @@
         type    => $jwrite_type
     };
-
-    if (defined($jwrite_body)) {
-        process_owl_jwrite($jwrite_body);
-        return;
-    }
 
     if(scalar @candidates > 1) {
@@ -632 +631 @@
     my $func = $jmuc_commands{$cmd};
     if ( !$func ) {
-        die("jmuc: Unknown command: $cmd\n");
+        BarnOwl::error("jmuc: Unknown command: $cmd");
+        return;
     }
 
@@ -654 +654 @@
         }
         else {
-            die("You must specify an account with -a <jid>\n");
+            BarnOwl::error('You must specify an account with -a <jid>');
         }
         return $func->( $jid, $muc, @ARGV );
@@ -667 +667 @@
 
     $muc = shift @ARGV
-      or die("Usage: jmuc join <muc> [-p <password>] [-a <account>]\n");
+      or die("Usage: jmuc join <muc> [-p <password>] [-a <account>]");
 
     die("Error: Must specify a fully-qualified MUC name (e.g. barnowl\@conference.mit.edu)\n")
@@ -680 +680 @@
                                                    MaxChars => 0
                                                   });
-    $completion_jids{$muc->GetJID('base')} = 1;
+    $completion_jids{$muc} = 1;
     return;
 }
@@ -688 +688 @@
 
     $muc = shift @args if scalar @args;
-    die("Usage: jmuc part [<muc>] [-a <account>]\n") unless $muc;
+    die("Usage: jmuc part [<muc>] [-a <account>]") unless $muc;
 
     if($conn->getConnectionFromJID($jid)->MUCLeave(JID => $muc)) {
         queue_admin_msg("$jid has left $muc.");
     } else {
-        die("Error: Not joined to $muc\n");
+        die("Error: Not joined to $muc");
     }
 }
@@ -703 +703 @@
     $muc = shift @args if scalar @args;
 
-    die("Usage: jmuc invite <jid> [<muc>] [-a <account>]\n")
+    die('Usage: jmuc invite <jid> [<muc>] [-a <account>]')
       unless $muc && $invite_jid;
 
@@ -718 +718 @@
     my ( $jid, $muc, @args ) = @_;
     $muc = shift @args if scalar @args;
-    die("Usage: jmuc configure [<muc>]\n") unless $muc;
+    die("Usage: jmuc configure [<muc>]") unless $muc;
     my $iq = Net::Jabber::IQ->new();
     $iq->SetTo($muc);
@@ -759 +759 @@
 
     $muc = shift @args if scalar @args;
-    die("Usage: jmuc presence [<muc>]\n") unless $muc;
+    die("Usage: jmuc presence [<muc>]") unless $muc;
 
     if ($muc eq '-a') {
@@ -774 +774 @@
     else {
         my $m = $conn->getConnectionFromJID($jid)->FindMUC(jid => $muc);
-        die("No such muc: $muc\n") unless $m;
+        die("No such muc: $muc") unless $m;
         BarnOwl::popless_ztext(jmuc_presence_single($m));
     }
@@ -801 +801 @@
     my $func = $jroster_commands{$cmd};
     if ( !$func ) {
-        die("jroster: Unknown command: $cmd\n");
+        BarnOwl::error("jroster: Unknown command: $cmd");
+        return;
     }
 
@@ -824 +825 @@
         }
         else {
-            die("You must specify an account with -a <jid>\n");
+            BarnOwl::error('You must specify an account with -a <jid>');
         }
         return $func->( $jid, $name, \@groups, $purgeGroups,  @ARGV );
@@ -848 +849 @@
     }
     else {
-        die("You must specify an account with -a <jid>\n");
+        BarnOwl::error('You must specify an account with -a <jid>');
     }
 
@@ -1233 +1234 @@
         $completion_jids{$room} = 1;
 
-        my $muc;
-        if ($dir eq 'in') {
-            my $connection = $conn->getConnectionFromSid($props{sid});
-            $muc = $connection->FindMUC(jid => $from);
-        } else {
-            my $connection = $conn->getConnectionFromJID($props{from});
-            $muc = $connection->FindMUC(jid => $to);
-        }
-        $props{from} = $muc->GetFullJID($from) || $props{from};
         $props{sender} = $nick || $room;
         $props{recipient} = $room;
@@ -1339 +1331 @@
         return $givenJIDStr if ($conn->jidExists($givenJIDStr) );
         return resolveConnectedJID($givenJID->GetJID('base')) if $loose;
-        die("Invalid account: $givenJIDStr\n");
+        die("Invalid account: $givenJIDStr");
     }
 
@@ -1392 +1384 @@
         # Not one of ours.
         else {
-            die("Invalid account: $givenJIDStr\n");
+            die("Invalid account: $givenJIDStr");
         }
 
@@ -1438 +1430 @@
     if($from) {
         $from_jid = resolveConnectedJID($from, 1);
-        die("Unable to resolve account $from\n") unless $from_jid;
+        die("Unable to resolve account $from") unless $from_jid;
         $to_jid = resolveDestJID($to, $from_jid);
         push @matches, [$from_jid, $to_jid] if $to_jid;

perl/modules/Makefile.am

@@ -1 @@
-MODULES = Jabber IRC WordWrap Twitter
+MODULES = Jabber IRC WordWrap
 
 EXTRA_DIST = $(MODULES:=/Makefile.PL) $(MODULES:=/inc) $(MODULES:=/lib)

perlconfig.c

@@ -584 +584 @@
 }
 
+void owl_perlconfig_mainloop(owl_timer *t, void *data)
+{
+  dSP;
+  if (!owl_perlconfig_is_function("BarnOwl::Hooks::_mainloop_hook"))
+    return;
+  PUSHMARK(SP) ;
+  call_pv("BarnOwl::Hooks::_mainloop_hook", G_DISCARD|G_EVAL);
+  if(SvTRUE(ERRSV)) {
+    owl_function_error("%s", SvPV_nolen(ERRSV));
+  }
+  return;
+}
+
 void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
 {

tester.c

@@ -105 +105 @@
   numfailures += owl_variable_regtest();
   numfailures += owl_filter_regtest();
+  numfailures += owl_obarray_regtest();
   numfailures += owl_editwin_regtest();
   if (numfailures) {
@@ -367 +368 @@
 }
 
+
+int owl_obarray_regtest(void) {
+  int numfailed = 0;
+  const char *p,*p2;
+
+  owl_obarray oa;
+  owl_obarray_init(&oa);
+
+  printf("# BEGIN testing owl_obarray\n");
+
+  p = owl_obarray_insert(&oa, "test");
+  FAIL_UNLESS("returned string is equal", p && !strcmp(p, "test"));
+  p2 = owl_obarray_insert(&oa, "test");
+  FAIL_UNLESS("returned string is equal", p2 && !strcmp(p2, "test"));
+  FAIL_UNLESS("returned the same string", p2 && p == p2);
+
+  p = owl_obarray_insert(&oa, "test2");
+  FAIL_UNLESS("returned string is equal", p && !strcmp(p, "test2"));
+  p2 = owl_obarray_find(&oa, "test2");
+  FAIL_UNLESS("returned the same string", p2 && !strcmp(p2, "test2"));
+
+  p = owl_obarray_find(&oa, "nothere");
+  FAIL_UNLESS("Didn't find a string that isn't there", p == NULL);
+
+  printf("# END testing owl_obarray (%d failures)\n", numfailed);
+
+  return numfailed;
+}
+
 int owl_editwin_regtest(void) {
   int numfailed = 0;

variable.c

@@ -110 +110 @@
 
   OWLVAR_ENUM( "loggingdirection" /* %OwlVarStub */, OWL_LOGGING_DIRECTION_BOTH,
-               "specifies which kind of messages should be logged",
+               "specifices which kind of messages should be logged",
                "Can be one of 'both', 'in', or 'out'.  If 'in' is\n"
                "selected, only incoming messages are logged, if 'out'\n"
@@ -138 +138 @@
                     "location of users in your .anyone file.  If a user is present\n"
                     "but sent no login message, or a user is not present that sent no\n"
-                    "logout message, a pseudo login or logout message will be created\n",
+                    "logout message, a pseudo login or logout message wil be created\n",
                     NULL, owl_variable_pseudologins_set, NULL),
 
@@ -151 +151 @@
 
                  "If non empty, any messages matching the given filter will be logged.\n"
-                 "This is a completely separate mechanism from the other logging\n"
+                 "This is a completely separate mechanisim from the other logging\n"
                  "variables like logging, classlogging, loglogins, loggingdirection,\n"
                  "etc.  If you want this variable to control all logging, make sure\n"
@@ -198 +198 @@
   OWLVAR_PATH( "newmsgproc" /* %OwlVarStub:newmsgproc */, NULL,
                "name of a program to run when new messages are present",
-               "The named program will be run when owl receives new\n"
+               "The named program will be run when owl recevies new.\n"
                "messages.  It will not be run again until the first\n"
                "instance exits"),
@@ -213 +213 @@
                  "Called every time you start a zephyrgram without an\n"
                  "explicit zsig.  The default setting implements the policy\n"
-                 "described in the documentation for the 'zsig' variable.\n"),
+                 "descripted in the documentation for the 'zsig' variable.\n"),
 
   OWLVAR_STRING( "zsig" /* %OwlVarStub */, "",
@@ -297 +297 @@
               "number of seconds after AIM login to ignore login messages",
               "This specifies the number of seconds to wait after an\n"
-              "AIM login before allowing the receipt of AIM login notifications.\n"
+              "AIM login before allowing the recipt of AIM login notifications.\n"
               "By default this is set to 15.  If you would like to view login\n"
               "notifications of buddies as soon as you login, set it to 0 instead."),

zephyr.c

@@ -258 +258 @@
 
   if (stat(subsfile, &statbuff) != 0) {
-    owl_free(subsfile);
     if (error_on_nofile == 1)
       return -1;
@@ -374 +373 @@
   subsfile = owl_zephyr_dotfile(".anyone", filename);
 
-  if (stat(subsfile, &statbuff) == -1) {
-    owl_free(subsfile);
+  if (stat(subsfile, &statbuff) == -1)
     return 0;
-  }
 
   ZResetAuthentication();