fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
07960b8b7d80396b71b269bdf76b040fe906fcfb
harbour-core/src/rtl/inkeyapi.c
Przemysław Czerpak 48137e6a61 2013-07-04 18:09 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) 
* src/debug/dbgtwin.prg
  * src/debug/debugger.prg
    ! use explicitly INKEY mask in INKEY() calls to avoid interactions
      with user code

  * src/debug/debugger.prg
  * src/debug/tbrwtext.prg
    % removed code used for internal breakpoints handling - it was
      redundant and all necessary information can be easy and fast
      accessed directly from dbgentry.c. Current code is smaller,
      faster and we do not have to worry about keeping break point
      information synchronized between C level debugger internals,
      HBDebugger object and HBBrwText object.
    ! changed source code window navigation key to work like in
      Clipper debugger
    ! changed source lines displaying to work like in Clipper debugger -
      with HOME/END scrolling code horizontally it's not such important
      to always see line numbers
    ! redirect few missing K_CTRL_* keys to active window it fixes key
      navigation in some of them
    ! redirect K_ENTER to command window if command is not empty just
      like in Clipper debugger

  * src/rtl/inkeyapi.c
    ! do not convert ASCII 127 to character in hb_inkeyKeyString()
      and HB_KEYCHAR()
2013-07-04 18:09:47 +02:00

500 lines
18 KiB
C
Raw Blame History

