Sample crossbuild makefile

[pforth] / csrc / win32_console / pf_io_win32_console.c

/* $Id$ */\r
/***************************************************************\r
** I/O subsystem for PForth for WIN32 systems.\r
**\r
** Use Windows Console so we can add the ANSI console commands needed to support HISTORY\r
**\r
** Author: Phil Burk\r
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
**\r
** The pForth software code is dedicated to the public domain,\r
** and any third party may reproduce, distribute and modify\r
** the pForth software code or any derivative works thereof\r
** without any compensation or license.  The pForth software\r
** code is provided on an "as is" basis without any warranty\r
** of any kind, including, without limitation, the implied\r
** warranties of merchantability and fitness for a particular\r
** purpose and their equivalents under the laws of any jurisdiction.\r
**\r
***************************************************************/\r
\r
#include "../pf_all.h"\r
\r
#if defined(WIN32) || defined(__NT__)\r
\r
#include <windows.h>\r
\r
#define ASCII_ESCAPE  (0x1B)\r
\r
static HANDLE sConsoleHandle = INVALID_HANDLE_VALUE;\r
static int sIsConsoleValid = FALSE;\r
\r
typedef enum ConsoleState_e\r
{\r
	SDCONSOLE_STATE_IDLE = 0,\r
	SDCONSOLE_STATE_GOT_ESCAPE,\r
	SDCONSOLE_STATE_GOT_BRACKET\r
\r
} ConsoleState;\r
\r
static int sConsoleState = SDCONSOLE_STATE_IDLE;\r
static int sParam1 = 0;\r
static CONSOLE_SCREEN_BUFFER_INFO sScreenInfo;\r
\r
/******************************************************************/\r
static void sdConsoleEmit( char c )\r
{\r
  /* Write a WCHAR in case we have compiled with Unicode support.\r
   * Otherwise we will see '?' printed.*/\r
	WCHAR  wc = (WCHAR) c;\r
	DWORD count;\r
	if( sIsConsoleValid )\r
	{\r
		WriteConsoleW(sConsoleHandle, &wc, 1, &count, NULL );\r
	}\r
	else\r
	{\r
          /* This will get called if we are redirecting to a file.*/\r
		WriteFile(sConsoleHandle, &c, 1, &count, NULL );\r
	}\r
}\r
\r
/******************************************************************/\r
static void sdClearScreen( void )\r
{\r
	if( GetConsoleScreenBufferInfo( sConsoleHandle, &sScreenInfo ) )\r
	{\r
		COORD XY;\r
		int numNeeded;\r
		DWORD count;\r
		XY.X = 0;\r
		XY.Y = sScreenInfo.srWindow.Top;\r
		numNeeded = sScreenInfo.dwSize.X * (sScreenInfo.srWindow.Bottom - sScreenInfo.srWindow.Top + 1);\r
		FillConsoleOutputCharacter(\r
			sConsoleHandle, ' ', numNeeded, XY, &count );\r
		SetConsoleCursorPosition( sConsoleHandle, XY );\r
	}\r
}\r
\r
/******************************************************************/\r
static void sdEraseEOL( void )\r
{\r
	if( GetConsoleScreenBufferInfo( sConsoleHandle, &sScreenInfo ) )\r
	{\r
		COORD savedXY;\r
		int numNeeded;\r
		DWORD count;\r
		savedXY.X = sScreenInfo.dwCursorPosition.X;\r
		savedXY.Y = sScreenInfo.dwCursorPosition.Y;\r
		numNeeded = sScreenInfo.dwSize.X - savedXY.X;\r
		FillConsoleOutputCharacter(\r
			sConsoleHandle, ' ', numNeeded, savedXY, &count );\r
	}\r
}\r
\r
/******************************************************************/\r
static void sdCursorBack( int dx )\r
{\r
	if( GetConsoleScreenBufferInfo( sConsoleHandle, &sScreenInfo ) )\r
	{\r
		COORD XY;\r
		XY.X = sScreenInfo.dwCursorPosition.X;\r
		XY.Y = sScreenInfo.dwCursorPosition.Y;\r
		XY.X -= dx;\r
		if( XY.X < 0 ) XY.X = 0;\r
		SetConsoleCursorPosition( sConsoleHandle, XY );\r
	}\r
}\r
/******************************************************************/\r
static void sdCursorForward( int dx )\r
{\r
	if( GetConsoleScreenBufferInfo( sConsoleHandle, &sScreenInfo ) )\r
	{\r
		COORD XY;\r
		int width = sScreenInfo.dwSize.X;\r
		XY.X = sScreenInfo.dwCursorPosition.X;\r
		XY.Y = sScreenInfo.dwCursorPosition.Y;\r
		XY.X += dx;\r
		if( XY.X > width ) XY.X = width;\r
		SetConsoleCursorPosition( sConsoleHandle, XY );\r
	}\r
}\r
\r
/******************************************************************/\r
/* Use console mode I/O so that KEY and ?TERMINAL will work.\r
 * Parse ANSI escape sequences and call the appropriate cursor\r
 * control functions.\r
 */\r
