curses 1.2.6 → 1.4.0

data/vendor/PDCurses/wingui/Makefile.wcc

@@ -0,0 +1,51 @@
+# Watcom WMAKE Makefile for PDCurses library - Win32 Watcom C/C++ 10.6+
+#
+# Usage: wmake -f [wingui/]Makefile.wcc [DEBUG=Y] [WIDE=Y] [UTF8=Y] [target]
+#
+# where target can be any of:
+# [all|demos|pdcurses.lib|testcurs.exe...]
+
+!ifdef %PDCURSES_SRCDIR
+PDCURSES_SRCDIR   = $(%PDCURSES_SRCDIR)
+!else
+PDCURSES_SRCDIR   = ..
+!endif
+
+!include $(PDCURSES_SRCDIR)/version.mif
+
+osdir      = $(PDCURSES_SRCDIR)/wingui
+
+CC      = wcc386
+TARGET      = nt_win
+
+CFLAGS      = -ei -zq -wx -i=$(PDCURSES_SRCDIR)
+
+!ifeq DEBUG Y
+CFLAGS      += -hd -od -d2 -dDEBUG -DPDCDEBUG
+LDFLAGS      = DEBUG ALL op q sys $(TARGET)
+!else
+CFLAGS      += -oneatx
+LDFLAGS      = op q sys $(TARGET)
+!endif
+
+!ifeq WIDE Y
+CFLAGS      += -DPDC_WIDE
+!endif
+
+!ifeq UTF8 Y
+CFLAGS      += -DPDC_FORCE_UTF8
+!endif
+
+LIBEXE      = wlib -q -n -t
+
+!include $(PDCURSES_SRCDIR)/watcom.mif
+
+$(LIBCURSES) : $(LIBOBJS) $(PDCOBJS)
+   $(LIBEXE) $@ $(LIBOBJS) $(PDCOBJS)
+   copy $(LIBCURSES) panel.lib
+
+PLATFORM1   = Watcom C++ WinGUI
+PLATFORM2   = Open Watcom 1.6 for WinGUI
+ARCNAME      = pdc$(VER)_wcc_w32
+
+!include $(PDCURSES_SRCDIR)/makedist.mif

data/vendor/PDCurses/wingui/README.md

@@ -0,0 +1,93 @@
+PDCurses for WinGUI
+==================
+
+This directory contains PDCurses source code files specific to Win32
+graphics mode (Win95 and all subsequent forks of Windows).
+
+Building
+--------
+
+   (Note that the following is almost identical to the instructions
+   for the Win32 console flavor of PDCurses.)
+
+- Choose the appropriate makefile for your compiler:
+
+        Makefile.bcc  - Borland C++ 4.0.2+
+        Makefile.dmc  - Digital Mars
+        Makefile.lcc  - LCC-Win32
+        Makefile.mng  - MinGW, Cygnus GNU Compiler
+        Makefile.vc   - Microsoft Visual C++ 2.0+ or later & Intel(R) compiler
+        Makefile.wcc  - Watcom 10.6+ or OpenWATCOM
+
+- Optionally, you can build in a different directory than the platform
+  directory by setting PDCURSES_SRCDIR to point to the directory where
+  you unpacked PDCurses, and changing to your target directory:
+
+        set PDCURSES_SRCDIR=c:\pdcurses
+
+  This won't work with the LCC or Digital Mars makefiles, nor will the
+  options described below.
+
+- Build it:
+
+        make -f makefilename
+
+  (For Watcom, use "wmake" instead of "make"; for MSVC, "nmake".) You'll
+  get the libraries (pdcurses.lib or .a, depending on your compiler; and
+  panel.lib or .a), the demos (*.exe), and a lot of object files. Note
+  that the panel library is just a copy of the main library, provided
+  for convenience; both panel and curses functions are in the main
+  library.
+
+  You can also give the optional parameter "WIDE=Y", to build the
+  library with wide-character (Unicode) support:
+
+        make -f Makefile.mng WIDE=Y
+
+  When built this way, the library is not compatible with Windows 9x,
+  unless you also link with the Microsoft Layer for Unicode (not
+  tested).
+
+  For the Intel(R) compiler,  use Makefile.vc and add ICC=Y.
+
+  By default,  Makefile.vc results in 64-bit code for both VC and Intel(R).
+  Add IX86=Y to generate 32-bit code.  (Other builds are 32-bit only.)
+
+  Another option, "UTF8=Y", makes PDCurses ignore the system locale, and
+  treat all narrow-character strings as UTF-8. This option has no effect
+  unless WIDE=Y is also set. This was originally provided to get around
+  poor support for UTF-8 in the Win32 console:
+
+        make -f Makefile.mng WIDE=Y UTF8=Y
+
+  WinGUI doesn't have the same limitations as the Win32 console flavor,
+  but UTF-8 and non-UTF-8 versions are still available.  If nothing else,
+  this means that if you've built a Win32 console PDCurses DLL with any
+  configuration,  you can build a matching WinGUI DLL and swap between
+  console or GUI PDCurses just by swapping DLLs.
+
+  You can also use the optional parameter "DLL=Y" with Visual C++,
+  MinGW or Cygwin, to build the library as a DLL:
+
+        nmake -f Makefile.vc WIDE=Y DLL=Y
+
+  When you build the library as a Windows DLL, you must always define
+  PDC_DLL_BUILD when linking against it. (Or, if you only want to use
+  the DLL, you could add this definition to your curses.h.)
+
+  If cross-compiling from Linux,  add the parameter `_w64=1` to get
+  64-bit code (default will be 32-bit).
+
+        make -f Makefile.mng _w64=1 [WIDE=Y UTF8=Y DLL=Y]
+
+Distribution Status
+-------------------
+
+The files in this directory are released to the Public Domain.
+
+Acknowledgements
+----------------
+
+Based heavily on the Win32 console flavor of PDCurses by Chris Szurgot
+<szurgot[at]itribe.net>,  ported to Win32 GUI by Bill Gray
+<pluto[at]projectpluto.com>.

