src/HDFPersist/test1.c

   1 #include"hdfi.h"
   2 #include<stdlib.h>
   3
   4 int main() {
   5   hdf_idt fid,gid,did,atid;
   6   hdf_err ret;
   7   hdf_size size[1];
   8   hdf_int32 data[10] = { 1,2,3,4,5,6,7,8,9,10};
   9   hdf_int32 attr_val = 2;
  10
  11   system("rm titi.HDF");
  12
  13   HDFerrorModeLock();
  14
  15   if  ((fid = HDFfileCreate("titi.HDF")) < 0)
  16     return -1;
  17   MESSAGE("Creation du fichier")
  18
  19   if ((gid = HDFgroupCreate(fid,"GROUP")) < 0)
  20     return -1;
  21   MESSAGE("Creation d'un groupe")
  22
  23   if ((atid = HDFattrCreate(gid,"ATTR",HDF_INT32))< 0)
  24     return -1;
  25   MESSAGE("Creation d'un attribut")
  26
  27   if ((ret = HDFattrWrite(atid,&attr_val)) < 0)
  28     return -1;
  29   MESSAGE("Ecriture de l'attribut")
  30
  31   if ((ret = HDFattrClose(atid))  < 0)
  32     return -1;
  33   MESSAGE("Fermeture de l'attribut")
  34
  35   size[0] = 10;
  36   if ((did = HDFdatasetCreate(gid,"DATASET",HDF_INT32,size)) < 0)
  37     return -1;
  38   MESSAGE("Creation d'un dataset")
  39
  40   if ((ret = HDFdatasetWrite(did,data)) < 0)
  41     return -1;
  42   MESSAGE("Ecriture du dataset")
  43
  44   if ((ret = HDFdatasetClose(did)) < 0)
  45     return -1;
  46   MESSAGE("Fermeture du datset")
  47
  48   if ((ret = HDFgroupClose(gid)) < 0)
  49     return -1;
  50   MESSAGE("Fermeture du groupe")
  51
  52   if ((ret = HDFfileClose(fid)) < 0)
  53     return ret;
  54   MESSAGE("Fermeture du fichier")
  55
  56   if  ((fid = HDFfileCreate("toto.HDF")) < 0)
  57     return -1;
  58   MESSAGE("Creation du fichier")
  59
  60   if ((ret = HDFfileClose(fid)) < 0)
  61     return ret;
  62   MESSAGE("Fermeture du fichier")
  63
  64
  65   return 0;
  66 }