rom/dos/examine.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: dos.library function Examine().
   6     Lang: English
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/memory.h>
  11 #include <proto/exec.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(LONG, Examine,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(BPTR,                   lock, D1),
  23         AROS_LHA(struct FileInfoBlock *, fib,  D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 17, Dos)
  27
  28 /*  FUNCTION
  29         Fill in a FileInfoBlock structure concerning a file or directory
  30         associated with a particular lock.
  31
  32     INPUTS
  33         lock - lock to examine
  34         fib  - FileInfoBlock where the result of the examination is stored
  35
  36     RESULT
  37         A boolean telling whether the operation was successful or not.
  38
  39     NOTES
  40         FileInfoBlocks should be allocated with AllocDosObject(). You may make
  41         a copy of the FileInfoBlock but, however, this copy may NOT be passed
  42         to ExNext()!
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         Lock(), UnLock(), ExNext(), AllocDosObject(), ExAll(), <dos/dos.h>
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     struct FileLock *fl = BADDR(lock);
  59     LONG ret;
  60
  61     ASSERT_VALID_PTR_OR_NULL(BADDR(lock));
  62     ASSERT_VALID_FILELOCK(lock);
  63
  64     D(bug("[Examine] lock=%x fib=%x\n", fl, fib));
  65     ret = dopacket2(DOSBase, NULL, fl ? fl->fl_Task : GetFileSysTask(), ACTION_EXAMINE_OBJECT, lock, MKBADDR(fib));
  66     if (ret) {
  67         fixfib(fib);
  68         D(bug("[Examine] '%s'\n", fib->fib_FileName));
  69     }
  70     return ret;
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* Examine */