rosapps/applications/mc/slang/slw32tty.c

   1 /* Copyright (c) 1992, 1995 John E. Davis
   2  * All rights reserved.
   3  *
   4  * You may distribute under the terms of either the GNU General Public
   5  * License or the Perl Artistic License.
   6  */
   7
   8 #include "config.h"
   9 #include <stdio.h>
  10
  11 #include <windows.h>
  12 #include <winbase.h>
  13
  14 #include "slang.h"
  15 #include "_slang.h"
  16
  17 #ifdef __cplusplus
  18 # define _DOTS_ ...
  19 #else
  20 # define _DOTS_ void
  21 #endif
  22
  23
  24
  25 /*----------------------------------------------------------------------*\
  26  *  Function:   static void set_ctrl_break (int state);
  27  *
  28  * set the control-break setting
  29 \*----------------------------------------------------------------------*/
  30 static void set_ctrl_break (int state)
  31 {
  32 }
  33
  34
  35 /*----------------------------------------------------------------------*\
  36  *  Function:   int SLang_init_tty (int abort_char, int no_flow_control,
  37  *                                  int opost);
  38  *
  39  * initialize the keyboard interface and attempt to set-up the interrupt 9
  40  * handler if ABORT_CHAR is non-zero.
  41  * NO_FLOW_CONTROL and OPOST are only for compatiblity and are ignored.
  42 \*----------------------------------------------------------------------*/
  43
  44 HANDLE hStdout, hStdin;
  45 CONSOLE_SCREEN_BUFFER_INFO csbiInfo;
  46
  47 int SLang_init_tty (int abort_char, int no_flow_control, int opost)
  48 {
  49   SMALL_RECT windowRect;
  50   COORD newPosition;
  51   DWORD flags;
  52
  53 #ifndef SLANG_SAVES_CONSOLE
  54   /* first off, create a new console so the old one can be restored on exit */
  55   HANDLE console = CreateConsoleScreenBuffer(GENERIC_READ | GENERIC_WRITE,
  56                                              FILE_SHARE_READ |FILE_SHARE_WRITE,
  57                                              0,
  58                                              CONSOLE_TEXTMODE_BUFFER,
  59                                              0);
  60   if (SetConsoleActiveScreenBuffer(console) == FALSE) {
  61     return -1;
  62   }
  63 #endif
  64
  65   /* start things off at the origin */
  66   newPosition.X = 0;
  67   newPosition.Y = 0;
  68
  69   /* still read in characters from stdin, but output to the new console */
  70   /* this way, on program exit, the original screen is restored */
  71   hStdin = GetStdHandle(STD_INPUT_HANDLE);
  72 /*   hStdin = console; */
  73
  74 #ifndef SLANG_SAVES_CONSOLE
  75   hStdout = GetStdHandle(STD_OUTPUT_HANDLE);
  76 #else
  77   hStdout = console;
  78 #endif
  79
  80   if (hStdin == INVALID_HANDLE_VALUE || hStdout == INVALID_HANDLE_VALUE) {
  81     return -1; /* failure */
  82   }
  83
  84   if (!GetConsoleScreenBufferInfo(hStdout, &csbiInfo)) {
  85     return -1; /* failure */
  86   } // if
  87
  88   windowRect.Left = 0;
  89   windowRect.Top = 0;
  90   windowRect.Right = csbiInfo.srWindow.Right - csbiInfo.srWindow.Left; //dwMaximumWindowSize.X - 1;
  91   windowRect.Bottom = csbiInfo.srWindow.Bottom - csbiInfo.srWindow.Top; //dwMaximumWindowSize.Y - 1;
  92   if (!SetConsoleWindowInfo(hStdout, TRUE, &windowRect)) {
  93     return -1;
  94   }
  95
  96   if (SetConsoleMode(hStdin, 0) == FALSE) {
  97     return -1; /* failure */
  98   }
  99
 100   if (SetConsoleMode(hStdout, 0) == FALSE) {
 101     return -1; /* failure */
 102   }
 103
 104   if (GetConsoleMode(hStdin, &flags)) {
 105     if (flags & ENABLE_PROCESSED_INPUT) {
 106       return -1;
 107     }
 108   }
 109
 110   (void) SetConsoleCursorPosition(hStdout, newPosition);
 111
 112   /* success */
 113   return 0;
 114 } /* SLang_init_tty */
 115
 116 /*----------------------------------------------------------------------*\
 117  *  Function:   void SLang_reset_tty (void);
 118  *
 119  * reset the tty before exiting
 120 \*----------------------------------------------------------------------*/
 121 void SLang_reset_tty (void)
 122 {
 123    set_ctrl_break (1);
 124 }
 125
 126 /*----------------------------------------------------------------------*\
 127  *  Function:   int SLsys_input_pending (int tsecs);
 128  *
 129  *  sleep for *tsecs tenths of a sec waiting for input
 130 \*----------------------------------------------------------------------*/
 131 int SLsys_input_pending (int tsecs)
 132 {
 133    INPUT_RECORD record;
 134    DWORD bytesRead;
 135
 136    while (1)
 137      {
 138         if (PeekConsoleInput(hStdin, &record, 1, &bytesRead))
 139           {
 140              if (bytesRead == 1)
 141                {
 142                   if ((record.EventType == KEY_EVENT)
 143                       && record.Event.KeyEvent.bKeyDown)
 144                     {
 145                        /* ok, there is a keypress here */
 146                        return 1;
 147                     }
 148                   else
 149                     {
 150                        /* something else is here, so read it and try again */
 151                        (void) ReadConsoleInput(hStdin, &record, 1, &bytesRead);
 152                     }
 153                }
 154              else
 155                {
 156                   /* no Pending events */
 157                   return 0;
 158                }
 159           }
 160         else
 161           {
 162              /* function failed */
 163              return 0;
 164           }
 165      }
 166 #if 0
 167   /* no delays yet */
 168   /* use Sleep */
 169   /*
 170    int count = tsecs * 5;
 171
 172    if (keyWaiting()) return 1;
 173    while (count > 0)
 174      {
 175         delay (20);      20 ms or 1/50 sec
 176         if (keyWaiting()) break;
 177         count--;
 178      }
 179    return (count);
 180    */
 181 #endif
 182 }
 183
 184 /*----------------------------------------------------------------------*\
 185  *  Function:   unsigned int SLsys_getkey (void);
 186  *
 187  * wait for and get the next available keystroke.
 188  * Also re-maps some useful keystrokes.
 189  *
 190  *      Backspace (^H)  =>      Del (127)
 191  *      Ctrl-Space      =>      ^@      (^@^3 - a pc NUL char)
 192  *      extended keys are prefixed by a null character
 193 \*----------------------------------------------------------------------*/
 194 unsigned int SLsys_getkey (void)
 195 {
 196   DWORD bytesRead;
 197   INPUT_RECORD record;
 198
 199   while (1) {
 200     if (!ReadConsoleInput(hStdin, &record, 1, &bytesRead)) {
 201       return 0;
 202     }
 203     if (record.EventType == KEY_EVENT && record.Event.KeyEvent.bKeyDown) {
 204 /*#ifndef __MINGW32__*/
 205       return record.Event.KeyEvent.uChar.AsciiChar;
 206 /*#else
 207       return record.Event.KeyEvent.AsciiChar;
 208 #endif*/
 209     }
 210   }
 211 /*   ReadFile(hStdin, &key, 1, &bytesRead, NULL); */
 212
 213 /*   return key; */
 214 }
 215
 216 /*----------------------------------------------------------------------*\
 217  *  Function:   void SLang_set_abort_signal (void (*handler)(int));
 218 \*----------------------------------------------------------------------*/
 219 void SLang_set_abort_signal (void (*handler)(int))
 220 {
 221
 222 }