From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001 From: Tobias Klauser Date: Sun, 27 Jan 2008 11:37:44 +0100 Subject: Initial import (2.0.2-6) --- reference/C/CONTRIB/SNIP/ansiflen.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100755 reference/C/CONTRIB/SNIP/ansiflen.c (limited to 'reference/C/CONTRIB/SNIP/ansiflen.c') diff --git a/reference/C/CONTRIB/SNIP/ansiflen.c b/reference/C/CONTRIB/SNIP/ansiflen.c new file mode 100755 index 0000000..4dec5cd --- /dev/null +++ b/reference/C/CONTRIB/SNIP/ansiflen.c @@ -0,0 +1,34 @@ +/* +** FLENGTH.C - a simple function using all ANSI-standard functions +** to determine the size of a file. +** +** Public domain by Bob Jarvis. +*/ + +#include + +long flength(char *fname) +{ + FILE *fptr; + long length = -1L; + + fptr = fopen(fname, "rb"); + if(fptr != NULL) + { + fseek(fptr, 0L, SEEK_END); + length = ftell(fptr); + fclose(fptr); + } + + return length; +} + +#ifdef TEST + +main(int argc, char *argv[]) +{ + printf("Length of %s = %ld\n", argv[0], flength(argv[0])); + return 0; +} + +#endif /* TEST */ -- cgit v1.2.3-54-g00ecf