home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
ARTLSRC.RAR
/
VPUSRLNX.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
841b
|
41 lines
{ Linux specific implementation of the functions declared in VpUsrLow }
function SysLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
var
Lock: PFLock;
begin
New(Lock);
with Lock^ do begin
l_Type:= F_WRLCK;
l_Whence:= SEEK_SET;
l_Start:= _LockStart;
l_Len:= _LockLength;
l_PID:= 0;
end;
SysLockFile:= LnxFCntl_3(tFileRec(_F).Handle, F_SETLK, Lock);
Dispose(Lock);
end;
function SysUnLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
var
Lock: PFLock;
begin
New(Lock);
with Lock^ do begin
l_Type:= F_UNLCK;
l_Whence:= SEEK_SET;
l_Start:= _LockStart;
l_Len:= _LockLength;
l_PID:= 0;
end;
SysUnLockFile:= LnxFCntl_3(tFileRec(_F).Handle, F_SETLK, Lock);
Dispose(Lock);
end;