Terminal control/Restricted width positional input/No wrapping: Difference between revisions

==={{header|ncurses}}===

To interface ncurses from Lisp, the ''[https://www.cliki.net/croatoan croatoan]'' library is used.

(ql:quickload "croatoan")

(in-package :croatoan)

 

;; call the routine

 

 

=={{header|FreeBASIC}}==

Locate fila, columna, 0

Dim As String KBD, cadena = ""

Dim As String s = getInput(3, 5, 8)

Locate 23,1 : Print "You entered: "; s

 

=={{header|Go}}==

<br>

This uses _getch() rather than _getwch() as only ASCII is supported.

 

/*

setCursor(coord)

fmt.Printf("You entered '%s'\n", s)

 

=={{header|Julia}}==

Requires an ANSI compatible terminal and a system C library implementing _getch() for unbuffered keyboard input. Note the code below is identical to the code in [[Terminal_control/Restricted_width_positional_input/No_wrapping]] but with no width argument in the input call.

cls() = print("\33[2J")

reposition(row, col) = print("\u001b[$row;$(col)H")

s = input_y_x_upto(3, 5, 8)

println("\n\n\nResult: You entered <<$s>>")

 

=={{header|Kotlin}}==

 

It would also be possible to allow for printable Unicode characters (>= 160) to be entered by adding an extra clause to the 'when' statement. However, for this to work properly, you will need to be using a suitable code page (65001, say) and a suitable font (Lucida Console, say).

 

import kotlinx.cinterop.*

}

println("You entered '$s'")

 

=={{header|Nim}}==

As in the Julia version we translated, the code is identical to the code in [[Terminal_control/Restricted_width_positional_input/No_wrapping]] but with no width argument in the input call. See this version for some general comments about the code.

 

 

proc eraseLineEnd() = stdout.write("\e[K")

setCursorPos(3, 5)

let s = inputXYUpto(3, 5, 8)

 

=={{header|Phix}}==

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (position, wait_key, backspace)</span>

<span style="color: #008080;">function</span> <span style="color: #000000;">getInput</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">row</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">col</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">width</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">position</span><span style="color: #0000FF;">(</span><span style="color: #000000;">23</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"You entered '%s'\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">s</span><span style="color: #0000FF;">})</span>

 

=={{header|Raku}}==

All printable character keys work, as does backspace and enter. Ctrl-c to exit. All other keys / key-combos are ignored.

 

 

constant $saved = Term::termios.new(fd => 1).getattr;

@screen = "\e[41m{' ' x $cols}\e[0m" xx $rows;

print "\e[H\e[J{@screen.join: "\n"}\e[$row;{$column}H$str\e[$row;{$column + $pointer}H";

 

=={{header|REXX}}==

(This REXX program only works with: &nbsp; REXX/Personal)

parse arg row col len . /*obtain optional arguments from the CL*/

if row=='' | row=="," then row= 3 /*Not specified? Then use the default.*/

say 'data read from terminal row ' row " col " col ' length ' len " is:"

say $

 

=={{header|Wren}}==

Due to a bug the ''Stdin.readByte()'' method can currently process only the first byte of a multi-byte character. The others are skipped.

 

var textAtPos = Fn.new { |text, r, c|

 

var res = input.call(3, 5, 8)

 

=={{header|XPL0}}==

int Col, Row, Width; char Str;

int I, C;

You entered: ");

Text(0, Str);

 

=={{header|Yabasic}}==

// by Galileo, 04/2022

 

text$ = getInput$(3, 5, 8)