--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ffstools/cal2text/dircheck.c	Mon Feb 27 03:37:11 2017 +0000
@@ -0,0 +1,26 @@
+/*
+ * Both arguments to fc-cal2text must name directories that already exist.
+ * Here we implement the check for this requirement.
+ */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+check_directory_exists(pathname)
+	char *pathname;
+{
+	struct stat st;
+
+	if (stat(pathname, &st) < 0) {
+		perror(pathname);
+		exit(1);
+	}
+	if (!S_ISDIR(st.st_mode)) {
+		fprintf(stderr, "error: %s is not a directory\n", pathname);
+		exit(1);
+	}
+	return(0);
+}