mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2024-12-03 08:01:25 +08:00
Code Issues Packages Projects Releases Wiki Activity
40a929575c
netcdf-c/nc_test/tst_diskless.c

328 lines
11 KiB
C
Raw Normal View History

- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/** \file \internal
Basic diskless API tests.
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
Copyright 2011, UCAR/Unidata. See COPYRIGHT file for copying and
redistribution conditions.
*/
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
#undef DDBG
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
#include <config.h>
#include <nc_tests.h>
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#include "err_macros.h"
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
#include <stdio.h>
#include <stdlib.h>
#include <netcdf.h>
This is the second step in refactoring the libsrc4 code. The first was branch newhash0.dmh. As with newhash0.dmh, these changes should be transparent.
2018-02-25 11:36:24 +08:00
/*
netcdf tst_diskless {
variables:
int resistor_value;
float capacitor_value;
short number_of_555_timer_chips;
}
*/
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
#define FLAGS4 (NC_DISKLESS|NC_NETCDF4|NC_CLASSIC_MODEL)
#define FLAGS3 (NC_DISKLESS)
#define PERSIST (NC_WRITE)
#define RESISTOR "resistor_value"
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#define CAPACITOR "capacitor_value"
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
#define NUM555 "number_of_555_timer_chips"
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
#ifdef DDBG
#undef ERR
void fail(int line) {
fflush(stdout);
fprintf(stderr,"\nline=%d\n",line);
fflush(stderr);
exit(1);
}
#define ERR fail(__LINE__)
#endif
/* Control flags */
static int flags, persist, usenetcdf4, mmap;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
static void
removefile(int persist, char* filename)
{
if(persist) {
if(remove(filename) != 0) {
if(errno != ENOENT) {
fprintf(stderr,"Could not remove file: %s: %d\n",filename,errno);
perror("");
exit(1);
}
}
}
}
int
main(int argc, char **argv)
{
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
int i;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
char* filename = "tst_diskless.nc";
/* Set defaults */
persist = 0;
usenetcdf4 = 0;
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
mmap = 0;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
for(i=1;i<argc;i++) {
if(strcmp(argv[i],"netcdf4")==0) usenetcdf4=1;
else if(strcmp(argv[i],"persist")==0) persist=1;
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
else if(strcmp(argv[i],"mmap")==0) mmap=1;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* ignore anything not recognized */
}
#ifndef USE_NETCDF4
usenetcdf4 = 0;
#endif
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
if(mmap)
usenetcdf4 = 0;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
flags = usenetcdf4?FLAGS4:FLAGS3;
if(persist) flags |= PERSIST;
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
if(mmap) flags |= NC_MMAP;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
printf("\n*** Testing the diskless API.\n");
printf("*** testing diskless file with scalar vars...");
{
int ncid, varid0, varid1, varid2;
int ndims_in, nvars_in, natts_in, unlimdimid_in;
char name_in[NC_MAX_NAME + 1];
nc_type type_in;
float float_data = 3.14, float_data_in;
int int_data = 42, int_data_in;
short short_data = 2, short_data_in;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
removefile(persist,filename);
/* Create a netCDF file (which exists only in memory). */
if (nc_create(filename, flags, &ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Create some variables. */
if (nc_def_var(ncid, RESISTOR, NC_INT, 0, NULL, &varid0)) ERR;
if (nc_def_var(ncid, CAPACITOR, NC_FLOAT, 0, NULL, &varid1)) ERR;
if (nc_def_var(ncid, NUM555, NC_SHORT, 0, NULL, &varid2)) ERR;
if (nc_enddef(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Write some data to this file. */
if (nc_put_vara_int(ncid, varid0, NULL, NULL, &int_data)) ERR;
if (nc_put_vara_float(ncid, varid1, NULL, NULL, &float_data)) ERR;
if (nc_put_vara_short(ncid, varid2, NULL, NULL, &short_data)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Now check the phony file. */
if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
if (ndims_in != 0 || nvars_in != 3 || natts_in != 0 || unlimdimid_in != -1) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Check variables. */
if (nc_inq_var(ncid, varid0, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, RESISTOR) || type_in != NC_INT || ndims_in != 0 ||
natts_in != 0) ERR;
if (nc_inq_var(ncid, varid1, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, CAPACITOR) || type_in != NC_FLOAT || ndims_in != 0 ||
natts_in != 0) ERR;
if (nc_inq_var(ncid, varid2, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, NUM555) || type_in != NC_SHORT || natts_in != 0) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Read my absolutely crucial data. */
if (nc_get_vara_int(ncid, varid0, NULL, NULL, &int_data_in)) ERR;
if (int_data_in != int_data) ERR;
if (nc_get_vara_float(ncid, varid1, NULL, NULL, &float_data_in)) ERR;
if (float_data_in != float_data) ERR;
if (nc_get_vara_short(ncid, varid2, NULL, NULL, &short_data_in)) ERR;
if (short_data_in != short_data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Close the file. */
if (nc_close(ncid))
When using the '-ansi' flag with gcc, netcdf would fail to build because of the use of '//' for one-line comments. I've addressed this by replacing instances of // with enclosing comment blocks.
2014-08-27 01:19:32 +08:00
abort(); /* ERR; */
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
}
SUMMARIZE_ERR;
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
if(!usenetcdf4 && persist) {
int ncid, varid0, varid1, varid2;
float float_data = 3.14, float_data_in;
int int_data = 42, int_data_in;
short short_data = 2, short_data_in;
printf("*** testing diskless open of previously created file...");
if (nc_open(filename, flags, &ncid)) ERR;
/* Read and compare */
if (nc_inq_varid(ncid, RESISTOR, &varid0)) ERR;
if (nc_inq_varid(ncid, CAPACITOR, &varid1)) ERR;
if (nc_inq_varid(ncid, NUM555, &varid2)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
if (nc_get_vara_int(ncid, varid0, NULL, NULL, &int_data_in)) ERR;
if (int_data_in != int_data) ERR;
if (nc_get_vara_float(ncid, varid1, NULL, NULL, &float_data_in)) ERR;
if (float_data_in != float_data) ERR;
if (nc_get_vara_short(ncid, varid2, NULL, NULL, &short_data_in)) ERR;
if (short_data_in != short_data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
nc_close(ncid);
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
}
add NC_MMAP flag and tests
2012-06-24 03:25:49 +08:00
SUMMARIZE_ERR;
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
printf("*** testing creation of simple diskless file...");
{
#define NDIMS 2
#define DIM0_NAME "Fun"
#define DIM1_NAME "Money"
#define DIM1_LEN 200
#define ATT0_NAME "home"
#define ATT0_TEXT "earthship"
#define VAR0_NAME "nightlife"
#define VAR1_NAME "time"
#define VAR2_NAME "taxi_distance"
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
int ncid, dimid[NDIMS], dimid_in[NDIMS], varid0, varid1, varid2;
int ndims_in, nvars_in, natts_in, unlimdimid_in;
char name_in[NC_MAX_NAME + 1], att0_in[NC_MAX_NAME + 1];
nc_type type_in;
size_t len_in;
short short_data[DIM1_LEN];
size_t start[1] = {0};
size_t count[1] = {DIM1_LEN};
int i;
float float_data = 42.22, float_data_in;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* This is some really important data that I want to save. */
for (i = 0; i < DIM1_LEN; i++)
short_data[i] = i;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
removefile(persist,filename);
/* Create a netCDF file (which exists only in memory). I am
* confident that the world-famous netCDF format is the way to
* store my data! */
if (nc_create(filename, flags, &ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Create some atts. They will help document my data forever. */
if (nc_put_att_text(ncid, NC_GLOBAL, ATT0_NAME,
fixed leaks in tests
2017-10-27 04:50:21 +08:00
sizeof(ATT0_TEXT), ATT0_TEXT)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Create dimensions: money is limited, but fun is not! */
if (nc_def_dim(ncid, DIM0_NAME, NC_UNLIMITED, &dimid[0])) ERR;
if (nc_def_dim(ncid, DIM1_NAME, DIM1_LEN, &dimid[1])) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Create some variables. The data they hold must persist
* through the ages. */
if (nc_def_var(ncid, VAR0_NAME, NC_INT, NDIMS, dimid, &varid0)) ERR;
if (nc_def_var(ncid, VAR1_NAME, NC_FLOAT, 0, NULL, &varid1)) ERR;
if (nc_def_var(ncid, VAR2_NAME, NC_SHORT, 1, &dimid[1], &varid2)) ERR;
if (nc_enddef(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Write some data to this file. I'm glad I'm saving this
* important data in such a safe format! */
if (nc_put_vara_float(ncid, varid1, NULL, NULL, &float_data)) ERR;
if (nc_put_vara_short(ncid, varid2, start, count, short_data)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Now check the phony file. Is my data safe? */
if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
if (ndims_in != 2 || nvars_in != 3 || natts_in != 1 || unlimdimid_in != 0) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Check attributes - they will be needed by future generations
* of scientists to understand my data. */
if (nc_get_att_text(ncid, NC_GLOBAL, ATT0_NAME, att0_in)) ERR;
fixed leaks in tests
2017-10-27 04:50:21 +08:00
att0_in[sizeof(ATT0_TEXT)] = '\0';
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
if (strcmp(att0_in, ATT0_TEXT)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Check dimensions. */
if (nc_inq_dim(ncid, dimid[0], name_in, &len_in)) ERR;
if (strcmp(name_in, DIM0_NAME) || len_in != 0) ERR;
if (nc_inq_dim(ncid, dimid[1], name_in, &len_in)) ERR;
if (strcmp(name_in, DIM1_NAME) || len_in != DIM1_LEN) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Check variables. */
if (nc_inq_var(ncid, varid0, name_in, &type_in, &ndims_in, dimid_in, &natts_in)) ERR;
if (strcmp(name_in, VAR0_NAME) || type_in != NC_INT || ndims_in != NDIMS ||
dimid_in[0] != 0 || dimid_in[1] != 1 || natts_in != 0) ERR;
if (nc_inq_var(ncid, varid1, name_in, &type_in, &ndims_in, dimid_in, &natts_in)) ERR;
if (strcmp(name_in, VAR1_NAME) || type_in != NC_FLOAT || ndims_in != 0 ||
natts_in != 0) ERR;
if (nc_inq_var(ncid, varid2, name_in, &type_in, &ndims_in, dimid_in, &natts_in)) ERR;
if (strcmp(name_in, VAR2_NAME) || type_in != NC_SHORT || ndims_in != 1 ||
dimid_in[0] != 1 || natts_in != 0) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Read my absolutely crucial data. */
if (nc_get_vara_float(ncid, varid1, NULL, NULL, &float_data_in)) ERR;
if (float_data_in != float_data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Close the file, losing all information. Hey! What kind of
* storage format is this, anyway? */
if (nc_close(ncid))
When using the '-ansi' flag with gcc, netcdf would fail to build because of the use of '//' for one-line comments. I've addressed this by replacing instances of // with enclosing comment blocks.
2014-08-27 01:19:32 +08:00
abort(); /* ERR; */
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
}
SUMMARIZE_ERR;
printf("*** testing diskless file with scalar vars and type conversion...");
{
#define DUNE "dune"
#define STAR_TREK "capacitor_value"
#define STAR_WARS "number_of_555_timer_chips"
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
int ncid, varid0, varid1, varid2;
int ndims_in, nvars_in, natts_in, unlimdimid_in;
char name_in[NC_MAX_NAME + 1];
nc_type type_in;
float float_data = 3.14, float_data_in;
int int_data = 42, int_data_in;
short short_data = 2, short_data_in;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
removefile(persist,filename);
/* Create a netCDF file (which exists only in memory). */
if (nc_create(filename, flags, &ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Create some variables. */
if (nc_def_var(ncid, DUNE, NC_INT, 0, NULL, &varid0)) ERR;
if (nc_def_var(ncid, STAR_TREK, NC_FLOAT, 0, NULL, &varid1)) ERR;
if (nc_def_var(ncid, STAR_WARS, NC_SHORT, 0, NULL, &varid2)) ERR;
if (nc_enddef(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Write some data to this file. */
if (nc_put_vara_int(ncid, varid0, NULL, NULL, &int_data)) ERR;
if (nc_put_vara_float(ncid, varid1, NULL, NULL, &float_data)) ERR;
if (nc_put_vara_short(ncid, varid2, NULL, NULL, &short_data)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Now check the phony file. */
if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
if (ndims_in != 0 || nvars_in != 3 || natts_in != 0 || unlimdimid_in != -1) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Check variables. */
if (nc_inq_var(ncid, varid0, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, DUNE) || type_in != NC_INT || ndims_in != 0 ||
natts_in != 0) ERR;
if (nc_inq_var(ncid, varid1, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, STAR_TREK) || type_in != NC_FLOAT || ndims_in != 0 ||
allow NC_DISKLESS with nc_open() to operate as a in-memory cache
2012-04-09 06:47:38 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
natts_in != 0) ERR;
if (nc_inq_var(ncid, varid2, name_in, &type_in, &ndims_in, NULL, &natts_in)) ERR;
if (strcmp(name_in, STAR_WARS) || type_in != NC_SHORT || natts_in != 0) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Read my absolutely crucial data. */
if (nc_get_vara_int(ncid, varid0, NULL, NULL, &int_data_in)) ERR;
if (int_data_in != int_data) ERR;
if (nc_get_vara_float(ncid, varid1, NULL, NULL, &float_data_in)) ERR;
if (float_data_in != float_data) ERR;
if (nc_get_vara_short(ncid, varid2, NULL, NULL, &short_data_in)) ERR;
if (short_data_in != short_data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
/* Close the file. */
if (nc_close(ncid))
When using the '-ansi' flag with gcc, netcdf would fail to build because of the use of '//' for one-line comments. I've addressed this by replacing instances of // with enclosing comment blocks.
2014-08-27 01:19:32 +08:00
abort(); /* ERR; */
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
}
SUMMARIZE_ERR;
FINAL_RESULTS;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
Minor fixes (dead code) to correct errors found by Coverity
2012-07-31 05:49:16 +08:00
/* Unnecessary exit(0), FINAL_RESULTS returns. */
When using the '-ansi' flag with gcc, netcdf would fail to build because of the use of '//' for one-line comments. I've addressed this by replacing instances of // with enclosing comment blocks.
2014-08-27 01:19:32 +08:00
/* exit(0); */
- Implemented diskless files for both netcdf classic and extended. The in-memory files can be made persistent if nc_create is called with NC_DISKLESS|NC_WRITE flags set. Initial test case also included. - Modified ncio mechanism to support multiple ncio packages; this is so we can have posixio and memio operating at the same time. - cleanup up a bunch of lint issues (unused variables, etc).
2012-03-26 09:34:32 +08:00
}
Reference in New Issue Copy Permalink