home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / stdio / ftell.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-30  |  397 b   |  29 lines
  1.  
  2. /*
  3.  *  FTELL.C
  4.  *
  5.  *  (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  6.  */
  7.  
  8. #include <stdio.h>
  9.  
  10. long
  11. ftell(fi)
  12. FILE *fi;
  13. {
  14.     long n = fi->sd_Offset;
  15.  
  16.     if (!(fi->sd_Flags & __SIF_FILE))
  17.     return(EOF);
  18.  
  19.     if (fi->sd_WLeft >= 0)
  20.     return(n + (fi->sd_WPtr - fi->sd_WBuf));
  21.     else if (fi->sd_RLeft >= 0) {
  22.     if (fi->sd_UC >= 0)
  23.         --n;
  24.     return(n - fi->sd_RLeft);
  25.     }
  26.     return(n);
  27. }
  28.  
  29.