This is ntconio.c in view mode; [Download] [Up]
/*
* Uses the Win32 console API.
*
* $Header: /home/tom/src/vile/RCS/ntconio.c,v 1.20 1997/02/08 12:42:05 tom Exp $
*
*/
#include <windows.h>
#define termdef 1 /* don't define "term" external */
#include "estruct.h"
#include "edef.h"
#define NROW 128 /* Max Screen size. */
#define NCOL 256 /* Edit if you want to. */
#define MARGIN 8 /* size of minimum margin and */
#define SCRSIZ 64 /* scroll size for extended lines */
#define NPAUSE 200 /* # times thru update to pause */
#define AttrColor(b,f) ((WORD)(((ctrans[b] & 7) << 4) | (ctrans[f] & 15)))
static int ntgetch (void);
static void ntmove (int, int);
static void nteeol (void);
static void nteeop (void);
static void ntbeep (void);
static void ntopen (void);
static void ntrev (int);
static int ntcres (char *);
static void ntclose (void);
static void ntputc (int);
static int nttypahead (void);
static void ntkopen (void);
static void ntkclose (void);
#if OPT_COLOR
static void ntfcol (int);
static void ntbcol (int);
static void ntspal (char *);
#endif
static void ntflush (void);
static void ntscroll (int, int, int);
#if OPT_ICURSOR
static void nticursor (int);
#endif
#if OPT_TITLE
static void nttitle (char *);
#endif
static HANDLE hConsoleOutput; /* handle to the console display */
static HANDLE hOldConsoleOutput; /* handle to the old console display */
static HANDLE hConsoleInput;
static CONSOLE_SCREEN_BUFFER_INFO csbi;
static WORD originalAttribute;
static int cfcolor = -1; /* current forground color */
static int cbcolor = -1; /* current background color */
static int nfcolor = -1; /* normal foreground color */
static int nbcolor = -1; /* normal background color */
static int crow = -1; /* current row */
static int ccol = -1; /* current col */
static int ctrans[NCOLORS]; /* color translation table */
static int keyboard_open = FALSE; /* keyboard is open */
/* ansi to ibm color translation table */
static char *initpalettestr = "0 4 2 14 1 5 3 7";
/* black, red, green, yellow, blue, magenta, cyan, white */
static char linebuf[NCOL];
static int bufpos = 0;
static void scflush (void);
/*
* Standard terminal interface dispatch table. None of the fields point into
* "termio" code.
*/
TERM term = {
NROW,
NROW,
NCOL,
NCOL,
MARGIN,
SCRSIZ,
NPAUSE,
ntopen,
ntclose,
ntkopen,
ntkclose,
ntgetch,
ntputc,
nttypahead,
ntflush,
ntmove,
nteeol,
nteeop,
ntbeep,
ntrev,
ntcres,
#if OPT_COLOR
ntfcol,
ntbcol,
ntspal,
#else
null_t_setfor,
null_t_setback,
null_t_setpal,
#endif
ntscroll,
null_t_pflush,
#if OPT_ICURSOR
nticursor,
#else
null_t_icursor,
#endif
#if OPT_TITLE
nttitle,
#else
null_t_title,
#endif
};
#if OPT_ICURSOR
static void
nticursor(int cmode)
{
CONSOLE_CURSOR_INFO cci;
switch (cmode) {
case -1:
cci.dwSize = 0;
cci.bVisible = FALSE;
break;
case 0:
cci.dwSize = 1;
cci.bVisible = TRUE;
break;
case 1:
cci.dwSize = 100;
cci.bVisible = TRUE;
break;
}
SetConsoleCursorInfo(hConsoleOutput, &cci);
}
#endif
#if OPT_TITLE
static void
nttitle(char *title) /* set the current window title */
{
SetConsoleTitle(title);
}
#endif
#if OPT_COLOR
static void
ntfcol(int color) /* set the current output color */
{
scflush();
nfcolor = cfcolor = color;
}
static void
ntbcol(int color) /* set the current background color */
{
scflush();
nbcolor = cbcolor = color;
}
static void
ntspal(char *thePalette) /* reset the palette registers */
{
/* this is pretty simplistic. big deal. */
sscanf(thePalette, "%i %i %i %i %i %i %i %i",
&ctrans[0], &ctrans[1], &ctrans[2], &ctrans[3],
&ctrans[4], &ctrans[5], &ctrans[6], &ctrans[7]);
}
#endif
static void
scflush(void)
{
if (bufpos) {
COORD coordCursor;
DWORD written;
coordCursor.X = ccol;
coordCursor.Y = crow;
WriteConsoleOutputCharacter(
hConsoleOutput, linebuf, bufpos, coordCursor, &written
);
FillConsoleOutputAttribute(
hConsoleOutput, AttrColor(cbcolor, cfcolor),
bufpos, coordCursor, &written
);
ccol += bufpos;
bufpos = 0;
}
}
static void
ntflush(void)
{
COORD coordCursor;
scflush();
coordCursor.X = ccol;
coordCursor.Y = crow;
SetConsoleCursorPosition(hConsoleOutput, coordCursor);
}
static void
ntmove(int row, int col)
{
scflush();
crow = row;
ccol = col;
}
/* erase to the end of the line */
static void
nteeol(void)
{
DWORD written;
COORD coordCursor;
scflush();
coordCursor.X = ccol;
coordCursor.Y = crow;
FillConsoleOutputCharacter(
hConsoleOutput, ' ', csbi.dwMaximumWindowSize.X - ccol,
coordCursor, &written
);
FillConsoleOutputAttribute(
hConsoleOutput, AttrColor(cbcolor, cfcolor),
csbi.dwMaximumWindowSize.X - ccol, coordCursor, &written
);
}
/*
* vile very rarely generates any of the ASCII printing control characters
* except for a few hand coded routines but we have to support them anyway.
*/
/* put a character at the current position in the current colors */
static void
ntputc(int ch)
{
/* This is an optimization for the most common case. */
if (ch >= ' ') {
linebuf[bufpos++] = ch;
return;
}
switch (ch) {
case '\b':
scflush();
if (ccol)
ccol--;
break;
case '\a':
ntbeep();
break;
case '\t':
scflush();
do
linebuf[bufpos++] = ' ';
while (bufpos % 8 != 0);
break;
case '\r':
scflush();
ccol = 0;
break;
case '\n':
scflush();
if (crow < csbi.dwMaximumWindowSize.Y - 1)
crow++;
else
ntscroll(1, 0, csbi.dwMaximumWindowSize.Y - 1);
break;
default:
linebuf[bufpos++] = ch;
break;
}
}
static void
nteeop(void)
{
DWORD cnt;
DWORD written;
COORD coordCursor;
scflush();
coordCursor.X = ccol;
coordCursor.Y = crow;
cnt = csbi.dwMaximumWindowSize.X - ccol
+ (csbi.dwMaximumWindowSize.Y - crow - 1)
* csbi.dwMaximumWindowSize.X;
FillConsoleOutputCharacter(
hConsoleOutput, ' ', cnt, coordCursor, &written
);
FillConsoleOutputAttribute(
hConsoleOutput, AttrColor(cbcolor, cfcolor), cnt,
coordCursor, &written
);
}
static void
ntrev(int reverse) /* change reverse video state */
{
scflush();
if (reverse) {
cbcolor = nfcolor;
cfcolor = nbcolor;
}
else {
cbcolor = nbcolor;
cfcolor = nfcolor;
}
}
static int
ntcres(char *res) /* change screen resolution */
{
scflush();
return 0;
}
static void
ntbeep(void)
{
MessageBeep(0xffffffff);
}
static BOOL WINAPI
nthandler(DWORD ctrl_type)
{
switch (ctrl_type) {
case CTRL_CLOSE_EVENT:
case CTRL_LOGOFF_EVENT:
case CTRL_SHUTDOWN_EVENT:
imdying(1);
break;
}
return TRUE;
}
static void
ntopen(void)
{
set_palette(initpalettestr);
hOldConsoleOutput = 0;
hConsoleOutput = GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(hConsoleOutput, &csbi);
if (csbi.dwMaximumWindowSize.Y !=
csbi.srWindow.Bottom - csbi.srWindow.Top + 1
|| csbi.dwMaximumWindowSize.X !=
csbi.srWindow.Right - csbi.srWindow.Left + 1) {
hOldConsoleOutput = hConsoleOutput;
hConsoleOutput = CreateConsoleScreenBuffer(GENERIC_READ|GENERIC_WRITE,
0, NULL, CONSOLE_TEXTMODE_BUFFER, NULL);
SetConsoleActiveScreenBuffer(hConsoleOutput);
GetConsoleScreenBufferInfo(hConsoleOutput, &csbi);
}
originalAttribute = csbi.wAttributes;
crow = csbi.dwCursorPosition.Y;
ccol = csbi.dwCursorPosition.X;
nfcolor = cfcolor = gfcolor;
nbcolor = cbcolor = gbcolor;
newscreensize(csbi.dwMaximumWindowSize.Y, csbi.dwMaximumWindowSize.X);
hConsoleInput = GetStdHandle(STD_INPUT_HANDLE);
SetConsoleCtrlHandler(nthandler, TRUE);
}
static int old_title_set = 0;
static char old_title[256];
static int orig_title_set = 0;
static char orig_title[256];
static void
ntclose(void)
{
scflush();
ntmove(csbi.dwMaximumWindowSize.Y - 1, 0);
nteeol();
ntflush();
SetConsoleTextAttribute(hConsoleOutput, originalAttribute);
if (hOldConsoleOutput) {
SetConsoleActiveScreenBuffer(hOldConsoleOutput);
CloseHandle(hConsoleOutput);
}
SetConsoleCtrlHandler(nthandler, FALSE);
SetConsoleMode(hConsoleInput, ENABLE_LINE_INPUT|ENABLE_ECHO_INPUT|ENABLE_PROCESSED_INPUT);
}
static void
ntkopen(void) /* open the keyboard */
{
if (keyboard_open)
return;
if (old_title_set)
SetConsoleTitle(old_title);
if (!orig_title_set) {
orig_title_set = TRUE;
GetConsoleTitle(orig_title, sizeof(orig_title));
}
if (hConsoleOutput)
SetConsoleActiveScreenBuffer(hConsoleOutput);
keyboard_open = TRUE;
SetConsoleCtrlHandler(NULL, TRUE);
SetConsoleMode(hConsoleInput, ENABLE_MOUSE_INPUT|ENABLE_WINDOW_INPUT);
}
static void
ntkclose(void) /* close the keyboard */
{
if (!keyboard_open)
return;
keyboard_open = FALSE;
old_title_set = TRUE;
GetConsoleTitle(old_title, sizeof(old_title));
if (orig_title_set)
SetConsoleTitle(orig_title);
if (hOldConsoleOutput)
SetConsoleActiveScreenBuffer(hOldConsoleOutput);
SetConsoleCtrlHandler(NULL, FALSE);
}
static struct {
int windows;
int vile;
int shift;
} keyxlate[] = {
VK_NEXT, KEY_Next, 0,
VK_PRIOR, KEY_Prior, 0,
VK_END, KEY_End, 0,
VK_HOME, KEY_Home, 0,
VK_LEFT, KEY_Left, 0,
VK_RIGHT, KEY_Right, 0,
VK_UP, KEY_Up, 0,
VK_DOWN, KEY_Down, 0,
VK_INSERT, KEY_Insert, 0,
VK_DELETE, KEY_Delete, 0,
VK_HELP, KEY_Help, 0,
VK_SELECT, KEY_Select, 0,
#if 0
/* Merely pressing the Alt key generates a VK_MENU key event. */
VK_MENU, KEY_Menu, 0,
#endif
VK_F1, KEY_F1, 0,
VK_F2, KEY_F2, 0,
VK_F3, KEY_F3, 0,
VK_F4, KEY_F4, 0,
VK_F5, KEY_F5, 0,
VK_F6, KEY_F6, 0,
VK_F7, KEY_F7, 0,
VK_F8, KEY_F8, 0,
VK_F9, KEY_F9, 0,
VK_F10, KEY_F10, 0,
VK_F11, KEY_F11, 0,
VK_F12, KEY_F12, 0,
VK_F13, KEY_F13, 0,
VK_F14, KEY_F14, 0,
VK_F15, KEY_F15, 0,
VK_F16, KEY_F16, 0,
VK_F17, KEY_F17, 0,
VK_F18, KEY_F18, 0,
VK_F19, KEY_F19, 0,
VK_F20, KEY_F20, 0,
/* Manually translate Ctrl-6 into Ctrl-^. */
'6', '^'-'@', LEFT_CTRL_PRESSED|RIGHT_CTRL_PRESSED,
0, 0,
};
static int savedChar;
static int saveCount = 0;
static int
decode_key_event(INPUT_RECORD *irp)
{
int key;
int i;
if (!irp->Event.KeyEvent.bKeyDown)
return -1;
key = (unsigned char) irp->Event.KeyEvent.uChar.AsciiChar;
if (key != 0)
return key;
for (i = 0; keyxlate[i].windows; i++) {
if (keyxlate[i].windows
== irp->Event.KeyEvent.wVirtualKeyCode) {
if (keyxlate[i].shift != 0
&& !(keyxlate[i].shift
& irp->Event.KeyEvent.dwControlKeyState))
continue;
key = keyxlate[i].vile;
break;
}
}
if (key == 0)
return -1;
return key;
}
static void
handle_mouse_event(MOUSE_EVENT_RECORD mer)
{
int buttondown = FALSE;
COORD first, current, last;
int state;
for_ever {
switch (mer.dwEventFlags) {
case 0:
state = mer.dwButtonState;
if (state == 0) {
if (!buttondown)
return;
buttondown = FALSE;
sel_yank(0);
return;
}
if (state & FROM_LEFT_1ST_BUTTON_PRESSED) {
if (buttondown) {
if (state & RIGHTMOST_BUTTON_PRESSED) {
sel_release();
(void)update(TRUE);
return;
}
break;
}
buttondown = TRUE;
first = mer.dwMousePosition;
if (!setcursor(first.Y, first.X))
return;
(void)sel_begin();
(void)update(TRUE);
break;
}
break;
case MOUSE_MOVED:
if (!buttondown)
return;
current = mer.dwMousePosition;
if (!setcursor(current.Y, current.X))
break;
last = current;
if (!sel_extend(TRUE, TRUE))
break;
(void)update(TRUE);
break;
}
for_ever {
INPUT_RECORD ir;
DWORD nr;
int key;
if (!ReadConsoleInput(hConsoleInput, &ir, 1, &nr))
imdying(0);
switch (ir.EventType) {
case KEY_EVENT:
key = decode_key_event(&ir);
if (key == ESC) {
sel_release();
(void)update(TRUE);
return;
}
continue;
case MOUSE_EVENT:
mer = ir.Event.MouseEvent;
break;
}
break;
}
}
}
static int
ntgetch(void)
{
INPUT_RECORD ir;
DWORD nr;
int key;
if (saveCount > 0) {
saveCount--;
return savedChar;
}
for_ever {
if (!ReadConsoleInput(hConsoleInput, &ir, 1, &nr))
imdying(0);
switch(ir.EventType) {
case KEY_EVENT:
key = decode_key_event(&ir);
if (key < 0)
continue;
if (ir.Event.KeyEvent.wRepeatCount > 1) {
saveCount = ir.Event.KeyEvent.wRepeatCount - 1;
savedChar = key;
}
return key;
case WINDOW_BUFFER_SIZE_EVENT:
newscreensize(
ir.Event.WindowBufferSizeEvent.dwSize.Y,
ir.Event.WindowBufferSizeEvent.dwSize.X
);
GetConsoleScreenBufferInfo(hConsoleOutput, &csbi);
continue;
case MOUSE_EVENT:
handle_mouse_event(ir.Event.MouseEvent);
continue;
}
}
}
/*
* The function `kbhit' returns true if there are *any* input records
* available. We need to define our own type ahead routine because
* otherwise events which we will discard (like pressing or releasing
* the Shift key) can block screen updates because `ntgetch' won't
* return until a ordinary key event occurs.
*/
static int
nttypahead()
{
INPUT_RECORD ir;
DWORD nr;
int key;
if (!keyboard_open)
return 0;
if (saveCount > 0)
return 1;
for (;;) {
if (!PeekConsoleInput(hConsoleInput, &ir, 1, &nr))
return 0;
if (nr == 0)
break;
switch(ir.EventType) {
case KEY_EVENT:
key = decode_key_event(&ir);
if (key < 0) {
ReadConsoleInput(hConsoleInput, &ir, 1, &nr);
continue;
}
return 1;
default:
/* Ignore type-ahead for non-keyboard events. */
return 0;
}
}
return 0;
}
/*
* Move 'n' lines starting at 'from' to 'to'
*
* OPT_PRETTIER_SCROLL is prettier but slower -- it scrolls a line at a time
* instead of all at once.
*/
/* move howmany lines starting at from to to */
static void
ntscroll(int from, int to, int n)
{
SMALL_RECT sRect;
COORD dest;
CHAR_INFO fill;
scflush();
if (to == from)
return;
#if OPT_PRETTIER_SCROLL
if (absol(from-to) > 1) {
ntscroll(from, (from<to) ? to-1:to+1, n);
if (from < to)
from = to-1;
else
from = to+1;
}
#endif
fill.Char.AsciiChar = ' ';
fill.Attributes = AttrColor(cbcolor, cfcolor);
sRect.Left = 0;
sRect.Top = from;
sRect.Right = csbi.dwMaximumWindowSize.X - 1;
sRect.Bottom = from + n - 1;
dest.X = 0;
dest.Y = to;
ScrollConsoleScreenBuffer(hConsoleOutput, &sRect, NULL, dest, &fill);
#if !OPT_PRETTIER_SCROLL
if (absol(from - to) > n) {
DWORD cnt;
DWORD written;
COORD coordCursor;
coordCursor.X = 0;
if (to > from) {
coordCursor.Y = from + n;
cnt = to - from - n;
}
else {
coordCursor.Y = to + n;
cnt = from - to - n;
}
cnt *= csbi.dwMaximumWindowSize.X;
FillConsoleOutputCharacter(
hConsoleOutput, ' ', cnt, coordCursor, &written
);
FillConsoleOutputAttribute(
hConsoleOutput, AttrColor(cbcolor, cfcolor), cnt,
coordCursor, &written
);
}
#endif
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.