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

2017-09-08 18:22 UTC Viktor Szakats (vszakats users.noreply.github.com)

Browse Source 
* bin/commit.hb
  * config/detect.mk
  * config/detfun.mk
  * config/detplat.mk
  * config/dir.mk
  * config/dirsh.mk
  * config/global.mk
  * config/globsh.mk
  * config/instsh.mk
  * config/lang.hb
  * config/lang2po.hb
  * config/po2lang.hb
  * config/postinst.hb
  * contrib/hbexpat/tests/tohash.prg
  * contrib/hbformat/utils/hbformat.ini
  * contrib/hbmisc/hbedit.prg
  * contrib/hbmxml/tests/testmxml.prg
  * contrib/hbnetio/utils/hbnetio/_console.prg
  * contrib/hbnetio/utils/hbnetio/_winsvc.prg
  * contrib/hbnetio/utils/hbnetio/hbnetio.prg
  * contrib/hbnetio/utils/hbnetio/netiomgm.hb
  * contrib/hbwin/tests/ole.prg
  * contrib/hbwin/tests/oletst2.js
  * contrib/hbwin/tests/oletst2.vbs
  * contrib/hbxpp/doc/en/binnumx.txt
  * contrib/hbxpp/doc/en/dbcmdx.txt
  * contrib/xhb/htmutil.prg
  * contrib/xhb/tfile.prg
  * contrib/xhb/tframe.prg
  * contrib/xhb/thtm.prg
  * ChangeLog.txt
  * debian/copyright
  * doc/class_tp.txt
  * doc/hdr_tpl.txt
  * doc/xhb-diff.txt
  * LICENSE.txt
  * package/harbour-wce.spec.in
  * package/harbour-win.spec.in
  * package/harbour.spec
  * package/mpkg_rpm_wce.sh
  * package/mpkg_rpm_win.sh
  * package/mpkg_rpm.sh
  * package/mpkg_src.sh
  * package/mpkg_ver.sh
  * src/rtl/achoice.prg
  * src/rtl/getsys53.prg
  * src/rtl/tgetlist.prg
  * src/rtl/tlabel.prg
  * src/rtl/tmenusys.prg
  * tests/hbdoc.prg
  * tests/langmsg.prg
  * tests/rto_get.prg
  * tests/rto_tb.prg
  + doc/en/ati.txt
  + doc/en/dirdrive.txt
  + doc/en/hashfunc.txt
  + doc/en/hbtoken.txt
  + doc/en/left.txt
  + doc/en/proc.txt
  + doc/en/strtran.txt
  + doc/en/transfrm.txt
  + doc/en/typefile.txt
  * doc/en/*
    * more partial sync with 3.4 fork
This commit is contained in:
Viktor Szakats
2017-09-08 18:25:11 +00:00
parent 5a2a287752
commit 03ac58b17b
108 changed files with 6588 additions and 5005 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
tests/hbdoc.prg
View File

@@ -2,7 +2,6 @@
* HBDOC reader test
*
* Copyright 2010 Viktor Szakats (vszakats.net/harbour)
*
*/
#include "directry.ch"

57
tests/langmsg.prg
View File

