diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-29 20:53:50 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-29 20:53:50 +0000 |
| commit | fca911490ac158329ee55d1f7c57c29887f0a85e (patch) | |
| tree | 3e4d7a2284ac2d79de266cb9841bfa87ee8b1b3b | |
| parent | 572bae96e4563889e1891f9e76eba96c441372e5 (diff) | |
Fixed some bugs I seem to have introduced earlier !
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@156 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/sbin/schedule_parser.pl | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/lib/sbin/schedule_parser.pl b/lib/sbin/schedule_parser.pl index 9ae9bd7d..84165db8 100644 --- a/lib/sbin/schedule_parser.pl +++ b/lib/sbin/schedule_parser.pl @@ -71,20 +71,20 @@ sub write_rfr_header { local($thorn,$routine,$out) = @_; -# The header for the thorn RFR routine - print $out <<EOT; -\#define THORN_IS_$thorn -\#include \"cctk.h\" -\#include \"flesh.h\" -\#include \"rfr_constants.h\" -\#include \"declare_parameters.h\" -\#include \"prototypes_$thorn.h\" - -$routine (void *Cactus_data) -{ -DECLARE_PARAMETERS + # The header for the thorn RFR routine + + print OUTRFR "#define THORN_IS_$thorn\n"; + print OUTRFR "#include \"cctk.h\"\n"; + print OUTRFR "#include \"flesh.h\"\n"; + print OUTRFR "#include \"rfr_constants.h\"\n"; + print OUTRFR "#include \"declare_parameters.h\"\n"; + print OUTRFR "#include \"prototypes_$thorn.h\"\n"; + print OUTRFR "\n"; + print OUTRFR "$routine (void *Cactus_data)\n"; + print OUTRFR "{\n"; + print OUTRFR " DECLARE_PARAMETERS\n"; + print OUTRFR "\n"; -EOT } sub write_startup_header { @@ -92,19 +92,19 @@ sub write_startup_header { local($thorn,$routine,$out) = @_; # The header for the thorn RFR routine - print $out <<EOT; -\#define THORN_IS_$thorn -\#include \"cctk.h\" -\#include \"flesh.h\" -\#include \"rfr_constants.h\" -\#include \"declare_parameters.h\" - -$routine (void *data) -{ -DECLARE_PARAMETERS + print OUTSTART "#define THORN_IS_$thorn\n"; + print OUTSTART "#include \"cctk.h\"\n"; + print OUTSTART "#include \"flesh.h\"\n"; + print OUTSTART "#include \"rfr_constants.h\"\n"; + print OUTSTART "#include \"declare_parameters.h\"\n"; + print OUTSTART "\n"; + print OUTSTART "$routine (void *data)\n"; + print OUTSTART "{\n"; + print OUTSTART " DECLARE_PARAMETERS\n"; + print OUTSTART "\n"; + -EOT } |