compiler/stdc/ftell.c

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