1b46d933d7
* harbour/include/hbgtcore.h
* harbour/source/rtl/hbgtcore.c
* harbour/source/rtl/gtapi.c
* harbour/source/rtl/inkeyapi.c
* harbour/source/rtl/mouseapi.c
- removed hb_gt_*(), hb_inkey_*(), hb_mouse_*() functions
+ implemented HB_GTSELF_*() functions and changed HB_GTSUPER_*()
ones to operate on GT context passed ad 1-st parameter.
Now GT API allows to create many GTs working simultaneously
+ added hb_gt_Base() core function which returns GT context
it will be extended soon to allow using many GT contexts,
setting thread default one or switch between them using some
.prg function.
* harbour/source/rtl/gtstd/gtstd.c
* harbour/source/rtl/gtcgi/gtcgi.c
* harbour/source/rtl/gtpca/gtpca.c
* harbour/source/rtl/gttrm/gttrm.c
* harbour/source/rtl/gtxwc/gtxwc.c
* harbour/source/rtl/gtcrs/gtcrs.c
* harbour/source/rtl/gtcrs/gtcrs.h
* harbour/source/rtl/gtsln/gtsln.c
* harbour/source/rtl/gtsln/gtsln.h
* harbour/source/rtl/gtsln/kbsln.c
* harbour/source/rtl/gtsln/mousesln.c
* harbour/source/rtl/gtalleg/gtalleg.c
* harbour/source/rtl/gtgui/gtgui.c
* harbour/source/rtl/gtwin/gtwin.c
* harbour/source/rtl/gtwvt/gtwvt.h
* harbour/source/rtl/gtwvt/gtwvt.c
* harbour/contrib/hbct/ctwin.c
* harbour/contrib/hbct/ctwin.h
* harbour/contrib/hbct/ctwfunc.c
* harbour/contrib/hbgtwvg/gtwvt.h
* harbour/contrib/hbgtwvg/gtwvt.c
* updated GT code for new GT API. I still haven't added GT cloning
to them and only GTTRM is ready to use in multi window MT programs
but now they can be systematically modified and it can be done
locally without core code modifications.
* harbour/contrib/hbgtwvg/wvtutils.c
! fixed some memory leaks in Unicode conversions
257 lines
8.5 KiB
C
257 lines
8.5 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Video subsystem based on ncurses screen library.
|
|
*
|
|
* Copyright 2005 Przemyslaw Czerpak <druzus @polbox.com>
|
|
* www - http://www.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. 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! */
|
|
|
|
/* *********************************************************************** */
|
|
|
|
#define HB_GT_NAME CRS
|
|
|
|
#include "hbgtcore.h"
|
|
#include "hbinit.h"
|
|
#include "hbapiitm.h"
|
|
#include "hbapierr.h"
|
|
|
|
#ifndef HB_CDP_SUPPORT_OFF
|
|
#include "hbapicdp.h"
|
|
#endif
|
|
|
|
#ifdef HB_NCURSES_194
|
|
# include <ncur194/curses.h>
|
|
extern int tigetflag(char *);
|
|
extern int tigetnum(char *);
|
|
extern char *tigetstr(char *);
|
|
#else
|
|
# if defined( HB_OS_HPUX )
|
|
# define _XOPEN_SOURCE_EXTENDED
|
|
# endif
|
|
# include <curses.h>
|
|
# if defined( HB_OS_SUNOS )
|
|
# include <term.h>
|
|
# endif
|
|
#endif
|
|
#ifdef HAVE_GPM_H
|
|
# include <gpm.h>
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/time.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/types.h>
|
|
#include <sys/wait.h>
|
|
#include <sys/ioctl.h>
|
|
#include <signal.h>
|
|
#include <errno.h>
|
|
#include <unistd.h>
|
|
#include <termios.h>
|
|
#include <fcntl.h>
|
|
#include <time.h>
|
|
#if ( defined( HB_OS_LINUX ) || defined( HB_OS_BSD ) ) && !defined(__WATCOMC__)
|
|
# if defined( HB_OS_LINUX )
|
|
# include <pty.h> /* for openpty and forkpty */
|
|
# elif defined( HB_OS_DARWIN ) || defined( __NetBSD__ ) || defined( __OpenBSD__ )
|
|
# include <util.h> /* for openpty and forkpty */
|
|
# if defined( __NetBSD__ )
|
|
# include <termcap.h>
|
|
# define tigetnum(id) tgetnum(id)
|
|
# define tigetstr(id) tgetstr(id,NULL)
|
|
# endif
|
|
# elif defined( HB_OS_BSD )
|
|
# include <libutil.h> /* for openpty and forkpty */
|
|
# endif
|
|
# include <utmp.h> /* for login_tty */
|
|
#endif
|
|
|
|
#ifndef O_ACCMODE
|
|
# define O_ACCMODE ( O_RDONLY | O_WRONLY | O_RDWR )
|
|
#endif
|
|
|
|
#ifndef _POSIX_PATH_MAX
|
|
# define _POSIX_PATH_MAX 256
|
|
#endif
|
|
|
|
/* #define HB_GT_CRS_TTYHACK */
|
|
|
|
#define MAX_SIGNO 64
|
|
|
|
#define BASE_INFD 0
|
|
#define BASE_OUTFD 1
|
|
#define BASE_ERRFD 2
|
|
#define MAXFD 1024
|
|
|
|
|
|
#define ESC_DELAY 25
|
|
/* #define DBLCLK_DELAY 168 */
|
|
#define DBLCLK_DELAY hb_mouseGetDoubleClickSpeed()
|
|
|
|
#define MAX_IOBASE 32
|
|
#define STDIN_BUFLEN 128
|
|
|
|
#define TERM_LINUX 1
|
|
#define TERM_XTERM 2
|
|
|
|
#define IS_EVTFDSTAT(x) ((x) >= 0x01 && (x) <= 0x03)
|
|
#define EVTFDSTAT_RUN 0x01
|
|
#define EVTFDSTAT_STOP 0x02
|
|
#define EVTFDSTAT_DEL 0x03
|
|
|
|
#define CTRL_SEQ "\036"
|
|
#define ALT_SEQ "\037"
|
|
/*#define NATION_SEQ "\016"*/
|
|
|
|
#define MOUSE_NONE 0
|
|
#define MOUSE_GPM 1
|
|
#define MOUSE_XTERM 2
|
|
|
|
#define K_UNDEF 0x10000
|
|
#define K_METAALT 0x10001
|
|
#define K_METACTRL 0x10002
|
|
#define K_NATIONAL 0x10003
|
|
#define K_MOUSETERM 0x10004
|
|
#define K_RESIZE 0x10005
|
|
#define K_PRTSCR 0x10006
|
|
#define K_PAUSE 0x10007
|
|
|
|
#ifndef SC_UNDEF
|
|
# define SC_UNDEF -1
|
|
#endif
|
|
|
|
#define KEY_ALTMASK 0x10000000
|
|
#define KEY_CTRLMASK 0x20000000
|
|
#define KEY_EXTDMASK 0x40000000
|
|
#define KEY_CLIPMASK 0x80000000
|
|
#define KEY_MASK 0xF0000000
|
|
|
|
#define CLR_KEYMASK(x) ((x) & ~KEY_MASK)
|
|
#define GET_KEYMASK(x) ((x) & KEY_MASK)
|
|
|
|
#define IS_CLIPKEY(x) ((((x) & ~0xffff) ^ KEY_CLIPMASK) == 0)
|
|
#define SET_CLIPKEY(x) (((x) & 0xffff) | KEY_CLIPMASK)
|
|
#define GET_CLIPKEY(x) ((((x) & 0x8000) ? ~0xffff : 0) | ((x) & 0xffff))
|
|
|
|
#define NO_STDKEYS 96
|
|
#define NO_EXTDKEYS 30
|
|
|
|
#define EXKEY_F1 ( 0 | KEY_EXTDMASK)
|
|
#define EXKEY_F2 ( 1 | KEY_EXTDMASK)
|
|
#define EXKEY_F3 ( 2 | KEY_EXTDMASK)
|
|
#define EXKEY_F4 ( 3 | KEY_EXTDMASK)
|
|
#define EXKEY_F5 ( 4 | KEY_EXTDMASK)
|
|
#define EXKEY_F6 ( 5 | KEY_EXTDMASK)
|
|
#define EXKEY_F7 ( 6 | KEY_EXTDMASK)
|
|
#define EXKEY_F8 ( 7 | KEY_EXTDMASK)
|
|
#define EXKEY_F9 ( 8 | KEY_EXTDMASK)
|
|
#define EXKEY_F10 ( 9 | KEY_EXTDMASK)
|
|
#define EXKEY_F11 (10 | KEY_EXTDMASK)
|
|
#define EXKEY_F12 (11 | KEY_EXTDMASK)
|
|
#define EXKEY_UP (12 | KEY_EXTDMASK)
|
|
#define EXKEY_DOWN (13 | KEY_EXTDMASK)
|
|
#define EXKEY_LEFT (14 | KEY_EXTDMASK)
|
|
#define EXKEY_RIGHT (15 | KEY_EXTDMASK)
|
|
#define EXKEY_INS (16 | KEY_EXTDMASK)
|
|
#define EXKEY_DEL (17 | KEY_EXTDMASK)
|
|
#define EXKEY_HOME (18 | KEY_EXTDMASK)
|
|
#define EXKEY_END (19 | KEY_EXTDMASK)
|
|
#define EXKEY_PGUP (20 | KEY_EXTDMASK)
|
|
#define EXKEY_PGDN (21 | KEY_EXTDMASK)
|
|
#define EXKEY_BS (22 | KEY_EXTDMASK)
|
|
#define EXKEY_TAB (23 | KEY_EXTDMASK)
|
|
#define EXKEY_ESC (24 | KEY_EXTDMASK)
|
|
#define EXKEY_ENTER (25 | KEY_EXTDMASK)
|
|
#define EXKEY_KPENTER (26 | KEY_EXTDMASK)
|
|
#define EXKEY_CENTER (27 | KEY_EXTDMASK)
|
|
#define EXKEY_PRTSCR (28 | KEY_EXTDMASK)
|
|
#define EXKEY_PAUSE (29 | KEY_EXTDMASK)
|
|
|
|
/* 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
|
|
|
|
/* mouse button states */
|
|
#define M_BUTTON_LEFT 0x0001
|
|
#define M_BUTTON_RIGHT 0x0002
|
|
#define M_BUTTON_MIDDLE 0x0004
|
|
#define M_BUTTON_LDBLCK 0x0010
|
|
#define M_BUTTON_RDBLCK 0x0020
|
|
#define M_BUTTON_MDBLCK 0x0040
|
|
#define M_BUTTON_WHEELUP 0x0100
|
|
#define M_BUTTON_WHEELDOWN 0x0200
|
|
#define M_CURSOR_MOVE 0x0400
|
|
#define M_BUTTON_KEYMASK (M_BUTTON_LEFT | M_BUTTON_RIGHT | M_BUTTON_MIDDLE)
|
|
#define M_BUTTON_DBLMASK (M_BUTTON_LDBLCK | M_BUTTON_RDBLCK | M_BUTTON_MDBLCK)
|
|
|
|
#define TIMEVAL_GET(tv) gettimeofday(&(tv), NULL);
|
|
#define TIMEVAL_LESS(tv1, tv2) (((tv1).tv_sec == (tv2).tv_sec ) ? \
|
|
((tv1).tv_usec < (tv2).tv_usec) : \
|
|
((tv1).tv_sec < (tv2).tv_sec ))
|
|
#define TIMEVAL_ADD(dst, src, n) { \
|
|
(dst).tv_sec = (src).tv_sec + n / 1000; \
|
|
if (((dst).tv_usec = (src).tv_usec+(n%1000)*1000)>=1000000) { \
|
|
(dst).tv_usec -= 1000000; (dst).tv_sec++; \
|
|
} \
|
|
}
|