1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* 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 COPYING file, which can be found at the root of the source code *
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/*
* Module Info: This module contains most of the "core" functionality of
* the H5T interface, including the API initialization code, etc.
* Many routines that are infrequently used, or are specialized for
* one particular datatype class are in another module.
*/
/*-------------------------------------------------------------------------
*
* Created: H5Tvisit.c
* Jul 19 2007
* Quincey Koziol
*
* Purpose: Visit all the components of a datatype
*
*-------------------------------------------------------------------------
*/
/****************/
/* Module Setup */
/****************/
#define H5T_PACKAGE /*suppress error about including H5Tpkg */
/***********/
/* Headers */
/***********/
#include "H5private.h" /* Generic Functions */
#include "H5Eprivate.h" /* Error handling */
#include "H5Tpkg.h" /* Datatypes */
/****************/
/* Local Macros */
/****************/
/******************/
/* Local Typedefs */
/******************/
/********************/
/* Package Typedefs */
/********************/
/********************/
/* Local Prototypes */
/********************/
/*********************/
/* Package Variables */
/*********************/
/*****************************/
/* Library Private Variables */
/*****************************/
/*******************/
/* Local Variables */
/*******************/
/*-------------------------------------------------------------------------
* Function: H5T__visit
*
* Purpose: Visit a datatype and all it's members and/or parents, making
* a callback for each.
*
* Return: Non-negative on success/Negative on failure
*
* Programmer: Quincey Koziol
* Thursday, July 19, 2007
*
*-------------------------------------------------------------------------
*/
herr_t
H5T__visit(H5T_t *dt, unsigned visit_flags, H5T_operator_t op, void *op_value)
{
hbool_t is_complex; /* Flag indicating current datatype is "complex" */
herr_t ret_value = SUCCEED; /* Return value */
FUNC_ENTER_PACKAGE
/* Sanity check */
HDassert(dt);
HDassert(op);
/* Check for complex datatype */
is_complex = H5T_IS_COMPLEX(dt->shared->type);
/* If the callback is to be made on the datatype first, do that */
if (is_complex && (visit_flags & H5T_VISIT_COMPLEX_FIRST))
if (op(dt, op_value) < 0)
HGOTO_ERROR(H5E_DATATYPE, H5E_BADITER, FAIL, "operator callback failed")
/* Make callback for each member/child, if requested */
switch (dt->shared->type) {
case H5T_COMPOUND: {
unsigned u; /* Local index variable */
/* Visit each member of the compound datatype */
for (u = 0; u < dt->shared->u.compnd.nmembs; u++)
if (H5T__visit(dt->shared->u.compnd.memb[u].type, visit_flags, op, op_value) < 0)
HGOTO_ERROR(H5E_DATATYPE, H5E_BADITER, FAIL, "can't visit member datatype")
} /* end case */
break;
case H5T_ARRAY:
case H5T_VLEN:
case H5T_ENUM:
/* Visit parent type */
if (H5T__visit(dt->shared->parent, visit_flags, op, op_value) < 0)
HGOTO_ERROR(H5E_DATATYPE, H5E_BADITER, FAIL, "can't visit parent datatype")
break;
default:
/* Visit "simple" datatypes here */
if (visit_flags & H5T_VISIT_SIMPLE)
if (op(dt, op_value) < 0)
HGOTO_ERROR(H5E_DATATYPE, H5E_BADITER, FAIL, "operator callback failed")
break;
} /* end switch */
/* If the callback is to be made on the datatype last, do that */
if (is_complex && (visit_flags & H5T_VISIT_COMPLEX_LAST))
if (op(dt, op_value) < 0)
HGOTO_ERROR(H5E_DATATYPE, H5E_BADITER, FAIL, "operator callback failed")
done:
FUNC_LEAVE_NOAPI(ret_value)
} /* end H5T__visit() */
|
