/* Specialty wrappers for genbin_data */ void genbin_attrdata(Symbol* asym, Bytebuffer* memory) { Datasrc* src; int chartype = (asym->typ.basetype->typ.typecode == NC_CHAR); if(asym->data == NULL) return; if(chartype) {gen_charattr(asym,memory); return;} src = datalist2src(asym->data); while(srcmore(src)) { genbin_data(asym->typ.basetype,src,NULL,memory); } }
/* Specialty wrappers for f77data_data */ void f77data_attrdata(Symbol* asym, Bytebuffer* databuf) { Datasrc* src; int typecode = asym->typ.basetype->typ.typecode; if(asym->data == NULL) return; if(typecode == NC_CHAR) { gen_charattr(asym,databuf); } else { src = datalist2src(asym->data); while(srcmore(src)) { bbAppend(databuf,' '); f77data_basetype(asym->typ.basetype,src,databuf,NULL); } } }
void generate_attrdata(Symbol* asym, Generator* generator, Writer writer, Bytebuffer* codebuf) { Symbol* basetype = asym->typ.basetype; nc_type typecode = basetype->typ.typecode; if(typecode == NC_CHAR) { gen_charattr(asym->data,codebuf); } else { int uid; size_t count; generator->listbegin(generator,LISTATTR,asym->data->length,codebuf,&uid); for(count=0;count<asym->data->length;count++) { NCConstant* con = datalistith(asym->data,count); generator->list(generator,LISTATTR,uid,count,codebuf); generate_basetype(asym->typ.basetype,con,codebuf,NULL,generator); } generator->listend(generator,LISTATTR,uid,count,codebuf); } writer(generator,asym,codebuf,0,NULL,NULL); }