void output_parsed(FILE *pfile)
{
chunk_t *pc;
int cnt;
output_options(pfile);
output_defines(pfile);
output_types(pfile);
fprintf(pfile, "-=====-\n");
fprintf(pfile, "Line Tag Parent Columns Br/Lvl/pp Flg Nl Text");
for (pc = chunk_get_head(); pc != NULL; pc = chunk_get_next(pc))
{
fprintf(pfile, "\n%3d> %13.13s[%13.13s][%2d/%2d/%2d][%d/%d/%d][%6x][%d-%d]",
pc->orig_line, get_token_name(pc->type),
get_token_name(pc->parent_type),
pc->column, pc->orig_col, pc->orig_col_end,
pc->brace_level, pc->level, pc->pp_level,
pc->flags, pc->nl_count, pc->after_tab);
if ((pc->type != CT_NEWLINE) && (pc->len != 0))
{
for (cnt = 0; cnt < pc->column; cnt++)
{
fprintf(pfile, " ");
}
fprintf(pfile, "%.*s", pc->len, pc->str);
}
}
fprintf(pfile, "\n-=====-\n");
fflush(pfile);
}
static void uncat_configuration (FILE *file)
{
//register NODE and EDGE types
output_types ("node", TRACE_get_node_types(), file);
output_types ("edge", TRACE_get_edge_types(), file);
fprintf (file, "\n");
//configuration for all nodes
fprintf (file,
" host = {\n"
" type = \"square\";\n"
" size = \"power\";\n"
" values = (\"power_used\");\n"
" };\n"
" link = {\n"
" type = \"rhombus\";\n"
" size = \"bandwidth\";\n"
" values = (\"bandwidth_used\");\n"
" };\n");
//close
}
void
do_output(char *etf_output, vset_t visited)
{
FILE *tbl_file;
rt_timer_t timer = RTcreateTimer();
RTstartTimer(timer);
Warning(info, "writing output");
tbl_file = fopen(etf_output, "w");
if (tbl_file == NULL)
AbortCall("could not open %s", etf_output);
if (vdom_separates_rw(domain)) {
/*
* This part is necessary because the ETF format does not yet support
* read, write and copy. This part should thus be removed when ETF is
* extended.
*/
Warning(info, "Note: ETF format does not yet support read, write and copy.");
transitions_short = GBgetTransitionsShort;
RTfree (r_projs);
RTfree (w_projs);
w_projs = r_projs = (ci_list **) dm_rows_to_idx_table (GBgetDMInfo(model));
for (int i = 0; i < nGrps; i++) {
vset_destroy(group_explored[i]);
group_explored[i] = vset_create(domain, r_projs[i]->count, r_projs[i]->data);
vset_project(group_explored[i], visited);
}
}
output_init(tbl_file);
output_trans(tbl_file);
output_lbls(tbl_file, visited);
output_types(tbl_file);
fclose(tbl_file);
RTstopTimer(timer);
RTprintTimer(info, timer, "writing output took");
}
inline const moab::EntityType* MergeMesh::mesh_types_arr() const
{
return output_types();
}
/** \brief Return the mesh entity types operated on by this scheme
* \return array terminated with \c moab::MBMAXTYPE
*/
virtual const moab::EntityType* mesh_types_arr() const
{ return output_types(); }
int do_file_sorting(dataptr dz)
{
int exit_status;
int n;
int a_srate = 0;
double sum;
int infilecnt = dz->all_words-1;
int fileno = 0, namestoresize = 0;
char *filename = dz->wordstor[infilecnt]; /* name of input list file */
char *monofile=NULL, *stereofile = NULL, *analfile = NULL, *quadfile = NULL;
char *pitchfile = NULL, *transfile = NULL, *formantfile = NULL;
char *envfile = NULL, *otherfile = NULL, *namestore = NULL;
int *posstore = NULL;
int *lcnt = NULL;
char ***lstore = NULL;
double *lenstore = NULL;
double *sortlens = NULL;
char *file48 = ENDOFSTR, *file44 = ENDOFSTR, *file32 = ENDOFSTR;
char *file24 = ENDOFSTR, *file22 = ENDOFSTR, *file16 = ENDOFSTR;
int is_file48=FALSE, is_file44=FALSE, is_file32=FALSE, is_file24=FALSE, is_file22=FALSE, is_file16=FALSE;
int is_mono_list=FALSE, is_stereo_list=FALSE,is_quad_list=FALSE, is_anal_list=FALSE,is_pitch_list=FALSE;
int is_trans_list=FALSE, is_fmnt_list=FALSE, is_env_list=FALSE, is_other_list=FALSE;
FILE *fp48 = NULL, *fp44 = NULL, *fp32 = NULL, *fp24 = NULL, *fp22 = NULL, *fp16 = NULL,
*fpm = NULL, *fps = NULL, *fpa = NULL, *fpp = NULL, *fpt = NULL, *fpf = NULL, *fpe = NULL, *fpo = NULL, *fpq = NULL;
char *p;
int done_errmsg = 0;
switch(dz->mode) {
case(BY_DURATION):
case(BY_LOG_DUR):
if((lcnt = (int *)malloc((dz->iparam[SORT_LENCNT]+1) * sizeof(int)))==NULL) {
sprintf(errstr,"INSUFFICIENT MEMORY for lcnt store.\n");
return(MEMORY_ERROR);
}
if((sortlens = (double *)malloc(dz->iparam[SORT_LENCNT] * sizeof(double)))==NULL) {
sprintf(errstr,"INSUFFICIENT MEMORY for lens store.\n");
return(MEMORY_ERROR);
}
sum = dz->param[SORT_SMALL];
for(n=0;n<dz->iparam[SORT_LENCNT];n++) {
lcnt[n] = 0;
sortlens[n] = sum;
if(dz->mode==BY_LOG_DUR)
sum *= dz->param[SORT_STEP];
else
sum += dz->param[SORT_STEP];
}
lcnt[dz->iparam[SORT_LENCNT]] = 0;
sortlens[dz->iparam[SORT_LENCNT]-1] = dz->param[SORT_LARGE];
dz->iparam[SORT_LENCNT]++;
/* fall thro */
case(IN_DUR_ORDER):
if((lstore = (char ***)malloc((dz->iparam[SORT_LENCNT]+1) * sizeof(char **)))==NULL) {
sprintf(errstr,"INSUFFICIENT MEMORY for length store.\n");
return(MEMORY_ERROR);
}
for(n=0;n<dz->iparam[SORT_LENCNT]+1;n++) {
// AVOID realloc
if((lstore[n] = (char **)malloc(infilecnt * sizeof(char *)))==NULL) {
sprintf(errstr,"INSUFFICIENT MEMORY for length store %d.\n",n+1);
return(MEMORY_ERROR);
}
}
break;
}
strip_extension(filename);
if(sloom && (dz->mode == BY_FILETYPE || dz->mode == BY_SRATE)) {
p = filename + strlen(filename) - 1; /* Strip trailing zero from generic tempfilename */
*p = ENDOFSTR;
}
for(n=0;n<infilecnt;n++) {
if(!strcmp(dz->wordstor[infilecnt],dz->wordstor[n])) {
sprintf(errstr,"The name of the listfile cannot be included in the listing!!\n");
return(DATA_ERROR);
}
}
// AVOID realloc
for(n=0;n<infilecnt;n++)
namestoresize += strlen(dz->wordstor[n]) + 1;
if((namestore = (char *)malloc(namestoresize * sizeof(char)))==NULL) {
sprintf(errstr,"INSUFFICIENT MEMORY for name store.\n");
return(MEMORY_ERROR);
}
namestoresize = 0;
for(n=0;n<infilecnt;n++) {
if((dz->ifd[0] = sndopenEx(dz->wordstor[n],0,CDP_OPEN_RDONLY)) < 0) {
if(dz->mode!=BY_FILETYPE) {
if(!done_errmsg) {
sprintf(errstr,"Some files are NOT soundfiles.\n");
print_outmessage_flush(errstr);
done_errmsg = 1;
}
}
dz->ifd[0] = -1;
continue;
} else if((dz->mode!=BY_FILETYPE) && filename_extension_is_not_sound(dz->wordstor[n])) {
if(!done_errmsg) {
sprintf(errstr,"Some files are NOT soundfiles.\n");
print_outmessage_flush(errstr);
done_errmsg = 1;
}
continue;
}
switch(dz->mode) {
case(BY_SRATE):
if((exit_status = do_srates(filename,dz->wordstor[n],&file48,&file44,&file32,&file24,&file22,&file16,
&is_file48,&is_file44,&is_file32,&is_file24,&is_file22,&is_file16,
&fp48,&fp44,&fp32,&fp24,&fp22,&fp16,dz))<0)
return(exit_status);
break;
case(BY_DURATION):
case(BY_LOG_DUR):
if((exit_status = do_lenths(filename,dz->wordstor[n],&namestore,lstore,&namestoresize,lcnt,sortlens,dz))<0)
return(exit_status);
break;
case(IN_DUR_ORDER):
if((exit_status = do_order
(filename,dz->wordstor[n],&namestore,&lenstore,&posstore,&lstore,&fileno,&namestoresize,dz))<0)
return(exit_status);
break;
case(BY_FILETYPE):
if((exit_status = do_types(filename,dz->wordstor[n],
&monofile,&stereofile,&quadfile,&analfile,&pitchfile,&transfile,&formantfile,&envfile,&otherfile,
&is_mono_list,&is_stereo_list,&is_quad_list,&is_anal_list,
&is_pitch_list,&is_trans_list,&is_fmnt_list,&is_env_list,&is_other_list,
&fpm,&fps,&fpa,&fpp,&fpt,&fpf,&fpe,&fpo,&fpq,dz))<0)
return(exit_status);
break;
case(FIND_ROGUES):
do_rogues(dz->wordstor[n],&a_srate,dz);
break;
}
if(dz->ifd[0]!=-1 && sndcloseEx(dz->ifd[0])<0)
fprintf(stdout,"WARNING: Failed to close sndfile %s.\n",dz->wordstor[n]);
dz->ifd[0] = -1;
}
switch(dz->mode) {
case(BY_LOG_DUR):
case(BY_DURATION):
if((exit_status = output_lenths(filename,&otherfile,lstore,sortlens,lcnt,dz))<0)
return(exit_status);
break;
case(BY_SRATE):
output_srates(is_file48,is_file44,is_file32,is_file24,is_file22,is_file16,
file48, file44,file32,file24,file22,file16);
break;
case(IN_DUR_ORDER):
if((exit_status = output_order(filename,&otherfile,posstore,lenstore,lstore,fileno,dz))<0)
return(exit_status);
break;
case(BY_FILETYPE):
output_types(filename,is_mono_list,is_stereo_list,is_quad_list,
is_anal_list,is_pitch_list,is_trans_list,is_fmnt_list,is_env_list,
is_other_list,monofile,stereofile,quadfile,analfile,pitchfile,
transfile,formantfile,envfile,otherfile);
break;
}
fflush(stdout);
return(FINISHED);
}
inline const moab::EntityType* AssyGen::mesh_types_arr() const
{
return output_types();
}
