Terminal control/Dimensions: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added a section about the '''scrsize''' bif. -- ~~~~) |
(→{{header|Perl 6}}: add entry) |
||
| Line 177: | Line 177: | ||
val height : int = 47</lang> |
val height : int = 47</lang> |
||
=={{header|Perl 6}}== |
|||
Using <i>stty</i> just for the heck of it. |
|||
<lang perl6>my $stty = qx[stty -a]; |
|||
my $lines = $stty.match(/ 'rows ' <( \d+/); |
|||
my $cols = $stty.match(/ 'columns ' <( \d+/); |
|||
say "$lines $cols";</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||
<lang PicoLisp>(setq |
<lang PicoLisp>(setq |
||