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
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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 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://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
* access to either file, you may request a copy from help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/*
* Programmer:
*
* Purpose:
*/
#include "hdf5.h"
#include "H5private.h"
#include "h5tools.h"
#include "h5tools_utils.h"
/* Name of tool */
#define PROGRAMNAME "h5clear"
/* Make this private property (defined in H5Fprivate.h) available to h5clear. */
#define H5F_ACS_CLEAR_STATUS_FLAGS_NAME "clear_status_flags"
/*-------------------------------------------------------------------------
* Function: leave
*
* Purpose: Close the tools library and exit
*
* Return: Does not return
*
*-------------------------------------------------------------------------
*/
static void
leave(int ret)
{
h5tools_close();
HDexit(ret);
} /* leave() */
/*-------------------------------------------------------------------------
* Function: usage
*
* Purpose: Prints a usage message
*
* Return: void
*
*-------------------------------------------------------------------------
*/
static void
usage(void)
{
HDfprintf(stdout, "usage: h5clear filename\n");
} /* usage() */
/*-------------------------------------------------------------------------
* Function: main
*
* Purpose:
*
* Return: Success:
* Failure:
*
* Programmer:
*
*-------------------------------------------------------------------------
*/
int
main (int argc, char *argv[])
{
char *fname; /* File name */
hbool_t clear = TRUE; /* To clear the status_flags in the file's superblock */
hid_t fapl = -1; /* File access property list */
hid_t fid = -1; /* File ID */
h5tools_setprogname(PROGRAMNAME);
h5tools_setstatus(EXIT_SUCCESS);
/* Disable the HDF5 library's error reporting */
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
/* initialize h5tools lib */
h5tools_init();
/* Check for the # of arguments */
if(argc != 2) {
usage();
leave(EXIT_FAILURE);
}
/* Get a copy of the file access property list */
if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) {
error_msg("H5Pcreate\n");
leave(EXIT_FAILURE);
}
/* Set to clear the status_flags in the file's superblock */
/* This is a private property used by h5clear only */
if(H5Pset(fapl, H5F_ACS_CLEAR_STATUS_FLAGS_NAME, &clear) < 0) {
error_msg("H5Pset\n");
leave(EXIT_FAILURE);
}
/* Duplicate the file name */
fname = HDstrdup(argv[opt_ind]);
if((fid = h5tools_fopen(fname, H5F_ACC_RDWR, fapl, NULL, NULL, (size_t)0)) < 0) {
error_msg("h5tools_fopen\n");
HDfree(fname);
leave(EXIT_FAILURE);
}
HDfree(fname);
/* Close the file */
if(H5Fclose(fid) < 0) {
error_msg("H5Fclose\n");
leave(EXIT_FAILURE);
}
/* CLose the property list */
if(H5Pclose(fapl) < 0) {
error_msg("H5Pclose\n");
leave(EXIT_FAILURE);
}
leave(h5tools_getstatus());
} /* main() */
|
