Linenoise
Rob Hoelz
use Linenoise;
while (my $line = linenoise '> ').defined {
say "got a line: $line";
}
This module provides bindings to linenoise (https://github.com/antirez/linenoise) for Perl 6 via NativeCall.
use Linenoise;
my constant HIST_FILE = '.myhist';
my constant HIST_LEN = 10;
linenoiseHistoryLoad(HIST_FILE);
linenoiseHistorySetMaxLen(HIST_LEN);
while (my $line = linenoise '> ').defined {
linenoiseHistoryAdd($line);
say "got a line: $line";
}
linenoiseHistorySave(HIST_FILE);
use Linenoise;
my @commands = <help quit list get set>;
linenoiseSetCompletionCallback(-> $line, $c {
my ( $prefix, $last-word ) = find-last-word($line);
for @commands.grep(/^ "$last-word" /).sort -> $cmd {
linenoiseAddCompletion($c, $prefix ~ $cmd);
}
});
while (my $line = linenoise '> ').defined {
say "got a line: $line";
}