blob: c8a51f9d91c05ca1d4ed34df92dc58ea7d1dbfe8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
//: Text-mode cursor primitives. Currently thin wrappers around ncurses calls.
:(before "End Includes")
#include<ncurses.h>
:(before "End Primitive Recipe Declarations")
CURSOR_MODE,
:(before "End Primitive Recipe Numbers")
Recipe_number["cursor-mode"] = CURSOR_MODE;
:(before "End Primitive Recipe Implementations")
case CURSOR_MODE: {
initscr();
break;
}
:(before "End Primitive Recipe Declarations")
RETRO_MODE,
:(before "End Primitive Recipe Numbers")
Recipe_number["retro-mode"] = RETRO_MODE;
:(before "End Primitive Recipe Implementations")
case RETRO_MODE: {
endwin();
break;
}
:(before "End Primitive Recipe Declarations")
WAIT_FOR_KEY_FROM_KEYBOARD,
:(before "End Primitive Recipe Numbers")
Recipe_number["wait-for-key-from-keyboard"] = WAIT_FOR_KEY_FROM_KEYBOARD;
:(before "End Primitive Recipe Implementations")
case WAIT_FOR_KEY_FROM_KEYBOARD: {
getch();
break;
}
|