home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / IO / FILELENG.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-02  |  352 b   |  17 lines
  1. /* fileleng.c (emx+gcc) -- Copyright (c) 1990-1993 by Eberhard Mattes */
  2.  
  3. #include <sys/emx.h>
  4. #include <io.h>
  5.  
  6. long filelength (int handle)
  7. {
  8.   long cur, n;
  9.  
  10.   cur = (long)__lseek (handle, 0L, SEEK_CUR);
  11.   if (cur == -1L)
  12.     return (-1L);
  13.   n = (long)__lseek (handle, 0L, SEEK_END);
  14.   __lseek (handle, cur, SEEK_SET);
  15.   return (n);
  16. }
  17.