diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-11-06 19:21:53 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-11-06 19:21:53 +0000 |
commit | a63e5e9c8ab604054c5f8d13cca1f1ed03d4d785 (patch) | |
tree | 007ce63e18f03b2619bec94490bed60a8193e6c9 /lib/sbin/CreateFunctionBindings.pl | |
parent | 2dcc6b37e2e3dd65f6cef465450a5b88702354cd (diff) |
Deactivated code generation for fortran wrappers of function aliases.
Pointer arguments are passed as illegal types.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3025 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateFunctionBindings.pl')
-rw-r--r-- | lib/sbin/CreateFunctionBindings.pl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl index 7c507538..740ca21e 100644 --- a/lib/sbin/CreateFunctionBindings.pl +++ b/lib/sbin/CreateFunctionBindings.pl @@ -506,7 +506,7 @@ sub DummyThornFunctions # Header Data push(@data, '/*@@'); - push(@data, ' @header DummyThornFunctions.h'); + push(@data, ' @header DummyThornFunctions.c'); push(@data, ' @author Automatically generated by CreateFunctionBindings.pl'); push(@data, ' @desc'); push(@data, ' Dummy functions for overloaded thorn functions'); @@ -535,7 +535,7 @@ sub DummyThornFunctions foreach $arg (split(',',$function_db->{"$function CARGS"})) { $arg =~ m:.*\s+\**([^\s*\*]+)\s*:; - push(@data, " (void) ($1 + 0);"); + push(@data, " (void) (\&$1 + 0);"); } push(@data, ' CCTK_Warn(1, __LINE__, __FILE__, "Bindings",'); push(@data, " \"CCTKBindings_Dummy$function: Calling thorn function $function which has not been overloaded\");"); @@ -640,7 +640,7 @@ sub FortranThornFunctions # Header Data push(@data, '/*@@'); - push(@data, ' @header FortranThornFunctions.h'); + push(@data, ' @header FortranThornFunctions.c'); push(@data, ' @author Automatically generated by CreateFunctionBindings.pl'); push(@data, ' @desc'); push(@data, ' Fortran wrappers for overloaded thorn functions'); @@ -656,6 +656,14 @@ sub FortranThornFunctions push(@data, '#include "cctk_FortranString.h"'); push(@data, ''); + push(@data, "\n"); # workaround for perl 5.004_04 to add a trailing newline + + return join ("\n", @data); + +### FIXME: TR 6 Nov 2002 +### deactivated fortran wrapper code generation for alias functions +### since it's not working yet + # Do aliased function prototypes foreach $function (split(' ',$function_db->{'FUNCTIONS'})) { |