mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-17 16:50:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

fixed warnings in tst_rename3

Browse Source
This commit is contained in:
Ed Hartnett 2019-05-21 15:15:25 -06:00
parent b1b76a8a9c
commit f35eea13d7
1 changed files with 88 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

173
nc_test4/tst_rename3.c
View File

@ -34,8 +34,8 @@ main(int argc, char **argv)
fprintf(stderr,"Test more renaming.\n");
fprintf(stderr,"*** test renaming affect on varids...");
{
int ncid, dimid1, dimid2, varid1, varid2;
int dimid_in, varid_in;
int ncid, varid1, varid2;
int varid_in;
char file_name[NC_MAX_NAME + 1];
/* Create file with two scalar vars. */
@ -60,96 +60,99 @@ main(int argc, char **argv)
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
/* fprintf(stderr,"*** test renaming coord var to non-coord var..."); */
/* { */
/* int ncid, dimid1, dimid2, varid1, varid2; */
/* int dimid_in, varid_in; */
/* char file_name[NC_MAX_NAME + 1]; */
fprintf(stderr,"*** test renaming coord var to non-coord var...");
{
int ncid, dimid1, dimid2, varid1, varid2;
int dimid_in, varid_in;
char file_name[NC_MAX_NAME + 1];
/* /\* Create file with two dims and associated coordinate vars. *\/ */
/* sprintf(file_name, "%s_coord_to_non_coord.nc", TEST_NAME); */
/* if (nc_create(file_name, NC_CLOBBER|NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR; */
/* if (nc_def_dim(ncid, D1_NAME, DIM1_LEN, &dimid1)) ERR; */
/* if (nc_def_dim(ncid, D2_NAME, DIM1_LEN, &dimid2)) ERR; */
/* if (nc_def_var(ncid, D1_NAME, NC_INT, NDIM1, &dimid1, &varid1)) ERR; */
/* if (nc_def_var(ncid, D2_NAME, NC_INT, NDIM1, &dimid2, &varid2)) ERR; */
/* if (nc_close(ncid)) ERR; */
/* Create file with two dims and associated coordinate vars. */
sprintf(file_name, "%s_coord_to_non_coord.nc", TEST_NAME);
if (nc_create(file_name, NC_CLOBBER|NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR;
if (nc_def_dim(ncid, D1_NAME, DIM1_LEN, &dimid1)) ERR;
if (nc_def_dim(ncid, D2_NAME, DIM1_LEN, &dimid2)) ERR;
if (nc_def_var(ncid, D1_NAME, NC_INT, NDIM1, &dimid1, &varid1)) ERR;
if (nc_def_var(ncid, D2_NAME, NC_INT, NDIM1, &dimid2, &varid2)) ERR;
if (nc_close(ncid)) ERR;
/* /\* Open the file and rename a var. *\/ */
/* nc_set_log_level(4); */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* if (nc_rename_var(ncid, varid1, TMP_NAME)) ERR; */
/* if (nc_close(ncid)) ERR; */
/* Open the file and rename a var. */
nc_set_log_level(4);
if (nc_open(file_name, NC_WRITE, &ncid)) ERR;
if (nc_rename_var(ncid, varid1, TMP_NAME)) ERR;
if (nc_close(ncid)) ERR;
/* /\* Reopen file and check, *\/ */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR; */
/* printf("dimid_in %d\n", dimid_in); */
/* if (dimid_in != dimid1) ERR; */
/* if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR; */
/* if (dimid_in != dimid2) ERR; */
/* if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR; */
/* if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR; */
/* /\* if (varid_in != varid1) ERR; *\/ */
/* if (nc_inq_varid(ncid, D1_NAME, &varid_in) != NC_ENOTVAR) ERR; */
/* if (nc_close(ncid)) ERR; */
/* Reopen file and check, */
if (nc_open(file_name, NC_WRITE, &ncid)) ERR;
if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR;
printf("dimid_in %d\n", dimid_in);
if (dimid_in != dimid1) ERR;
if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR;
if (dimid_in != dimid2) ERR;
if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR;
if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR;
/* if (varid_in != varid1) ERR; */
if (nc_inq_varid(ncid, D1_NAME, &varid_in) != NC_ENOTVAR) ERR;
if (nc_close(ncid)) ERR;
/* /\* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; *\/ */
/* /\* if (nc_rename_var(ncid, varid2, D1_NAME)) ERR; *\/ */
/* /\* if (nc_close(ncid)) ERR; *\/ */
/* This should work but does not (yet). */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* if (nc_rename_var(ncid, varid2, D1_NAME)) ERR; */
/* if (nc_close(ncid)) ERR; */
/* /\* /\\* Reopen file and check, *\\/ *\/ */
/* /\* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; *\/ */
/* /\* if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR; *\/ */
/* /\* if (dimid_in != dimid1) ERR; *\/ */
/* /\* if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR; *\/ */
/* /\* if (dimid_in != dimid2) ERR; *\/ */
/* /\* if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR; *\/ */
/* /\* if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR; *\/ */
/* /\* if (varid_in != varid1) ERR; *\/ */
/* /\* if (nc_inq_varid(ncid, D1_NAME, &varid_in)) ERR; *\/ */
/* /\* if (varid_in != varid2) ERR; *\/ */
/* /\* if (nc_close(ncid)) ERR; *\/ */
/* } */
/* SUMMARIZE_ERR; */
/* fprintf(stderr,"*** test exchanging names of two coord vars, making them non-coord vars with names same as dims..."); */
/* { */
/* int ncid, dimid1, dimid2, varid1, varid2; */
/* int dimid_in, varid_in; */
/* char file_name[NC_MAX_NAME + 1]; */
/* /\* Reopen file and check, *\/ */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR; */
/* if (dimid_in != dimid1) ERR; */
/* if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR; */
/* if (dimid_in != dimid2) ERR; */
/* if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR; */
/* if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR; */
/* if (varid_in != varid1) ERR; */
/* if (nc_inq_varid(ncid, D1_NAME, &varid_in)) ERR; */
/* if (varid_in != varid2) ERR; */
/* if (nc_close(ncid)) ERR; */
}
SUMMARIZE_ERR;
fprintf(stderr,"*** test exchanging names of two coord vars, making them non-coord vars with names same as dims...");
{
int ncid, dimid1, dimid2, varid1, varid2;
/* int dimid_in; */
/* int varid_in; */
char file_name[NC_MAX_NAME + 1];
/* /\* Create file with dim and associated coordinate var. *\/ */
/* sprintf(file_name, "%s_non_coord_to_dim.nc", TEST_NAME); */
/* if (nc_create(file_name, NC_CLOBBER|NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR; */
/* if (nc_def_dim(ncid, D1_NAME, DIM1_LEN, &dimid1)) ERR; */
/* if (nc_def_dim(ncid, D2_NAME, DIM1_LEN, &dimid2)) ERR; */
/* if (nc_def_var(ncid, D1_NAME, NC_INT, NDIM1, &dimid1, &varid1)) ERR; */
/* if (nc_def_var(ncid, D2_NAME, NC_INT, NDIM1, &dimid2, &varid2)) ERR; */
/* if (nc_close(ncid)) ERR; */
/* Create file with dim and associated coordinate var. */
sprintf(file_name, "%s_non_coord_to_dim.nc", TEST_NAME);
if (nc_create(file_name, NC_CLOBBER|NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR;
if (nc_def_dim(ncid, D1_NAME, DIM1_LEN, &dimid1)) ERR;
if (nc_def_dim(ncid, D2_NAME, DIM1_LEN, &dimid2)) ERR;
if (nc_def_var(ncid, D1_NAME, NC_INT, NDIM1, &dimid1, &varid1)) ERR;
if (nc_def_var(ncid, D2_NAME, NC_INT, NDIM1, &dimid2, &varid2)) ERR;
if (nc_close(ncid)) ERR;
/* /\* Open the file and rename the vars. *\/ */
/* nc_set_log_level(4); */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* if (nc_rename_var(ncid, varid1, TMP_NAME)) ERR; */
/* nc_sync(ncid); */
/* /\* if (nc_rename_var(ncid, varid2, D1_NAME)) ERR; *\/ */
/* /\* nc_sync(ncid); *\/ */
/* /\* if (nc_rename_var(ncid, varid1, D2_NAME)) ERR; *\/ */
/* if (nc_close(ncid)) ERR; */
/* Open the file and rename the vars. */
nc_set_log_level(4);
if (nc_open(file_name, NC_WRITE, &ncid)) ERR;
if (nc_rename_var(ncid, varid1, TMP_NAME)) ERR;
nc_sync(ncid);
/* This should work but doesn't yet. */
/* if (nc_rename_var(ncid, varid2, D1_NAME)) ERR; */
/* nc_sync(ncid); */
/* if (nc_rename_var(ncid, varid1, D2_NAME)) ERR; */
if (nc_close(ncid)) ERR;
/* /\* Reopen file and check, *\/ */
/* if (nc_open(file_name, NC_WRITE, &ncid)) ERR; */
/* /\* if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR; *\/ */
/* /\* if (dimid_in != dimid1) ERR; *\/ */
/* /\* if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR; *\/ */
/* /\* if (dimid_in != dimid2) ERR; *\/ */
/* /\* if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR; *\/ */
/* /\* if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR; *\/ */
/* /\* if (varid_in != varid1) ERR; *\/ */
/* /\* if (nc_inq_varid(ncid, D1_NAME, &varid_in)) ERR; *\/ */
/* /\* if (varid_in != varid2) ERR; *\/ */
/* if (nc_close(ncid)) ERR; */
/* } */
/* SUMMARIZE_ERR; */
/* Reopen file and check, this should work but doesnt yet. */
if (nc_open(file_name, NC_WRITE, &ncid)) ERR;
/* if (nc_inq_dimid(ncid, D1_NAME, &dimid_in)) ERR; */
/* if (dimid_in != dimid1) ERR; */
/* if (nc_inq_dimid(ncid, D2_NAME, &dimid_in)) ERR; */
/* if (dimid_in != dimid2) ERR; */
/* if (nc_inq_dimid(ncid, TMP_NAME, &dimid_in) != NC_EBADDIM) ERR; */
/* if (nc_inq_varid(ncid, TMP_NAME, &varid_in)) ERR; */
/* if (varid_in != varid1) ERR; */
/* if (nc_inq_varid(ncid, D1_NAME, &varid_in)) ERR; */
/* if (varid_in != varid2) ERR; */
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
FINAL_RESULTS;
}