/*
* - Nom de la fonction : _MEDfichierCreer
* - Description : creation d'un fichier HDF
* - Parametres :
* - nom (IN) : le nom du fichier
* - Resultat : ID du fichier en cas de succes, -1 sinon
*/
med_idt _MEDfichierCreer(char *nom, med_mode_acces mode)
{
med_idt fid,gid;
med_err ret;
med_int majeur = 2;
med_int mineur = 3;
med_int release = 6;
/*
* On inhibe le gestionnaire d'erreur HDF 5
*/
_MEDmodeErreurVerrouiller();
if ((fid = H5Fcreate(nom,H5F_ACC_TRUNC,
H5P_DEFAULT,H5P_DEFAULT)) < 0)
return -1;
_MEDsetModeAcces(fid,MED_LECTURE_ECRITURE);
if ((gid = _MEDdatagroupCreer(fid,MED_INFOS)) < 0)
return -1;
/* Numero de versions de MED */
if ((ret = _MEDattrEntierEcrire(gid,MED_NOM_MAJEUR,&majeur)) < 0)
return -1;
if ((ret = _MEDattrEntierEcrire(gid,MED_NOM_MINEUR,&mineur)) < 0)
return -1;
if ((ret = _MEDattrEntierEcrire(gid,MED_NOM_RELEASE,&release)) < 0)
return -1;
/* On ferme tout */
if ((ret = _MEDdatagroupFermer(gid)) < 0)
return -1;
_MEDsetModeAcces(fid,mode);
return fid;
}
med_idt _MEDfileOpen(const char * const filename,const med_access_mode accessmode)
{
med_idt _fid =-1;
int _hdf_mode=-1;
hid_t _fapl = H5P_DEFAULT;
H5AC_cache_config_t config;
switch(accessmode)
{
case MED_ACC_RDWR :
case MED_ACC_RDEXT :
_hdf_mode = MED_ACC_RDWR;
break;
case MED_ACC_RDONLY :
_hdf_mode = H5F_ACC_RDONLY;
break;
default :
MED_ERR_(_fid,MED_ERR_RANGE,MED_ERR_ACCESS,filename);
goto ERROR;
}
if ( (_fapl = H5Pcreate (H5P_FILE_ACCESS)) < 0 ) {
MED_ERR_(_fid,MED_ERR_CREATE,MED_ERR_PROPERTY,MED_ERR_FILEVERSION_MSG);
goto ERROR;
}
/* Cette ligne, présente depuis la 3.0, impose l'utilisation du modèle de données HDF 1.8 pour :
- Utiliser les nouvelles représentations HDF plus efficaces que dans les versions précédentes
- Empêcher l'utilisation de nvlles représentations d'une future bibliothèque HDF 1.9
qui poseait d'eventuels problèmes de relecture aux bibliothèques med
utilisant encore la 1.8 (ce choix doit être manuel) :
Les fichier HDF 1.8 utilisent la nouvelle représentation des liens au sein des groupes :
compact (header) ou dense (hors header)
*/
/* HDF-5 : UG
Groups will be initially created in the compact‐or‐indexed format only when one or more of the following
conditions is met:
• The low version bound value of the library version bounds property has been set to Release 1.8.0
or later in the file access property list (see H5Pset_libver_bounds). Currently, that would
require an H5Pset_libver_bounds call with the low parameter set to H5F_LIBVER_LATEST.
When this property is set for an HDF5 file, all objects in the file will be created using the latest
available format; no effort will be made to create a file that can be read by older libraries.
• The creation order tracking property, H5P_CRT_ORDER_TRACKED, has been set in the group creation property list (see H5Pset_link_creation_order).
*/
if ( H5Pset_libver_bounds( _fapl, H5F_LIBVER_18, H5F_LIBVER_18 ) ) {
MED_ERR_(_fid,MED_ERR_INIT,MED_ERR_PROPERTY,MED_ERR_FILEVERSION_MSG);
goto ERROR;
}
if ((_fid = H5Fopen(filename,_hdf_mode,_fapl)) < 0) {
/*La gestion de l'affichage des erreurs se fait dans la couche supérieure*/
/*cela permet de tester l'ouverture du fichier (cf MEDfileCompatibility) sans provoquer
d'affichage intempestif.*/
_fid = MED_ERR_OPEN MED_ERR_FILE;
/* MED_ERR_(_fid,MED_ERR_OPEN,MED_ERR_FILE,""); */
/* ISCRUTE_int(accessmode); */
/* Ne pas activer la ligne suivante en production, car certains code
utlisent MEDfileOpen pour tester la présence d'un fichier */
/* H5Eprint1(stderr); */
goto ERROR;
}
if ( H5Pclose(_fapl) < 0 ) {
MED_ERR_(_fid,MED_ERR_CLOSE,MED_ERR_PROPERTY,"");
_fid=-1;goto ERROR;
}
/* Adjust the size of metadata cache */
/* config.version = H5AC__CURR_CACHE_CONFIG_VERSION; */
/* H5Fget_mdc_config(_fid, &config); */
/* config.set_initial_size = 1; */
/* config.initial_size = 8*1024*1024; */
/* config.max_size = 16*1024*1024; */
/* H5Fset_mdc_config(_fid, &config); */
_MEDsetModeAcces(_fid,accessmode);
/* Si le fichier _fid ne possède pas la structure MED_INFOS;
le fichier est considéré en version 0.0.0 mais n'est pas inscrit
en cache de version.
*/
_MEDfileVersion(_fid);
ERROR:
return _fid;
}
