From 1097ef44f5581c834e3ff8afe7e9f8bb15735275 Mon Sep 17 00:00:00 2001
From: Leslee Griffith <les.griffith@vantagesystems.ca>
Date: Thu, 27 May 1999 05:17:18 +0000
Subject: [PATCH] add gtdos.c to gt

---
 harbour/source/rtl/gt/gtdos.c | 291 ++++++++++++++++++++++++++++++++++
 1 file changed, 291 insertions(+)
 create mode 100644 harbour/source/rtl/gt/gtdos.c

diff --git a/harbour/source/rtl/gt/gtdos.c b/harbour/source/rtl/gt/gtdos.c
new file mode 100644
index 0000000000..cf2c88081c
--- /dev/null
+++ b/harbour/source/rtl/gt/gtdos.c
@@ -0,0 +1,291 @@
+/*
+ *  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;
+        }
+    }
+}