diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-17 14:36:03 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-17 14:36:03 +0000 |
| commit | 9c09ece00db7035929540022025087a00faecbea (patch) | |
| tree | dd022e54573307cdb86ffdde8c505f8d0185d622 /src/util | |
| parent | 0e6915b582b74cc7fc2e1aafd85eff948a93f69c (diff) | |
Removed FortranString stuff which is now in a header file
git-svn-id: http://svn.cactuscode.org/flesh/trunk@301 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util')
| -rw-r--r-- | src/util/Misc.c | 37 |
1 files changed, 1 insertions, 36 deletions
diff --git a/src/util/Misc.c b/src/util/Misc.c index 6c394ef2..a0c2377a 100644 --- a/src/util/Misc.c +++ b/src/util/Misc.c @@ -15,6 +15,7 @@ #include <assert.h> #include "Misc.h" +#include "FortranString.h" /*@@ @routine CCTK_SplitString @@ -118,42 +119,6 @@ int CCTK_Equals(const char *string1, const char *string2) return retval; } -#if defined T3E -#include <fortran.h> -#define ONE_FORTSTRING_ARG\ - _fcd fcdarg -#define TWO_FORTSTRINGS_ARGS\ - _fcd fcd_n, _fcd fcd_w -#define ONE_FORTSTRING_CREATE(argn)\ - int len = _fcdlen(fcdarg); \ - char *argn = CCTK_NullTerminateString(_fcdtocp(fcdarg),len);; -#define TWO_FORTSTRINGS_CREATE(argn,argw)\ - int nl = _fcdlen(fcd_n);\ - int wl = _fcdlen(fcd_w);\ - char *argn = CCTK_NullTerminateString(_fcdtocp(fcd_n),nl);\ - char *argw = CCTK_NullTerminateString(_fcdtocp(fcd_w),wl); -#elif defined WIN32 -#define ONE_FORTSTRING_ARG\ - char *n, unsigned int nl -#define TWO_FORSTRINGS_ARGS\ - char *n, int nl, char *w, int wl -#define ONE_FORTSTRING_CREATE(argn)\ - char *argn = CCTK_NullTerminateString(n,nl); -#define TWO_FORTSTRINGS_CREATE(argn,argw)\ - char *argn = CCTK_NullTerminateString(n,nl);\ - char *argw = CCTK_NullTerminateString(w,wl); -#else -#define ONE_FORTSTRING_ARG\ - char *n, unsigned int nl -#define TWO_FORTSTRINGS_ARGS\ - const char *n, const char *w, int nl, int wl -#define ONE_FORTSTRING_CREATE(argn)\ - char *argn = CCTK_NullTerminateString(n,nl); -#define TWO_FORTSTRINGS_CREATE(argn,argw)\ - char *argn = CCTK_NullTerminateString(n,nl);\ - char *argw = CCTK_NullTerminateString(w,wl); -#endif - int FORTRAN_NAME(CCTK_Equals)(const char *arg1,ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(arg2) |