boinc/api/boinc_api_fortran.C

// Berkeley Open Infrastructure for Network Computing
// http://boinc.berkeley.edu
// Copyright (C) 2005 University of California
//
// This is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation;
// either version 2.1 of the License, or (at your option) any later version.
//
// This software is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// To view the GNU Lesser General Public License visit
// http://www.gnu.org/copyleft/lesser.html
// or write to the Free Software Foundation, Inc.,
// 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

// This file defines a Fortran wrapper to the BOINC API.

#include "boinc_api.h"
#include "graphics_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_() {
        boinc_init();
    }

    void boinc_finish_(int* status) {
        boinc_finish(*status);
    }
	
	void boinc_init_graphics_(){
		boinc_init_graphics();
	}

	void boinc_finish_graphics_(){
		boinc_finish_graphics();
	}

    void boinc_is_standalone_(int* result) {
        *result = boinc_is_standalone();
    }

    void boinc_resolve_filename_(
        const char* s, char* t, int* length, int s_len, int t_len
    ) {
        boinc_resolve_filename(StringFromFortran(s, s_len), t, *length);
    }
	
	void boincrf_(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);
    }
	
}


const char *BOINC_RCSID_4f5153609c = "$Id$";