     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