fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move gtdos.c to gt dir

Browse Source
This commit is contained in:
Leslee Griffith
1999-05-27 05:04:00 +00:00
parent 0ff0e0d5cf
commit 283f95a1b1
1 changed files with 0 additions and 291 deletions
Download Patch File Download Diff File Expand all files Collapse all files

291
harbour/source/rtl/gtdos.c
View File

@@ -1,291 +0,0 @@
/*
* GTDOS.C: Video subsystem for DOS compilers.
*
* This module is based on VIDMGR by Andrew Clarke and modified for
* the Harbour project
*/
#include <string.h>
#include <dos.h>
#include <gtapi.h>
#if defined(__POWERC) || (defined(__TURBOC__) && !defined(__BORLANDC__)) || \
(defined(__ZTC__) && !defined(__SC__))
#define FAR far
#else
#if defined(__MSDOS__) || defined(MSDOS) || defined(DOS)
#define FAR _far
#else
#define FAR
#endif
#endif
#ifndef MK_FP
#define MK_FP(seg,off) \
((void FAR *)(((unsigned long)(seg) << 16)|(unsigned)(off)))
#endif
static void gtxGetXY(char x, char y, char *attr, char *ch);
static void gtxPutch(char x, char y, char attr, char ch);
static int gtIsColor(void);
static char gtGetScreenMode(void);
static void gtSetCursorSize(char start, char end);
static void gtGetCursorSize(char *start, char *end);
void gtInit(void)
{
}
void gtDone(void)
{
}
static int gtIsColor(void)
{
return gtGetScreenMode() != 7;
}
#if defined(__WATCOMC__) && defined(__386__)
char *gtScreenPtr(char x, char y)
{
char *ptr;
if (gtIsColor())
{
ptr = (char *)(0xB800 << 4);
}
else
{
ptr = (char *)(0xB000 << 4);
}
return ptr + (y * gtGetScreenWidth() * 2) + (x * 2);
}
#else
char FAR *gtScreenPtr(char x, char y)
{
char FAR *ptr;
if (gtIsColor())
{
ptr = (char FAR *)MK_FP(0xB800, 0x0000);
}
else
{
ptr = (char FAR *)MK_FP(0xB000, 0x0000);
}
return ptr + (y * gtGetScreenWidth() * 2) + (x * 2);
}
#endif
static char gtGetScreenMode(void)
{
#if defined(__WATCOMC__) && defined(__386__)
return *((char *)0x0449);
#else
return *((char FAR *)MK_FP(0x0040, 0x0049));
#endif
}
char gtGetScreenWidth(void)
{
#if defined(__WATCOMC__) && defined(__386__)
return *((char *)0x044a);
#else
return *((char FAR *)MK_FP(0x0040, 0x004a));
#endif
}
char gtGetScreenHeight(void)
{
#if defined(__WATCOMC__) && defined(__386__)
return (char)(*((char *)0x0484) + 1);
#else
return (char)(*((char FAR *)MK_FP(0x0040, 0x0084)) + 1);
#endif
}
void gtGotoXY(char x, char y)
{
#if defined(__TURBOC__)
_AH = 0x02;
_BH = 0;
_DH = y - 1;
_DL = x - 1;
geninterrupt(0x10);
#else
union REGS regs;
regs.h.ah = 0x02;
regs.h.bh = 0;
regs.h.dh = (unsigned char)(y - 1);
regs.h.dl = (unsigned char)(x - 1);
#if defined(__WATCOMC__) && defined(__386__)
int386(0x10, &regs, &regs);
#else
int86(0x10, &regs, &regs);
#endif
#endif
}
static void gtSetCursorSize(char start, char end)
{
#if defined(__TURBOC__)
_AH = 0x01;
_CH = start;
_CL = end;
geninterrupt(0x10);
#else
union REGS regs;
regs.h.ah = 0x01;
regs.h.ch = start;
regs.h.cl = end;
#if defined(__WATCOMC__) && defined(__386__)
int386(0x10, &regs, &regs);
#else
int86(0x10, &regs, &regs);
#endif
#endif
}
static void gtGetCursorSize(char *start, char *end)
{
#if defined(__TURBOC__)
_AH = 0x03;
_BH = 0;
geninterrupt(0x10);
*start = _CH;
*end = _CL;
#else
union REGS regs;
regs.h.ah = 0x03;
regs.h.bh = 0;
#if defined(__WATCOMC__) && defined(__386__)
int386(0x10, &regs, &regs);
#else
int86(0x10, &regs, &regs);
#endif
*start = regs.h.ch;
*end = regs.h.cl;
#endif
}
int gtGetCursorStyle(void)
{
char start, end;
int rc;
gtGetCursorSize(&start, &end);
if((start == 32) && (end == 32))
{
rc=0;
}
else if((start == 7) && (end == 8))
{
rc=1;
}
else if((start == 4) && (end == 7))
{
rc=2;
}
else if((start == 0) && (end == 7))
{
rc=3;
}
else if((start == 7) && (end == 4))
{
rc=4;
}
else
{
rc=5;
}
return(rc);
}
void gtSetCursorStyle(int style)
{
switch(style)
{
case 0:
gtSetCursorSize(32, 32);
break;
case 1:
gtSetCursorSize(7, 8);
break;
case 2:
gtSetCursorSize(4, 7);
break;
case 3:
gtSetCursorSize(0, 7);
break;
case 4:
gtSetCursorSize(7, 4);
break;
default:
break;
}
}
static void gtxGetXY(char x, char y, char *attr, char *ch)
{
char FAR *p;
p = gtScreenPtr((char)(x - 1), (char)(y - 1));
*ch = *p;
*attr = *(p + 1);
}
void gtxPutch(char x, char y, char attr, char ch)
{
char FAR *p;
p = gtScreenPtr((char)(x - 1), (char)(y - 1));
*p = ch;
*(p + 1) = attr;
}
void gtPuts(char x, char y, char attr, char *str, int len)
{
char FAR *p;
int i;
p = gtScreenPtr((char)(x - 1), (char)(y - 1));
for(i=0; i<len; i++)
{
*p++ = *str++;
*p++ = attr;
}
}
void gtGetText(char x1, char y1, char x2, char y2, char *dest)
{
char x, y;
for (y = y1; y <= y2; y++)
{
for (x = x1; x <= x2; x++)
{
gtxGetXY(x, y, dest + 1, dest);
dest += 2;
}
}
}
void gtPutText(char x1, char y1, char x2, char y2, char *srce)
{
char x, y;
for (y = y1; y <= y2; y++)
{
for (x = x1; x <= x2; x++)
{
gtxPutch(x, y, *(srce + 1), *srce);
srce += 2;
}
}
}