diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:46:11 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:46:11 +0000 |
| commit | 96c60b1271238d6e7361c149596046d8839355ae (patch) | |
| tree | caee928f8dca6d7af650212ba25953fc39527b13 /src/util/File.c | |
| parent | 1b1b43da4516f0dcdf0b4a91d55ea0ac7c1c0b5a (diff) | |
CCTK_mkdir is now replaced by
CCTK_CreateDirectory
which creates a directory and any needed parents
CCTK_mkdir will be removed in Beta 9
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1636 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util/File.c')
| -rw-r--r-- | src/util/File.c | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/src/util/File.c b/src/util/File.c index 2c75ae8a..562e0c6b 100644 --- a/src/util/File.c +++ b/src/util/File.c @@ -42,7 +42,9 @@ CCTK_FILEVERSION(util_File_c) #endif /* HAVE_MODE_T */ -int CCTK_MkDirs(const char *pathname, int mode); +int CCTK_CreateDirectory(const char *pathname, int mode); + +/* DEPRECATED IN BETA 9 */ /*@@ @routine CCTK_mkdir @@ -110,21 +112,23 @@ int CCTK_mkdir(const char *dir) retval = 0; #endif - retval = CCTK_MkDirs(dir, 0755); + retval = CCTK_CreateDirectory(dir, 0755); return retval; } -void FMODIFIER FORTRAN_NAME(CCTK_mkdir)(int *ierr, ONE_FORTSTRING_ARG) +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_MkDirs + @routine CCTK_CreateDirectory @date Tue May 2 21:38:48 2000 @author Tom Goodale @desc @@ -137,7 +141,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_mkdir)(int *ierr, ONE_FORTSTRING_ARG) @endhistory @@*/ -int CCTK_MkDirs(const char *pathname, int mode) +int CCTK_CreateDirectory(const char *pathname, int mode) { int retval; const char *path; @@ -235,3 +239,12 @@ int CCTK_MkDirs(const char *pathname, int mode) return retval; } + +void CCTK_FCALL CCTK_FNAME(CCTK_CreateDirectory) + (int *ierr, TWO_FORTSTRINGS_ARGS) +{ + TWO_FORTSTRINGS_CREATE(arg1,arg2) + *ierr = CCTK_CreateDirectory(arg1,arg2); + free(arg1); + free(arg2); +} |