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

Commands case insensitive + whitespace allowed around abort

Browse source
This commit is contained in:
RevBar 2011-06-10 01:09:36 +02:00
parent f81996e6ac
commit 7cbedf40ea
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
revbank
View file

@ -61,6 +61,7 @@ my @commands = qw/
sub prompt {
my ($prompt, $completions) = @_;
$completions ||= [];
push @$completions, 'abort';
my @matches;
$readline->Attribs->{completion_entry_function} = sub {
@ -82,7 +83,7 @@ sub prompt {
$input =~ s/.\cH// while $input =~ /.\cH/;
$input =~ s/^\cH+//;
if ($input =~ /^abort$/) {
if ($input =~ /^\s*abort\s*$/i) {
print "$at\n";
next LINE; # Whoa, scary out-of-scope jump! But it works :)
}
@ -243,25 +244,25 @@ sub parse_manual {
sub parse_command {
my ($command, $line) = @_;
if ($command =~ /^(?:h|help|\?!?|wtf|omgwtfbbq)$/) {
if ($command =~ /^(?:h|help|\?!?|wtf|omgwtfbbq)$/i) {
return help();
} elsif ($command =~ /^(?:examples)$/) {
} elsif ($command =~ /^(?:examples)$/i) {
return examples();
} elsif ($command =~ /^(?:deposit)$/) {
} elsif ($command =~ /^(?:deposit)$/i) {
return deposit($line);
} elsif ($command =~ /^(?:take|steal)$/) {
} elsif ($command =~ /^(?:take|steal)$/i) {
return take($line);
} elsif ($command =~ /^(?:give)$/) {
} elsif ($command =~ /^(?:give)$/i) {
return give($line);
} elsif ($command =~ /^(?:undo)$/) {
} elsif ($command =~ /^(?:undo)$/i) {
return undo($line);
} elsif ($command =~ /^(?:ls|list)$/) {
} elsif ($command =~ /^(?:ls|list)$/i) {
return list();
} elsif ($command =~ /^(?:shame)$/) {
} elsif ($command =~ /^(?:shame)$/i) {
return shame();
} elsif ($command =~ /^(?:edit)$/) {
} elsif ($command =~ /^(?:edit)$/i) {
return edit();
} elsif ($command =~ /^(?:restart)$/) {
} elsif ($command =~ /^(?:restart)$/i) {
exec $0;
die "exec() failed. You'll have to restart revbank yourself :P\n";
}