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
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
/*********************************************************************
* Copyright 2016, UCAR/Unidata
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
*********************************************************************/
/* Define various things common to all the t_dmr*.c testers */
#undef DEBUG
#undef DUMP
#include "d4includes.h"
#ifdef DEBUG
#include "ezxml.h"
#endif
typedef int TDMR;
#define TDMR_PARSE 1
#define TDMR_META 2
#define TDMR_DATA 4
static NCbytes* input = NULL;
static NCbytes* output = NULL;
static NCD4meta* metadata = NULL;
static char* infile = NULL;
static char* outfile = NULL;
static int ncid = 0;
static int translatenc4 = 0;
static int
readfile(const char* filename, NCbytes* content)
{
FILE* stream;
char part[1024];
stream = fopen(filename,"r");
if(stream == NULL) return errno;
for(;;) {
size_t count = fread(part, 1, sizeof(part), stream);
if(count <= 0) break;
ncbytesappendn(content,part,count);
if(ferror(stream)) {fclose(stream); return NC_EIO;}
if(feof(stream)) break;
}
ncbytesnull(content);
fclose(stream);
return NC_NOERR;
}
static void
fail(int code)
{
if(code != NC_NOERR)
fprintf(stderr,"***Fail: %s\n",nc_strerror(code));
exit((code==NC_NOERR?EXIT_SUCCESS:EXIT_FAILURE));
}
static void
setup(int tdmr, int argc, char** argv)
{
int ret = NC_NOERR;
argc--; argv++;
int expected = 0;
NCD4mode mode = 0;
switch(tdmr) {
case TDMR_PARSE:
expected = 1;
mode = NCD4_DMR;
break;
case TDMR_META:
expected = 2;
mode = NCD4_DMR;
break;
case TDMR_DATA:
fprintf(stderr,"setup is not used for t_dmrdata\n");
mode = NCD4_DAP;
exit(1);
}
if(argc < expected) {
fprintf(stderr, "too few arguments\n");
exit(1);
}
infile = argv[0];
outfile = NULL;
input = ncbytesnew();
output = ncbytesnew();
if((ret = readfile(infile,input))) fail(ret);
{
const char* trans = getenv("translatenc4");
if(trans != NULL)
translatenc4 = 1;
}
#ifdef DUMP
NCD4_dumpbytes(ncbyteslength(input),ncbytescontents(input),0);
#endif
if((metadata=NCD4_newmeta(ncbyteslength(input),ncbytescontents(input)))==NULL)
fail(NC_ENOMEM);
metadata->mode = mode;
/* Create a fake NCD4INFO */
{
NCD4INFO* controller = (NCD4INFO*)calloc(1,sizeof(NCD4INFO));
if(controller == NULL)
fail(NC_ENOMEM);
metadata->controller = controller;
controller->controls.translation = NCD4_TRANSNC4;
if(translatenc4)
controller->controls.translation = NCD4_TRANSNC4;
NCD4_applyclientparamcontrols(controller);
}
if((ret=NCD4_dechunk(metadata))) /* ok for mode == DMR or mode == DAP */
fail(ret);
#ifdef DEBUG
{
int swap = (metadata->serial.hostbigendian != metadata->serial.remotebigendian);
void* d = metadata->serial.dap;
size_t sz = metadata->serial.dapsize;
fprintf(stderr,"====================\n");
fprintf(stderr,"%s\n",metadata->serial.dmr);
fprintf(stderr,"----------\n");
NCD4_dumpbytes(sz,d,swap);
fprintf(stderr,"====================\n");
fflush(stderr);
}
#endif
if(expected > 1) {
outfile = argv[1];
if((ret = nc_create(outfile,NC_CLOBBER|NC_NETCDF4,&ncid))) fail(ret);
}
#ifdef DEBUG
{
char* tree;
ezxml_t dom = ezxml_parse_str(ncbytescontents(input),ncbyteslength(input));
if(dom == NULL) exit(1);
tree = ezxml_toxml(dom);
fprintf(stderr,"////////////////////\n");
fprintf(stderr,"%s\n",tree);
fprintf(stderr,"////////////////////\n");
}
#endif
{
const char* slevel = getenv("d4loglevel");
int level;
if(slevel != NULL && sscanf(slevel,"%d",&level) == 1) {
nc_set_log_level(level);
}
}
}
int
cleanup(int ret)
{
if(outfile != NULL) {
if(ret != NC_NOERR)
ret = nc_abort(ncid);
else
ret = nc_close(ncid);
}
if(metadata->controller != NULL)
free(metadata->controller);
NCD4_reclaimMeta(metadata);
ncbytesfree(input);
ncbytesfree(output);
if(ret)
fail(ret);
else
exit(EXIT_SUCCESS);
return 0;
}
#if 0
static void
printxml(const char* input)
{
char* tree;
ezxml_t dom = ezxml_parse_str(input,strlen(input));
if(dom == NULL) exit(1);
tree = ezxml_toxml(dom);
fprintf(stderr,"////////////////////\n");
fprintf(stderr,"%s\n",tree);
fprintf(stderr,"////////////////////\n");
}
#endif
|
