fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-04-14 12:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* harbour/include/hbstdgen.ch
   * harbour/include/box.ch
   * harbour/include/hbclass.ch
   * harbour/include/hbcommon.ch
   * harbour/include/hbextern.ch
   * harbour/include/hbgetcmt.ch
   * harbour/include/hbsetup.ch
   * harbour/include/ord.ch
   * harbour/source/rdd/dbdelim.prg
   * harbour/source/rdd/dbfuncs.prg
   * harbour/source/rdd/dbjoin.prg
   * harbour/source/rdd/dblist.prg
   * harbour/source/rdd/dbsort.prg
   * harbour/source/rdd/dbstrux.prg
   * harbour/source/rdd/dbtotal.prg
   * harbour/source/rdd/dbupdat.prg
   * harbour/source/rdd/rddord.prg
   * harbour/source/rtl/alert.prg
   * harbour/source/rtl/browdb.prg
   * harbour/source/rtl/browdbx.prg
   * harbour/source/rtl/checkbox.prg
   * harbour/source/rtl/dircmd.prg
   * harbour/source/rtl/getsys.prg
   * harbour/source/rtl/input.prg
   * harbour/source/rtl/mssgline.prg
   * harbour/source/rtl/pushbtn.prg
   * harbour/source/rtl/radiobtn.prg
   * harbour/source/rtl/radiogrp.prg
   * harbour/source/rtl/setfunc.prg
   * harbour/source/rtl/setta.prg
   * harbour/source/rtl/tbcolumn.prg
   * harbour/source/rtl/tget.prg
   * harbour/source/rtl/tgetint.prg
   * harbour/source/rtl/tmenuitm.prg
   * harbour/source/rtl/tpopup.prg
   * harbour/source/rtl/ttopbar.prg
   * harbour/source/rtl/typefile.prg
   * harbour/source/vm/harbinit.prg
   * harbour/utils/hbrun/external.prg
   * harbour/utils/hbtest/rt_main.ch
     + Following #defines are now available by default without
       the need to #include "hbsetup.ch". These are of course
       also available for applications as defined at Harbour
       build time:
       HB_EXTENSION
       HB_C52_UNDOC
       HB_C52_STRICT
       HB_COMPAT_C53
       HB_COMPAT_XPP
       HB_COMPAT_VO
       HB_COMPAT_FLAGSHIP
       HB_COMPAT_FOXPRO
       HB_COMPAT_DBASE
       HB_COMPAT_CLIP
       HB_COMPAT_XHB
       HB_SHORTNAMES
       HB_FILE_VER_STATIC

   * harbour/source/compiler/hbusage.c
     * Mail address update.
This commit is contained in:
Viktor Szakats
2007-04-14 10:41:54 +00:00
parent 6aa9e8bb08
commit 56267f28dd
42 changed files with 70 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
harbour/ChangeLog
View File

