mirror of
https://github.com/TREX-CoE/trexio.git
synced 2024-08-25 06:31:43 +02:00
write TREXIO version in the file if not done yet
This commit is contained in:
parent
ba45479a8a
commit
2f876ef7cd
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user