bindata.c#102bin_listbegin(GeneratorgeneratorSymboltsym, void* liststateListClass lc, size_t sizeBytebufferbuf, int* uidp, ...)
#111bin_list(GeneratorgeneratorSymboltsym, void* liststateListClass lc, int uid, size_t countBytebufferbuf, ...)
#116 alignto(tsym->typ.alignment,buf,offsetbase);
#122bin_listend(GeneratorgeneratorSymboltsym, void* liststateListClass lc, int uid, size_t countBytebufferbuf, ...)
#127 alignto(tsym->typ.cmpdalign,buf,offsetbase);
#134bin_vlendecl(GeneratorgeneratorSymboltsymBytebufferbuf, int uid, size_t count,...)
cdata.c#174c_vlendecl(GeneratorgeneratorSymboltsymBytebuffercodebuf, int uid, size_t count, ...)
#185         ctypename(tsym->typ.basetype),
f77data.c#113f77_vlendecl(GeneratorgeneratorSymboltsymBytebuffercodebuf, int uid, size_t count, ...)
genbin.c#21static void genbin_deftype(Symboltsym);
#84     Symboltsym = (Symbol*)listget(typdefs,ityp);
#85     genbin_deftype(tsym);
#261genbin_deftype(Symboltsym)
#266    ASSERT(tsym->objectclass == NC_TYPE);
#267    switch (tsym->subclass) {
#270 stat = nc_def_opaque(tsym->container->ncid,
#271      tsym->typ.size,
#272      tsym->name,
#273      &tsym->ncid);
#280 stat = nc_def_enum(tsym->container->ncid,
#281    tsym->typ.basetype->typ.typecode,
#282    tsym->name,
#283    &tsym->ncid);
#289 for(i=0;i<listlength(tsym->subnodes);i++) {
#290   Symboleconst = (Symbol*)listget(tsym->subnodes,i);
#295   stat = nc_insert_enum(tsym->container->ncid,
#296 tsym->ncid,
#306 stat = nc_def_vlen(tsym->container->ncid,
#307    tsym->name,
#308    tsym->typ.basetype->ncid,
#309    &tsym->ncid);
#313 stat = nc_def_compound(tsym->container->ncid,
#314        tsym->typ.size,
#315        tsym->name,
#316        &tsym->ncid);
#318 for(i=0;i<listlength(tsym->subnodes);i++) {
#319     Symbolefield = (Symbol*)listget(tsym->subnodes,i);
#323 tsym->container->ncid,
#324 tsym->ncid,
#337 tsym->container->ncid,
#338 tsym->ncid,
genc.c#86     Symboltsym = (Symbol*)listget(typdefs,ityp);
#87     definectype(tsym);
#158     Symboltsym = (Symbol*)listget(typdefs,ityp);
#159     bbprintf0(stmt,"%sint %s;\n",indented(1), typencid(tsym));
#296     Symboltsym = (Symbol*)listget(typdefs,ityp);
#297     if(tsym->subclass == NC_PRIM
#298 || tsym->subclass == NC_ARRAY) continue; /* no need to do these*/
#299     genc_deftype(tsym);
#645typencid(Symboltsym)
#649    if(tsym->subclass == NC_PRIM)
#650 return nctype(tsym->typ.typecode);
#651    tmp1 = ctypename(tsym);
#688ctypename(Symboltsym)
#691    ASSERT(tsym->objectclass == NC_TYPE);
#692    if(tsym->subclass == NC_PRIM)
#693 name = ncctype(tsym->typ.typecode);
#695        name = cname(tsym);
#701definectype(Symboltsym)
#705    ASSERT(tsym->objectclass == NC_TYPE);
#706    switch (tsym->subclass) {
#710 cname(tsym), tsym->typ.size);
#714 for(i=0;i<listlength(tsym->subnodes);i++) {
#715     Symboleconst = (Symbol*)listget(tsym->subnodes,i);
#718     c_generator->constant(c_generator,tsym,&econst->typ.econst,econststring);
#729 ctypename(tsym->typ.basetype), cname(tsym));
#734 ctypename(tsym));
#738 bbprintf0(stmt,"typedef struct %s {\n",cname(tsym));
#740 for(i=0;i<listlength(tsym->subnodes);i++) {
#741     Symbolefield = (Symbol*)listget(tsym->subnodes,i);
#765 bbprintf0(stmt,"} %s;\n", ctypename(tsym));
#773    default: panic("definectype: unexpected type subclass: %d",tsym->subclass);
#781genc_deftype(Symboltsym)
#785    ASSERT(tsym->objectclass == NC_TYPE);
#786    switch (tsym->subclass) {
#791 groupncid(tsym->container),
#792 tsym->typ.size,
#793 tsym->name,
#794 typencid(tsym));
#802 ncctype(tsym->typ.basetype->typ.typecode));
#806 groupncid(tsym->container),
#807 nctype(tsym->typ.basetype->typ.typecode),
#808 tsym->name,
#809 typencid(tsym));
#812 for(i=0;i<listlength(tsym->subnodes);i++) {
#813     Symboleconst = (Symbol*)listget(tsym->subnodes,i);
#816     c_generator->constant(c_generator,tsym,&econst->typ.econst,econststring);
#824     groupncid(tsym->container),
#825     typencid(tsym),
#834 groupncid(tsym->container),
#835 escapifyname(tsym->name),
#836 typencid(tsym->typ.basetype),
#837 typencid(tsym));
#844 groupncid(tsym->container),
#845 ctypename(tsym),
#846 escapifyname(tsym->name),
#847 typencid(tsym));
#852 for(i=0;i<listlength(tsym->subnodes);i++) {
#854     Symbolefield = (Symbol*)listget(tsym->subnodes,i);
#871 for(i=0;i<listlength(tsym->subnodes);i++) {
#872     Symbolefield = (Symbol*)listget(tsym->subnodes,i);
#879 ctypename(tsym), cname(efield));
#884     groupncid(tsym->container),
#885     typencid(tsym),
#894     groupncid(tsym->container),
#895     typencid(tsym),
#910    default: panic("genc_deftype: unexpected type subclass: %d",tsym->subclass);
generate.c#291generate_basetype(SymboltsymNCConstantconBytebuffercodebufDatalistfillerGeneratorgenerator)
#296    switch (tsym->subclass) {
#304        generate_primdata(tsym,con,codebuf,filler,generator);
#310            Datalistfill = (filler==NULL?getfiller(tsym):filler);
#331        nfields = listlength(tsym->subnodes);
#337        generator->listbegin(generator,tsym,&offsetbase,LISTCOMPOUND,listlength(tsym->subnodes),codebuf,&uid);
#339            Symbolfield = (Symbol*)listget(tsym->subnodes,i);
#344        generator->listend(generator,tsym,&offsetbase,LISTCOMPOUND,uid,i,codebuf);
#353            Datalistfill = (filler==NULL?getfiller(tsym):filler);
#367        if(tsym->typ.basetype->typ.typecode == NC_CHAR) {
#369            generator->vlenstring(generator,tsym,vlenbuf,&uid,&count);
#371            generator->listbegin(generator,tsym,NULL,LISTVLEN,data->length,codebuf,&uid);
#374                generator->list(generator,tsym,NULL,LISTVLEN,uid,count,vlenbuf);
#376                generate_basetype(tsym->typ.basetype,con,vlenbuf,NULL,generator);
#378            generator->listend(generator,tsym,NULL,LISTVLEN,uid,count,codebuf,(void*)vlenbuf);
#380        generator->vlendecl(generator,tsym,codebuf,uid,count,vlenbuf);
#385        if(tsym->typ.dimset.ndims > 0) {
#389            generate_fieldarray(tsym->typ.basetype,con,&tsym->typ.dimset,codebuf,filler,generator);
#391            generate_basetype(tsym->typ.basetype,con,codebuf,NULL,generator);
#395    default: PANIC1("generate_basetype: unexpected subclass %d",tsym->subclass);
genf77.c#427f77typename(Symboltsym)
#430    ASSERT(tsym->objectclass == NC_TYPE);
#431    if(tsym->subclass == NC_PRIM)
#432 name = nftype(tsym->typ.typecode);
#434        name = f77name(tsym);
getfill.c#14static void fill(SymboltsymDatalist*);
#15static void fillarray(SymboltsymDimsetdimset, int indexDatalist*);
#26    Symboltsym = tvsym;
#29 tsym = tvsym->typ.basetype;
#37 fill(tsym,filler);
#51fill(SymboltsymDatalistfiller)
#57    ASSERT(tsym->objectclass == NC_TYPE);
#58    switch (tsym->subclass) {
#60        con.nctype = tsym->typ.typecode;
#64 sublist = builddatalist(listlength(tsym->subnodes));
#65        for(i=0;i<listlength(tsym->subnodes);i++) {
#66     Symbolfield = (Symbol*)listget(tsym->subnodes,i);
#76 filllist(tsym->typ.basetype,sublist); /* generate a single instance*/
#79    default: PANIC1("fill: unexpected subclass %d",tsym->subclass);
#85filllist(SymboltsymDatalistdl)
#91    ASSERT(tsym->objectclass == NC_TYPE);
#92    switch (tsym->subclass) {
#94        con.nctype = tsym->typ.typecode;
#99 sublist = builddatalist(listlength(tsym->subnodes));
#100        for(i=0;i<listlength(tsym->subnodes);i++) {
#101     Symbolfield = (Symbol*)listget(tsym->subnodes,i);
#109 filllist(tsym->typ.basetype,sublist); /* generate a single instance*/
#113    default: PANIC1("fill: unexpected subclass %d",tsym->subclass);
jdata.c#142j_vlendecl(GeneratorgeneratorSymboltsymBytebuffercodebuf, int uid, size_t count, ...)
nc_iter.c#238nciter_valuesize(Symboltsym, size_t* valuesizep)
ncgeny.c#292static Symbolmakespecial(int tagSymbolvsymSymboltsym, void* data, int isconst);
#2366    {Symboltsym = (yyvsp[(1) - (1)].sym);
#2367 if(tsym->objectclass != NC_TYPE) {
#2368     derror("Undefined or forward referenced type: %s",tsym->name);
#2371 (yyval.sym)=tsym;
#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);
#3225makespecial(int tagSymbolvsymSymboltsym, void* data, int isconst)
#3337            if(tsym  == NULLtsym = vsym->typ.basetype;
#3338            else if(vsym->typ.basetype != tsym) {
#3341            attr = makeattribute(install("_FillValue"),vsym,tsym,list,ATTRVAR);
#3410 Symboltsym,
#3419        asym->typ.basetype = tsym;
#3425        asym->typ.basetype = tsym;
semantics.c#31static int tagvlentypes(Symboltsym);
#332 Symboltsym = (Symbol*)listget(typdefs,i);
#333 if(tsym->touched) continue;
#334 semerror(tsym->lineno,"Circular type dependency for type: %s",fullname(tsym));
#346        Symboltsym = (Symbol*)listget(typdefs,i);
#347 tagvlentypes(tsym);
#353tagvlentypes(Symboltsym)
#357    switch (tsym->subclass) {
#360     tagvlentypes(tsym->typ.basetype);
#363     for(j=0;j<listlength(tsym->subnodes);j++) {
#364 Symbolfield = (Symbol*)listget(tsym->subnodes,j);
#371    if(taggedtsym->typ.hasvlen = 1;
#403 Symboltsym = (Symbol*)listget(typdefs,i);
#404 ASSERT(tsym->objectclass == NC_TYPE);
#405 if(tsym->subclass != NC_ENUM) continue;
#406 for(j=0;j<listlength(tsym->subnodes);j++) {
#407     Symbolesym = (Symbol*)listget(tsym->subnodes,j);
#599computesize(Symboltsym)
#604    if(tsym->touched) return;
#605    tsym->touched=1;
#606    switch (tsym->subclass) {
#608     computesize(tsym->typ.basetype); /* first size*/
#609     tsym->typ.size = ncsize(tsym->typ.typecode);
#610     tsym->typ.alignment = nctypealignment(tsym->typ.typecode);
#611     tsym->typ.nelems = 1; /* always a single compound datalist */
#614     tsym->typ.size = ncsize(tsym->typ.typecode);
#615     tsym->typ.alignment = nctypealignment(tsym->typ.typecode);
#616     tsym->typ.nelems = 1;
#620     tsym->typ.nelems = 1;
#623     computesize(tsym->typ.basetype); /* first size*/
#624     tsym->typ.size = tsym->typ.basetype->typ.size;
#625     tsym->typ.alignment = tsym->typ.basetype->typ.alignment;
#626     tsym->typ.nelems = 1;
#630     for(i=0;i<listlength(tsym->subnodes);i++) {
#631 Symbolfield = (Symbol*)listget(tsym->subnodes,i);
#635 if(i==0) tsym->typ.alignment = field->typ.alignment;
#641            for(i=0;i<listlength(tsym->subnodes);i++) {
#642              Symbolfield = (Symbol*)listget(tsym->subnodes,i);
#653     tsym->typ.cmpdalign = largealign; /* total structure size alignment */
#655     tsym->typ.size = offset;
#658     if(tsym->typ.dimset.ndims > 0) {
#659         computesize(tsym->typ.basetype);
#660         totaldimsize = crossproduct(&tsym->typ.dimset,0,rankfor(&tsym->typ.dimset));
#661         tsym->typ.size = tsym->typ.basetype->typ.size * totaldimsize;
#662         tsym->typ.alignment = tsym->typ.basetype->typ.alignment;
#663         tsym->typ.nelems = 1;
#665         tsym->typ.size = tsym->typ.basetype->typ.size;
#666         tsym->typ.alignment = tsym->typ.basetype->typ.alignment;
#667         tsym->typ.nelems = tsym->typ.basetype->typ.nelems;
#671     PANIC1("computesize: unexpected type class: %d",tsym->subclass);
#711 Symboltsym = (Symbol*)listget(typdefs,i);
#712 tsym->touched = 0;
#715 Symboltsym = (Symbol*)listget(typdefs,i);
#716 computesize(tsym); /* this will recurse*/


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