#! /usr/bin/perl -w
# Give an argument to use stdin, stdout instead of console
# If argument starts with /dev, use it as console
# If argument is '--no-print', do not print the result.
require 5.006;
BEGIN{ $ENV{PERL_RL} = 'TTYtter' }; # Do not test TR::Gnu !
use Term::ReadLine;
use Carp;
$SIG{__WARN__} = sub { warn Carp::longmess(@_) };
my $ev;
if ($ENV{$ev = 'AUTOMATED_TESTING'} or $ENV{$ev = 'PERL_MM_NONINTERACTIVE'}) {
print "1..0 # skip: \$ENV{$ev} is TRUE\n";
exit;
}
if (!@ARGV) {
$term = new Term::ReadLine 'Simple Perl calc';
} elsif (@ARGV == 2) {
open(IN,"<$ARGV[0]");
open(OUT,">$ARGV[1]");
$term = new Term::ReadLine 'Simple Perl calc', \*IN, \*OUT;
} elsif ($ARGV[0] =~ m|^/dev|) {
open(IN,"<$ARGV[0]");
open(OUT,">$ARGV[0]");
$term = new Term::ReadLine 'Simple Perl calc', \*IN, \*OUT;
} else {
$term = new Term::ReadLine 'Simple Perl calc', \*STDIN, \*STDOUT;
$no_print = $ARGV[0] eq '--no-print';
}
$prompt = "Enter arithmetic or Perl expression: ";
if ((my $l = $ENV{PERL_RL_TEST_PROMPT_MINLEN} || 0) > length $prompt) {
$prompt =~ s/(?=:)/ ' ' x ($l - length $prompt)/e;
}
$OUT = $term->OUT || STDOUT;
$IN = $term->IN || STDIN;
binmode($OUT, ":utf8");
binmode($IN, ":utf8");
our $dont_use_counter = 0;
our $ansi = 1;
$term->hook_no_counter;
$term->hook_use_ansi;
%features = %{ $term->Features };
if (%features) {
@f = %features;
print $OUT "Features present: @f\n";
#$term->ornaments(1) if $features{ornaments};
} else {
print $OUT "No additional features present.\n";
}
print $OUT "\n Flipping rl_default_selected each line.\n";
print $OUT <<EOP;
Hint: Entering the word
exit
would exit the test. ;-) (If feature 'preput' is present,
this word should be already entered.)
EOP
while ( defined ($_ = $term->readline($prompt, "exit")) ) {
$res = eval($_);
warn $@ if $@;
print $OUT $res, "\n" unless $@ or $no_print;
$term->addhistory($_) if /\S/ and !$features{autohistory};
$readline::rl_default_selected = !$readline::rl_default_selected;
}