/*
* Harbour Project source code:
* Inkey GT API
*
* Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://harbour-project.org
*
* Copyright 2002 Walter Negro <anegro@overnet.com.ar>
* hb_inkeySetLast()
*
* See COPYING.txt for licensing terms.
*
*/
#include "hbgtcore.h"
/* xHarbour compatible definitions */
#if !defined( K_SH_LEFT )
#define K_SH_LEFT K_LEFT /* Shift-Left == Left */
#define K_SH_UP K_UP /* Shift-Up == Up */
#define K_SH_RIGHT K_RIGHT /* Shift-Right == Right */
#define K_SH_DOWN K_DOWN /* Shift-Down == Down */
#define K_SH_INS K_INS /* Shift-Ins == Ins */
#define K_SH_DEL K_DEL /* Shift-Del == Del */
#define K_SH_HOME K_HOME /* Shift-Home == Home */
#define K_SH_END K_END /* Shift-End == End */
#define K_SH_PGUP K_PGUP /* Shift-PgUp == PgUp */
#define K_SH_PGDN K_PGDN /* Shift-PgDn == PgDn */
#define K_SH_RETURN K_RETURN /* Shift-Enter == Enter */
#define K_SH_ENTER K_ENTER /* Shift-Enter == Enter */
#endif
typedef struct
{
short key;
short alt_key;
short ctrl_key;
short shift_key;
} HB_KEY_VALUE;
static const int s_keyPadCtrl[] = {
K_CTRL_INS, K_CTRL_END, K_CTRL_DOWN, K_CTRL_PGDN, K_CTRL_LEFT,
KP_CTRL_5, K_CTRL_RIGHT, K_CTRL_HOME, K_CTRL_UP, K_CTRL_PGUP
};
static const HB_KEY_VALUE s_transKeyFun[] = {
{ K_F1, K_ALT_F1, K_CTRL_F1, K_SH_F1 }, /* 01 */
{ K_F2, K_ALT_F2, K_CTRL_F2, K_SH_F2 }, /* 02 */
{ K_F3, K_ALT_F3, K_CTRL_F3, K_SH_F3 }, /* 03 */
{ K_F4, K_ALT_F4, K_CTRL_F4, K_SH_F4 }, /* 04 */
{ K_F5, K_ALT_F5, K_CTRL_F5, K_SH_F5 }, /* 05 */
{ K_F6, K_ALT_F6, K_CTRL_F6, K_SH_F6 }, /* 06 */
{ K_F7, K_ALT_F7, K_CTRL_F7, K_SH_F7 }, /* 07 */
{ K_F8, K_ALT_F8, K_CTRL_F8, K_SH_F8 }, /* 08 */
{ K_F9, K_ALT_F9, K_CTRL_F9, K_SH_F9 }, /* 09 */
{ K_F10, K_ALT_F10, K_CTRL_F10, K_SH_F10 }, /* 10 */
{ K_F11, K_ALT_F11, K_CTRL_F11, K_SH_F11 }, /* 11 */
{ K_F12, K_ALT_F12, K_CTRL_F12, K_SH_F12 }, /* 12 */
{ K_UP, K_ALT_UP, K_CTRL_UP, K_SH_UP }, /* 13 */
{ K_DOWN, K_ALT_DOWN, K_CTRL_DOWN, K_SH_DOWN }, /* 14 */
{ K_LEFT, K_ALT_LEFT, K_CTRL_LEFT, K_SH_LEFT }, /* 15 */
{ K_RIGHT, K_ALT_RIGHT, K_CTRL_RIGHT, K_SH_RIGHT }, /* 16 */
{ K_HOME, K_ALT_HOME, K_CTRL_HOME, K_SH_HOME }, /* 17 */
{ K_END, K_ALT_END, K_CTRL_END, K_SH_END }, /* 18 */
{ K_PGUP, K_ALT_PGUP, K_CTRL_PGUP, K_SH_PGUP }, /* 19 */
{ K_PGDN, K_ALT_PGDN, K_CTRL_PGDN, K_SH_PGDN }, /* 20 */
{ K_INS, K_ALT_INS, K_CTRL_INS, K_SH_INS }, /* 21 */
{ K_DEL, K_ALT_DEL, K_CTRL_DEL, K_SH_DEL }, /* 22 */
{ K_BS, K_ALT_BS, K_CTRL_BS, K_SH_BS }, /* 23 */
{ K_TAB, K_ALT_TAB, K_CTRL_TAB, K_SH_TAB }, /* 24 */
{ K_ESC, K_ALT_ESC, K_ESC, 0 }, /* 25 */
{ K_ENTER, K_ALT_ENTER, K_CTRL_ENTER, K_SH_ENTER }, /* 26 */
{ KP_CENTER, 0, KP_CTRL_5, '5' }, /* 27 */
{ 0, 0, K_CTRL_PRTSCR, 0 }, /* 28 */
{ 0, 0, HB_BREAK_FLAG, 0 } /* 29 */
};
static const HB_KEY_VALUE s_transKeyStd[] = {
{ K_SPACE, 0, 0, 0 }, /* 32 */
{ '!', 0, 0, 0 }, /* 33 */
{ '"', 0, 0, 0 }, /* 34 */
{ '#', 0, 0, 0 }, /* 35 */
{ '$', 0, 0, 0 }, /* 36 */
{ '%', 0, 0, 0 }, /* 37 */
{ '&', 0, 0, 0 }, /* 38 */
{ '\'', K_ALT_QUOTE, 7, 0 }, /* 39 */
{ '(', 0, 0, 0 }, /* 40 */
{ ')', 0, 0, 0 }, /* 41 */
{ '*', 0, 0, 0 }, /* 42 */
{ '+', 0, 0, 0 }, /* 43 */
{ ',', K_ALT_COMMA, 0, 0 }, /* 44 */
{ '-', K_ALT_MINUS, 31, 0 }, /* 45 */
{ '.', K_ALT_PERIOD, 0, 0 }, /* 46 */
{ '/', K_CTRL_QUESTION, K_CTRL_BS, 0 }, /* 47 */
{ '0', K_ALT_0, 0, 0 }, /* 48 */
{ '1', K_ALT_1, 0, 0 }, /* 49 */
{ '2', K_ALT_2, 259, 0 }, /* 50 */
{ '3', K_ALT_3, 27, 0 }, /* 51 */
{ '4', K_ALT_4, 28, 0 }, /* 52 */
{ '5', K_ALT_5, 29, 0 }, /* 53 */
{ '6', K_ALT_6, 30, 0 }, /* 54 */
{ '7', K_ALT_7, 31, 0 }, /* 55 */
{ '8', K_ALT_8, 127, 0 }, /* 56 */
{ '9', K_ALT_9, 0, 0 }, /* 57 */
{ ':', 0, 0, 0 }, /* 58 */
{ ';', K_ALT_SC, 0, 0 }, /* 59 */
{ '<', 0, 0, 0 }, /* 60 */
{ '=', K_ALT_EQUALS, 0, 0 }, /* 61 */
{ '>', 0, 0, 0 }, /* 62 */
{ '?', 0, K_CTRL_QUESTION, 0 }, /* 63 */
{ '@', 0, 0, 0 }, /* 64 */
{ 'A', K_ALT_A, K_CTRL_A, 0 }, /* 65 */
{ 'B', K_ALT_B, K_CTRL_B, 0 }, /* 66 */
{ 'C', K_ALT_C, K_CTRL_C, 0 }, /* 67 */
{ 'D', K_ALT_D, K_CTRL_D, 0 }, /* 68 */
{ 'E', K_ALT_E, K_CTRL_E, 0 }, /* 69 */
{ 'F', K_ALT_F, K_CTRL_F, 0 }, /* 70 */
{ 'G', K_ALT_G, K_CTRL_G, 0 }, /* 71 */
{ 'H', K_ALT_H, K_CTRL_H, 0 }, /* 72 */
{ 'I', K_ALT_I, K_CTRL_I, 0 }, /* 73 */
{ 'J', K_ALT_J, K_CTRL_J, 0 }, /* 74 */
{ 'K', K_ALT_K, K_CTRL_K, 0 }, /* 75 */
{ 'L', K_ALT_L, K_CTRL_L, 0 }, /* 76 */
{ 'M', K_ALT_M, K_CTRL_M, 0 }, /* 77 */
{ 'N', K_ALT_N, K_CTRL_N, 0 }, /* 78 */
{ 'O', K_ALT_O, K_CTRL_O, 0 }, /* 79 */
{ 'P', K_ALT_P, K_CTRL_P, 0 }, /* 80 */
{ 'Q', K_ALT_Q, K_CTRL_Q, 0 }, /* 81 */
{ 'R', K_ALT_R, K_CTRL_R, 0 }, /* 82 */
{ 'S', K_ALT_S, K_CTRL_S, 0 }, /* 83 */
{ 'T', K_ALT_T, K_CTRL_T, 0 }, /* 84 */
{ 'U', K_ALT_U, K_CTRL_U, 0 }, /* 85 */
{ 'V', K_ALT_V, K_CTRL_V, 0 }, /* 86 */
{ 'W', K_ALT_W, K_CTRL_W, 0 }, /* 87 */
{ 'X', K_ALT_X, K_CTRL_X, 0 }, /* 88 */
{ 'Y', K_ALT_Y, K_CTRL_Y, 0 }, /* 89 */
{ 'Z', K_ALT_Z, K_CTRL_Z, 0 }, /* 90 */
{ '[', K_ALT_OSB, 27, 0 }, /* 91 */
{ '\\', K_ALT_BACKSLASH, 28, 0 }, /* 92 */
{ ']', K_ALT_CSB, 29, 0 }, /* 93 */
{ '^', K_ALT_6, 30, 0 }, /* 94 */
{ '_', K_ALT_MINUS, 31, 0 }, /* 95 */
{ '`', K_ALT_BACKQUOTE, K_ALT_BACKQUOTE, 0 }, /* 96 */
{ 'a', K_ALT_A, K_CTRL_A, 0 }, /* 97 */
{ 'b', K_ALT_B, K_CTRL_B, 0 }, /* 98 */
{ 'c', K_ALT_C, K_CTRL_C, 0 }, /* 99 */
{ 'd', K_ALT_D, K_CTRL_D, 0 }, /* 100 */
{ 'e', K_ALT_E, K_CTRL_E, 0 }, /* 101 */
{ 'f', K_ALT_F, K_CTRL_F, 0 }, /* 102 */
{ 'g', K_ALT_G, K_CTRL_G, 0 }, /* 103 */
{ 'h', K_ALT_H, K_CTRL_H, 0 }, /* 104 */
{ 'i', K_ALT_I, K_CTRL_I, 0 }, /* 105 */
{ 'j', K_ALT_J, K_CTRL_J, 0 }, /* 106 */
{ 'k', K_ALT_K, K_CTRL_K, 0 }, /* 107 */
{ 'l', K_ALT_L, K_CTRL_L, 0 }, /* 108 */
{ 'm', K_ALT_M, K_CTRL_M, 0 }, /* 109 */
{ 'n', K_ALT_N, K_CTRL_N, 0 }, /* 110 */
{ 'o', K_ALT_O, K_CTRL_O, 0 }, /* 111 */
{ 'p', K_ALT_P, K_CTRL_P, 0 }, /* 112 */
{ 'q', K_ALT_Q, K_CTRL_Q, 0 }, /* 113 */
{ 'r', K_ALT_R, K_CTRL_R, 0 }, /* 114 */
{ 's', K_ALT_S, K_CTRL_S, 0 }, /* 115 */
{ 't', K_ALT_T, K_CTRL_T, 0 }, /* 116 */
{ 'u', K_ALT_U, K_CTRL_U, 0 }, /* 117 */
{ 'v', K_ALT_V, K_CTRL_V, 0 }, /* 118 */
{ 'w', K_ALT_W, K_CTRL_W, 0 }, /* 119 */
{ 'x', K_ALT_X, K_CTRL_X, 0 }, /* 120 */
{ 'y', K_ALT_Y, K_CTRL_Y, 0 }, /* 121 */
{ 'z', K_ALT_Z, K_CTRL_Z, 0 }, /* 122 */
{ '{', K_ALT_OSB, 27, 0 }, /* 123 */
{ '|', K_ALT_BACKSLASH, 28, 0 }, /* 124 */
{ '}', K_ALT_CSB, 29, 0 }, /* 125 */
{ '~', K_ALT_BACKQUOTE, K_ALT_BACKQUOTE, 0 }, /* 126 */
{ K_CTRL_BS, K_ALT_BS, K_CTRL_BS, 0 }, /* 127 */
};
int hb_inkey( HB_BOOL fWait, double dSeconds, int iEventMask )
{
int iKey = 0;
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkey(%d, %f, %d)", ( int ) fWait, dSeconds, iEventMask ) );
pGT = hb_gt_Base();
if( pGT )
{
iKey = HB_GTSELF_INKEYGET( pGT, fWait, dSeconds, iEventMask );
hb_gt_BaseFree( pGT );
}
return iKey;
}
void hb_inkeyPut( int iKey )
{
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyPut(%d)", iKey ) );
pGT = hb_gt_Base();
if( pGT )
{
HB_GTSELF_INKEYPUT( pGT, iKey );
hb_gt_BaseFree( pGT );
}
}
void hb_inkeyIns( int iKey )
{
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyIns(%d)", iKey ) );
pGT = hb_gt_Base();
if( pGT )
{
HB_GTSELF_INKEYINS( pGT, iKey );
hb_gt_BaseFree( pGT );
}
}
int hb_inkeyLast( int iEventMask )
{
int iKey = 0;
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyLast(%d)", iEventMask ) );
pGT = hb_gt_Base();
if( pGT )
{
iKey = HB_GTSELF_INKEYLAST( pGT, iEventMask );
hb_gt_BaseFree( pGT );
}
return iKey;
}
int hb_inkeyNext( int iEventMask )
{
int iKey = 0;
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyNext(%d)", iEventMask ) );
pGT = hb_gt_Base();
if( pGT )
{
iKey = HB_GTSELF_INKEYNEXT( pGT, iEventMask );
hb_gt_BaseFree( pGT );
}
return iKey;
}
void hb_inkeyPoll( void )
{
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyPoll()" ) );
pGT = hb_gt_Base();
if( pGT )
{
HB_GTSELF_INKEYPOLL( pGT );
hb_gt_BaseFree( pGT );
}
}
int hb_inkeySetLast( int iKey )
{
int iLast = 0;
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeySetLast(%d)", iKey ) );
pGT = hb_gt_Base();
if( pGT )
{
iLast = HB_GTSELF_INKEYSETLAST( pGT, iKey );
hb_gt_BaseFree( pGT );
}
return iLast;
}
void hb_inkeySetText( const char * szText, HB_SIZE nLen )
{
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeySetText(%s,%" HB_PFS "u)", szText, nLen ) );
pGT = hb_gt_Base();
if( pGT )
{
HB_GTSELF_INKEYSETTEXT( pGT, szText, nLen );
hb_gt_BaseFree( pGT );
}
}
void hb_inkeyReset( void )
{
PHB_GT pGT;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyReset()" ) );
pGT = hb_gt_Base();
if( pGT )
{
HB_GTSELF_INKEYRESET( pGT );
hb_gt_BaseFree( pGT );
}
}
HB_SIZE hb_inkeyKeyString( int iKey, char * buffer, HB_SIZE nSize )
{
HB_SIZE nLen = 0;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyKeyString(%d,%p, %" HB_PFS "u)", iKey, buffer, nSize ) );
if( HB_INKEY_ISUNICODE( iKey ) )
{
nLen = hb_cdpTextPutU16( hb_vmCDP(), buffer, nSize, HB_INKEY_VALUE( iKey ) );
}
else
{
if( HB_INKEY_ISCHAR( iKey ) )
iKey = HB_INKEY_VALUE( iKey );
if( iKey >= 32 && iKey <= 255 && iKey != 127 )
{
PHB_CODEPAGE cdp = hb_vmCDP();
nLen = hb_cdpTextPutU16( cdp, buffer, nSize,
hb_cdpGetU16( cdp, ( HB_UCHAR ) iKey ) );
}
}
return nLen;
}
static int s_inkeyTransChar( int iKey, int iFlags, const HB_KEY_VALUE * pKeyVal )
{
if( ( iFlags & HB_KF_KEYPAD ) != 0 &&
( iFlags & ( HB_KF_ALT | HB_KF_CTRL ) ) != 0 )
{
switch( iKey )
{
case HB_KX_ENTER:
if( iFlags & HB_KF_ALT )
return KP_ALT_ENTER;
break;
case '+':
return iFlags & HB_KF_ALT ? KP_ALT_PLUS : KP_CTRL_PLUS;
case '-':
return iFlags & HB_KF_ALT ? KP_ALT_MINUS : KP_CTRL_MINUS;
case '*':
return iFlags & HB_KF_ALT ? KP_ALT_ASTERISK : KP_CTRL_ASTERISK;
case '/':
return iFlags & HB_KF_ALT ? KP_ALT_SLASH : KP_CTRL_SLASH;
case '.':
case ',':
if( iFlags & HB_KF_CTRL )
return K_CTRL_DEL;
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
if( iFlags & HB_KF_CTRL )
return s_keyPadCtrl[ iKey - '0' ];
break;
}
}
if( ( iFlags & HB_KF_ALT ) != 0 && pKeyVal->alt_key )
return pKeyVal->alt_key;
else if( ( iFlags & HB_KF_CTRL ) != 0 && ( pKeyVal->ctrl_key || pKeyVal->key == '@' ) )
return pKeyVal->ctrl_key;
else if( ( iFlags & HB_KF_SHIFT ) != 0 && pKeyVal->shift_key )
return pKeyVal->shift_key;
else
return pKeyVal->key;
}
int hb_inkeyKeyStd( int iKey )
{
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyKeyStd(%d)", iKey ) );
if( HB_INKEY_ISEXT( iKey ) )
{
int iFlags = HB_INKEY_FLAGS( iKey );
if( HB_INKEY_ISMOUSEPOS( iKey ) )
iKey = K_MOUSEMOVE;
else if( HB_INKEY_ISKEY( iKey ) )
{
iKey = HB_INKEY_VALUE( iKey );
if( iKey > 0 && iKey <= ( int ) HB_SIZEOFARRAY( s_transKeyFun ) )
iKey = s_inkeyTransChar( iKey, iFlags, &s_transKeyFun[ iKey - 1 ] );
else if( iKey >= 32 && iKey <= 127 )
iKey = s_inkeyTransChar( iKey, iFlags, &s_transKeyStd[ iKey - 32 ] );
}
else if( HB_INKEY_ISCHAR( iKey ) || HB_INKEY_ISUNICODE( iKey ) )
{
int iVal = HB_INKEY_VALUE( iKey );
if( iVal >= 32 && iVal <= 127 &&
( iFlags & ( HB_KF_ALT | HB_KF_CTRL ) ) != 0 )
iKey = s_inkeyTransChar( iVal, iFlags, &s_transKeyStd[ iVal - 32 ] );
else if( HB_INKEY_ISUNICODE( iKey ) )
{
HB_WCHAR wc = ( HB_WCHAR ) iVal;
if( wc )
{
HB_UCHAR uc = hb_cdpGetUC( hb_vmCDP(), wc, 0 );
if( uc != 0 )
iKey = uc;
}
else
iKey = 0;
}
else
iKey = iVal;
}
else /* HB_INKEY_ISMOUSEKEY | HB_INKEY_ISEVENT */
iKey = HB_INKEY_VALUE( iKey );
}
return iKey;
}
int hb_inkeyKeyMod( int iKey )
{
int iFlags = 0;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyKeyMod(%d)", iKey ) );
if( HB_INKEY_ISEXT( iKey ) && ! HB_INKEY_ISMOUSEPOS( iKey ) )
iFlags = HB_INKEY_FLAGS( iKey );
return iFlags;
}
int hb_inkeyKeyVal( int iKey )
{
int iValue = 0;
HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyKeyVal(%d)", iKey ) );
if( HB_INKEY_ISEXT( iKey ) && ! HB_INKEY_ISMOUSEPOS( iKey ) )
iValue = HB_INKEY_VALUE( iKey );
return iValue;
}
Reference in New Issue View Git Blame Copy Permalink