e1a3aaff59
+ doc/en/hbflock.txt
+ tests/tflock.prg
+ Documentation and test code for Harbour file locking functions
Contributed by Doug.
* tests/tflock.prg
* Code fixed to build in -w3 mode and simplified.
* contrib/hbformat/hbfmtcls.prg
! Fixed to indent OTHERWISE statement properly
! Fixed to not pad '++', '--' and '->' operators
! Fixed not uppercasing FOR/NEXT keywords
! Fixed not recognizing 'CREATE CLASS' as class declaration statement
! Fixed to not indent '//' comments
! Fixed to not add space between characters of codeblock operator '{|'
; Patches by Maurizio la Cecilia.
* contrib/hbformat/hbfmtcls.prg
% minor rework to not avoid using '=' (SET EXACT dependent)
operator and OTHERWISE/ELSE to be handled with adding
exception cases. Maurizio, please verify me.
* tests/db_brows.prg
* tests/testcdx.prg
* modified after testing new hbformat with them
138 lines
3.6 KiB
Plaintext
138 lines
3.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* test file locking */
|
|
|
|
#include "fileio.ch"
|
|
#include "inkey.ch"
|
|
|
|
#define READ_ACCESS 0
|
|
#define WRITE_ACCESS 1
|
|
#define READ_WRITE_ACCESS 2
|
|
|
|
#define FLX_EXCLUSIVE 0x0000 /* Exclusive lock */
|
|
#define FLX_SHARED 0x0100 /* Shared lock */
|
|
#define FLX_NO_WAIT 0x0000 /* Immediate return */
|
|
#define FLX_WAIT 0x0200 /* Wait for lock until success */
|
|
|
|
#define hb_keyCode( x ) Asc( x )
|
|
|
|
STATIC s_lLocked
|
|
STATIC s_lExclusive
|
|
STATIC s_lBlocking
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL hLockFile
|
|
LOCAL lSuccess
|
|
LOCAL nExclusivity
|
|
LOCAL nBlocking
|
|
LOCAL nKeyHit
|
|
LOCAL nLockType
|
|
|
|
QOut( "Opening lock file" )
|
|
IF ( hLockFile := FOpen( "emphasis.6lo", READ_WRITE_ACCESS ) ) == F_ERROR
|
|
QOut( "ERROR: Cannot open Lock File" )
|
|
RETURN
|
|
ENDIF
|
|
QOut( "Lock file opened - handle is", hb_ntos( hLockFile ) )
|
|
QOut()
|
|
s_lLocked := .F.
|
|
s_lExclusive := .T.
|
|
s_lBlocking := .F.
|
|
nExclusivity := FLX_EXCLUSIVE
|
|
nBlocking := FLX_NO_WAIT
|
|
ShowStatus()
|
|
QOut( "[+] to get a lock, [-] to release it, [Esc] to exit, [E] for exclusive, [S] for shared, [B] for blocking, [N] for non-blocking" )
|
|
DO WHILE .T.
|
|
nKeyHit := Inkey( 0 )
|
|
SWITCH nKeyHit
|
|
CASE hb_keyCode( "+" )
|
|
IF s_lLocked
|
|
QOut( "Already locked" )
|
|
ELSE
|
|
nLockType := nExclusivity + nBlocking
|
|
QOut( "Requesting Lock" )
|
|
lSuccess := hb_FLock( hLockFile, 0, 1, nLockType )
|
|
IF lSuccess
|
|
QOut( "Lock has been obtained" )
|
|
s_lLocked := .T.
|
|
ELSE
|
|
QOut( "Lock Request Failed - Error Code:", FError() )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE hb_keyCode( "-" )
|
|
IF ! s_lLocked
|
|
QOut( "Lock not currently held" )
|
|
ELSE
|
|
lSuccess := hb_FUnlock( hLockFile, 0, 1 )
|
|
IF lSuccess
|
|
QOut( "Lock has been released" )
|
|
s_lLocked := .F.
|
|
ELSE
|
|
QOut( "Unlock Request Failed - Error Code:", FError() )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE hb_keyCode( "E" )
|
|
CASE hb_keyCode( "e" )
|
|
IF s_lLocked
|
|
QOut( "Release Lock before changing lock type" )
|
|
ELSE
|
|
s_lExclusive := .T.
|
|
nExclusivity := FLX_EXCLUSIVE
|
|
ShowStatus()
|
|
ENDIF
|
|
EXIT
|
|
CASE hb_keyCode( "S" )
|
|
CASE hb_keyCode( "s" )
|
|
IF s_lLocked
|
|
QOut( "Release Lock before changing lock type" )
|
|
ELSE
|
|
s_lExclusive := .F.
|
|
nExclusivity := FLX_SHARED
|
|
ShowStatus()
|
|
ENDIF
|
|
EXIT
|
|
CASE hb_keyCode( "B" )
|
|
CASE hb_keyCode( "b" )
|
|
IF s_lLocked
|
|
QOut( "Release Lock before changing function mode" )
|
|
ELSE
|
|
s_lBlocking := .T.
|
|
nExclusivity := FLX_WAIT
|
|
ShowStatus()
|
|
ENDIF
|
|
EXIT
|
|
CASE hb_keyCode( "N" )
|
|
CASE hb_keyCode( "n" )
|
|
IF s_lLocked
|
|
QOut( "Release Lock before changing function mode" )
|
|
ELSE
|
|
s_lBlocking := .F.
|
|
nExclusivity := FLX_NO_WAIT
|
|
ShowStatus()
|
|
ENDIF
|
|
EXIT
|
|
CASE K_ESC
|
|
QOut()
|
|
FClose( hLockFile )
|
|
QOut( "Exiting" )
|
|
RETURN
|
|
OTHERWISE
|
|
QOut( "Key not supported", nKeyHit )
|
|
ENDSWITCH
|
|
ENDDO
|
|
|
|
RETURN
|
|
|
|
PROCEDURE ShowStatus()
|
|
|
|
QOut( "Lock: " + iif( s_lLocked, "Held", "Released" ) +;
|
|
" Type: " + iif( s_lExclusive, "Exclusive", "Shared" ) +;
|
|
" Request is: " + iif( s_lBlocking, "Blocking", "Non-Blocking" ) )
|
|
|
|
RETURN
|