a09ab8a3a4
* harbour/source/rtl/cdpapi.c
! fixed unicode values for control codes in default CP437 unicode table
* harbour/source/rtl/gtchrmap.c
! added missing default translation of chr(155) - it's control code
on most of terminals and should not be shown in non UFT-8 mode
* harbour/source/rtl/gttrm/gttrm.c
! do not use alternate character set for box drawing in UTF-8 mode
New Linux consoles disable UTF-8 mode when alternate character set
is enabled
* harbour/contrib/hbct/ctwin.c
* harbour/contrib/hbct/ctwin.h
* harbour/contrib/hbct/ctwfunc.c
* overload ReadKey() method for future window moving when scroll lock
is set and for KEYREAD() implementation.
* store real last key value in CTWIN GT.
479 lines
14 KiB
C
479 lines
14 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Video subsystem based on ncurses screen library.
|
|
*
|
|
* Copyright 2003 Przemyslaw Czerpak <druzus@polbox.com>
|
|
* www - http://www.harbour-project.org
|
|
* Special thanks to Marek Paliwoda <paliwoda@inetia.pl>
|
|
* author of gtsln from which I borrowed a lot of code and ideas.
|
|
*
|
|
* 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. 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.
|
|
*
|
|
*/
|
|
|
|
/* NOTE: User programs should never call this layer directly! */
|
|
|
|
#include "hbgtcore.h"
|
|
#include "hbapifs.h"
|
|
|
|
#ifdef HB_OS_UNIX
|
|
|
|
#define MAX_CHAR_VAL 0xff
|
|
#define HB_CHRMAP(a,c) ( ( (a) << 16 ) | (c) )
|
|
|
|
char * s_szDefaultCharMapFile = "/etc/harbour/hb-charmap.def";
|
|
|
|
static void chrmap_init( int *piTransTbl )
|
|
{
|
|
int i;
|
|
|
|
for( i = 0; i < 256; ++i )
|
|
piTransTbl[i] = HB_CHRMAP( i < 128 ? 1 : 0, i );
|
|
|
|
piTransTbl[155] = HB_CHRMAP( 1, '.' );
|
|
}
|
|
|
|
static void chrmap_dotctrl( int *piTransTbl )
|
|
{
|
|
int i;
|
|
|
|
for( i = 0; i < 32; ++i )
|
|
piTransTbl[i] = piTransTbl[i+128] = HB_CHRMAP( 1, '.' );
|
|
}
|
|
|
|
static void chrmap_ascictrl( int *piTransTbl )
|
|
{
|
|
piTransTbl[04] = HB_CHRMAP( 1, '#' );
|
|
piTransTbl[16] = HB_CHRMAP( 1, '>' );
|
|
piTransTbl[17] = HB_CHRMAP( 1, '<' );
|
|
piTransTbl[30] = HB_CHRMAP( 1, '^' );
|
|
piTransTbl[31] = HB_CHRMAP( 1, 'v' );
|
|
piTransTbl[24] = HB_CHRMAP( 1, '^' );
|
|
piTransTbl[25] = HB_CHRMAP( 1, 'v' );
|
|
piTransTbl[26] = HB_CHRMAP( 1, '>' );
|
|
piTransTbl[27] = HB_CHRMAP( 1, '<' );
|
|
}
|
|
|
|
static void chrmap_acscbox( int *piTransTbl )
|
|
{
|
|
piTransTbl[ 04] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
piTransTbl[ 16] = HB_CHRMAP( 5, '+' ); /* ACS_RARROW */
|
|
piTransTbl[ 17] = HB_CHRMAP( 5, ',' ); /* ACS_LARROW */
|
|
piTransTbl[ 24] = HB_CHRMAP( 5, '-' ); /* ACS_UARROW */
|
|
piTransTbl[ 25] = HB_CHRMAP( 5, '.' ); /* ACS_DARROW */
|
|
piTransTbl[ 26] = HB_CHRMAP( 5, '+' ); /* ACS_RARROW */
|
|
piTransTbl[ 27] = HB_CHRMAP( 5, ',' ); /* ACS_LARROW */
|
|
piTransTbl[ 30] = HB_CHRMAP( 5, '-' ); /* ACS_UARROW */
|
|
piTransTbl[ 31] = HB_CHRMAP( 5, '.' ); /* ACS_DARROW */
|
|
|
|
piTransTbl[176] = HB_CHRMAP( 5, 'h' ); /* ACS_BOARD */
|
|
piTransTbl[177] = HB_CHRMAP( 5, 'a' ); /* ACS_CKBOARD */
|
|
piTransTbl[178] = HB_CHRMAP( 5, '0' ); /* ACS_BLOCK */
|
|
piTransTbl[179] = HB_CHRMAP( 5, 'x' ); /* ACS_VLINE */
|
|
piTransTbl[180] = HB_CHRMAP( 5, 'u' ); /* ACS_RTEE */
|
|
piTransTbl[181] = HB_CHRMAP( 5, 'u' ); /* ACS_RTEE */
|
|
piTransTbl[182] = HB_CHRMAP( 5, 'u' ); /* ACS_RTEE */
|
|
piTransTbl[183] = HB_CHRMAP( 5, 'k' ); /* ACS_URCORNER */
|
|
piTransTbl[184] = HB_CHRMAP( 5, 'k' ); /* ACS_URCORNER */
|
|
piTransTbl[185] = HB_CHRMAP( 5, 'u' ); /* ACS_RTEE */
|
|
piTransTbl[186] = HB_CHRMAP( 5, 'x' ); /* ACS_VLINE */
|
|
piTransTbl[187] = HB_CHRMAP( 5, 'k' ); /* ACS_URCORNER */
|
|
piTransTbl[188] = HB_CHRMAP( 5, 'j' ); /* ACS_LRCORNER */
|
|
piTransTbl[189] = HB_CHRMAP( 5, 'j' ); /* ACS_LRCORNER */
|
|
piTransTbl[190] = HB_CHRMAP( 5, 'j' ); /* ACS_LRCORNER */
|
|
piTransTbl[191] = HB_CHRMAP( 5, 'k' ); /* ACS_URCORNER */
|
|
piTransTbl[192] = HB_CHRMAP( 5, 'm' ); /* ACS_LLCORNER */
|
|
piTransTbl[193] = HB_CHRMAP( 5, 'v' ); /* ACS_BTEE */
|
|
piTransTbl[194] = HB_CHRMAP( 5, 'w' ); /* ACS_TTEE */
|
|
piTransTbl[195] = HB_CHRMAP( 5, 't' ); /* ACS_LTEE */
|
|
piTransTbl[196] = HB_CHRMAP( 5, 'q' ); /* ACS_HLINE */
|
|
piTransTbl[197] = HB_CHRMAP( 5, 'n' ); /* ACS_PLUS */
|
|
piTransTbl[198] = HB_CHRMAP( 5, 't' ); /* ACS_LTEE */
|
|
piTransTbl[199] = HB_CHRMAP( 5, 't' ); /* ACS_LTEE */
|
|
piTransTbl[200] = HB_CHRMAP( 5, 'm' ); /* ACS_LLCORNER */
|
|
piTransTbl[201] = HB_CHRMAP( 5, 'l' ); /* ACS_ULCORNER */
|
|
piTransTbl[202] = HB_CHRMAP( 5, 'v' ); /* ACS_BTEE */
|
|
piTransTbl[203] = HB_CHRMAP( 5, 'w' ); /* ACS_TTEE */
|
|
piTransTbl[204] = HB_CHRMAP( 5, 't' ); /* ACS_LTEE */
|
|
piTransTbl[205] = HB_CHRMAP( 5, 'q' ); /* ACS_HLINE */
|
|
piTransTbl[206] = HB_CHRMAP( 5, 'n' ); /* ACS_PLUS */
|
|
piTransTbl[207] = HB_CHRMAP( 5, 'v' ); /* ACS_BTEE */
|
|
piTransTbl[208] = HB_CHRMAP( 5, 'v' ); /* ACS_BTEE */
|
|
piTransTbl[209] = HB_CHRMAP( 5, 'w' ); /* ACS_TTEE */
|
|
piTransTbl[210] = HB_CHRMAP( 5, 'w' ); /* ACS_TTEE */
|
|
piTransTbl[211] = HB_CHRMAP( 5, 'm' ); /* ACS_LLCORNER */
|
|
piTransTbl[212] = HB_CHRMAP( 5, 'm' ); /* ACS_LLCORNER */
|
|
piTransTbl[213] = HB_CHRMAP( 5, 'l' ); /* ACS_ULCORNER */
|
|
piTransTbl[214] = HB_CHRMAP( 5, 'l' ); /* ACS_ULCORNER */
|
|
piTransTbl[215] = HB_CHRMAP( 5, 'n' ); /* ACS_PLUS */
|
|
piTransTbl[216] = HB_CHRMAP( 5, 'n' ); /* ACS_PLUS */
|
|
piTransTbl[217] = HB_CHRMAP( 5, 'j' ); /* ACS_LRCORNER */
|
|
piTransTbl[218] = HB_CHRMAP( 5, 'l' ); /* ACS_ULCORNER */
|
|
|
|
#if 0
|
|
piTransTbl[219] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
piTransTbl[220] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
piTransTbl[221] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
piTransTbl[222] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
piTransTbl[223] = HB_CHRMAP( 5, '`' ); /* ACS_DIAMOND */
|
|
#endif
|
|
}
|
|
|
|
static void skip_blank( char **buf )
|
|
{
|
|
while( **buf != '\0' && **buf == ' ' )
|
|
++(*buf);
|
|
}
|
|
|
|
static int get_val( char **buf )
|
|
{
|
|
int n = -1;
|
|
char c;
|
|
|
|
if( (*buf)[0] == '\'' && (*buf)[1] != '\0' && (*buf)[2] == '\'' )
|
|
{
|
|
n = (*buf)[1] & 0xff;
|
|
*buf+=3;
|
|
}
|
|
else if( (*buf)[0] == '0' && ((*buf)[1] == 'x' || (*buf)[1] == 'X') )
|
|
{
|
|
n = 0;
|
|
*buf+=2;
|
|
for(; (**buf >= '0' && **buf <= '9') ||
|
|
(**buf >= 'A' && **buf <= 'F') ||
|
|
(**buf >= 'a' && **buf <= 'f'); (*buf)++ )
|
|
{
|
|
c = **buf | 0x20;
|
|
n = (n << 4) + c - (c > '9' ? ('a' - 10) : '0');
|
|
}
|
|
}
|
|
else if( **buf >= '0' && **buf <= '9' )
|
|
{
|
|
n = 0;
|
|
for(; (**buf >= '0' && **buf <= '9'); (*buf)++ )
|
|
n = n * 10 + (**buf - '0');
|
|
}
|
|
return n > 0xff ? -1 : n;
|
|
}
|
|
|
|
static int parse_line( char *buf, int *from, int *to, char *op, int *val, int *mod )
|
|
{
|
|
char *s, *s2;
|
|
int ret = 0, ina = 0;
|
|
|
|
s = buf;
|
|
while( *s != '\0' )
|
|
{
|
|
switch( *s )
|
|
{
|
|
case '\t':
|
|
*s = ' ';
|
|
break;
|
|
case '\'':
|
|
ina ^= 1;
|
|
if( ina )
|
|
++s;
|
|
break;
|
|
case '\n':
|
|
case '\r':
|
|
case '#':
|
|
*s = '\0';
|
|
break;
|
|
}
|
|
if( *s != '\0' )
|
|
++s;
|
|
}
|
|
|
|
s = buf;
|
|
skip_blank( &s );
|
|
|
|
if( *s == '@' )
|
|
{
|
|
++s;
|
|
s2 = buf;
|
|
while( *s != '\0' && *s != ' ' )
|
|
*s2++ = *s++;
|
|
*s2 = '\0';
|
|
ret = strlen( buf ) > 0 ? 2 : -1;
|
|
}
|
|
else if( *s != '\0' )
|
|
{
|
|
ret = *from = *to = *val = *mod = -1;
|
|
*op = '=';
|
|
|
|
*from = get_val( &s );
|
|
if( *from >= 0 )
|
|
{
|
|
if( *s == '-' )
|
|
{
|
|
++s;
|
|
*to = get_val( &s );
|
|
}
|
|
else
|
|
*to = *from;
|
|
}
|
|
|
|
if( *to >= 0 && *s == ':' && s[1] == ' ' )
|
|
{
|
|
++s;
|
|
skip_blank( &s );
|
|
if( *s == '*' && (s[1] == '+' || s[1] == '-' || s[1] == '&' ||
|
|
s[1] == '|' || s[1] == '^' || s[1] == '=' ||
|
|
s[1] == ' ') )
|
|
{
|
|
*op = s[1];
|
|
s+=2;
|
|
}
|
|
*val = *op == ' ' ? 0 : get_val( &s );
|
|
if( *val >= 0 )
|
|
{
|
|
skip_blank( &s );
|
|
*mod = get_val( &s );
|
|
skip_blank( &s );
|
|
if( *mod >=0 && *mod <= 5 && *s == '\0' )
|
|
ret = 1;
|
|
}
|
|
}
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
static int chrmap_parse( FILE *fp, const char *pszTerm, int *nTransTbl, const char *pszFile )
|
|
{
|
|
int line = 0, from = 0, to = 0, val = 0, mod = 0, i, n;
|
|
char buf[256], *s, op = 0;
|
|
int isTerm = 0;
|
|
fpos_t pos;
|
|
|
|
fgetpos( fp, &pos );
|
|
fseek( fp, 0, SEEK_SET );
|
|
|
|
while( !feof( fp ) && isTerm < 2 )
|
|
{
|
|
++line;
|
|
if( fgets( buf, sizeof( buf ), fp ) != NULL )
|
|
{
|
|
n = 0;
|
|
if( *buf == ':' )
|
|
{
|
|
if( isTerm == 1 )
|
|
isTerm = 2;
|
|
else
|
|
{
|
|
*buf = '|';
|
|
s = buf;
|
|
while( *s != '\0' && *s != ' ' && *s != '\t' &&
|
|
*s != '\n' && *s != '\r' )
|
|
++s;
|
|
*s = '\0';
|
|
s = buf;
|
|
i = strlen( pszTerm );
|
|
while( isTerm == 0 && ( s = strstr( s + 1, pszTerm ) ) != NULL )
|
|
{
|
|
if( *(s-1) == '|' &&
|
|
( s[i] == '|' || s[i] == '\0' ) )
|
|
isTerm = 1;
|
|
}
|
|
}
|
|
}
|
|
else if( isTerm == 1 )
|
|
{
|
|
n = parse_line( buf, &from, &to, &op, &val, &mod );
|
|
}
|
|
|
|
if( n == 2 )
|
|
{
|
|
chrmap_parse( fp, buf, nTransTbl, pszFile );
|
|
}
|
|
else if( n == 1 )
|
|
{
|
|
/* printf("line: %3d\tfrom=%d, to=%d, op='%c', val=%d, mod=%d\n", line, from, to, op, val, mod); */
|
|
for( i = from; i <= to; ++i )
|
|
{
|
|
switch( op )
|
|
{
|
|
case '|':
|
|
nTransTbl[i] = ( i | val );
|
|
break;
|
|
case '&':
|
|
nTransTbl[i] = ( i & val );
|
|
break;
|
|
case '^':
|
|
nTransTbl[i] = ( i ^ val );
|
|
break;
|
|
case '+':
|
|
nTransTbl[i] = ( i + val ) & 0xff;
|
|
break;
|
|
case '-':
|
|
nTransTbl[i] = ( i - val ) & 0xff;
|
|
break;
|
|
case '=':
|
|
nTransTbl[i] = val;
|
|
break;
|
|
case '*':
|
|
case ' ':
|
|
default:
|
|
nTransTbl[i] = i;
|
|
break;
|
|
}
|
|
nTransTbl[i] |= mod << 16;
|
|
}
|
|
}
|
|
else if( n == -1 )
|
|
{
|
|
fprintf( stderr, "file: %s, parse error at line: %d\n", pszFile, line );
|
|
}
|
|
}
|
|
}
|
|
|
|
fsetpos( fp, &pos );
|
|
|
|
return isTerm;
|
|
}
|
|
|
|
static int hb_gt_chrmapread( const char *pszFile, const char *pszTerm, int *nTransTbl )
|
|
{
|
|
FILE *fp;
|
|
char buf[256], *ptr, *pTerm;
|
|
int isTerm = -1;
|
|
|
|
fp = hb_fopen( pszFile, "r" );
|
|
|
|
if( fp != NULL )
|
|
{
|
|
strncpy( buf, pszTerm, sizeof( buf ) );
|
|
buf[ sizeof( buf ) - 1 ] = '\0';
|
|
isTerm = 0;
|
|
pTerm = buf;
|
|
while( pTerm )
|
|
{
|
|
if( ( ptr = strchr( pTerm, '/' ) ) != NULL )
|
|
*ptr++ = '\0';
|
|
|
|
if( *pTerm )
|
|
if( chrmap_parse( fp, pTerm, nTransTbl, pszFile ) > 0 )
|
|
isTerm = 1;
|
|
|
|
pTerm = ptr;
|
|
}
|
|
fclose( fp );
|
|
}
|
|
return isTerm;
|
|
}
|
|
|
|
int hb_gt_chrmapinit( int *piTransTbl, const char *pszTerm, BOOL fSetACSC )
|
|
{
|
|
char *pszFree = NULL, *pszFile, szFile[ _POSIX_PATH_MAX + 1 ];
|
|
int nRet = -1;
|
|
|
|
chrmap_init( piTransTbl );
|
|
|
|
if( pszTerm == NULL || *pszTerm == '\0' )
|
|
pszTerm = pszFree = hb_getenv("HB_TERM");
|
|
if( pszTerm == NULL || *pszTerm == '\0' )
|
|
{
|
|
if( pszFree )
|
|
hb_xfree( pszFree );
|
|
pszTerm = pszFree = hb_getenv("TERM");
|
|
}
|
|
|
|
if( pszTerm != NULL && *pszTerm != '\0' )
|
|
{
|
|
pszFile = hb_getenv( "HB_CHARMAP" );
|
|
if( pszFile != NULL && *pszFile != '\0' )
|
|
nRet = hb_gt_chrmapread( pszFile, pszTerm, piTransTbl );
|
|
if( nRet == -1 )
|
|
{
|
|
if( pszFile )
|
|
hb_xfree( pszFile );
|
|
pszFile = hb_getenv( "HB_ROOT" );
|
|
if( pszFile != NULL && sizeof( szFile ) >
|
|
strlen( pszFile ) + strlen( s_szDefaultCharMapFile ) )
|
|
{
|
|
hb_strncpy( szFile, pszFile, _POSIX_PATH_MAX );
|
|
hb_strncat( szFile, s_szDefaultCharMapFile, _POSIX_PATH_MAX );
|
|
nRet = hb_gt_chrmapread( szFile, pszTerm, piTransTbl );
|
|
}
|
|
}
|
|
if( pszFile )
|
|
hb_xfree( pszFile );
|
|
if( nRet == -1 )
|
|
nRet = hb_gt_chrmapread( s_szDefaultCharMapFile, pszTerm, piTransTbl );
|
|
}
|
|
|
|
if( pszFree )
|
|
hb_xfree( pszFree );
|
|
|
|
if( nRet == -1 )
|
|
{
|
|
chrmap_dotctrl( piTransTbl );
|
|
if( fSetACSC )
|
|
chrmap_acscbox( piTransTbl );
|
|
else
|
|
chrmap_ascictrl( piTransTbl );
|
|
}
|
|
|
|
return nRet;
|
|
}
|
|
|
|
/*
|
|
int main(int argc, char **argv)
|
|
{
|
|
int piTransTbl[256], i;
|
|
|
|
if( hb_gt_chrmapinit( piTransTbl, NULL ) == -1 )
|
|
{
|
|
printf("cannot init charmap.\n");
|
|
exit(1);
|
|
}
|
|
|
|
for( i=0; i<256; i++)
|
|
printf("%3d -> %3d : %d\n", i, piTransTbl[i]&0xff, piTransTbl[i]>>16);
|
|
|
|
return 0;
|
|
}
|
|
*/
|
|
|
|
#endif /* HB_OS_UNIX */
|