From b7f7a20ca4faabdb35648c69b5883fe6f81ef65e Mon Sep 17 00:00:00 2001 From: allen Date: Thu, 21 Sep 2000 15:56:10 +0000 Subject: Removed deprecated CCTK_mkdir git-svn-id: http://svn.cactuscode.org/flesh/trunk@1835 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/util/File.c | 82 --------------------------------------------------------- 1 file changed, 82 deletions(-) (limited to 'src/util') diff --git a/src/util/File.c b/src/util/File.c index 4153671c..f01ccc3a 100644 --- a/src/util/File.c +++ b/src/util/File.c @@ -44,88 +44,6 @@ CCTK_FILEVERSION(util_File_c) int CCTK_CreateDirectory(int mode,const char *pathname); -/* DEPRECATED IN BETA 9 */ - - /*@@ - @routine CCTK_mkdir - @date September 6th 1999 - @author Gabrielle Allen - @desc - Create a directory, if we haven't already tried - to create it. - @enddesc - @var dir - @vdesc directory name to create - @vtype const char * - @vio in - @endvar - - @returntype int - @returndesc negative: failed to create dir for some reason - 0 dir was successfully created - positive directory already exists - @endreturndesc - - @@*/ - -int CCTK_mkdir(const char *dir) -{ - - int retval; - -#if 0 - - struct stat statbuf; - char *command; - - if(stat(dir, &statbuf) == 0) - return(S_ISDIR(statbuf.st_mode) ? +1 : -1); - - command = (char *) malloc(strlen(MKDIR MKDIRFLAGS) + strlen(dir) + 2); - - /*** - TR 13/09/99: disabled use of MKDIRFLAGS until it also works for NT - This means either - - we make sure to always use the bash's mkdir command (which accepts - option '-p') - - call the dos shell with MKDIRFLAGS set to an empty string - - use the POSIX mkdir routine - The disadvantage for calling mkdir without '-p' under UNIX is now - that we can always create one subdirectory only which needs to be - relative to an existing directory. - ***/ -#if 0 - sprintf(command, MKDIR MKDIRFLAGS " %s",dir); -#else - sprintf(command, MKDIR " %s",dir); -#endif - - CCTK_VInfo("Cactus","Creating directory: \"%s\"",command); - - /*** FIXME: not sure what a successful system call looks like - across all architecures - ignore for now - and set zero for Cactus success ***/ - retval = system(command); - - free(command); - - retval = 0; -#endif - - retval = CCTK_CreateDirectory(0755, dir); - - return retval; - -} - -void CCTK_FCALL CCTK_FNAME(CCTK_mkdir) - (int *ierr, ONE_FORTSTRING_ARG) -{ - ONE_FORTSTRING_CREATE(arg1) - *ierr = CCTK_mkdir(arg1); - free(arg1); -} -/* END DEPRECATED IN BETA 9 */ /*@@ @routine CCTK_CreateDirectory -- cgit v1.2.3