Thanks, zentara - but if you look at the first piece of code in my original node, using TRL with Tk without trying to insert AE loops, that I got to work. I was merely hoping to use AE to catch all the events allowing me to switch event engines transparently.

I'm trying to see if I can get Term::ReadLine to work in an event loop other than Tk, but the authors have made it somewhat difficult.

I'm kind of at a loss to explain what's going on here and hoping someone else has the required tuits.

This is where you go wrong # mangle their tree, inserting ourselves in the front.

See

• AnyEvent::TermKey
• https://github.com/jrockway/anyevent-term/blob/master/lib/AnyEvent/Term/ReadLine.pm
• AnyEvent::Intro
• AnyEvent::FAQ
• AnyEvent::Handle

I'm sorry, I don't follow. I've read the last three before, and don't see how they help me get Term::ReadLine to use another event loop. The second one is interesting, though dragging in Moose seems a bit overkill. And putting it in a subprocess is kind of a hack - then again, AnyEvent::DBI does about the same thing. I was hoping to avoid the overhead of a subprocess, though, partly to see if it could be done. The first one doesn't help at all, I think, as it would practically require re-implementing TRL. And TRL is horrendously complex, I'd rather not do that.

I was also hoping to be able to submit changes back to the owners of TRL to see if they'd consider removing Tk and adding AnyEvent (which would still allow Tk to work, theoretically). Obviously not in the current state, and I doubt this scratches a big enough itch for them to attempt merely with a bug report/feature request.

#!/usr/bin/perl -slw

use strict;
use Tk;
use AnyEvent;
use POSIX qw(:sys_wait_h);
use Term::ReadLine;
use IO::File;

use 5.12.1;

sub LOG {
    state $fh;
    open $fh, '>', '/tmp/sopw.out' unless $fh;
    die $! unless $fh;
    autoflush $fh 1;

    say $fh @_;

}

package Term::ReadLine::AE;

unshift @Term::ReadLine::Stub::ISA, __PACKAGE__;

#use Data::Dump qw(ddx);
#ddx(\%INC);

if ( not defined &Tk::DoOneEvent ) {
    ::LOG("overriding");
    *Tk::DoOneEvent = sub {
        AnyEvent->_poll();
    };
    ::LOG("Not created?") unless defined &Tk::DoOneEvent;
}

our $cv;

sub Tk_loop {
    my $self = shift;
    ::LOG("Entering Tk_loop");  
    $cv = AE::cv;
    $cv->recv();
}

sub register_Tk {
    my $self = shift;
    ::LOG("Registering");
    $Term::ReadLine::registered++
      or AE::io( $self->IN, 0, sub { $cv->send() } );
}

package main;
use 5.12.1;

my $esc;

BEGIN { $esc = "\x1b[";
    print "${esc}2J";
}
 
my $t = 0;
my $w = AE::timer( 0, 1, sub { print "${esc}s${esc}1H$t s   ${esc}u"; 
+++$t } );

my $term   = Term::ReadLine->new('AE');
my $OUT    = $term->OUT || \*STDOUT;
my $prompt = "Finished";
my $cmd;

while (defined( $cmd = $term->readline('>') )) {
    my @output = `$cmd`;
    my $exit_value  = $? >> 8;
    my $signal_num  = $? & 127;
    my $dumped_core = $? & 128;
    printf $OUT "Program terminated with status %d from signal %d%s\n"
+,
           $exit_value, $signal_num, 
           $dumped_core ? " (core dumped)" : "";
    say @output;
    $term->addhistory;
    $term->tkRunning(1);
    say $prompt;
    exit;
}
[download]

Thanks, but your code doesn't seem to work, either, probably because the tkRunning is too late. If I move the tkRunning call up to before the $term->readline call, then the timer kinda seems to fire, but I again cannot type anything. I have to kill the process, and then the shell gets what was in the STDIN buffer just as with my second piece of code above.

# Sample code showing how to integrate 
# Event with Term::ReadLine::Gnu (uses AnyEvent for watcher syntax)

use Term::ReadLine; # automatically loads Term::ReadLine::Gnu, 
                    # which must be present
use Event;
use AnyEvent;

my $term = new Term::ReadLine("Test Event");
my $attribs = $term->Attribs;
$term->callback_handler_install( "> ", sub{ print "got: @_\n" });
my $stdin_watcher = AE::io(*STDIN, 0, 
    sub 
    { 
        $attribs->{'callback_read_char'}->(); 
    }
);
my $timer = AE::timer(5,0, 
    sub
    { 
        print "....timed out\n"; 
        $term->rl_deprep_terminal();
        exit;
    }
);
Event::loop();
__END__
[download]