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

See ChangeLog entry 19990624-15:15 EDT David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
1999-06-24 20:26:02 +00:00
parent fada972d79
commit d66246ebdb
9 changed files with 39 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
harbour/ChangeLog
View File

@@ -1,3 +1,28 @@
19990624-15:15 EDT David G. Holm <dholm@jsd-llc.com>
* makefile.b31
- Removed genobj
* makefile.icc
- removed genobj
* source/rtl/copyfile.c
- Added type override to hb_xgrab() call
* source/rtl/files.c
- Removed test printf() calls that I forgot to remove from
hb_fsWrite() after debugging hb_fsCreate() last night
* source/rtl/set.c
- Minor change in last if block in HB___SETCENTURY() to avoid
a signed/unsigned comparison complaint by some compilers.
* source/tools/hb_f.c
- In hb_hbfskip(), made x the same type as read_len to avoid
a signed/unsigned comparison complaint by some compilers.
* tests/working/Makefile
- Added box.prg
* tests/working/test_all.prg
- Added optional second command line parameter. If not used,
testall.bat uses call, otherwise it uses the command shell
specified and automatically adds /c. Examples:
test_all hbdos ==> call hbdos ainstest
test_all hbdos command ==> command /c hbdos ainstest
19990624-13:40 EDT David G. Holm <dholm@jsd-llc.com>
* source/rtl/gt/gtwin.c
- New functions for gtWhereX() and gtWhereY() contributed by Paul Tucker

7
harbour/makefile.b31
View File

@@ -22,7 +22,7 @@ harbour.lib : arrays.obj asort.obj classes.obj codebloc.obj copyfile.c \
math.obj mtran.obj objfunc.obj \
set.obj strings.obj strcmp.obj symbols.obj tclass.obj transfrm.obj
hbtools.lib : datesx.obj debug.obj genobj.obj io.obj mathx.obj \
hbtools.lib : datesx.obj debug.obj io.obj mathx.obj \
stringp.obj stringsx.obj \
asciisum.obj ascpos.obj atdiff.obj \
chareven.obj charmix.obj charodd.obj \
@@ -74,7 +74,6 @@ initsymb.obj : source\vm\initsymb.c extend.h types.h
datesx.obj : source\tools\datesx.c extend.h types.h
debug.obj : source\tools\debug.c extend.h types.h ctoharb.h itemapi.h
genobj.obj : source\contrib\genobj.c extend.h types.h
io.obj : source\tools\io.c extend.h types.h
mathx.obj : source\tools\mathx.c extend.h types.h
stringp.obj : source\tools\stringp.prg extend.h types.h init.h pcode.h harbour.exe
@@ -108,10 +107,6 @@ strright.obj : source\tools\strright.c extend.h types.h
bcc -c $(c_opt) -o$@ $*.c
tlib .\libs\b16\harbour.lib -+$@,,
{source\contrib}.c{obj}.obj:
bcc -c $(c_opt) -o$@ $<
tlib .\libs\b16\hbtools.lib -+$@,,
{source\vm}.c{obj}.obj:
bcc -c $(c_opt) -o$@ $<
tlib .\libs\b16\harbour.lib -+$@,,

5
harbour/makefile.icc
View File

