diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-29 20:37:29 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-29 20:37:29 +0000 |
| commit | dfc6b4b07cee109d04dd45a26859f5d07a6b2346 (patch) | |
| tree | a73c235e21a47dfde765450d64486ec851084bc1 /lib/sbin/GridFuncStuff.pl | |
| parent | 41f5bd04a10996967d9bd8e4c9b916cb6d457c93 (diff) | |
Put a _ in front of all flesh arguement lists and declarations
git-svn-id: http://svn.cactuscode.org/flesh/trunk@154 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 1784689f..ff57643c 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -671,9 +671,10 @@ sub CreateThornArgumentHeaderFile # Do the Fortran argument lists push(@returndata, "#ifdef FCODE"); - $sep = ""; + $sep = ","; - push(@returndata, "#define \U$thorn"."_FARGUMENTS CCTK_FARGS\\"); + push(@returndata, "#define \U$thorn"."_FARGUMENTS _CCTK_FARGUMENTS\\"); + $sep = ","; foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -687,13 +688,13 @@ sub CreateThornArgumentHeaderFile push(@returndata, ("","")); # Do the fortran declarations - push(@returndata, "#define \UDECLARE_$thorn"."_FARGUMENTS DECLARE_CCTK_FARGS\\"); + push(@returndata, "#define \UDECLARE_$thorn"."_FARGUMENTS _DECLARE_CCTK_FARGUMENTS \\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { if($hasvars{$block}) { - push(@returndata, "DECLARE_\U$thorn"."_$block"."_FARGUMENTS\\"); + push(@returndata, "DECLARE_\U$thorn"."_$block"."_FARGUMENTS \\"); } } @@ -712,7 +713,7 @@ sub CreateThornArgumentHeaderFile $sep = ""; # Argument prototypes - push(@returndata, "#define \U$thorn"."_C2F_PROTO CCTK_C2F_PROTO\\"); + push(@returndata, "#define \U$thorn"."_C2F_PROTO _CCTK_C2F_PROTO\\"); $sep = ","; foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") @@ -728,7 +729,7 @@ sub CreateThornArgumentHeaderFile # Argument lists $sep = ""; - push(@returndata, "#define PASS_\U$thorn"."_C2F(xGH) PASS_CCTK_C2F(xGH)\\"); + push(@returndata, "#define PASS_\U$thorn"."_C2F(xGH) _PASS_CCTK_C2F(xGH)\\"); $sep = ","; foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") @@ -743,7 +744,7 @@ sub CreateThornArgumentHeaderFile # Declare statics - push(@returndata, "#define DECLARE_\U$thorn"."_C2F DECLARE_CCTK_C2F \\"); + push(@returndata, "#define DECLARE_\U$thorn"."_C2F _DECLARE_CCTK_C2F \\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -757,7 +758,7 @@ sub CreateThornArgumentHeaderFile # Initialise statics - push(@returndata, "#define INITIALISE_\U$thorn"."_C2F INITIALISE_CCTK_C2F \\"); + push(@returndata, "#define INITIALISE_\U$thorn"."_C2F _INITIALISE_CCTK_C2F \\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { |