added readline

diff --git a/Makefile.PL b/Makefile.PL
index 20ced26..ce72111 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,7 +6,10 @@ author   q{Dobrica Pavlinusic <dpavlin@rot13.org>};
 license  'perl';
 
 requires 'Data::Dump';
+
+# evolis-command.pl
 requires 'Time::HiRes';
+requires 'Term::ReadLine';
 
 build_requires 'Test::More';
 

diff --git a/scripts/evolis-command.pl b/scripts/evolis-command.pl
index a8b3890..1ca359f 100755 (executable)
--- a/scripts/evolis-command.pl
+++ b/scripts/evolis-command.pl
@@ -7,6 +7,7 @@ use POSIX;
 use Data::Dump qw(dump);
 use Time::HiRes;
 use Getopt::Long;
+use Term::ReadLine;
 
 my $port = '/dev/usb/lp0';
 my $debug = 0;
@@ -21,10 +22,12 @@ warn "# port $port debug $debug\n";
 my $parallel;
 
 $|=1;
-print "command> ";
-while(<STDIN>) {
-       chomp;
 
+my $term = Term::ReadLine->new('EVOLIS');
+my $OUT = $term->OUT || \*STDOUT;
+
+while ( defined ( $_ = $term->readline('command> ')) ) {
+       chomp;
        my $send = "\e$_\r";
 
        # XXX we need to reopen parallel port for each command
@@ -49,7 +52,9 @@ while(<STDIN>) {
        }
        close($parallel);
 
-       print "<answer ",dump($response),"\ncommand> ";
+       $term->addhistory($_) if $response;
+
+       print $OUT "<answer ",dump($response),"\n";
 
 }