From 7928a16138be04f0ecc987101a1ef1f0d3ada4e1 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 14 Feb 2000 06:54:30 +0000 Subject: [PATCH] 20000214-07:50 GMT+1 Victor Szakats --- harbour/ChangeLog | 17 +++++++++++++++++ harbour/source/common/hbfsapi.c | 2 +- harbour/source/common/hbstr.c | 2 +- harbour/source/common/hbtrace.c | 2 +- harbour/source/compiler/cmdcheck.c | 4 ++-- harbour/source/rdd/dbnubs.c | 2 +- harbour/source/rtl/adir.prg | 2 +- harbour/source/rtl/binnum.c | 2 +- harbour/source/rtl/break.c | 2 +- harbour/source/rtl/dates.c | 6 +----- harbour/source/rtl/dummy.prg | 2 +- harbour/source/rtl/empty.c | 4 ++-- harbour/source/rtl/errorapi.c | 20 +++++++++++--------- harbour/source/rtl/errorsys.prg | 2 +- harbour/source/rtl/extend.c | 11 ++++++----- harbour/source/rtl/fieldbl.prg | 2 +- harbour/source/rtl/fm.c | 9 +++++---- harbour/source/rtl/gt/gtdos.c | 4 ++-- harbour/source/rtl/gt/gtstd.c | 2 +- harbour/source/rtl/gt/gtwin.c | 6 +++--- harbour/source/rtl/gtapi.c | 2 +- harbour/source/rtl/isprint.c | 7 ++++--- harbour/source/rtl/langapi.c | 2 +- harbour/source/rtl/len.c | 2 +- harbour/source/rtl/memofile.c | 10 +++++----- harbour/source/rtl/memvars.c | 16 +++++++++------- harbour/source/rtl/menuto.prg | 4 ++-- harbour/source/rtl/mouse/mousedos.c | 10 +++++----- harbour/source/rtl/mouse/mousestd.c | 4 ++-- harbour/source/rtl/natmsg.c | 13 ++++++++----- harbour/source/rtl/net.c | 5 +++-- harbour/source/rtl/oemansi.c | 2 +- harbour/source/rtl/oldclear.c | 2 +- harbour/source/rtl/proc.c | 4 ++-- harbour/source/rtl/readkey.prg | 11 ++++++----- harbour/source/rtl/samples.c | 4 ++-- harbour/source/rtl/set.c | 13 +++++++------ harbour/source/rtl/soundex.c | 6 +++--- harbour/source/rtl/transfrm.c | 2 +- harbour/source/rtl/valtype.c | 2 +- harbour/source/rtl/word.c | 2 +- harbour/source/rtl/xhelp.c | 2 +- harbour/source/tools/ctchksum.c | 2 +- harbour/source/tools/ctchrmix.c | 2 +- harbour/source/tools/ctcrypt.c | 2 +- harbour/source/tools/numtxthu.prg | 2 +- harbour/source/tools/strfmt.c | 2 +- harbour/source/vm/cmdarg.c | 2 +- harbour/source/vm/dynsym.c | 4 ++-- harbour/source/vm/hvm.c | 6 +++--- harbour/source/vm/main.c | 2 +- harbour/tests/fortest.prg | 8 ++------ harbour/tests/lnlenli1.prg | 2 +- harbour/tests/lnlenli2.prg | 2 +- harbour/tests/memfile.prg | 2 +- harbour/tests/memory.prg | 2 +- harbour/tests/regress/rt_array.prg | 2 +- harbour/tests/regress/rt_date.prg | 2 +- harbour/tests/regress/rt_file.prg | 2 +- harbour/tests/regress/rt_hvm.prg | 2 +- harbour/tests/regress/rt_main.ch | 2 +- harbour/tests/regress/rt_main.prg | 2 +- harbour/tests/regress/rt_math.prg | 2 +- harbour/tests/regress/rt_misc.prg | 2 +- harbour/tests/regress/rt_str.prg | 2 +- harbour/tests/regress/rt_trans.prg | 2 +- harbour/tests/statinit.prg | 2 +- harbour/tests/vec1.prg | 2 +- 68 files changed, 157 insertions(+), 135 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a76b9f2be6..bc92e20fdd 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,20 @@ +20000214-07:50 GMT+1 Victor Szakats + * 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 * *.bat + .LOG file is only shown when there was some error. diff --git a/harbour/source/common/hbfsapi.c b/harbour/source/common/hbfsapi.c index caf709add1..eb7ecf8bcf 100644 --- a/harbour/source/common/hbfsapi.c +++ b/harbour/source/common/hbfsapi.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Harbour common FileSys API (accessed from standalone utilities and the RTL) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/common/hbstr.c b/harbour/source/common/hbstr.c index 6453a0c734..f12a3b61f6 100644 --- a/harbour/source/common/hbstr.c +++ b/harbour/source/common/hbstr.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Harbour common string functions (accessed from standalone utilities and the RTL) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/common/hbtrace.c b/harbour/source/common/hbtrace.c index 57f8fb1633..763d4574c1 100644 --- a/harbour/source/common/hbtrace.c +++ b/harbour/source/common/hbtrace.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * hb_traceenable() * hb_traceenabled() * diff --git a/harbour/source/compiler/cmdcheck.c b/harbour/source/compiler/cmdcheck.c index 83c96245c1..abbc1bae82 100644 --- a/harbour/source/compiler/cmdcheck.c +++ b/harbour/source/compiler/cmdcheck.c @@ -42,7 +42,7 @@ * hb_compCheckPaths() * AddSearchPath() * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 |.......|.......|.......|....... diff --git a/harbour/source/rdd/dbnubs.c b/harbour/source/rdd/dbnubs.c index 4bc469eb68..b49ceac303 100644 --- a/harbour/source/rdd/dbnubs.c +++ b/harbour/source/rdd/dbnubs.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Internal versions for database version (Clipper undocumented) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/adir.prg b/harbour/source/rtl/adir.prg index 71cdabb74b..ad6975e7fa 100644 --- a/harbour/source/rtl/adir.prg +++ b/harbour/source/rtl/adir.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * ADIR() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/binnum.c b/harbour/source/rtl/binnum.c index 7439ded12b..e6eb336ea7 100644 --- a/harbour/source/rtl/binnum.c +++ b/harbour/source/rtl/binnum.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * BIN2U() * W2BIN() * U2BIN() diff --git a/harbour/source/rtl/break.c b/harbour/source/rtl/break.c index ad17a56f5b..0eb22584fd 100644 --- a/harbour/source/rtl/break.c +++ b/harbour/source/rtl/break.c @@ -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 ) { diff --git a/harbour/source/rtl/dates.c b/harbour/source/rtl/dates.c index 36c33309da..6399aa695d 100644 --- a/harbour/source/rtl/dates.c +++ b/harbour/source/rtl/dates.c @@ -55,7 +55,7 @@ * HB_DATE() * hb_dtoc() * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) ) diff --git a/harbour/source/rtl/dummy.prg b/harbour/source/rtl/dummy.prg index eff9a320b9..a1492f810c 100644 --- a/harbour/source/rtl/dummy.prg +++ b/harbour/source/rtl/dummy.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Dummy functions until they are not implemented * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/empty.c b/harbour/source/rtl/empty.c index 4390732578..bb2ea92813 100644 --- a/harbour/source/rtl/empty.c +++ b/harbour/source/rtl/empty.c @@ -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; diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c index 54157add14..6bf972ed87 100644 --- a/harbour/source/rtl/errorapi.c +++ b/harbour/source/rtl/errorapi.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/errorsys.prg b/harbour/source/rtl/errorsys.prg index 66c43697ad..78e1bbf786 100644 --- a/harbour/source/rtl/errorsys.prg +++ b/harbour/source/rtl/errorsys.prg @@ -172,7 +172,7 @@ STATIC FUNCTION DefError( oError ) RETURN .F. -// [vszel] +// [vszakats] STATIC FUNCTION ErrorMessage( oError ) LOCAL cMessage diff --git a/harbour/source/rtl/extend.c b/harbour/source/rtl/extend.c index a129455015..4b305a0f6f 100644 --- a/harbour/source/rtl/extend.c +++ b/harbour/source/rtl/extend.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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, ... ) { diff --git a/harbour/source/rtl/fieldbl.prg b/harbour/source/rtl/fieldbl.prg index f1e63ce722..f0fb822cd7 100644 --- a/harbour/source/rtl/fieldbl.prg +++ b/harbour/source/rtl/fieldbl.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * FIELDBLOCK() and FIELDWBLOCK() functions * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/fm.c b/harbour/source/rtl/fm.c index 2dee799462..0ffb129937 100644 --- a/harbour/source/rtl/fm.c +++ b/harbour/source/rtl/fm.c @@ -41,7 +41,7 @@ * hb_xmemcpy() * hb_xmemset() * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/gt/gtdos.c b/harbour/source/rtl/gt/gtdos.c index 0cd8c2fd80..bd30ec619a 100644 --- a/harbour/source/rtl/gt/gtdos.c +++ b/harbour/source/rtl/gt/gtdos.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ); diff --git a/harbour/source/rtl/gt/gtstd.c b/harbour/source/rtl/gt/gtstd.c index 003ba9272b..378265842b 100644 --- a/harbour/source/rtl/gt/gtstd.c +++ b/harbour/source/rtl/gt/gtstd.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Video subsystem for plain ANSI C stream IO * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/gt/gtwin.c b/harbour/source/rtl/gt/gtwin.c index 474dee3247..b344b994fb 100644 --- a/harbour/source/rtl/gt/gtwin.c +++ b/harbour/source/rtl/gt/gtwin.c @@ -38,7 +38,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ); } diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c index dc866eeda6..71b809d0f7 100644 --- a/harbour/source/rtl/gtapi.c +++ b/harbour/source/rtl/gtapi.c @@ -114,7 +114,7 @@ * hb_gtSetColorStr() * hb_gtSetMode() * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * hb_gtDrawShadow() * * See doc/license.txt for licensing terms. diff --git a/harbour/source/rtl/isprint.c b/harbour/source/rtl/isprint.c index fae11e18aa..d340059585 100644 --- a/harbour/source/rtl/isprint.c +++ b/harbour/source/rtl/isprint.c @@ -6,7 +6,7 @@ * Harbour Project source code: * ISPRINTER() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) diff --git a/harbour/source/rtl/langapi.c b/harbour/source/rtl/langapi.c index a0c30c7035..a7aad2f65d 100644 --- a/harbour/source/rtl/langapi.c +++ b/harbour/source/rtl/langapi.c @@ -6,7 +6,7 @@ * Harbour Project source code: * The Language API * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/len.c b/harbour/source/rtl/len.c index 5c8e70cb59..2145434b2e 100644 --- a/harbour/source/rtl/len.c +++ b/harbour/source/rtl/len.c @@ -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 ) { diff --git a/harbour/source/rtl/memofile.c b/harbour/source/rtl/memofile.c index 0e585aef79..6ff87c24ae 100644 --- a/harbour/source/rtl/memofile.c +++ b/harbour/source/rtl/memofile.c @@ -6,7 +6,7 @@ * Harbour Project source code: * MEMOWRIT()/MEMOREAD() functions * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ); } - diff --git a/harbour/source/rtl/memvars.c b/harbour/source/rtl/memvars.c index c78b9caaa8..78ddacaf3d 100644 --- a/harbour/source/rtl/memvars.c +++ b/harbour/source/rtl/memvars.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/menuto.prg b/harbour/source/rtl/menuto.prg index ebe4416b9c..a90feed509 100644 --- a/harbour/source/rtl/menuto.prg +++ b/harbour/source/rtl/menuto.prg @@ -15,7 +15,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * Changes for higher Clipper compatibility * * Copyright 1999 Chen Kedem @@ -26,7 +26,7 @@ * */ -/* NOTE: Recursive use is supported */ +/* NOTE: Recursive use is supported. */ #include "color.ch" #include "common.ch" diff --git a/harbour/source/rtl/mouse/mousedos.c b/harbour/source/rtl/mouse/mousedos.c index 4708923f74..90bf78c6ae 100644 --- a/harbour/source/rtl/mouse/mousedos.c +++ b/harbour/source/rtl/mouse/mousedos.c @@ -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 ) { diff --git a/harbour/source/rtl/mouse/mousestd.c b/harbour/source/rtl/mouse/mousestd.c index 89f448d38d..56be6d5c9e 100644 --- a/harbour/source/rtl/mouse/mousestd.c +++ b/harbour/source/rtl/mouse/mousestd.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Mouse subsystem for plain ANSI C stream IO (stub) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 */ diff --git a/harbour/source/rtl/natmsg.c b/harbour/source/rtl/natmsg.c index ecc300e167..d95cd24841 100644 --- a/harbour/source/rtl/natmsg.c +++ b/harbour/source/rtl/natmsg.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/net.c b/harbour/source/rtl/net.c index 8b662b8e9b..fec0f85274 100644 --- a/harbour/source/rtl/net.c +++ b/harbour/source/rtl/net.c @@ -6,7 +6,7 @@ * Harbour Project source code: * NETNAME() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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: diff --git a/harbour/source/rtl/oemansi.c b/harbour/source/rtl/oemansi.c index fa6a04e639..95874f4bf6 100644 --- a/harbour/source/rtl/oemansi.c +++ b/harbour/source/rtl/oemansi.c @@ -6,7 +6,7 @@ * Harbour Project source code: * OEM <-> ANSI string conversion functions (Win32 specific, XBase++ ext.) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/oldclear.c b/harbour/source/rtl/oldclear.c index f0f02bb5e0..37861b094b 100644 --- a/harbour/source/rtl/oldclear.c +++ b/harbour/source/rtl/oldclear.c @@ -6,7 +6,7 @@ * Harbour Project source code: * __ATCLEAR(), __CLEAR() undocumented functions * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/proc.c b/harbour/source/rtl/proc.c index 0519b66b20..7ee4f3d3d3 100644 --- a/harbour/source/rtl/proc.c +++ b/harbour/source/rtl/proc.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/readkey.prg b/harbour/source/rtl/readkey.prg index 9a9ee847bd..b0a88420a6 100644 --- a/harbour/source/rtl/readkey.prg +++ b/harbour/source/rtl/readkey.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * READKEY() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 + diff --git a/harbour/source/rtl/samples.c b/harbour/source/rtl/samples.c index 0fdf10d8fc..d408d221ae 100644 --- a/harbour/source/rtl/samples.c +++ b/harbour/source/rtl/samples.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Compatibility functions from the SAMPLES directory of Clipper. * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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 ) { diff --git a/harbour/source/rtl/set.c b/harbour/source/rtl/set.c index 60866ec6b7..dc91ecb190 100644 --- a/harbour/source/rtl/set.c +++ b/harbour/source/rtl/set.c @@ -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 changed to #include "x". + * V 1.51 Victor Szakats #include 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 ) diff --git a/harbour/source/rtl/soundex.c b/harbour/source/rtl/soundex.c index 642417671f..3249d9f94e 100644 --- a/harbour/source/rtl/soundex.c +++ b/harbour/source/rtl/soundex.c @@ -6,7 +6,7 @@ * Harbour Project source code: * SOUNDEX() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * 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' ) diff --git a/harbour/source/rtl/transfrm.c b/harbour/source/rtl/transfrm.c index 88b5f78eaf..4d2c18556c 100644 --- a/harbour/source/rtl/transfrm.c +++ b/harbour/source/rtl/transfrm.c @@ -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 /* @! */ diff --git a/harbour/source/rtl/valtype.c b/harbour/source/rtl/valtype.c index 59b80e575d..fbc722dc6b 100644 --- a/harbour/source/rtl/valtype.c +++ b/harbour/source/rtl/valtype.c @@ -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 ) ); diff --git a/harbour/source/rtl/word.c b/harbour/source/rtl/word.c index cf89907b41..69cde053dc 100644 --- a/harbour/source/rtl/word.c +++ b/harbour/source/rtl/word.c @@ -6,7 +6,7 @@ * Harbour Project source code: * WORD() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/xhelp.c b/harbour/source/rtl/xhelp.c index 761f13d941..e95f0a75b9 100644 --- a/harbour/source/rtl/xhelp.c +++ b/harbour/source/rtl/xhelp.c @@ -6,7 +6,7 @@ * Harbour Project source code: * __XHELP() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/tools/ctchksum.c b/harbour/source/tools/ctchksum.c index 4b23510dcd..7aecc5b3fd 100644 --- a/harbour/source/tools/ctchksum.c +++ b/harbour/source/tools/ctchksum.c @@ -6,7 +6,7 @@ * Harbour Project source code: * CT_CHECKSUM() CA-Tools function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/tools/ctchrmix.c b/harbour/source/tools/ctchrmix.c index f625819fb6..c9f424570d 100644 --- a/harbour/source/tools/ctchrmix.c +++ b/harbour/source/tools/ctchrmix.c @@ -6,7 +6,7 @@ * Harbour Project source code: * CT_CHARMIX() CA-Tools compatible function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/tools/ctcrypt.c b/harbour/source/tools/ctcrypt.c index f864a28871..648678af1b 100644 --- a/harbour/source/tools/ctcrypt.c +++ b/harbour/source/tools/ctcrypt.c @@ -6,7 +6,7 @@ * Harbour Project source code: * CT_CRYPT() CA-Tools compatible function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/tools/numtxthu.prg b/harbour/source/tools/numtxthu.prg index 3c35f6603b..68cd7e3a28 100644 --- a/harbour/source/tools/numtxthu.prg +++ b/harbour/source/tools/numtxthu.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * NumToTxtHU() function to convert a number to Hungarian text * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/tools/strfmt.c b/harbour/source/tools/strfmt.c index 8e94aae3b2..aea7c26807 100644 --- a/harbour/source/tools/strfmt.c +++ b/harbour/source/tools/strfmt.c @@ -6,7 +6,7 @@ * Harbour Project source code: * STRFORMAT() function * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/vm/cmdarg.c b/harbour/source/vm/cmdarg.c index 2e91675c90..fc8fe15ccb 100644 --- a/harbour/source/vm/cmdarg.c +++ b/harbour/source/vm/cmdarg.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Command line and environment argument management * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/vm/dynsym.c b/harbour/source/vm/dynsym.c index c8b600e97b..58149e9d8d 100644 --- a/harbour/source/vm/dynsym.c +++ b/harbour/source/vm/dynsym.c @@ -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; diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 664481a058..9bb45889ad 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -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 */ diff --git a/harbour/source/vm/main.c b/harbour/source/vm/main.c index 8083dc0952..ec36a6783a 100644 --- a/harbour/source/vm/main.c +++ b/harbour/source/vm/main.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Main entry point selector file * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/fortest.prg b/harbour/tests/fortest.prg index bf38be639d..a69c0cd1e9 100644 --- a/harbour/tests/fortest.prg +++ b/harbour/tests/fortest.prg @@ -3,12 +3,8 @@ // // Testing Harbour For Next loops for Clipper compatibility -// -// Written by Victor Szel -// www - http://www.harbour-project.org -// -// Placed in the public domain -// + +// ; Donated to the public domain by Victor Szakats // TODO: add test for "step 0" diff --git a/harbour/tests/lnlenli1.prg b/harbour/tests/lnlenli1.prg index 414f990a23..3a3a331761 100644 --- a/harbour/tests/lnlenli1.prg +++ b/harbour/tests/lnlenli1.prg @@ -4,7 +4,7 @@ // // ; Pushing Harbour preprocessor to the line length limit. -// ; Donated to the public domain by Victor Szel +// ; Donated to the public domain by Victor Szakats FUNCTION Main() diff --git a/harbour/tests/lnlenli2.prg b/harbour/tests/lnlenli2.prg index c9ee772ab4..55ade2fe54 100644 --- a/harbour/tests/lnlenli2.prg +++ b/harbour/tests/lnlenli2.prg @@ -4,7 +4,7 @@ // // ; Pushing Harbour to the line length limit. -// ; Donated to the public domain by Victor Szel +// ; Donated to the public domain by Victor Szakats FUNCTION Main() diff --git a/harbour/tests/memfile.prg b/harbour/tests/memfile.prg index 83a7cdf1a0..7e98f3c792 100644 --- a/harbour/tests/memfile.prg +++ b/harbour/tests/memfile.prg @@ -2,7 +2,7 @@ * $Id$ */ -/* ; Donated to the public domain by Victor Szel */ +// ; Donated to the public domain by Victor Szakats MEMVAR mcLongerNameThen10Chars #ifdef __HARBOUR__ diff --git a/harbour/tests/memory.prg b/harbour/tests/memory.prg index b9faf14dee..dcc6d91063 100644 --- a/harbour/tests/memory.prg +++ b/harbour/tests/memory.prg @@ -2,7 +2,7 @@ * $Id$ */ -/* ; Donated to the public domain by Victor Szel */ +// ; Donated to the public domain by Victor Szakats #include "hbmemory.ch" diff --git a/harbour/tests/regress/rt_array.prg b/harbour/tests/regress/rt_array.prg index 33731587b4..8c6b81f971 100644 --- a/harbour/tests/regress/rt_array.prg +++ b/harbour/tests/regress/rt_array.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (array) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_date.prg b/harbour/tests/regress/rt_date.prg index 90924f4082..8c4aee2107 100644 --- a/harbour/tests/regress/rt_date.prg +++ b/harbour/tests/regress/rt_date.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (date) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_file.prg b/harbour/tests/regress/rt_file.prg index 54db61b821..83179edccf 100644 --- a/harbour/tests/regress/rt_file.prg +++ b/harbour/tests/regress/rt_file.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (file) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_hvm.prg b/harbour/tests/regress/rt_hvm.prg index cc26f90ae6..588aae0d15 100644 --- a/harbour/tests/regress/rt_hvm.prg +++ b/harbour/tests/regress/rt_hvm.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (HVM) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_main.ch b/harbour/tests/regress/rt_main.ch index e664c22dc5..b7c86d8e2c 100644 --- a/harbour/tests/regress/rt_main.ch +++ b/harbour/tests/regress/rt_main.ch @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (header and common code) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_main.prg b/harbour/tests/regress/rt_main.prg index 3aad7b6aab..8cc205085d 100644 --- a/harbour/tests/regress/rt_main.prg +++ b/harbour/tests/regress/rt_main.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (main) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_math.prg b/harbour/tests/regress/rt_math.prg index c763b62af6..525051ee6c 100644 --- a/harbour/tests/regress/rt_math.prg +++ b/harbour/tests/regress/rt_math.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (math) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_misc.prg b/harbour/tests/regress/rt_misc.prg index 20fcec574a..a83763e6f7 100644 --- a/harbour/tests/regress/rt_misc.prg +++ b/harbour/tests/regress/rt_misc.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (misc) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_str.prg b/harbour/tests/regress/rt_str.prg index a94fd7fd82..75ff4f0896 100644 --- a/harbour/tests/regress/rt_str.prg +++ b/harbour/tests/regress/rt_str.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (strings) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/regress/rt_trans.prg b/harbour/tests/regress/rt_trans.prg index 1f01c8189e..1a15e9175c 100644 --- a/harbour/tests/regress/rt_trans.prg +++ b/harbour/tests/regress/rt_trans.prg @@ -6,7 +6,7 @@ * Harbour Project source code: * Regression tests for the runtime library (strings) * - * Copyright 1999 Victor Szel + * Copyright 1999 Victor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/tests/statinit.prg b/harbour/tests/statinit.prg index fa0e1d9e71..8743bc2b2e 100644 --- a/harbour/tests/statinit.prg +++ b/harbour/tests/statinit.prg @@ -2,7 +2,7 @@ // $Id$ // -// ; Donated to the public domain by Victor Szel +// ; Donated to the public domain by Victor Szakats MEMVAR cMyPubVar diff --git a/harbour/tests/vec1.prg b/harbour/tests/vec1.prg index 45631cef8c..21d0929fcc 100644 --- a/harbour/tests/vec1.prg +++ b/harbour/tests/vec1.prg @@ -3,7 +3,7 @@ // $Id$ // -// ; Donated to the public domain by Victor Szel +// ; Donated to the public domain by Victor Szakats FUNCTION Main()