mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-09 08:11:38 +08:00
82 lines
2.6 KiB
C
82 lines
2.6 KiB
C
|
/* This is part of the netCDF package. Copyright 2018 University
|
||
|
|
Corporation for Atmospheric Research/Unidata See COPYRIGHT file for
|
||
|
|
conditions of use.
|
||
|
|
|
||
|
|
This program does HDF5 string stuff.
|
||
|
|
|
||
|
|
Here's a HDF5 sample programs:
|
||
|
|
http://hdf.ncsa.uiuc.edu/training/other-ex5/sample-programs/strings.c
|
||
|
|
*/
|
||
|
|
#include <string.h>
|
||
|
|
#include "err_macros.h"
|
||
|
|
#include <hdf5.h>
|
||
|
|
|
||
|
|
#define FILE_NAME "ref_fixedstring.h5"
|
||
|
|
#define DIM1_LEN 4
|
||
|
|
#define ATT_NAME1 "att1"
|
||
|
|
#define ATT_NAMEN "attn"
|
||
|
|
#define GRP_NAME "group"
|
||
|
|
|
||
|
|
int
|
||
|
|
main()
|
||
|
|
{
|
||
|
|
hid_t fileid, typeid;
|
||
|
|
hid_t spaceid1, attid1;
|
||
|
|
hid_t spaceidn, attidn;
|
||
|
|
hid_t dataspaceid1, dataset1;
|
||
|
|
hid_t dataspaceidn, datasetn;
|
||
|
|
size_t type_size;
|
||
|
|
|
||
|
|
const char data1[4] = "abcd";
|
||
|
|
const char datan[16] = "abcdefghijklmnop";
|
||
|
|
const hsize_t dims[1] = {4};
|
||
|
|
|
||
|
|
printf("\n*** Checking HDF5 fixed length string types.\n");
|
||
|
|
|
||
|
|
printf("*** Create HDF5 Dataset ...");
|
||
|
|
|
||
|
|
/* Open file. */
|
||
|
|
if ((fileid = H5Fcreate(FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) ERR;
|
||
|
|
|
||
|
|
/* Create fixed string type. */
|
||
|
|
if ((typeid = H5Tcopy(H5T_C_S1)) < 0) ERR;
|
||
|
|
type_size = 4 * sizeof(char);
|
||
|
|
if (H5Tset_size (typeid, type_size) < 0) ERR;
|
||
|
|
if (H5Tset_strpad (typeid, H5T_STR_NULLPAD) < 0) ERR;
|
||
|
|
|
||
|
|
/* Write a scalar attribute of this type. */
|
||
|
|
if ((spaceid1 = H5Screate(H5S_SCALAR)) < 0) ERR;
|
||
|
|
if ((attid1 = H5Acreate1(fileid, ATT_NAME1, typeid, spaceid1, H5P_DEFAULT)) < 0) ERR;
|
||
|
|
if (H5Awrite(attid1, typeid, &data1) < 0) ERR;
|
||
|
|
|
||
|
|
/* Write a vector attribute of this type. */
|
||
|
|
if ((spaceidn = H5Screate_simple(1,dims,NULL)) < 0) ERR;
|
||
|
|
if ((attidn = H5Acreate1(fileid, ATT_NAMEN, typeid, spaceidn, H5P_DEFAULT)) < 0) ERR;
|
||
|
|
if (H5Awrite(attidn, typeid, &datan) < 0) ERR;
|
||
|
|
|
||
|
|
/* Write a scalar variable of this type. */
|
||
|
|
if ((dataspaceid1 = H5Screate(H5S_SCALAR)) < 0) ERR;
|
||
|
|
dataset1 = H5Dcreate1(fileid, "v1", typeid, dataspaceid1, H5P_DEFAULT);
|
||
|
|
if (H5Dwrite (dataset1, typeid, H5S_ALL, H5S_ALL, H5P_DEFAULT, data1) < 0) ERR;
|
||
|
|
|
||
|
|
/* Write a vector variable of this type. */
|
||
|
|
if ((dataspaceidn = H5Screate_simple(1,dims,NULL)) < 0) ERR;
|
||
|
|
datasetn = H5Dcreate1(fileid, "vn", typeid, dataspaceidn, H5P_DEFAULT);
|
||
|
|
if (H5Dwrite (datasetn, typeid, H5S_ALL, H5S_ALL, H5P_DEFAULT, datan) < 0) ERR;
|
||
|
|
|
||
|
|
/* Close everything up. */
|
||
|
|
if (H5Dclose(datasetn) < 0) ERR;
|
||
|
|
if (H5Sclose(dataspaceidn) < 0) ERR;
|
||
|
|
if (H5Dclose(dataset1) < 0) ERR;
|
||
|
|
if (H5Sclose(dataspaceid1) < 0) ERR;
|
||
|
|
if (H5Aclose(attidn) < 0) ERR;
|
||
|
|
if (H5Sclose(spaceidn) < 0) ERR;
|
||
|
|
if (H5Aclose(attid1) < 0) ERR;
|
||
|
|
if (H5Sclose(spaceid1) < 0) ERR;
|
||
|
|
if (H5Tclose(typeid) < 0) ERR;
|
||
|
|
if (H5Fclose(fileid) < 0) ERR;
|
||
|
|
|
||
|
|
SUMMARIZE_ERR;
|
||
|
|
FINAL_RESULTS;
|
||
|
|
}
|