rosapps/mc/slang/slgetkey.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
  10 #include <stdio.h>
  11 #include "slang.h"
  12 #include "_slang.h"
  13
  14 unsigned int SLang_Input_Buffer_Len = 0;
  15 unsigned char SLang_Input_Buffer [MAX_INPUT_BUFFER_LEN];
  16
  17 int SLang_Abort_Char = 7;
  18 int SLang_Ignore_User_Abort = 0;
  19
  20 /* This has the effect of mapping all characters in the range 128-169 to
  21  * ESC [ something
  22  */
  23 #ifndef __GO32__
  24 # if defined(__unix__) || defined(vms)
  25 #  define DEC_8BIT_HACK 64
  26 # endif
  27 #endif
  28
  29 #ifdef OS2_NT /* see the replacement in src/slint.c */
  30 unsigned int SLang_getkey (void)
  31 {
  32    unsigned int imax;
  33    unsigned int ch;
  34
  35    if (SLang_Input_Buffer_Len)
  36      {
  37         ch = (unsigned int) *SLang_Input_Buffer;
  38         SLang_Input_Buffer_Len--;
  39         imax = SLang_Input_Buffer_Len;
  40
  41         SLMEMCPY ((char *) SLang_Input_Buffer,
  42                 (char *) (SLang_Input_Buffer + 1), imax);
  43      }
  44    else if (0xFFFF == (ch = SLsys_getkey ())) return ch;
  45
  46 #ifdef DEC_8BIT_HACK
  47    if (ch & 0x80)
  48      {
  49         unsigned char i;
  50         i = (unsigned char) (ch & 0x7F);
  51         if (i < ' ')
  52           {
  53              i += DEC_8BIT_HACK;
  54              SLang_ungetkey (i);
  55              ch = 27;
  56           }
  57      }
  58 #endif
  59    return(ch);
  60 }
  61 #endif /* OS2_NT */
  62
  63 void SLang_ungetkey_string (unsigned char *s, unsigned int n)
  64 {
  65    register unsigned char *bmax, *b, *b1;
  66    if (SLang_Input_Buffer_Len + n + 3 > MAX_INPUT_BUFFER_LEN) return;
  67
  68    b = SLang_Input_Buffer;
  69    bmax = (b - 1) + SLang_Input_Buffer_Len;
  70    b1 = bmax + n;
  71    while (bmax >= b) *b1-- = *bmax--;
  72    bmax = b + n;
  73    while (b < bmax) *b++ = *s++;
  74    SLang_Input_Buffer_Len += n;
  75 }
  76
  77 void SLang_buffer_keystring (unsigned char *s, unsigned int n)
  78 {
  79
  80    if (n + SLang_Input_Buffer_Len + 3 > MAX_INPUT_BUFFER_LEN) return;
  81
  82    SLMEMCPY ((char *) SLang_Input_Buffer + SLang_Input_Buffer_Len,
  83            (char *) s, n);
  84    SLang_Input_Buffer_Len += n;
  85 }
  86
  87 void SLang_ungetkey (unsigned char ch)
  88 {
  89    SLang_ungetkey_string(&ch, 1);
  90 }
  91
  92 #ifdef OS2_NT /* see the replacement in src/slint.c */
  93 int SLang_input_pending (int tsecs)
  94 {
  95    int n;
  96    unsigned char c;
  97    if (SLang_Input_Buffer_Len) return (int) SLang_Input_Buffer_Len;
  98
  99    n = SLsys_input_pending (tsecs);
 100
 101    if (n <= 0) return 0;
 102
 103    c = (unsigned char) SLang_getkey ();
 104    SLang_ungetkey_string (&c, 1);
 105
 106    return n;
 107 }
 108 #endif /* OS2_NT */
 109
 110 void SLang_flush_input (void)
 111 {
 112    int quit = SLKeyBoard_Quit;
 113
 114    SLang_Input_Buffer_Len = 0;
 115    SLKeyBoard_Quit = 0;
 116    while (SLsys_input_pending (0) > 0)
 117      {
 118         (void) SLsys_getkey ();
 119         /* Set this to 0 because SLsys_getkey may stuff keyboard buffer if
 120          * key sends key sequence (OS/2, DOS, maybe VMS).
 121          */
 122         SLang_Input_Buffer_Len = 0;
 123      }
 124    SLKeyBoard_Quit = quit;
 125 }