1 files changed, 25 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/ferrorf.c b/reference/C/CONTRIB/SNIP/ferrorf.c
new file mode 100755
index 0000000..7bf74d1
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/ferrorf.c
@@ -0,0 +1,25 @@
+/*  FERRORF.C
+**  Prints error message with printf() formatting syntax, then a colon,
+**  then a message corressponding to the value of errno, then a newline.
+**  Output is to filehandle.
+**
+**  Public Domain by Mark R. Devlin, free usage is permitted.
+*/
+ 
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+ 
+int ferrorf(FILE *filehandle, const char *format, ...)
+{
+    int vfp, fp;
+    va_list vargs;
+ 
+    vfp = fp = 0;
+    va_start(vargs, format);
+    vfp = vfprintf(filehandle, format, vargs);
+    va_end(vargs);
+    fp = fprintf(filehandle, ": %s\n", sys_errlist[errno]);
+    return ((vfp==EOF || fp==EOF) ? EOF : (vfp+fp));
+}