d1f8cc8478
* harbour/contrib/Makefile
* harbour/contrib/bmdbfcdx/Makefile
* harbour/source/rdd/Makefile
! fixed GNU make compilation
* harbour/include/hbapifs.h
* harbour/source/rtl/filesys.c
+ added support for DOS/Windows DENY_* flag emulation in POSIX
systems using BSD locks. So far such emulatin was done with
standard POSIX locks. The new emulation can be enabled by setting
HB_USE_BSDLOCKS and disabled by HB_USE_BSDLOCKS_OFF. By default
it's enabled in Linux and BSD* based systems.
Please not that it BSD locks work in differ way then POSIX ones.
They are bound with file handle and process ID not i-node and PID.
It will allow to synchronize even single process but it will not
work in NFS and some old BSD and Linux kernels. This synchronization
cannot be used also between different platforms. If someone needs
such synchronization then he should build Harbour on all platforms
with HB_USE_BSDLOCKS_OFF and HB_USE_SHARELOCKS with valid multi
platform lock offset
* harbour/source/rdd/dbcmd.c
* removed all explicit NETERR setting - now it can be set only
by NETERR() function (executed by default errorsys)
* changed ordListAdd()/dbSetIndex() - now they return logical value
with information about success
* harbour/source/rdd/wafunc.c
* changed hb_rddOpenTable()/hb_rddCreateTable() to make dbUseArea()/
dbCreate() more Clipper compatible - it's not exact Clipper behavior
but I intentionally do not want to replicate some strange for me
things, f.e. I do not know why Clipper ignores RDDNAME when it has
only one character
+ harbour/tests/tstuse.prg
+ test code for dbUseArea()
49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#define EOL chr(13)+chr(10)
|
|
#command ? [<x,...>] => outstd(EOL)[;outstd(<x>)]
|
|
proc main()
|
|
? OS(), VERSION()
|
|
if !file("_tst.dbf")
|
|
dbCreate("_tst",{{"F1","C",1,0}})
|
|
endif
|
|
if !file("_tst2.dbf")
|
|
dbCreate("_tst2",{{"F1","C",1,0}})
|
|
endif
|
|
|
|
USE _tst NEW ALIAS "ONE" EXCLUSIVE
|
|
? select(), alias(), netErr(), used()
|
|
?
|
|
|
|
mkTest( .T., "NORDD",, "TWO", .T., .F. )
|
|
mkTest( .T., "DBF",, "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "", "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "nofile", "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst2", "ONE", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst", "ONE", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst", "TWO", .T., .F. )
|
|
?
|
|
dbUseArea( .T., "DBF", "_tst", "ONE", .T., .F. )
|
|
? select(), alias(), netErr(), used()
|
|
dbUseArea( .T., "DBF", "_tst", "TWO", .T., .F. )
|
|
? select(), alias(), netErr(), used()
|
|
?
|
|
dbSelectArea( 1 )
|
|
mkTest( .F., "NORDD",, "TWO", .T., .F. )
|
|
?
|
|
return
|
|
|
|
proc mkTest( lNewArea, cRdd, cFile, cAlias, lShared, lReadOnly )
|
|
local cbErr:=errorBlock({|oErr|break(oErr)}), oErr
|
|
netErr(.f.)
|
|
begin sequence
|
|
dbUseArea( lNewArea, cRdd, cFile, cAlias, lShared, lReadOnly )
|
|
recover using oErr
|
|
? "Error:", oErr:subCode, oErr:description, oErr:operation, oErr:osCode
|
|
end
|
|
? select(), alias(), netErr(), used()
|
|
errorBlock(cbErr)
|
|
return
|