MAJ_500_510_dataset_attr_ILC.c

Aller à la documentation de ce fichier.

/*  This file is part of MED.
 *
 *  COPYRIGHT (C) 1999 - 2025  EDF R&D, CEA/DEN
 *  MED is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU Lesser General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  MED is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public License
 *  along with MED.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 
#include "med_config.h"
#include "med_outils.h"
#include "med.h"
 
#include <string.h>
 
#include "MAJ_500_510.h"
#include "MAJ_version.h"
 
#define USER_MODE MED_COMPACT_STMODE
 
 
med_err _MEDadd_dataset_attr(med_idt id,const char *lname, const H5L_info_t *linfo, visitordatas *data) {
 
 /*   med_err (*)(med_idt,    const char *    , const H5L_info2_t *   , visitordatas *) */
 /*  {aka int (*)(long int,   const char *    , const H5L_info2_t *   , visitordatas *)} */
 /*herr_t (*func)(hid_t g_id, const char *name, const H5L_info_t *info, void *op_data) ) */
 
  med_err    _ret=-1;
  /*Depuis hdf5-1.12, malgré -DH5_USE_16_API, H5version.h choisi la version 3*/
  H5O_info_t oinfo;
  med_idt    _dataset=0;
  med_int    _medintdiskswitchmode = MED_NO_INTERLACE;
  
 
#ifdef _DEBUG_
  SSCRUTE(lname);
#endif
 
  if (!strcmp(lname,".")) return 0;
 
  switch ( (*linfo).type ) {
 
  case H5L_TYPE_SOFT:
    /* Rem : On affecte un H5G (deprecated) a un H5O pour pouvoir tester
     de façon uniforme dans le switch */
    oinfo.type=H5G_LINK;
    break;
  case H5L_TYPE_HARD:
    /* Le pb de cette routine est qu'elle renvoie seulement :
       H5O_TYPE_GROUP, H5O_TYPE_DATASET, H5O_TYPE_NAMED_DATATYPE, H5O_TYPE_NTYPES
       sur un lien hard
       Sur un lien soft H5O_TYPE_UNKNOWN
    */
    /*Depuis hdf5-1.12, malgré -DH5_USE_16_API, H5version.h choisi la version 3*/
    if ( H5Oget_info_by_name( id, lname, &oinfo, H5P_DEFAULT ) <0) {
      MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"H5Oget_info_by_name");
      SSCRUTE(lname);
    }
    break;
  case H5L_TYPE_EXTERNAL:
  case H5L_TYPE_ERROR:
  default:
    MED_ERR_(_ret,MED_ERR_UNRECOGNIZED,MED_ERR_HDFTYPE,lname);
    ISCRUTE_int((*linfo).type);
    goto ERROR;
    break;
 }
 
  switch ( oinfo.type ) {
 
  case H5G_GROUP:
  case H5G_LINK:
    break;
  case H5G_DATASET:
    
    if ( (_dataset = H5Dopen(id,lname)) < 0) {
      MED_ERR_(_ret,MED_ERR_OPEN,MED_ERR_DATASET,lname);
      goto ERROR;
    }
 
    if ( _MEDattributeIntWr(_dataset,MED_NOM_ILC,&_medintdiskswitchmode) < 0 ) {
      MED_ERR_(_ret,MED_ERR_WRITE,MED_ERR_ATTRIBUTE,MED_ERR_ATTRIBUTE_MSG);
      SSCRUTE(MED_NOM_ILC);ISCRUTE(_medintdiskswitchmode);
      goto ERROR;
    }
    
    if ( H5Dclose(_dataset) < 0 ) {
      MED_ERR_(_ret,MED_ERR_CLOSE,MED_ERR_DATASET, lname );
      goto ERROR;
    }
 
    break;
  case H5G_TYPE:
  default:
    MED_ERR_(_ret,MED_ERR_UNRECOGNIZED,MED_ERR_HDFTYPE,lname);
    goto ERROR;
  }
  _ret = 0;
 
 ERROR:
  return _ret;
}
 
void MAJ_500_510_dataset_attr_ILC(med_idt fid)
{
  med_err _ret=0;
 
  fprintf(stdout,"  >>> Normalisation des datasets \n");
 
  if ( (_ret = _MEDvisit(fid, "/", "/", (medvisitorfunc) _MEDadd_dataset_attr))  < 0 ) {
    MED_ERR_EXIT_IF(_ret,MED_ERR_VISIT,MED_ERR_DATAGROUP,"/");
  }
 
  fprintf(stdout,"  >>> Normalisation des datasets : ... OK ... \n");
    
  /* _MEDobjetsOuverts(fid);  */
 
}