FreeCalypso > hg > freecalypso-tools
view ffstools/cal2text/mkdir.c @ 915:71edc12b1aa7
doc/Rvinterf-tools: document new rvinterf -v option
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Thu, 29 Dec 2022 23:59:00 +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); } } }