1 files changed, 34 insertions, 0 deletions
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 <stdio.h>
+
+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 */