@@ -59,7 +59,6 @@ $(path_lib)\hbtools.lib: \
$(path_obj)\chrtotal.obj \
$(path_obj)\datesx.obj \
$(path_obj)\debug.obj \
$(path_obj)\genobj.obj \
$(path_obj)\hb_f.obj \
$(path_obj)\io.obj \
$(path_obj)\mathx.obj \
@@ -192,10 +191,6 @@ $(path_obj)\stringp.obj : {$(path_prg)}\stringp.prg $(path_h)\pcode.h $(path_h
icc /C+ $(c_opt) /Fo$@ /Tp$<
ilib .\libs\icc\hbtools.lib -+$@,,
{source\contrib}.c{$(path_obj)}.obj:
icc /C+ $(c_opt) /Fo$@ /Tp$<
ilib .\libs\icc\hbtools.lib -+$@,,
$(path_exe)\harbour.exe : $(path_obj)\harboury.obj $(path_obj)\harbourl.obj $(path_obj)\genobj32.obj $(path_obj)\harbour.obj $(path_obj)\hbpp.obj $(path_obj)\hbppint.obj $(path_obj)\table.obj
icc /C- $(c_opt) /Fe$(path_exe)\harbour.exe /Isource\compiler \
$(path_obj)\harboury.obj \

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

@@ -55,7 +55,7 @@ static long hb_fsCopy(BYTEP source,BYTEP dest)
hb_errRelease(pError);
return( -2L) ;
}
buffer = hb_xgrab( BUFFER_SIZE );
buffer = (char *)hb_xgrab( BUFFER_SIZE );
usCount = hb_fsRead(sHANDLE,buffer,BUFFER_SIZE);
while( TRUE )
{

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

@@ -299,9 +299,7 @@ USHORT hb_fsWrite ( FHANDLE handle, BYTEP buff, USHORT count )
USHORT bytes;
#if defined(HAVE_POSIX_IO)
errno = 0;
printf("\nhb_fsWrite: handle = %d", handle);
bytes = write(handle,buff,count);
printf(", bytes = %u", bytes);
last_error = errno;
#else
bytes = 0;

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

@@ -242,11 +242,13 @@ HARBOUR HB___SETCENTURY (void)
szNewFormat = (char*)hb_xgrab (size + 1);
if (szNewFormat)
{
int format_len;
if (y_start > 0) memcpy (szNewFormat, szDateFormat, y_start);
szNewFormat [y_start] = 0;
strcat (szNewFormat, "YY");
if (hb_set_century) strcat (szNewFormat, "YY");
if (y_stop < strlen (szDateFormat)) strcat (szNewFormat, szDateFormat + y_stop);
format_len = strlen (szDateFormat);
if (y_stop < format_len) strcat (szNewFormat, szDateFormat + y_stop);
hb_xfree (szDateFormat);
hb_set.HB_SET_DATEFORMAT = szNewFormat;
}

3
harbour/source/tools/hb_f.c
View File

@@ -101,9 +101,8 @@ long hb_hbfskip( int recs )
{
int x;
long read_pos;
size_t read_len;
size_t x, read_len;
long y;

1
harbour/tests/working/Makefile
View File

@@ -13,6 +13,7 @@ PRG_SOURCES=\
arrindex.prg \
asctest.prg \
atest.prg \
box.prg \
byref.prg \
calling.prg \
cdow.prg \

9
harbour/tests/working/test_all.prg
View File

@@ -7,7 +7,7 @@
// The TESTALL.BAT batch file has restart capability. For example, if there is an error
// in testgt.prg, find and fix the problem, then restart by running "TESTALL TESTGT".
Function Main( cOption )
Function Main( cOption, cCmd )
LOCAL aDir,f,n,o,p,cRead
aDir:=Directory("*.PRG")
@@ -17,6 +17,11 @@ LOCAL aDir,f,n,o,p,cRead
ELSEIF Upper( cOption ) == "HRB"
fWrite(o,"del test_all.out"+chr(13)+chr(10))
ENDIF
IF Empty( cCmd )
cCmd := "call "
ELSE
cCmd += " /c "
ENDIF
fWrite(o,"if not .%1==. goto %1" + Chr(13) + Chr(10))
@@ -32,7 +37,7 @@ LOCAL aDir,f,n,o,p,cRead
"if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
"runner "+Left(aDir[f][1],Len(aDir[f][1])-4)+".hrb >> test_all.out"+Chr(13)+Chr(10) )
ELSE
fWrite(o,"call " + cOption + " " + n + Chr(13) + Chr(10);
fWrite(o,cCmd + cOption + " " + n + Chr(13) + Chr(10);
+ "if errorlevel 1 goto end" + Chr(13) + Chr(10) + Chr(13) + Chr(10))
ENDIF
ENDIF