harbour-core/harbour/source/rtl/gt/gtos2.c

/*
 * $Id$
 */

/*
 *  GTOS2.C: Video subsystem for OS/2 compilers.
 *
 *  This module is based on VIDMGR by Andrew Clarke and modified for
 *  the Harbour project
 *
 *  User programs should never call this layer directly!
 */

#define INCL_KBD
#define INCL_VIO
#define INCL_DOSPROCESS

#include <string.h>
#include <os2.h>
#include "gtapi.h"

#ifndef KBDTRF_FINAL_CHAR_IN
#define KBDTRF_FINAL_CHAR_IN  FINAL_CHAR_IN
#endif

static void hb_gt_SetCursorSize(char start, char end);
static void hb_gt_GetCursorSize(char *start, char *end);

void hb_gt_Init(void)
{
}

void hb_gt_Done(void)
{
}

int hb_gt_IsColor(void)
{
    return TRUE;
}

char hb_gt_GetScreenWidth(void)
{
    VIOMODEINFO vi;
    vi.cb = sizeof(VIOMODEINFO);
    VioGetMode(&vi, 0);
    return vi.col;
}

char hb_gt_GetScreenHeight(void)
{
    VIOMODEINFO vi;
    vi.cb = sizeof(VIOMODEINFO);
    VioGetMode(&vi, 0);
    return vi.row;
}

void hb_gt_SetPos(char cRow, char cCol)
{
    VioSetCurPos((USHORT) cRow, (USHORT) cCol, 0);
}

char hb_gt_Row(void)
{
    USHORT x, y;
    VioGetCurPos(&y, &x, 0);
    return x;
}

char hb_gt_Col(void)
{
    USHORT x, y;
    VioGetCurPos(&y, &x, 0);
    return y;
}

static void hb_gt_GetCursorSize(char *start, char *end)
{
    VIOCURSORINFO vi;
    VioGetCurType(&vi, 0);
    *start = vi.yStart;
    *end = vi.cEnd;
}

static void hb_gt_SetCursorSize(char start, char end)
{
    VIOCURSORINFO vi;
    vi.yStart = start;
    vi.cEnd = end;
    vi.cx = 0;
    vi.attr = 0;
    VioSetCurType(&vi, 0);
}

int hb_gt_GetCursorStyle(void)
{
    char start, end;
    int rc;

    hb_gt_GetCursorSize(&start, &end);

    if((start == 32) && (end == 32))
    {
        rc=SC_NONE;
    }
    else if((start == 6) && (end == 7))
    {
        rc=SC_NORMAL;
    }
    else if((start == 4) && (end == 7))
    {
        rc=SC_INSERT;
    }
    else if((start == 0) && (end == 7))
    {
        rc=SC_SPECIAL1;
    }
    else if((start == 0) && (end == 3))
    {
        rc=SC_SPECIAL2;
    }
    else
    {
        rc=SC_NONE;
    }

    return(rc);
}

void hb_gt_SetCursorStyle(int style)
{
    switch(style)
    {
    case SC_NONE:
        hb_gt_SetCursorSize(32, 32);
        break;

    case SC_NORMAL:
        hb_gt_SetCursorSize(6, 7);
        break;

    case SC_INSERT:
        hb_gt_SetCursorSize(4, 7);
        break;

    case SC_SPECIAL1:
        hb_gt_SetCursorSize(0, 7);
        break;

    case SC_SPECIAL2:
        hb_gt_SetCursorSize(0, 3);
        break;

    default:
        break;
    }
}

void hb_gt_Puts(char cRow, char cCol, char attr, char *str, int len)
{
    VioWrtCharStrAtt(str, (USHORT) len, (USHORT) cRow, (USHORT) cCol, (BYTE *) &attr, 0);
}

void hb_gt_GetText(char cTop, char cLeft, char cBottom, char cRight, char *dest)
{
    USHORT width;
    char y;
    width = (USHORT) ((cRight - cLeft + 1) * 2);
    for (y = cTop; y <= cBottom; y++)
    {
        VioReadCellStr((BYTE *) dest, &width, (USHORT) cLeft, (USHORT) y, 0);
        dest += width;
    }
}

void hb_gt_PutText(char cTop, char cLeft, char cBottom, char cRight, char *srce)
{
    USHORT width;
    char y;
    width = (USHORT) ((cRight - cLeft + 1) * 2);
    for (y = cTop; y <= cBottom; y++)
    {
        VioWrtCellStr((BYTE *) srce, width, (USHORT) cLeft, (USHORT) y, 0);
        srce += width;
    }
}

void hb_gt_SetAttribute( char cTop, char cLeft, char cBottom, char cRight, char attribute )
{
}

void hb_gt_DrawShadow( char cTop, char cLeft, char cBottom, char cRight, char attribute )
{
}

void hb_gt_SetMode( USHORT uiRows, USHORT uiCols )
{
   uiRows=uiCols=0;
}

void hb_gt_DispBegin(void)
{
}

void hb_gt_DispEnd(void)
{
}

void hb_gt_Replicate(char c, DWORD nLength)
{
   c= ' ';
   nLength = 0;

}
BOOL hb_gt_GetBlink()
{
   return FALSE;
}

void hb_gt_SetBlink( BOOL bBlink )
{
}