diff options
Diffstat (limited to 'stone_soup/crawl-ref/source/libw32c.cc')
| -rw-r--r-- | stone_soup/crawl-ref/source/libw32c.cc | 838 |
1 files changed, 0 insertions, 838 deletions
diff --git a/stone_soup/crawl-ref/source/libw32c.cc b/stone_soup/crawl-ref/source/libw32c.cc deleted file mode 100644 index 975e14e641..0000000000 --- a/stone_soup/crawl-ref/source/libw32c.cc +++ /dev/null @@ -1,838 +0,0 @@ -/* - * File: libw32c.cc - * Summary: Functions for windows32 console mode support - * Written by: Gordon Lipford - * - * Change History (most recent first): - * - * <2> 8 Mar 2001 GDL Rewrite to use low level IO - * <1> 1 Mar 2000 GDL Created - * - */ - -// WINDOWS INCLUDES GO HERE -/* - * Exclude parts of WINDOWS.H that are not needed - */ -#define NOCOMM /* Comm driver APIs and definitions */ -#define NOLOGERROR /* LogError() and related definitions */ -#define NOPROFILER /* Profiler APIs */ -#define NOLFILEIO /* _l* file I/O routines */ -#define NOOPENFILE /* OpenFile and related definitions */ -#define NORESOURCE /* Resource management */ -#define NOATOM /* Atom management */ -#define NOLANGUAGE /* Character test routines */ -#define NOLSTRING /* lstr* string management routines */ -#define NODBCS /* Double-byte character set routines */ -#define NOKEYBOARDINFO /* Keyboard driver routines */ -#define NOCOLOR /* COLOR_* color values */ -#define NODRAWTEXT /* DrawText() and related definitions */ -#define NOSCALABLEFONT /* Truetype scalable font support */ -#define NOMETAFILE /* Metafile support */ -#define NOSYSTEMPARAMSINFO /* SystemParametersInfo() and SPI_* definitions */ -#define NODEFERWINDOWPOS /* DeferWindowPos and related definitions */ -#define NOKEYSTATES /* MK_* message key state flags */ -#define NOWH /* SetWindowsHook and related WH_* definitions */ -#define NOCLIPBOARD /* Clipboard APIs and definitions */ -#define NOICONS /* IDI_* icon IDs */ -#define NOMDI /* MDI support */ -#define NOCTLMGR /* Control management and controls */ -#define NOHELP /* Help support */ - -/* - * Exclude parts of WINDOWS.H that are not needed (Win32) - */ -#define WIN32_LEAN_AND_MEAN -#define NONLS /* All NLS defines and routines */ -#define NOSERVICE /* All Service Controller routines, SERVICE_ equates, etc. */ -#define NOKANJI /* Kanji support stuff. */ -#define NOMCX /* Modem Configuration Extensions */ -#ifndef _X86_ -#define _X86_ /* target architecture */ -#endif - -#include <excpt.h> -#include <stdarg.h> -#include <windef.h> -#include <winbase.h> -#include <wingdi.h> -#include <winuser.h> -#include <winnls.h> -#include <wincon.h> - -// END -- WINDOWS INCLUDES - -#include <string.h> -#ifdef __BCPLUSPLUS__ -#include <stdio.h> -#endif -#include "AppHdr.h" -#include "version.h" -#include "defines.h" -#include "view.h" -#include "libutil.h" - -char oldTitle[80]; - -static HANDLE inbuf = NULL; -static HANDLE outbuf = NULL; -static int current_color = -1; -static bool current_cursor = _NOCURSOR; -// dirty line (sx,ex,y) -static int chsx=0, chex=0, chy=-1; -// cursor position (start at 0,0 --> 1,1) -static int cx=0, cy=0; - -//static FILE *foo = NULL; //DEBUG - -// and now, for the screen buffer -static CHAR_INFO screen[80 * WIN_NUMBER_OF_LINES]; -static COORD screensize; -#define SCREENINDEX(x,y) (x)+80*(y) -static bool buffering = false; -// static const char *windowTitle = "Crawl " VERSION; -static unsigned InputCP, OutputCP; -static const unsigned PREFERRED_CODEPAGE = 437; - -// we can do straight translation of DOS color to win32 console color. -#define WIN32COLOR(col) (WORD)(col) -static void writeChar(char c); -static void bFlush(void); -static void _setcursortype_internal(int curstype); - -// [ds] Unused for portability reasons -/* -static DWORD crawlColorData[16] = -// BGR data, easier to put in registry -{ - 0x00000000, // BLACK - 0x00ff00cd, // BLUE - 0x0046b964, // GREEN - 0x00b4b400, // CYAN - 0x000085ff, // RED - 0x00ee82ee, // MAGENTA - 0x005a6fcd, // BROWN - 0x00c0c0c0, // LT GREY - 0x00808080, // DK GREY - 0x00ff8600, // LT BLUE - 0x0000ff85, // LT GREEN - 0x00ffff00, // LT CYAN - 0x000000ff, // LT RED - 0x00bf7091, // LT MAGENTA - 0x0000ffff, // YELLOW - 0x00ffffff // WHITE -}; - */ - -//#define TIMING_INFO -#ifdef TIMING_INFO - -#include <time.h> -#include "message.h" - -// TIMING info -static int ncalls[6] = { 0,0,0,0,0,0 }; -static double runavg[6] = { 0.0,0.0,0.0,0.0,0.0,0.0 }; -static int oob[6] = { 0,0,0,0,0,0 }; -static int dlen[6] = { 0,0,0,0,0,0 }; -static LARGE_INTEGER t1, t2; - -static void addcall(int i, LARGE_INTEGER &tm1, LARGE_INTEGER &tm2) -{ - double d = tm2.QuadPart - tm1.QuadPart; - - runavg[i] = (runavg[i] * ncalls[i] + d) / (ncalls[i] + 1); - ncalls[i] ++; - - // oob - if (ncalls[i] > 10) - { - if (d > 1.4*runavg[i]) - oob[i] ++; - } -} - -#define CLOCKIN {QueryPerformanceCounter(&t1);} -#define CLOCKOUT(x) {QueryPerformanceCounter(&t2); \ - addcall((x), t1, t2);} - -static char *descrip[] = { - "bflush:WriteConsoleOutput", - "_setCursorType:SetConsoleCursorInfo", - "gotoxy:SetConsoleCursorPosition", - "textcolor:SetConsoleTextAttribute", - "cprintf:WriteConsole", - "getch:ReadConsoleInput" -}; - -void print_timings(void) -{ - int i; - char s[100]; - - LARGE_INTEGER cps; - QueryPerformanceFrequency(&cps); - - sprintf(s, "Avg (#/oob), CpS = %.1lf", cps.QuadPart); - mpr(s); - for(i=0; i<3; i++) - { - int dl = 0; - if (ncalls[i] > 0) - dl = dlen[i] / ncalls[i]; - sprintf(s, "%-40s %.1f us (%d/%d), avg dlen = %d", descrip[i], - (1000000.0 * runavg[i]) / cps.QuadPart, ncalls[i], oob[i], dl); - mpr(s); - } -} - -#else - -#define CLOCKIN -#define CLOCKOUT(x) - -void print_timings() -{ ; } - -#endif // TIMING INFO - -void writeChar(char c) -{ - bool noop = true; - PCHAR_INFO pci; - - // check for CR: noop - if (c == 0x0D) - return; - - // check for newline - if (c == 0x0A) - { - // must flush current buffer - bFlush(); - - // reposition - gotoxy(1, cy+2); - - return; - } - - int tc = WIN32COLOR(current_color); - pci = &screen[SCREENINDEX(cx,cy)]; - - // is this a no-op? - if (pci->Char.AsciiChar != c) - noop = false; - else if (pci->Attributes != tc) - noop = false; - - if (!noop) - { - // write the info and update the dirty area - pci->Char.AsciiChar = c; - pci->Attributes = tc; - - if (chy < 0) - chsx = cx; - chy = cy; - chex = cx; - - // if we're not buffering, flush - if (!buffering) - bFlush(); - } - - // update x position - cx += 1; - if (cx >= 80) cx = 80; -} - -void bFlush(void) -{ - COORD source; - SMALL_RECT target; - - // see if we have a dirty area - if (chy < 0) - return; - - // set up call - source.X = chsx; - source.Y = chy; - - target.Left = chsx; - target.Top = chy; - target.Right = chex; - target.Bottom = chy; - - CLOCKIN - WriteConsoleOutput(outbuf, screen, screensize, source, &target); - CLOCKOUT(0) - - chy = -1; - - // if cursor is not NOCURSOR, update screen - if (current_cursor != _NOCURSOR) - { - COORD xy; - xy.X = cx; - xy.Y = cy; - CLOCKIN - if (SetConsoleCursorPosition(outbuf, xy) == 0) - fputs("SetConsoleCursorPosition() failed!", stderr); - CLOCKOUT(2) - } -} - - -void setStringInput(bool value) -{ - DWORD inmodes, outmodes; - if (value == TRUE) - { - inmodes = ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT | ENABLE_PROCESSED_INPUT; - outmodes = ENABLE_PROCESSED_OUTPUT; - } - else - { - inmodes = 0; - outmodes = 0; - } - - if ( SetConsoleMode( inbuf, inmodes ) == 0) { - fputs("Error initialising console input mode.", stderr); - exit(0); - } - - if ( SetConsoleMode( outbuf, outmodes ) == 0) { - fputs("Error initialising console output mode.", stderr); - exit(0); - } - - // now flush it - FlushConsoleInputBuffer( inbuf ); -} - -// this apparently only works for Win2K+ and ME+ - -static void init_colors(char *windowTitle) -{ - UNUSED( windowTitle ); - - // look up the Crawl shortcut - - // if found, modify the colortable entries in the NT_CONSOLE_PROPS - // structure. - - // if not found, quit. -} - -void init_libw32c(void) -{ - inbuf = GetStdHandle( STD_INPUT_HANDLE ); - outbuf = GetStdHandle( STD_OUTPUT_HANDLE ); - - if (inbuf == INVALID_HANDLE_VALUE || outbuf == INVALID_HANDLE_VALUE) { - fputs("Could not initialise libw32c console support.", stderr); - exit(0); - } - - GetConsoleTitle( oldTitle, 78 ); - SetConsoleTitle( "Crawl Stone Soup " VERSION ); - - init_colors(oldTitle); - - // by default, set string input to false: use char-input only - setStringInput( false ); - if (SetConsoleMode( outbuf, 0 ) == 0) { - fputs("Error initialising console output mode.", stderr); - exit(0); - } - - // set up screen size - screensize.X = 80; - screensize.Y = get_number_of_lines(); - - // initialise text color - textcolor(DARKGREY); - - // initialise cursor to NONE. - _setcursortype_internal(_NOCURSOR); - - // buffering defaults to ON -- very important! - setBuffering(true); - - //DEBUG - //foo = fopen("debug.txt", "w"); - - - // JWM, 06/12/2004: Code page setting, as XP does not use ANSI 437 by - // default. - InputCP = GetConsoleCP(); - OutputCP = GetConsoleOutputCP(); - - // DS: Don't kill Crawl if we can't set the codepage. Windows 95/98/ME don't - // have support for setting the input and output codepage. I'm also not - // convinced we need to set the input codepage at all. - if (InputCP != PREFERRED_CODEPAGE) - SetConsoleCP(PREFERRED_CODEPAGE); - - if (OutputCP != PREFERRED_CODEPAGE) - SetConsoleOutputCP(PREFERRED_CODEPAGE); -} - -void deinit_libw32c(void) -{ - // don't do anything if we were never initted - if (inbuf == NULL || outbuf == NULL) - return; - - // JWM, 06/12/2004: Code page stuff. If it was the preferred code page, it - // doesn't need restoring. Shouldn't be an error and too bad if there is. - if (InputCP && InputCP != PREFERRED_CODEPAGE) - SetConsoleCP(InputCP); - - if (OutputCP && OutputCP != PREFERRED_CODEPAGE) - SetConsoleOutputCP(OutputCP); - - // restore console attributes for normal function - setStringInput(true); - - // set cursor and normal textcolor - _setcursortype_internal(_NORMALCURSOR); - textcolor(DARKGREY); - - // finally, restore title - SetConsoleTitle( oldTitle ); -} - -// we don't take our cues from Crawl. Cursor is shown -// only on input. -void _setcursortype(int curstype) -{ - UNUSED( curstype ); - ; -} - - -void _setcursortype_internal(int curstype) -{ - CONSOLE_CURSOR_INFO cci; - - if (curstype == current_cursor) - return; - - cci.dwSize = 5; - cci.bVisible = (bool)curstype; - current_cursor = curstype; - CLOCKIN - SetConsoleCursorInfo( outbuf, &cci ); - CLOCKOUT(1) - - // now, if we just changed from NOCURSOR to CURSOR, - // actually move screen cursor - if (current_cursor != _NOCURSOR) - gotoxy(cx+1, cy+1); -} - -void clrscr(void) -{ - int x,y; - COORD source; - SMALL_RECT target; - - const int num_lines = get_number_of_lines(); - - PCHAR_INFO pci = screen; - - for(x=0; x<80; x++) - { - for(y=0; y<num_lines; y++) - { - pci->Char.AsciiChar = ' '; - pci->Attributes = 0; - pci++; - } - } - - source.X = 0; - source.Y = 0; - target.Left = 0; - target.Top = 0; - target.Right = 79; - target.Bottom = num_lines - 1; - - WriteConsoleOutput(outbuf, screen, screensize, source, &target); - - // reset cursor to 1,1 for convenience - gotoxy(1,1); -} - -void gotoxy(int x, int y) -{ - const int num_lines = get_number_of_lines(); - - // always flush on goto - bFlush(); - - // bounds check - if (x<1) - x=1; - if (x>80) - x=80; - if (y<1) - y=1; - if (y>num_lines) - y=num_lines; - - // change current cursor - cx = x-1; - cy = y-1; - - // if cursor is not NOCURSOR, update screen - if (current_cursor != _NOCURSOR) - { - COORD xy; - xy.X = cx; - xy.Y = cy; - CLOCKIN - if (SetConsoleCursorPosition(outbuf, xy) == 0) - fputs("SetConsoleCursorPosition() failed!", stderr); - CLOCKOUT(2) - } -} - -void textcolor(int c) -{ - // change current color used to stamp chars - current_color = c; -} - -static void cprintf_aux(const char *s) -{ - // early out -- not initted yet - if (outbuf == NULL) - { - printf(s); - return; - } - - // turn buffering ON (temporarily) - bool oldValue = buffering; - setBuffering(true); - - // loop through string - char *p = (char *)s; - while(*p) - { - if (p[0] == '%' && p[1] == '%') - { - p++; - continue; - } - writeChar(*p++); - } - - // reset buffering - setBuffering(oldValue); - - // flush string - bFlush(); -} - -void cprintf(const char *format, ...) -{ - va_list argp; - char buffer[4096]; // one could hope it's enough - - va_start( argp, format ); - - vsprintf(buffer, format, argp); - cprintf_aux(buffer); - - va_end(argp); -} - -void window(int x, int y, int lx, int ly) -{ - // do nothing - UNUSED( x ); - UNUSED( y ); - UNUSED( lx ); - UNUSED( ly ); -} - -int wherex(void) -{ - return cx+1; -} - -int wherey(void) -{ - return cy+1; -} - -void putch(char c) -{ - // special case: check for '0' char: map to space - if (c==0) - c = ' '; - - writeChar(c); -} - -// translate virtual keys - -#define VKEY_MAPPINGS 10 -static int vk_tr[4][VKEY_MAPPINGS] = // virtual key, unmodified, shifted, control - { - { VK_END, VK_DOWN, VK_NEXT, VK_LEFT, VK_CLEAR, VK_RIGHT, VK_HOME, VK_UP, VK_PRIOR, VK_INSERT }, - { CK_END, CK_DOWN, CK_PGDN, CK_LEFT, CK_CLEAR, CK_RIGHT, CK_HOME, CK_UP, CK_PGUP , CK_INSERT }, - { CK_SHIFT_END, CK_SHIFT_DOWN, CK_SHIFT_PGDN, CK_SHIFT_LEFT, CK_SHIFT_CLEAR, CK_SHIFT_RIGHT, CK_SHIFT_HOME, CK_SHIFT_UP, CK_SHIFT_PGUP, CK_SHIFT_INSERT }, - { CK_CTRL_END, CK_CTRL_DOWN, CK_CTRL_PGDN, CK_CTRL_LEFT, CK_CTRL_CLEAR, CK_CTRL_RIGHT, CK_CTRL_HOME, CK_CTRL_UP, CK_CTRL_PGUP, CK_CTRL_INSERT }, - }; - -static int ck_tr[] = { - 'k', 'j', 'h', 'l', '0', 'y', 'b', '.', 'u', 'n', - // 'b', 'j', 'n', 'h', '.', 'l', 'y', 'k', 'u' , - '8', '2', '4', '6', '0', '7', '1', '5', '9', '3', - // '1', '2', '3', '4', '5', '6', '7', '8', '9' , - 11, 10, 8, 12, '0', 25, 2, 0, 21, 14 - // 2, 10, 14, 8, 0, 12, 25, 11, 21 , -}; - -int key_to_command( int keyin ) { - if (keyin >= CK_UP && keyin <= CK_CTRL_PGDN) - return ck_tr[ keyin - CK_UP ]; - - if (keyin == CK_DELETE) - return '.'; - - return keyin; -} - -int vk_translate( WORD VirtCode, CHAR c, DWORD cKeys) -{ - bool shftDown = false; - bool ctrlDown = false; - bool altDown = !!(cKeys & (LEFT_ALT_PRESSED | RIGHT_ALT_PRESSED)); - - // DEBUG - //fprintf(foo, "Received code %d (%c) with modifiers: %d\n", VirtCode, c, cKeys); - - // step 1 - we don't care about shift or control - if (VirtCode == VK_SHIFT || VirtCode == VK_CONTROL || - VirtCode == VK_MENU || VirtCode == VK_CAPITAL || - VirtCode == VK_NUMLOCK) - return 0; - - // step 2 - translate the <Esc> key to 0x1b - if (VirtCode == VK_ESCAPE) - return 0x1b; // same as it ever was.. - - // step 3 - translate shifted or controlled numeric keypad keys - if (cKeys & SHIFT_PRESSED) - shftDown = true; - if (cKeys & (RIGHT_CTRL_PRESSED | LEFT_CTRL_PRESSED)) - ctrlDown = true; // control takes precedence over shift - - // hack - translate ^P and ^Q since 16 and 17 are taken by CTRL and SHIFT - if ((VirtCode == 80 || VirtCode == 81) && ctrlDown) - return VirtCode & 0x003f; // shift back down - - if (VirtCode == VK_DELETE && !ctrlDown) // assume keypad '.' - return CK_DELETE; - - // see if we're a vkey - int mkey; - for(mkey = 0; mkey<VKEY_MAPPINGS; mkey++) - if (VirtCode == vk_tr[0][mkey]) break; - - // step 4 - just return the damn key. - if (mkey == VKEY_MAPPINGS) { - if (c) - return c; - - // ds -- Icky hacks to allow keymaps with funky keys. - if (ctrlDown) - VirtCode |= 512; - if (shftDown) - VirtCode |= 1024; - if (altDown) - VirtCode |= 2048; - - // ds -- Cheat and returns 256 + VK if the char is zero. This allows us - // to use the VK for macros and is on par for evil with the rest of - // this function anyway. - return VirtCode | 256; - } - - // now translate the key. Dammit. This is !@#$(*& garbage. - - // control key? - if (ctrlDown) - return vk_tr[3][mkey]; - - // shifted? - if (shftDown) - return vk_tr[2][mkey]; - return vk_tr[1][mkey]; -} - -int getch_ck(void) -{ - INPUT_RECORD ir; - DWORD nread; - int key = 0; - static int repeat_count = 0; - static int repeat_key = 0; - - KEY_EVENT_RECORD *kr; - - // handle key repeats - if (repeat_count > 0) - { - repeat_count -= 1; - return repeat_key; - } - - bool oldValue = current_cursor; - _setcursortype_internal(_NORMALCURSOR); - - while(1) - { - CLOCKIN - if (ReadConsoleInput( inbuf, &ir, 1, &nread) == 0) - fputs("Error in ReadConsoleInput()!", stderr); - CLOCKOUT(5) - if (nread > 0) - { - // ignore if it isn't a keyboard event. - if (ir.EventType == KEY_EVENT) - { - kr = &(ir.Event.KeyEvent); - // ignore if it is a 'key up' - we only want 'key down' - if (kr->bKeyDown == true) - { - key = vk_translate( kr->wVirtualKeyCode, kr->uChar.AsciiChar, kr->dwControlKeyState ); - if (key > 0) - { - repeat_count = kr->wRepeatCount - 1; - repeat_key = key; - break; - } - } - } - } - } - // DEBUG - //fprintf(foo, "getch() returning %02x (%c)\n", key, key); - - _setcursortype_internal(oldValue); - - return key; -} - -int getch(void) -{ - int c = getch_ck(); - return key_to_command( c ); -} - -int getche(void) -{ - // turn buffering off temporarily - bool oldValue = buffering; - setBuffering(false); - - int val = getch(); - - if (val != 0) - putch(val); - - // restore buffering value - setBuffering(oldValue); - - return val; -} - -int kbhit() -{ - INPUT_RECORD ir[10]; - DWORD read_count = 0; - PeekConsoleInput(inbuf, ir, sizeof ir / sizeof(ir[0]), &read_count); - if (read_count > 0) { - for (unsigned i = 0; i < read_count; ++i) - if (ir[i].EventType == KEY_EVENT) { - KEY_EVENT_RECORD *kr; - kr = &(ir[i].Event.KeyEvent); - - if (kr->bKeyDown) - return 1; - } - } - return 0; -} - -void delay(int ms) -{ - Sleep((DWORD)ms); -} - -void textbackground(int c) -{ - // do nothing - UNUSED( c ); -} - -int getConsoleString(char *buf, int maxlen) -{ - DWORD nread; - // set console input to line mode - setStringInput( true ); - - // force cursor - bool oldValue = current_cursor; - _setcursortype_internal(_NORMALCURSOR); - - // set actual screen color to current color - SetConsoleTextAttribute( outbuf, WIN32COLOR(current_color) ); - - if (ReadConsole( inbuf, buf, (DWORD)(maxlen-1), &nread, NULL) == 0) - fputs("Error in ReadConsole()!", stderr); - - // terminate string, then strip CRLF, replace with \0 - buf[maxlen-1] = '\0'; - for (unsigned i=(nread<3 ? 0 : nread-3); i<nread; i++) - { - if (buf[i] == 0x0A || buf[i] == 0x0D) - { - buf[i] = '\0'; - break; - } - } - - // reset console mode - also flushes if player has typed in - // too long of a name so we don't get silly garbage on return. - setStringInput( false ); - - // restore old cursor - _setcursortype_internal(oldValue); - - // return # of bytes read - return (int)nread; -} - -bool setBuffering( bool value ) -{ - bool oldValue = buffering; - - if (value == false) - { - // must flush buffer - bFlush(); - } - buffering = value; - - return oldValue; -} |