compiler/clib/ftell.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Tell the position in a stream.
   6 */
   7
   8 #include <errno.h>
   9 #include <dos/dos.h>
  10 #include <proto/dos.h>
  11 #include "__errno.h"
  12 #include "__stdio.h"
  13 #include "__open.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <stdio.h>
  19
  20         long ftell (
  21
  22 /*  SYNOPSIS */
  23         FILE * stream)
  24
  25 /*  FUNCTION
  26         Tell the current position in a stream.
  27
  28     INPUTS
  29         stream - Obtain position of this stream
  30
  31     RESULT
  32         The position on success and -1 on error.
  33         If an error occurred, the global variable errno is set.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         fopen(), fseek(), fwrite()
  43
  44     INTERNALS
  45
  46 ******************************************************************************/
  47 {
  48     long cnt;
  49     BPTR fh;
  50     fdesc *fdesc = __getfdesc(stream->fd);
  51
  52     if (!fdesc)
  53     {
  54         errno = EBADF;
  55         return 0;
  56     }
  57
  58     fh = (BPTR)(fdesc->fh);
  59
  60     Flush (fh);
  61     cnt = Seek (fh, 0, OFFSET_CURRENT);
  62
  63     if (cnt == -1)
  64         errno = IoErr2errno (IoErr ());
  65
  66     return cnt;
  67 } /* ftell */