Category : Recently Uploaded Files
Archive   : MSQ320.ZIP
Filename : OS2SCR.C

/* os2scr.c
**
** released into the PUBLIC DOMAIN 10 jul 1994 by John Dennis
**
** Screen definitions & routines for the IBM PC under OS/2 only.
** There are three threads of execution in this module; the mouse,
** keyboard and the main thread.
**
** The mouse thread polls the OS/2 mouse subsystem - I know it *should*
** be blocked, but unfortunately a thread that is blocked cannot be
** killed and we have to explicitly release the mouse control for
** the current screen group (when we exit), if another aplication wants
** to be able to use the mouse.
**
** The keyboard thread is blocked and only sends events when a key is
** pressed.
*/

#include "WinSys.h"
#include "unused.h"

#define DEBUG 0
#define TERMDEF 1

#ifdef OS_2 /* was OS2SYS */
#undef MSDOS

#define NCOL 80
#define NROW 25

#include
#include
#include
#include

#define EBUFSZ 25
#define INCL_VIO
#define INCL_AVIO
#define INCL_KBD
#define INCL_MOU
#define INCL_DOSPROCESS
#define INCL_DOSINFOSEG
#include

#ifndef min
# define min(a,b) (((a) < (b)) ? (a) : (b))
#endif

TERM term =
{
NCOL-1,
NROW-1,
0
};

int vcol, vrow; /* cursor position */
int color; /* current color on screen */
int cur_start = 0;
int cur_end = 0;

static unsigned char scroll_fill[2];
static VIOMODEINFO fossil_data;

static MOUEVENTINFO MouEvent; /* Mouse Event storage */
static USHORT MouHandle; /* handle for the mouse */
static USHORT MouAvail = 0; /* mouse services available ? */
static MOU mstatus = {0, 39, 12, 0, 0, 1, 1, 0};
static EVT EVent[EBUFSZ]; /* event circular queue */
static int ebufin = 0; /* event in */
static int ebufout = 0; /* event out */

static int mykbhit(void);
static int FullBuffer(void);
static unsigned long hsec_time(void);

/* ====[ functions ]==== */

int TTScolor(unsigned int Attr)
{
color = Attr;
return 1;
}

int TTBeep(void)
{
return 1;
}


int TTCurSet(int st)
{
static USHORT oldstart=0, oldstop=0;
VIOCURSORINFO cur;

if (oldstart==0) {
VioGetCurType ((PVIOCURSORINFO)&cur, 0);
oldstart=cur.yStart;
oldstop=cur.cEnd;
}

if (st) {
cur.yStart = oldstart;
cur.cEnd = oldstop;
cur.attr = 0;
cur.cx = 0;
VioSetCurType ((PVIOCURSORINFO)&cur, 0);
}
else {
cur.yStart = oldstart;
cur.cEnd = oldstop;
cur.attr = 0xFFFF;
cur.cx = 0;
VioSetCurType ((PVIOCURSORINFO)&cur, 0);
}
return (0);
}


int TTgotoxy(int row, int col)
{
vrow = row; vcol = col;
VioSetCurPos((short)row, (short)col, 0);
return 1;
}

int TTgetxy(int *row, int *col)
{
*row = vrow;
*col = vcol;
return 1;
}

int TTPutChr(unsigned int Ch)
{
unsigned int d = 0;

d = ((unsigned) Ch & 0xff) | (color << 8);
VioWrtCellStr((PCH) &d, 2, (short)vrow, (short)vcol, 0);
return 1;
}

int TTWriteStr(unsigned short *b, int len, int row, int col)
{
VioWrtCellStr((PCH) b, (short)(len*2), (short)row, (short)col, 0);
return 1;
}

int TTStrWr(unsigned char *s, int row, int col)
{
int l = strlen((char *)s);

VioWrtCharStrAtt((char *) s, (short)l, (short)row, (short)col,
(PBYTE) &color, 0);
return 1;
}

int TTReadStr(unsigned short *b, int len, int row, int col)
{
unsigned short l = (short)(len * 2);

VioReadCellStr((PCH) b, &l, (short)row, (short)col, 0);
return 1;
}

