int
NC3_def_var( int ncid, const char *name, nc_type type,
int ndims, const int *dimids, int *varidp)
{
int status;
NC *nc;
NC3_INFO* ncp;
int varid;
NC_var *varp;
status = NC_check_id(ncid, &nc);
if(status != NC_NOERR)
return status;
ncp = NC3_DATA(nc);
if(!NC_indef(ncp))
{
return NC_ENOTINDEFINE;
}
status = NC_check_name(name);
if(status != NC_NOERR)
return status;
status = nc_cktype(type);
if(status != NC_NOERR)
return status;
/* cast needed for braindead systems with signed size_t */
if((unsigned long) ndims > X_INT_MAX) /* Backward compat */
{
return NC_EINVAL;
}
if(ncp->vars.nelems >= NC_MAX_VARS)
{
return NC_EMAXVARS;
}
varid = NC_findvar(&ncp->vars, name, &varp);
if(varid != -1)
{
return NC_ENAMEINUSE;
}
varp = new_NC_var(name, type, ndims, dimids);
if(varp == NULL)
return NC_ENOMEM;
status = NC_var_shape(varp, &ncp->dims);
if(status != NC_NOERR)
{
free_NC_var(varp);
return status;
}
status = incr_NC_vararray(&ncp->vars, varp);
if(status != NC_NOERR)
{
free_NC_var(varp);
return status;
}
if(varidp != NULL)
*varidp = (int)ncp->vars.nelems -1; /* varid */
return NC_NOERR;
}
int
nc_put_att_double(int ncid, int varid, const char *name,
nc_type type, size_t nelems, const double *value)
{
int status;
NC *ncp;
NC_attrarray *ncap;
NC_attr **attrpp;
NC_attr *old = NULL;
NC_attr *attrp;
status = NC_check_id(ncid, &ncp);
if(status != NC_NOERR)
return status;
if(NC_readonly(ncp))
return NC_EPERM;
ncap = NC_attrarray0(ncp, varid);
if(ncap == NULL)
return NC_ENOTVAR;
status = nc_cktype(type);
if(status != NC_NOERR)
return status;
if(type == NC_CHAR)
return NC_ECHAR;
/* cast needed for braindead systems with signed size_t */
if((unsigned long) nelems > X_INT_MAX) /* backward compat */
return NC_EINVAL; /* Invalid nelems */
if(nelems != 0 && value == NULL)
return NC_EINVAL; /* Null arg */
attrpp = NC_findattr(ncap, name);
if(attrpp != NULL) /* name in use */
{
if(!NC_indef(ncp) )
{
const size_t xsz = ncx_len_NC_attrV(type, nelems);
attrp = *attrpp; /* convenience */
if(xsz > attrp->xsz)
return NC_ENOTINDEFINE;
/* else, we can reuse existing without redef */
attrp->xsz = xsz;
attrp->type = type;
attrp->nelems = nelems;
if(nelems != 0)
{
void *xp = attrp->xvalue;
status = ncx_pad_putn_Idouble(&xp, nelems,
value, type);
}
set_NC_hdirty(ncp);
if(NC_doHsync(ncp))
{
const int lstatus = NC_sync(ncp);
/*
* N.B.: potentially overrides NC_ERANGE
* set by ncx_pad_putn_Idouble
*/
if(lstatus != ENOERR)
return lstatus;
}
return status;
}
/* else, redefine using existing array slot */
old = *attrpp;
}
else
{
if(!NC_indef(ncp))
return NC_ENOTINDEFINE;
if(ncap->nelems >= NC_MAX_ATTRS)
return NC_EMAXATTS;
}
status = NC_check_name(name);
if(status != NC_NOERR)
return status;
attrp = new_NC_attr(name, type, nelems);
if(attrp == NULL)
return NC_ENOMEM;
if(nelems != 0)
{
void *xp = attrp->xvalue;
status = ncx_pad_putn_Idouble(&xp, nelems,
value, type);
}
if(attrpp != NULL)
{
assert(old != NULL);
*attrpp = attrp;
free_NC_attr(old);
}
else
{
const int lstatus = incr_NC_attrarray(ncap, attrp);
/*
* N.B.: potentially overrides NC_ERANGE
* set by ncx_pad_putn_Idouble
*/
if(lstatus != NC_NOERR)
{
free_NC_attr(attrp);
return lstatus;
}
}
return status;
}
