src/MEDWrapper/V2_1/MEDfamCr.cxx

   1 /*************************************************************************
   2 * COPYRIGHT (C) 1999 - 2002  EDF R&D
   3 * THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   4 * IT UNDER THE TERMS OF THE GNU LESSER GENERAL PUBLIC LICENSE
   5 * AS PUBLISHED BY THE FREE SOFTWARE FOUNDATION;
   6 * EITHER VERSION 2.1 OF THE LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.
   7 *
   8 * THIS LIBRARY IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
   9 * WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  10 * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  11 * LESSER GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  12 *
  13 * YOU SHOULD HAVE RECEIVED A COPY OF THE GNU LESSER GENERAL PUBLIC LICENSE
  14 * ALONG WITH THIS LIBRARY; IF NOT, WRITE TO THE FREE SOFTWARE FOUNDATION,
  15 * INC., 59 TEMPLE PLACE, SUITE 330, BOSTON, MA 02111-1307 USA
  16 *
  17 *************************************************************************/
  18
  19 #include "med.hxx"
  20 #include "med_outils.hxx"
  21
  22 #include <string.h>
  23 #include <stdlib.h>
  24
  25 namespace med_2_1{
  26
  27 med_err
  28 MEDfamCr(med_idt fid,char* maa,char *famille,med_int numero,
  29          med_int *attr_ident, med_int *attr_val, char *attr_desc,
  30          med_int n_attr,char *groupe, med_int n_groupe)
  31 {
  32   med_idt root, datagroup, famid;
  33   med_err ret;
  34   med_size dimd[1];
  35   char chemin[MED_TAILLE_MAA+MED_TAILLE_FAS+MED_TAILLE_NOM+1];
  36   char tmp[MED_TAILLE_FAS+1];
  37
  38   /*
  39    * On inhibe le gestionnaire d'erreur HDF 5
  40    */
  41   _MEDmodeErreurVerrouiller();
  42
  43   /*
  44    * Si le Data Group FAS n'existe pas, on le cree
  45    */
  46   strcpy(chemin,MED_MAA);
  47   strcat(chemin,maa);
  48   strncpy(tmp,MED_FAS,MED_TAILLE_FAS-1);
  49   tmp[MED_TAILLE_FAS-1] = '\0';
  50   strcat(chemin,tmp);
  51   if ((root = _MEDdatagroupOuvrir(fid,chemin)) < 0)
  52     if ((root = _MEDdatagroupCreer(fid,chemin)) < 0)
  53       return -1;
  54
  55   /*
  56    * Si le Data Group de meme nom que famille existe => erreur
  57    * Sinon on le cree
  58    */
  59   if ((famid = _MEDdatagroupOuvrir(root,famille)) >= 0)
  60     return -1;
  61   if ((famid = _MEDdatagroupCreer(root,famille)) < 0)
  62     return -1;
  63
  64   /*
  65    * L'attribut NUM
  66    */
  67   if ((ret = _MEDattrEntierEcrire(famid,MED_NOM_NUM,&numero,MED_REMP)) < 0)
  68     return -1;
  69
  70   /*
  71    * Le Data Group "GRO"
  72    */
  73   if (n_groupe > 0)
  74     {
  75       /*
  76        * On cree le Data Group
  77        */
  78       if ((datagroup = _MEDdatagroupCreer(famid,MED_NOM_GRO)) < 0)
  79         return -1;
  80
  81       /*
  82        * L'attribut "NBR"
  83        */
  84       if ((ret = _MEDattrEntierEcrire(datagroup,MED_NOM_NBR,&n_groupe,MED_REMP)) < 0)
  85         return -1;
  86
  87       /*
  88        * Data Set des noms des groupes "NOM"
  89        */
  90       dimd[0] = n_groupe*MED_TAILLE_LNOM+1;
  91       if ((ret = _MEDdatasetStringEcrire(datagroup,MED_NOM_NOM,dimd,groupe,
  92                                       MED_REMP))<0)
  93         return -1;
  94
  95       /*
  96        * On ferme le Data Group
  97        */
  98       if ((ret = _MEDdatagroupFermer(datagroup)) < 0)
  99         return -1;
 100     }
 101
 102   /*
 103    * Le Data Group "ATT"
 104    */
 105
 106   if (n_attr > 0)
 107     {
 108       if ((datagroup = _MEDdatagroupCreer(famid,MED_NOM_ATT)) < 0)
 109         return -1;
 110
 111       /*
 112        * L'attribut "NBR"
 113        */
 114       if ((ret = _MEDattrEntierEcrire(datagroup,MED_NOM_NBR,&n_attr,MED_REMP)) < 0)
 115         return -1;
 116
 117       /*
 118        * Le Data Set "IDE"
 119        */
 120       dimd[0] = n_attr;
 121 #if defined(IRIX64)||defined(OSF1)
 122       if ((ret = _MEDdatasetNumEcrire(datagroup,MED_NOM_IDE,MED_INT64,MED_NO_INTERLACE,MED_DIM1,MED_ALL,MED_NOPF,0,MED_NOPG,dimd,
 123                                    (unsigned char *)attr_ident,MED_REMP)) < 0)
 124         return -1;
 125 #else
 126       if ((ret = _MEDdatasetNumEcrire(datagroup,MED_NOM_IDE,MED_INT32,MED_NO_INTERLACE,MED_DIM1,MED_ALL,MED_NOPF,0,MED_NOPG,dimd,
 127                                    (unsigned char *)attr_ident,MED_REMP)) < 0)
 128         return -1;
 129 #endif
 130
 131       /*
 132        * Le Data Set "VAL"
 133        */
 134       dimd[0] = n_attr;
 135 #if defined(IRIX64)||defined(OSF1)
 136       if ((ret = _MEDdatasetNumEcrire(datagroup,MED_NOM_VAL,MED_INT64,MED_NO_INTERLACE,MED_DIM1,MED_ALL,MED_NOPF,0,MED_NOPG,dimd,
 137                                    (unsigned char*)attr_val,MED_REMP)) < 0)
 138         return -1;
 139 #else
 140       if ((ret = _MEDdatasetNumEcrire(datagroup,MED_NOM_VAL,MED_INT32,MED_NO_INTERLACE,MED_DIM1,MED_ALL,MED_NOPF,0,MED_NOPG,dimd,
 141                                    (unsigned char*)attr_val,MED_REMP)) < 0)
 142         return -1;
 143 #endif
 144
 145       /*
 146        * Le Data Set "DES"
 147        */
 148       dimd[0] = n_attr*MED_TAILLE_DESC+1;
 149       if ((ret = _MEDdatasetStringEcrire(datagroup,MED_NOM_DES,dimd,attr_desc,
 150                                       MED_REMP)) < 0)
 151         return -1;
 152
 153       /*
 154        * On ferme le Data Group
 155        */
 156       if ((ret = _MEDdatagroupFermer(datagroup)) < 0)
 157         return -1;
 158     }
 159
 160   /*
 161    * On ferme tout
 162    */
 163   if ((ret = _MEDdatagroupFermer(famid)) < 0)
 164     return -1;
 165   if ((ret = _MEDdatagroupFermer(root)) < 0)
 166     return -1;
 167
 168   return 0;
 169 }
 170
 171 }