ftell.c

ReactOS是一些高手根据Windows XP的内核编写出的类XP。内核实现机理和API函数调用几乎相同。甚至可以兼容XP的程序。喜欢研究系统内核的人可以看一看。

/* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */

#include <precomp.h>

/*
 * @implemented
 */
long ftell(FILE *f)
{
  long tres;
  int adjust=0;

  if (!f)
    {
      __set_errno(EBADF);
      return -1;
    }

  if (f->_cnt < 0)
    f->_cnt = 0;
  else if (f->_flag&(_IOWRT))
    {
      if (f->_base && (f->_flag&_IONBF)==0)
        adjust = f->_ptr - f->_base;
    }
  else if (f->_flag&_IOREAD)
    {
      adjust = - f->_cnt;
    }
  else
    return -1;

  tres = _lseek(_fileno(f), 0L, SEEK_CUR);
  if (tres<0)
    return tres;
  tres += adjust;

  //f->_cnt = f->_bufsiz - tres;
  //f->_ptr = f->_base + tres;

  return tres;
}