/*
* Print a number of double variable values, where the optional comments
* for each value identify the variable, and each dimension index.
*/
static void
pr_dvals(
const struct ncvar *vp, /* variable */
long len, /* number of values to print */
const char *fmt, /* printf format used for each value. If
* nc_type is NC_CHAR and this is NULL,
* character arrays will be printed as
* strings enclosed in quotes. */
boolean more, /* true if more data for this row will
* follow, so add trailing comma */
boolean lastrow, /* true if this is the last row for this
* variable, so terminate with ";" instead
* of "," */
const double *vals, /* pointer to block of values */
const struct fspec* fsp, /* formatting specs */
const long *cor /* corner coordinates */
)
{
long iel;
char sout[100]; /* temporary string for each encoded output */
for (iel = 0; iel < len-1; iel++) {
printdval(sout, fmt, vp, *vals++);
if (fsp->full_data_cmnts) {
Printf("%s", sout);
Printf(",");
annotate (vp, fsp, cor, iel);
} else {
(void) strcat(sout, ", ");
lput(sout);
}
}
printdval(sout, fmt, vp, *vals++);
if (fsp->full_data_cmnts) {
Printf("%s", sout);
lastdelim (more, lastrow);
annotate (vp, fsp, cor, iel);
} else {
lput(sout);
lastdelim2 (more, lastrow);
}
}
/*
* Print a number of variable values, where the optional comments
* for each value identify the variable, and each dimension index.
*/
static void
pr_any_vals(
const ncvar_t *vp, /* variable */
size_t len, /* number of values to print */
boolean more, /* true if more data for this row will
* follow, so add trailing comma */
boolean lastrow, /* true if this is the last row for this
* variable, so terminate with ";" instead
* of "," */
const void *vals, /* pointer to block of values */
const fspec_t* fsp, /* formatting specs */
const size_t *cor /* corner coordinates */
)
{
long iel;
safebuf_t *sb = sbuf_new();
const char *valp = (const char *)vals;
for (iel = 0; iel < len-1; iel++) {
print_any_val(sb, vp, (void *)valp);
valp += vp->tinfo->size; /* next value according to type */
if (fsp->full_data_cmnts) {
printf(sb->buf);
printf(",");
annotate (vp, fsp, cor, iel);
} else {
sbuf_cat(sb, ", ");
lput(sbuf_str(sb));
}
}
print_any_val(sb, vp, (void *)valp);
valp += vp->tinfo->size; /* next value according to type */
if (fsp->full_data_cmnts) {
printf(sbuf_str(sb));
lastdelim (more, lastrow);
annotate (vp, fsp, cor, iel);
} else {
lput(sbuf_str(sb));
lastdelim2 (more, lastrow);
}
sbuf_free(sb);
}
/* Print data values for variable varid.
*
* Recursive to handle possibility of variables with multiple
* unlimited dimensions, for which the CDL syntax requires use of "{"
* and "}" in data section to disambiguate the size of nested records
* in a simple linear list of values.
*/
static int
print_rows(
int level, /* 0 at top-level, incremented for each recursive level */
int ncid, /* netcdf id */
int varid, /* variable id */
const ncvar_t *vp, /* variable */
size_t ncols, /* number of values in a row */
int rank, /* number of elements in following 3 arrays */
size_t vdims[], /* variable dimension sizes */
size_t cor[], /* corner coordinates */
size_t edg[], /* edges of hypercube */
void *vals, /* allocated buffer for ncols values in a row */
int marks_pending /* number of pending closing "}" record markers */
)
{
int d0 = 0;
size_t inc = 1;
int i;
bool_t mark_record = (level > 0 && is_unlim_dim(ncid, vp->dims[level]));
safebuf_t *sb = sbuf_new();
if (rank > 0)
d0 = vdims[level];
for(i = level + 1; i < rank; i++) {
inc *= vdims[i];
}
if(mark_record) { /* the whole point of this recursion is printing these "{}" */
lput("{");
marks_pending++; /* matching "}"s to emit after last "row" */
}
if(rank - level > 1) { /* this level is just d0 next levels */
size_t *local_cor = emalloc((rank + 1) * sizeof(size_t));
size_t *local_edg = emalloc((rank + 1) * sizeof(size_t));
for(i = 0; i < rank; i++) {
local_cor[i] = cor[i];
local_edg[i] = edg[i];
}
local_cor[level] = 0;
local_edg[level] = 1;
for(i = 0; i < d0 - 1; i++) {
print_rows(level + 1, ncid, varid, vp, ncols, rank, vdims,
local_cor, local_edg, vals, 0);
local_cor[level] += 1;
}
print_rows(level + 1, ncid, varid, vp, ncols, rank, vdims,
local_cor, local_edg, vals, marks_pending);
free(local_edg);
free(local_cor);
} else { /* bottom out of recursion */
char *valp = vals;
bool_t lastrow;
int j;
if(formatting_specs.brief_data_cmnts && rank > 1) {
annotate_brief(vp, cor, vdims);
}
NC_CHECK(nc_get_vara(ncid, varid, cor, edg, (void *)valp));
for(i=0; i < d0 - 1; i++) {
print_any_val(sb, vp, (void *)valp);
valp += vp->tinfo->size; /* next value according to type */
if (formatting_specs.full_data_cmnts) {
printf("%s, ", sb->buf);
annotate (vp, cor, i);
} else {
sbuf_cat(sb, ", ");
lput(sbuf_str(sb));
}
}
print_any_val(sb, vp, (void *)valp);
/* determine if this is the last row */
lastrow = true;
for(j = 0; j < rank - 1; j++) {
if (cor[j] != vdims[j] - 1) {
lastrow = false;
break;
}
}
if (formatting_specs.full_data_cmnts) {
for (j = 0; j < marks_pending; j++) {
sbuf_cat(sb, "}");
}
printf("%s", sbuf_str(sb));
lastdelim (0, lastrow);
annotate (vp, cor, i);
} else {
for (j = 0; j < marks_pending; j++) {
sbuf_cat(sb, "}");
}
lput(sbuf_str(sb));
lastdelim2 (0, lastrow);
}
}
sbuf_free(sb);
return NC_NOERR;
}
/*
* Print a number of char variable values as a text string, where the
* optional comments for each value identify the variable, and each
* dimension index.
*/
static void
pr_tvals(
const ncvar_t *vp, /* variable */
size_t len, /* number of values to print */
bool_t lastrow, /* true if this is the last row for this
* variable, so terminate with ";" instead
* of "," */
const char *vals, /* pointer to block of values */
const size_t *cor /* corner coordinates */
)
{
long iel;
const char *sp;
printf("\"");
/* adjust len so trailing nulls don't get printed */
sp = vals + len;
while (len != 0 && *--sp == '\0')
len--;
for (iel = 0; iel < len; iel++) {
unsigned char uc;
switch (uc = *vals++ & 0377) {
case '\b':
printf("\\b");
break;
case '\f':
printf("\\f");
break;
case '\n': /* generate linebreaks after new-lines */
printf("\\n\",\n \"");
break;
case '\r':
printf("\\r");
break;
case '\t':
printf("\\t");
break;
case '\v':
printf("\\v");
break;
case '\\':
printf("\\\\");
break;
case '\'':
printf("\\\'");
break;
case '\"':
printf("\\\"");
break;
default:
if (isprint(uc))
printf("%c",uc);
else
printf("\\%.3o",uc);
break;
}
}
printf("\"");
/* if (fsp && formatting_specs.full_data_cmnts) { */
if (formatting_specs.full_data_cmnts) {
lastdelim (0, lastrow);
annotate (vp, (size_t *)cor, 0L);
} else {
lastdelim2 (0, lastrow);
}
}
/*
* Print a number of char variable values, where the optional comments
* for each value identify the variable, and each dimension index.
*/
static void
pr_tvals(
const struct ncvar *vp, /* variable */
long len, /* number of values to print */
const char *fmt, /* printf format used for each value. If
* nc_type is NC_CHAR and this is NULL,
* character arrays will be printed as
* strings enclosed in quotes. */
boolean more, /* true if more data for this row will
* follow, so add trailing comma */
boolean lastrow, /* true if this is the last row for this
* variable, so terminate with ";" instead
* of "," */
const char *vals, /* pointer to block of values */
const struct fspec* fsp, /* formatting specs */
const long *cor /* corner coordinates */
)
{
long iel;
const char *sp;
unsigned char uc;
char sout[100]; /* temporary string for each encoded output */
if (fmt == 0 || STREQ(fmt,"%s") || STREQ(fmt,"")) { /* as string */
Printf("\"");
/* adjust len so trailing nulls don't get printed */
sp = vals + len;
while (len != 0 && *--sp == '\0')
len--;
for (iel = 0; iel < len; iel++)
switch (uc = *vals++ & 0377) {
case '\b':
Printf("\\b");
break;
case '\f':
Printf("\\f");
break;
case '\n': /* generate linebreaks after new-lines */
Printf("\\n\",\n \"");
break;
case '\r':
Printf("\\r");
break;
case '\t':
Printf("\\t");
break;
case '\v':
Printf("\\v");
break;
case '\\':
Printf("\\\\");
break;
case '\'':
Printf("\\\'");
break;
case '\"':
Printf("\\\"");
break;
default:
if (isprint(uc))
Printf("%c",uc);
else
Printf("\\%.3o",uc);
break;
}
Printf("\"");
if (fsp->full_data_cmnts) {
lastdelim (more, lastrow);
annotate (vp, fsp, (long *)cor, 0L);
}
} else { /* use format from C_format attribute */
for (iel = 0; iel < len-1; iel++) {
if (fsp->full_data_cmnts) {
Printf(fmt, *vals++);
Printf(", ");
annotate (vp, fsp, (long *)cor, iel);
} else {
(void) sprintf(sout, fmt, *vals++);
(void) strcat(sout, ", ");
lput(sout);
}
}
if (fsp->full_data_cmnts) {
Printf(fmt, *vals++);
lastdelim (more, lastrow);
annotate (vp, fsp, (long *)cor, iel);
} else {
(void) sprintf(sout, fmt, *vals++);
lput(sout);
}
}
if (!fsp->full_data_cmnts) {
lastdelim2 (more, lastrow);
}
}