mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-15 07:40:23 +08:00
334 lines
8.2 KiB
C
334 lines
8.2 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
|
* of the source code distribution tree; Copyright.html can be found at the *
|
|
* root level of an installed copy of the electronic HDF5 document set and *
|
|
* is linked from the top-level documents page. It can also be found at *
|
|
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
|
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/*
|
|
* Generate the binary hdf5 file for the h5copy tests
|
|
*/
|
|
#include <stdlib.h>
|
|
#include "hdf5.h"
|
|
|
|
#define FILENAME "h5copytst.h5"
|
|
#define DATASET_SIMPLE "simple"
|
|
#define DATASET_CHUNK "chunk"
|
|
#define DATASET_COMPACT "compact"
|
|
#define DATASET_COMPOUND "compound"
|
|
#define DATASET_COMPRESSED "compressed"
|
|
#define DATASET_NAMED_VL "named_vl"
|
|
#define DATASET_NESTED_VL "nested_vl"
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_simple
|
|
*
|
|
* Purpose: Generate a simple dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_simple(hid_t fid)
|
|
{
|
|
hid_t sid, did;
|
|
hsize_t dims[1] = {6};
|
|
int buf[6] = {1,2,3,4,5,6};
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_SIMPLE, H5T_NATIVE_INT, sid, H5P_DEFAULT);
|
|
|
|
/* write */
|
|
H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_chunked
|
|
*
|
|
* Purpose: Generate a chunked dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_chunked(hid_t fid)
|
|
{
|
|
hid_t sid, did, pid;
|
|
hsize_t dims[1] = {6};
|
|
hsize_t chunk_dims[1] = {2};
|
|
int buf[6] = {1,2,3,4,5,6};
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create property plist */
|
|
pid = H5Pcreate(H5P_DATASET_CREATE);
|
|
H5Pset_chunk(pid, 1, chunk_dims);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_CHUNK, H5T_NATIVE_INT, sid, pid);
|
|
|
|
/* write */
|
|
H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Pclose(pid);
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_compact
|
|
*
|
|
* Purpose: Generate a compact dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_compact(hid_t fid)
|
|
{
|
|
hid_t sid, did, pid;
|
|
hsize_t dims[1] = {6};
|
|
int buf[6] = {1,2,3,4,5,6};
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create property plist */
|
|
pid = H5Pcreate(H5P_DATASET_CREATE);
|
|
H5Pset_layout (pid,H5D_COMPACT);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_COMPACT, H5T_NATIVE_INT, sid, pid);
|
|
|
|
/* write */
|
|
H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Pclose(pid);
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_compound
|
|
*
|
|
* Purpose: Generate a compound dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_compound(hid_t fid)
|
|
{
|
|
typedef struct s_t
|
|
{
|
|
char str1[20];
|
|
char str2[20];
|
|
} s_t;
|
|
hid_t sid, did, tid_c, tid_s;
|
|
hsize_t dims[1] = {2};
|
|
s_t buf[2] = {{"str1","str2"},{"str3","str4"}};
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create a compound type */
|
|
tid_c = H5Tcreate (H5T_COMPOUND, sizeof(s_t));
|
|
tid_s = H5Tcopy (H5T_C_S1);
|
|
H5Tset_size (tid_s, 20);
|
|
|
|
H5Tinsert (tid_c, "str1", HOFFSET(s_t,str1), tid_s);
|
|
H5Tinsert (tid_c, "str2", HOFFSET(s_t,str2), tid_s);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_COMPOUND, tid_c, sid, H5P_DEFAULT);
|
|
|
|
/* write */
|
|
H5Dwrite(did, tid_c, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Tclose(tid_c);
|
|
H5Tclose(tid_s);
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_compressed
|
|
*
|
|
* Purpose: Generate a compressed dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_compressed(hid_t fid)
|
|
{
|
|
hid_t sid, did, pid;
|
|
hsize_t dims[1] = {6};
|
|
hsize_t chunk_dims[1] = {2};
|
|
int buf[6] = {1,2,3,4,5,6};
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create property plist for chunk*/
|
|
pid = H5Pcreate(H5P_DATASET_CREATE);
|
|
H5Pset_chunk(pid, 1, chunk_dims);
|
|
|
|
/* set the deflate filter */
|
|
#if defined (H5_HAVE_FILTER_DEFLATE)
|
|
H5Pset_deflate(pid, 1);
|
|
#endif
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_COMPRESSED, H5T_NATIVE_INT, sid, pid);
|
|
|
|
/* write */
|
|
H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Pclose(pid);
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_named_vl
|
|
*
|
|
* Purpose: Generate a variable lenght named datatype for a dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_named_vl(hid_t fid)
|
|
{
|
|
hid_t sid, did, tid;
|
|
hsize_t dims[1] = {2};
|
|
hvl_t buf[2];
|
|
|
|
/* allocate and initialize VL dataset to write */
|
|
buf[0].len = 1;
|
|
buf[0].p = malloc( 1 * sizeof(int));
|
|
((int *)buf[0].p)[0]=1;
|
|
buf[1].len = 2;
|
|
buf[1].p = malloc( 2 * sizeof(int));
|
|
((int *)buf[1].p)[0]=2;
|
|
((int *)buf[1].p)[1]=3;
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create datatype */
|
|
tid = H5Tvlen_create(H5T_NATIVE_INT);
|
|
|
|
/* create named datatype */
|
|
H5Tcommit(fid, "vl", tid);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_NAMED_VL, tid, sid, H5P_DEFAULT);
|
|
|
|
/* write */
|
|
H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Dvlen_reclaim(tid,sid,H5P_DEFAULT,buf);
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Tclose(tid);
|
|
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: gent_nested_vl
|
|
*
|
|
* Purpose: Generate a nested variable lenght dataset in FID
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static void gent_nested_vl(hid_t fid)
|
|
{
|
|
hid_t sid, did, tid1, tid2;
|
|
hsize_t dims[1] = {2};
|
|
hvl_t buf[2];
|
|
hvl_t *tvl;
|
|
|
|
/* allocate and initialize VL dataset to write */
|
|
buf[0].len = 1;
|
|
buf[0].p = malloc( 1 * sizeof(hvl_t));
|
|
tvl = buf[0].p;
|
|
tvl->p = malloc( 1 * sizeof(int) );
|
|
tvl->len = 1;
|
|
((int *)tvl->p)[0]=1;
|
|
|
|
buf[1].len = 1;
|
|
buf[1].p = malloc( 1 * sizeof(hvl_t));
|
|
tvl = buf[1].p;
|
|
tvl->p = malloc( 2 * sizeof(int) );
|
|
tvl->len = 2;
|
|
((int *)tvl->p)[0]=2;
|
|
((int *)tvl->p)[1]=3;
|
|
|
|
/* create dataspace */
|
|
sid = H5Screate_simple(1, dims, NULL);
|
|
|
|
/* create datatype */
|
|
tid1 = H5Tvlen_create(H5T_NATIVE_INT);
|
|
|
|
/* create nested VL datatype */
|
|
tid2 = H5Tvlen_create(tid1);
|
|
|
|
/* create dataset */
|
|
did = H5Dcreate(fid, DATASET_NESTED_VL, tid2, sid, H5P_DEFAULT);
|
|
|
|
/* write */
|
|
H5Dwrite(did, tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
|
|
|
|
/* close */
|
|
H5Dvlen_reclaim(tid2,sid,H5P_DEFAULT,buf);
|
|
H5Sclose(sid);
|
|
H5Dclose(did);
|
|
H5Tclose(tid1);
|
|
H5Tclose(tid2);
|
|
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: main
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
int main(void)
|
|
{
|
|
hid_t fid;
|
|
|
|
|
|
fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
|
|
|
|
gent_simple(fid);
|
|
gent_chunked(fid);
|
|
gent_compact(fid);
|
|
gent_compound(fid);
|
|
gent_compressed(fid);
|
|
gent_named_vl(fid);
|
|
gent_nested_vl(fid);
|
|
|
|
H5Fclose(fid);
|
|
return 0;
|
|
}
|
|
|