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 #include <proto/exec.h>
   9 #include "dos_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/dos.h>
  15
  16         AROS_LH1(BPTR, DupLock,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(BPTR, lock, D1),
  20
  21 /*  LOCATION */
  22         struct DosLibrary *, DOSBase, 16, Dos)
  23
  24 /*  FUNCTION
  25         Clone a lock on a file or directory. This will only work on shared
  26         locks.
  27
  28     INPUTS
  29         lock - Old lock.
  30
  31     RESULT
  32         The new lock or NULL in case of an error. IoErr() will give additional
  33         information in that case.
  34
  35     NOTES
  36         This function is identical to DupLockFromFH().
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47
  48 /*****************************************************************************
  49
  50     NAME
  51 #include <clib/dos_protos.h>
  52
  53         AROS_LH1(BPTR, DupLockFromFH,
  54
  55     SYNOPSIS
  56         AROS_LHA(BPTR, fh, D1),
  57
  58     LOCATION
  59         struct DosLibrary *, DOSBase, 62, Dos)
  60
  61     FUNCTION
  62         Try to get a lock on the object selected by the filehandle.
  63
  64     INPUTS
  65         fh - filehandle.
  66
  67     RESULT
  68         The new lock or 0 in case of an error. IoErr() will give additional
  69         information in that case.
  70
  71     NOTES
  72         This function is identical to DupLock().
  73
  74     EXAMPLE
  75
  76     BUGS
  77
  78     SEE ALSO
  79
  80     INTERNALS
  81
  82 *****************************************************************************/
  83 /*AROS alias DupLockFromFH DupLock */
  84 {
  85     AROS_LIBFUNC_INIT
  86
  87     BPTR old, new;
  88
  89     /* Use Lock() to clone the handle. cd to it first. */
  90     old = CurrentDir(lock);
  91     new=Lock("",SHARED_LOCK);
  92     CurrentDir(old);
  93     return new;
  94     AROS_LIBFUNC_EXIT
  95 } /* DupLock */