Rooba
/
boinc
mirror of https://github.com/BOINC/boinc.git
1
0
Fork 0
Code Issues 1 Packages Projects Releases Wiki Activity

API: make boinc_api_fortran.cpp compile

This commit is contained in:
David Anderson 2014-02-06 14:27:52 -08:00
parent 36460bc288
commit 6d78613af0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
api/boinc_api_fortran.cpp
View File

@ -20,13 +20,18 @@
// Define this symbol (here or in Makefile) if you want graphics functions
//#define GRAPHICS
// Define this symbol (here or in Makefile) if you want zip/unzip functions
//#define INCLUDE_ZIP
#include "config.h"
#include "util.h"
#include "boinc_api.h"
#ifdef GRAPHICS
#include "graphics_api.h"
#endif
#ifdef INCLUDE_ZIP
#include "boinc_zip.h"
#endif
// helper class that makes a C-string from a character array and length,
// automatically deleted on destruction.
@ -90,10 +95,6 @@ void boinc_parse_init_data_file_() {
boinc_parse_init_data_file();
}
void boinc_write_init_data_file_() {
boinc_write_init_data_file();
}
void boinc_time_to_checkpoint_(int* result) {
*result = boinc_time_to_checkpoint();
}
@ -114,6 +115,7 @@ void boinc_calling_thread_cpu_time_(double* d) {
boinc_calling_thread_cpu_time(*d);
}
#ifdef INCLUDE_ZIP
void boinc_zip_(int* zipmode, const char* zipfile,
const char* path, int zipfile_len, int path_len
) {
@ -125,6 +127,7 @@ void boinc_zip_(int* zipmode, const char* zipfile,
pathff.strip_whitespace();
boinc_zip(*zipmode,zipfileff.c_str(),pathff.c_str());
}
#endif
} // extern "C"