1 /* This file is part of MED.
2 *
3 * COPYRIGHT (C) 1999 - 2019 EDF R&D, CEA/DEN
4 * MED is free software: you can redistribute it and/or modify
5 * it under the terms of the GNU Lesser General Public License as published by
6 * the Free Software Foundation, either version 3 of the License, or
7 * (at your option) any later version.
8 *
9 * MED is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public License
15 * along with MED. If not, see <http://www.gnu.org/licenses/>.
16 */
17
18
19 #include <med.h>
20 #include <med_config.h>
21 #include <med_outils.h>
22
23 #include <stdlib.h>
24 #include <string.h>
25
26 /**\ingroup MEDstructElement
27 \brief \MEDstructElementConstAttInfoBrief
28 \param fid \fid
29 \param modelname \modelname
30 \param attit \attit
31 \param constattname \constattname
32 \param constatttype \constatttype
33 \param ncomponent \ncomponent
34 \param sentitytype \sentitytype
35 \param profilename \profilename
36 \param profilesize \profilesize
37
38 \return \error
39
40 \details \MEDstructElementConstAttInfoDetails
41 \see MEDstructElementConstAttInfoByName
42 */
43
44 med_err
MEDstructElementConstAttInfo(const med_idt fid,const char * const modelname,const int attit,char * const constattname,med_attribute_type * const constatttype,med_int * const ncomponent,med_entity_type * const sentitytype,char * const profilename,med_int * const profilesize)45 MEDstructElementConstAttInfo(const med_idt fid,
46 const char* const modelname,
47 const int attit,
48 char* const constattname,
49 med_attribute_type* const constatttype,
50 med_int* const ncomponent,
51 med_entity_type* const sentitytype,
52 char* const profilename,
53 med_int* const profilesize
54 )
55 {
56 med_err _ret=-1;
57 char _path[MED_ELSTRUCT_GRP_SIZE+MED_NAME_SIZE+1+MED_TAILLE_CSTATR+MED_NAME_SIZE+1]=MED_ELSTRUCT_GRP;
58 int _num = attit -1;
59
60 /*
61 * On inhibe le gestionnaire d'erreur HDF 5
62 */
63 _MEDmodeErreurVerrouiller();
64
65 strcat(_path,modelname);
66 strcat(_path,MED_CSTATR);
67
68 /*
69 * On recupere le nom de l'attribut
70 */
71 if ( _MEDobjectGetName(fid, _path ,_num, constattname) < 0 ) {
72 MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_path);ISCRUTE_int(attit);
73 goto ERROR;
74 }
75 strcat(_path,constattname);
76
77 if (
78 MEDstructElementConstAttInfoByName(fid,
79 modelname,
80 constattname,
81 constatttype,
82 ncomponent,
83 sentitytype,
84 profilename,
85 profilesize
86 ) < 0 ) {
87 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_STRUCT_MSG);
88 SSCRUTE(modelname);SSCRUTE(_path);SSCRUTE("MEDstructElementConstAttInfoByName");
89 goto ERROR;
90 }
91
92 _ret = 0;
93
94 ERROR:
95
96 return _ret;
97 }
98
99