Data update

This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions

View file

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

View file

@ -1,4 +1,4 @@
on key
on key_down
gclear
k$ = keybkey
gtext 10 80 k$

View file

@ -1,10 +1,10 @@
import extensions;
public program()
public Program()
{
auto chr := emptyString;
if (console.KeyAvailable)
auto chr := EmptyString;
if (Console.KeyAvailable)
{
chr := console.readChar()
chr := Console.readChar()
}
}

View file

@ -1,21 +0,0 @@
(defun store-keypress ()
"If a key has been pressed, store it as a variable.
Note that the variable created is a variable inside the scope of let and
will not be available as a variable outside the scope of let. However,
the function also returns the value of the variable, which can be used
outside the scope of let."
(let ((keypress))
(if (input-pending-p)
(setq keypress (char-to-string (read-key))))))
(defun store-keypress-multiple ()
"If one or more keys have been pressed, store it/them as a variable.
Note that the variable created is a variable inside the scope of let and
will not be available as a variable outside the scope of let. However,
the function also returns the value of the variable, which can be used
outside the scope of let."
(let ((keypress))
(while (input-pending-p)
(push (read-key) keypress))
(setq keypress (concat (nreverse keypress)))))

View file

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

View file

@ -1,3 +0,0 @@
if ($Host.UI.RawUI.KeyAvailable) {
$key = $Host.UI.RawUI.ReadKey()
}