4ee1406dd5
* harbour/make_gnu.bat
* harbour/make_gnu.cmd
* harbour/make_gnu.sh
* added information about GTWVT to GT description for Windows
* harbour/contrib/rdd_ads/ads1.c
* harbour/contrib/rdd_ads/adsfunc.c
* harbour/source/rdd/dbf1.c
* synced with xHarbour
* harbour/source/rtl/console.c
! fixed PROW() updating to be Clipper compatible when row number
exceed 16bit integer value
* harbour/source/rtl/filesys.c
! fixed possible GPF when hb_fsCurDirBuff()
* harbour/source/rtl/str.c
* harbour/source/rtl/strzero.c
* minor optimizations
* harbour/source/rtl/strpeek.c
! fixed accessing the last character in STRPEEK() and STRPOKE()
* harbour/include/hbgtinfo.ch
* harbour/source/rtl/gtwin/gtwin.c
+ synced with recent xHarbour modifications
* harbour/source/rtl/gtwvt/gtwvt.c
* cleaned BCC warning
* harbour/include/hbapi.h
* harbour/source/vm/codebloc.c
* declare BYTE * passed to hb_codeblockNew() as const
* harbour/include/hbpcode.h
! fixed the PCODE numbers in PCODE description, 122 was repeated for
two different PCODEs: HB_P_ONE and HB_P_MACROLIST
* harbour/source/compiler/genc.c
! fixed hb_p_functionshort pcode size returned by genc function
! fixed double value presented in verbose genc mode for HB_P_PUSHDOUBLE
! fixed number of cases presented in verbose genc mode for HB_P_SWITCH
* harbour/source/compiler/hbdead.c
+ added support for dead code elimination in functions which uses
SWITCH ...; CASE ...; ...; END syntax
* harbour/source/compiler/harbour.c
* harbour/source/compiler/hbfix.c
! fixed optimization for HB_P_PUSHLOCALNEAR and HB_P_POPLOCALNEAR.
It was a long existing bug not reported so far because 0, 1 and 2
PCODEs uses only one BYTE and bad PCODE tracing in hbfix.c didn't
caused bad side effects as long as number of locals in function
was smaller then 768. Now for functions HB_P_PUSHLOCAL and
HB_P_POPLOCAL is used and later changed to NEAR version in hbfix.c
if possible.
* harbour/source/compiler/hbfix.c
* join sequential jumps to optimize constructions like:
while ...
...
if ...
exit
endif
enddo
* harbour/source/compiler/hbdead.c
* remove HB_P_END PCODE also at the and of function if is repeated
just before, f.e. in code like (source/rtl/color53.prg):
Function RADGRDEFCO( cColor )
if isdefcolor()
Return applydefau( cColor, "W/N", "W/N", "W+/N")
Else
Return applydefau( cColor, 3, 1, 4)
endif
Return nil
Now such redundant constructions like above are fully stripped by
compiler anyhow if someone has time and think is important then can
clean also this .prg code.
* harbour/include/Makefile
* harbour/include/hbcomp.h
+ harbour/include/hbxvm.h
* harbour/source/compiler/Makefile
* harbour/source/compiler/cmdcheck.c
* harbour/source/compiler/genc.c
+ harbour/source/compiler/gencc.c
+ harbour/source/compiler/hblbl.c
* harbour/source/compiler/hbpcode.c
* harbour/source/vm/hvm.c
+ added support for generating real C code not PCODE in .c files.
Now with -gc3 Harbour will generate .c files with real .c code
which is later compiled to real machine code.
I left PCODE only for code block definitions though it's also
possible to have even code block compiled to machine code but
we will have to add a flag to codeblock structure which will
be checked at runtime and proper method of execution in EVAL
will be chosen. If you think it's worth of afford then I can
add it too in some spare time.
The final binaries are noticable longer then the one which has
only PCODE but they are faster. The speed improvement depends
on type of operations. The pure Clipper code which does not
execute any external time consuming C functions compiled with
-gc3 is from 10% to 50% faster.
The side effect of generating pure machine code is also harder
recompilation but it does not mean that is impossible. If sth
can be executed by some machines (virtual or hardware) then it
can always be decompiled by definition.
This modification opens door for farther optimization, f.e. when
we will have fully working strong type support then we can add
using native .c types.
In fact this module is PCODE to .c translater not part of compiler
and can be used as separate module to translate generated PCODE,
f.e. .hrb files.
Maybe in the future we will change the compiler to generate meta
code not directly PCODE and it will be possible to make optimizations
on this meta code which will depend on selected output type:
VHM PCODE, C code, .NET code, etc. but at this moment adding support
for .c compilation directly into compiler will make the compiler code
too much complicated for me - IMHO it's better to invest time into
clear separation to FRONT_END->REAL_COMPILER->BACK_END
Please make test with your code. I rebuild whole Harbour code with
-gc3 set in HB_FLAGS in harbour/config/rules.cf and all seems to
work correctly. hbtest returns exactly the same results.
I also made tests with my programs and they work correctly but
I had to define actions for all PCODEs and it's possible that made
some typos in some of them which are very seldom used so your tests
will be very important.
146 lines
6.6 KiB
Plaintext
146 lines
6.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Header file for the GTINFO API
|
|
*
|
|
* Copyright 2004 Mauricio Abre <maurifull@datafull.com>
|
|
* www - http://www.xharbour.org
|
|
* 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.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
Minimal informations:
|
|
|
|
READ doc/gtinfo.txt
|
|
*/
|
|
|
|
#ifndef HB_GTINFO_CH_
|
|
#define HB_GTINFO_CH_
|
|
|
|
#define GTI_ISGRAPHIC 0 /* 1 if GT has graphic support / pixel oriented */
|
|
#define GTI_SCREENWIDTH 1 /* Get/set width of application window in pixels */
|
|
#define GTI_SCREENHEIGHT 2 /* Get/set height of appl. window in pixels */
|
|
#define GTI_SCREENDEPTH 3 /* Amount of bits used for colors in the application */
|
|
#define GTI_FONTSIZE 4 /* Get/set height of application font in pixels */
|
|
#define GTI_FONTWIDTH 5 /* Get/set width of application font characters */
|
|
#define GTI_DESKTOPWIDTH 6 /* Get width of desktop in pixels */
|
|
#define GTI_DESKTOPHEIGHT 7 /* Get height of desktop in pixels */
|
|
#define GTI_DESKTOPDEPTH 8 /* Amount of bits used for colors in system */
|
|
#define GTI_COMPATBUFFER 9 /* Use DOS CGA/EGA/VGA character/attribute buffer in SAVE/REST SCREEN */
|
|
#define GTI_KBDSHIFTS 10 /* Keyboard shift/ctrl/alt, caps/num/scroll & winkeys state */
|
|
#define GTI_KBDSPECIAL 11 /* This will get/set the status of the top row
|
|
shift state handling. Enable to correct a
|
|
documented keyboard handling bug under Win9x.
|
|
Enable if the caps-lock key affects the top
|
|
row keys. (Alternate language keys are not
|
|
handled properly by this temporary fix.
|
|
Default is disabled.
|
|
*/
|
|
#define GTI_KBDALT 12 /* This will get/set the status of the alt-numpad
|
|
key handling.
|
|
Default is Enabled.
|
|
*/
|
|
#define GTI_CLIPBOARDDATA 15 /* Get/Set clipboard */
|
|
#define GTI_CLIPBOARDPAST 16 /* Paste clipboard data into keyboard buffer */
|
|
#define GTI_CURSORBLINKRATE 19 /* Get/Set cursor blinking rate in milliseconds */
|
|
#define GTI_DESKTOPROWS 20 /* Get Size of desktop in character rows */
|
|
#define GTI_DESKTOPCOLS 21 /* Get Size of desktop in character cols */
|
|
#define GTI_FONTWEIGHT 22 /* Get/set the weight of the font used in application */
|
|
#define GTI_FONTQUALITY 23 /* Get/set quality of font rendering in the appl. */
|
|
#define GTI_FONTNAME 24 /* Set-only font name */
|
|
#define GTI_CODEPAGE 25 /* codepage */
|
|
#define GTI_WINTITLE 26 /* title */
|
|
#define GTI_ICONFILE 27 /* icon file */
|
|
#define GTI_ICONRES 28 /* icon resource */
|
|
#define GTI_MOUSESTATUS 29 /* mouse enabled = 1 mouse disabled = 0 */
|
|
|
|
#define GTI_INPUTFD 30 /* Get Standard input stream of application/GT */
|
|
#define GTI_OUTPUTFD 31 /* Get Standard output stream of application/GT */
|
|
#define GTI_ERRORFD 32 /* Get Standard error stream of application/GT */
|
|
|
|
#define GTI_ESCDELAY 33 /* Get/Set escape key delay */
|
|
|
|
/* these 2 are used for MaxCol(?) and MaxRow(?) */
|
|
#define GTI_VIEWMAXHEIGHT 34 /* Maximum viewable height:for current mode */
|
|
#define GTI_VIEWMAXWIDTH 35 /* Maximum viewable width:either win or full scrn */
|
|
|
|
#define GTI_VIEWPORTHEIGHT 36 /* Current viewport height:for current mode */
|
|
#define GTI_VIEWPORTWIDTH 37 /* Current viewport width:either win or full scrn */
|
|
|
|
/* these are used _by_ MaxRow/Col */
|
|
#define GTI_WINDOW 0 /* Maximum window size ('window' in CT terms) */
|
|
#define GTI_SCREEN 1 /* Maximum screen size ('Screen' in CT terms) */
|
|
#define GTI_CLIENT 2 /* Maximum possible client size of a window */
|
|
#define GTI_MAX 3 /* Maximum possible window size (in Windows) */
|
|
|
|
/* Font weights */
|
|
#define GTI_FONTW_THIN 1
|
|
#define GTI_FONTW_NORMAL 2
|
|
#define GTI_FONTW_BOLD 3
|
|
|
|
/* Font sizes */
|
|
#define GTI_FONTQ_DRAFT 1
|
|
#define GTI_FONTQ_NORMAL 2
|
|
#define GTI_FONTQ_HIGH 3
|
|
|
|
/* Keyboard shifts states */
|
|
#define GTI_KBD_SHIFT 1
|
|
#define GTI_KBD_CTRL 2
|
|
#define GTI_KBD_ALT 4
|
|
#define GTI_KBD_LWIN 8
|
|
#define GTI_KBD_RWIN 16
|
|
#define GTI_KBD_MENU 32
|
|
#define GTI_KBD_SCROLOCK 256
|
|
#define GTI_KBD_NUMLOCK 512
|
|
#define GTI_KBD_CAPSLOCK 1024
|
|
#define GTI_KBD_INALTSEQ 2048
|
|
#define GTI_KBD_ACCENT1 4096
|
|
#define GTI_KBD_ACCENT2 8192
|
|
#define GTI_KBD_ACCENT3 16384
|
|
#define GTI_KBD_ACCENT4 32768
|
|
|
|
#endif /* HB_GTINFO_CH_ */
|