ncdf4a13/libsrc4/tst_strings.c File Reference

#include <netcdf.h>
#include <nc_tests.h>

Include dependency graph for tst_strings.c:

Go to the source code of this file.

Defines
#define	FILE_NAME   "tst_strings.nc"
#define	DIM_LEN   9
#define	ATT_NAME   "measure_for_measure_att"
#define	DIM_NAME   "line"
#define	VAR_NAME   "measure_for_measure_var"
#define	NDIMS   1
#define	MOBY_LEN   16
Functions
int	main (int argc, char **argv)

---

Define Documentation

#define ATT_NAME   "measure_for_measure_att"

Definition at line 15 of file tst_strings.c.

#define DIM_LEN   9

Definition at line 14 of file tst_strings.c.

#define DIM_NAME   "line"

Definition at line 16 of file tst_strings.c.

#define FILE_NAME   "tst_strings.nc"

Definition at line 13 of file tst_strings.c.

#define MOBY_LEN   16

Referenced by main().

#define NDIMS   1

Definition at line 18 of file tst_strings.c.

#define VAR_NAME   "measure_for_measure_var"

Definition at line 17 of file tst_strings.c.

---

Function Documentation

int main (  int  argc, char **  argv )

Definition at line 21 of file tst_strings.c. References att_len, ATT_NAME, att_type, DIM_LEN, DIM_NAME, ERR, FILE_NAME, FINAL_RESULTS, MOBY_LEN, natts, nc_close, nc_create, nc_def_dim, nc_def_var, nc_exit, nc_get_att, nc_get_var(), nc_get_var_string(), NC_GLOBAL, nc_inq, nc_inq_att, nc_inq_var, NC_MAX_NAME, NC_NETCDF4, NC_NOWRITE, nc_open, nc_put_att, nc_put_var(), nc_put_var_string(), NC_STRING, ncid, ndims, NDIMS, nvars, SUMMARIZE_ERR, VAR_NAME, var_name, var_natts, and var_type. { int ncid, varid, i, dimids[NDIMS]; char *data[DIM_LEN] = {"Let but your honour know", "Whom I believe to be most strait in virtue", "That, in the working of your own affections", "Had time cohered with place or place with wishing", "Or that the resolute acting of your blood", "Could have attain'd the effect of your own purpose", "Whether you had not sometime in your life", "Err'd in this point which now you censure him", "And pull'd the law upon you."}; char *data_in[DIM_LEN]; printf("\n*** Testing netcdf-4 string type.\n"); /*nc_set_log_level(6);*/ printf("*** testing string variable..."); { int var_dimids[NDIMS]; int ndims, nvars, natts, unlimdimid; nc_type var_type; char var_name[NC_MAX_NAME + 1]; int var_natts, var_ndims; if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, dimids)) ERR; if (nc_def_var(ncid, VAR_NAME, NC_STRING, NDIMS, dimids, &varid)) ERR; if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR; if (ndims != NDIMS || nvars != 1 || natts != 0 || unlimdimid != -1) ERR; if (nc_inq_var(ncid, varid, var_name, &var_type, &var_ndims, var_dimids, &var_natts)) ERR; if (var_type != NC_STRING || strcmp(var_name, VAR_NAME) || var_ndims != NDIMS || var_dimids[0] != dimids[0]) ERR; if (nc_put_var(ncid, varid, data)) ERR; if (nc_close(ncid)) ERR; nc_exit(); /* Check it out. */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR; if (ndims != NDIMS || nvars != 1 || natts != 0 || unlimdimid != -1) ERR; if (nc_inq_var(ncid, varid, var_name, &var_type, &var_ndims, var_dimids, &var_natts)) ERR; if (var_type != NC_STRING || strcmp(var_name, VAR_NAME) || var_ndims != NDIMS || var_dimids[0] != dimids[0]) ERR; if (nc_get_var(ncid, varid, data_in)) ERR; for (i=0; i<DIM_LEN; i++) if (strcmp(data_in[i], data[i])) ERR; for (i=0; i<DIM_LEN; i++) free(data_in[i]); if (nc_close(ncid)) ERR; nc_exit(); } SUMMARIZE_ERR; printf("*** testing string attribute..."); { size_t att_len; int ndims, nvars, natts, unlimdimid; nc_type att_type; if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; if (nc_put_att(ncid, NC_GLOBAL, ATT_NAME, NC_STRING, DIM_LEN, data)) ERR; if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR; if (ndims != 0 || nvars != 0 || natts != 1 || unlimdimid != -1) ERR; if (nc_inq_att(ncid, NC_GLOBAL, ATT_NAME, &att_type, &att_len)) ERR; if (att_type != NC_STRING && att_len != DIM_LEN) ERR; if (nc_close(ncid)) ERR; nc_exit(); /* Check it out. */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR; if (ndims != 0 || nvars != 0 || natts != 1 || unlimdimid != -1) ERR; if (nc_inq_att(ncid, NC_GLOBAL, ATT_NAME, &att_type, &att_len)) ERR; if (att_type != NC_STRING && att_len != DIM_LEN) ERR; if (nc_get_att(ncid, NC_GLOBAL, ATT_NAME, data_in)) ERR; for (i=0; i<att_len; i++) if (strcmp(data_in[i], data[i])) ERR; for (i=0; i<att_len; i++) free(data_in[i]); if (nc_close(ncid)) ERR; nc_exit(); } SUMMARIZE_ERR; printf("*** testing string var functions..."); { #define MOBY_LEN 16 char *data[] = {"Perhaps a very little thought will now enable you to account for ", "those repeated whaling disasters--some few of which are casually ", "chronicled--of this man or that man being taken out of the boat by ", "the line, and lost.", "For, when the line is darting out, to be seated then in the boat, ", "is like being seated in the midst of the manifold whizzings of a ", "steam-engine in full play, when every flying beam, and shaft, and wheel, ", "is grazing you.", "It is worse; for you cannot sit motionless in the heart of these perils, ", "because the boat is rocking like a cradle, and you are pitched one way and ", "the other, without the slightest warning;", "...But why say more?", "All men live enveloped in whale-lines.", "All are born with halters round their necks; but it is only when caught ", "in the swift, sudden turn of death, that mortals realize the silent, subtle, ", "ever-present perils of life."}; char *data_in[MOBY_LEN]; if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; if (nc_def_dim(ncid, DIM_NAME, MOBY_LEN, dimids)) ERR; if (nc_def_var(ncid, VAR_NAME, NC_STRING, NDIMS, dimids, &varid)) ERR; if (nc_put_var_string(ncid, varid, (char **)data)) ERR; if (nc_close(ncid)) ERR; /* Check it out. */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; if (nc_get_var_string(ncid, varid, data_in)) ERR; for (i=0; i<MOBY_LEN; i++) if (strcmp(data_in[i], data[i])) ERR; for (i=0; i<DIM_LEN; i++) free(data_in[i]); if (nc_close(ncid)) ERR; } SUMMARIZE_ERR; FINAL_RESULTS; }

---