@@ -8,6 +8,68 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-04-14 12:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* harbour/include/hbstdgen.ch
* harbour/include/box.ch
* harbour/include/hbclass.ch
* harbour/include/hbcommon.ch
* harbour/include/hbextern.ch
* harbour/include/hbgetcmt.ch
* harbour/include/hbsetup.ch
* harbour/include/ord.ch
* harbour/source/rdd/dbdelim.prg
* harbour/source/rdd/dbfuncs.prg
* harbour/source/rdd/dbjoin.prg
* harbour/source/rdd/dblist.prg
* harbour/source/rdd/dbsort.prg
* harbour/source/rdd/dbstrux.prg
* harbour/source/rdd/dbtotal.prg
* harbour/source/rdd/dbupdat.prg
* harbour/source/rdd/rddord.prg
* harbour/source/rtl/alert.prg
* harbour/source/rtl/browdb.prg
* harbour/source/rtl/browdbx.prg
* harbour/source/rtl/checkbox.prg
* harbour/source/rtl/dircmd.prg
* harbour/source/rtl/getsys.prg
* harbour/source/rtl/input.prg
* harbour/source/rtl/mssgline.prg
* harbour/source/rtl/pushbtn.prg
* harbour/source/rtl/radiobtn.prg
* harbour/source/rtl/radiogrp.prg
* harbour/source/rtl/setfunc.prg
* harbour/source/rtl/setta.prg
* harbour/source/rtl/tbcolumn.prg
* harbour/source/rtl/tget.prg
* harbour/source/rtl/tgetint.prg
* harbour/source/rtl/tmenuitm.prg
* harbour/source/rtl/tpopup.prg
* harbour/source/rtl/ttopbar.prg
* harbour/source/rtl/typefile.prg
* harbour/source/vm/harbinit.prg
* harbour/utils/hbrun/external.prg
* harbour/utils/hbtest/rt_main.ch
+ Following #defines are now available by default without
the need to #include "hbsetup.ch". These are of course
also available for applications as defined at Harbour
build time:
HB_EXTENSION
HB_C52_UNDOC
HB_C52_STRICT
HB_COMPAT_C53
HB_COMPAT_XPP
HB_COMPAT_VO
HB_COMPAT_FLAGSHIP
HB_COMPAT_FOXPRO
HB_COMPAT_DBASE
HB_COMPAT_CLIP
HB_COMPAT_XHB
HB_SHORTNAMES
HB_FILE_VER_STATIC
* harbour/source/compiler/hbusage.c
* Mail address update.
2007-04-14 11:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* harbour/source/debug/dbgtarr.prg
! Fixed unclosed #if construct.

3
harbour/include/box.ch
View File

@@ -53,8 +53,6 @@
#ifndef _BOX_CH
#define _BOX_CH
#include "hbsetup.ch"
/* #defines for DISPBOX() */
/* Single-line */
@@ -84,4 +82,3 @@
#endif
#endif /* _BOX_CH */

1
harbour/include/hbclass.ch
View File

@@ -73,7 +73,6 @@
#ifndef HB_CLASS_CH_
#define HB_CLASS_CH_
#include "hbsetup.ch"
#include "hboo.ch"
/* You can actually define one or all the syntax, they do not collide each other */

2
harbour/include/hbcommon.ch
View File

@@ -53,8 +53,6 @@
#ifndef HB_HBCOMMON_CH_
#define HB_HBCOMMON_CH_
#include "hbsetup.ch"
#ifdef HB_FILE_VER_STATIC
#define HB_FILE_VER( id ) STATIC s_hb_file_ver := id
#else

8
harbour/include/hbextern.ch
View File

@@ -53,8 +53,6 @@
#ifndef HB_EXTERN_CH_
#define HB_EXTERN_CH_
#include "hbsetup.ch"
/* CA-Cl*pper compatible standard functions */
EXTERNAL AADD
@@ -169,9 +167,9 @@ EXTERNAL FIELDNAME
EXTERNAL FIELDPOS
EXTERNAL FIELDPUT
#ifdef HB_EXTENSION
EXTERNAL FIELDLEN /* harbour extension */
EXTERNAL FIELDDEC /* harbour extension */
EXTERNAL FIELDTYPE /* harbour extension */
EXTERNAL FIELDLEN
EXTERNAL FIELDDEC
EXTERNAL FIELDTYPE
#endif
EXTERNAL FIELDWBLOCK
EXTERNAL FILE

2
harbour/include/hbgetcmt.ch
View File

@@ -53,8 +53,6 @@
#ifndef HB_GETCMT_CH_
#define HB_GETCMT_CH_
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53
#command @ <row>, <col> GET <var> ;

3
harbour/include/hbsetup.ch
View File

@@ -50,7 +50,8 @@
*
*/
/* NOTE: This file is also used by C code. */
/* NOTE: This file is used by C code and at Harbour build time.
Normally you never need to #include it in any .prg code. */
#ifndef HB_SETUP_CH_
#define HB_SETUP_CH_

17
harbour/include/hbstdgen.ch
View File

