MED fichier
libmedimport.c
Aller à la documentation de ce fichier.
1 /* This file is part of MED.
2  *
3  * COPYRIGHT (C) 1999 - 2016 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 /* L'utilisation des med_utils n'est pas optionelle
19  dans l'outil medimport, elle revet cependant deux
20  formes :
21  - Si -DWITH_EXCEPTION EXITIF renvoie une exception MEDerreur
22  - Sinon exécute l'instruction return */
23 
24 
25 #ifdef HAVE_STDBOOL_H
26 # include <stdbool.h>
27 #else
28 # ifndef HAVE__BOOL
29 # ifdef __cplusplus
30 typedef bool _Bool;
31 # else
32 # define _Bool signed char
33 # endif
34 # endif
35 # define bool _Bool
36 # define false 0
37 # define true 1
38 # define __bool_true_false_are_defined 1
39 #endif
40 
41 /* #ifdef __cplusplus */
42 /* extern "C" { */
43 /* #endif */
44 
45 /* Pour faciliter la detection autotools */
47 
48 /*Inclusion des .h de la version de la bibliothèque courante*/
49 #include <med_config.h>
50 #include <med.h>
51 #include <med_outils.h>
52 
53 #include <stdio.h>
54 #include <string.h>
55 
56 /*TODO : En attendant une conversion totale de l'outil libmedimport en 3.0*/
57 #include <2.3.6/med23v30.h>
58 #include <2.3.6/med23v30_proto.h>
59 #include "2.3.6/med23v30_misc.h"
60 
61 #ifdef PPRO_NT
62 # include <stdlib.h>
63 #else
64 # include <libgen.h>
65 #endif
66 
67 /* #ifdef __cplusplus */
68 /* } */
69 /* #endif */
70 
71 /*Inclusion des .h spécifiques à medimport */
72 
73 /* Interface publique de l'outil medimport */
74 /* MEDimport.h == MEDimport.hxx */
75 #include "MEDimport.h"
76 #include "MAJ_version.h"
77 
78 /* Interfaces privées à l'outil medimport */
79 #include "MAJ_21_22.h"
80 #include "MAJ_231_232.h"
81 #include "MAJ_236_300.h"
82 #include "MAJ_300_310.h"
83 #include "MAJ_310_320.h"
84 
85 
86 #ifdef __cplusplus
87 extern "C" void _MEDmodeErreurVerrouiller(void);
88 #endif
89 
90 
91 
92 int MEDimport(char * filein, char * fileout) {
93 
94  med_idt fid, gid;
95  med_err ret;
96  med_int majeur, mineur, release;
97  med_bool hdfok=MED_FALSE;
98  med_bool medok=MED_FALSE;
99  char *_fileout,*tmp=NULL;
100  int _fileoutsize;
101  bool hasfileout=false;
102  char *commande;
103  med_int nprofil;
104  char chemin_profils[MED_PROFILE_GRP_SIZE+1];
105  char chemin_liens[MED_TAILLE_LIENS+1];
106  char version[9];
107  int MAJ_21_22 = 0, MAJ_231_232 = 0, MAJ_236_300 = 0, MAJ_300_310 = 0, MAJ_310_320 = 0 ;
108 #ifdef PPRO_NT
109  char *drive, *dir, *ext;
110 #endif
111  unsigned char reponse='o';
112  med_bool _noversion=MED_FALSE;
113 
114  EXIT_IF(filein == NULL,"Le nom du fichier d'entrée est vide : ", filein);
115 
116  hasfileout = strcmp(fileout,"");
117  if ( hasfileout ) {
118  _fileoutsize = strlen(fileout);
119  _fileout = fileout;
120  } else {
121  _fileoutsize = strlen(filein)+strlen(PACKAGE_VERSION);
122  tmp = (char *) malloc(sizeof(char)*(_fileoutsize+1));
123  strcpy(tmp,filein);
124  strcat(tmp,PACKAGE_VERSION);
125 #ifdef PPRO_NT
126  _splitpath( tmp, drive, dir, _fileout, ext );
127 #else
128  _fileout = basename(tmp);
129 #endif
130  _fileoutsize = strlen(_fileout);
131 
132  }
133 
134  /* Test du format du fichier */
135 
136  ret = MEDfileCompatibility(filein,&hdfok,&medok);
137 
138  if (ret < 0 ) {
139  fprintf(stdout,">>> Attention le fichier %s ne contient pas de numéro de version. \n",filein);
140  fprintf(stdout,">>> Le fichier %s est supposé être en version 2.1.1. \n",filein);
141  /* PAs d'interactif dans une bibliothèque !*/
142 /* fprintf(stdout,">>> Voulez-vous essayer une conversion d'un fichier < 2.2 (o/n) ? "); */
143 /* scanf("%c",&reponse); */
144  if ( (reponse != 'o') && (reponse != 'O') && (reponse != 'y') && (reponse != 'Y') ) {
145  EXIT_IF(MEDfileCompatibility(filein,&hdfok,&medok) < 0,
146  "Erreur d'appel de MEDfileCompatibility : ", filein);
147  }
148  _noversion = MED_TRUE;
149  }
150  EXIT_IF( !hdfok ,
151  "Le fichier d'entrée n'est pas dans un format HDF compatible : ", filein);
152 
153 /* EXIT_IF( !medok , */
154 /* "MEDimport ne gère pas le format MED de ce fichier : ", filein); */
155 
156  /* Creation et ouverture du fichier que l'on va convertir au format MED actuel */
157  commande = (char *) malloc(sizeof(char)*(strlen("cp ")+strlen(filein)+
158  strlen(" ")+_fileoutsize + 4 +1 ) );
159  EXIT_IF(commande == NULL,NULL,NULL);
160  strcpy(commande,"cp \"");
161  strcat(commande,filein);
162  strcat(commande,"\" \"");
163  strcat(commande,_fileout);
164  strcat(commande,"\"");
165  fprintf(stdout,">>> Creation du fichier %s : %s \n",_fileout,commande);
166  system(commande);
167  free(commande);
168  commande = (char *) malloc(sizeof(char)*(strlen("chmod u+w \"") + _fileoutsize +1 +1 ) );
169  EXIT_IF(commande == NULL,NULL,NULL);
170  strcpy(commande,"chmod u+w \"");
171  strcat(commande,_fileout);
172  strcat(commande,"\"");
173  fprintf(stdout,">>> Chmod +w du fichier %s : %s \n",_fileout,commande);
174  system(commande);
175  free(commande);
176 
177  fid = MEDfileOpen(_fileout,MED_ACC_RDWR);
178  EXIT_IF(fid < 0,"Ouverture du fichier : ", _fileout);
179 
180  /* Verification du numero de version */
181  if (! _noversion)
182  ret = MEDfileNumVersionRd(fid,&majeur,&mineur,&release);
183  else {
184  ret=0;
185  majeur=2;
186  mineur=1;
187  release=1;
188  }
189  sprintf(version, IFORMAT"_"IFORMAT"_"IFORMAT, majeur, mineur, release);
190  EXIT_IF(ret < 0,"Lecture du numero de version de MED-fichier",NULL);
191  if (strcmp(version, "2_2_0") < 0)
192  MAJ_21_22 = 1;
193  if (strcmp(version, "2_3_2") < 0)
194  MAJ_231_232 = 1;
195  if (strcmp(version, "3_0_0") < 0)
196  MAJ_236_300 = 1;
197  if (strcmp(version, "3_1_0") < 0)
198  MAJ_300_310 = 1;
199  if (strcmp(version, "3_2_0") < 0)
200  MAJ_310_320 = 1;
201 
202  /* Ne pas oublier que la version cible du fichier à convertir est celui de la bibliothèque. */
203  if (MAJ_310_320 == 0) {
204  fprintf(stdout,"Le fichier %s est déjà au bon format !!! \n",_fileout);
205  ret = MEDfileClose(fid);
206  EXIT_IF(ret < 0,"Fermeture du fichier",filein);
207  return 0;
208  }
209 
210  /* On avertit qu'on commence la conversion */
211  fprintf(stdout,">>> Lancement de la normalisation du fichier selon le format " PACKAGE_VERSION " ...\n");
212 
213  /* On inhibe le gestionnaire d'erreur HDF5 */
215 
216  /* Mise a jour du numero de version */
217  fprintf(stdout,"- Lancement de la mise à jour du numéro de version ... \n");
218  /* La mise à jour MAJ_version(fid); doit être différée pour que les majs des fichiers anciens
219  fonctionnent correctement*/
220  /* MAJ_version(fid); */
221  MAJ_write_version_num(fid,2,3,6);
222  fprintf(stdout," Numéro de version : ... OK ... \n");
223 
224  if (MAJ_21_22) {
225 
226  /* Mise a jour des maillages : type = MED_NON_STRUCTURE, description, ... */
227  fprintf(stdout,"- Lancement de la mise à jour des maillages (21_22)... \n");
228  MAJ_21_22_maillages(fid);
229  fprintf(stdout," Maillage(s) : ... OK ...\n");
230 
231  /* Mise a jour des champs */
232  fprintf(stdout,"- Lancement de la mise à jour des champs de résultats (21_22)... \n");
233  MAJ_21_22_champs(fid);
234  fprintf(stdout," Champs(s) : ... OK ...\n");
235 
236  /* Mise a jour des profils eventuels */
237  nprofil = MEDnProfil(fid);
238  if (nprofil > 0) {
239  fprintf(stdout,"- Lancement de la mise à jour des profils (21_22)... \n");
240  MAJ_21_22_profils(fid,nprofil);
241  fprintf(stdout," Profils(s) : ... OK ...\n");
242  } else {
243  strncpy(chemin_profils,MED_PROFILE_GRP,MED_PROFILE_GRP_SIZE-1);
244  chemin_profils[MED_PROFILE_GRP_SIZE-1] = '\0';
245  gid = _MEDdatagroupCreer(fid,chemin_profils);
246  EXIT_IF(gid < 0,"Creation du groupe HDF sur les profils",chemin_profils);
247  ret = _MEDdatagroupFermer(gid);
248  EXIT_IF(ret < 0,"Fermeture du groupe HDF sur les profils",chemin_profils);
249  }
250 
251  /* On cree le groupe HDF pour les liens */
252  strncpy(chemin_liens,MED_LIENS,MED_TAILLE_LIENS-1);
253  chemin_liens[MED_TAILLE_LIENS-1] = '\0';
254  gid = _MEDdatagroupCreer(fid,chemin_liens);
255  EXIT_IF(gid < 0,"Creation du groupe HDF sur les liens",chemin_liens);
256  ret = _MEDdatagroupFermer(gid);
257  EXIT_IF(ret < 0,"Fermeture du groupe HDF sur les liens",chemin_liens);
258  }
259 
260  if (MAJ_231_232) {
261  /* Mise a jour des champs */
262  fprintf(stdout,"- Lancement de la mise à jour des champs de résultats (231_232)... \n");
263  MAJ_231_232_champs(fid);
264  fprintf(stdout," Champs(s) : ... OK ...\n");
265  fprintf(stdout,"- Lancement de la mise à jour des noms de maillages (231_232)... \n");
267  fprintf(stdout," Noms(s) de maillage(s): ... OK ...\n");
268  }
269 
270  if (MAJ_236_300) {
271  /* Le système de cache de version a été developpé à partir de la 3.0*/
272  /* Initialise le cache sur une 2.3.6 (cas d'absence d'INFO)*/
273  _MEDfileVersion(fid);
274 
275  /* Mise a jour des champs */
276  fprintf(stdout,"- Lancement de la mise à jour des champs de résultats (236_300)... \n");
277  MAJ_236_300_champs(fid);
278  fprintf(stdout," Champs(s) : ... OK ...\n");
279 
280  /* MAJ_version(fid); */
281 
282  fprintf(stdout,"- Lancement de la mise à jour des maillages (236_300)... \n");
284  fprintf(stdout," Maillage(s): ... OK ...\n");
285 
286  /* MAJ_version(fid); */
287 
288  }
289 
290  if (MAJ_300_310) {
291  /* Le système de cache de version a été developpé à partir de la 3.0*/
292  /* Initialise le cache sur une 3.0.8 (cas d'absence d'INFO)*/
293  /* s'il n'a pas déjà été instanciée ds les MAJ précédentes */
294  MAJ_write_version_num(fid,3,0,8);
295  _MEDfileVersion(fid);
296  /* Si le cache était dèjà instancié, met à jour le cache */
297  MAJ_version_num(fid,3,0,8);
298 
299  /* Mise a jour des champs */
300  fprintf(stdout,"- Lancement de la mise à jour des champs de résultats (300_310) ... \n");
301  MAJ_300_310_champs(fid);
302  fprintf(stdout," Champs(s) : ... OK ...\n");
303 
304 
305  }
306 
307  if (MAJ_310_320) {
308  /* Le système de cache de version a été developpé à partir de la 3.0*/
309  /* Initialise le cache sur une 3.0.8 (cas d'absence d'INFO)*/
310  /* s'il n'a pas été déjà été instanciée ds les MAJ_ précédentes */
311  MAJ_write_version_num(fid,3,1,0);
312  _MEDfileVersion(fid);
313  /* Si le cache était dèjà instancié, met à jour le cache */
314  MAJ_version_num(fid,3,1,0);
315 
316  /* Mise a jour des familles/groupes */
317  fprintf(stdout,"- Lancement de la mise à jour des familles/groupes (310_320) ... \n");
319  fprintf(stdout," Famille(s)/Groupe(s) : ... OK ...\n");
320  }
321 
322  /* A l'écriture d'une nouvelle version de MAJ ex 310_320,
323  il est necessaire de revisiter les appels à MAJ_version(fid) pour
324  les remplacer par les appels MAJ_version(fid,3,1,Lastest31z) */
325 
326  MAJ_version(fid);
328 
329  /* Fermeture du fichier */
330  ret = MEDfileClose(fid);
331  EXIT_IF(ret < 0,"Fermeture du fichier",_fileout);
332 
333  /* On avertit que c'est fini */
334  fprintf(stdout,">>> Conversion du fichier %s au format MED V" PACKAGE_VERSION " terminée\n",
335  _fileout);
336 
337  /* On libere la memoire */
338  if (!hasfileout) free(tmp);
339 
340  return 0;
341 }
342 
#define MED_TAILLE_LIENS
Definition: med_outils.h:238
#define MED_LIENS
Definition: med_outils.h:237
void MAJ_300_310_champs(med_idt fid)
herr_t med_err
Definition: med.h:310
void MAJ_236_300_champs(med_idt fid)
int MEDimport(char *filein, char *fileout)
Definition: libmedimport.c:92
int HAVE_MEDimport
Definition: libmedimport.c:46
MEDC_EXPORT med_file_version _MEDfileVersion(const med_idt oid)
MEDC_EXPORT med_idt MEDfileOpen(const char *const filename, const med_access_mode accessmode)
Ouverture d'un fichier MED.
Definition: MEDfileOpen.c:41
#define IFORMAT
Definition: med_utils.h:144
void MAJ_21_22_maillages(med_idt fid)
MEDC_EXPORT med_err MEDfileNumVersionRd(const med_idt fid, med_int *const major, med_int *const minor, med_int *const release)
Lecture du numéro de version de la bibliothèque MED utilisée pour créer le fichier.
void MAJ_21_22_champs(med_idt fid)
void MAJ_236_300_maillages(med_idt fid)
void MAJ_write_version_num(med_idt fid, const int majeur, const int mineur, const int release)
Definition: MAJ_version.c:36
void MAJ_231_232_champs(med_idt fid)
Definition: med.h:240
void MAJ_21_22_profils(med_idt fid, med_int nprofil)
int med_int
Definition: med.h:316
#define MED_PROFILE_GRP_SIZE
Definition: med_outils.h:224
#define MED_PROFILE_GRP
Definition: med_outils.h:223
void MAJ_version(med_idt fid)
Definition: MAJ_version.c:60
void MAJ_231_232_maillages(med_idt fid)
MEDC_EXPORT med_err MEDfileClose(med_idt fid)
Fermeture d'un fichier MED.
Definition: MEDfileClose.c:30
#define MED_NUM_MAJEUR
Definition: med.h:58
void MAJ_310_320_familles(med_idt fid)
MEDC_EXPORT med_err _MEDdatagroupFermer(med_idt id)
#define MED_NUM_MINEUR
Definition: med.h:59
#define EXIT_IF(expression, message, arg)
Definition: med_utils.h:335
#define MED_NUM_RELEASE
Definition: med.h:60
Definition: med.h:240
MEDC_EXPORT med_idt _MEDdatagroupCreer(med_idt pid, const char *const nom)
#define _Bool
Definition: libmedimport.c:32
MEDC_EXPORT void _MEDmodeErreurVerrouiller(void)
hid_t med_idt
Definition: med.h:309
void MAJ_version_num(med_idt fid, const int majeur, const int mineur, const int release)
Definition: MAJ_version.c:23
med_bool
Definition: med.h:240
MEDC_EXPORT med_err MEDfileCompatibility(const char *const filename, med_bool *const hdfok, med_bool *const medok)
Vérification de la compatibilité d'un fichier avec HDF et MED.
#define PACKAGE_VERSION
Definition: med_config.h:152