// 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_zip.h"

#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);

    }
	
	void boinc_sixtrack_progress_(int* n,int* total)
	{
		double test =((double) *n) /((double) *total);
		boinc_fraction_done(test);
	}

	void sixtrack_unzip_()
	{
		char filename[256];
		boinc_resolve_filename("fort.zip",filename,256);
		boinc_zip(UNZIP_IT,filename, ".");
	}
}