rom/dos/duplock.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: dos.library function DupLock()
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <proto/exec.h>
  11 #include "dos_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH1(BPTR, DupLock,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(BPTR, lock, D1),
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 16, Dos)
  25
  26 /*  FUNCTION
  27         Clone a lock on a file or directory. This will only work on shared
  28         locks.
  29
  30     INPUTS
  31         lock - Old lock.
  32
  33     RESULT
  34         The new lock or NULL in case of an error. IoErr() will give additional
  35         information in that case.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     struct FileLock *fl = (struct FileLock *)BADDR(lock);
  52     BPTR ret;
  53
  54     if (lock == BNULL)
  55         return BNULL;
  56     ret = (BPTR)dopacket1(DOSBase, NULL, fl->fl_Task, ACTION_COPY_DIR, lock);
  57     D(bug("[DupLock] %x -> %x\n", fl, BADDR(ret)));
  58     return ret;
  59
  60     AROS_LIBFUNC_EXIT
  61 } /* DupLock */