summaryrefslogtreecommitdiffstats
path: root/hl/tools/gif2h5/readhdf.c
blob: 76bfb86ec5e0d2bff578488424a0baffd365a986 (plain)
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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
#include "gif.h"

/* just a small cleanup routine before we leave */
void cleanup(BYTE *ptr) {
	if (ptr)
		free(ptr);
}

/* Function :	ReadHDF
** Return:		0 on completion without error, -1 on error
** Input:		CHAR *h5_file - HDF file name
**				CHAR *dset_name - Name of the HDF Image dataset
**				CHAR *pal_name - Name of the HDF palette
** Output	:	BYTE** data - the HDF Image to be converted
**				BYTE  palette[256][3] - the corresponding palette
**				hsize_t* image_size - the size of each dimension of the image
**
** Future Notes: 
** The way readHDF works right now is that it expects the user 
** to know the exact path to the HDF image. Thus it does not
** parse the HDF file looking for image datasets and corresponding
** palettes. Also it takes in the default palette for the image 
** specified, if the palette is missing, it makes a default greyscale
** palette and throws it in.
**
*/
int ReadHDF(BYTE** data ,
			BYTE palette[256][3] ,
			hsize_t *image_size ,
			CHAR *h5_file ,
			CHAR *dset_name ,
			CHAR *pal_name) 
{
	hid_t fHfile;	/* H5 file to open */
	herr_t status;	/* status variable */
	hid_t dspace;	/* dataspace identifier for the the dataset */
	hid_t dset;		/* dataset identifier */
	hid_t pal_set;	/* dataset for palette */
	hid_t pal_space;/* dataspace for palette */
	hsize_t datasize;	/* size of the image */
	int pal_exist = 0;	/* do we have a palette? */

	/* check stuff */
	if (!h5_file || !dset_name || !image_size) {
		fprintf(stderr , "NULL is not an acceptable input for HDFread. Aborting.\n");
		return -1;
	}

	/* do we have a palette ? */
	if (pal_name) {
		pal_exist = 1;
	}

	/* try opening the file */
	/* H5 file open calls */
	if ((fHfile = H5Fopen(h5_file , H5F_ACC_RDONLY , H5P_DEFAULT)) < 0) {
		fprintf(stderr , "Unable to open HDF file for input. Aborting.\n");
		return -1;
	}

	/* open the dataset for reading */
	if ((dset = H5Dopen(fHfile , dset_name)) < 0) {
		fprintf(stderr , "Unable to open dataset\n");
		return -1;
	}

	/* get the dataspace */
	if ((dspace = H5Dget_space(dset)) < 0) {
		fprintf(stderr , "Unable to get dataspace\n");
		return -1;
	}

	/* get the dimension size of the image */
	if (H5Sget_simple_extent_dims(dspace , image_size , NULL) !=2 ) {
		fprintf(stderr , "Unable to get dimension info\n");
		return -1;
	}

	/* size needed to store the image */
	datasize = image_size[0] * image_size[1];

	/* allocate memory to store the image */
	if ((*data = (BYTE*) malloc((size_t)datasize)) == NULL) {
		fprintf(stderr , "Out of memory, exiting");
		return -1;
	}

	/* get the actual image */
	if ((status = H5Dread(dset , H5Dget_type(dset) , H5S_ALL , H5S_ALL , H5P_DEFAULT , *data)) < 0) {
		fprintf(stderr , "Unable to read data \n");
		cleanup(*data);
		return -1;
	}

	if (pal_exist) {
		hsize_t loc_pal_size[2];
		hsize_t pal_datasize;
		BYTE *temp_buf;
		hsize_t temp_size;

		/* get the palette dataset */
		if ((pal_set = H5Dopen(fHfile , pal_name)) < 0) {
			fprintf(stderr , "Unable to open dataset\n");
			pal_exist = 0;
			return -1;
		}
		
		/* get the dataspace */
		if ((pal_space = H5Dget_space(pal_set)) < 0) {
			fprintf(stderr , "Unable to get dataspace\n");
			pal_exist = 0;
			return -1;
		}
		
		/* get the dimension size of the palette. */
		if (H5Sget_simple_extent_dims(pal_space , loc_pal_size , NULL) !=2 ) {
			fprintf(stderr , "Unable to get dimension info\n");
			pal_exist = 0;
			return -1;
		}
		
		/* size needed to store the image */
		pal_datasize = loc_pal_size[0] * loc_pal_size[1];
		
		/* copy stuff into a temp buffer and then copy 256*3 elements to palette */
		temp_size = H5Dget_storage_size(pal_set);
		
		temp_buf = (BYTE*) malloc ((size_t)temp_size * sizeof(BYTE));

		/* make sure that the palette is actually 256 X 3 so that we don't create overflows */
		if (pal_datasize > 256 * 3)
		{
			fprintf(stderr , "Palette seems to be more than 256X3 bytes\n");
			fprintf(stderr , "Truncating palette to 256 colors. This might cause a problem with the final image\n");
			pal_datasize = 256 * 3;
		}		

		/* get the actual palette */
		if ((status = H5Dread(pal_set , H5Dget_type(pal_set) , H5S_ALL , H5S_ALL , H5P_DEFAULT , temp_buf)) < 0) {
			fprintf(stderr , "Unable to read data \n");
			cleanup(*data);
			cleanup(temp_buf);
			return -1;
		}

		/* copy stuff into the actual palette */
		memcpy(palette , temp_buf , (size_t)pal_datasize);

		/* get rid of the temp memory */
		cleanup(temp_buf);
		/* end of if (pal_exist) */
	
	} else {
		int i;
		/* if palette does not exist we just go ahead and create a uniform greyscale palette */
		for (i = 0 ; i < 256 ; i++) {
			palette[i][0] = 255 - i;
			palette[i][1] = 255 - i;
			palette[i][2] = 255 - i;
		}
	}

	/* close everything */
	status = H5Dclose(dset);
	status = H5Sclose(dspace);
	status = H5Fclose(fHfile);

	return 0;
}