rom/dos/unlockrecord.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include "dos_intern.h"
  10 #include <dos/filesystem.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH3(BOOL, UnLockRecord,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(BPTR , fh, D1),
  22         AROS_LHA(ULONG, offset, D2),
  23         AROS_LHA(ULONG, length, D3),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 47, Dos)
  27
  28 /*  FUNCTION
  29
  30     Release a lock made with LockRecord().
  31
  32     INPUTS
  33
  34     fh      --  filehandle the lock was made on
  35     offset  --  starting position of the lock
  36     length  --  length of the record in bytes
  37
  38     RESULT
  39
  40     NOTES
  41
  42     The length and offset must match the corresponding LockRecord()
  43     call.
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     LockRecord(), UnLockRecords()
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  59
  60     struct IOFileSys iofs;
  61     struct FileHandle *fileH = fh;
  62
  63     if (fh == NULL)
  64     {
  65         return DOSFALSE;
  66     }
  67
  68     InitIOFS(&iofs, FSA_UNLOCK_RECORD, DOSBase);
  69
  70     iofs.IOFS.io_Device = fileH->fh_Device;
  71     iofs.IOFS.io_Unit = fileH->fh_Unit;
  72
  73     iofs.io_Union.io_RECORD.io_Offset = offset;
  74     iofs.io_Union.io_RECORD.io_Size = length;
  75
  76     DosDoIO(&iofs.IOFS);
  77
  78     SetIoErr(iofs.io_DosError);
  79
  80     if (iofs.io_DosError != 0)
  81     {
  82         return DOSFALSE;
  83     }
  84
  85     return DOSTRUE;
  86
  87     AROS_LIBFUNC_EXIT
  88 } /* UnLockRecord */