Terminal control/Cursor movement: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
m (correction program to arm assembly raspberry pi) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 19:
This task has no specific requirements to trap or correct cursor movement beyond the terminal boundaries, so the implementer should decide what behavior fits best in terms of the chosen language. Explanatory notes may be added to clarify how an out of bounds action would behave and the generation of error messages relating to an out of bounds cursor position is permitted.
<br><br>
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi}}
Line 109 ⟶ 110:
</lang>
=={{header|AutoHotkey}}==
Line 447 ⟶ 449:
}
</lang>
=={{header|Forth}}==
Line 640 ⟶ 641:
println()
</lang>
=={{header|Kotlin}}==
Line 746:
system "tput cup $rows $cols"; # bottom right corner
sleep 1;</lang>
=={{header|Perl 6}}==▼
<lang perl6>shell "tput cub1"; # one position to the left▼
shell "tput cuf1"; # one position to the right▼
shell "tput cuu1"; # up one line▼
shell "tput cud1"; # down one line▼
shell "tput cr"; # beginning of line▼
shell "tput home"; # top left corner▼
$_ = qx[stty -a </dev/tty 2>&1];▼
my $rows = +m/'rows ' <(\d+)>/;▼
my $cols = +m/'columns ' <(\d+)>/;▼
shell "tput hpa $cols"; # end of line▼
shell "tput cup $rows $cols"; # bottom right corner</lang>▼
=={{header|Phix}}==
Line 901 ⟶ 886:
</lang>
(formerly Perl 6)
▲<lang perl6>shell "tput cub1"; # one position to the left
▲shell "tput cuf1"; # one position to the right
▲shell "tput cuu1"; # up one line
▲shell "tput cud1"; # down one line
▲shell "tput cr"; # beginning of line
▲shell "tput home"; # top left corner
▲$_ = qx[stty -a </dev/tty 2>&1];
▲my $rows = +m/'rows ' <(\d+)>/;
▲my $cols = +m/'columns ' <(\d+)>/;
▲shell "tput hpa $cols"; # end of line
▲shell "tput cup $rows $cols"; # bottom right corner</lang>
=={{header|REXX}}==
Line 952:
}</lang>
=={{header|Tcl}}==
{{trans|UNIX Shell}}
| |||