TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-07-22 18:57:39 +02:00
Code Issues Projects Releases Wiki Activity

write TREXIO version in the file if not done yet

Browse Source
This commit is contained in:
q-posev 2021-07-23 15:55:16 +02:00
parent ba45479a8a
commit 2f876ef7cd
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/templates_front/templator_front.org
View File

@ -432,6 +432,7 @@ typedef struct trexio_s trexio_t;
#+begin_src c :tangle prefix_s_front.h
struct trexio_s {
char file_name[TREXIO_MAX_FILENAME_LENGTH];
char version[16];
pthread_mutex_t thread_lock;
back_end_t back_end;
char mode;
@ -528,6 +529,12 @@ trexio_open(const char* file_name, const char mode,
return NULL;
}
strncpy(result->version, PACKAGE_VERSION, 16);
if (result->version[15] != '\0') {
free(result);
return NULL;
}
result->back_end = back_end;
result->mode = mode;
result->one_based = false; // Need to be flipped in Fortran interface
@ -561,6 +568,36 @@ trexio_open(const char* file_name, const char mode,
return NULL;
}
rc = trexio_has_metadata_package_version(result);
if (rc == TREXIO_FAILURE) {
free(result);
return NULL;
}
if (rc == TREXIO_HAS_NOT) {
switch (back_end) {
case TREXIO_TEXT:
rc = trexio_text_write_metadata_package_version(result, PACKAGE_VERSION);
break;
case TREXIO_HDF5:
rc = trexio_hdf5_write_metadata_package_version(result, PACKAGE_VERSION);
break;
/*
case TREXIO_JSON:
rc = trexio_json_write_metadata_package_version(result, PACKAGE_VERSION);
break;
,*/
}
}
if (rc != TREXIO_SUCCESS) {
free(result);
return NULL;
}
/* File locking */
rc = TREXIO_LOCK_ERROR;