2015-05-16 05:29:29 +08:00
|
|
|
/*! Test for NCF-331. Added May 11, 2015.
|
2018-12-07 06:27:32 +08:00
|
|
|
* Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
|
|
|
* 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
|
|
|
|
* 2015, 2016, 2017, 2018
|
|
|
|
* University Corporation for Atmospheric Research/Unidata.
|
|
|
|
*
|
|
|
|
* See \ref copyright file for more info.
|
2015-05-16 05:29:29 +08:00
|
|
|
* See the following links for more information:
|
|
|
|
*
|
|
|
|
* o Issue on GitHub: https://github.com/Unidata/netcdf-c/issues/112
|
|
|
|
* o Issue in JIRA: https://bugtracking.unidata.ucar.edu/browse/NCF-331
|
|
|
|
*
|
|
|
|
* Test contributed by Jeff Whitaker
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <nc_tests.h>
|
2018-02-17 00:00:15 +08:00
|
|
|
#include <string.h>
|
2015-05-16 05:29:29 +08:00
|
|
|
#include "nc_logging.h"
|
|
|
|
|
2015-05-29 06:29:49 +08:00
|
|
|
#define FILE_NAME_NC "tst_h5_endians.nc"
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
#define NDIM 10
|
|
|
|
#define NLON 20
|
|
|
|
#define DIM_NAME "x"
|
|
|
|
#define DIM_LEN 4
|
|
|
|
#define GRP_NAME "grp"
|
|
|
|
#define LE_FLOAT_VARNAME "fl_le"
|
|
|
|
#define BE_FLOAT_VARNAME "fl_be"
|
|
|
|
#define LE_INT_VARNAME "int_le"
|
|
|
|
#define BE_INT_VARNAME "int_be"
|
2015-05-19 00:55:17 +08:00
|
|
|
#define LE_DBL_VARNAME "dbl_le"
|
|
|
|
#define BE_DBL_VARNAME "dbl_be"
|
|
|
|
|
2015-05-16 05:29:29 +08:00
|
|
|
int main() {
|
|
|
|
|
|
|
|
int ncid, dimid;
|
|
|
|
int le_float_varid;
|
|
|
|
int be_float_varid;
|
|
|
|
int le_int_varid;
|
|
|
|
int be_int_varid;
|
2015-05-19 00:55:17 +08:00
|
|
|
int le_dbl_varid;
|
|
|
|
int be_dbl_varid;
|
2015-05-16 05:29:29 +08:00
|
|
|
int ed;
|
|
|
|
int failures = 0;
|
2017-10-25 02:18:20 +08:00
|
|
|
int retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
printf("* Checking that endianness is properly read from file.\n");
|
|
|
|
printf("** Generating test files.\n");
|
|
|
|
/*
|
|
|
|
* 1. Create a netcdf file with endianness as desired.
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
|
|
|
|
printf("*** Creating a file via netcdf API: %s.\n",FILE_NAME_NC);
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_create(FILE_NAME_NC, NC_NETCDF4 | NC_CLOBBER, &ncid)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_dim(ncid, DIM_NAME, NDIM, &dimid)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
/* Little-Endian Float */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, LE_FLOAT_VARNAME, NC_FLOAT, 1, &dimid, &le_float_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, le_float_varid, NC_ENDIAN_LITTLE)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
/* Big-Endian Float */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, BE_FLOAT_VARNAME, NC_FLOAT, 1, &dimid, &be_float_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, be_float_varid, NC_ENDIAN_BIG)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
/* Little-Endian Int */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, LE_INT_VARNAME, NC_INT, 1, &dimid, &le_int_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, le_int_varid, NC_ENDIAN_LITTLE)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
/* Big-Endian Int */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, BE_INT_VARNAME, NC_INT, 1, &dimid, &be_int_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, be_int_varid, NC_ENDIAN_BIG)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
2015-05-19 00:55:17 +08:00
|
|
|
/* Little-Endian Double */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, LE_DBL_VARNAME, NC_DOUBLE, 1, &dimid, &le_dbl_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, le_dbl_varid, NC_ENDIAN_LITTLE)))
|
|
|
|
return retval;
|
2015-05-19 00:55:17 +08:00
|
|
|
|
|
|
|
/* Big-Endian Double */
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_def_var(ncid, BE_DBL_VARNAME, NC_DOUBLE, 1, &dimid, &be_dbl_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_def_var_endian(ncid, be_dbl_varid, NC_ENDIAN_BIG)))
|
|
|
|
return retval;
|
2015-05-19 00:55:17 +08:00
|
|
|
|
2015-05-16 05:29:29 +08:00
|
|
|
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_close(ncid)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* 2. Reopen netcdf-generated file, check to see if the endianness attribute
|
|
|
|
* exists.
|
|
|
|
*/
|
|
|
|
printf("** Checking test files.\n");
|
|
|
|
{
|
|
|
|
ncid = 0;
|
2015-05-19 00:55:17 +08:00
|
|
|
le_float_varid = 0;
|
|
|
|
be_float_varid = 0;
|
|
|
|
le_int_varid = 0;
|
|
|
|
be_int_varid = 0;
|
|
|
|
le_dbl_varid = 0;
|
|
|
|
be_dbl_varid = 0;
|
|
|
|
|
2015-05-16 05:29:29 +08:00
|
|
|
printf("*** %s\n",FILE_NAME_NC);
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_open(FILE_NAME_NC, NC_NETCDF4 | NC_NOWRITE, &ncid)))
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if ((retval = nc_inq_varid(ncid,LE_FLOAT_VARNAME,&le_float_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_inq_varid(ncid,BE_FLOAT_VARNAME,&be_float_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_inq_varid(ncid,LE_INT_VARNAME,&le_int_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_inq_varid(ncid,BE_INT_VARNAME,&be_int_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_inq_varid(ncid,LE_DBL_VARNAME,&le_dbl_varid)))
|
|
|
|
return retval;
|
|
|
|
if ((retval = nc_inq_varid(ncid,BE_DBL_VARNAME,&be_dbl_varid)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
|
|
|
|
printf("\tLittle-Endian Float...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,le_float_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
if(ed == NC_ENDIAN_LITTLE) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
|
|
|
printf("\tBig-Endian Float...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,be_float_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
if(ed == NC_ENDIAN_BIG) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
|
|
|
printf("\tLittle-Endian Int...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,le_int_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
if(ed == NC_ENDIAN_LITTLE) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
|
|
|
printf("\tBig-Endian Int...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,be_int_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
if(ed == NC_ENDIAN_BIG) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
2015-05-19 00:55:17 +08:00
|
|
|
printf("\tLittle-Endian Double...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,le_dbl_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-19 00:55:17 +08:00
|
|
|
if(ed == NC_ENDIAN_LITTLE) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
|
|
|
printf("\tBig-Endian Double...\t");
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_inq_var_endian(ncid,be_dbl_varid,&ed)))
|
|
|
|
return retval;
|
2015-05-19 00:55:17 +08:00
|
|
|
if(ed == NC_ENDIAN_BIG) printf("passed\n"); else {printf("failed\n"); failures++;}
|
|
|
|
|
2017-10-25 02:18:20 +08:00
|
|
|
if ((retval = nc_close(ncid)))
|
|
|
|
return retval;
|
2015-05-16 05:29:29 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
printf("** Failures Returned: [%d]\n",failures);
|
|
|
|
return failures;
|
|
|
|
}
|