@@ -58,23 +58,6 @@
/* undefine all rules which are not necessary in default PP tables */
#undef HB_SETUP_CH_
#undef HB_EXTENSION
#undef HB_C52_UNDOC
#undef HB_C52_STRICT
#undef HB_COMPAT_C53
#undef HB_COMPAT_XPP
#undef HB_COMPAT_VO
#undef HB_COMPAT_FLAGSHIP
#undef HB_COMPAT_FOXPRO
#undef HB_COMPAT_DBASE
#undef HB_COMPAT_CLIP
#undef HB_COMPAT_XHB
#undef HB_SHORTNAMES
#undef HB_FILE_VER_STATIC
#undef __HARBOUR__
#undef __DATE__
#undef __TIME__

3
harbour/include/ord.ch
View File

@@ -80,7 +80,7 @@
* This pseudofunction is only document in CL5.3 NG but not implemented
* in Clipper
*/
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53
#xtranslate ORDCOND( [FOR <for>] ;
@@ -96,7 +96,6 @@
#endif
#include "dbinfo.ch"
#endif /* HB_ORD_CH_ */

2
harbour/source/compiler/hbusage.c
View File

@@ -180,7 +180,7 @@ void hb_compPrintCredits( void )
"Ron Pinkas <ron@profit-master.com>\n"
"Ryszard Glab <rglab@imid.med.pl>\n"
"Tim Stone <timstone@mstrlink.com>\n"
"Viktor Szakats <viktor.szakats@syenar.hu>\n"
"Viktor Szakats <harbour.01@syenar.hu>\n"
"Vladimir Kazimirchik <v_kazimirchik@yahoo.com>\n"
);
}

2
harbour/source/rdd/dbdelim.prg
View File

@@ -56,8 +56,6 @@
*
*/
#include "hbsetup.ch"
REQUEST DELIM
FUNCTION __dbDelim( lExport, cFile, cDelimArg, aFields, bFor, bWhile, nNext, nRecord, lRest )

2
harbour/source/rdd/dbfuncs.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
/* short (10 chars long) version of some functions for compatibility */
FUNCTION dbClearFil()

2
harbour/source/rdd/dbjoin.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "dbstruct.ch"
/* NOTE: Compared to CA-Cl*pper, Harbour has three extra parameters

2
harbour/source/rdd/dblist.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
/* NOTE: lAll is a dummy parameter, nothing seems to depend on it. [vszakats] */
PROCEDURE __dbList( lOff, abEval, lAll, bFor, bWhile, nNext, nRecord, lRest, lToPrint, cToFileName )

2
harbour/source/rdd/dbsort.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
/* NOTE: Compared to CA-Cl*pper, Harbour has three extra parameters
(cRDD, nConnection, cCodePage). */

2
harbour/source/rdd/dbstrux.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "common.ch"
#include "dbstruct.ch"

2
harbour/source/rdd/dbtotal.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "common.ch"
#include "dbstruct.ch"
#include "error.ch"

2
harbour/source/rdd/dbupdat.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "common.ch"
FUNCTION __dbUpdate( cAlias, bKey, lRandom, bAssign )

2
harbour/source/rdd/rddord.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "common.ch"
#include "dbinfo.ch"

2
harbour/source/rtl/alert.prg
View File

@@ -23,8 +23,6 @@
*
*/
#include "hbsetup.ch"
#include "box.ch"
#include "common.ch"
#include "inkey.ch"

2
harbour/source/rtl/browdb.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
FUNCTION TBrowseDB( nTop, nLeft, nBottom, nRight )
LOCAL oBrowse := TBrowseNew( nTop, nLeft, nBottom, nRight )

2
harbour/source/rtl/browdbx.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
/* NOTE: Xbase++ has a standard function named dbSkipper(), it's not a
standard CA-Cl*pper 5.x function, though. */

1
harbour/source/rtl/checkbox.prg
View File

@@ -51,7 +51,6 @@
*/
#include "common.ch"
#include "hbsetup.ch"
#include "hbclass.ch"
#include "button.ch"

