A-M baby

Task/Keyboard-input-Keypress-check/0DESCRIPTION

@@ -0,0 +1,2 @@
+Determine if a key has been pressed and store this in a variable. If no key has been pressed, the program should continue without waiting.
+[[user input::task| ]]

Task/Keyboard-input-Keypress-check/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Keyboard input

Task/Keyboard-input-Keypress-check/Ada/keyboard-input-keypress-check.ada

@@ -0,0 +1,4 @@
+Ch : Character;
+Available : Boolean;
+
+Ada.Text_IO.Get_Immediate (Ch, Available);

Task/Keyboard-input-Keypress-check/BASIC/keyboard-input-keypress-check.bas

@@ -0,0 +1,2 @@
+10 REM k$ will be empty, if no key has been pressed
+20 LET k$ = INKEY$

Task/Keyboard-input-Keypress-check/BBC-BASIC/keyboard-input-keypress-check-1.bbc

@@ -0,0 +1 @@
+      key$ = INKEY$(0)

Task/Keyboard-input-Keypress-check/BBC-BASIC/keyboard-input-keypress-check-2.bbc

@@ -0,0 +1 @@
+      key% = INKEY(0)

Task/Keyboard-input-Keypress-check/C/keyboard-input-keypress-check-1.c

@@ -0,0 +1,46 @@
+#include <stdio.h>
+#include <termios.h>
+#include <unistd.h>
+#include <fcntl.h>
+
+void set_mode(int want_key)
+{
+	static struct termios old, new;
+	if (!want_key) {
+		tcsetattr(STDIN_FILENO, TCSANOW, &old);
+		return;
+	}
+
+	tcgetattr(STDIN_FILENO, &old);
+	new = old;
+	new.c_lflag &= ~(ICANON | ECHO);
+	tcsetattr(STDIN_FILENO, TCSANOW, &new);
+}
+
+int get_key()
+{
+	int c = 0;
+	struct timeval tv;
+	fd_set fs;
+	tv.tv_usec = tv.tv_sec = 0;
+
+	FD_ZERO(&fs);
+	FD_SET(STDIN_FILENO, &fs);
+	select(STDIN_FILENO + 1, &fs, 0, 0, &tv);
+
+	if (FD_ISSET(STDIN_FILENO, &fs)) {
+		c = getchar();
+		set_mode(0);
+	}
+	return c;
+}
+
+int main()
+{
+	int c;
+	while(1) {
+		set_mode(1);
+		while (!(c = get_key())) usleep(10000);
+		printf("key %d\n", c);
+	}
+}

Task/Keyboard-input-Keypress-check/C/keyboard-input-keypress-check-2.c

@@ -0,0 +1,6 @@
+#include <stdio.h>
+
+void main()
+{
+ char chr = getchar();
+}

Task/Keyboard-input-Keypress-check/D/keyboard-input-keypress-check.d

@@ -0,0 +1,16 @@
+extern (C) {
+    void _STI_conio();
+    void _STD_conio();
+    int kbhit();
+    int getch();
+}
+
+void main() {
+    _STI_conio();
+
+    char c;
+    if (kbhit())
+        c = cast(char)getch();
+
+    _STD_conio();
+}

Task/Keyboard-input-Keypress-check/Delphi/keyboard-input-keypress-check.delphi

@@ -0,0 +1,28 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs;
+
+type
+  TForm1 = class(TForm)
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
+  private
+    SavedPressedKey: Char;
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+  SavedPressedKey := Key;
+end;
+
+end.

Task/Keyboard-input-Keypress-check/Euphoria/keyboard-input-keypress-check.euphoria

@@ -0,0 +1,2 @@
+integer key
+key = get_key() -- if key was not pressed get_key() returns -1

Task/Keyboard-input-Keypress-check/Forth/keyboard-input-keypress-check.fth

@@ -0,0 +1,2 @@
+variable last-key
+: check   key? if key last-key ! then ;

Task/Keyboard-input-Keypress-check/Icon/keyboard-input-keypress-check.icon

@@ -0,0 +1,7 @@
+procedure main()
+   delay(1000)                              # give user a chance to input
+   if kbhit() then                          # test for input
+      write("You entered ",x := getch())    # read w/o echo
+   else                                     # use getche for echo
+      write("No input waiting")
+end

Task/Keyboard-input-Keypress-check/Logo/keyboard-input-keypress-check.logo

@@ -0,0 +1 @@
+if key? [make "keyhit readchar]

Task/Keyboard-input-Keypress-check/PicoLisp/keyboard-input-keypress-check.l

@@ -0,0 +1 @@
+(setq *LastKey (key))

Task/Keyboard-input-Keypress-check/Python/keyboard-input-keypress-check.py

@@ -0,0 +1,34 @@
+#!/usr/bin/env python
+
+import thread
+import time
+
+
+try:
+    from msvcrt import getch
+except ImportError:
+    def getch():
+        import sys, tty, termios
+        fd = sys.stdin.fileno()
+        old_settings = termios.tcgetattr(fd)
+        try:
+            tty.setraw(sys.stdin.fileno())
+            ch = sys.stdin.read(1)
+        finally:
+            termios.tcsetattr(fd, termios.TCSADRAIN, old_settings)
+        return ch
+
+char = None
+
+def keypress():
+    global char
+    char = getch()
+
+thread.start_new_thread(keypress, ())
+
+while True:
+    if char is not None:
+        print "Key pressed is " + char
+        break
+    print "Program is running"
+    time.sleep(5)

Task/Keyboard-input-Keypress-check/REXX/keyboard-input-keypress-check.rexx

@@ -0,0 +1,9 @@
+/*REXX program demonstrates if any key has been presssed.               */
+
+  ∙
+  ∙
+  ∙
+somechar=inkey('nowait')
+  ∙
+  ∙
+  ∙

Task/Keyboard-input-Keypress-check/Tcl/keyboard-input-keypress-check-1.tcl

@@ -0,0 +1,9 @@
+fconfigure stdin -blocking 0
+set ch [read stdin 1]
+fconfigure stdin -blocking 1
+
+if {$ch eq ""} {
+    # Nothing was read
+} else {
+    # Got the character $ch
+}

Task/Keyboard-input-Keypress-check/Tcl/keyboard-input-keypress-check-2.tcl

@@ -0,0 +1,10 @@
+fileevent stdin readable GetChar
+proc GetChar {} {
+    set ch [read stdin 1]
+    if {[eof stdin]} {
+        exit
+    }
+    # Do something with $ch here
+}
+
+vwait forever; # run the event loop if necessary