Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,4 +0,0 @@
|
|||
Ch : Character;
|
||||
Available : Boolean;
|
||||
|
||||
Ada.Text_IO.Get_Immediate (Ch, Available);
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
on key
|
||||
on key_down
|
||||
gclear
|
||||
k$ = keybkey
|
||||
gtext 10 80 k$
|
||||
|
|
|
|||
|
|
@ -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()
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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)))))
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
integer key
|
||||
key = get_key() -- if key was not pressed get_key() returns -1
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
if ($Host.UI.RawUI.KeyAvailable) {
|
||||
$key = $Host.UI.RawUI.ReadKey()
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue