blob: 54206ed96ea81850fadb02da7532e2f384de3a1a (
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,
:(before "End Primitive Recipe Numbers")
Recipe_number["wait-for-key"] = WAIT_FOR_KEY;
:(before "End Primitive Recipe Implementations")
case WAIT_FOR_KEY: {
getch();
break;
}
|