diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-24 14:27:40 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-24 14:27:40 +0000 |
commit | 0f5fc8cf8ae2fea0156224c1dd5ccfc12aa68426 (patch) | |
tree | 518f66f94dbfcfe8ab36adf04a0eca514ea157d0 | |
parent | 5aeda156209ba70b003a0167a5e811649c00fc72 (diff) |
Adding function prototypes
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2046 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/CreateScheduleBindings.pl | 4 | ||||
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/sbin/CreateScheduleBindings.pl b/lib/sbin/CreateScheduleBindings.pl index af1b0829..8af20e87 100644 --- a/lib/sbin/CreateScheduleBindings.pl +++ b/lib/sbin/CreateScheduleBindings.pl @@ -176,6 +176,7 @@ sub ScheduleCreateFile $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "void CCTKi_BindingsSchedule_$thorn(void);\n"; $outbuf .= "void CCTKi_BindingsSchedule_$thorn(void)\n"; $outbuf .= "{\n"; $outbuf .= " DECLARE_CCTK_PARAMETERS\n"; @@ -283,6 +284,7 @@ sub ParameterRecoveryCreateFile $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void);\n"; $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void)\n"; $outbuf .= "{\n"; $outbuf .= " DECLARE_CCTK_PARAMETERS\n"; @@ -344,6 +346,7 @@ sub ScheduleCreateBindings $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "int CCTKi_BindingsScheduleInitialise(void);\n"; $outbuf .= "int CCTKi_BindingsScheduleInitialise(void)\n"; $outbuf .= "{\n"; foreach $thorn (sort split(" ", $rhinterface_db->{"THORNS"})) @@ -388,6 +391,7 @@ sub ParameterRecoveryCreateBindings $outbuf .= "\n"; $outbuf .= "/* Prototypes for functions to be registered. */\n"; + $outbuf .= "int CCTKi_BindingsParameterRecoveryInitialise(void);\n"; foreach $thorn (sort split(" ", $rhinterface_db->{"THORNS"})) { $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void);\n"; diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 136c5b1b..2ba98bf2 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1353,6 +1353,7 @@ sub CreateThornFortranWrapper push(@data, "#include \"cctk_Arguments.h\""); push(@data, ""); + push(@data, "int CCTKi_BindingsFortranWrapper$thorn(cGH *GH, void *fpointer);"); push(@data, "int CCTKi_BindingsFortranWrapper$thorn(cGH *GH, void *fpointer)"); push(@data, "{"); push(@data, " void (*function)(\U$thorn\E_C2F_PROTO);"); |