Changeset eb6cedc for perl/lib

Timestamp:

Jul 17, 2009, 11:52:30 PM (14 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:

96f7b07

Parents:

b4ef908

git-author:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:31:14)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:52:30)

Message:

Push commands into BarnOwl:: instead of AUTOLOAD'ing them

Location:

perl/lib

Files:

• BarnOwl.pm (modified) (1 diff)
• BarnOwl/Hooks.pm (modified) (2 diffs)

perl/lib/BarnOwl.pm

@@ -167 +167 @@
     $m->legacy_populate_global();
     return &BarnOwl::Hooks::_receive_msg($m);
-}
-
-=head2 AUTOLOAD
-
-BarnOwl.pm has a C<AUTOLOAD> method that translates unused names in
-the BarnOwl:: namespace to a call to BarnOwl::command() with that
-command. Underscores are also translated to C<->s, so you can do
-e.g. C<BarnOwl::start_command()> and it will be translated into
-C<start-command>.
-
-So, if you're looking for functionality that you can't find in the
-perl interface, check C<:show commands> or C<commands.c> in the
-BarnOwl source tree -- there's a good chance it exists as a BarnOwl
-command.
-
-=head3 BUGS
-
-There are horrible quoting issues here. The AUTOLOAD simple joins your
-commands with spaces and passes them unmodified to C<::command>
-
-=cut
-
-# make BarnOwl::<command>("foo") be aliases to BarnOwl::command("<command> foo");
-sub AUTOLOAD {
-    our $AUTOLOAD;
-    my $called = $AUTOLOAD;
-    $called =~ s/.*:://;
-    $called =~ s/_/-/g;
-    return &BarnOwl::command("$called ".join(" ",@_));
 }
 

perl/lib/BarnOwl/Hooks.pm

@@ -3 +3 @@
 
 package BarnOwl::Hooks;
+
+use Carp;
 
 =head1 BarnOwl::Hooks
@@ -180 +182 @@
 }
 
+sub _new_command {
+    my $command = shift;
+    (my $symbol = $command) =~ s/-/_/g;
+    my $package = "BarnOwl";
+
+    if($symbol =~ m{^edit:(.+)$}) {
+        $symbol = $1;
+        $package = "BarnOwl::Editwin";
+    } else {
+        $symbol =~ s/:/_/;
+    }
+    {
+        no strict 'refs';
+        if(defined(*{"${package}::${symbol}"}{CODE})) {
+            return;
+        }
+        *{"${package}::${symbol}"} = sub {
+            if(@_ == 1 && $_[0] =~ m{\s}) {
+                carp "DEPRECATED: ${package}::${symbol}: Tokenizing argument on ' '.\n"
+                . "In future versions, the argument list will be passed to\n"
+                . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n"
+            }
+            BarnOwl::command($command . " " . join(" ", @_))
+          };
+    }
+}
 
 1;