int  sdTerminalOut( char c )\r
{\r
	switch( sConsoleState )\r
	{\r
	case SDCONSOLE_STATE_IDLE:\r
		switch( c )\r
		{\r
		case ASCII_ESCAPE:\r
			sConsoleState = SDCONSOLE_STATE_GOT_ESCAPE;\r
			break;\r
		default:\r
			sdConsoleEmit( c );\r
		}\r
		break;\r
\r
	case SDCONSOLE_STATE_GOT_ESCAPE:\r
		switch( c )\r
		{\r
		case '[':\r
			sConsoleState = SDCONSOLE_STATE_GOT_BRACKET;\r
			sParam1 = 0;\r
			break;\r
		default:\r
			sConsoleState = SDCONSOLE_STATE_IDLE;\r
			sdConsoleEmit( c );\r
		}\r
		break;\r
\r
	case SDCONSOLE_STATE_GOT_BRACKET:\r
		if( (c >= '0') && (c <= '9') )\r
		{\r
			sParam1 = (sParam1 * 10) + (c - '0');\r
		}\r
		else\r
		{\r
			sConsoleState = SDCONSOLE_STATE_IDLE;\r
			if( c == 'K')\r
			{\r
				sdEraseEOL();\r
			}\r
			else if( c == 'D' )\r
			{\r
				sdCursorBack( sParam1 );\r
			}\r
			else if( c == 'C' )\r
			{\r
				sdCursorForward( sParam1 );\r
			}\r
			else if( (c == 'J') && (sParam1 == 2) )\r
			{\r
				sdClearScreen();\r
			}\r
		}\r
		break;\r
	}\r
	return 0;\r
}\r
\r
/* Needed cuz _getch() does not echo. */\r
int  sdTerminalEcho( char c )\r
{\r
	sdConsoleEmit((char)(c));\r
	return 0;\r
}\r
\r
int  sdTerminalIn( void )\r
{\r
	return _getch();\r
}\r
\r
int  sdQueryTerminal( void )\r
{\r
	return _kbhit();\r
}\r
\r
int  sdTerminalFlush( void )\r
{\r
#ifdef PF_NO_FILEIO\r
	return -1;\r
#else\r
	return fflush(PF_STDOUT);\r
#endif\r
}\r
\r
void sdTerminalInit( void )\r
{\r
	DWORD mode = 0;\r
	sConsoleHandle = GetStdHandle( STD_OUTPUT_HANDLE );\r
	if( GetConsoleMode( sConsoleHandle, &mode ) )\r
	{\r
          /*printf("GetConsoleMode() mode is 0x%08X\n", mode );*/\r
		sIsConsoleValid = TRUE;\r
	}\r
	else\r
	{\r
          /*printf("GetConsoleMode() failed\n", mode );*/\r
		sIsConsoleValid = FALSE;\r
	}\r
}\r
\r
void sdTerminalTerm( void )\r
{\r
}\r
#endif\r