view ffstools/cal2text/mkdir.c @ 587:5b88ba62b9ae

doc/Rvinterf-tools: rvinterf -P option documented
author Mychaela Falconia <falcon@freecalypso.org>
date Mon, 03 Feb 2020 07:56:57 +0000
parents d41edd329670
children
line wrap: on
line source

#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

mkdir_existok(pathname)
	char *pathname;
{
	int rc;
	struct stat st;

	rc = stat(pathname, &st);
	if (rc < 0) {
		rc = mkdir(pathname, 0777);
		if (rc < 0) {
			perror(pathname);
			exit(1);
		}
		return(0);
	} else {
		if (S_ISDIR(st.st_mode))
			return(0);
		else {
			fprintf(stderr,
			"error: %s already exists and is not a directory\n",
				pathname);
			exit(1);
		}
	}
}