rom/dos/unlock.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #define DEBUG 0
  10 #include <proto/exec.h>
  11 #include <dos/dosextens.h>
  12 #include <proto/dos.h>
  13 #include "dos_intern.h"
  14 #include <aros/debug.h>
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <proto/dos.h>
  20
  21         AROS_LH1(BOOL, UnLock,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(BPTR, lock, D1),
  25
  26 /*  LOCATION */
  27         struct DosLibrary *, DOSBase, 15, Dos)
  28
  29 /*
  30     FUNCTION
  31         Free a lock created with Lock().
  32
  33     INPUTS
  34         lock -- The lock to free
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     /* Get pointer to filehandle */
  53     struct FileLock *fl = BADDR(lock);
  54
  55     ASSERT_VALID_PTR_OR_NULL(fl);
  56     ASSERT_VALID_FILELOCK(lock);
  57
  58     D(bug("UnLock(%x)\n", fl));
  59
  60     /* 0 handles are OK */
  61     if(lock == BNULL)
  62         return 0;
  63
  64     return dopacket1(DOSBase, NULL, fl->fl_Task, ACTION_FREE_LOCK, lock) != 0;
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* UnLock */