data/vendor/PDCurses/wingui/pdcclip.c

@@ -0,0 +1,174 @@
+/* Public Domain Curses */
+
+#include "pdcwin.h"
+
+/*man-start**************************************************************
+
+clipboard
+---------
+
+### Synopsis
+
+    int PDC_getclipboard(char **contents, long *length);
+    int PDC_setclipboard(const char *contents, long length);
+    int PDC_freeclipboard(char *contents);
+    int PDC_clearclipboard(void);
+
+### Description
+
+   PDC_getclipboard() gets the textual contents of the system's
+   clipboard. This function returns the contents of the clipboard
+   in the contents argument. It is the responsibility of the
+   caller to free the memory returned, via PDC_freeclipboard().
+   The length of the clipboard contents is returned in the length
+   argument.
+
+   PDC_setclipboard copies the supplied text into the system's
+   clipboard, emptying the clipboard prior to the copy.
+
+   PDC_clearclipboard() clears the internal clipboard.
+
+### Return Values
+
+   indicator of success/failure of call.
+   PDC_CLIP_SUCCESS        the call was successful
+   PDC_CLIP_MEMORY_ERROR   unable to allocate sufficient memory for
+                           the clipboard contents
+   PDC_CLIP_EMPTY          the clipboard contains no text
+   PDC_CLIP_ACCESS_ERROR   no clipboard support
+
+### Portability
+                             X/Open    BSD    SYS V
+    PDC_getclipboard            -       -       -
+    PDC_setclipboard            -       -       -
+    PDC_freeclipboard           -       -       -
+    PDC_clearclipboard          -       -       -
+
+**man-end****************************************************************/
+
+#ifdef PDC_WIDE
+# define PDC_TEXT CF_UNICODETEXT
+#else
+# define PDC_TEXT CF_OEMTEXT
+#endif
+
+int PDC_getclipboard_handle( HANDLE *handle)
+{
+    PDC_LOG(("PDC_getclipboard() - called\n"));
+
+    if (!OpenClipboard(NULL))
+    {
+        return PDC_CLIP_ACCESS_ERROR;
+    }
+
+    if ((*handle = GetClipboardData(PDC_TEXT)) == NULL)
+    {
+        CloseClipboard();
+        return PDC_CLIP_EMPTY;
+    }
+
+    return PDC_CLIP_SUCCESS;
+}
+
+int PDC_getclipboard(char **contents, long *length)
+{
+    HANDLE handle;
+    int rval = PDC_getclipboard_handle( &handle);
+
+    if( rval == PDC_CLIP_SUCCESS)
+    {
+        void *tptr = GlobalLock( handle);
+
+        if( tptr)
+        {
+#ifdef PDC_WIDE
+            size_t len = wcslen((wchar_t *)tptr) * 3;
+#else
+            size_t len = strlen( tptr);
+#endif
+
+            *contents = (char *)GlobalAlloc( GMEM_FIXED, len + 1);
+
+            if( !*contents)
+                rval = PDC_CLIP_MEMORY_ERROR;
+            else
+            {
+#ifdef PDC_WIDE
+                len = PDC_wcstombs( (char *)*contents, tptr, len);
+#else
+                strcpy((char *)*contents, tptr);
+#endif
+            }
+            *length = (long)len;
+            GlobalUnlock( handle);
+        }
+        else
+            rval = PDC_CLIP_MEMORY_ERROR;
+        CloseClipboard();
+    }
+    return rval;
+}
+
+int PDC_setclipboard_raw( const char *contents, long length,
+            const bool translate_multibyte_to_wide_char)
+{
+    HGLOBAL handle;
+    LPTSTR buff;
+
+    PDC_LOG(("PDC_setclipboard() - called\n"));
+
+    if (!OpenClipboard(NULL))
+        return PDC_CLIP_ACCESS_ERROR;
+
+    handle = GlobalAlloc(GMEM_MOVEABLE|GMEM_DDESHARE,
+        (length + 1) * sizeof(TCHAR));
+
+    if (!handle)
+        return PDC_CLIP_MEMORY_ERROR;
+
+    buff = GlobalLock(handle);
+
+#ifdef PDC_WIDE
+    if( translate_multibyte_to_wide_char)
+       PDC_mbstowcs((wchar_t *)buff, contents, length);
+    else
+       memcpy((char *)buff, contents, (length + 1) * sizeof( wchar_t));
+#else
+    memcpy((char *)buff, contents, length);
+    buff[length] = 0;      /* ensure null termination */
+#endif
+    GlobalUnlock(handle);
+    EmptyClipboard();
+
+    if( !SetClipboardData(PDC_TEXT, handle))
+    {
+        GlobalFree(handle);
+        return PDC_CLIP_ACCESS_ERROR;
+    }
+
+    CloseClipboard();
+
+    return PDC_CLIP_SUCCESS;
+}
+
+int PDC_setclipboard(const char *contents, long length)
+{
+   return( PDC_setclipboard_raw( contents, length, TRUE));
+}
+
+int PDC_freeclipboard(char *contents)
+{
+    PDC_LOG(("PDC_freeclipboard() - called\n"));
+
+    GlobalFree(contents);
+    return PDC_CLIP_SUCCESS;
+}
+
+int PDC_clearclipboard(void)
+{
+    PDC_LOG(("PDC_clearclipboard() - called\n"));
+
+    EmptyClipboard();
+
+    return PDC_CLIP_SUCCESS;
+}

