home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / ftell.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-20  |  172 b   |  14 lines
  1.  
  2. /* ftell */
  3.  
  4. #include "std-guts.h"
  5.  
  6. int ftell(f)
  7. struct file * f;
  8. {
  9.   if (!f || !f->open_p)
  10.     return(-1);
  11.     else
  12.     return(f->file_position + f->buf_index);
  13. }
  14.