diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 17:00:20 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 17:00:20 +0000 |
commit | fdf8043af10feece512eba7087860a80b3b0de64 (patch) | |
tree | 5d35d260db0d38a183fa558a6e44c190ad96c937 /lib/sbin/GridFuncStuff.pl | |
parent | 8d3b486c25adeac68ab8904db2a205720edf8a00 (diff) |
Now you can have an implementation with more than one thorn AND have
different private variables (!)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@817 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 1c4e4d20..7ad1d710 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -178,6 +178,7 @@ sub GetThornArguments elsif($block eq "PRIVATE") { @other_imps = (); + } else { @@ -192,9 +193,16 @@ sub GetThornArguments next if (! defined $imp); - $interface_database{"IMPLEMENTATION \U$imp\E THORNS"} =~ m:([^ ]*):; + if ($block eq "PRIVATE") + { + $thorn = $this_thorn; + } + else + { + $interface_database{"IMPLEMENTATION \U$imp\E THORNS"} =~ m:([^ ]*):; - $thorn = $1; + $thorn = $1; + } foreach $group (split(" ",$interface_database{"\U$thorn $block GROUPS\E"})) { @@ -214,7 +222,7 @@ sub GetThornArguments $sep = ","; if($block eq "PRIVATE") { - $arguments{"$group$dim"} = "STORAGESIZE($this_thorn\::$group, $dim)"; + $arguments{"$group$dim"} = "STORAGESIZE($thorn\::$group, $dim)"; } else { @@ -226,7 +234,7 @@ sub GetThornArguments if($block eq "PRIVATE") { - $type .= "!$this_thorn\::$group"; + $type .= "!$thorn\::$group"; } else { @@ -875,7 +883,7 @@ sub CreateThornArgumentHeaderFile %data = &GetThornArguments($thorn, $block, %interface_database); - $print_data = 0; +# $print_data = 1; if ($print_data) { foreach $arg (keys data) |