1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
|
# File 'ext/netcdfraw.c', line 1266
VALUE
NetCDF_att_rename(VALUE Att,VALUE new_att_name)
{
int ncid;
int status;
int varid;
char *c_att_name;
char *c_new_att_name;
struct NetCDFAtt *Netcdf_att;
Data_Get_Struct(Att,struct NetCDFAtt,Netcdf_att);
ncid=Netcdf_att->ncid;
varid=Netcdf_att->varid;
c_att_name=Netcdf_att->name;
Check_Type(new_att_name,T_STRING);
SafeStringValue(new_att_name);
c_new_att_name=StringValueCStr(new_att_name);
status = nc_rename_att(ncid,varid,c_att_name,c_new_att_name);
if(status != NC_NOERR) NC_RAISE(status);
strcpy(Netcdf_att->name,c_new_att_name);
return Qnil;
}
|