/* The following function prints the "classic" GeneSeqer2 MATCH line */
static void xml_showmatchline(GthSA *sa, unsigned int indentlevel,
GtFile *outfp)
{
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<MATCH_line gen_id=\"%s\" gen_strand=\"%c\" ",
gth_sa_gen_id(sa),
gth_sa_gen_strand_char(sa));
if (gth_sa_alphatype(sa) == DNA_ALPHA) {
gt_file_xprintf(outfp, "ref_id=\"%s\" ref_strand=\"%c\">\n",
gth_sa_ref_id(sa),
gth_sa_ref_strand_char(sa));
}
else
gt_file_xprintf(outfp, "ref_id=\"%s\">\n", gth_sa_ref_id(sa));
indentlevel++;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp,
"<total_alignment_score>%.3f</total_alignment_score>\n",
gth_sa_score(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<cumulative_length_of_scored_exons>%lu"
"</cumulative_length_of_scored_exons>\n",
gth_sa_cumlen_scored_exons(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<coverage percentage=\"%.3f\" high_type=\"",
gth_sa_coverage(sa));
gt_file_xfputc(gth_sa_coverage_char(sa), outfp);
gt_file_xprintf(outfp, "\"/>\n");
indentlevel--;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "</MATCH_line>\n");
}
static bool isunsuccessfulalignment(GthSA *sa,
bool comments,
GtFile *outfp)
{
if (gth_sa_score(sa) <= UNSUCCESSFULALIGNMENTSCORE) {
if (comments)
gt_file_xprintf(outfp, "%c discard alignment\n", COMMENTCHAR);
return true;
}
return false;
}
bool gth_sa_filter_filter_sa(const GthSAFilter *sa_filter, GthSA *sa)
{
gt_assert(sa_filter && sa);
/* alignment score is larger or equal then default min value */
gt_assert(gth_sa_score(sa) >= GTH_DEFAULT_MIN_ALIGNMENTSCORE);
/* alignment score is smaller or equal then default max value */
gt_assert(gth_sa_score(sa) <= GTH_DEFAULT_MAX_ALIGNMENTSCORE);
/* coverage is larger or equal then default min value */
gt_assert(gth_sa_coverage(sa) >= GTH_DEFAULT_MIN_COVERAGE);
/* coverage score is smaller or equal then default max value */
gt_assert(gth_sa_coverage(sa) <= GTH_DEFAULT_MAX_COVERAGE);
/* filter */
if (gth_sa_score(sa) < sa_filter->min_alignmentscore ||
gth_sa_score(sa) > sa_filter->max_alignmentscore ||
gth_sa_coverage(sa) < sa_filter->min_coverage ||
gth_sa_coverage(sa) > sa_filter->max_coverage) {
return true;
}
return false;
}
/* The following function prints the "classic" GeneSeqer2 MATCH line */
static void showmatchline(GthSA *sa, GtFile *outfp)
{
gt_file_xprintf(outfp, "MATCH\t%s%c\t%s%c\t%5.3f\t"GT_WU"\t%5.3f\t%c\n",
gth_sa_gen_id(sa),
gth_sa_gen_strand_char(sa),
gth_sa_ref_id(sa),
gth_sa_ref_strand_char(sa),
gth_sa_score(sa),
gth_sa_cumlen_scored_exons(sa),
gth_sa_coverage(sa),
gth_sa_coverage_char(sa));
}
static void xml_inter_show_spliced_alignment(GthSA *sa, GthInput *input,
unsigned int indentlevel,
GtFile *outfp)
{
bool dnaalpha = true;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp,
"<spliced_alignment xmlns=\"http://www.GenomeThreader.org/"
"SplicedAlignment/spliced_alignment/\">\n");
indentlevel++;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<referencealphatype>");
switch (gth_sa_alphatype(sa)) {
case DNA_ALPHA:
gt_file_xprintf(outfp, "DNA_ALPHA");
break;
case PROTEIN_ALPHA:
gt_file_xprintf(outfp, "PROTEIN_ALPHA");
dnaalpha = false;
break;
default: gt_assert(0);
}
gt_file_xprintf(outfp, "</referencealphatype>\n");
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<editoperations>\n");
indentlevel++;
gth_backtrace_path_show_complete(gth_sa_backtrace_path(sa), true, indentlevel,
outfp);
indentlevel--;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "</editoperations>\n");
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<indelcount>"GT_WU"</indelcount>\n",
gth_sa_indelcount(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<genomiclengthDP>"GT_WU"</genomiclengthDP>\n",
gth_sa_gen_dp_length(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<genomiclengthtotal>"GT_WU"</genomiclengthtotal>\n",
gth_sa_gen_total_length(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<genomicoffset>"GT_WU"</genomicoffset>\n",
gth_sa_gen_offset(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<referencelength>"GT_WU"</referencelength>\n",
gth_sa_ref_total_length(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<dpstartpos>"GT_WU"</dpstartpos>\n",
gth_sa_gen_dp_start(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<dpendpos>"GT_WU"</dpendpos>\n",
gth_sa_gen_dp_end(sa));
showgenomicfilename(sa, input, indentlevel, outfp);
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<genomicseqnum>"GT_WU"</genomicseqnum>\n",
gth_sa_gen_seq_num(sa));
showreferencefilename(sa, input, indentlevel, outfp);
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<referenceseqnum>"GT_WU"</referenceseqnum>\n",
gth_sa_ref_seq_num(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<genomicid>%s</genomicid>\n", gth_sa_gen_id(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<referenceid>%s</referenceid>\n",
gth_sa_ref_id(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp,
"<genomicstrandisforward>%s</genomicstrandisforward>\n",
GTH_SHOWBOOL(gth_sa_gen_strand_forward(sa)));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp,
"<referencestrandisforward>%s</referencestrandisforward>\n",
GTH_SHOWBOOL(gth_sa_ref_strand_forward(sa)));
showalignmentcutoffs(sa, indentlevel, outfp);
showexons(sa, indentlevel, outfp);
showintrons(sa, dnaalpha, indentlevel, outfp);
showpolyAtailpos(sa, indentlevel, outfp);
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<alignmentscore>%.*f</alignmentscore>\n",
PRECISION, gth_sa_score(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<coverage>%.*f</coverage>\n", PRECISION,
gth_sa_coverage(sa));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<coverageofgenomicsegmentishighest>%s"
"</coverageofgenomicsegmentishighest>\n",
GTH_SHOWBOOL(gth_sa_genomic_cov_is_highest(sa)));
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "<cumulativelengthofscoredexons>"GT_WU""
"</cumulativelengthofscoredexons>\n",
gth_sa_cumlen_scored_exons(sa));
indentlevel--;
gth_indent(outfp, indentlevel);
gt_file_xprintf(outfp, "</spliced_alignment>\n");
}
static int store_in_subset_file(void *data, GthSA *sa,
const char *outputfilename, GtError *err)
{
Store_in_subset_file_data *store_in_subset_file_data =
(Store_in_subset_file_data*) data;
double split_determing_percentage = 0.0;
unsigned long filenum;
char filenamesuffix[4];
int had_err = 0;
gt_error_check(err);
/* filter before we do any further processing */
if (gth_sa_filter_filter_sa(store_in_subset_file_data->sa_filter, sa)) {
/* and free it afterwards */
gth_sa_delete(sa);
/* discard */
return 0;
}
/* check whether we got a new output file to process */
if (!store_in_subset_file_data->current_outputfilename) {
store_in_subset_file_data->current_outputfilename =
gt_cstr_dup(outputfilename);
}
else if (strcmp(store_in_subset_file_data->current_outputfilename,
outputfilename)) {
/* close current output files */
close_output_files(store_in_subset_file_data);
gt_free(store_in_subset_file_data->current_outputfilename);
}
/* determine in which file the current sa needs to be put */
switch (store_in_subset_file_data->gthsplitinfo->splitmode) {
case ALIGNMENTSCORE_SPLIT:
split_determing_percentage = gth_sa_score(sa);
strcpy(filenamesuffix, "scr");
break;
case COVERAGE_SPLIT:
split_determing_percentage = gth_sa_coverage(sa);
strcpy(filenamesuffix, "cov");
break;
default: gt_assert(0);
}
gt_assert(split_determing_percentage >= 0.0);
/* XXX: change into an assertion when coverage problem is fixed */
if (split_determing_percentage > 1.0)
split_determing_percentage = 1.0;
if (split_determing_percentage == 1.0)
filenum = store_in_subset_file_data->num_of_subset_files - 1;
else {
filenum = floor(split_determing_percentage * 100.0 /
store_in_subset_file_data->gthsplitinfo->range);
}
gt_assert(filenum < store_in_subset_file_data->num_of_subset_files);
/* make sure the file exists and is open */
if (!store_in_subset_file_data->subset_files[filenum]) {
gt_assert(store_in_subset_file_data->subset_filenames[filenum] == NULL);
store_in_subset_file_data->subset_filenames[filenum] = gt_str_new();
gt_str_append_cstr_nt(store_in_subset_file_data->subset_filenames[filenum],
outputfilename,
gt_file_basename_length(outputfilename));
gt_str_append_char(store_in_subset_file_data->subset_filenames[filenum],
'.');
gt_str_append_cstr(store_in_subset_file_data->subset_filenames[filenum],
filenamesuffix);
gt_str_append_ulong(store_in_subset_file_data->subset_filenames[filenum],
filenum *
store_in_subset_file_data->gthsplitinfo->range);
gt_str_append_char(store_in_subset_file_data->subset_filenames[filenum],
'-');
gt_str_append_ulong(store_in_subset_file_data->subset_filenames[filenum],
(filenum + 1) *
store_in_subset_file_data->gthsplitinfo->range);
gt_str_append_cstr(store_in_subset_file_data->subset_filenames[filenum],
gt_file_mode_suffix(store_in_subset_file_data
->gthsplitinfo->file_mode));
/* if not disabled by -force, check if file already exists */
if (!store_in_subset_file_data->gthsplitinfo->force) {
store_in_subset_file_data->subset_files[filenum] =
gt_file_open(store_in_subset_file_data->gthsplitinfo->file_mode,
gt_str_get(store_in_subset_file_data
->subset_filenames[filenum]), "r", NULL);
if (store_in_subset_file_data->subset_files[filenum]) {
gt_error_set(err, "file \"%s\" exists already. use option -%s to "
"overwrite", gt_str_get(store_in_subset_file_data
->subset_filenames[filenum]),
GT_FORCE_OPT_CSTR);
had_err = -1;
}
}
if (!had_err) {
/* open split file for writing */
store_in_subset_file_data->subset_files[filenum] =
gt_file_xopen_file_mode(store_in_subset_file_data->gthsplitinfo
->file_mode,
gt_str_get(store_in_subset_file_data
->subset_filenames[filenum]), "w");
/* store XML header in file */
gth_xml_show_leader(true,
store_in_subset_file_data->subset_files[filenum]);
}
}
/* put it there */
if (!had_err) {
gth_xml_inter_sa_visitor_set_outfp(store_in_subset_file_data->sa_visitor,
store_in_subset_file_data
->subset_files[filenum]);
gth_sa_visitor_visit_sa(store_in_subset_file_data->sa_visitor, sa);
}
/* adjust counter */
if (!had_err)
store_in_subset_file_data->subset_file_sa_counter[filenum]++;
/* and free it afterwards */
gth_sa_delete(sa);
return had_err;
}
