curses 1.6.1 → 1.7.0

data/vendor/PDCursesMod/wingui/pdcdisp.c

@@ -0,0 +1,576 @@
+/* Public Domain Curses */
+
+#include "pdcwin.h"
+#define USE_UNICODE_ACS_CHARS 1
+
+#include "../common/acs_defs.h"
+
+#include <assert.h>
+#include <stdlib.h>
+#include <string.h>
+#include <tchar.h>
+#include "../common/pdccolor.h"
+#include "../common/pdccolor.c"
+#ifdef WIN32_LEAN_AND_MEAN
+   #include <commdlg.h>
+#endif
+
+/* For this 'real Windows' version,  we use all Unicode all the time,
+including for ACS characters,  and even when PDC_WIDE isn't #defined
+(i.e., when running in 'legacy' 8-bit character mode) See 'acs_defs.h'
+for details. */
+
+
+static const unsigned short starting_ascii_to_unicode[32] = {
+   0,
+   0x263a,        /*   1 smiling face              */
+   0x263b,        /*   2 smiling face inverted     */
+   0x2665,        /*   3 heart                     */
+   0x2666,        /*   4 diamond                   */
+   0x2663,        /*   5 club                      */
+   0x2660,        /*   6 spade                     */
+   0x2024,        /*   7 small bullet              */
+   0x25d8,        /*   8 inverted bullet           */
+   0x25bc,        /*   9 hollow bullet             */
+   0x25d9,        /*  10 inverted hollow bullet    */
+   0x2642,        /*  11 male/Mars symbol          */
+   0x2640,        /*  12 female/Venus symbol       */
+   0x266a,        /*  13 eighth note               */
+   0x266c,        /*  14 two sixteenth notes       */
+   0x263c,        /*  15 splat                     */
+   0x25b6,        /*  16 right-pointing triangle   */
+   0x25c0,        /*  17 left-pointing triangle    */
+   0x2195,        /*  18 double up/down arrow      */
+   0x203c,        /*  19 double exclamation !!     */
+   0x00b6,        /*  20 pilcrow                   */
+   0xa7,          /*  21                           */
+   0x2582,        /*  22 lower 1/3 block           */
+   0x280d,        /*  23 double up/down arrow      */
+   0x2191,        /*  24 up arrow                  */
+   0x2193,        /*  25 down arrow                */
+   0x2192,        /*  26 right arrow               */
+   0x2190,        /*  27 left arrow                */
+   0x2319,        /*  28                           */
+   0x280c,        /*  29 left & right arrow        */
+   0x25b2,        /*  30 up triangle               */
+   0x25bc};       /*  31 down triangle             */
+
+/* Cursors may be added to the 'shapes' array.  A 'shapes' string
+defines the cursor as one or more rectangles,  separated by semicolons.
+The coordinates of the upper left and lower right corners are given,
+usually just as integers from zero to eight.  Thus,  "0488" means a
+rectangle running from (0,4),  middle of the left side,  to (8,8),
+bottom right corner:  a rectangle filling the bottom half of the
+character cell. "0048" would fill the left half of the cell,  and
+"0082;6088" would fill the top and bottom quarters of the cell.
+
+   However,  a coordinate may be followed by a + or -,  and then by a
+single-digit offset in pixels.  So "08-4" refers to a point on the
+left-hand side of the character cell,  four pixels from the bottom. I
+admit that the cursor descriptions themselves look a little strange!
+But this way of describing cursors is compact and lends itself to some
+pretty simple code.
+
+   The first three lines are standard PDCurses cursors:  0=no cursor,
+1=four-pixel thick line at bottom of the cell,  2="high-intensity",
+i.e., a filled block.  The rest are extended cursors,  not currently
+available in other PDCurses flavors. */
+
+#define N_CURSORS 9
+
+static void redraw_cursor_from_index( const HDC hdc, const int idx)
+{
+    const char *shapes[N_CURSORS] = {
+        "",                         /* 0: invisible */
+        "08-488",                    /* 1: normal:  four lines at bottom */
+        "0088",                       /* 2: full block */
+        "0088;0+10+18-18-1",           /* 3: outlined block */
+        "28-368;4-10+34+18-3;2060+3",  /* 4: caret */
+        "0488",                       /* 5: bottom half block */
+        "2266",                      /* 6: central block     */
+        "0385;3053;3558",           /* 7: cross */
+        "0088;0+10+48-18-4"  };    /* 8: outlined block: heavy top/bottom*/
+    const char *sptr = shapes[idx];
+    LONG left, top;
+    extern int PDC_cxChar, PDC_cyChar;
+
+    left = SP->curscol * PDC_cxChar;
+    top = SP->cursrow * PDC_cyChar;
+    while( *sptr)
+    {
+        int i;
+        LONG coords[4];
+        RECT rect;
+
+        for( i = 0; i < 4; i++)
+        {
+            coords[i] = (( i & 1) ?
+                         top + (PDC_cyChar * (*sptr - '0') + 4) / 8 :
+                         left + (PDC_cxChar * (*sptr - '0') + 4) / 8);
+            sptr++;
+            if( *sptr == '+' || *sptr == '-')
+            {
+                if( *sptr == '+')
+                   coords[i] += sptr[1] - '0';
+                else
+                   coords[i] -= sptr[1] - '0';
+                sptr += 2;
+            }
+        }
+        rect.left = coords[0];
+        rect.top = coords[1];
+        rect.right = coords[2];
+        rect.bottom = coords[3];
+        InvertRect( hdc, &rect);
+        if( *sptr == ';')
+            sptr++;
+    }
+}
+
+/* PDC_current_cursor_state( ) determines which cursor,  if any,
+is currently shown.  This may depend on the blink state.  Also,
+if the window currently lacks the focus,  we show cursor 3 (a hollow
+box) in place of any visible cursor.  */
+
+static int PDC_current_cursor_state( void)
+{
+    extern HWND PDC_hWnd;
+    const int shift_amount = (SP->blink_state ? 8 : 0);
+    const int cursor_style_for_unfocussed_window =
+               PDC_CURSOR( PDC_CURSOR_OUTLINE, PDC_CURSOR_OUTLINE);
+    int cursor_style;
+
+            /* for unfocussed windows, show an hollow box: */
+    if( SP->visibility && (PDC_hWnd != GetForegroundWindow( )))
+        cursor_style = cursor_style_for_unfocussed_window;
+    else    /* otherwise,  just show the cursor "normally" */
+        cursor_style = SP->visibility;
+    return( (cursor_style >> shift_amount) & 0xff);
+}
+
+static void redraw_cursor( const HDC hdc)
+{
+    const int cursor_style = PDC_current_cursor_state( );
+
+    if( cursor_style > 0 && cursor_style < N_CURSORS)
+        redraw_cursor_from_index( hdc, cursor_style);
+}
+
+#ifndef USER_DEFAULT_SCREEN_DPI /* defined in newer versions of WinUser.h */
+#define USER_DEFAULT_SCREEN_DPI 96
+#endif
+
+/* if the calling application marks itself as "DPI aware", we want to make sure
+that we scale the user's font appropriately. the GetDpiForSystem call is only
+available on Windows 10 and newer, so we load the DLL dynamically and find the
+function address at runtime. if the method isn't available, that means we're on
+and older operating system, so we just return the original value */
+static LONG scale_font_for_current_dpi( LONG size)
+{
+    HMODULE user32Dll = LoadLibrary( _T("User32.dll"));
+
+    if ( user32Dll)
+    {
+        /* https://msdn.microsoft.com/en-us/library/windows/desktop/mt748623(v=vs.85).aspx */
+
+        FARPROC getDpiForSystem = GetProcAddress( user32Dll, "GetDpiForSystem");
+
+        if ( getDpiForSystem)
+        {
+            size = MulDiv( size, (UINT)getDpiForSystem(), USER_DEFAULT_SCREEN_DPI);
+        }
+
+        FreeLibrary( user32Dll);
+    }
+
+    return size;
+}
+
+int PDC_font_size = -1;
+TCHAR PDC_font_name[128];
+
+static LOGFONT PDC_get_logical_font( const int font_idx)
+{
+    LOGFONT lf;
+
+    if ( PDC_font_size < 0)
+    {
+        PDC_font_size = scale_font_for_current_dpi( 12); /* default 12 points */
+    }
+
+    memset(&lf, 0, sizeof(LOGFONT));        /* Clear out structure. */
+    lf.lfHeight = -PDC_font_size;
+#ifdef PDC_WIDE
+    if( !*PDC_font_name)
+        wcscpy( PDC_font_name, _T("Courier New"));
+    if( font_idx & 4)
+        wcscpy( lf.lfFaceName, _T("Unifont"));
+    else
+        wcscpy( lf.lfFaceName, PDC_font_name );
+/*  wprintf( L"New font: %s\n", PDC_font_name); */
+#else
+    if( !*PDC_font_name)
+        strcpy( PDC_font_name, "Courier New");
+    if( font_idx & 4)
+        strcpy( lf.lfFaceName, "Unifont");
+    else
+        strcpy( lf.lfFaceName, PDC_font_name);
+#endif
+/*  lf.lfPitchAndFamily = FIXED_PITCH | FF_MODERN; */
+    lf.lfPitchAndFamily = FF_MODERN;
+    lf.lfWeight = ((font_idx & 1) ? FW_EXTRABOLD : FW_NORMAL);
+    lf.lfItalic = ((font_idx & 2) ? TRUE : FALSE);
+    lf.lfCharSet = ANSI_CHARSET;
+    lf.lfQuality = PROOF_QUALITY;
+    lf.lfOutPrecision = OUT_RASTER_PRECIS;
+    return( lf);
+}
+
+HFONT PDC_get_font_handle( const int font_idx)
+{
+    LOGFONT lf = PDC_get_logical_font( font_idx);
+
+    return( CreateFontIndirect( &lf));
+}
+
+int debug_printf( const char *format, ...);        /* pdcscrn.c */
+
+int PDC_choose_a_new_font( void)
+{
+    LOGFONT lf = PDC_get_logical_font( 0);
+    CHOOSEFONT cf;
+    int rval;
+    extern HWND PDC_hWnd;
+
+    lf.lfHeight = -PDC_font_size;
+    debug_printf( "In PDC_choose_a_new_font: %d\n", lf.lfHeight);
+    memset( &cf, 0, sizeof( CHOOSEFONT));
+    cf.lStructSize = sizeof( CHOOSEFONT);
+    cf.Flags = CF_INITTOLOGFONTSTRUCT | CF_SCREENFONTS | CF_FIXEDPITCHONLY | CF_SELECTSCRIPT;
+    cf.hwndOwner = PDC_hWnd;
+    cf.lpLogFont = &lf;
+    rval = ChooseFont( &cf);
+    if( rval) {
+#ifdef PDC_WIDE
+        wcscpy( PDC_font_name, lf.lfFaceName);
+#else
+        strcpy( PDC_font_name, lf.lfFaceName);
+#endif
+        PDC_font_size = -lf.lfHeight;
+        debug_printf( "output size: %d\n", lf.lfHeight);
+    }
+    debug_printf( "rval %d; %ld\n", rval, CommDlgExtendedError( ));
+    return( rval);
+}
+
+/* see 'addch.c' for an explanation of how combining chars are handled. */
+
+#ifdef USING_COMBINING_CHARACTER_SCHEME
+   int PDC_expand_combined_characters( const cchar_t c, cchar_t *added);  /* addch.c */
+#endif
+
+#ifdef USE_FALLBACK_FONT
+GLYPHSET *PDC_unicode_range_data = NULL;
+
+/* Note that in the following,  if a character has a Unicode point
+greater than 64K (i.e.,  it's not in the Basic Multilingual Plane),
+we assume it has a glyph in the font.  The problem is that,  due to
+the brain-dead implementation of Unicode in Windoze,  we can't
+actually tell if there is a glyph or not;  the "range" data is 16-bit. */
+
+static bool character_is_in_font( chtype ichar)
+{
+    int i;
+    WCRANGE *wptr = PDC_unicode_range_data->ranges;
+
+    if( _is_altcharset( ichar))
+       ichar = acs_map[ichar & 0x7f];
+    ichar &= A_CHARTEXT;
+    if( ichar > MAX_UNICODE)  /* assume combining chars won't be */
+       return( FALSE);        /* supported;  they rarely are     */
+    if( ichar > 0xffff)     /* see above comments */
+       return( TRUE);
+    for( i = PDC_unicode_range_data->cRanges; i; i--, wptr++)
+      if( wptr->wcLow > ichar)
+         return( FALSE);
+      else if( wptr->wcLow + wptr->cGlyphs > (WCHAR)ichar)
+         return( TRUE);
+               /* Didn't find it in any range;  it must not be in the font */
+    return( FALSE);
+}
+#endif         /* #ifdef USE_FALLBACK_FONT */
+
+/* update the given physical line to look like the corresponding line in
+curscr.
+
+   NOTE that if x > 0,  we decrement it and srcp,  and increment the
+length.  In other words,  we draw the preceding character,  too.  This
+is done because,  at certain font sizes,  characters break out and
+overwrite the preceding character.  That results in debris left on
+the screen.
+
+   The code also now increments the length only,  drawing one more
+character (i.e.,  draws the character following the "text we really
+want").  Again,  this helps to avoid debris left on the screen.
+
+   The 'ExtTextOut' function takes an lpDx array that specifies the exact
+placement of each character relative to the previous character.  This seems
+to help avoid most (but not all) stray pixels from being displayed.  The
+problem is that,  at certain font sizes,  letters may be drawn that don't
+fit properly in the clip rectangle;  and they aren't actually clipped
+correctly,  despite the use of the ETO_CLIPPED flag.  But things do seem
+to be much better than was the case back when plain 'TextOut' was used. */
+
+#define N_CACHED_FONTS     8
+
+static HFONT hFonts[N_CACHED_FONTS];
+
+#define BUFFSIZE 50
+
+static void PDC_transform_line_given_hdc( const HDC hdc, const int lineno,
+                             int x, int len, const chtype *srcp)
+{
+    HFONT hOldFont = (HFONT)0;
+    extern int PDC_cxChar, PDC_cyChar;
+    int i, curr_color = -1;
+    attr_t font_attrib = (attr_t)-1;
+    PACKED_RGB foreground_rgb = 0;
+    chtype prev_ch = 0;
+
+    if( !srcp)             /* just freeing up fonts */
+    {
+        for( i = 0; i < N_CACHED_FONTS; i++)
+            if( hFonts[i])
+            {
+                DeleteObject( hFonts[i]);
+                hFonts[i] = NULL;
+            }
+#ifdef USE_FALLBACK_FONT
+        if( PDC_unicode_range_data)
+        {
+            free( PDC_unicode_range_data);
+            PDC_unicode_range_data = NULL;
+        }
+#endif
+        return;
+    }
+    assert( x >= 0);
+    assert( len <= SP->cols - x);
+    assert( lineno < SP->lines && len > 0 && lineno >= 0);
+#ifdef PDC_WIDE
+    assert( (srcp[len - 1] & A_CHARTEXT) != MAX_UNICODE);
+#endif
+
+    while( len)
+    {
+        const attr_t attrib = (attr_t)( *srcp & ~A_CHARTEXT);
+        const int color = (int)(( *srcp & A_COLOR) >> PDC_COLOR_SHIFT);
+        attr_t new_font_attrib = (*srcp & (A_BOLD | A_ITALIC));
+        RECT clip_rect;
+        wchar_t buff[BUFFSIZE];
+        int lpDx[BUFFSIZE + 1];
+        int olen = 0;
+#ifdef USE_FALLBACK_FONT
+        const bool in_font = character_is_in_font( *srcp);
+#endif
+
+        for( i = 0; i < len && olen < BUFFSIZE - 1
+#ifdef USE_FALLBACK_FONT
+                  && (in_font == character_is_in_font( srcp[i])
+                              || (srcp[i] & A_CHARTEXT) == MAX_UNICODE)
+#endif
+                  && attrib == (attr_t)( srcp[i] & ~A_CHARTEXT); i++)
+        {
+            chtype ch = srcp[i] & A_CHARTEXT;
+
+#ifdef USING_COMBINING_CHARACTER_SCHEME
+            if( ch > 0xffff && ch < MAX_UNICODE)  /* use Unicode surrogates to fit */
+            {               /* >64K values into 16-bit wchar_t: */
+                ch -= 0x10000;
+                buff[olen] = (wchar_t)( 0xd800 | (ch >> 10));
+                lpDx[olen] = 0;
+                olen++;                           /* ^ upper 10 bits */
+                ch = (wchar_t)( 0xdc00 | (ch & 0x3ff));  /* lower 10 bits */
+            }
+            if( ch > MAX_UNICODE)      /* chars & fullwidth supported */
+            {
+                cchar_t added[10], root = ch;
+                int n_combined = 0;
+
+                while( (root = PDC_expand_combined_characters( root,
+                                   &added[n_combined])) > MAX_UNICODE)
+                {
+                    n_combined++;
+                }
+                buff[olen] = (wchar_t)root;
+                lpDx[olen] = 0;
+                olen++;
+                ch = (wchar_t)added[n_combined];
+                while( n_combined)
+                {
+                    n_combined--;
+                    buff[olen] = (wchar_t)added[n_combined];
+                    lpDx[olen] = 0;
+                    olen++;
+                }
+            }
+#endif
+            if( _is_altcharset( srcp[i]))
+                ch = acs_map[ch & 0x7f];
+            else if( ch < 32)
+               ch = starting_ascii_to_unicode[ch];
+#ifndef PDC_WIDE                          /* If we're in Unicode,  assume */
+            else if( ch <= 0xff)          /* the incoming text doesn't need */
+            {                             /* code-page translation          */
+               char c = (char)ch;
+               wchar_t z;
+
+               mbtowc( &z, &c, 1);
+               ch = (chtype)z;
+            }
+#endif
+            buff[olen] = (wchar_t)ch;
+            lpDx[olen] = PDC_cxChar;
+#ifdef PDC_WIDE
+            if( ch != MAX_UNICODE)
+                olen++;
+            else if( olen)          /* prev char is double-width */
+                lpDx[olen - 1] = 2 * PDC_cxChar;
+#else
+            olen++;
+#endif
+        }
+        lpDx[olen] = PDC_cxChar;
+        if( color != curr_color || ((prev_ch ^ *srcp) & (A_REVERSE | A_BLINK | A_BOLD | A_DIM)))
+        {
+            PACKED_RGB background_rgb;
+
+            PDC_get_rgb_values( *srcp, &foreground_rgb, &background_rgb);
+            curr_color = color;
+            SetTextColor( hdc, (COLORREF)foreground_rgb);
+            SetBkColor( hdc, (COLORREF)background_rgb);
+        }
+        if( !(SP->termattrs & A_BLINK) && (*srcp & A_BLINK))
+            new_font_attrib &= ~A_BLINK;
+#ifdef USE_FALLBACK_FONT
+        if( !in_font)                  /* flag to indicate use of */
+            new_font_attrib |= 1;      /* fallback font           */
+#endif
+        if( new_font_attrib != font_attrib)
+        {
+            HFONT hFont;
+            int idx = 0;
+
+            font_attrib = new_font_attrib;
+            if( font_attrib & A_BOLD & SP->termattrs)
+                idx |= 1;
+            if( font_attrib & A_ITALIC)
+                idx |= 2;
+            if( font_attrib & 1)  /* use Unifont or other fallback font */
+                idx |= 4;
+            if( !hFonts[idx])
+                hFonts[idx] = PDC_get_font_handle( idx);
+            hFont = SelectObject( hdc, hFonts[idx]);
+            if( !hOldFont)
+                hOldFont = hFont;
+        }
+        prev_ch = *srcp;
+        clip_rect.left = x * PDC_cxChar;
+        clip_rect.top = lineno * PDC_cyChar;
+        clip_rect.right = clip_rect.left + i * PDC_cxChar;
+#ifdef PDC_WIDE
+        if( 2 == PDC_wcwidth( (uint32_t)( *srcp & A_CHARTEXT)))  /* allow extra */
+            clip_rect.right += PDC_cxChar;        /* space for a fullwidth char */
+#endif
+        clip_rect.bottom = clip_rect.top + PDC_cyChar;
+        ExtTextOutW( hdc, clip_rect.left, clip_rect.top,
+                           ETO_CLIPPED | ETO_OPAQUE, &clip_rect,
+                           buff, olen, (olen > 1 ? lpDx : NULL));
+#ifdef WA_TOP
+        if( *srcp & (WA_UNDERLINE | WA_RIGHT | WA_LEFT | WA_TOP | WA_STRIKEOUT))
+#else
+        if( *srcp & (WA_UNDERLINE | WA_RIGHT | WA_LEFT))
+#endif
+        {
+            const int y1 = clip_rect.top;
+            const int y2 = clip_rect.bottom - 1;
+            const int x1 = clip_rect.left;
+            const int x2 = clip_rect.right;
+            int j;
+            const PACKED_RGB rgb = (SP->line_color == -1 ?
+                             foreground_rgb : PDC_get_palette_entry( SP->line_color));
+            const HPEN pen = CreatePen( PS_SOLID, 1, (COLORREF)rgb);
+            const HPEN old_pen = SelectObject( hdc, pen);
+
+            if( *srcp & WA_UNDERLINE)
+            {
+                MoveToEx( hdc, x1, y2, NULL);
+                LineTo(   hdc, x2, y2);
+            }
+#ifdef WA_TOP
+            if( *srcp & WA_TOP)
+            {
+                MoveToEx( hdc, x1, y1, NULL);
+                LineTo(   hdc, x2, y1);
+            }
+            if( *srcp & WA_STRIKEOUT)
+            {
+                MoveToEx( hdc, x1, (y1 + y2) / 2, NULL);
+                LineTo(   hdc, x2, (y1 + y2) / 2);
+            }
+#endif
+            if( *srcp & WA_RIGHT)
+                for( j = 0; j < i; j++)
+                {
+                    MoveToEx( hdc, x2 - j * PDC_cxChar - 1, y1, NULL);
+                    LineTo(   hdc, x2 - j * PDC_cxChar - 1, y2);
+                }
+            if( *srcp & WA_LEFT)
+                for( j = 0; j < i; j++)
+                {
+                    MoveToEx( hdc, x1 + j * PDC_cxChar, y1, NULL);
+                    LineTo(   hdc, x1 + j * PDC_cxChar, y2);
+                }
+            SelectObject( hdc, old_pen);
+            DeleteObject( pen);
+        }
+        len -= i;
+        x += i;
+        srcp += i;
+    }
+    SelectObject( hdc, hOldFont);
+               /* ...did we step on the cursor?  If so,  redraw it: */
+    if( SP->drawing_cursor && PDC_current_cursor_state( ))
+        redraw_cursor( hdc);
+}
+
+HDC override_hdc;
+
+void PDC_transform_line(int lineno, int x, int len, const chtype *srcp)
+{
+    if( !srcp)    /* just freeing up fonts */
+        PDC_transform_line_given_hdc( 0, 0, 0, 0, NULL);
+    else
+    {
+        extern HWND PDC_hWnd;
+        const HDC hdc = (override_hdc ? override_hdc : GetDC( PDC_hWnd)) ;
+
+        assert( len);
+#ifdef PDC_WIDE
+        assert( (srcp[len - 1] & A_CHARTEXT) != MAX_UNICODE);
+#endif
+        PDC_transform_line_given_hdc( hdc, lineno, x, len, srcp);
+        ReleaseDC( PDC_hWnd, hdc);
+    }
+}
+
+void PDC_doupdate(void)
+{
+    MSG msg;
+
+    while( PeekMessage(&msg, NULL, 0, 0, PM_REMOVE) )
+    {
+       TranslateMessage(&msg);
+       DispatchMessage(&msg);
+    }
+}

