Couple of bug fixes from Tom ... was using wrong name for database array

and missing spaces in strings


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

1 files changed, 7 insertions, 7 deletions

diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl
index ff57643c..b2141940 100644
--- a/lib/sbin/GridFuncStuff.pl
+++ b/lib/sbin/GridFuncStuff.pl
@@ -168,11 +168,11 @@ sub GetThornArguments
 
   if($block eq "PUBLIC")
   {
-    @other_imps = $interface_data{"IMPLEMENTATION \U$my_imp\E ANCESTORS"};
+    @other_imps = $interface_database{"IMPLEMENTATION \U$my_imp\E ANCESTORS"};
   }
   elsif($block eq "PROTECTED")
   {
-    @other_imps = $interface_data{"IMPLEMENTATION \U$my_imp\E FRIENDS"};
+    @other_imps = $interface_database{"IMPLEMENTATION \U$my_imp\E FRIENDS"};
   }
   elsif($block eq "PRIVATE")
   {
@@ -184,7 +184,7 @@ sub GetThornArguments
   }
 
 #  print "Thorn is $this_thorn, implementation $my_imp, block is $block\n";
-
+#  print "Other imps are @other_imps\n";
 
   foreach $imp (@other_imps,$my_imp)
   {
@@ -750,7 +750,7 @@ sub CreateThornArgumentHeaderFile
   {
     if($hasvars{$block})
     {
-      push(@returndata, "DECLARE_\U$thorn"."_$block"."_C2F\\");
+      push(@returndata, "DECLARE_\U$thorn"."_$block"."_C2F \\");
     }
   }
 
@@ -764,7 +764,7 @@ sub CreateThornArgumentHeaderFile
   {
     if($hasvars{$block})
     {
-      push(@returndata, "INITIALISE_\U$thorn"."_$block"."_C2F\\");
+      push(@returndata, "INITIALISE_\U$thorn"."_$block"."_C2F \\");
     }
   }
 
@@ -772,9 +772,9 @@ sub CreateThornArgumentHeaderFile
 
   # Dummy C declarations
 
-  push(@returndata, "#define \U$thorn"."_CARGUMENTS cGH *GH");
+  push(@returndata, "#define \U$thorn"."_CARGUMENTS cGH *GH ");
 
-  push(@returndata, "#define \UDECLARE_$thorn"."_CARGUMENTS");
+  push(@returndata, "#define \UDECLARE_$thorn"."_CARGUMENTS ");
   
 
   push(@returndata, "#endif /*CCODE*/");