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