diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-25 12:25:37 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-25 12:25:37 +0000 |
| commit | 65ee3966f6cdf2be2e565f6a10efe66d3b295e7d (patch) | |
| tree | 64cf0f86a1fec49109f15b5c9355302828cdf82e /lib/sbin/GridFuncStuff.pl | |
| parent | a16e96a8a4de09f94091fecb985a89e5d6e6da34 (diff) | |
Merging in of things from Joan's NT version...
Mainly missing header files, plus making names of files in
the Bindings dir unique to help debugging.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@576 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 1041f897..2d8fc829 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -84,9 +84,9 @@ sub CreateVariableBindings } chdir "Variables"; - open (OUT, ">Bindings.c") || die "Cannot open Bindings.c"; + open (OUT, ">BindingsVariables.c") || die "Cannot open BindingsVariables.c"; - $filelist = "Bindings.c"; + $filelist = "BindingsVariables.c"; foreach $thorn (split(" ",$interface_database{"THORNS"})) { @@ -109,7 +109,8 @@ sub CreateVariableBindings foreach $thorn (split(" ",$interface_database{"THORNS"})) { open(OUT, ">$thorn.c") || die "Cannot create $thorn.c"; - + + print OUT "\#include \"Groups.h\"\n"; # print OUT "#include \"flesh.h\"\n"; # print OUT "#include \"StoreVariableData.h\"\n\n"; @@ -899,6 +900,7 @@ sub CreateThornGroupInitialisers local($line); local(@definitions); + $imp = $interface_database{"\U$thorn\E IMPLEMENTS"}; foreach $group (split(" ", $interface_database{"\U$thorn $block GROUPS"})) |