diff options
| author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-10 19:19:35 +0000 |
|---|---|---|
| committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-10 19:19:35 +0000 |
| commit | a9b098dab8e0e8fdf596a539b867fd1ffebdbeba (patch) | |
| tree | 5f326d3a0f1c4ebcb9f00d0068154830034bb74a /src | |
| parent | 340c9a3315cc402fbacdc5d7b31f9f85f36c11f5 (diff) | |
Provide macros for stringification and string concatenation
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@35 51d2df92-0e4f-0410-a727-bd43d766d6b6
Diffstat (limited to 'src')
| -rw-r--r-- | src/fortran.h | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/fortran.h b/src/fortran.h new file mode 100644 index 0000000..65442c8 --- /dev/null +++ b/src/fortran.h @@ -0,0 +1,23 @@ +/* $Header$ */ + +#ifndef FORTRAN_H +#define FORTRAN_H + +#include "cctk.h" + +#if FORTRAN_CPP_ANSI +/* For an ANSI-like cpp */ + +#define CONCAT(a,b) a##b +#define STRINGIFY(a) STRINGIFY_(a) +#define STRINGIFY_(a) #a + +#else +/* For a traditional cpp */ + +#define CONCAT(a,b) a/**/b +#define STRINGIFY(a) "a" + +#endif + +#endif /* #ifdef FORTRAN_H */ |