/*------------------------------------------------------------*/
/* filename -       tmouse.cpp                                */
/*                                                            */
/* function(s)                                                */
/*                  TMouse and THWMouse member functions      */
/*------------------------------------------------------------*/

/*------------------------------------------------------------*/
/*                                                            */
/*    Turbo Vision -  Version 1.0                             */
/*                                                            */
/*                                                            */
/*    Copyright (c) 1991 by Borland International             */
/*    All Rights Reserved.                                    */
/*                                                            */
/*------------------------------------------------------------*/

#define Uses_TEvent
#define Uses_TScreen
#define Uses_TThreaded
#define Uses_TEventQueue
#include <tv.h>

#include <assert.h>
#include <stdio.h>
#include <dos.h>

uchar near THWMouse::buttonCount = 0;
Boolean near THWMouse::handlerInstalled = False;
Boolean near THWMouse::noMouse = False;

void ShowTextCursor(short x,short y);
void HideTextCursor();
unsigned char OldAttr= 0x00;
short OldMouseX, OldMouseY;
Boolean VisiblCur=True;
Boolean NextCur=False;

#ifdef __DOS16__

THWMouse::THWMouse()
{
    resume();
}

void THWMouse::resume()
{
    if ( noMouse ) return;
    if ( getvect( 0x33 ) == 0 ) return;

    _AX = 0;
    geninterrupt( 0x33 );

    if( _AX == 0 )
        return;
    buttonCount = _BL;

    _AX = 4;
    _CX = 0;
    _DX = 0;
    geninterrupt( 0x33 );
}

THWMouse::~THWMouse()
{
    suspend();
}

void THWMouse::suspend()
{
    if( present() == False )
        return;
    hide();
    if( handlerInstalled == True )
        {
        registerHandler( 0, 0 );
        handlerInstalled = False;
        }
    buttonCount = 0;
}

void TV_CDECL THWMouse::show()
{
    asm push ax;
    asm push es;

    if( present() )
        {
        _AX = 1;
        geninterrupt( 0x33 );
        }

    asm pop es;
    asm pop ax;
}

void TV_CDECL THWMouse::hide()
{
    asm push ax;
    asm push es;

    if( buttonCount != 0 )
        {
        _AX = 2;
        geninterrupt( 0x33 );
        }

    asm pop es;
    asm pop ax;
}

void THWMouse::setRange( ushort rx, ushort ry )
{
    if( buttonCount != 0 )
        {
        _DX = rx;
        _DX <<= 3;
        _CX = 0;
        _AX = 7;
        geninterrupt( 0x33 );

        _DX = ry;
        _DX <<= 3;
        _CX = 0;
        _AX = 8;
        geninterrupt( 0x33 );
        }
}

void THWMouse::getEvent( MouseEventType& me )
{
    _AX = 3;
    geninterrupt( 0x33 );
    _AL = _BL;
    me.buttons = _AL;
    me.where.x = _CX >> 3;
    me.where.y = _DX >> 3;
    me.doubleClick = False;
}

void THWMouse::registerHandler( unsigned mask, void (far *func)() )
{
    if( !present() )
        return;

#if defined( ProtectVersion )
    _AX = 20;
#else
    _AX = 12;
#endif
    _CX = mask;
    _DX = FP_OFF( func );
    _ES = FP_SEG( func );
    geninterrupt( 0x33 );
    handlerInstalled = True;
}

TMouse::TMouse()
{
    show();
}

TMouse::~TMouse()
{
    hide();
}

#endif  // __DOS16__
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
#ifdef __DOS32__

THWMouse::THWMouse()
{
    resume();
}

void THWMouse::resume()
{
    if ( noMouse ) return;

    union REGS r;

    r.w.ax = 0;
    int386(0x33,&r,&r);
    if( r.w.ax == 0 ) return;

    buttonCount = r.h.dl;

    r.w.ax = 4;
    r.w.cx = 0;
    r.w.dx = 0;
    int386(0x33,&r,&r);         // move pointer to (0,0)
}

THWMouse::~THWMouse()
{
    suspend();
}

void THWMouse::suspend()
{
    if( present() == False )
        return;
    hide();
    if( handlerInstalled == True )
        {
        registerHandler( 0 , 0 );
        handlerInstalled = False;
        }
    buttonCount = 0;
}

void TV_CDECL THWMouse::show()
{
 union REGS r;
 if ( present() )
 {
  if(VisiblCur) return;
  VisiblCur=True;
  r.w.ax = 3; int386(0x33,&r,&r);
  ShowTextCursor(r.w.cx>>3,r.w.dx>>3);
//  r.w.ax = 1;
//  int386(0x33,&r,&r);
 }
}

void TV_CDECL THWMouse::hide()
{
 VisiblCur=False;

 if( buttonCount != 0 )
 {
  VisiblCur=False;
  HideTextCursor();
//  union REGS r;
//  r.w.ax = 2;
//  int386(0x33,&r,&r);
 }
}

