     1  /*************************************************************************
     2  * COPYRIGHT (C) 1999 - 2003  EDF R&D
     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  #include <med_utils.h>
    29
    30  int main (int argc, char **argv)
    31  {
    32    med_err ret = 0;
    33    med_idt fid;
    34    char des[MED_TAILLE_DESC+1]="Ceci est un courte description du mon fichier test1.med";
    35
    36    /* creation du fichier "test1.med" */
    37    fid = MEDouvrir("test1.med",MED_CREATION);
    38    if (fid < 0) {
    39      MESSAGE("Erreur à la creation du fichier");
    40      return -1;
    41    }
    42
    43    /* ecriture d'un en-tete dans le fichier */
    44    if (MEDfichDesEcr(fid,des) < 0) {
    45      MESSAGE("Erreur à l'ecriture de l'en-tete du fichier");
    46      ret = -1;
    47    }
    48
    49    /* fermeture du fichier */
    50    if ((ret = MEDfermer(fid)) < 0) {
    51      MESSAGE("Erreur à la fermeture du fichier");
    52      return -1;
    53    }
    54
    55    /* re-ouverture du fichier en lecture seule */
    56    fid = MEDouvrir("test1.med",MED_LECTURE);
    57    if (fid < 0) {
    58      MESSAGE("Erreur à l'ouverture du fichier en mode MED_LECTURE");
    59      return -1;
    60    }
    61
    62    /* fermeture du fichier */
    63    if (MEDfermer(fid) < 0)
    64      ret = -1;
    65
    66    return ret;
    67  }
    68
    69
    70
    71