data/vendor/PDCursesMod/wingui/pdckbd.c

@@ -0,0 +1,89 @@
+/* Public Domain Curses */
+
+#include "pdcwin.h"
+#include <tchar.h>
+
+void PDC_set_keyboard_binary(bool on)
+{
+    PDC_LOG(("PDC_set_keyboard_binary() - called\n"));
+
+    INTENTIONALLY_UNUSED_PARAMETER( on);
+}
+
+/* check if a key or mouse event is waiting */
+
+#define KEY_QUEUE_SIZE    30
+
+extern int PDC_key_queue_low, PDC_key_queue_high;
+extern int PDC_key_queue[KEY_QUEUE_SIZE];
+
+bool PDC_check_key(void)
+{
+    MSG msg;
+
+    while( PDC_key_queue_low == PDC_key_queue_high
+                       && PeekMessage( &msg, NULL, 0, 0, PM_REMOVE) )
+    {
+       TranslateMessage(&msg);
+       DispatchMessage(&msg);
+    }
+    return( PDC_key_queue_low != PDC_key_queue_high);
+}
+
+bool _get_mouse_event( MOUSE_STATUS *mstatus);     /* ../common/mouse.c */
+
+/* return the next available key or mouse event */
+
+int PDC_get_key(void)
+{
+    int rval = -1;
+
+    if( PDC_key_queue_low != PDC_key_queue_high)
+    {
+        rval = PDC_key_queue[PDC_key_queue_low++];
+        if( PDC_key_queue_low == KEY_QUEUE_SIZE)
+            PDC_key_queue_low = 0;
+        if( rval == KEY_RESIZE)
+            while( PDC_key_queue[PDC_key_queue_low] == KEY_RESIZE
+                           && PDC_key_queue_low != PDC_key_queue_high)
+            {
+                PDC_key_queue_low++;
+                if( PDC_key_queue_low == KEY_QUEUE_SIZE)
+                    PDC_key_queue_low = 0;
+            }
+         if( rval == KEY_MOUSE)
+            _get_mouse_event( &SP->mouse_status);
+    }
+    return rval;
+}
+
+/* discard any pending keyboard or mouse input -- this is the core
+   routine for flushinp() */
+
+void PDC_flushinp(void)
+{
+    PDC_LOG(("PDC_flushinp() - called\n"));
+    PDC_key_queue_low = PDC_key_queue_high = 0;
+    while( _get_mouse_event( &SP->mouse_status))
+        ;
+}
+
+bool PDC_has_mouse( void)
+{
+    return TRUE;
+}
+
+int PDC_mouse_set(void)
+{
+    /* If turning on mouse input: Set ENABLE_MOUSE_INPUT, and clear
+       all other flags, including the extended flags;
+       If turning off the mouse: Set QuickEdit Mode to the status it
+       had on startup, and clear all other flags */
+
+    return OK;
+}
+
+int PDC_modifiers_set(void)
+{
+    return OK;
+}