int TTScroll(int x1, int y1, int x2, int y2, int lines, int Dir)
{
if (Dir) {
y2 = min(y2,term.NRow);
y1 = min(y1,term.NRow);
x1 = min(x1,term.NCol);
x2 = min(x2,term.NCol);
scroll_fill [0] = ' ';
scroll_fill [1] = (unsigned char)color;
if (lines == 0)
lines = -1;
VioScrollUp((short)y1, (short)x1, (short)y2, (short)x2,
(short)lines, (char *) scroll_fill, 0);
}
else {
y2 = min(y2,term.NRow);
y1 = min(y1,term.NRow);
x1 = min(x1,term.NCol);
x2 = min(x2,term.NCol);
scroll_fill [0] = ' ';
scroll_fill [1] = (unsigned char)color;
if (lines == 0)
lines = -1;
VioScrollDn((short)y1, (short)x1, (short)y2, (short)x2,
(short)lines, (char *) scroll_fill, 0);
}
return 1;
}

int TTClear(int x1, int y1, int x2, int y2)
{
TTScroll(x1, y1, x2, y2, 0, 1);
return 1;
}

int TTEeol(void)
{
TTScroll(vcol, vrow, term.NCol-1, vrow, 0, 1);
return 1;
}

int TTChngRez(int a)
{
unused(a);
return 1;
}

int TTdelay(int mil)
{
DosSleep((long) mil);
return (0);
}

unsigned int TTGetKey(void)
{
KBDKEYINFO ki;

ki.chChar = ki.chScan = 0;
KbdCharIn (&ki, IO_WAIT, 0);

if (ki.chChar == 0xe0)
{
if (ki.chScan)
{
ki.chChar = 0; /* Force Scan return */
}
else
{ /* Get next block */
ki.chChar = 0;
KbdCharIn (&ki, IO_WAIT, 0);
if (!ki.chScan)
{ /* Still no scan? */
ki.chScan = ki.chChar; /* Move new char over*/
ki.chChar = 0; /* Force its return */
}
else
{
ki.chChar = 0; /* Force new scan */
}
}
}
if (ki.chScan == 0xe0)
{
if (!ki.chChar)
{
ki.chScan = 0;
KbdCharIn (&ki, IO_WAIT, 0);
if (!ki.chScan)
{ /* Still no scan? */
ki.chScan = ki.chChar; /* Move new char over*/
ki.chChar = 0; /* Force its return */
}
else
{
ki.chChar = 0; /* Force new scan */
}
}
else
{
ki.chScan = 0; /* Handle 0xe00d case*/
}
}

if (ki.chChar)
ki.chScan = 0;

return (unsigned int) ((ki.chScan << 8) + (ki.chChar));
}


void TTSendMsg(unsigned int msg, int x, int y, unsigned int msgtype)
{
if (((ebufin + 1) % EBUFSZ) != ebufout)
{
EVent[ebufin].msg = msg;
EVent[ebufin].x = x;
EVent[ebufin].y = y;
EVent[ebufin].msgtype = msgtype;
ebufin = (ebufin + 1) % EBUFSZ;
}
}

#define CLICKMAX 50 /* second max */
#define PULSE_PAUSE 2
#define REPEAT_PAUSE 800

static unsigned long rtimer = 0;
static unsigned long ltimer = 0;
static unsigned long lpulse = 0;
static unsigned long rpulse = 0;

