rom/dos/examine.c

   1 /*
   2     Copyright © 1995-2010, 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
  30     Fill in a FileInfoBlock structure concerning a file or directory
  31     associated with a particular lock.
  32
  33     INPUTS
  34
  35     lock  --  lock to examine
  36     fib   --  FileInfoBlock where the result of the examination is stored
  37
  38     RESULT
  39
  40     A boolean telling whether the operation was successful or not.
  41
  42     NOTES
  43
  44     FileInfoBlocks should be allocated with AllocDosObject(). You may make
  45     a copy of the FileInfoBlock but, however, this copy may NOT be passed
  46     to ExNext()!
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     Lock(), UnLock(), ExNext(), AllocDosObject(), ExAll(), <dos/dos.h>
  55
  56     INTERNALS
  57
  58 *****************************************************************************/
  59
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     struct FileLock *fl = BADDR(lock);
  64     LONG ret;
  65
  66     ASSERT_VALID_PTR_OR_NULL(BADDR(lock));
  67     ASSERT_VALID_FILELOCK(lock);
  68
  69     D(bug("[Examine] lock=%x fib=%x\n", fl, fib));
  70     ret = dopacket2(DOSBase, NULL, fl->fl_Task, ACTION_EXAMINE_OBJECT, lock, MKBADDR(fib));
  71     if (ret) {
  72         fixfib(fib);
  73         D(bug("[Examine] '%s'\n", fib->fib_FileName));
  74     }
  75     return ret;
  76
  77     AROS_LIBFUNC_EXIT
  78 } /* Examine */