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