int collect_events(int delay)
{
USHORT wait = MOU_NOWAIT;
static int oy = 0, ox = 0;
int moved = 0;
int evt = 0;
int temp1, temp2;

if (MouAvail)
{
MouReadEventQue(&MouEvent, &wait, MouHandle);

if (MouEvent.time == 0)
{
if (mstatus.lbutton || mstatus.rbutton)
{
if (mstatus.lbutton && hsec_time() > ltimer && hsec_time() > lpulse)
{
lpulse = hsec_time() + PULSE_PAUSE;
TTSendMsg(LMOU_RPT, ox, oy, WM_MOUSE);
}
else
if (delay)
DosSleep(1L);

if (mstatus.rbutton && hsec_time() > rtimer && hsec_time() > rpulse)
{
rpulse = hsec_time() + PULSE_PAUSE;
TTSendMsg(RMOU_RPT, ox, oy, WM_MOUSE);
}
else
if (delay)
DosSleep(1L);
}
else
if (delay)
DosSleep(1L);
}
else
{
temp1 = ((MouEvent.fs & MOUSE_BN1_DOWN) || (MouEvent.fs & MOUSE_MOTION_WITH_BN1_DOWN));
temp2 = ((MouEvent.fs & MOUSE_BN2_DOWN) || (MouEvent.fs & MOUSE_MOTION_WITH_BN2_DOWN));
evt = 0;

if (MouEvent.col != ox || MouEvent.row != oy)
{
ox = mstatus.x = MouEvent.col;
oy = mstatus.y = MouEvent.row;
}
moved = 1;

if (mstatus.lrelease && temp1)
{
evt = 1;
mstatus.lbutton = 1;
mstatus.lrelease = 0;
lpulse = hsec_time() + PULSE_PAUSE;
ltimer = hsec_time() + CLICKMAX;
TTSendMsg(MOU_LBTDN, ox, oy, WM_MOUSE);
}

if (mstatus.lbutton && !temp1)
{
evt = 1;
mstatus.lbutton = 0;
mstatus.lrelease = 1;
TTSendMsg(MOU_LBTUP, ox, oy, WM_MOUSE);

if (hsec_time() < ltimer)
TTSendMsg(LMOU_CLCK, ox, oy, WM_MOUSE);

ltimer = 0;
}

if (mstatus.rrelease && temp2)
{
evt = 1;
mstatus.rbutton = 1;
mstatus.rrelease = 0;
rpulse = hsec_time() + PULSE_PAUSE;
rtimer = hsec_time() + CLICKMAX;
TTSendMsg(MOU_RBTDN, ox, oy, WM_MOUSE);
}

if (mstatus.rbutton && !temp2)
{
evt = 1;
mstatus.rbutton = 0;
mstatus.rrelease = 1;
TTSendMsg(MOU_RBTUP, ox, oy, WM_MOUSE);

if (hsec_time() < rtimer)
TTSendMsg(RMOU_CLCK, ox, oy, WM_MOUSE);

rtimer = 0;
}
if ((moved && evt) || ((mstatus.rbutton || mstatus.lbutton) && moved))
TTSendMsg(MOUSE_EVT, ox, oy, WM_MOUSE);
}
if (mykbhit())
TTSendMsg(TTGetKey(), 0, 0, WM_CHAR);
else
if (delay)
{
if (MouAvail)
{
DosSleep(1L);
}
else
{
DosSleep(50L);
}
}
}
else
{
if (mykbhit())
TTSendMsg(TTGetKey(), 0, 0, WM_CHAR);
else
if (delay)
{
if (MouAvail)
{
DosSleep(1L);
}
else
{
DosSleep(50L);
}
}
}
return 0;
}


int TTkopen(void)
{
return (0);
}

int TTkclose(void)
{
return (0);
}

void MouseOFF(void)
{
NOPTRRECT mouRect;

if (!MouAvail)
return;

mouRect.row = 0;
mouRect.col = 0;
mouRect.cRow = (short)(term.NRow - 1);
mouRect.cCol = (short)(term.NCol - 1);
MouRemovePtr(&mouRect, MouHandle);
}

void MouseON(void)
{
if (!MouAvail)
return;

MouDrawPtr(MouHandle);
}

void MouseInit(void)
{
USHORT MouMask = MOUSE_MOTION | MOUSE_MOTION_WITH_BN1_DOWN | MOUSE_BN1_DOWN | MOUSE_MOTION_WITH_BN2_DOWN | MOUSE_BN2_DOWN | MOUSE_MOTION_WITH_BN3_DOWN | MOUSE_BN3_DOWN;

if (term.Abil & NOMOUSE) /* we don't mouse support */
return;

if (MouOpen(0L, &MouHandle))
{
MouAvail = 0;
return;
}

MouAvail = 1;
MouSetEventMask(&MouMask, MouHandle);
}

void MouseClose(void)
{
}

int GetMouInfo(int *x, int *y)
{
if (!MouAvail)
return 0;

collect_events(0);
*x = mstatus.x;
*y = mstatus.y;
return 0;
}

