home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l200 / 6.ddi / LIB / DASIZE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-08-21  |  352 b   |  19 lines
  1. /*    da_size(fd) returns the size of the file in bytes.
  2.  
  3.     Copyright (c) 1983 by James F. Gimpel
  4.     Copyright (c) 1983, 1984 by JMI Software Consultants, Inc.
  5. */
  6. #include "acom.h"
  7.  
  8. LONG da_size(fd)
  9.     FILE fd;
  10.     {
  11.     EXFUNC LONG lseek();
  12.     LONG pos, siz;
  13.  
  14.     pos = lseek(fd, 0L, 1);
  15.     siz = lseek(fd, 0L, 2);
  16.     lseek(fd, pos, 0);
  17.     return (siz);
  18.     }
  19.