*** empty log message ***

svn path=/trunk/boinc/; revision=3597
This commit is contained in:
Karl Chen 2004-06-16 10:01:28 +00:00
parent 8986dbe81c
commit c503480d6b
3 changed files with 37 additions and 23 deletions

View File

@ -39,65 +39,65 @@ public:
extern "C" {
int boinc_init_(int *standalone) {
void boinc_init_(int *standalone) {
boinc_init(*standalone);
}
int boinc_finish_(int* status) {
void boinc_finish_(int* status) {
boinc_finish(*status);
}
int boinc_is_standalone_() {
return boinc_is_standalone();
void boinc_is_standalone_(int* result) {
*result = boinc_is_standalone();
}
int boinc_resolve_filename_(const char* s, int s_len, char* t, int t_len)
void boinc_resolve_filename_(const char* s, int s_len, char* t, int t_len)
{
boinc_resolve_filename(StringFromFortran(s, s_len), t, t_len);
}
int boinc_parse_init_data_file_()
void boinc_parse_init_data_file_()
{
return boinc_parse_init_data_file();
boinc_parse_init_data_file();
}
int boinc_write_init_data_file_()
void boinc_write_init_data_file_()
{
return boinc_write_init_data_file_();
boinc_write_init_data_file_();
}
// TODO: structs? common?
// extern int boinc_get_init_data(APP_INIT_DATA&);
int boinc_send_trickle_up_(char* s, int len)
void boinc_send_trickle_up_(char* s, int len)
{
return boinc_send_trickle_up(StringFromFortran(s,s_len));
boinc_send_trickle_up(StringFromFortran(s,s_len));
}
int boinc_receive_trickle_down_(char* buf, int len)
void boinc_receive_trickle_down_(char* buf, int len)
{
return boinc_receive_trickle_down(buf, len);
boinc_receive_trickle_down(buf, len);
}
int boinc_time_to_checkpoint_() {
return boinc_time_to_checkpoint();
void boinc_time_to_checkpoint_(int* result) {
*result = boinc_time_to_checkpoint();
}
int boinc_checkpoint_completed_() {
return boinc_checkpoint_completed();
void boinc_checkpoint_completed_() {
boinc_checkpoint_completed();
}
int boinc_fraction_done_(double* d) {
return boinc_fraction_done(* d);
void boinc_fraction_done_(double* d) {
boinc_fraction_done(* d);
}
int boinc_wu_cpu_time_(double* d_out) {
return boinc_wu_cpu_time(*d_out);
void boinc_wu_cpu_time_(double* d_out) {
boinc_wu_cpu_time(*d_out);
}
int boinc_thread_cpu_time_(double* d1_out, double* d2_out)
void boinc_thread_cpu_time_(double* d1_out, double* d2_out)
{
return boinc_thread_cpu_time(*d1_out, *d2_out);
boinc_thread_cpu_time(*d1_out, *d2_out);
}
}

View File

@ -13650,3 +13650,16 @@ Daniel 15 June 2004
client/
hostinfo_unix.C
Karl 2004-06-16
- Compile fixes
lib/
app_ipc.h
- Return value fixes
api/
boinc_api_fortran.C

View File

@ -64,6 +64,7 @@
#define GRAPHICS_MSG_SET_MODE 1
#define GRAPHICS_MSG_REREAD_PREFS 2
#include <cstdio>
class APP_CLIENT_SHM {
public: