genbin.c#15static void genbin_defineattr(Symbolasym);
#150     Symbolasym = (Symbol*)listget(attdefs,iatt);
#151     genbin_defineattr(asym);
#354genbin_defineattr(Symbolasym)
#358    generate_attrdata(asym,bin_generator,(Writer)genbin_write,databuf);
#430genbin_writeattr(GeneratorgeneratorSymbolasymBytebufferdatabuf,
#437    Symbolbasetype = asym->typ.basetype;
#439    grpid = asym->container->ncid;
#440    varid = (asym->att.var == NULL?NC_GLOBAL : asym->att.var->ncid);
#443    list = asym->data;
#451        stat = nc_put_att_schar(grpid,varid,asym->name,typid,len,data);
#465        stat = nc_put_att_text(grpid,varid,asym->name,slen,data);
#470        stat = nc_put_att_short(grpid,varid,asym->name,typid,len,data);
#475                stat = nc_put_att_int(grpid,varid,asym->name,typid,len,data);
#480                stat = nc_put_att_float(grpid,varid,asym->name,typid,len,data);
#485                stat = nc_put_att_double(grpid,varid,asym->name,typid,len,data);
#492                stat = nc_put_att_string(grpid,varid,asym->name,
#498                stat = nc_put_att_uchar(grpid,varid,asym->name,typid,len,data);
#503                stat = nc_put_att_ushort(grpid,varid,asym->name,typid,len,data);
#508                stat = nc_put_att_uint(grpid,varid,asym->name,typid,len,data);
#513                stat = nc_put_att_longlong(grpid,varid,asym->name,typid,len,data);
#514                check_err2(stat,asym->lineno,__LINE__,__FILE__);
#518                stat = nc_put_att_ulonglong(grpid,varid,asym->name,typid,len,data);
#527        stat = nc_put_att(grpid,varid,asym->name,typid,
#534     stat = nc_get_att(grpid,varid,asym->name,&out);
genc.c#28static void genc_defineattr(Symbolasym);
#380     Symbolasym = (Symbol*)listget(attdefs,iatt);
#381     genc_defineattr(asym);
#917genc_defineattr(Symbolasym)
#926    generate_attrdata(asym,c_generator,(Writer)genc_write,save);
#1070genc_writeattr(GeneratorgeneratorSymbolasymBytebuffercode,
#1073    Symbolbasetype = asym->typ.basetype;
#1075    size_t len = asym->data->length; /* default assumption */
#1106                        cname(asym),
#1107                        asym->data->length
#1127 groupncid(asym->container),
#1128 (asym->att.var == NULL?"NC_GLOBAL"
#1129               :varncid(asym->att.var)),
#1130 escapifyname(asym->name),
#1133 cname(asym));
#1142 groupncid(asym->container),
#1143 (asym->att.var == NULL?"NC_GLOBAL"
#1144               :varncid(asym->att.var)),
#1145 escapifyname(asym->name),
#1164 groupncid(asym->container),
#1165 (asym->att.var == NULL?"NC_GLOBAL"
#1166               :varncid(asym->att.var)),
#1167 escapifyname(asym->name),
#1170 cname(asym));
#1183 groupncid(asym->container),
#1184 (asym->att.var == NULL?"NC_GLOBAL"
#1185               :varncid(asym->att.var)),
#1186 escapifyname(asym->name),
#1188 cname(asym));
#1202 groupncid(asym->container),
#1203 (asym->att.var == NULL?"NC_GLOBAL"
#1204               :varncid(asym->att.var)),
#1205 escapifyname(asym->name),
#1208 cname(asym));
generate.c#56generate_attrdata(SymbolasymGeneratorgeneratorWriter writerBytebuffercodebuf)
#58    Symbolbasetype = asym->typ.basetype;
#62 gen_charattr(asym->data,codebuf);
#66        generator->listbegin(generator,asym,NULL,LISTATTR,asym->data->length,codebuf,&uid);
#67        for(count=0;count<asym->data->length;count++) {
#68            NCConstantcon = datalistith(asym->data,count);
#69            generator->list(generator,asym,NULL,LISTATTR,uid,count,codebuf);
#70            generate_basetype(asym->typ.basetype,con,codebuf,NULL,generator);
#72        generator->listend(generator,asym,NULL,LISTATTR,uid,count,codebuf);
#74    writer(generator,asym,codebuf,0,NULL,NULL);
genf77.c#21static void genf77_defineattr(Symbolasym);
#24static void f77attrify(SymbolasymBytebufferbuf);
#187         Symbolasym = (Symbol*)listget(attdefs,iatt);
#188 int count = asym->data->length;
#189 int typecode = asym->typ.basetype->typ.typecode;
#297     Symbolasym = (Symbol*)listget(attdefs,iatt);
#298     genf77_defineattr(asym);
#449genf77_defineattr(Symbolasym)
#456    generate_attrdata(asym,f77_generator,(Writer)genf77_write,code);
#539f77attrify(SymbolasymBytebufferbuf)
#547    f77attrifyr(asym,p,buf);
#553f77attrifyr(Symbolasym, char* pBytebufferbuf)
#555    Symbolbasetype = asym->typ.basetype;
#852genf77_writeattr(GeneratorgeneratorSymbolasymBytebuffercode,
#855    Symbolbasetype = asym->typ.basetype;
#857    size_t len = asym->data==NULL?0:asym->data->length;
#859    bbprintf0(stmt,"* define %s\n",asym->name);
#869 f77attrify(asym,code);
#874 (asym->att.var == NULL?"NF_GLOBAL"
#875       :f77varncid(asym->att.var)),
#876 codify(asym->name),
#888 (asym->att.var == NULL?"NF_GLOBAL"
#889       :f77varncid(asym->att.var)),
#890 codify(asym->name),
genj.c#30static void genj_defineattr(Symbolasym);
#177            Symbolasym = (Symbol*)listget(attdefs,iatt);
#178            genj_defineattr(asym);
#393genj_defineattr(Symbolasym)
#396    ASSERT(asym->data != NULL);
#399    generate_attrdata(asym,j_generator,(Writer)genj_write,code);
#517genj_writeattr(GeneratorgeneratorSymbolasymBytebuffercode,
#520    Symbolbasetype = asym->typ.basetype;
#523    size_t len = asym->data == NULL?0:asym->data->length;
#525    codeprintf("%s/* attribute: %s */\n",indented(1),asym->name);
#567 if(asym->att.var == NULL) {
#569                indented(1),jescapifyname(asym->name));
#573 jescapifyname(asym->att.var->name),
#574                jescapifyname(asym->name));
#582 if(asym->att.var == NULL) {
#585                jescapifyname(asym->name),
#590 jescapifyname(asym->att.var->name),
#591                jescapifyname(asym->name),
ncgeny.c#2434    {Symboltsym = (yyvsp[(1) - (6)].sym); Symbolvsym = (yyvsp[(2) - (6)].sym); Symbolasym = (yyvsp[(4) - (6)].sym);
#2436     (yyval.sym)=makeattribute(asym,vsym,tsym,(yyvsp[(6) - (6)].datalist),ATTRVAR);
#2438     derror("Doubly typed attribute: %s",asym->name);
#2446    {Symbolsym = (yyvsp[(1) - (5)].sym); Symbolasym = (yyvsp[(3) - (5)].sym);
#2448     (yyval.sym)=makeattribute(asym,sym,NULL,(yyvsp[(5) - (5)].datalist),ATTRVAR);
#2450     (yyval.sym)=makeattribute(asym,NULL,sym,(yyvsp[(5) - (5)].datalist),ATTRGLOBAL);
#2452     derror("Attribute prefix not a variable or type: %s",asym->name);
#3408makeattribute(Symbolasym,
#3414    asym->objectclass = NC_ATT;
#3415    asym->data = data;
#3418        asym->att.var = vsym;
#3419        asym->typ.basetype = tsym;
#3420        listpush(attdefs,(void*)asym);
#3421        addtogroup(asym);
#3424        asym->att.var = NULL; /* NULL => NC_GLOBAL*/
#3425        asym->typ.basetype = tsym;
#3426        listpush(gattdefs,(void*)asym);
#3427        addtogroup(asym);
#3433 derror("Attribute data may not contain fill values (i.e. _ ): %s",asym->name);
#3435    return asym;
semantics.c#28static void inferattributetype(Symbolasym);
#726 Symbolasym = (Symbol*)listget(gattdefs,i);
#727 if(asym->typ.basetype == NULLinferattributetype(asym);
#729 asym->typ.typecode = asym->typ.basetype->typ.typecode;
#730 if(asym->data->length == 0) {
#733     if(asym->typ.typecode != NC_CHAR)
#734         semerror(asym->lineno,"Empty datalist can only be assigned to attributes of type char",fullname(asym));
#735     asym->data = builddatalist(1);
#736     emptystringconst(asym->lineno,&asym->data->data[asym->data->length]);
#738 validateNIL(asym);
#742 Symbolasym = (Symbol*)listget(attdefs,i);
#747        if(strcmp(asym->name,specialname(_FILLVALUE_FLAG)) == 0) {
#749     asym->typ.basetype = asym->att.var->typ.basetype; /* its basetype is same as its var*/
#751     if(asym->data == NULL) {
#753         asym->data = getfiller(asym->typ.basetype);
#755     asym->att.var->var.special._Fillvalue = asym->data;
#756 } else if(asym->typ.basetype == NULL) {
#757     inferattributetype(asym);
#760 asym->typ.typecode = asym->typ.basetype->typ.typecode;
#761 if(asym->data->length == 0) {
#763     if(asym->typ.typecode != NC_CHAR)
#764         semerror(asym->lineno,"Empty datalist can only be assigned to attributes of type char",fullname(asym));
#765     asym->data = builddatalist(1);
#766     emptystringconst(asym->lineno,&asym->data->data[asym->data->length]);
#768 validateNIL(asym);
#775     Symbolasym = (Symbol*)listget(attdefs,j);
#776     if(asym->att.var == NULL)
#778     if(asym->att.var != vsym) continue;
#779            listpush(list,(void*)asym);
#896inferattributetype(Symbolasym)
#901    ASSERT(asym->data != NULL);
#902    datalist = asym->data;
#905 asym->typ.basetype = basetypefor(NC_CHAR);
#912 semerror(asym->lineno,"Non-simple list of values for untyped attribute: %s",fullname(asym));
#918        asym->typ.basetype = basetypefor(NC_CHAR);
#930 asym->typ.basetype = basetypefor(nctype);
#932 asym->typ.basetype = basetypefor(nctype);
util.c#121 if(asym->att.basetype == primsymbols[NC_STRING])
#122       reclaimattptrs(asym->att.data,asym->att.count);
#124     efree(asym->att.data);


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed