From 4854aa28f753f0997e3fb545735967b22ae750bc Mon Sep 17 00:00:00 2001 From: Robb Matzke Date: Wed, 11 Feb 1998 20:23:12 -0500 Subject: [svn-r255] Added a teeny tiny little miniscule amount of support for strings because the VB-API work stores comments in some of the VB tables. --- src/H5Odtype.c | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/src/H5Odtype.c b/src/H5Odtype.c index 776dd86..e8d57d8 100644 --- a/src/H5Odtype.c +++ b/src/H5Odtype.c @@ -103,6 +103,19 @@ H5O_dtype_decode_helper(const uint8 **pp, H5T_t *dt) UINT16DECODE(*pp, dt->u.atomic.prec); break; + case H5T_STRING: + /* + * Character string types... + */ + dt->u.atomic.order = H5T_ORDER_NONE; + dt->u.atomic.prec = 8 * dt->size; + dt->u.atomic.offset = 0; + dt->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->u.atomic.msb_pad = H5T_PAD_ZERO; + dt->u.atomic.u.s.cset = H5T_CSET_ASCII; + dt->u.atomic.u.s.pad = H5T_STR_NULL; + break; + case H5T_FLOAT: /* * Floating-point types... @@ -271,6 +284,19 @@ H5O_dtype_encode_helper(uint8 **pp, const H5T_t *dt) UINT16ENCODE(*pp, dt->u.atomic.prec); break; + case H5T_STRING: + /* + * Character string types... (not fully implemented) + */ + assert (dt->u.atomic.order == H5T_ORDER_NONE); + assert (dt->u.atomic.prec == 8 * dt->size); + assert (dt->u.atomic.offset == 0); + assert (dt->u.atomic.lsb_pad == H5T_PAD_ZERO); + assert (dt->u.atomic.msb_pad == H5T_PAD_ZERO); + assert (dt->u.atomic.u.s.cset == H5T_CSET_ASCII); + assert (dt->u.atomic.u.s.pad == H5T_STR_NULL); + break; + case H5T_FLOAT: /* * Floating-point types... -- cgit v0.12