Changeset df569c5

Timestamp:

Oct 3, 2009, 9:36:17 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

6f0fbe9

Parents:

9f5e847

Message:

Add a perl hook that is called once Zephyr is initialized.

Some functions, like ZGetSender(), cannot be usefully or safely called
until Zephyr is initialized, so add a hook so that perl code can
safely wait until they are available to call them.

Files:

• perl/lib/BarnOwl.pm (modified) (1 diff)
• perl/lib/BarnOwl/Zephyr.pm (added)
• zephyr.c (modified) (2 diffs)

perl/lib/BarnOwl.pm

@@ -32 +32 @@
 use BarnOwl::Message;
 use BarnOwl::Style;
+use BarnOwl::Zephyr;
 use BarnOwl::Timer;
 use BarnOwl::Editwin;

zephyr.c

@@ -82 +82 @@
 void owl_zephyr_finish_initialization(owl_dispatch *d) {
   Code_t code;
+  char *perl;
 
   owl_select_remove_dispatch(d->fd);
@@ -125 +126 @@
     owl_function_zephyr_buddy_check(0);
   }
+
+ perl = owl_perlconfig_execute("BarnOwl::Zephyr::_zephyr_startup()");
+ owl_free(perl);
 }