Routine to create new directories CCTK_mkdir

git-svn-id: http://svn.cactuscode.org/flesh/trunk@878 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 35 insertions, 0 deletions

diff --git a/src/util/File.c b/src/util/File.c
new file mode 100644
index 00000000..8372bbd3
--- /dev/null
+++ b/src/util/File.c
@@ -0,0 +1,35 @@
+
+#include "cctk.h"
+
+ /*@@
+   @file      File.c
+   @date      September 6th 1999
+   @author    File handling routines
+   @desc
+   Miscellaneuous routines.
+   @enddesc
+ @@*/             
+
+int CCTK_mkdir(char *dir)
+{
+  int retval;
+  char *command;
+  char *message;
+
+  command = (char *)malloc(1024*sizeof(char));
+
+  sprintf(command, MKDIR MKDIRFLAGS " %s",dir);
+
+  message = (char *)malloc(1024*sizeof(char));
+  sprintf(message,"Creating directory: \"%s\"",command);
+  CCTK_Info("Cactus",message);
+  free(message);
+
+  retval = system(command);
+
+  free(command);
+
+  return retval;
+
+}
+