data/vendor/PDCurses/wingui/pdcdisp.c

@@ -0,0 +1,718 @@
+/* Public Domain Curses */
+
+#include "pdcwin.h"
+
+#include <assert.h>
+#include <stdlib.h>
+#include <string.h>
+#include <tchar.h>
+
+/* 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. */
+
+#define USE_UNICODE_ACS_CHARS 1
+
+#include "acs_defs.h"
+
+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 int PDC_blink_state;
+    extern HWND PDC_hWnd;
+    const int shift_amount = (PDC_blink_state ? 0 : 8);
+    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);
+}
+
+/* position "hardware" cursor at (y, x).  We don't have a for-real hardware */
+/* cursor in this version,  of course,  but we can fake it.  Note that much */
+/* of the logic was borrowed from the SDL version.  In particular,  the     */
+/* cursor is moved by first overwriting the "original" location.            */
+
+void PDC_gotoyx(int row, int col)
+{
+    PDC_LOG(("PDC_gotoyx() - called: row %d col %d from row %d col %d\n",
+             row, col, SP->cursrow, SP->curscol));
+
+                /* clear the old cursor,  if it's on-screen: */
+    if( SP->cursrow >= 0 && SP->curscol >= 0 &&
+         SP->cursrow < SP->lines && SP->curscol < SP->cols)
+    {
+        const int temp_visibility = SP->visibility;
+
+        SP->visibility = 0;
+        PDC_transform_line( SP->cursrow, SP->curscol, 1,
+                           curscr->_y[SP->cursrow] + SP->curscol);
+        SP->visibility = temp_visibility;
+    }
+
+               /* ...then draw the new (assuming it's actually visible).    */
+               /* This used to require some logic.  Now the redraw_cursor() */
+               /* function figures out what cursor should be drawn, if any. */
+    if( SP->visibility)
+    {
+        extern HWND PDC_hWnd;
+        HDC hdc = GetDC( PDC_hWnd) ;
+
+        SP->curscol = col;
+        SP->cursrow = row;
+        redraw_cursor( hdc);
+        ReleaseDC( PDC_hWnd, hdc) ;
+    }
+}
+
+int PDC_font_size = 12;
+TCHAR PDC_font_name[80];
+
+static LOGFONT PDC_get_logical_font( const int font_idx)
+{
+    LOGFONT lf;
+
+    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.hwndOwner = PDC_hWnd;
+    cf.lpLogFont = &lf;
+    cf.rgbColors = RGB( 0, 0, 0);
+    rval = ChooseFont( &cf);
+    if( rval)
+#ifdef PDC_WIDE
+        wcscpy( PDC_font_name, lf.lfFaceName);
+#else
+        strcpy( PDC_font_name, lf.lfFaceName);
+#endif
+    debug_printf( "rval %d; %ld\n", rval, CommDlgExtendedError( ));
+    debug_printf( "output size: %d\n", lf.lfHeight);
+    PDC_font_size = -lf.lfHeight;
+    return( rval);
+}
+
+    /* This function 'intensifies' a color by shifting it toward white. */
+    /* It used to average the input color with white.  Then it did a    */
+    /* weighted average:  2/3 of the input color,  1/3 white,   for a   */
+    /* lower "intensification" level.                                   */
+    /*    Then Mark Hessling suggested that the output level should     */
+    /* remap zero to 85 (= 255 / 3, so one-third intensity),  and input */
+    /* of 192 or greater should be remapped to 255 (full intensity).    */
+    /* Assuming we want a linear response between zero and 192,  that   */
+    /* leads to output = 85 + input * (255-85)/192.                     */
+    /*    This should lead to proper handling of bold text in legacy    */
+    /* apps,  where "bold" means "high intensity".                      */
+
+static COLORREF intensified_color( COLORREF ival)
+{
+    int rgb, i;
+    COLORREF oval = 0;
+
+    for( i = 0; i < 3; i++, ival >>= 8)
+    {
+        rgb = (int)( ival & 0xff);
+        if( rgb >= 192)
+            rgb = 255;
+        else
+            rgb = 85 + rgb * (255 - 85) / 192;
+        oval |= ((COLORREF)rgb << (i * 8));
+    }
+    return( oval);
+}
+
+   /* For use in adjusting colors for A_DIMmed characters.  Just */
+   /* knocks down the intensity of R, G, and B by 1/3.           */
+
+static COLORREF dimmed_color( COLORREF ival)
+{
+    unsigned i;
+    COLORREF oval = 0;
+
+    for( i = 0; i < 3; i++, ival >>= 8)
+    {
+        unsigned rgb = (unsigned)( ival & 0xff);
+
+        rgb -= (rgb / 3);
+        oval |= ((COLORREF)rgb << (i * 8));
+    }
+    return( oval);
+}
+
+/* see 'addch.c' for an explanation of how combining chars are handled. */
+
+#if defined( CHTYPE_LONG) && CHTYPE_LONG >= 2
+   #ifdef PDC_WIDE
+      #define USING_COMBINING_CHARACTER_SCHEME
+      int PDC_expand_combined_characters( const cchar_t c, cchar_t *added);  /* addch.c */
+   #endif
+
+   /* PDC_get_rgb_values(), extract_packed_rgb(), intensified_component(), */
+   /* intensified_color(),  and dimmed_color() each exist in x11/x11.c,    */
+   /* wingui/pdcdisp.c,  and sdl2/pdcdisp.c in forms slightly modified for */
+   /* each platform.  But they all look pretty much alike.  */
+
+            /* PDCurses stores RGBs in fifteen bits,  five bits each */
+            /* for red, green, blue.  A COLORREF uses eight bits per */
+            /* channel.  Hence the following.                        */
+static COLORREF extract_packed_rgb( const chtype color)
+{
+    const int red   = (int)( (color << 3) & 0xf8);
+    const int green = (int)( (color >> 2) & 0xf8);
+    const int blue  = (int)( (color >> 7) & 0xf8);
+
+    return( RGB( red, green, blue));
+}
+#endif
+
+
+void PDC_get_rgb_values( const chtype srcp,
+            COLORREF *foreground_rgb, COLORREF *background_rgb)
+{
+    const int color = (int)(( srcp & A_COLOR) >> PDC_COLOR_SHIFT);
+    bool reverse_colors = ((srcp & A_REVERSE) ? TRUE : FALSE);
+    bool intensify_backgnd = FALSE;
+
+#if defined( CHTYPE_LONG) && CHTYPE_LONG >= 2
+    if( srcp & A_RGB_COLOR)
+    {
+        /* Extract RGB from 30 bits of the color field */
+        *background_rgb = extract_packed_rgb( srcp >> PDC_COLOR_SHIFT);
+        *foreground_rgb = extract_packed_rgb( srcp >> (PDC_COLOR_SHIFT + 15));
+    }
+    else
+#endif
+    {
+        extern COLORREF *pdc_rgbs;
+        short foreground_index, background_index;
+
+        PDC_pair_content( (short)color, &foreground_index, &background_index);
+        *foreground_rgb = pdc_rgbs[foreground_index];
+        *background_rgb = pdc_rgbs[background_index];
+    }
+
+    if( srcp & A_BLINK)
+    {
+        extern int PDC_really_blinking;          /* see 'pdcsetsc.c' */
+        extern int PDC_blink_state;
+
+        if( !PDC_really_blinking)   /* convert 'blinking' to 'bold' */
+            intensify_backgnd = TRUE;
+        else if( PDC_blink_state)
+            reverse_colors = !reverse_colors;
+    }
+    if( reverse_colors)
+    {
+        const COLORREF temp = *foreground_rgb;
+
+        *foreground_rgb = *background_rgb;
+        *background_rgb = temp;
+    }
+
+    if( srcp & A_BOLD)
+        *foreground_rgb = intensified_color( *foreground_rgb);
+    if( intensify_backgnd)
+        *background_rgb = intensified_color( *background_rgb);
+    if( srcp & A_DIM)
+        *foreground_rgb = dimmed_color( *foreground_rgb);
+    if( srcp & A_DIM)
+        *background_rgb = dimmed_color( *background_rgb);
+}
+
+#ifdef PDC_WIDE
+const chtype MAX_UNICODE = 0x110000;
+#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( (ichar & A_ALTCHARSET) && (ichar & A_CHARTEXT) < 0x80)
+       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 > 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
+
+int PDC_find_ends_of_selected_text( const int line,
+          const RECT *rect, int *x);            /* pdcscrn.c */
+
+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;
+    int cursor_overwritten = FALSE;
+    COLORREF foreground_rgb = 0;
+    chtype prev_ch = 0;
+    extern RECT PDC_mouse_rect;              /* see 'pdcscrn.c' */
+    int selection[2];
+
+    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;
+    }
+                     /* Seems to me as if the input text to this function */
+    if( x < 0)       /* should _never_ be off-screen.  But it sometimes is. */
+    {                /* Clipping is therefore necessary. */
+        len += x;
+        srcp -= x;
+        x = 0;
+    }
+    len++;    /* draw an extra char to avoid leaving garbage on screen */
+    if( len > SP->cols - x)
+        len = SP->cols - x;
+    if( lineno >= SP->lines || len <= 0 || lineno < 0)
+        return;
+    if( x)           /* back up by one character to avoid */
+    {                /* leaving garbage on the screen */
+        x--;
+        len++;
+        srcp--;
+    }
+    if( lineno == SP->cursrow && SP->curscol >= x && SP->curscol < x + len)
+        if( PDC_current_cursor_state( ))
+            cursor_overwritten = TRUE;
+
+
+    while( len)
+    {
+        extern int PDC_really_blinking;          /* see 'pdcsetsc.c' */
+        const attr_t attrib = (attr_t)( *srcp >> PDC_REAL_ATTR_SHIFT);
+        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] >> PDC_REAL_ATTR_SHIFT); i++)
+        {
+            chtype ch = srcp[i] & A_CHARTEXT;
+
+#if( defined( PDC_WIDE) && defined( CHTYPE_LONG))
+            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;                   /* ^ upper 10 bits */
+                olen++;
+                ch = (wchar_t)( 0xdc00 | (ch & 0x3ff));  /* lower 10 bits */
+            }
+#if( CHTYPE_LONG >= 2)       /* "non-standard" 64-bit chtypes;  combining */
+            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
+#endif
+            if( (srcp[i] & A_ALTCHARSET) && ch < 0x80)
+                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;
+            }
+            assert( "We should never get here");
+#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)))
+        {
+            COLORREF background_rgb;
+
+            PDC_get_rgb_values( *srcp, &foreground_rgb, &background_rgb);
+            curr_color = color;
+            SetTextColor( hdc, foreground_rgb);
+            SetBkColor( hdc, background_rgb);
+        }
+        if( !PDC_really_blinking && (*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)
+                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;
+        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 A_OVERLINE
+        if( *srcp & (A_UNDERLINE | A_RIGHTLINE | A_LEFTLINE | A_OVERLINE | A_STRIKEOUT))
+#else
+        if( *srcp & (A_UNDERLINE | A_RIGHTLINE | A_LEFTLINE))
+#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;
+            extern COLORREF *pdc_rgbs;
+            const HPEN pen = CreatePen( PS_SOLID, 1, (SP->line_color == -1 ?
+                             foreground_rgb : pdc_rgbs[SP->line_color]));
+            const HPEN old_pen = SelectObject( hdc, pen);
+
+            if( *srcp & A_UNDERLINE)
+            {
+                MoveToEx( hdc, x1, y2, NULL);
+                LineTo(   hdc, x2, y2);
+            }
+#ifdef A_OVERLINE
+            if( *srcp & A_OVERLINE)
+            {
+                MoveToEx( hdc, x1, y1, NULL);
+                LineTo(   hdc, x2, y1);
+            }
+            if( *srcp & A_STRIKEOUT)
+            {
+                MoveToEx( hdc, x1, (y1 + y2) / 2, NULL);
+                LineTo(   hdc, x2, (y1 + y2) / 2);
+            }
+#endif
+            if( *srcp & A_RIGHTLINE)
+                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 & A_LEFTLINE)
+                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);
+        }
+        if( PDC_find_ends_of_selected_text( lineno, &PDC_mouse_rect, selection))
+            if( x <= selection[1] + 1 && x + i >= selection[0])
+            {
+                RECT rect;
+
+                rect.top = lineno * PDC_cyChar;
+                rect.bottom = rect.top + PDC_cyChar;
+                rect.right = max( x, selection[0]);
+                rect.left = min( x + i, selection[1] + 1);
+                rect.right *= PDC_cxChar;
+                rect.left *= PDC_cxChar;
+                InvertRect( hdc, &rect);
+            }
+        len -= i;
+        x += i;
+        srcp += i;
+    }
+    SelectObject( hdc, hOldFont);
+               /* ...did we step on the cursor?  If so,  redraw it: */
+    if( cursor_overwritten)
+        redraw_cursor( 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 = GetDC( PDC_hWnd) ;
+
+        PDC_transform_line_given_hdc( hdc, lineno, x, len, srcp);
+        ReleaseDC( PDC_hWnd, hdc);
+    }
+}
+