1/* This is part of the netCDF package.  Copyright 2005 University
2   Corporation for Atmospheric Research/Unidata See COPYRIGHT file for
3   conditions of use.
4
5   This program excersizes HDF5 variable length array code.
6*/
7
8#include "h5_err_macros.h"
9#include <hdf5.h>
10
11#define FILE_NAME "tst_h_opaques.h5"
12#define DIM1_LEN 3
13#define ATT_NAME "att_name"
14#define SIZE 9
15
16int
17main()
18{
19   hid_t fileidgrpidspaceidtypeidattid;
20   hsize_t dims[1] = {DIM1_LEN};
21   char data[DIM1_LEN][SIZE];
22   int ij;
23/*   size_t size;*/
24
25   /* Create some phoney data. */
26   for (i = 0; i < DIM1_LENi++)
27      for (j = 0; j < SIZEj++)
28  data[i][j] = 0;
29
30   printf("\n*** Checking HDF5 opaque types.\n");
31   printf("*** Checking simple HDF5 opaque types...");
32
33   /* Open file. */
34   if ((fileid = H5Fcreate(FILE_NAMEH5F_ACC_TRUNCH5P_DEFAULT,
35    H5P_DEFAULT)) < 0) ERR;
36   if ((grpid = H5Gcreate(fileid, "grp1", 0)) < 0) ERR;
37
38   /* Create opaque type. */
39   if ((typeid =  H5Tcreate(H5T_OPAQUESIZE)) < 0) ERR;
40
41   /* The size is rouned up to ?. */
42   /*if (!(size = H5Tget_size(typeid))) ERR;
43   if (size != 8) ERR;*/
44
45   /* Write an attribute of this type. */
46   if ((spaceid = H5Screate_simple(1, dimsNULL)) < 0) ERR;
47   if ((attid = H5Acreate(grpidATT_NAMEtypeidspaceid,
48   H5P_DEFAULT)) < 0) ERR;
49   if (H5Awrite(attidtypeiddata) < 0) ERR;
50   if (H5Aclose(attid) < 0) ERR;
51   if (H5Tclose(typeid) < 0) ERR;
52   if (H5Gclose(grpid) < 0) ERR;
53   if (H5Fclose(fileid) < 0) ERR;
54
55   SUMMARIZE_ERR;
56
57   FINAL_RESULTS;
58}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed