rom/dos/examinefh.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: dos.library function ExamineFH().
   6     Lang: English
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/memory.h>
  11 #include <proto/exec.h>
  12 #include <dos/exall.h>
  13 #include "dos_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH2(BOOL, ExamineFH,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(BPTR,                   lock, D1),
  24         AROS_LHA(struct FileInfoBlock *, fib,  D2),
  25
  26 /*  LOCATION */
  27         struct DosLibrary *, DOSBase, 65, Dos)
  28 /*
  29     FUNCTION
  30
  31     INPUTS
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44 */
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     /* Get pointer to filehandle */
  49     struct FileHandle *fh = BADDR(lock);
  50     BOOL ret;
  51
  52     D(bug("[ExamineFH] fh=%x fib=%x\n", fh, fib));
  53     ret = dopacket2(DOSBase, NULL, fh->fh_Type, ACTION_EXAMINE_FH, fh->fh_Arg1, MKBADDR(fib));
  54     if (ret) {
  55         fixfib(fib);
  56         D(bug("[ExamineFH] '%s'\n", fib->fib_FileName));
  57     }
  58
  59     return ret;
  60
  61     AROS_LIBFUNC_EXIT
  62 } /* ExamineFH */