2010-06-03 21:24:43 +08:00
|
|
|
/*********************************************************************
|
|
|
|
* Copyright 1993, UCAR/Unidata
|
|
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
|
|
* $Header: /upc/share/CVS/netcdf-3/libsrc4/nc4dispatch.c,v 1.5 2010/05/27 02:19:37 dmh Exp $
|
|
|
|
*********************************************************************/
|
|
|
|
|
2011-09-26 18:14:55 +08:00
|
|
|
#include "config.h"
|
2010-06-03 21:24:43 +08:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include "nc4dispatch.h"
|
2017-03-09 08:01:10 +08:00
|
|
|
#include "nc.h"
|
2010-06-03 21:24:43 +08:00
|
|
|
|
2018-06-03 20:14:23 +08:00
|
|
|
/* If user-defined formats are in use, we need to declare their
|
|
|
|
* dispatch tables. */
|
|
|
|
#ifdef USE_UDF0
|
|
|
|
extern NC_Dispatch UDF0_DISPATCH;
|
|
|
|
#endif /* USE_UDF0 */
|
|
|
|
#ifdef USE_UDF1
|
|
|
|
extern NC_Dispatch UDF1_DISPATCH;
|
|
|
|
#endif /* USE_UDF1 */
|
|
|
|
|
2018-06-02 22:43:34 +08:00
|
|
|
#ifdef USE_NETCDF4
|
2018-06-03 20:14:23 +08:00
|
|
|
/* Pointers to dispatch tables for user-defined formats. */
|
2018-06-02 22:43:34 +08:00
|
|
|
extern NC_Dispatch *UDF0_dispatch_table;
|
|
|
|
extern NC_Dispatch *UDF1_dispatch_table;
|
|
|
|
#endif /* USE_NETCDF4 */
|
|
|
|
|
2013-03-25 01:33:17 +08:00
|
|
|
static NC_Dispatch NC4_dispatcher = {
|
2010-06-03 21:24:43 +08:00
|
|
|
|
2015-08-16 06:26:35 +08:00
|
|
|
NC_FORMATX_NC4,
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
NC4_create,
|
|
|
|
NC4_open,
|
|
|
|
|
|
|
|
NC4_redef,
|
|
|
|
NC4__enddef,
|
|
|
|
NC4_sync,
|
|
|
|
NC4_abort,
|
|
|
|
NC4_close,
|
|
|
|
NC4_set_fill,
|
2018-08-21 21:24:43 +08:00
|
|
|
NC_NOTNC3_inq_base_pe,
|
|
|
|
NC_NOTNC3_set_base_pe,
|
2010-06-03 21:24:43 +08:00
|
|
|
NC4_inq_format,
|
2013-12-23 03:53:20 +08:00
|
|
|
NC4_inq_format_extended,
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
NC4_inq,
|
|
|
|
NC4_inq_type,
|
|
|
|
|
|
|
|
NC4_def_dim,
|
|
|
|
NC4_inq_dimid,
|
|
|
|
NC4_inq_dim,
|
|
|
|
NC4_inq_unlimdim,
|
|
|
|
NC4_rename_dim,
|
|
|
|
|
|
|
|
NC4_inq_att,
|
|
|
|
NC4_inq_attid,
|
|
|
|
NC4_inq_attname,
|
|
|
|
NC4_rename_att,
|
|
|
|
NC4_del_att,
|
|
|
|
NC4_get_att,
|
|
|
|
NC4_put_att,
|
|
|
|
|
|
|
|
NC4_def_var,
|
|
|
|
NC4_inq_varid,
|
|
|
|
NC4_rename_var,
|
|
|
|
NC4_get_vara,
|
|
|
|
NC4_put_vara,
|
2018-05-23 06:50:52 +08:00
|
|
|
NC4_get_vars,
|
|
|
|
NC4_put_vars,
|
2011-02-24 01:37:11 +08:00
|
|
|
NCDEFAULT_get_varm,
|
|
|
|
NCDEFAULT_put_varm,
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
NC4_inq_var_all,
|
|
|
|
|
2013-03-16 04:31:07 +08:00
|
|
|
NC4_var_par_access,
|
2017-12-21 10:53:30 +08:00
|
|
|
NC4_def_var_fill,
|
2013-03-16 04:31:07 +08:00
|
|
|
|
2017-12-30 04:14:46 +08:00
|
|
|
#ifdef USE_NETCDF4
|
2010-06-03 21:24:43 +08:00
|
|
|
NC4_show_metadata,
|
|
|
|
NC4_inq_unlimdims,
|
|
|
|
|
|
|
|
NC4_inq_ncid,
|
|
|
|
NC4_inq_grps,
|
|
|
|
NC4_inq_grpname,
|
|
|
|
NC4_inq_grpname_full,
|
|
|
|
NC4_inq_grp_parent,
|
|
|
|
NC4_inq_grp_full_ncid,
|
|
|
|
NC4_inq_varids,
|
|
|
|
NC4_inq_dimids,
|
|
|
|
NC4_inq_typeids,
|
|
|
|
NC4_inq_type_equal,
|
|
|
|
NC4_def_grp,
|
2013-07-20 05:48:37 +08:00
|
|
|
NC4_rename_grp,
|
2010-06-03 21:24:43 +08:00
|
|
|
NC4_inq_user_type,
|
|
|
|
NC4_inq_typeid,
|
|
|
|
|
|
|
|
NC4_def_compound,
|
|
|
|
NC4_insert_compound,
|
|
|
|
NC4_insert_array_compound,
|
|
|
|
NC4_inq_compound_field,
|
|
|
|
NC4_inq_compound_fieldindex,
|
|
|
|
NC4_def_vlen,
|
|
|
|
NC4_put_vlen_element,
|
|
|
|
NC4_get_vlen_element,
|
|
|
|
NC4_def_enum,
|
|
|
|
NC4_insert_enum,
|
|
|
|
NC4_inq_enum_member,
|
|
|
|
NC4_inq_enum_ident,
|
|
|
|
NC4_def_opaque,
|
|
|
|
NC4_def_var_deflate,
|
|
|
|
NC4_def_var_fletcher32,
|
|
|
|
NC4_def_var_chunking,
|
|
|
|
NC4_def_var_endian,
|
2017-04-28 03:01:59 +08:00
|
|
|
NC4_def_var_filter,
|
2010-06-03 21:24:43 +08:00
|
|
|
NC4_set_var_chunk_cache,
|
|
|
|
NC4_get_var_chunk_cache,
|
2017-12-30 04:14:46 +08:00
|
|
|
#endif
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
};
|
|
|
|
|
2011-09-21 01:30:02 +08:00
|
|
|
NC_Dispatch* NC4_dispatch_table = NULL; /* moved here from ddispatch.c */
|
|
|
|
|
2017-12-05 03:21:14 +08:00
|
|
|
/**
|
2018-06-02 22:43:34 +08:00
|
|
|
* @internal Initialize netCDF-4. If user-defined format(s) have been
|
|
|
|
* specified in configure, load their dispatch table(s).
|
2017-12-05 03:21:14 +08:00
|
|
|
*
|
|
|
|
* @return ::NC_NOERR No error.
|
|
|
|
* @author Dennis Heimbigner
|
|
|
|
*/
|
2010-06-03 21:24:43 +08:00
|
|
|
int
|
|
|
|
NC4_initialize(void)
|
|
|
|
{
|
2018-06-02 22:43:34 +08:00
|
|
|
int ret = NC_NOERR;
|
|
|
|
|
|
|
|
NC4_dispatch_table = &NC4_dispatcher;
|
|
|
|
|
|
|
|
#ifdef USE_UDF0
|
|
|
|
/* If user-defined format 0 was specified during configure, set up
|
|
|
|
* it's dispatch table. */
|
2018-06-03 20:14:23 +08:00
|
|
|
if ((ret = nc_def_user_format(NC_UDF0, UDF0_DISPATCH_FUNC, NULL)))
|
2018-06-02 22:43:34 +08:00
|
|
|
return ret;
|
|
|
|
#endif /* USE_UDF0 */
|
|
|
|
|
|
|
|
#ifdef USE_UDF1
|
|
|
|
/* If user-defined format 0 was specified during configure, set up
|
|
|
|
* it's dispatch table. */
|
2018-06-03 20:28:55 +08:00
|
|
|
if ((ret = nc_def_user_format(NC_UDF1F, &UDF1_DISPATCH_FUNC, NULL)))
|
2018-06-02 22:43:34 +08:00
|
|
|
return ret;
|
|
|
|
#endif /* USE_UDF0 */
|
|
|
|
|
2018-03-17 01:46:18 +08:00
|
|
|
#ifdef LOGGING
|
2018-06-02 22:43:34 +08:00
|
|
|
if(getenv(NCLOGLEVELENV) != NULL) {
|
|
|
|
char* slevel = getenv(NCLOGLEVELENV);
|
|
|
|
long level = atol(slevel);
|
|
|
|
if(level >= 0)
|
|
|
|
nc_set_log_level((int)level);
|
|
|
|
}
|
2018-03-17 01:46:18 +08:00
|
|
|
#endif
|
2018-06-02 22:43:34 +08:00
|
|
|
return ret;
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
2015-08-16 06:26:35 +08:00
|
|
|
|
2017-12-05 03:21:14 +08:00
|
|
|
/**
|
|
|
|
* @internal Finalize netCDF-4.
|
|
|
|
*
|
|
|
|
* @return ::NC_NOERR No error.
|
|
|
|
* @author Dennis Heimbigner
|
|
|
|
*/
|
2015-08-16 06:26:35 +08:00
|
|
|
int
|
|
|
|
NC4_finalize(void)
|
|
|
|
{
|
|
|
|
return NC_NOERR;
|
|
|
|
}
|