bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use new split_input() for -c

Browse source
This commit is contained in:
Juerd Waalboer 2023-12-26 04:37:17 +01:00
parent abe0f21c6a
commit 0d3866a881
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
revbank
View file

@ -28,26 +28,6 @@ my @retry; # (@accepted, $rejected, [@trailing])
my $one_off = 0;
if (@ARGV) {
# Non-interactive like in sh: -c command_string
@ARGV >= 1 and $ARGV[0] eq '-c' or die "$0 has no switches, except -c.";
$one_off = 1;
@words = split " ", $ARGV[1];
push @words, @ARGV[3 .. $#ARGV] if @ARGV > 3;
push @words, "help" if not @words;
}
$| = 1;
my $readline = Term::ReadLine->new($0);
my $select = IO::Select->new;
$select->add(\*STDIN);
my $cart = RevBank::Cart->new;
sub split_input($input) {
$input =~ s/\s+$//;
@ -85,6 +65,26 @@ sub split_input($input) {
return @terms;
}
if (@ARGV) {
# Non-interactive like in sh: -c command_string
@ARGV >= 1 and $ARGV[0] eq '-c' or die "$0 has no switches, except -c.";
$one_off = 1;
@words = split_input($ARGV[1]);
@words and not ref $words[0] or die "Syntax error.\n";
push @words, @ARGV[3 .. $#ARGV] if @ARGV > 3;
push @words, "help" if not @words;
}
$| = 1;
my $readline = Term::ReadLine->new($0);
my $select = IO::Select->new;
$select->add(\*STDIN);
my $cart = RevBank::Cart->new;
sub prompt($prompt, $plugins, $completions) {
if ($prompt) {