rom/dos/examinefh.c

   1 /*
   2     Copyright © 1995-2016, 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,                   fh, 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 {
  47     AROS_LIBFUNC_INIT
  48
  49     /* Get pointer to filehandle */
  50     struct FileHandle *handle = BADDR(fh);
  51     BOOL ret;
  52
  53     D(bug("[ExamineFH] handle=%x fib=%x\n", handle, fib));
  54     ret = dopacket2(DOSBase, NULL, handle->fh_Type, ACTION_EXAMINE_FH,
  55         handle->fh_Arg1, MKBADDR(fib));
  56     if (ret) {
  57         fixfib(fib);
  58         D(bug("[ExamineFH] '%s'\n", fib->fib_FileName));
  59     }
  60
  61     return ret;
  62
  63     AROS_LIBFUNC_EXIT
  64 } /* ExamineFH */