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

19991022-09:27 GMT+1

Browse Source
This commit is contained in:
Viktor Szakats
1999-10-22 07:44:27 +00:00
parent 0a7d800b87
commit 8a9903cf05
5 changed files with 76 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
19991022-09:27 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/console.c
! New C syntax bug fixed in hb_setpos()
* source/tools/ctchksum.c
+ CA-Tools compatible CHECKSUM() function.
* source/rtl/natmsg.c
* Small correction.
19991022-08:19 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/rtl/fm.c
* fixed some bugs regarding the calculations for the largest

26
harbour/source/rtl/console.c
View File

@@ -484,20 +484,22 @@ void hb_setpos( SHORT row, SHORT col )
#ifdef HARBOUR_USE_GTAPI
hb_gtSetPos( row, col );
#else
SHORT iCount;
if( row < s_iDevRow || col < s_iDevCol )
{
fputs( s_szCrLf, stdout );
s_iDevCol = 0;
s_iDevRow++;
SHORT iCount;
if( row < s_iDevRow || col < s_iDevCol )
{
fputs( s_szCrLf, stdout );
s_iDevCol = 0;
s_iDevRow++;
}
else if( row > s_iDevRow ) s_iDevCol = 0;
for( iCount = s_iDevRow; iCount < row; iCount++ )
fputs( s_szCrLf, stdout );
for( iCount = s_iDevCol; iCount < col; iCount++ )
fputc( ' ', stdout );
fflush( stdout );
}
else if( row > s_iDevRow ) s_iDevCol = 0;
for( iCount = s_iDevRow; iCount < row; iCount++ )
fputs( s_szCrLf, stdout );
for( iCount = s_iDevCol; iCount < col; iCount++ )
fputc( ' ', stdout );
fflush( stdout );
#endif
s_iDevRow = row;

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

@@ -213,8 +213,8 @@ HARBOUR HB_NATIONMSG( void )
HARBOUR HB__NATSORTVER( void )
{
/* NOTE: CA-Cl*pper 5.2e will return: "NATSORT v1.2i x14 19/Mar/93" */
/* NOTE: CA-Cl*pper 5.3 will return: "NATSORT v1.3i x19 06/Mar/95" */
/* NOTE: CA-Cl*pper 5.2e Intl. will return: "NATSORT v1.2i x14 19/Mar/93" */
/* NOTE: CA-Cl*pper 5.3 Intl. will return: "NATSORT v1.3i x19 06/Mar/95" */
hb_retc( "NATSORT (Harbour)" );
}
@@ -223,8 +223,8 @@ HARBOUR HB__NATSORTVER( void )
HARBOUR HB__NATMSGVER( void )
{
/* NOTE: CA-Cl*pper 5.2e will return: "NATMSGS v1.2i x14 19/Mar/93" */
/* NOTE: CA-Cl*pper 5.3 will return: "NATMSGS v1.3i x19 06/Mar/95" */
/* NOTE: CA-Cl*pper 5.2e Intl. will return: "NATMSGS v1.2i x14 19/Mar/93" */
/* NOTE: CA-Cl*pper 5.3 Intl. will return: "NATMSGS v1.3i x19 06/Mar/95" */
hb_retc( "NATMSGS (Harbour)" );
}

1
harbour/source/tools/Makefile
View File

@@ -14,6 +14,7 @@ C_SOURCES=\
chrcount.c \
chrfirst.c \
chrtotal.c \
ctchksum.c \
dates2.c \
datesx.c \
hb_f.c \

49
harbour/source/tools/ctchksum.c Normal file
View File

@@ -0,0 +1,49 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* CHECKSUM() CA-Tools function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "extend.h"
HARBOUR HB_CT_CHECKSUM( void )
{
BYTE * pbyString = hb_parc( 1 );
ULONG ulLen = hb_parclen( 1 );
ULONG ulPos;
ULONG ulResult = 0;
for( ulPos = 0; ulPos < ulLen; ulPos++ )
ulResult += ( ( ULONG ) ( pbyString[ ulPos ] + ( ULONG ) ( pbyString[ ulPos + 1 ] * 256 ) ) ) & 0xFFFF;
hb_retnl( ( ULONG ) ( ( ulResult & 0x00FFFFFF ) | ( ( ulLen & 0xFF ) << 24 ) ) );
}