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

20000214-07:50 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-02-14 06:54:30 +00:00
parent 7426d18439
commit 7928a16138
68 changed files with 157 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/ChangeLog
View File

@@ -1,3 +1,20 @@
20000214-07:50 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/rtl/mouse/mousedos.c
! static variables marked as static.
* source/rtl/dates.c
- QUESTION removed.
* source/rtl/*
source/rtl/mouse/*
source/rtl/gt/*
source/common/*
source/compiler/*
source/rdd/*
source/vm/*
source/tools/*
tests/*
tests/regress/*
* Name change.
20000214-06:32 GMT+1 Victor Szakats <info@szelvesz.hu>
* *.bat
+ .LOG file is only shown when there was some error.

2
harbour/source/common/hbfsapi.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Harbour common FileSys API (accessed from standalone utilities and the RTL)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/common/hbstr.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Harbour common string functions (accessed from standalone utilities and the RTL)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/common/hbtrace.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_traceenable()
* hb_traceenabled()
*

4
harbour/source/compiler/cmdcheck.c
View File

@@ -42,7 +42,7 @@
* hb_compCheckPaths()
* AddSearchPath()
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* PackDateTime()
*
* See doc/license.txt for licensing terms.
@@ -85,7 +85,7 @@ static void AddSearchPath( char * szPath, PATHNAMES * * pSearchList )
is only stored in 6 bits, 1980 will result in the same bit pattern
as 2044. The purpose of this value is only used to *differenciate*
between the dates ( the exact dates are not significant ), so this
can be used here without problems. [vszel] */
can be used here without problems. [vszakats] */
/* 76543210765432107654321076543210
|.......|.......|.......|.......

2
harbour/source/rdd/dbnubs.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Internal versions for database version (Clipper undocumented)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

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

@@ -6,7 +6,7 @@
* Harbour Project source code:
* ADIR() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/rtl/binnum.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* BIN2U()
* W2BIN()
* U2BIN()

2
harbour/source/rtl/break.c
View File

@@ -68,7 +68,7 @@
/* NOTE: This function should normally have a parameter count check. But
since in Harbour we cannot distinguish between BREAK() function and
the BREAK statement, because both generate a BREAK() function
call on the pcode level, we should drop the checking. [vszel] */
call on the pcode level, we should drop the checking. [vszakats] */
HARBOUR HB_BREAK( void )
{

6
harbour/source/rtl/dates.c
View File

@@ -55,7 +55,7 @@
* HB_DATE()
* hb_dtoc()
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_dateEncStr()
* hb_dateDecStr()
* hb_dateStrPut()
@@ -536,10 +536,6 @@ HARBOUR HB_DTOC( void )
}
}
/* QUESTION: Should we drop error checkings to make it faster ? */
/* This function may be called many times in a real world */
/* application, for example in index creation. */
/* Clipper does these checks, anyway. */
HARBOUR HB_DTOS( void )
{
if( ISDATE( 1 ) )

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

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Dummy functions until they are not implemented
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

4
harbour/source/rtl/empty.c
View File

@@ -76,7 +76,7 @@ HARBOUR HB_EMPTY( void )
/* NOTE: Double safety to ensure that a parameter was really passed,
compiler checks this, but a direct hb_vmDo() call
may not do so. [vszel] */
may not do so. [vszakats] */
if( pItem )
{
@@ -104,7 +104,7 @@ HARBOUR HB_EMPTY( void )
break;
case IT_DATE:
/* NOTE: This is correct ! Get the date as long value. */
/* NOTE: This is correct ! Get the date as long value. [vszakats] */
hb_retl( hb_itemGetNL( pItem ) == 0 );
break;

20
harbour/source/rtl/errorapi.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* HB___ERRINHANDLER()
* HB_DOSERROR()
* hb_errLaunch()
@@ -75,8 +75,9 @@ static USHORT s_uiErrorDOS = 0; /* The value of DOSERROR() */
extern HARBOUR HB_ERRORNEW( void );
/* NOTE: This is called via its symbol name, so we should make sure */
/* that it gets linked. WARNING ! DON'T make this function static. */
/* NOTE: This is called via its symbol name, so we should make sure
that it gets linked. WARNING ! DON'T make this function static.
[vszakats] */
void hb_errForceLink()
{
HB_TRACE(HB_TR_DEBUG, ("hb_errForceLink()"));
@@ -85,7 +86,7 @@ void hb_errForceLink()
}
/* There's a similar undocumented, internal functions in CA-Cl*pper named
ErrorInHandler(). */
ErrorInHandler(). [vszakats] */
HARBOUR HB___ERRINHANDLER( void )
{
@@ -121,7 +122,7 @@ HB_ERROR_INFO_PTR hb_errorHandler( HB_ERROR_INFO_PTR pNewHandler )
return pOld;
}
/* TOFIX: Make it Clipper compatible */
/* TOFIX: Make it Clipper compatible. [vszakats] */
HARBOUR HB_DOSERROR( void )
{
@@ -262,9 +263,10 @@ USHORT hb_errLaunch( PHB_ITEM pError )
/* NOTE: This should only be called when the EF_CANSUBSTITUE flag was set
Since it this case the error handler will return the value
to be substituted */
to be substituted. [vszakats] */
/* NOTE: The item pointer returned should be hb_itemRelease()-d by the
caller if it was not NULL. */
caller if it was not NULL. [vszakats] */
PHB_ITEM hb_errLaunchSubst( PHB_ITEM pError )
{
@@ -339,7 +341,7 @@ void hb_errRelease( PHB_ITEM pError )
{
HB_TRACE(HB_TR_DEBUG, ("hb_errRelease(%p)", pError));
/* NOTE: NULL pointer is checked by hb_itemRelease() */
/* NOTE: NULL pointer is checked by hb_itemRelease() [vszakats] */
hb_itemRelease( pError );
}
@@ -782,7 +784,7 @@ USHORT hb_errRT_TOOLS( ULONG ulGenCode, ULONG ulSubCode, char * szDescription, c
}
/* NOTE: Use as minimal calls from here, as possible. */
/* Don't allocate memory from this function. */
/* Don't allocate memory from this function. [vszakats] */
void hb_errInternal( ULONG ulIntCode, char * szText, char * szPar1, char * szPar2 )
{

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

@@ -172,7 +172,7 @@ STATIC FUNCTION DefError( oError )
RETURN .F.
// [vszel]
// [vszakats]
STATIC FUNCTION ErrorMessage( oError )
LOCAL cMessage

11
harbour/source/rtl/extend.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_retnlen()
* hb_retnilen()
* hb_retnllen()
@@ -81,7 +81,8 @@ PHB_ITEM hb_param( int iParam, int iMask )
return NULL;
}
/* NOTE: Caller should not modify the buffer returned by this function */
/* NOTE: Caller should not modify the buffer returned by this function.
[vszakats] */
char * hb_parc( int iParam, ... )
{
@@ -155,7 +156,7 @@ ULONG hb_parclen( int iParam, ... )
/* NOTE: Similar to _parclen() but returns the length including the
terminating zero byte, and it only works for parameters passed by
reference. */
reference. [vszakats] */
ULONG hb_parcsiz( int iParam, ... )
{
@@ -171,7 +172,7 @@ ULONG hb_parcsiz( int iParam, ... )
pItem = hb_stack.pBase + 1 + iParam;
/* NOTE: hb_parcsiz() will only work for strings passed by reference.
CA-Cl*pper works like this. */
CA-Cl*pper works like this. [vszakats] */
if( IS_BYREF( pItem ) )
{
@@ -235,7 +236,7 @@ char * hb_pards( int iParam, ... )
return hb_dateDecStr( hb_stack.szDate, 0 );
}
/* NOTE: szDate must be a 9 chars wide buffer. */
/* NOTE: szDate must be a 9 chars wide buffer. [vszakats] */
char * hb_pardsbuff( char * szDate, int iParam, ... )
{

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

@@ -6,7 +6,7 @@
* Harbour Project source code:
* FIELDBLOCK() and FIELDWBLOCK() functions
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

9
harbour/source/rtl/fm.c
View File

@@ -41,7 +41,7 @@
* hb_xmemcpy()
* hb_xmemset()
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_xquery()
* HB_MEMORY()
*
@@ -52,7 +52,8 @@
/* NOTE: If you turn this on, the memory subsystem will collect information
about several statistical data about memory management, it will show
these on exit if memory seem to have leaked.
This should be normally turned off in a final release */
This should be normally turned off in a final release
[vszakats] */
#define HB_FM_STATISTICS
/* NOTE: The following #include "hbwinapi.h" must
@@ -357,7 +358,7 @@ void hb_xfree( void * pMem ) /* frees fixed memory */
}
/* NOTE: Debug function, it will always return 0 when HB_FM_STATISTICS is
not defined, don't use it for final code [vszel] */
not defined, don't use it for final code [vszakats] */
ULONG hb_xsize( void * pMem ) /* returns the size of an allocated memory block */
{
@@ -487,7 +488,7 @@ ULONG hb_xquery( USHORT uiMode )
HB_TRACE(HB_TR_DEBUG, ("hb_xquery(%hu)", uiMode));
/* TODO: Return the correct values instead of 9999 [vszel] */
/* TODO: Return the correct values instead of 9999 [vszakats] */
switch( uiMode )
{

4
harbour/source/rtl/gt/gtdos.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_gt_CtrlBrkHandler()
* hb_gt_CtrlBrkRestore()
*
@@ -141,7 +141,7 @@ void hb_gt_Init( void )
__djgpp_set_sigquit_key( 0 ); /* Disable Ctrl+\ */
#else
/* Set the Ctrl+Break handler [vszel] */
/* Set the Ctrl+Break handler [vszakats] */
#if defined(__WATCOMC__)
signal( SIGBREAK, hb_gt_Watcom_CtrlBreak_Handler );

2
harbour/source/rtl/gt/gtstd.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Video subsystem for plain ANSI C stream IO
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

6
harbour/source/rtl/gt/gtwin.c
View File

@@ -38,7 +38,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_gt_CtrlHandler()
*
* See doc/license.txt for licensing terms.
@@ -128,7 +128,7 @@ void hb_gt_Init( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_gt_Init()"));
/* Add Ctrl+Break handler [vszel] */
/* Add Ctrl+Break handler [vszakats] */
SetConsoleCtrlHandler( hb_gt_CtrlHandler, TRUE );
if( ( hb_gtHInput = GetStdHandle( STD_INPUT_HANDLE ) ) == INVALID_HANDLE_VALUE )
@@ -211,7 +211,7 @@ void hb_gt_Done( void )
CloseHandle( s_HInactive );
s_HInactive = INVALID_HANDLE_VALUE;
/* Remove Ctrl+Break handler [vszel] */
/* Remove Ctrl+Break handler [vszakats] */
SetConsoleCtrlHandler( hb_gt_CtrlHandler, FALSE );
}

2
harbour/source/rtl/gtapi.c
View File

@@ -114,7 +114,7 @@
* hb_gtSetColorStr()
* hb_gtSetMode()
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* hb_gtDrawShadow()
*
* See doc/license.txt for licensing terms.

7
harbour/source/rtl/isprint.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* ISPRINTER() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -66,7 +66,7 @@
#endif
/* NOTE: The parameter is an extension over CA-Cl*pper, it's also supported
by XBase++ */
by XBase++. [vszakats] */
HARBOUR HB_ISPRINTER( void )
{
@@ -105,7 +105,8 @@ HARBOUR HB_ISPRINTER( void )
on any platform, but the result may not be the expected one,
since Unix/Linux doesn't support LPT/COM by nature, other OSs
may not reflect the actual physical presence of the printer when
trying to open it, since we are talking to the spooler. */
trying to open it, since we are talking to the spooler.
[vszakats] */
if( ( hb_strnicmp( pszDOSPort, "LPT", 3 ) == 0 ||
hb_strnicmp( pszDOSPort, "COM", 3 ) == 0 ) && uiPort > 0 )

2
harbour/source/rtl/langapi.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* The Language API
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/rtl/len.c
View File

@@ -79,7 +79,7 @@ HARBOUR HB_LEN( void )
/* NOTE: Double safety to ensure that a parameter was really passed,
compiler checks this, but a direct hb_vmDo() call
may not do so. [vszel] */
may not do so. [vszakats] */
if( pItem )
{

10
harbour/source/rtl/memofile.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* MEMOWRIT()/MEMOREAD() functions
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -38,7 +38,8 @@
#include "filesys.h"
/* NOTE: CA-Clipper has 64K (65516 bytes exactly) limit on read, in Harbour
this limit is extended, so we are not *stricly* compatible here. */
this limit is extended, so we are not *stricly* compatible here.
[vszakats] */
HARBOUR HB_MEMOREAD( void )
{
@@ -98,8 +99,8 @@ HARBOUR HB_MEMOWRIT( void )
bRetVal = ( hb_fsWriteLarge( fhnd, ( BYTE * ) hb_itemGetCPtr( pString ), ulSize ) == ulSize );
/* NOTE: CA-Clipper will add the EOF even if the write failed. */
/* NOTE: CA-Clipper will not return .F. when the EOF could not be written. */
/* NOTE: CA-Clipper will add the EOF even if the write failed. [vszakats] */
/* NOTE: CA-Clipper will not return .F. when the EOF could not be written. [vszakats] */
#if ! defined(HB_OS_UNIX_COMPATIBLE)
{
BYTE byEOF = HB_CHAR_EOF;
@@ -115,4 +116,3 @@ HARBOUR HB_MEMOWRIT( void )
hb_retl( bRetVal );
}

16
harbour/source/rtl/memvars.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* HB___MVSAVE()
* HB___MVRESTORE() (Thanks to Dave Pearson and Jo French for the original
* Clipper function (FReadMem()) to read .MEM files)
@@ -609,7 +609,7 @@ static void hb_memvarCreateFromDynSymbol( PHB_DYNS pDynVar, BYTE bScope, PHB_ITE
s_globalTable[ pDynVar->hMemvar ].item.type = IT_LOGICAL;
/* NOTE: PUBLIC variables named CLIPPER and HARBOUR are initialized */
/* to .T., this is normal Clipper behaviour */
/* to .T., this is normal Clipper behaviour. [vszakats] */
if( strcmp( pDynVar->pSymbol->szName, "HARBOUR" ) == 0 ||
strcmp( pDynVar->pSymbol->szName, "CLIPPER" ) == 0 )
@@ -1719,7 +1719,8 @@ HARBOUR HB___MVSAVE( void )
pDynVar = s_privateStack[ ulBase ];
/* NOTE: Harbour name lengths are not limited, but the .MEM file
structure is not flexible enough to allow for it. */
structure is not flexible enough to allow for it.
[vszakats] */
if( pDynVar->hMemvar )
{
BOOL bMatch = ( pszMask[ 0 ] == '*' || hb_strMatchRegExp( pDynVar->pSymbol->szName, pszMask ) );
@@ -1730,7 +1731,7 @@ HARBOUR HB___MVSAVE( void )
PHB_ITEM pItem = &s_globalTable[ pDynVar->hMemvar ].item;
/* NOTE: Clipper will not initialize the record buffer with
zeros, so they will look trashed. [vszel] */
zeros, so they will look trashed. [vszakats] */
memset( buffer, 0, HB_MEM_REC_LEN );
/* NOTE: Save only the first 10 characters of the name */
@@ -1759,10 +1760,10 @@ HARBOUR HB___MVSAVE( void )
buffer[ 11 ] = 'N' + 128;
#ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY
/* NOTE: This is the buggy, but fully CA-Cl*pper compatible method. */
/* NOTE: This is the buggy, but fully CA-Cl*pper compatible method. [vszakats] */
buffer[ 16 ] = ( BYTE ) iWidth + ( IS_DOUBLE( pItem ) ? iDec + 1 : 0 );
#else
/* NOTE: This would be the correct method, but Clipper is buggy here. */
/* NOTE: This would be the correct method, but Clipper is buggy here. [vszakats] */
buffer[ 16 ] = ( BYTE ) iWidth + ( iDec == 0 ? 0 : iDec + 1 );
#endif
buffer[ 17 ] = ( BYTE ) iDec;
@@ -1809,7 +1810,8 @@ HARBOUR HB___MVSAVE( void )
}
/* NOTE: There's an extension in Harbour, which makes it possible to only
load (or not load) variable names with a specific name mask. */
load (or not load) variable names with a specific name mask.
[vszakats] */
HARBOUR HB___MVRESTORE( void )
{

4
harbour/source/rtl/menuto.prg
View File

@@ -15,7 +15,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* Changes for higher Clipper compatibility
*
* Copyright 1999 Chen Kedem <niki@actcom.co.il>
@@ -26,7 +26,7 @@
*
*/
/* NOTE: Recursive use is supported */
/* NOTE: Recursive use is supported. */
#include "color.ch"
#include "common.ch"

10
harbour/source/rtl/mouse/mousedos.c
View File

@@ -47,11 +47,11 @@
/* C callable low-level interface */
BOOL s_bPresent = FALSE; /* Is there a mouse ? */
int s_iButtons = 0; /* Mouse buttons */
int s_iCursorVisible = 0; /* Is mouse cursor visible ? */
int s_iInitCol = 0; /* Init mouse pos */
int s_iInitRow = 0; /* Init mouse pos */
static BOOL s_bPresent = FALSE; /* Is there a mouse ? */
static int s_iButtons = 0; /* Mouse buttons */
static int s_iCursorVisible = 0; /* Is mouse cursor visible ? */
static int s_iInitCol = 0; /* Init mouse pos */
static int s_iInitRow = 0; /* Init mouse pos */
void hb_mouse_Init( void )
{

4
harbour/source/rtl/mouse/mousestd.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Mouse subsystem for plain ANSI C stream IO (stub)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -36,7 +36,7 @@
#include "mouseapi.h"
/* NOTE: This file is a simple stub for those platforms which don't have
any kind of mouse support. */
any kind of mouse support. [vszakats] */
/* C callable low-level interface */

13
harbour/source/rtl/natmsg.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* HB__NATSORTVER()
* HB__NATMSGVER()
*
@@ -52,7 +52,8 @@
/* TODO: Use the Language API to retrieve these strings. */
/* NOTE: Ad-hoc names mostly taken from various Clipper source files.
These should be named properly if exported outside this file. */
These should be named properly if exported outside this file.
[vszakats] */
#define _DIR_HEADER 1 /* "Database Files # Records Last Update Size" */
#define _LF_SAMPLES 2 /* "Do you want more samples?" */
@@ -65,7 +66,7 @@
#define _GET_INVD_DATE 9 /* "Invalid Date" */
#define _GET_RANGE_FROM 10 /* "Range: " */
#define _GET_RANGE_TO 11 /* " - " */
#define _LF_YN 12 /* "Y/N" */ /* NOTE: This should be in uppercase. */
#define _LF_YN 12 /* "Y/N" */ /* NOTE: This must be in uppercase. [vszakats] */
#define _INVALID_EXPR 13 /* "INVALID EXPRESSION" */
static char * s_szMessages[] =
@@ -209,7 +210,8 @@ HARBOUR HB_NATIONMSG( void )
hb_retc( "" );
}
/* NOTE: Intentionally using one leading underscore, like in Clipper */
/* NOTE: Intentionally using one leading underscore, like in Clipper.
[vszakats] */
HARBOUR HB__NATSORTVER( void )
{
@@ -219,7 +221,8 @@ HARBOUR HB__NATSORTVER( void )
hb_retc( "NATSORT (Harbour)" );
}
/* NOTE: Intentionally using one leading underscore, like in Clipper */
/* NOTE: Intentionally using one leading underscore, like in Clipper.
[vszakats] */
HARBOUR HB__NATMSGVER( void )
{

5
harbour/source/rtl/net.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* NETNAME() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -40,7 +40,8 @@
#include "extend.h"
/* TODO: Implement NETNAME() for other platforms */
/* NOTE: Clipper will only return a maximum of 15 bytes from this function. */
/* NOTE: Clipper will only return a maximum of 15 bytes from this function.
[vszakats] */
/* NOTE: DOS instructions:

2
harbour/source/rtl/oemansi.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* OEM <-> ANSI string conversion functions (Win32 specific, XBase++ ext.)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/rtl/oldclear.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* __ATCLEAR(), __CLEAR() undocumented functions
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

4
harbour/source/rtl/proc.c
View File

@@ -37,7 +37,7 @@
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* HB_PROCFILE()
*
* See doc/license.txt for licensing terms.
@@ -194,7 +194,7 @@ HARBOUR HB_PROCLINE( void )
*/
/* NOTE: Clipper undocumented function, which always returns an empty
string. */
string. [vszakats] */
HARBOUR HB_PROCFILE( void )
{

11
harbour/source/rtl/readkey.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* READKEY() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -101,12 +101,12 @@ FUNCTION ReadKey()
LOCAL nKey := LastKey()
DO CASE
CASE nKey == K_UP ; nKey := 4 // NOTE: NG says 5 incorrectly
CASE nKey == K_DOWN ; nKey := 5 // NOTE: NG says 2 incorrectly
CASE nKey == K_UP ; nKey := 4 /* NOTE: NG says 5 incorrectly */
CASE nKey == K_DOWN ; nKey := 5 /* NOTE: NG says 2 incorrectly */
CASE nKey == K_PGUP ; nKey := 6
CASE nKey == K_PGDN ; nKey := 7
CASE nKey == K_CTRL_PGUP ; nKey := 34 // NOTE: NG says 31 incorrectly
CASE nKey == K_CTRL_PGDN ; nKey := 35 // NOTE: NG says 30 incorrectly
CASE nKey == K_CTRL_PGUP ; nKey := 34 /* NOTE: NG says 31 incorrectly */
CASE nKey == K_CTRL_PGDN ; nKey := 35 /* NOTE: NG says 30 incorrectly */
CASE nKey == K_ESC ; nKey := 12
CASE nKey == K_CTRL_W ; nKey := 14
CASE nKey == K_ENTER ; nKey := 15
@@ -119,3 +119,4 @@ FUNCTION ReadKey()
ENDIF
RETURN nKey

4
harbour/source/rtl/samples.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Compatibility functions from the SAMPLES directory of Clipper.
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -36,7 +36,7 @@
#include "extend.h"
#include "itemapi.h"
/* NOTE: szTime must be 9 chars large */
/* NOTE: szTime must be 9 chars large. */
static char * hb_SecToTimeStr( char * pszTime, ULONG ulTime )
{

13
harbour/source/rtl/set.c
View File

@@ -65,12 +65,12 @@
* character from the end of the file.
* V 1.67 David G. Holm Corrected file open/create logic
* in open_handle() function.
* V 1.64 Victor Szel Converted to use the FS API.
* V 1.64 Victor Szakats Converted to use the FS API.
* hb_err*() handles E_BREAK.
* extrahan closing mode on exit fixed.
* V 1.62 Paul Tucker Converted HB_SET_DEBUG back to Logical.
* Clipper 5.3 docs are incorrect on this.
* V 1.51 Victor Szel #include <x> changed to #include "x".
* V 1.51 Victor Szakats #include <x> changed to #include "x".
* V 1.49 Paul Tucker Changed parameter passing checks
* in call to hb_setColor() to account
* for no or NIL parameters.
@@ -108,9 +108,9 @@
* V 1.35 Ryszard Glab Changed to use the new HB_ITEM.
* Changed to automatically register
* symbol table.
* V 1.34 Victor Szel Added four Clipper-compatible error
* V 1.34 Victor Szakats Added four Clipper-compatible error
* reports.
* V 1.33 Victor Szel InitializeSets() changed to
* V 1.33 Victor Szakats InitializeSets() changed to
* hb_setInitialize() and ReleaseSets()
* changed to hb_setRelease().
* V 1.32 David G. Holm Minor change in last if block in
@@ -318,7 +318,7 @@ static FHANDLE open_handle( char * file_name, BOOL bAppend, char * def_ext, HB_s
/* Open the file either in append (bAppend) or truncate mode (!bAppend), but
always use binary mode */
/* QUESTION: What sharing mode does Clipper use ? [vszel] */
/* QUESTION: What sharing mode does Clipper use ? [vszakats] */
handle = FS_ERROR;
while( handle == FS_ERROR )
@@ -364,7 +364,8 @@ static FHANDLE open_handle( char * file_name, BOOL bAppend, char * def_ext, HB_s
{
USHORT uiAction;
/* NOTE: using switch() here will result in a compiler warning */
/* NOTE: using switch() here will result in a compiler warning.
[vszakats] */
if( set_specifier == HB_SET_ALTFILE )
uiAction = hb_errRT_TERM( EG_CREATE, 2013, NULL, path, hb_fsError(), EF_CANDEFAULT | EF_CANRETRY );
else if( set_specifier == HB_SET_PRINTFILE )

6
harbour/source/rtl/soundex.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* SOUNDEX() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -46,7 +46,7 @@ HARBOUR HB_SOUNDEX( void )
char szResult[ SOUNDEX_LEN_MAX + 1 ];
/* NOTE: The result will always be a zero terminated string without any
embedded zeros and special characters. */
embedded zeros and special characters. [vszakats] */
memset( szResult, '0', SOUNDEX_LEN_MAX );
szResult[ SOUNDEX_LEN_MAX ] = '\0';
@@ -66,7 +66,7 @@ HARBOUR HB_SOUNDEX( void )
/* NOTE: Intentionally not using toupper()/isalpha() to be 100%
Clipper compatible here, these ANSI C functions may behave
differently for accented and national characters. It's also
faster this way. */
faster this way. [vszakats] */
/* Convert to uppercase: toupper() */
if( cChar >= 'a' && cChar <= 'z' )

2
harbour/source/rtl/transfrm.c
View File

@@ -56,7 +56,7 @@
#define PF_LEFT 0x0001 /* @B */
#define PF_CREDIT 0x0002 /* @C */
#define PF_DEBIT 0x0004 /* @X */
#define PF_ZERO 0x0008 /* @0 */ /* NOTE: This is a Harbour extension [vszel] */
#define PF_ZERO 0x0008 /* @0 */ /* NOTE: This is a Harbour extension [vszakats] */
#define PF_PARNEG 0x0010 /* @( */
#define PF_REMAIN 0x0020 /* @R */
#define PF_UPPER 0x0040 /* @! */

2
harbour/source/rtl/valtype.c
View File

@@ -123,7 +123,7 @@ HARBOUR HB_VALTYPE( void )
/* NOTE: Double safety to ensure that a parameter was really passed,
compiler checks this, but a direct hb_vmDo() call
may not do so. [vszel] */
may not do so. [vszakats] */
if( pItem )
hb_retc( hb_valtypeGet( pItem ) );

2
harbour/source/rtl/word.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* WORD() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/rtl/xhelp.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* __XHELP() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/ctchksum.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* CT_CHECKSUM() CA-Tools function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/ctchrmix.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* CT_CHARMIX() CA-Tools compatible function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/ctcrypt.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* CT_CRYPT() CA-Tools compatible function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/numtxthu.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* NumToTxtHU() function to convert a number to Hungarian text
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/strfmt.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* STRFORMAT() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/vm/cmdarg.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Command line and environment argument management
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

4
harbour/source/vm/dynsym.c
View File

@@ -136,7 +136,7 @@ PHB_DYNS hb_dynsymGet( char * szName ) /* finds and creates a symbol if not fou
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymGet(%s)", szName));
/* make a copy as we may get a const string, then turn it to uppercase */
/* NOTE: This block is optimized for speed [vszel] */
/* NOTE: This block is optimized for speed [vszakats] */
{
int iLen = strlen( szName );
char * pDest = szUprName;
@@ -166,7 +166,7 @@ PHB_DYNS hb_dynsymFindName( char * szName ) /* finds a symbol */
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymFindName(%s)", szName));
/* make a copy as we may get a const string, then turn it to uppercase */
/* NOTE: This block is optimized for speed [vszel] */
/* NOTE: This block is optimized for speed [vszakats] */
{
int iLen = strlen( szName );
char * pDest = szUprName;

6
harbour/source/vm/hvm.c
View File

@@ -2507,7 +2507,7 @@ void hb_vmDo( USHORT uiParams )
if( ! IS_SYMBOL( pItem ) )
{
/* QUESTION: Is this call needed ? [vszel] */
/* QUESTION: Is this call needed ? [vszakats] */
hb_stackDispLocal();
hb_errInternal( 9999, "Symbol item expected as a base from hb_vmDo()", NULL, NULL );
}
@@ -2515,7 +2515,7 @@ void hb_vmDo( USHORT uiParams )
#if 0
if( ! IS_NIL( pSelf ) )
{
/* QUESTION: Is this call needed ? [vszel] */
/* QUESTION: Is this call needed ? [vszakats] */
hb_stackDispLocal();
hb_errInternal( 9999, "Invalid symbol type for self from hb_vmDo()", NULL, NULL );
}
@@ -3754,7 +3754,7 @@ HARBOUR HB_ERRORLEVEL( void )
hb_retni( s_byErrorLevel );
/* NOTE: This should be ISNUM( 1 ), but it's sort of a Clipper bug that it
accepts other types also and consider them zero. [vszel] */
accepts other types also and consider them zero. [vszakats] */
if( hb_pcount() >= 1 )
/* Only replace the error level if a parameter was passed */

2
harbour/source/vm/main.c
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Main entry point selector file
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

8
harbour/tests/fortest.prg
View File

@@ -3,12 +3,8 @@
//
// Testing Harbour For Next loops for Clipper compatibility
//
// Written by Victor Szel <info@szelvesz.hu>
// www - http://www.harbour-project.org
//
// Placed in the public domain
//
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
// TODO: add test for "step 0"

2
harbour/tests/lnlenli1.prg
View File

@@ -4,7 +4,7 @@
//
// ; Pushing Harbour preprocessor to the line length limit.
// ; Donated to the public domain by Victor Szel <info@szelvesz.hu>
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
FUNCTION Main()

2
harbour/tests/lnlenli2.prg
View File

@@ -4,7 +4,7 @@
//
// ; Pushing Harbour to the line length limit.
// ; Donated to the public domain by Victor Szel <info@szelvesz.hu>
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
FUNCTION Main()

2
harbour/tests/memfile.prg
View File

@@ -2,7 +2,7 @@
* $Id$
*/
/* ; Donated to the public domain by Victor Szel <info@szelvesz.hu> */
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
MEMVAR mcLongerNameThen10Chars
#ifdef __HARBOUR__

2
harbour/tests/memory.prg
View File

@@ -2,7 +2,7 @@
* $Id$
*/
/* ; Donated to the public domain by Victor Szel <info@szelvesz.hu> */
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
#include "hbmemory.ch"

2
harbour/tests/regress/rt_array.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (array)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_date.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (date)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_file.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (file)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_hvm.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (HVM)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_main.ch
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (header and common code)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_main.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (main)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_math.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (math)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_misc.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (misc)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_str.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (strings)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/regress/rt_trans.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Regression tests for the runtime library (strings)
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Copyright 1999 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/tests/statinit.prg
View File

@@ -2,7 +2,7 @@
// $Id$
//
// ; Donated to the public domain by Victor Szel <info@szelvesz.hu>
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
MEMVAR cMyPubVar

2
harbour/tests/vec1.prg
View File

@@ -3,7 +3,7 @@
// $Id$
//
// ; Donated to the public domain by Victor Szel <info@szelvesz.hu>
// ; Donated to the public domain by Victor Szakats <info@szelvesz.hu>
FUNCTION Main()