data.c#30Bytebufferstmt;
data.h#159extern Bytebufferstmt; /* single stmt text generation */
genc.c#108                bbprintf0(stmt,"static size_t %s_chunksizes[%d] = {",
#110                codedump(stmt);
#131    bbprintf0(stmt,"%s() {/* create %s */\n", mainnamefilename);
#132    codedump(stmt);
#148     bbprintf0(stmt,"%sint %s;\n",indented(1),groupncid(gsym));
#149     codedump(stmt);
#159     bbprintf0(stmt,"%sint %s;\n",indented(1), typencid(tsym));
#160     codedump(stmt);
#171     bbprintf0(stmt,"%sint %s;\n", indented(1), dimncid(dsym));
#172     codedump(stmt);
#180 bbprintf0(stmt,"%ssize_t %s_len = NC_UNLIMITED;\n",
#183 bbprintf0(stmt,"%ssize_t %s_len = %lu;\n",
#188     codedump(stmt);
#205     bbprintf0(stmt,"    int %s;\n", varncid(vsym));
#206     codedump(stmt);
#213     bbprintf0(stmt,"#   define RANK_%s %d\n", cname(vsym),
#215     codedump(stmt);
#223     bbprintf0(stmt,"    int %s_dims[RANK_%s];\n",
#225     codedump(stmt);
#235        bbprintf0(stmt,"    nc_set_log_level(%d); /* set log level */",ncloglevel);
#236        codedump(stmt);
#258    bbprintf0(stmt,"    stat = nc_create(\"%s\", %s, &ncid);\n",
#260    codedump(stmt);
#272        bbprintf0(stmt,"    %s = ncid;\n",groupncid(rootgroup));
#273        codedump(stmt);
#280     bbprintf0(stmt,
#284     codedump(stmt);
#313 bbprintf0(stmt,
#320     codedump(stmt);
#338     bbprintf0(stmt,
#343     codedump(stmt);
#346     bbprintf0(stmt,
#354     codedump(stmt);
#389 bbindent(stmt,1);
#390 bbprintf0(stmt,"stat = nc_set_fill(%s, NC_NOFILL, 0);",groupncid(rootgroup));
#396    bbprintf0(stmt,"    stat = nc_enddef (%s);\n",groupncid(rootgroup));
#397    codedump(stmt);
#426    bbprintf0(stmt,"%sstat = nc_put_att_text(ncid, NC_GLOBAL, \"_Format\", 1, \"%s\");\n",
#429    codedump(stmt);
#441        bbprintf0(stmt,
#446        codedump(stmt);
#450            bbprintf0(stmt,"%s_chunksizes",cname(vsym));
#451            codedump(stmt);
#457        bbprintf0(stmt,
#462        codedump(stmt);
#466        bbprintf0(stmt,
#473        codedump(stmt);
#477        bbprintf0(stmt,
#484        codedump(stmt);
#488        bbprintf0(stmt,
#494        codedump(stmt);
#503    bbprintf0(stmt,"%sstat = nc_close(%s);\n",indented(1),groupncid(rootgroup));
#504    codedump(stmt);
#709 bbprintf0(stmt,"typedef unsigned char %s[%lu];\n",
#711 codedump(stmt);
#721     bbprintf0(stmt,"#define %s ((%s)%s)\n",
#726     codedump(stmt);
#728 bbprintf0(stmt,"typedef %s %s;\n",
#730 codedump(stmt);
#733 bbprintf0(stmt,"typedef nc_vlen_t %s;\n",
#735 codedump(stmt);
#738 bbprintf0(stmt,"typedef struct %s {\n",cname(tsym));
#739 codedump(stmt);
#743     bbprintf0(stmt,"%s%s %s",
#745     codedump(stmt);
#765 bbprintf0(stmt,"} %s;\n", ctypename(tsym));
#766 codedump(stmt);
#789 bbprintf0(stmt,"%sstat = nc_def_opaque(%s, %lu, \"%s\", &%s);\n",
#795 codedump(stmt);
#800 bbprintf0(stmt,"%s%s econst;\n",
#803 codedump(stmt);
#804 bbprintf0(stmt,"%sstat = nc_def_enum(%s, %s, \"%s\", &%s);\n",
#810 codedump(stmt);
#818     bbprintf0(stmt,"%seconst = %s;\n",
#821     codedump(stmt);
#822     bbprintf0(stmt,"%sstat = nc_insert_enum(%s, %s, \"%s\", &econst);\n",
#827     codedump(stmt);
#832 bbprintf0(stmt,"%sstat = nc_def_vlen(%s, \"%s\", %s, &%s);",
#838 codedump(stmt);
#842 bbprintf0(stmt,"%sstat = nc_def_compound(%s, sizeof(%s), \"%s\", &%s);",
#848 codedump(stmt);
#857     bbprintf0(stmt,"%sstatic int %s_dims[%d] = {\n",
#865 bbCat(stmt,(j==0?"":", "));
#866 bbCat(stmt,tmp);
#868     bbCat(stmt,"};");
#869     codedump(stmt);
#882         bbprintf0(stmt,"%sstat = nc_insert_array_compound(%s, %s, \"%s\", %s, %s, %d, %s_dims);",
#892         bbprintf0(stmt,"%sstat = nc_insert_compound(%s, %s, \"%s\", %s, %s);",
#900     codedump(stmt);
#987        bbprintf0(stmt,"%sstatic %s %s_data[1] = {%s};\n",
#992 codedump(stmt);
#993        bbprintf0(stmt,"%sstat = nc_put_var1(%s, %s, &count, %s_data);\n",
#998        codedump(stmt);
#1007     bbprintf(stmt,"%schar* %s_data = ",
#1011     codedump(stmt);
#1021     bbprintf(stmt,"%s%s %s_data[%lu] = ",
#1026     codedump(stmt);
#1034 bbprintf0(stmt,"%ssize_t %s_startset[%u] = {",
#1039     bbprintf(stmt,"%s%lu",(i>0?", ":""),start[i]);
#1041 codedump(stmt);
#1044 bbprintf0(stmt,"%ssize_t %s_countset[%u] = {",
#1049     bbprintf(stmt,"%s%lu",(i>0?", ":""),count[i]);
#1051 codedump(stmt);
#1054 bbprintf0(stmt,"%sstat = nc_put_vara(%s, %s, %s_startset, %s_countset, %s_data);\n",
#1060 codedump(stmt);
#1103        bbprintf0(stmt,"%sstatic const %s %s_att[%ld] = ",
#1109        codedump(stmt);
#1124        bbprintf0(stmt,"%sstat = nc_put_att_%s(%s, %s, \"%s\", %s, %lu, %s_att);\n",
#1134 codedump(stmt);
#1139        bbprintf0(stmt,"%sstat = nc_put_att_%s(%s, %s, \"%s\", %lu, %s);\n",
#1148 codedump(stmt);
#1161        bbprintf0(stmt,"%sstat = nc_put_att_%s(%s, %s, \"%s\", %s, %lu, %s_att);",
#1171 codedump(stmt);
#1180        bbprintf0(stmt,"%sstat = nc_put_att_%s(%s, %s, \"%s\", %lu, %s_att);",
#1189 codedump(stmt);
#1200        bbprintf0(stmt,"%sstat = nc_put_att(%s, %s, \"%s\", %s, %lu, %s_att);\n",
#1209        codedump(stmt);
genf77.c#62    bbprintf0(stmt,"program %s\n", mainnamefilename);
#63    codedump(stmt);
#64    bbprintf0(stmt,"* input file %s", filename);
#78     bbprintf0(stmt,"integer %s_len\n",f77name(dsym));
#79     codedump(stmt);
#81         bbprintf0(stmt,"parameter (%s_len = NF_UNLIMITED)\n",
#84 bbprintf0(stmt,"parameter (%s_len = %lu)\n",
#88     codedump(stmt);
#99     bbprintf0(stmt,"integer %s_dim\n",f77name(dsym));
#100     codedump(stmt);
#109     bbprintf0(stmt,"integer %s;\n", f77varncid(vsym));
#110     codedump(stmt);
#117     bbprintf0(stmt,"integer %s_rank\n", f77name(vsym));
#118     codedump(stmt);
#119     bbprintf0(stmt,"parameter (%s_rank = %d)\n",
#122     codedump(stmt);
#129 bbprintf0(stmt,"integer %s_dims(%s_rank)\n",
#131 codedump(stmt);
#143                bbprintf0(stmt,"%s %s\n",
#145                codedump(stmt);
#159                bbprintf0(stmt,"%s %s(%s)\n",
#163         codedump(stmt);
#203         bbprintf0(stmt,"%s %sval(%d)\n",
#206         codedump(stmt);
#224    bbprintf0(stmt,"stat = nf_create('%s', %s, ncid);\n",
#226    codedump(stmt);
#236         bbprintf0(stmt,
#239     codedump(stmt);
#259     bbprintf0(stmt,
#264     codedump(stmt);
#267     bbprintf0(stmt,
#274     codedump(stmt);
#564 bbprintf0(stmt,"%s(%d) = ",where,index);
#565 bbCatbuf(buf,stmt);
#728        bbprintf0(stmt,"stat = nf_put_var_%s(ncid, %s, %s)\n",
#732        codedump(stmt);
#737        bbprintf0(stmt,"data %s /%s/\n",
#739 codedump(stmt);
#740        bbprintf0(stmt,"stat = nf_put_var_%s(ncid, %s, %s)\n",
#744        codedump(stmt);
#755        bbprintf0(stmt,"call write_%s_%d(ncid,%s_id_%d)\n",
#760 listpush(calllist,(void*)bbDup(stmt));
#767        bbprintf0(stmt,"subroutine write_%s_%d(ncid,%s_id)\n",
#769        codedump(stmt);
#771        bbprintf0(stmt,"integer %s_id\n",f77name(vsym));
#772        codedump(stmt);
#776        bbprintf0(stmt,"integer %s_start(%u)\n",
#778        codedump(stmt);
#779        bbprintf0(stmt,"integer %s_count(%u)\n",
#781        codedump(stmt);
#785 bbClear(stmt);
#791            bbCat(stmt,tmp);
#793        dimstring = bbDup(stmt);
#795        bbprintf0(stmt,"%s %s(%s)\n",
#800        codedump(stmt);
#804        bbprintf0(stmt,"data %s /",f77name(vsym));
#805        bbCatbuf(stmt,code);
#806        bbCat(stmt,"/\n");
#807        codedump(stmt);
#814     bbprintf0(stmt,"%s_start(%d) = %lu\n",
#818     codedump(stmt);
#822     bbprintf0(stmt,"%s_count(%d) = %lu\n",
#826     codedump(stmt);
#828 bbprintf0(stmt,"stat = nf_put_vara_%s(ncid, %s, %s_start, %s_count, ",
#833 codedump(stmt);
#859    bbprintf0(stmt,"* define %s\n",asym->name);
#860    codedump(stmt);
#872 bbprintf0(stmt,"stat = nf_put_att_%s(ncid, %s, %s, %s, %lu, %sval)\n",
#880 codedump(stmt);
#887 bbprintf0(stmt,"stat = nf_put_att_text(ncid, %s, %s, %lu, ",
#892 codedump(stmt);
genj.c#76 bbprintf0(stmt,"%sfinal int %s_len = 0;\n",
#79 bbprintf0(stmt,"%sfinal int %s_len = %lu;\n",
#84     codedump(stmt);
#105    bbprintf0(stmt,
#108    codedump(stmt);
#118                bbprintf0(stmt,"%sDimension %s_dim = ncfile.addUnlimitedDimension(\"%s\");\n",
#121                bbprintf0(stmt,"%sDimension %s_dim = ncfile.addDimension(\"%s\", %s_len);\n",
#124            codedump(stmt);
#138            bbprintf0(stmt,"%sArrayList %s_dimlist = new ArrayList();\n",
#140            codedump(stmt);
#144                    bbprintf0(stmt,"%s%s_dimlist.add(%s_dim);\n",
#146                    codedump(stmt);
#149            bbprintf0(stmt,
#155            codedump(stmt);
#439        bbprintf0(stmt,"%sArray%s.D0 data = new Array%s.D0();\n",
#441        codedump(stmt);
#445     bbprintf0(stmt,"%sdata.set((char)%s);\n",
#449            bbprintf0(stmt,"%sdata.set((%s)%s);\n",
#452 codedump(stmt);
#454        bbprintf0(stmt,"%sncfile.write(\"%s\",data);\n",
#456 codedump(stmt);
#472            bbprintf0(stmt,"%sString contents = ",
#475            bbprintf0(stmt,"%s%s[] contents = new %s[] {",
#479 codedump(stmt);
#483        bbprintf0(stmt,"%sArray%s data = new Array%s(%s);\n",
#488        codedump(stmt);
#493            bbprintf0(stmt,
#496            bbprintf0(stmt,"%siter.set%sNext(contents[count++]);\n",
#498 codedump(stmt);
#501        bbprintf0(stmt,"%sint[] origin = new int[]{",indented(1));
#503     bbprintf(stmt,"%s%lu",(i>0?", ":""),start[i]);
#505 bbCat(stmt,"};\n");
#506 codedump(stmt);
#508        bbprintf0(stmt,"%sncfile.write(\"%s\",origin,data);\n",
#510 codedump(stmt);
#545        bbprintf0(stmt,"new %s[]",
#547        bbCatbuf(code,stmt);
#560 bbprintf0(stmt,"%sArray data = Array.factory(%s.class, new int[]{%lu}, ",
#564 codedump(stmt);
#568            bbprintf0(stmt,"%sncfile.addGlobalAttribute(\"%s\",data);\n",
#571            bbprintf0(stmt,"%sncfile.addVariableAttribute(\"%s\",\"%s\",data);\n",
#576        codedump(stmt);
#583            bbprintf0(stmt,"%sncfile.addGlobalAttribute(\"%s\",%s);\n",
#588            bbprintf0(stmt,"%sncfile.addVariableAttribute(\"%s\",\"%s\",%s);\n",
#594        codedump(stmt);
main.c#589    stmt = bbNew();


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