home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
SOFTWARE
/
LIBS
/
PMC101.ZIP
/
LIBSRC.ZIP
/
FILESIZE.C
(
.txt
)
< prev
next >
Wrap
C/C++ Source or Header
|
1994-06-22
|
272b
|
18 lines
#include "pmc.h"
long __pascal filesize (WORD handle)
{
long t;
int r;
if ((t = filelseek (handle, 0, SEEK_CUR)) < 0)
return t;
if ((r = filelseek (handle, 0, SEEK_END)) < 0)
return r;
filelseek (handle, t, SEEK_SET);
return r;
}