int TTGetMsg(EVT *e)
{
while (ebufin == ebufout)
collect_events(1);

e->msg = EVent[ebufout].msg;
e->x = EVent[ebufout].x;
e->y = EVent[ebufout].y;
e->msgtype = EVent[ebufout].msgtype;
e->id = 0;

ebufout = (ebufout + 1) % EBUFSZ;

return e->msg;
}

int TTPeekQue(void)
{
collect_events(0);
return (ebufin != ebufout);
}

void TTClearQue(void)
{
ebufin = ebufout;
}

int TTGetChr(void)
{
EVT e;

TTGetMsg(&e);
/* while (e.msgtype != WM_CHAR)
// {
// TTGetMsg(&e);
// }
*/
return e.msg;
}

int TTopen(void)
{
KBDINFO ki;

fossil_data.cb = 2 * sizeof (fossil_data);
VioGetMode(&fossil_data,0); /* Get mode info */
term.NCol = fossil_data.col; /* Maximum 'X' value */
term.NRow = fossil_data.row; /* Maximum 'Y' value */

ki.cb = sizeof(KBDINFO); /* Set binary keyboard mode */
ki.fsMask = KEYBOARD_BINARY_MODE;
KbdSetStatus (&ki, 0);

vcol = vrow = 0;
color = 0x07;

TTkopen();
MouseInit();
return 1;
}

int TTclose(void)
{
unsigned int ret;

MouseClose();
TTkclose();
if (MouAvail && (ret = MouClose(MouHandle)) != 0)
printf("\nMouClose() returned %u", ret);
return 1;
}

static int mykbhit(void)
{
KBDKEYINFO ki;

if (FullBuffer())
{
return (0);
}

ki.fbStatus = 0;
KbdPeek(&ki, 0);

if (ki.fbStatus & KBDTRF_FINAL_CHAR_IN) return (1);
else return (0);
}

static int FullBuffer(void)
{
if (((ebufin + 1) % EBUFSZ) != ebufout)
{
return (0);
}
else
{
return (1);
}
}

static unsigned long hsec_time(void)
{
DATETIME pdt;
unsigned long i;

DosGetDateTime(&pdt);
i = (pdt.hundredths ) +
(pdt.seconds * 100L) +
(pdt.minutes * 6000L) +
(pdt.hours * 360000L) +
(pdt.day * 8640000L) +
(pdt.month * 267840000L) +
(pdt.year * 3214080000UL);

return (i);
}

#if DEBUG

int main(void)
{
char line[255];
MOU test;
unsigned int ret;
char text[40];
int done = 0, x, y;
long event = 0, rclick = 0, lclick = 0, repeat = 0;

TTopen();
MouseON();
while (!done)
{
ret = TTGetMsg(&x);
sprintf(line, "Event: %ld", event++);
TTStrWr(line, 3, 0);
switch (ret)
{
case RMOU_CLCK:
case LMOU_CLCK:
case RMOU_RPT:
case LMOU_RPT:
case MOUSE_EVT:
case MOU_LBTUP:
case MOU_LBTDN:
case MOU_RBTUP:
case MOU_RBTDN:
sprintf(text, "Mouse pos x : %02d y : %02d", test.x, test.y);
TTStrWr(text, 0, 0);
switch (ret)
{
case RMOU_CLCK:
sprintf(text, "Right Button clicked %ld", rclick++);
TTStrWr(text, 2, 40);
done = 1;
break;
case LMOU_CLCK:
sprintf(text, "Left Button clicked %ld", lclick++);
TTStrWr(text, 1, 40);
break;
case LMOU_RPT:
case RMOU_RPT:
sprintf(text, "Repeating %ld" , repeat++);
TTStrWr(text, 4, 0);
break;
case MOU_LBTDN:
TTStrWr("Left Button Pressed ", 1, 0);
break;
case MOU_LBTUP:
TTStrWr("Left Button Released", 1, 0);
break;
case MOU_RBTDN:
TTStrWr("Right Button Pressed ", 2, 0);
break;
case MOU_RBTUP:
TTStrWr("Right Button Released", 2, 0);
break;
}
break;

default :
sprintf(text, "Key Pressed : %0.04d", ret);
TTStrWr(text, 5, 0);
if (ret == 27)
done = 1;
break;
}
}
MouseOFF();
TTclose();
return (0);
}

#endif
#endif /* #if MSDOS */