mirror of https://github.com/BOINC/boinc.git
105 lines
2.8 KiB
C
105 lines
2.8 KiB
C
// The contents of this file are subject to the BOINC Public License
|
|
// Version 1.0 (the "License"); you may not use this file except in
|
|
// compliance with the License. You may obtain a copy of the License at
|
|
// http://boinc.berkeley.edu/license_1.0.txt
|
|
//
|
|
// Software distributed under the License is distributed on an "AS IS"
|
|
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
|
|
// License for the specific language governing rights and limitations
|
|
// under the License.
|
|
//
|
|
// The Original Code is the Berkeley Open Infrastructure for Network Computing.
|
|
//
|
|
// The Initial Developer of the Original Code is the SETI@home project.
|
|
// Portions created by the SETI@home project are Copyright (C) 2002
|
|
// University of California at Berkeley. All Rights Reserved.
|
|
//
|
|
// Contributor(s):
|
|
//
|
|
|
|
// This file defines a Fortran wrapper to the BOINC API.
|
|
|
|
#include "boinc_api.h"
|
|
|
|
// helper class that makes a C-string from a character array and length,
|
|
// automatically deleted on destruction
|
|
|
|
// Fortran strings are passed as character array plus length
|
|
class StringFromFortran {
|
|
char* p;
|
|
public:
|
|
StringFromFortran(const char* s, int s_len) {
|
|
p = new char[s_len + 1];
|
|
memcpy(p, s, s_len);
|
|
p[s_len] = 0;
|
|
}
|
|
~StringFromFortran() { delete [] p; }
|
|
operator char* () const { return p; }
|
|
};
|
|
|
|
extern "C" {
|
|
|
|
void boinc_init_(int* is_worker) {
|
|
boinc_init(*is_worker);
|
|
}
|
|
|
|
void boinc_finish_(int* status, int* is_worker) {
|
|
boinc_finish(*status, *is_worker);
|
|
}
|
|
|
|
void boinc_is_standalone_(int* result) {
|
|
*result = boinc_is_standalone();
|
|
}
|
|
|
|
void boinc_resolve_filename_(const char* s, char* t, int s_len, int t_len)
|
|
{
|
|
boinc_resolve_filename(StringFromFortran(s, s_len), t, t_len);
|
|
}
|
|
|
|
void boinc_parse_init_data_file_()
|
|
{
|
|
boinc_parse_init_data_file();
|
|
}
|
|
|
|
void boinc_write_init_data_file_()
|
|
{
|
|
boinc_write_init_data_file_();
|
|
}
|
|
|
|
// TODO: structs? common?
|
|
// extern int boinc_get_init_data(APP_INIT_DATA&);
|
|
|
|
// void boinc_send_trickle_up_(char* s, int s_len)
|
|
// {
|
|
// boinc_send_trickle_up(StringFromFortran(s,s_len));
|
|
// }
|
|
|
|
// void boinc_receive_trickle_down_(char* buf, int len)
|
|
// {
|
|
// boinc_receive_trickle_down(buf, len);
|
|
// }
|
|
|
|
void boinc_time_to_checkpoint_(int* result) {
|
|
*result = boinc_time_to_checkpoint();
|
|
}
|
|
|
|
void boinc_checkpoint_completed_() {
|
|
boinc_checkpoint_completed();
|
|
}
|
|
|
|
void boinc_fraction_done_(double* d) {
|
|
boinc_fraction_done(* d);
|
|
}
|
|
|
|
void boinc_wu_cpu_time_(double* d_out) {
|
|
boinc_wu_cpu_time(*d_out);
|
|
}
|
|
|
|
void boinc_calling_thread_cpu_time_(double* d1_out, double* d2_out)
|
|
{
|
|
boinc_calling_thread_cpu_time(*d1_out, *d2_out);
|
|
}
|
|
|
|
}
|
|
|