Initial import

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

1 files changed, 70 insertions, 0 deletions

diff --git a/src/main/flesh.cc b/src/main/flesh.cc
new file mode 100644
index 00000000..d799edc0
--- /dev/null
+++ b/src/main/flesh.cc
@@ -0,0 +1,70 @@
+ /*@@
+   @file      flesh.cc
+   @date      Fri Sep 18 14:17:08 1998
+   @author    Tom Goodale
+   @desc 
+   Main program file for cactus.
+   @enddesc 
+ @@*/
+#include <stdio.h>
+
+#include "flesh.h"
+
+ /*@@
+   @routine    main
+   @date       Fri Sep 18 14:17:37 1998
+   @author     Tom Goodale
+   @desc 
+   Main program for cactus.  This has to be c++ as on some
+   architectures you need the main program in c++ if there's
+   going to be any c++ at all in your program.
+   
+   @enddesc 
+   @calls     InitialiseCactus Initialise Evolve Shutdown ShutdownCactus
+   @calledby   
+   @history 
+ 
+   @endhistory 
+   @var     argc
+   @vdesc   The number of command line arguments
+   @vtype   int
+   @vio     in
+   @vcomment 
+ 
+   @endvar 
+   @var     argv
+   @vdesc   The command line arguments
+   @vtype   char *[]
+   @vio     in
+   @vcomment 
+ 
+   @endvar 
+
+@@*/
+int main(int argc, char **argv)
+{
+  tFleshConfig ConfigData;
+
+  /* Initialise any cactus specific stuff.
+   */
+  InitialiseCactus(&argc, argv, &ConfigData);
+
+  /* This is a (c-linkage) routine which has been registered by a thorn.
+   */
+  Initialise(&ConfigData);
+
+  /* This is a (c-linkage) routine which has been registered by a thorn.
+   */
+  Evolve(&ConfigData);
+
+  /* This is a (c-linkage) routine which has been registered by a thorn.
+   */
+  Shutdown(&ConfigData);
+
+  /* Shut down any cactus specific stuff.
+   */
+  ShutdownCactus(&ConfigData);
+
+  return 0;
+}
+