compiler/posixc/ftell.c

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