1 /*************************************************************************
2 * COPYRIGHT (C) 1999 - 2007 EDF R&D, CEA/DEN
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 /******************************************************************************
20 * - Nom du fichier : test1.c
21 *
22 * - Description : tests des routines d'ouverture/fermeture de
23 * fichiers MED
24 *
25 *****************************************************************************/
26
27 #include <med.h>
28 #define MESGERR
29 #include <med_utils.h>
30
31 #ifdef DEF_LECT_ECR
32 #define MODE_ACCES MED_LECTURE_ECRITURE
33 #elif DEF_LECT_AJOUT
34 #define MODE_ACCES MED_LECTURE_AJOUT
35 #else
36 #define MODE_ACCES MED_CREATION
37 #endif
38
39 int main (int argc, char **argv)
40
41
42 {
43 med_err ret = 0;
44 med_idt fid;
45 char des[MED_TAILLE_DESC+1]="Ceci est un courte description du mon fichier test1.med";
46
47 /* creation du fichier "test1.med" */
48 fid = MEDouvrir("test1.med",MODE_ACCES);
49 if (fid < 0) {
50 MESSAGE("Erreur à la creation du fichier");
51 return -1;
52 }
53
54 /* ecriture d'un en-tete dans le fichier */
55 if (MEDfichDesEcr(fid,des) < 0) {
56 MESSAGE("Erreur à l'ecriture de l'en-tete du fichier");
57 ret = -1;
58 }
59
60 /* fermeture du fichier */
61 if ((ret = MEDfermer(fid)) < 0) {
62 MESSAGE("Erreur à la fermeture du fichier");
63 return -1;
64 }
65
66 /* re-ouverture du fichier en lecture seule */
67 fid = MEDouvrir("test1.med",MED_LECTURE);
68 if (fid < 0) {
69 MESSAGE("Erreur à l'ouverture du fichier en mode MED_LECTURE");
70 return -1;
71 }
72
73 /* fermeture du fichier */
74 if (MEDfermer(fid) < 0)
75 ret = -1;
76
77 return ret;
78 }
79
80
81
82