Keyboard macros: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
m (PicoLisp: Added missing led.l library.) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 366:
keypresswindow()
</lang>
=={{header|Kotlin}}==
Line 492 ⟶ 491:
ReadMode 0; # reset the terminal to normal mode</lang>
=={{header|Perl 6}}==▼
<lang perl6>my $TTY = open("/dev/tty");▼
my @INPUT;▼
sub log($mess) { print "$mess\r\n" }▼
INIT { shell "stty raw -echo min 1 time 1"; log "(raw mode)"; }▼
END { shell "stty sane"; log "(sane mode)"; }▼
loop {▼
push @INPUT, $TTY.getc unless @INPUT;▼
given @INPUT.shift {▼
when "q" | "\c4" { log "QUIT"; last; }▼
when "\r" { log "CR" }▼
when "j" { log "down" }▼
when "k" { log "up" }▼
when "h" { log "left" }▼
when "l" { log "right" }▼
when "J" { log "DOWN" }▼
when "K" { log "UP" }▼
when "H" { log "LEFT" }▼
when "L" { log "RIGHT" }▼
when "\e" {▼
my $esc = '';▼
repeat until my $x ~~ /^<alpha>$/ {▼
push @INPUT, $TTY.getc unless @INPUT;▼
$x = @INPUT.shift;▼
$esc ~= $x;▼
}▼
given $esc {▼
when "[A" { log "up" }▼
when "[B" { log "down" }▼
when "[C" { log "right" }▼
when "[D" { log "left" }▼
when "[1;2A" { log "UP" }▼
when "[1;2B" { log "DOWN" }▼
when "[1;2C" { log "RIGHT" }▼
when "[1;2D" { log "LEFT" }▼
default { log "Unrecognized escape: $esc"; }▼
}▼
}▼
default { log "Unrecognized key: $_"; }▼
}▼
}</lang>▼
=={{header|Phix}}==
Line 868 ⟶ 818:
[else (write-byte b) (flush-output) (loop inps v '())])))))
</lang>
(formerly Perl 6)
▲<lang perl6>my $TTY = open("/dev/tty");
▲my @INPUT;
▲sub log($mess) { print "$mess\r\n" }
▲INIT { shell "stty raw -echo min 1 time 1"; log "(raw mode)"; }
▲END { shell "stty sane"; log "(sane mode)"; }
▲loop {
▲ push @INPUT, $TTY.getc unless @INPUT;
▲ given @INPUT.shift {
▲ when "q" | "\c4" { log "QUIT"; last; }
▲ when "\r" { log "CR" }
▲ when "j" { log "down" }
▲ when "k" { log "up" }
▲ when "h" { log "left" }
▲ when "l" { log "right" }
▲ when "J" { log "DOWN" }
▲ when "K" { log "UP" }
▲ when "H" { log "LEFT" }
▲ when "L" { log "RIGHT" }
▲ when "\e" {
▲ my $esc = '';
▲ repeat until my $x ~~ /^<alpha>$/ {
▲ push @INPUT, $TTY.getc unless @INPUT;
▲ $x = @INPUT.shift;
▲ $esc ~= $x;
▲ }
▲ given $esc {
▲ when "[A" { log "up" }
▲ when "[B" { log "down" }
▲ when "[C" { log "right" }
▲ when "[D" { log "left" }
▲ when "[1;2A" { log "UP" }
▲ when "[1;2B" { log "DOWN" }
▲ when "[1;2C" { log "RIGHT" }
▲ when "[1;2D" { log "LEFT" }
▲ default { log "Unrecognized escape: $esc"; }
▲ }
▲ }
▲ default { log "Unrecognized key: $_"; }
▲ }
▲}</lang>
=={{header|REBOL}}==
| |||