Changeset 120dac7

Timestamp:

Aug 8, 2013, 2:38:50 PM (11 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10

Children:

ecd4edf

Parents:

a38becd

git-author:

Jason Gross <jgross@mit.edu> (07/21/11 18:17:41)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (08/08/13 14:38:50)

Message:

Added a hook for wakeup/user input.

I wanted to add a hook that got called on all user-input, but any
non-trivial use of that hook incurred too much overhead (about 7 ms per
paragraph for entry into perl, and another 100 ms or so per paragraph
for execution of the hook; tests run on pasting lorem ipusm, on
linerva).

This hook is called at most once a second (approximately).

Files:

• global.c (modified) (2 diffs)
• owl.c (modified) (1 diff)
• owl.h (modified) (1 diff)
• perl/lib/BarnOwl/Hooks.pm (modified) (4 diffs)

global.c

@@ -56 +56 @@
   g->starttime=time(NULL); /* assumes we call init only a start time */
   g->lastinputtime=g->starttime;
+  g->last_wakeup_time = g->starttime;
   g->newmsgproc_pid=0;
   
@@ -482 +483 @@
 time_t owl_global_get_idletime(const owl_global *g) {
   return(time(NULL)-g->lastinputtime);
+}
+
+void owl_global_wakeup(owl_global *g)
+{
+  if (time(NULL) - g->last_wakeup_time >= 1) {
+    g_free(owl_perlconfig_execute("BarnOwl::Hooks::_wakeup()"));
+    g->last_wakeup_time = time(NULL);
+  }
 }
 

owl.c

@@ -289 +289 @@
 
   owl_global_set_lastinputtime(&g, time(NULL));
+  owl_global_wakeup(&g);
   ret = owl_keyhandler_process(owl_global_get_keyhandler(&g), j);
   if (ret!=0 && ret!=1) {

owl.h

@@ -571 +571 @@
   time_t starttime;
   time_t lastinputtime;
+  time_t last_wakeup_time;
   char *startupargs;
   int nextmsgid;

perl/lib/BarnOwl/Hooks.pm

@@ -35 +35 @@
 
 Called before BarnOwl shutdown
+
+=item $wakeup
+
+Called, at most once per second, on user input
 
 =item $receiveMessage
@@ -88 +92 @@
 
 our @EXPORT_OK = qw($startup $shutdown
+                    $wakeup
                     $receiveMessage $newMessage
                     $mainLoop $getBuddyList
@@ -99 +104 @@
 our $startup = BarnOwl::Hook->new;
 our $shutdown = BarnOwl::Hook->new;
+our $wakeup = BarnOwl::Hook->new;
 our $receiveMessage = BarnOwl::Hook->new;
 our $newMessage = BarnOwl::Hook->new;
@@ -194 +200 @@
 }
 
+sub _wakeup {
+    $wakeup->run;
+}
+
 sub _receive_msg {
     my $m = shift;