Changeset fd8dfe7 for perl


Ignore:
Timestamp:
Jun 2, 2009, 11:53:14 AM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
8daf504
Parents:
ee183be
git-author:
Nelson Elhage <nelhage@mit.edu> (06/01/09 22:45:53)
git-committer:
Nelson Elhage <nelhage@mit.edu> (06/02/09 11:53:14)
Message:
Load perl code from the filesystem at runtime.

Remove perlwrap.pm and associated code, and instead do 'use BarnOwl'
at boot time to load cdoe from the file system at runtime. In
addition, add appropriate 'use' statements to the .pm files to cause
everything to get loaded.
Location:
perl/lib
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    ree183be rfd8dfe7  
    33
    44package BarnOwl;
     5
     6BEGIN {
     7# bootstrap in C bindings and glue
     8    *owl:: = \*BarnOwl::;
     9    bootstrap BarnOwl 1.2;
     10};
     11
     12use lib(get_data_dir() . "/lib");
     13use lib(get_config_dir() . "/lib");
     14
     15use BarnOwl::Hook;
     16use BarnOwl::Hooks;
     17use BarnOwl::Message;
     18use BarnOwl::Style;
     19use BarnOwl::Timer;
    520
    621=head1 NAME
     
    136151
    137152=cut
    138 
    139 
    140 BEGIN {
    141 # bootstrap in C bindings and glue
    142     *owl:: = \*BarnOwl::;
    143     bootstrap BarnOwl 1.2;
    144 };
    145 
    146 use lib(get_data_dir() . "/lib");
    147 use lib(get_config_dir() . "/lib");
    148153
    149154# perlconfig.c will set this to the value of the -c command-line
  • perl/lib/BarnOwl/Message.pm

    ree183be rfd8dfe7  
    33
    44package BarnOwl::Message;
     5
     6use BarnOwl::Message::Admin;
     7use BarnOwl::Message::AIM;
     8use BarnOwl::Message::Generic;
     9use BarnOwl::Message::Loopback;
     10use BarnOwl::Message::Zephyr;
    511
    612sub new {
  • perl/lib/BarnOwl/Style.pm

    ree183be rfd8dfe7  
    33
    44package BarnOwl::Style;
     5
     6use BarnOwl::Style::Basic;
     7use BarnOwl::Style::Default;
     8use BarnOwl::Style::Legacy;
     9use BarnOwl::Style::OneLine;
    510
    611# This takes a zephyr to be displayed and modifies it to be displayed
Note: See TracChangeset for help on using the changeset viewer.