1/*********************************************************************
2   Copyright 2010, UCAR/Unidata See netcdf/COPYRIGHT file for
3   copying and redistribution conditions.
4
5   $Id: nc3dispatch.c,v 2.8 2010/05/26 11:11:26 ed Exp $
6 *********************************************************************/
7
8#include "config.h"
9#include <stdlib.h>
10#include <string.h>
11
12#include "netcdf.h"
13#include "nc3internal.h"
14#include "nc3dispatch.h"
15
16#ifndef NC_CONTIGUOUS
17#define NC_CONTIGUOUS 1
18#endif
19
20#ifndef NC_ENOTNC4
21#define NC_ENOTNC4 (-111)
22#endif
23
24#ifndef NC_ENOGRP
25#define NC_ENOGRP (-125)
26#endif
27
28#ifndef NC_STRING
29#define NC_STRING (12)
30#endif
31
32
33static int NC3_inq_var_all(int ncid, int varid, char *namenc_type *xtypep,
34               int *ndimsp, int *dimidsp, int *nattsp,
35               int *shufflep, int *deflatep, int *deflate_levelp,
36               int *fletcher32p, int *contiguousp, size_t *chunksizesp,
37               int *no_fill, void *fill_valuep, int *endiannessp,
38        int *options_maskp, int *pixels_per_blockp);
39
40static int NC3_var_par_access(int,int,int);
41
42#ifdef USE_NETCDF4
43static int NC3_show_metadata(int);
44static int NC3_inq_unlimdims(int,int*,int*);
45static int NC3_inq_ncid(int,const char*,int*);
46static int NC3_inq_grps(int,int*,int*);
47static int NC3_inq_grpname(int,char*);
48static int NC3_inq_grpname_full(int,size_t*,char*);
49static int NC3_inq_grp_parent(int,int*);
50static int NC3_inq_grp_full_ncid(int,const char*,int*);
51static int NC3_inq_varids(int,int* nvars,int*);
52static int NC3_inq_dimids(int,int* ndims,int*,int);
53static int NC3_inq_typeids(int,int* ntypes,int*);
54static int NC3_inq_type_equal(int,nc_type,int,nc_type,int*);
55static int NC3_def_grp(int,const char*,int*);
56static int NC3_rename_grp(int,const char*);
57static int NC3_inq_user_type(int,nc_type,char*,size_t*,nc_type*,size_t*,int*);
58static int NC3_inq_typeid(int,const char*,nc_type*);
59static int NC3_def_compound(int,size_t,const char*,nc_type*);
60static int NC3_insert_compound(int,nc_type,const char*,size_t,nc_type);
61static int NC3_insert_array_compound(int,nc_type,const char*,size_t,nc_type,int,const int*);
62static int NC3_inq_compound_field(int,nc_type,int,char*,size_t*,nc_type*,int*,int*);
63static int NC3_inq_compound_fieldindex(int,nc_type,const char*,int*);
64static int NC3_def_vlen(int,const char*,nc_type base_typeid,nc_type*);
65static int NC3_put_vlen_element(int,int,void*,size_t,const void*);
66static int NC3_get_vlen_element(int,int,const void*,size_t*,void*);
67static int NC3_def_enum(int,nc_type,const char*,nc_type*);
68static int NC3_insert_enum(int,nc_type,const char*,const void*);
69static int NC3_inq_enum_member(int,nc_type,int,char*,void*);
70static int NC3_inq_enum_ident(int,nc_type,long long,char*);
71static int NC3_def_opaque(int,size_t,const char*,nc_type*);
72static int NC3_def_var_deflate(int,int,int,int,int);
73static int NC3_def_var_fletcher32(int,int,int);
74static int NC3_def_var_chunking(int,int,int,const size_t*);
75static int NC3_def_var_fill(int,int,int,const void*);
76static int NC3_def_var_endian(int,int,int);
77static int NC3_set_var_chunk_cache(int,int,size_t,size_t,float);
78static int NC3_get_var_chunk_cache(int,int,size_t*,size_t*,float*);
79#endif /*USE_NETCDF4*/
80
81static NC_Dispatch NC3_dispatcher = {
82
83NC_FORMATX_NC3,
84
85NC3_create,
86NC3_open,
87
88NC3_redef,
89NC3__enddef,
90NC3_sync,
91NC3_abort,
92NC3_close,
93NC3_set_fill,
94NC3_inq_base_pe,
95NC3_set_base_pe,
96NC3_inq_format,
97NC3_inq_format_extended,
98
99NC3_inq,
100NC3_inq_type,
101
102NC3_def_dim,
103NC3_inq_dimid,
104NC3_inq_dim,
105NC3_inq_unlimdim,
106NC3_rename_dim,
107
108NC3_inq_att,
109NC3_inq_attid,
110NC3_inq_attname,
111NC3_rename_att,
112NC3_del_att,
113NC3_get_att,
114NC3_put_att,
115
116NC3_def_var,
117NC3_inq_varid,
118NC3_rename_var,
119NC3_get_vara,
120NC3_put_vara,
121NCDEFAULT_get_vars,
122NCDEFAULT_put_vars,
123NCDEFAULT_get_varm,
124NCDEFAULT_put_varm,
125
126NC3_inq_var_all,
127
128NC3_var_par_access,
129
130#ifdef USE_NETCDF4
131NC3_show_metadata,
132NC3_inq_unlimdims,
133NC3_inq_ncid,
134NC3_inq_grps,
135NC3_inq_grpname,
136NC3_inq_grpname_full,
137NC3_inq_grp_parent,
138NC3_inq_grp_full_ncid,
139NC3_inq_varids,
140NC3_inq_dimids,
141NC3_inq_typeids,
142NC3_inq_type_equal,
143NC3_def_grp,
144NC3_rename_grp,
145NC3_inq_user_type,
146NC3_inq_typeid,
147
148NC3_def_compound,
149NC3_insert_compound,
150NC3_insert_array_compound,
151NC3_inq_compound_field,
152NC3_inq_compound_fieldindex,
153NC3_def_vlen,
154NC3_put_vlen_element,
155NC3_get_vlen_element,
156NC3_def_enum,
157NC3_insert_enum,
158NC3_inq_enum_member,
159NC3_inq_enum_ident,
160NC3_def_opaque,
161NC3_def_var_deflate,
162NC3_def_var_fletcher32,
163NC3_def_var_chunking,
164NC3_def_var_fill,
165NC3_def_var_endian,
166NC3_set_var_chunk_cache,
167NC3_get_var_chunk_cache,
168
169#endif /*_NC4DISPATCH_H*/
170
171};
172
173NC_DispatchNC3_dispatch_table = NULL; /*!< NC3 Dispatch table, moved here from ddispatch.c */
174
175int
176NC3_initialize(void)
177{
178    NC3_dispatch_table = &NC3_dispatcher;
179    return NC_NOERR;
180}
181
182int
183NC3_finalize(void)
184{
185    return NC_NOERR;
186}
187
188static int
189NC3_inq_var_all(int ncid, int varid, char *namenc_type *xtypep,
190               int *ndimsp, int *dimidsp, int *nattsp,
191               int *shufflep, int *deflatep, int *deflate_levelp,
192               int *fletcher32p, int *contiguousp, size_t *chunksizesp,
193               int *no_fill, void *fill_valuep, int *endiannessp,
194        int *options_maskp, int *pixels_per_blockp)
195{
196    int stat = NC3_inq_var(ncid,varid,name,xtypep,ndimsp,dimidsp,nattsp);
197    if(stat) return stat;
198    if(shufflep) *shufflep = 0;
199    if(deflatep) *deflatep = 0;
200    if(fletcher32p) *fletcher32p = 0;
201    if(contiguousp) *contiguousp = NC_CONTIGUOUS;
202    if(no_fill) *no_fill = 1;
203    if(endiannessp) return NC_ENOTNC4;
204    if(options_maskp) return NC_ENOTNC4;
205    return NC_NOERR;
206}
207
208static int
209NC3_var_par_access(int ncid, int varid, int par_access)
210{
211    return NC_NOERR; /* no-op for netcdf classic */
212}
213
214#ifdef USE_NETCDF4
215
216static int
217NC3_inq_unlimdims(int ncid, int *ndimsp, int *unlimdimidsp)
218{
219    int retval;
220    int unlimid;
221
222    if ((retval = NC3_inq_unlimdim(ncid, &unlimid)))
223        return retval;
224    if (unlimid != -1) {
225        if(ndimsp) *ndimsp = 1;
226        if (unlimdimidsp)
227            unlimdimidsp[0] = unlimid;
228    } else
229        if(ndimsp) *ndimsp = 0;
230    return NC_NOERR;
231}
232
233static int
234NC3_def_grp(int parent_ncid, const char *name, int *new_ncid)
235{
236    return NC_ENOTNC4;
237}
238
239static int
240NC3_rename_grp(int grpid, const char *name)
241{
242    return NC_ENOTNC4;
243}
244
245static int
246NC3_inq_ncid(int ncid, const char *name, int *grp_ncid)
247{
248  if(grp_ncid) *grp_ncid = ncid;
249    return NC_NOERR;
250}
251
252static int
253NC3_inq_grps(int ncid, int *numgrps, int *ncids)
254{
255  if (numgrps)
256       *numgrps = 0;
257    return NC_NOERR;
258}
259
260static int
261NC3_inq_grpname(int ncid, char *name)
262{
263    if (name)
264        strcpy(name, "/");
265    return NC_NOERR;
266}
267
268static int
269NC3_inq_grpname_full(int ncid, size_t *lenp, char *full_name)
270{
271    if (full_name)
272        strcpy(full_name, "/");
273    if(lenp) *lenp = 1;
274    return NC_NOERR;
275}
276
277static int
278NC3_inq_grp_parent(int ncid, int *parent_ncid)
279{
280    return NC_ENOGRP;
281}
282
283static int
284NC3_inq_grp_full_ncid(int ncid, const char *full_name, int *grp_ncid)
285{
286    return NC_ENOGRP;
287}
288
289static int
290NC3_inq_varids(int ncid, int *nvarsp, int *varids)
291{
292    int retval,v,nvars;
293    /* This is a netcdf-3 file, there is only one group, the root
294        group, and its vars have ids 0 thru nvars - 1. */
295    if ((retval = NC3_inq(ncidNULL, &nvarsNULLNULL)))
296        return retval;
297    if(nvarsp) *nvarsp = nvars;
298    if (varids)
299        for (v = 0; v < nvarsv++)
300            varids[v] = v;
301    return NC_NOERR;
302}
303
304static int
305NC3_inq_dimids(int ncid, int *ndimsp, int *dimids, int include_parents)
306{
307    int retval,d,ndims;
308    /* If this is a netcdf-3 file, then the dimids are going to be 0
309       thru ndims-1, so just provide them. */
310    if ((retval = NC3_inq(ncid, &ndims,  NULLNULLNULL)))
311        return retval;
312    if(ndimsp) *ndimsp = ndims;
313    if (dimids)
314        for (d = 0; d < ndimsd++)
315            dimids[d] = d;
316    return NC_NOERR;
317}
318
319static int
320NC3_show_metadata(int ncid)
321{
322    return NC_NOERR;
323}
324
325static int
326NC3_inq_type_equal(int ncid1nc_type typeid1, int ncid2nc_type typeid2, int* equalp)
327{
328    /* Check input. */
329    if(equalp == NULL) return NC_NOERR;
330
331    if (typeid1 <= NC_NAT || typeid2 <= NC_NAT)
332       return NC_EINVAL;
333
334    *equalp = 0; /* assume */
335
336    /* If one is atomic, and the other user-defined, the types are not equal */
337    if ((typeid1 <= NC_STRING && typeid2 > NC_STRING) ||
338        (typeid2 <= NC_STRING && typeid1 > NC_STRING)) {
339        if (equalp) *equalp = 0;
340        return NC_NOERR;
341    }
342
343    /* If both are atomic types, the answer is easy. */
344    if (typeid1 <= ATOMICTYPEMAX3) {
345        if (equalp) {
346            if (typeid1 == typeid2)
347                *equalp = 1;
348            else
349                *equalp = 0;
350        }
351        return NC_NOERR;
352    }
353    return NC_NOERR;
354}
355
356static int
357NC3_inq_typeid(int ncid, const char *namenc_type *typeidp)
358{
359    int i;
360    for (i = 0; i <= ATOMICTYPEMAX3i++)
361        if (!strcmp(nameNC_atomictypename(i))) {
362            if (typeidp) *typeidp = i;
363                return NC_NOERR;
364        }
365    return NC_ENOTNC4;
366}
367
368static int
369NC3_inq_typeids(int ncid, int *ntypes, int *typeids)
370{
371    if(ntypes) *ntypes = 0;
372    return NC_NOERR;
373}
374
375static int
376NC3_inq_user_type(int ncidnc_type typeid, char *name, size_t *size,
377  nc_type *base_nc_typep, size_t *nfieldsp, int *classp)
378{
379    return NC_ENOTNC4;
380}
381
382static int
383NC3_def_compound(int ncid, size_t size, const char *namenc_type *typeidp)
384{
385    return NC_ENOTNC4;
386}
387
388static int
389NC3_insert_compound(int ncidnc_type typeid, const char *name, size_t offset,
390                    nc_type field_typeid)
391{
392    return NC_ENOTNC4;
393}
394
395static int
396NC3_insert_array_compound(int ncidnc_type typeid, const char *name,
397  size_t offsetnc_type field_typeid,
398  int ndims, const int *dim_sizes)
399{
400    return NC_ENOTNC4;
401}
402
403
404static int
405NC3_inq_compound_field(int ncidnc_type typeid, int fieldid, char *name,
406       size_t *offsetpnc_type *field_typeidp, int *ndimsp,
407       int *dim_sizesp)
408{
409    return NC_ENOTNC4;
410}
411
412static int
413NC3_inq_compound_fieldindex(int ncidnc_type typeid, const char *name, int *fieldidp)
414{
415    return NC_ENOTNC4;
416}
417
418static int
419NC3_def_opaque(int ncid, size_t datum_size, const char *namenc_typextypep)
420{
421    return NC_ENOTNC4;
422}
423
424static int
425NC3_def_vlen(int ncid, const char *namenc_type base_typeidnc_typextypep)
426{
427    return NC_ENOTNC4;
428}
429
430static int
431NC3_def_enum(int ncidnc_type base_typeid, const char *name,
432     nc_type *typeidp)
433{
434    return NC_ENOTNC4;
435}
436
437static int
438NC3_inq_enum_ident(int ncidnc_type xtype, long long value, char *identifier)
439{
440    return NC_ENOTNC4;
441}
442
443static int
444NC3_inq_enum_member(int ncidnc_type typeid, int idx, char *identifier,
445    void *value)
446{
447    return NC_ENOTNC4;
448}
449
450static int
451NC3_insert_enum(int ncidnc_type typeid, const char *identifier,
452        const void *value)
453{
454    return NC_ENOTNC4;
455}
456
457static int
458NC3_put_vlen_element(int ncid, int typeid, void *vlen_element,
459     size_t len, const void *data)
460{
461    return NC_ENOTNC4;
462}
463
464static int
465NC3_get_vlen_element(int ncid, int typeid, const void *vlen_element,
466     size_t *len, void *data)
467{
468    return NC_ENOTNC4;
469}
470
471static int
472NC3_set_var_chunk_cache(int ncid, int varid, size_t size, size_t nelems, float preemption)
473{
474    return NC_ENOTNC4;
475}
476
477static int
478NC3_get_var_chunk_cache(int ncid, int varid, size_t *sizep, size_t *nelemsp, float *preemptionp)
479{
480    return NC_ENOTNC4;
481}
482
483static int
484NC3_def_var_deflate(int ncid, int varid, int shuffle, int deflate,
485    int deflate_level)
486{
487    return NC_ENOTNC4;
488}
489
490static int
491NC3_def_var_fletcher32(int ncid, int varid, int fletcher32)
492{
493    return NC_ENOTNC4;
494}
495
496static int
497NC3_def_var_chunking(int ncid, int varid, int contiguous, const size_t *chunksizesp)
498{
499    return NC_ENOTNC4;
500}
501
502static int
503NC3_def_var_fill(int ncid, int varid, int no_fill, const void *fill_value)
504{
505    return NC_ENOTNC4;
506}
507
508static int
509NC3_def_var_endian(int ncid, int varid, int endianness)
510{
511    return NC_ENOTNC4;
512}
513
514#endif /*USE_NETCDF4*/
515


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed