Adding fortran bindings and special status for Cactus banner

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

1 files changed, 52 insertions, 0 deletions

diff --git a/src/main/Banner.c b/src/main/Banner.c
index 63cefd3f..43347f5a 100644
--- a/src/main/Banner.c
+++ b/src/main/Banner.c
@@ -7,11 +7,15 @@
    @enddesc 
  @@*/
 
+/*#define DEBUG_BANNER*/
+
 #include <stdlib.h>
 #include <stdio.h>
 
 #include "config.h"
 #include "cctk_parameters.h"
+#include "cctk_Banner.h"
+#include "cctk_FortranString.h"
 
 static char *rcsis = "$Header$";
 
@@ -21,6 +25,44 @@ static const char **banner_strings;
 void CCTK_PrintBanners(void);
 
 
+
+ /*@@
+   @routine    CactusBanner
+   @date       Wed Oct 13 21:41:28 CEST 1999
+   @author     Gabrielle Allen
+   @desc 
+   Prints the Cactus Banner
+   @enddesc 
+@@*/
+
+void CactusBanner(void)
+{
+  
+  const char *string;
+
+#define B_1 "       10                                  "
+#define B_2 "  1   0101       ************************  "
+#define B_3 "  01  1010 10      The Cactus Code V4.0    "
+#define B_4 " 1010 1101 011      www.cactuscode.org     "
+#define B_5 "  1001 100101    ************************  "
+#define B_6 "    00010101                               "
+#define B_7 "     100011     (c) Copyright The Authors  "
+#define B_8 "      0100      GNU Licensed. No Warranty  "
+#define B_9 "      0101                                 "
+
+
+#define B_ANNERLINE B_1 "\n" B_2 "\n" B_3 "\n" B_4 "\n" B_5 "\n" B_6 "\n" B_7 "\n" B_8 "\n" B_9 "\n"
+ 
+
+  string = B_ANNERLINE;
+
+  printf("-----------------------------------------------------------\n");
+  printf("%s\n",string); 
+  printf("-----------------------------------------------------------\n");
+
+}
+
+
  /*@@
    @routine    CCTK_RegisterBanner
    @date       July 16 00:11:26 1999
@@ -62,8 +104,18 @@ void CCTK_RegisterBanner(const char *string)
     banner_strings[number_banners-1] = string;
   }
 
+#ifdef DEBUG_BANNER
+  printf("Registering banner .... \n%s\n",banner_strings[number_banners-1]);
+#endif
+
 }
 
+void  FMODIFIER FORTRAN_NAME(CCTK_RegisterBanner)(ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(message)
+  CCTK_RegisterBanner(message);
+  /* Don't free0 "message" or it will disappear */
+}
 
  /*@@
    @routine    CCTK_PrintBanners