arch/all-mingw32/kernel/host_debug.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <windows.h>
   7
   8 #include "host_intern.h"
   9
  10 HANDLE conin, conout;
  11
  12 int __declspec(dllexport) __aros core_putc(char c)
  13 {
  14     DWORD cnt;
  15
  16     WriteConsole(conout, &c, 1, &cnt, NULL);
  17     return cnt;
  18 }
  19
  20 int __declspec(dllexport) __aros core_getc(void)
  21 {
  22     DWORD cnt;
  23     INPUT_RECORD input;
  24
  25     do
  26     {
  27         if (!PeekConsoleInput(conin, &input, 1, &cnt))
  28             return -1;
  29         if (cnt < 1)
  30             return -1;
  31
  32         if (!ReadConsoleInput(conin, &input, 1, &cnt))
  33             return -1;
  34         /* Control keys also generate events with zero character, so we ignore them */
  35     } while ((input.EventType != KEY_EVENT) || (!input.Event.KeyEvent.bKeyDown) ||
  36              (!input.Event.KeyEvent.uChar.AsciiChar));
  37
  38     return input.Event.KeyEvent.uChar.AsciiChar;
  39 }
  40
  41 void __declspec(dllexport) __aros core_alert(const char *text)
  42 {
  43     MessageBox(NULL, text, "AROS guru meditation", MB_ICONERROR|MB_SETFOREGROUND);
  44 }