rom/dos/internalseek.c

   1 /*
   2     Copyright © 2002-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7
   8 #include <proto/dos.h>
   9 #include "dos_intern.h"
  10
  11 LONG InternalSeek
  12 (
  13     struct FileHandle *fh,
  14     LONG               position,
  15     LONG               mode,
  16     struct DosLibrary *DOSBase
  17 )
  18 {
  19     LONG  status;
  20     SIPTR doserror = 0;
  21
  22     /* Make sure the input parameters are sane. */
  23     ASSERT_VALID_PTR( fh );
  24     ASSERT
  25     (
  26            mode == OFFSET_BEGINNING
  27         || mode == OFFSET_END
  28         || mode == OFFSET_CURRENT
  29     );
  30     D(bug("[seek] %x:%d:%d\n", fh, position, mode));
  31     do {
  32         status = dopacket3(DOSBase, &doserror, fh->fh_Type, ACTION_SEEK, fh->fh_Arg1, position, mode);
  33         D(bug("=%d %d\n", status, doserror));
  34     } while (status == -1 && !ErrorReport(doserror, REPORT_STREAM, (IPTR)fh, NULL));
  35
  36     return status;
  37 }