2
harbour/source/rtl/dircmd.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "directry.ch"
#include "fileio.ch"

1
harbour/source/rtl/getsys.prg
View File

@@ -62,7 +62,6 @@
*/
#include "common.ch"
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53
FUNCTION ReadModal( GetList, nPos, nMsgRow, nMsgLeft, nMsgRight, cMsgColor )

3
harbour/source/rtl/input.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#ifdef HB_C52_UNDOC
FUNCTION __Input( xPrompt )
@@ -60,4 +58,3 @@ FUNCTION __Input( xPrompt )
RETURN iif( Empty( cString ), NIL, &cString )
#endif

1
harbour/source/rtl/mssgline.prg
View File

@@ -50,7 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "hbclass.ch"
#ifdef HB_COMPAT_C53

1
harbour/source/rtl/pushbtn.prg
View File

@@ -50,7 +50,6 @@
*
*/
#include 'hbsetup.ch'
#include 'hbclass.ch'
#include "common.ch"

1
harbour/source/rtl/radiobtn.prg
View File

@@ -53,7 +53,6 @@
#include "common.ch"
#include "hbclass.ch"
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53
CLASS HBRadioButton

1
harbour/source/rtl/radiogrp.prg
View File

@@ -52,7 +52,6 @@
#include "common.ch"
#include "hbclass.ch"
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53
CLASS HBRadioGroup

1
harbour/source/rtl/setfunc.prg
View File

@@ -52,7 +52,6 @@
#include "inkey.ch"
#include "common.ch"
#include "hbsetup.ch"
PROCEDURE __SetFunction( nFunctionKey, cString )

2
harbour/source/rtl/setta.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#ifdef HB_C52_UNDOC
FUNCTION SetTypeahead( nSize )

1
harbour/source/rtl/tbcolumn.prg
View File

@@ -51,7 +51,6 @@
*/
#include "hbclass.ch"
#include "hbsetup.ch"
#include "common.ch"
#include "tbrowse.ch"

1
harbour/source/rtl/tget.prg
View File

@@ -51,7 +51,6 @@
*/
#include "hbclass.ch"
#include "hbsetup.ch"
#include "color.ch"
#include "common.ch"

1
harbour/source/rtl/tgetint.prg
View File

@@ -58,7 +58,6 @@
*/
#include "hbclass.ch"
#include "hbsetup.ch"
REQUEST HB_PVALUE
REQUEST PCOUNT

1
harbour/source/rtl/tmenuitm.prg
View File

@@ -52,7 +52,6 @@
#include "common.ch"
#include "button.ch"
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53

1
harbour/source/rtl/tpopup.prg
View File

@@ -54,7 +54,6 @@
#include "button.ch"
#include "color.ch"
#include "common.ch"
#include "hbsetup.ch"
#ifdef HB_COMPAT_C53

1
harbour/source/rtl/ttopbar.prg
View File

@@ -57,7 +57,6 @@
#include "inkey.ch"
#include "setcurs.ch"
#include "getexit.ch"
#include "hbsetup.ch"
#include "hbclass.ch"
#ifdef HB_COMPAT_C53

2
harbour/source/rtl/typefile.prg
View File

@@ -50,8 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "common.ch"
#include "error.ch"
#include "fileio.ch"

1
harbour/source/vm/harbinit.prg
View File

@@ -50,7 +50,6 @@
*
*/
#include "hbsetup.ch"
#include "inkey.ch"
ANNOUNCE SysInit

2
harbour/utils/hbrun/external.prg
View File

@@ -50,7 +50,5 @@
*
*/
#include "hbsetup.ch"
/* Fill it as needed */

4
harbour/utils/hbtest/rt_main.ch
View File

@@ -68,9 +68,7 @@
#define TEST_RESULT_COL4_WIDTH 85
#define TEST_RESULT_COL5_WIDTH 85
#ifdef __HARBOUR__
#include "hbsetup.ch"
#else
#ifndef __HARBOUR__
#define HB_C52_STRICT
#endif