void vm_gettext(char x1, char y1, char x2, char y2, char *dest)
{
if (_osmode == DOS_MODE)
{
char x, y;
for (y = y1; y <= y2; y++)
{
for (x = x1; x <= x2; x++)
{
vm_xgetchxy(x, y, dest + 1, dest);
dest += 2;
}
}
}
else
{
USHORT width;
char y;
width = (USHORT) ((x2 - x1 + 1) * 2);
for (y = y1; y <= y2; y++)
{
VioReadCellStr((PBYTE) dest, &width, (USHORT) (y - 1), (USHORT) (x1 - 1), 0);
dest += width;
}
}
}
//void Vid::screen_swap (void)
void screen_swap (void)
{
USHORT bufsize = Screen.get_vidbufsize();
static bool buf_ok = FALSE;
static bool save_screen = TRUE;
if(!buf_ok) {
screen_buf = (char*)malloc(bufsize);
buf_ok = TRUE;
}
if(save_screen) {
rc = VioReadCellStr(screen_buf, &bufsize, 0,0,0);
DBG_WIN1(dout<<"screen swap save VioReadCellStr rc = "<< rc<<endl);
rc = VioWrtCellStr(Screen.get_save_buf(), bufsize, 0,0,0);
DBG_WIN1(dout<<"screen swap save VioWrtCellStr rc = "<<rc<<endl);
// set_cursor(63, 0); /* hide cursor */
video_int (0x0200,0,0,0); //hide cursor
save_screen = FALSE;
}
else {
rc = VioWrtCellStr(screen_buf, bufsize, 0,0,0);
DBG_WIN1(dout<<"screen swap restore VioWrtCellStr rc = "<< rc<<endl);
DBG_WIN1(dout<<"screen_swap set_cursor OK "<<endl);
save_screen = TRUE;
}
}
int ConGetBox(int X, int Y, int W, int H, PCell Cell) {
int I;
int MX, MY;
int MouseHidden = 0;
USHORT WW = (USHORT)(W << 1);
unsigned char *p = (unsigned char *)Cell;
if (MouseVisible) ConQueryMousePos(&MX, &MY);
for (I = 0; I < H; I++) {
if (MouseVisible)
if (Y + I == MY)
if ((MX >= X) && (MX < X + W)) {
DrawMouse(0);
MouseHidden = 1;
}
VioReadCellStr((PCH)p, &WW, (USHORT)(Y + I), (USHORT)X, 0);
if (MouseHidden) {
DrawMouse(1);
MouseHidden = 0;
}
p += W << 1;
}
return 0;
}
char vm_getattrxy(char x, char y)
{
char cell[4];
USHORT len = 4;
VioReadCellStr(cell, &len, (USHORT) (y - 1), (USHORT) (x - 1), 0);
return *(cell + 1);
}
void UIAPI uigetcursor( ORD *row, ORD *col, CURSOR_TYPE *type, int *attr )
/************************************************************************/
{
USHORT length;
CHAR CharCellPair[2];
VIOCURSORINFO vioCursor;
/* read cursor position */
VioGetCurType(&vioCursor,0);
VioGetCurPos( &r, &c, 0 );
*row = r;
*col = c;
if( vioCursor.cEnd - vioCursor.yStart > 5 ) {
*type = C_INSERT;
} else {
*type = C_NORMAL;
}
if( !UIData->cursor_on ) {
*type = C_OFF;
}
/* read character and attribute */
length = sizeof(CharCellPair);
VioReadCellStr( &CharCellPair[0], &length, r, c, 0);
*attr = CharCellPair[1];
}
static void savecursor( void )
/****************************/
{
CHAR CharCellPair[2];
USHORT length;
VIOCURSORINFO vioCursor;
/* read cursor position */
VioGetCurType(&vioCursor,0);
VioGetCurPos(&r, &c, 0);
OldCursorRow = r;
OldCursorCol = c;
if( vioCursor.cEnd - vioCursor.yStart > 5 ) {
OldCursorType = C_INSERT;
}
else {
OldCursorType = C_NORMAL;
}
UIData->cursor_on = ( vioCursor.attr != (USHORT) -1 );
if( !UIData->cursor_on ) {
OldCursorType = C_OFF;
}
/* read character and attribute */
length = sizeof(CharCellPair);
VioReadCellStr( &CharCellPair[0], &length, r, c, 0);
OldCursorAttr = CharCellPair[1];
}
void vm_xgetchxy(char x, char y, char *attr, char *ch)
{
char cell[4];
USHORT len = 4;
VioReadCellStr(cell, &len, (USHORT) (y - 1), (USHORT) (x - 1), 0);
*ch = *cell;
*attr = *(cell + 1);
}
static VCOLOR
vio_get_default_color (void)
{
USHORT row, col;
CHAR cell[2];
USHORT len = sizeof (cell);
VioGetCurPos (&row, &col, 0);
VioReadCellStr (cell, &len, row, col, 0);
return cell[1];
}
void vm_gettext(char x1, char y1, char x2, char y2, char *dest)
{
USHORT width;
char y;
width = (USHORT) ((x2 - x1 + 1) * 2);
for (y = y1; y <= y2; y++)
{
VioReadCellStr((PBYTE) dest, &width, (USHORT) (y - 1), (USHORT) (x1 - 1), 0);
dest += width;
}
}
void FlipScreenCursor( void )
/***************************/
{
char buffer[2];
USHORT length;
length = 2;
VioReadCellStr( buffer, &length, Row+RowOffset, StartCol+ColOffset, 0 );
buffer[1] ^= 0x77;
VioWrtCellStr( buffer, length, Row+RowOffset, StartCol+ColOffset, 0 );
}
char *SaveScreen (char *buf) {
USHORT size;
if(buf)
free(buf);
size = ((vio.col + 1) * (vio.row + 1)) * 2;
buf = malloc(size);
if(buf)
VioReadCellStr(buf,&size,0,0,0);
return buf;
}
PAREA Store_area(int row, int col, int width, int height)
{
int i,s;
PAREA tmp;
tmp=(PAREA)malloc(sizeof(AREA));
tmp->row=row;
tmp->col=col;
tmp->width=width;
tmp->height=height;
s=CELL_SIZE * width; // размер строки в байтах
tmp->store=malloc(s * height);
for (i=0; i < height; i++)
VioReadCellStr(tmp->store + (i * s),&s,row+i,col,hvio);
return tmp;
}
/*--------------------------------------------------------------------------*
* get_cell_sttributes_at_cursor *
* *
*--------------------------------------------------------------------------*/
char get_cell_attributes_at_cursor()
{
int rc, row, col;
char attr[4];
int len;
len = 4;
getcursorpos(&row, &col);
if (rc = VioReadCellStr(attr, (unsigned short *) &len, row, col, (HVIO)0))
{
printf("Couldn't read attributes at cursor (%d, %d) rc %d\n",row,col,rc);
return(DEFAULTATTR);
}
else
return(attr[1]);
}
char vm_getattrxy(char x, char y)
{
if (_osmode == DOS_MODE)
{
char cell[2];
vi_init();
v_getline(cell, (int)(x - 1), (int)(y - 1), 1);
return *(cell + 1);
}
else
{
char cell[2];
USHORT len = sizeof cell;
VioReadCellStr(cell, &len, (USHORT) (y - 1), (USHORT) (x - 1), 0);
return *(cell + 1);
}
}
void UIAPI uioncursor( void )
/****************************/
{
CHAR CharCellPair[2];
VIOCURSORINFO vioCursor;
VioGetCurType( &vioCursor, 0 );
if( UIData->cursor_type == C_INSERT ) {
vioCursor.yStart = vioCursor.cEnd / 2;
} else {
vioCursor.yStart = (vioCursor.cEnd * 7) / 8;
}
vioCursor.cx = 1;
vioCursor.attr = 1;
VioSetCurType(&vioCursor, 0);
/* set cursor position */
VioSetCurPos( UIData->cursor_row, UIData->cursor_col, 0);
if( UIData->cursor_attr != -2 ) {
/* get current character and attribute */
VioGetCurPos( &r, &c, 0 );
length = sizeof(CharCellPair);
VioReadCellStr(&CharCellPair[0],
&length,
UIData->cursor_row,
UIData->cursor_col,
0);
/* write out the character and the new attribute */
CharCellPair[1] = UIData->cursor_attr;
VioWrtNCell((PBYTE)&CharCellPair[0],
24,
UIData->cursor_row,
UIData->cursor_col,
0);
}
UIData->cursor_on = true;
}
/* --------------------------------------------------------------------------
Display a menu of choices, returning the ordinal (0 based) of the selected
choice.
- Parameters -------------------------------------------------------------
INT iRow : line position (0 = top of screen, -1 = current position).
PSZ pszPrompt : prompt message.
PSZ choices : array of choice characters (max 5 characters).
PMENUFN pfunc : optional callback function used when the menu has a
'retry' item. When pfunc() returns FALSE the loop is
terminated.
PVOID pparm : optional pfunc() parameters.
- Return value -----------------------------------------------------------
ULONG : number of the selected choice.
- Note: ------------------------------------------------------------------
If pszPrompt is NULL the area where the prompt message is printed is
cleared and no other action is performed.
-------------------------------------------------------------------------- */
ULONG showMenu(PSZ pszPrompt, PSZ choices) {
CHAR achscr[1760];
CHAR achmenu[1760];
CHAR buf[4];
ULONG key;
USHORT row, col, irow, cb;
PSZ pChoice, pLine, pEnd;
buf[0] = ' ';
buf[1] = VIOB_GRAY | VIOF_DARKBLUE;
DosBeep(220, 50);
DosBeep(440, 50);
DosBeep(880, 50);
cb = sizeof(achscr);
VioReadCellStr(achscr, &cb, 7, 0, 0);
VioScrollUp(7, 0, 17, 80, 11, buf, 0);
sprintf(achmenu, pszPrompt,
choices[0], choices[1], choices[2], choices[3], choices[4]);
VioGetCurPos(&row, &col, 0);
for (pLine = pEnd = achmenu, irow = 8; pEnd; ++irow)
{
if (NULL != (pEnd = strchr(pLine, '\r')))
{
*pEnd = '\0';
if (*++pEnd == '\n') ++pEnd;
}
// skip empty lines
if (*pLine)
VioWrtCharStrAtt(pLine, strlen(pLine), irow, 0, buf + 1, 0);
pLine = pEnd;
}
VioSetCurPos(irow, 0, 0);
// VioWrtCharStrAtt(pszPrompt, strlen(pszPrompt), 8, 0, buf + 1, 0);
for (;;)
{
key = kbdKeyChar(kbdKey()) & ~0x20;
if (NULL != (pChoice = strchr(choices, (INT)key)))
break;
DosBeep(440, 100);
}
VioWrtCellStr(achscr, cb, 7, 0, 0);
VioSetCurPos(row, col, 0);
return (ULONG)(pChoice - choices);
}
void vm_xgetchxy(char x, char y, char *attr, char *ch)
{
if (_osmode == DOS_MODE)
{
char cell[2];
vi_init();
v_getline(cell, (int)(x - 1), (int)(y - 1), 1);
*ch = *cell;
*attr = *(cell + 1);
}
else
{
char cell[2];
USHORT len = sizeof cell;
VioReadCellStr(cell, &len, (USHORT) (y - 1), (USHORT) (x - 1), 0);
*ch = *cell;
*attr = *(cell + 1);
}
}
int PDC_get_attribute(void)
/***********************************************************************/
{
#ifndef EMXVIDEO
USHORT cellLen = 2;
#endif
int curRow=0, curCol=0;
char Cell[4];
#ifdef PDCDEBUG
if (trace_on) PDC_debug("PDC_get_attribute() - called\n");
#endif
PDC_get_cursor_pos(&curRow, &curCol);
#ifdef EMXVIDEO
v_getline (Cell, curCol, curRow, 1);
#else
VioReadCellStr((PCH)&Cell, (PUSHORT)&cellLen, (USHORT)curRow, (USHORT)curCol, 0);
#endif
return ((int) Cell[1]);
}
int EditAttributes (FILES *f) {
char *buf;
USHORT len = (vio.col * 7) * 2,curpos = 0;
char nattr = (1 << 4) | (7 | 8);
char sattr = 8;
int ret = 0,x,key;
BOOL okay = TRUE;
char attrs[5] = "----";
if(!f)
return -1;
buf = malloc(len);
if(!buf)
return -1;
ThreadMsg(" ");
VioReadCellStr(buf,&len,(vio.row / 2) - 1,0,0);
VioWrtCharStrAtt("ÚÄ Attributes: Ä¿",17,(vio.row / 2) - 1,
34,&nattr,0);
VioWrtCharStrAtt("³ Readonly: [ ] ³",17,vio.row / 2,
34,&nattr,0);
VioWrtCharStrAtt("³ Hidden: [ ] ³",17,(vio.row / 2) + 1,
34,&nattr,0);
VioWrtCharStrAtt("³ System: [ ] ³",17,(vio.row / 2) + 2,
34,&nattr,0);
VioWrtCharStrAtt("³ Archived: [ ] ³",17,(vio.row / 2) + 3,
34,&nattr,0);
VioWrtCharStrAtt("ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ",17,(vio.row / 2) + 4,
34,&nattr,0);
VioWrtNAttr(&sattr,1,vio.row / 2,51,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 1,51,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 2,51,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 3,51,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 4,51,0);
VioWrtNAttr(&sattr,16,(vio.row / 2) + 5,36,0);
if(f->attrFile & FILE_READONLY)
attrs[0] = 'x';
if(f->attrFile & FILE_HIDDEN)
attrs[1] = 'x';
if(f->attrFile & FILE_SYSTEM)
attrs[2] = 'x';
if(f->attrFile & FILE_ARCHIVED)
attrs[3] = 'x';
for(x = 0;x < 4;x++)
VioWrtCharStr(attrs + x,1,x + (vio.row / 2),47,0);
VioSetCurPos(curpos + (vio.row / 2),47,0);
ShowCursor(FALSE);
while(okay) {
VioWrtCharStr(attrs + curpos,1,curpos + (vio.row / 2),47,0);
VioSetCurPos(curpos + (vio.row / 2),47,0);
key = get_ch(-1);
switch(key) {
case 256:
break;
case 45 | 256:
case 61 | 256:
case '\x1b': /* abort */
okay = FALSE;
ret = -1;
break;
case '\r': /* process */
okay = FALSE;
{
FILESTATUS3 fs3;
if(!DosQueryPathInfo(f->filename,FIL_STANDARD,&fs3,sizeof(fs3))) {
fs3.attrFile &= (~FILE_DIRECTORY);
if(attrs[0] == 'x')
fs3.attrFile |= FILE_READONLY;
else
fs3.attrFile &= (~FILE_READONLY);
if(attrs[1] == 'x')
fs3.attrFile |= FILE_HIDDEN;
else
fs3.attrFile &= (~FILE_HIDDEN);
if(attrs[2] == 'x')
fs3.attrFile |= FILE_SYSTEM;
else
fs3.attrFile &= (~FILE_SYSTEM);
if(attrs[3] == 'x')
fs3.attrFile |= FILE_ARCHIVED;
else
fs3.attrFile &= (~FILE_ARCHIVED);
if(DosSetPathInfo(f->filename,FIL_STANDARD,&fs3,sizeof(fs3),
DSPI_WRTTHRU))
DosBeep(50,100);
else
ret = 1;
}
else
DosBeep(50,100);
}
break;
case 72 | 256: /* up */
curpos--;
if(curpos > 3)
curpos = 3;
break;
case 'x':
case 'X':
case '+':
attrs[curpos] = 'x';
break;
case '-':
attrs[curpos] = '-';
break;
case ' ': /* toggle */
attrs[curpos] = (attrs[curpos] == 'x') ? '-' : 'x';
VioWrtCharStr(attrs + curpos,1,curpos + (vio.row / 2),47,0);
/* intentional fallthru */
case 80 | 256: /* down */
curpos++;
if(curpos > 3)
curpos = 0;
break;
}
}
ShowCursor(TRUE);
VioWrtCellStr(buf,len,(vio.row / 2) - 1,0,0);
free(buf);
SetupConsole();
ThreadMsg(NULL);
return ret;
}
int SimpleInput (char *title,char *text,ULONG beep,ULONG dur,ULONG wait,
int *responses) {
char *buf;
int xlen,key = 0,x;
USHORT len = (vio.col * 7) * 2,start,mlen,cell;
char sattr = 8;
BOOL okay = TRUE;
if(!title)
title = "";
if(!text)
return key;
xlen = min(max(strlen(title),strlen(text)),vio.col - 6);
mlen = xlen + 6;
start = (vio.col - xlen) / 2;
buf = malloc(len);
if(buf) {
/* save screen under */
VioReadCellStr(buf,&len,(vio.row / 2) - 2,0,0);
/* draw borders */
/* first, bright white left and top */
cell = ((((7 | 8) << 4) | 7) << 8) | ' ';
VioWrtNCell((char *)&cell,mlen,(vio.row / 2) - 2,start,0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) - 1,start,0);
VioWrtNCell((char *)&cell,1,(vio.row / 2),start,0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 1,start,0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 2,start,0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 3,start,0);
/* now dark grey right and bottom */
cell = (((8 << 4) | 7) << 8) | ' ';
VioWrtNCell((char *)&cell,1,(vio.row / 2) - 1,start + (mlen - 1),0);
VioWrtNCell((char *)&cell,1,(vio.row / 2),start + (mlen - 1),0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 1,start + (mlen - 1),0);
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 2,start + (mlen - 1),0);
VioWrtNCell((char *)&cell,mlen - 1,(vio.row / 2) + 3,start + 1,0);
/* fill title area with light grey foreground, red background */
cell = (((7 << 4) | 4) << 8) | ' ';
VioWrtNCell((char *)&cell,mlen - 2,(vio.row / 2) - 1,start + 1,0);
/* fill text area with light grey foreground, black background */
cell = (((7 << 4) | 0) << 8) | ' ';
VioWrtNCell((char *)&cell,mlen - 4,(vio.row / 2) + 1,start + 2,0);
/* make interior border -- first white on light grey */
cell = (((7 << 4) | (7 | 8)) << 8) | 'Ú';
VioWrtNCell((char *)&cell,1,(vio.row / 2),start + 1,0);
cell = (((7 << 4) | (7 | 8)) << 8) | '¿';
VioWrtNCell((char *)&cell,1,(vio.row / 2),start + (mlen - 2),0);
cell = (((7 << 4) | (7 | 8)) << 8) | 'Ä';
VioWrtNCell((char *)&cell,mlen - 4,(vio.row / 2),start + 2,0);
cell = (((7 << 4) | (7 | 8)) << 8) | '³';
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 1,start + 1,0);
cell = (((7 << 4) | (7 | 8)) << 8) | 'À';
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 2,start + 1,0);
/* now dark grey on light grey */
cell = (((7 << 4) | 8) << 8) | 'Ä';
VioWrtNCell((char *)&cell,mlen - 4,(vio.row / 2) + 2,start + 2,0);
cell = (((7 << 4) | 8) << 8) | 'Ù';
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 2,start + (mlen - 2),0);
cell = (((7 << 4) | 8) << 8) | '³';
VioWrtNCell((char *)&cell,1,(vio.row / 2) + 1,start + (mlen - 2),0);
/* insert title */
VioWrtCharStr(title,
min(xlen,strlen(title)),
(vio.row / 2) - 1,
(start + (mlen / 2)) - (min(xlen,strlen(title)) / 2),
0);
/* insert text */
VioWrtCharStr(text,
min(xlen,strlen(text)),
(vio.row / 2) + 1,
(start + (mlen / 2)) - (min(xlen,strlen(text)) / 2),
0);
/* draw shadow */
VioWrtNAttr(&sattr,1,(vio.row / 2) - 1,start + mlen,0);
VioWrtNAttr(&sattr,1,(vio.row / 2),start + mlen,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 1,start + mlen,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 2,start + mlen,0);
VioWrtNAttr(&sattr,1,(vio.row / 2) + 3,start + mlen,0);
VioWrtNAttr(&sattr,mlen,(vio.row / 2) + 4,start + 1,0);
VioSetCurPos((vio.row / 2) + 1,start + (mlen - 3),0);
if(responses)
ShowCursor(FALSE);
if(beep)
DosBeep(beep,dur);
if(!responses)
DosSleep(wait);
else {
KbdFlushBuffer(0);
while(okay) {
key = get_ch(-1);
if(!*responses)
break;
for(x = 0;responses[x];x++) {
if(key == responses[x]) {
okay = FALSE;
break;
}
}
}
}
ShowCursor(TRUE);
VioWrtCellStr(buf,len,(vio.row / 2) - 2,0,0);
free(buf);
KbdFlushBuffer(0);
ThreadMsg(NULL);
}
return key;
}
int EnterLine (char *buf,ULONG len,USHORT y,char *filename,
char **choices,int numc,int start) {
ULONG pos = 0,c,nm,numchars = 0,tpos,wl;
APIRET rc;
int key,attr = ((7 << 4) << 8) | ' ',ret = 0;
BOOL okay = TRUE,insert = TRUE,lasttab = FALSE;
char *sav,*k = NULL,*p;
static char keybuf[1026];
USHORT t;
FILEFINDBUF3 fb3;
HDIR hdir = HDIR_CREATE;
wl = 0;
sav = malloc(vio.col * 2);
if(!sav) {
DosBeep(50,100);
*buf = 0;
return -1;
}
ThreadMsg(" ");
t = vio.col * 2;
VioReadCellStr(sav,&t,y,0,0);
VioWrtNCell((char *)&attr,vio.col,y,0,0);
ShowCursor(FALSE);
VioSetCurPos(y,0,0);
for(c = 0;c < len - 1;c++) { /* find end of default string */
if(!buf[c])
break;
}
pos = c;
for(;c < len - 1;c++) /* space-pad remainder of buf */
buf[c] = ' ';
while(okay) {
/* assure buffer is null terminated (cluck, cluck) */
buf[len - 1] = 0;
/* assure pos hasn't gone past our limit */
if(pos > len - 1)
pos = len - 1;
/* set left side of entry field */
if(pos < wl)
wl = pos;
if(pos >= wl + vio.col)
wl = (pos - vio.col) + 1;
/* set cursor position */
VioSetCurPos(y,pos - wl,0);
/* display buf */
tpos = min(vio.col,len - wl); /* max length of displayable text */
VioWrtCharStr(buf + wl,tpos,y,0,0); /* show text */
if(tpos < vio.col) /* space-pad? */
VioWrtNChar(" ",vio.col - tpos,y,tpos,0);
if(k && *k) /* "macros" waiting to be entered? */
key = *k++; /* yep, skip keyboard input */
else { /* nope, go to the keyboard */
k = NULL; /* clear macro pointer */
key = get_ch(-1);
}
switch(key) {
case 256: /* shiftstate changed -- ignore */
break;
case '\r': /* accept input */
okay = FALSE;
break;
case 45 | 256:
case 61 | 256:
case '\x1b': /* Escape -- exit editor */
memset(buf,' ',len - 1);
buf[len - 1] = 0;
okay = FALSE;
ret = -1;
break;
case '\b':
if(pos) {
pos--;
memmove(buf + pos,buf + (pos + 1),len - (pos + 1));
buf[len - 2] = ' ';
}
lasttab = FALSE;
break;
case 25: /* ctrl+y -- clear input */
VioWrtNCell((char *)&attr,vio.col,y,0,0);
memset(buf,' ',len - 1);
buf[len - 1] = 0;
wl = pos = 0;
lasttab = FALSE;
break;
case 59 | 256: /* F1 -- insert directory */
k = directory;
lasttab = FALSE;
break;
case 60 | 256: /* F2 -- insert filename */
if(filename)
k = filename;
lasttab = FALSE;
break;
case 62 | 256: /* F4 -- insert target */
k = target;
lasttab = FALSE;
break;
case 15: /* shift+tab */
if(hdir != (HDIR)HDIR_CREATE) {
DosFindClose(hdir);
hdir = HDIR_CREATE;
lasttab = FALSE;
}
/* intentional fallthru */
case 9: /* tab -- auto-complete */
if(!pos || pos >= len - 1)
break;
if(lasttab && numchars) {
lasttab = FALSE;
for(tpos = 0;tpos < numchars;tpos++)
keybuf[tpos] = '\b';
keybuf[tpos++] = '\01';
keybuf[tpos] = 0;
numchars = 0;
k = keybuf;
break;
}
else {
if(hdir != (HDIR)HDIR_CREATE)
DosFindClose(hdir);
hdir = HDIR_CREATE;
}
/* intentional fallthru */
case 1: /* cheat! */
k = NULL;
if(!pos || pos >= len - 1)
break;
tpos = pos - 1;
while(tpos && buf[tpos] != ' ')
tpos--;
if(buf[tpos] == ' ')
tpos++;
strcpy(keybuf,buf + tpos);
tpos = 0;
while(keybuf[tpos] && keybuf[tpos] != ' ')
tpos++;
keybuf[tpos] = 0;
lstrip(rstrip(keybuf));
if(*keybuf) {
strcat(keybuf,"*");
nm = 1;
if(hdir == (HDIR)HDIR_CREATE)
rc = DosFindFirst(keybuf,
&hdir,
FILE_NORMAL | FILE_HIDDEN | FILE_SYSTEM |
FILE_DIRECTORY | FILE_ARCHIVED | FILE_READONLY,
&fb3,
sizeof(fb3),
&nm,
FIL_STANDARD);
else
rc = DosFindNext(hdir,&fb3,sizeof(fb3),&nm);
if(!rc) {
while((fb3.attrFile & FILE_DIRECTORY) &&
(*fb3.achName == '.' && (!fb3.achName[1] ||
(fb3.achName[1] == '.' &&
!fb3.achName[2])))) {
nm = 1;
if(DosFindNext(hdir,&fb3,sizeof(fb3),&nm)) {
DosFindClose(hdir);
hdir = HDIR_CREATE;
*fb3.achName = 0;
break;
}
}
if(*fb3.achName) {
keybuf[strlen(keybuf) - 1] = 0;
p = strchr(keybuf,'\\');
if(p)
p++;
else
p = keybuf;
tpos = 0;
while(*p && fb3.achName[tpos] &&
toupper(*p) == toupper(fb3.achName[tpos])) {
p++;
tpos++;
}
if(fb3.achName[tpos]) {
strcpy(keybuf,fb3.achName + tpos);
numchars = strlen(keybuf);
lasttab = TRUE;
k = keybuf;
}
else if(hdir != (HDIR)HDIR_CREATE) {
DosFindClose(hdir);
hdir = HDIR_CREATE;
}
}
}
else if(hdir != (HDIR)HDIR_CREATE) {
DosBeep(50,50);
DosFindClose(hdir);
hdir = HDIR_CREATE;
}
}
break;
case 83 | 256: /* delete */
memmove(buf + pos,buf + (pos + 1),len - (pos + 1));
buf[len - 2] = ' ';
lasttab = FALSE;
break;
case 82 | 256: /* insert */
insert = (insert) ? FALSE : TRUE;
break;
case 71 | 256: /* home */
wl = pos = 0;
lasttab = FALSE;
break;
case 79 | 256: /* end */
pos = len - 2;
while(pos && buf[pos] == ' ')
pos--;
if(pos && buf[pos] != ' ')
pos++;
lasttab = FALSE;
break;
case 75 | 256: /* left */
if(pos)
pos--;
lasttab = FALSE;
break;
case 77 | 256: /* right */
if(pos < len - 1)
pos++;
lasttab = FALSE;
break;
case 72 | 256: /* up */
lasttab = FALSE;
if(choices) {
if(choices[start]) {
VioWrtNCell((char *)&attr,vio.col,y,0,0);
memset(buf,' ',len - 1);
buf[len - 1] = 0;
wl = pos = 0;
k = choices[start];
start++;
while(start < numc && !choices[start])
start++;
if(start > (numc - 1))
start = 0;
if(!choices[start]) {
while(start < numc && !choices[start])
start++;
}
if(start > (numc - 1))
start = 0;
}
}
break;
case 80 | 256: /* down */
lasttab = FALSE;
if(choices) {
if(choices[start]) {
VioWrtNCell((char *)&attr,vio.col,y,0,0);
memset(buf,' ',len - 1);
buf[len - 1] = 0;
wl = pos = 0;
k = choices[start];
start--;
while(start >= 0 && !choices[start])
start--;
if(start < 0)
start = numc - 1;
if(!choices[start]) {
while(start >= 0 && !choices[start])
start--;
}
if(start < 0)
start = numc - 1;
}
}
break;
case 115 | 256: /* ctrl+left */
while(pos && buf[pos] == ' ')
pos--;
while(pos && buf[pos] != ' ')
pos--;
lasttab = FALSE;
break;
case 116 | 256: /* ctrl + right */
while(pos < len - 1 && buf[pos] == ' ')
pos++;
while(pos < len - 1 && buf[pos] != ' ')
pos++;
lasttab = FALSE;
break;
default:
if(pos < len - 1 && !(key & 256) && !iscntrl(key)) {
if(insert) {
if(pos < len - 2) {
memmove(buf + (pos + 1),buf + pos,len - (pos + 2));
buf[len - 2] = ' ';
}
buf[pos] = (char)key;
}
else
buf[pos] = (char)key;
pos++;
}
else if(pos >= len - 1)
DosBeep(250,25);
break;
}
}
if(hdir != (HDIR)HDIR_CREATE)
DosFindClose(hdir);
ShowCursor(TRUE);
VioWrtCellStr(sav,vio.col * 2,y,0,0);
free(sav);
SetupConsole();
ThreadMsg(NULL);
buf[len - 1] = 0;
lstrip(rstrip(buf));
return (ret) ? ret : strlen(buf);
}
USHORT __pascal VIOREADCELLSTR(CHAR * CellStr, USHORT * Count, const USHORT Row, const USHORT Column, const HVIO Handle)
{
return VioReadCellStr(CellStr, Count, Row, Column, Handle);
}