@@ -1,6 +1,6 @@
/*
* Copyright 2003 Przemyslaw Czerpak <druzus@polbox.com>
* See COPYING.txt for licensing terms.
* See LICENSE.txt for licensing terms.
*/
#include "hblang.ch"
@@ -9,7 +9,7 @@ PROCEDURE Main( cLng )
LOCAL i, a, aDay, aMnt, aErr, aInt, cDtFrm, cTrue, cFalse
hb_langSelect( "EN" )
hb_langSelect( "en" )
aDay := GET_DAYS()
aMnt := GET_MONTHS()
aErr := GET_ERR()
@@ -23,41 +23,41 @@ PROCEDURE Main( cLng )
ENDIF
? hb_langName()
? "HB_LANG_ITEM_BASE_ID ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_ID ) + "]"
? "HB_LANG_ITEM_BASE_MONTH ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_MONTH ) + "]"
? "HB_LANG_ITEM_BASE_DAY ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_DAY ) + "]"
? "HB_LANG_ITEM_BASE_NATMSG ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_NATMSG ) + "]"
? "HB_LANG_ITEM_BASE_ID ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_ID ) + "]"
? "HB_LANG_ITEM_BASE_MONTH ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_MONTH ) + "]"
? "HB_LANG_ITEM_BASE_DAY ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_DAY ) + "]"
? "HB_LANG_ITEM_BASE_NATMSG ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_NATMSG ) + "]"
? "HB_LANG_ITEM_BASE_ERRDESC", "[" + hb_langMessage( HB_LANG_ITEM_BASE_ERRDESC ) + "]"
? "HB_LANG_ITEM_BASE_ERRINTR", "[" + hb_langMessage( HB_LANG_ITEM_BASE_ERRINTR ) + "]"
? "HB_LANG_ITEM_BASE_TEXT ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_TEXT ) + "]"
? "HB_LANG_ITEM_BASE_TEXT ", "[" + hb_langMessage( HB_LANG_ITEM_BASE_TEXT ) + "]"
? "hb_langErrMsg(0)", hb_langErrMsg( 0 )
?
? "date format: " + hb_langMessage( HB_LANG_ITEM_BASE_TEXT ) + " (" + cDtFrm + ")"
? " TRUE val: " + hb_langMessage( HB_LANG_ITEM_BASE_TEXT + 1 ) + " (" + cTrue + ")"
? " FALSE val: " + hb_langMessage( HB_LANG_ITEM_BASE_TEXT + 2 ) + " (" + cFalse + ")"
? "date format:", hb_langMessage( HB_LANG_ITEM_BASE_TEXT ) + " (" + cDtFrm + ")"
? " TRUE val:", hb_langMessage( HB_LANG_ITEM_BASE_TEXT + 1 ) + " (" + cTrue + ")"
? " FALSE val:", hb_langMessage( HB_LANG_ITEM_BASE_TEXT + 2 ) + " (" + cFalse + ")"
?
Inkey( 0 )
? "Errors:"
? "-------"
?
a := GET_ERR()
FOR i := 1 TO Len( a )
? PadR( a[ i, 1 ], 15 ) + "|" + PadR( aErr[ i, 2 ], 30 ) + "|" + PadR( a[ i, 2 ], 32 )
? PadR( a[ i ][ 1 ], 15 ) + "|" + PadR( aErr[ i ][ 2 ], 30 ) + "|" + PadR( a[ i ][ 2 ], 32 )
NEXT
?
Inkey( 0 )
? "Internal errors:"
? "----------------"
?
a := GET_IERR()
FOR i := 1 TO Len( a )
? PadR( a[ i, 1 ], 15 ) + "|" + PadR( aInt[ i, 2 ], 30 ) + "|" + PadR( a[ i, 2 ], 32 )
? PadR( a[ i ][ 1 ], 15 ) + "|" + PadR( aInt[ i ][ 2 ], 30 ) + "|" + PadR( a[ i ][ 2 ], 32 )
NEXT
?
Inkey( 0 )
? "Days:"
? "-----"
?
a := GET_DAYS()
FOR i := 1 TO Len( a )
? " " + PadR( aDay[ i ], 15 ) + a[ i ]
@@ -66,7 +66,7 @@ PROCEDURE Main( cLng )
Inkey( 0 )
? "Months:"
? "-------"
?
a := GET_MONTHS()
FOR i := 1 TO Len( a )
? " " + PadR( aMnt[ i ], 15 ) + a[ i ]
@@ -76,7 +76,7 @@ PROCEDURE Main( cLng )
RETURN
FUNCTION GET_DAYS()
STATIC FUNCTION GET_DAYS()
LOCAL i, n, aDays[ 7 ], dt := Date()
@@ -88,7 +88,7 @@ FUNCTION GET_DAYS()
RETURN aDays
FUNCTION GET_MONTHS()
STATIC FUNCTION GET_MONTHS()
LOCAL i, n, aMonths[ 12 ], dt := Date()
@@ -102,11 +102,8 @@ FUNCTION GET_MONTHS()
RETURN aMonths
FUNCTION GET_ERR()
LOCAL aErr
aErr := { ;
STATIC FUNCTION GET_ERR()
RETURN { ;
{ "EG_ARG ", hb_langErrMsg( 1 ) }, ;
{ "EG_BOUND ", hb_langErrMsg( 2 ) }, ;
{ "EG_STROVERFLOW ", hb_langErrMsg( 3 ) }, ;
@@ -158,17 +155,11 @@ FUNCTION GET_ERR()
{ "EG_NOTARRAY ", hb_langErrMsg( 49 ) }, ;
{ "EG_CONDITION ", hb_langErrMsg( 50 ) } }
RETURN aErr
FUNCTION HB_LANGERRINTR( n )
STATIC FUNCTION HB_LANGERRINTR( n )
RETURN hb_langMessage( HB_LANG_ITEM_BASE_ERRINTR + n - 9000 )
FUNCTION GET_IERR()
LOCAL aErr
aErr := { ;
STATIC FUNCTION GET_IERR()
RETURN { ;
{ "HB_EI_ERRUNRECOV ", HB_LANGERRINTR( 9000 ) }, ;
{ "HB_EI_ERRRECFAILURE ", HB_LANGERRINTR( 9001 ) }, ;
{ "HB_EI_ERRNOBLOCK ", HB_LANGERRINTR( 9002 ) }, ;
@@ -195,5 +186,3 @@ FUNCTION GET_IERR()
{ "HB_EI_XGRABNULLSIZE ", HB_LANGERRINTR( 9023 ) }, ;
{ "HB_EI_XREALLOCNULLSIZE", HB_LANGERRINTR( 9024 ) }, ;
{ "HB_EI_XALLOCNULLSIZE ", HB_LANGERRINTR( 9025 ) } }
RETURN aErr

6
tests/rto_get.prg
View File

@@ -51,11 +51,11 @@
#include "inkey.ch"
#ifndef __HARBOUR__
#define hb_eol() ( Chr( 13 ) + Chr( 10 ) )
#define hb_ntos( n ) LTrim( Str( n ) )
#define hb_eol() ( Chr( 13 ) + Chr( 10 ) )
#define hb_ntos( n ) LTrim( Str( n ) )
#endif
#translate TEST_LINE( <x> ) => TEST_CALL( o, #<x>, {|| <x> } )
#xtranslate TEST_LINE( <x> ) => TEST_CALL( o, #<x>, {|| <x> } )
STATIC s_cTest := ""
STATIC s_xVar := NIL

23
tests/rto_tb.prg
View File

@@ -1,7 +1,8 @@
/*
* Regression tests for classes TBrowse/TBColumn
* Regression tests for classes TBrowse()/TBColumn()
*
* Copyright 1999-2007 Viktor Szakats (vszakats.net/harbour)
* Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl> (eInstVar() - from RTL)
*
* 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
@@ -44,35 +45,25 @@
*
*/
/*
* The following parts are Copyright of the individual authors.
*
* Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
* eInstVar() (from RTL)
*
* See COPYING.txt for licensing terms.
*
*/
/* NOTE: This source can be compiled with both Harbour and CA-Cl*pper. */
#include "error.ch"
#include "fileio.ch"
#ifndef __HARBOUR__
#define hb_eol() ( Chr( 13 ) + Chr( 10 ) )
#define hb_ntos( n ) LTrim( Str( n ) )
#define hb_eol() ( Chr( 13 ) + Chr( 10 ) )
#define hb_ntos( n ) LTrim( Str( n ) )
#endif
#ifdef __XHARBOUR__
#ifndef HB_COMPAT_C53
/* It makes xhb crash. */
/* It makes xHarbour crash. */
/* #define HB_COMPAT_C53 */
#endif
#endif
#translate TEST_L_TBR( <x> ) => TEST_C_TBR( o, #<x>, {|| <x> } )
#translate TEST_L_TBC( <x> ) => TEST_C_TBC( o, #<x>, {|| <x> } )
#xtranslate TEST_L_TBR( <x> ) => TEST_C_TBR( o, #<x>, {|| <x> } )
#xtranslate TEST_L_TBC( <x> ) => TEST_C_TBC( o, #<x>, {|| <x> } )
STATIC s_cTest := ""
STATIC s_xVar := NIL