void THWMouse::setRange( ushort rx, ushort ry ) {
  if( buttonCount != 0 ) {
    union REGS r;
    r.w.dx = (rx << 3);
    r.w.cx = 0;
    r.w.ax = 7;
    int386(0x33,&r,&r);

    r.w.dx = (ry << 3);
    r.w.cx = 0;
    r.w.ax = 8;
    int386(0x33,&r,&r);
  }
}

void THWMouse::getEvent( MouseEventType& me ) {
  union REGS r;
  r.w.ax = 3;
  int386(0x33,&r,&r);
  me.buttons = r.h.bl;
  me.where.x = r.w.cx >> 3;
  me.where.y = r.w.dx >> 3;
  me.doubleClick = False;
}

void THWMouse::registerHandler( unsigned mask, void (far *func)() )
{
  if( !present() ) return;
  union REGS r;
  struct SREGS sregs;
  r.w.ax = 0xC;
  r.w.cx = mask;
  r.x.edx  = FP_OFF(func);
  sregs.es = FP_SEG(func);
  sregs.fs = sregs.gs = sregs.ds = sregs.es;
  int386x(0x33,&r,&r,&sregs);
  handlerInstalled = True;
}

TMouse::TMouse()  {  show();  }

TMouse::~TMouse() {  hide();  }

void ShowTextCursor(short x,short y)
{
 if(!VisiblCur) return;
 if(NextCur) *(unsigned char *)(0xB8000+OldMouseX*2+OldMouseY*TScreen::screenWidth*2+1)=OldAttr;
 OldAttr = *(unsigned char *)(0xB8000+x*2+y*TScreen::screenWidth*2+1);
 *(unsigned char *)(0xB8000+x*2+y*TScreen::screenWidth*2+1) = OldAttr^0x7F;
 OldMouseX = x; OldMouseY = y; NextCur=True;
}

void HideTextCursor()
{
 if(NextCur)
 {
  *(unsigned char *)(0xB8000+OldMouseX*2+OldMouseY*TScreen::screenWidth*2+1)=OldAttr;
  NextCur=False;
 }
}

#endif
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------

#if defined(__NT__) || defined(__OS2__)

THWMouse::THWMouse()
{
}

THWMouse::~THWMouse()
{
}

void THWMouse::suspend()
{
    if( present() == False ) return;
    hide();
    buttonCount = 0;
}

void THWMouse::setRange( ushort /* rx */, ushort /* ry */)
{
//  rx = rx;
//  ry = ry;
}

void THWMouse::getEvent( MouseEventType& me )
{
      me.buttons = 0;
      me.where.x = 0;
      me.where.y = 0;
      me.doubleClick = False;
}

void THWMouse::registerHandler( unsigned /* mask */, void (far * /*func*/)() )
{
   handlerInstalled = True;
//   mask = mask;
//   func = func;
}

TMouse::TMouse()
{
//    show();
}

TMouse::~TMouse()
{
//    hide();
}

#endif  // __NT__ || __OS2__

//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------

#ifdef __OS2__

void THWMouse::resume()
{
    if ( noMouse ) return;

    buttonCount = 2;
    USHORT bc;
    if ( TThreads::tiled->mouseHandle != 0xFFFF ) {
      assert( !MouGetNumButtons ((PUSHORT) &bc, TThreads::tiled->mouseHandle) );
      buttonCount = bc;
    } else
      buttonCount = 0;
}

void TV_CDECL THWMouse::show()
{
  if ( TThreads::tiled->mouseHandle != 0xFFFF )
    assert(! MouDrawPtr (TThreads::tiled->mouseHandle)  );
}

void TV_CDECL THWMouse::hide()
{
  if ( TThreads::tiled->mouseHandle != 0xFFFF ) {
    NOPTRRECT *ptrArea = &TThreads::tiled->ptrArea;
    ptrArea->row = ptrArea->col = 0;
    ptrArea->cRow = TScreen::screenHeight-1;
    ptrArea->cCol = TScreen::screenWidth-1;
    assert ( !MouRemovePtr (ptrArea, TThreads::tiled->mouseHandle) );
  }
}

void THWMouse::hide( const TRect& rect ) {
  if ( TThreads::tiled->mouseHandle != 0xFFFF ) {
    NOPTRRECT *ptrArea = &TThreads::tiled->ptrArea;
    ptrArea->row = rect.a.y;
    ptrArea->col = rect.a.x;
    ptrArea->cRow = rect.b.y-1;
    ptrArea->cCol = rect.b.x-1;
    assert ( !MouRemovePtr(ptrArea, TThreads::tiled->mouseHandle) );
  }
}

#endif  // __OS2__

//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------

#ifdef __NT__

void THWMouse::resume()
{
  if ( noMouse ) return;
  DWORD num;
  GetNumberOfConsoleMouseButtons(&num);
  buttonCount = num;
}

void TV_CDECL THWMouse::show()
{
  TThreads::consoleMode |= ENABLE_MOUSE_INPUT;
  SetConsoleMode(TThreads::chandle[cnInput],TThreads::consoleMode);
}

void TV_CDECL THWMouse::hide()
{
  TThreads::consoleMode &= ~ENABLE_MOUSE_INPUT;
  SetConsoleMode(TThreads::chandle[cnInput],TThreads::consoleMode);
}

#endif  // __NT__