FreeCalypso > hg > freecalypso-tools
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); } } }