Changeset 8203afd for owl.c

Timestamp:

Jan 9, 2007, 11:33:44 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

d609dd6

Parents:

ffe70f9

git-author:

Nelson Elhage <nelhage@mit.edu> (01/09/07 18:50:40)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/09/07 23:33:44)

Message:

* Renaming package owl to BarnOwl::
* Moving hooks into the BarnOwl::Hooks package, and restoring support
  for .owlconf files that use sub startup {} and so on.

File:

• owl.c (modified) (3 diffs)

owl.c

@@ -319 +319 @@
     owl_function_debugmsg("Found perl formatting");
     s=owl_malloc(sizeof(owl_style));
-    owl_style_create_perl(s, "perl", "owl::_format_msg_legacy_wrap",
-                          "User-defined perl style that calls owl::format_msg"
+    owl_style_create_perl(s, "perl", "BarnOwl::_format_msg_legacy_wrap",
+                          "User-defined perl style that calls BarnOwl::format_msg"
                           "with legacy global variable support");
     owl_global_add_style(&g, s);
@@ -328 +328 @@
   /* execute the startup function in the configfile */
   owl_function_debugmsg("startup: executing perl startup, if applicable");
-  perlout = owl_perlconfig_execute("owl::startup();");
+  perlout = owl_perlconfig_execute("BarnOwl::Hooks::startup();");
   if (perlout) owl_free(perlout);
   
@@ -439 +439 @@
     }
 
-    /* Hook perl into the loop */
-    if (owl_perlconfig_is_function("owl::mainloop_hook")) {
-         owl_perlconfig_mainloop();
-    }
+    owl_perlconfig_mainloop();
 
     /* little hack */