//: 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;
}