unit VpUsrLow;

{
  This unit contains user contributions for VpSysLow which we didn't want
  to put into VpSysLow to prevent it from becoming unmaintainable.
}

interface

uses
  SysUtils,
  {$IfDef Os2}   Os2Base, Os2Def; {$Endif}
  {$IfDef Win32} Windows;         {$Endif}
  {$IfDef Linux} Linux;           {$Endif}

function SysLockFile(_Handle, _LockStart, _LockLength: LongInt): LongInt;
function SysUnLockFile(_Handle, _LockStart, _LockLength: LongInt): LongInt;

implementation

{$IfDef Os2}
  {$I VpUsrOs2.pas}
{$Endif}

{$IfDef Win32}
  {$I VpUsrW32.pas}
{$endif}

{$IfDef Linux}
  {$I VpUsrLnx.pas}
{$endif}

end.

