btCanvas * ascii_btCanvas_from_commandline(int * argc,char ** argv,int default_left,int default_main,int default_right,FILE * ofp,int height)
{
int left = default_left;
int main_length = default_main;
int right = default_right;
strip_out_integer_argument(argc,argv,"acleft",&left);
strip_out_integer_argument(argc,argv,"acright",&right);
strip_out_integer_argument(argc,argv,"acmain",&main_length);
return new_Ascii_btCanvas(ofp,left,main_length,right,height);
}
HSP2HitListImpl * new_HSP2HitListImpl_from_argv(int * argc,char ** argv)
{
HSP2HitListImpl * out;
char * temp;
out = malloc(sizeof(HSP2HitListImpl));
out->type = HSP2HitList_Heuristic;
if( (temp = strip_out_assigned_argument(argc,argv,"hspconvert")) != NULL ) {
out->type = HSP2HitListType_string_convert(temp);
}
strip_out_boolean_def_argument(argc,argv,"hspthread",&out->threaded);
out->no_threads = 4;
strip_out_integer_argument(argc,argv,"hspthreadno",&out->no_threads);
return out;
}
DnaProfileEnginePara * new_DnaProfileEnginePara_from_argv(int * argc,char ** argv)
{
DnaProfileEnginePara * out;
out = DnaProfileEnginePara_alloc();
out->dpri = new_DPRunImpl_from_argv(argc,argv);
out->setpara = new_LocalCisHitSetPara_from_argv(argc,argv);
out->lchs = standard_LocalCisHitScore(NMaskType_VARIABLE);
out->rm = RandomModelDNA_std();
out->pseudo = 0.5;
out->open_unmatched = 0.001;
out->ext_unmatched = 0.8;
out->gap_unmatched = 0.5;
out->seq_id = 0.8;
out->m2i = 0.1;
out->m2d = 0.1;
out->i2i = 0.8;
out->d2d = 0.8;
out->min_seq_prof = 400;
strip_out_float_argument(argc,argv,"dnap_pseudo",&out->pseudo);
strip_out_float_argument(argc,argv,"dnap_open_un",&out->open_unmatched);
strip_out_float_argument(argc,argv,"dnap_ext_un",&out->ext_unmatched);
strip_out_float_argument(argc,argv,"dnap_gap_un",&out->ext_unmatched);
strip_out_float_argument(argc,argv,"dnap_seq_self",&out->seq_id);
strip_out_float_argument(argc,argv,"dnap_m2i",&out->m2i);
strip_out_float_argument(argc,argv,"dnap_m2d",&out->m2d);
strip_out_float_argument(argc,argv,"dnap_i2i",&out->i2i);
strip_out_float_argument(argc,argv,"dnap_d2d",&out->d2d);
strip_out_integer_argument(argc,argv,"dnap_min_seq_prof",&out->min_seq_prof);
return out;
}
int main(int argc,char ** argv)
{
Sequence * gen;
Genomic * genomic;
CodonTable * ct = NULL;
GenomeEvidenceSet * ges = NULL;
RandomCodonScore * rcs;
FILE * ifp = NULL;
ComplexSequence * cs = NULL;
ComplexSequenceEvalSet * cses = NULL;
AlnBlock * alb;
PackAln * pal;
GenomicRegion * gr;
int i;
Protein * trans;
cDNA * cdna;
int kbyte = 10000;
int stop_codon_pen = 200;
int start_codon_pen = 30;
int new_gene = 5000;
int switch_cost = 100;
int smell = 8;
DPRunImpl * dpri = NULL;
EstEvidence * est;
boolean show_trans = TRUE;
boolean show_cdna = FALSE;
boolean show_genes = TRUE;
boolean show_alb = FALSE;
boolean show_pal = FALSE;
boolean show_gff = TRUE;
boolean show_debug = FALSE;
boolean show_geneu = TRUE;
char * divide_string = "//";
strip_out_boolean_def_argument(&argc,argv,"geneutr",&show_geneu);
strip_out_boolean_def_argument(&argc,argv,"genes",&show_genes);
strip_out_boolean_def_argument(&argc,argv,"trans",&show_trans);
strip_out_boolean_def_argument(&argc,argv,"gff",&show_gff);
strip_out_boolean_def_argument(&argc,argv,"alb",&show_alb);
strip_out_boolean_def_argument(&argc,argv,"pal",&show_pal);
strip_out_boolean_def_argument(&argc,argv,"debug",&show_debug);
strip_out_boolean_def_argument(&argc,argv,"cdna",&show_cdna);
strip_out_integer_argument(&argc,argv,"stop",&stop_codon_pen);
strip_out_integer_argument(&argc,argv,"start",&start_codon_pen);
strip_out_integer_argument(&argc,argv,"gene",&new_gene);
strip_out_integer_argument(&argc,argv,"switch",&switch_cost);
strip_out_integer_argument(&argc,argv,"smell",&smell);
dpri = new_DPRunImpl_from_argv(&argc,argv);
if( dpri == NULL ) {
fatal("Unable to build DPRun implementation. Bad arguments");
}
strip_out_standard_options(&argc,argv,show_help,show_version);
if( argc != 3 ) {
show_help(stdout);
exit(12);
}
ct = read_CodonTable_file("codon.table");
gen = read_fasta_file_Sequence(argv[1]);
ifp = openfile(argv[2],"r");
ges = read_est_evidence(ifp,ct);
for(i=0;i<ges->len;i++) {
est = (EstEvidence *) ges->geu[i]->data;
est->in_smell = smell;
}
rcs= RandomCodonScore_alloc();
for(i=0;i<125;i++) {
if( is_stop_codon(i,ct) ) {
rcs->codon[i] = -1000000;
} else {
rcs->codon[i] = 0;
}
/* fprintf(stderr,"Got %d for %d\n",rcs->codon[i],i); */
}
cses = default_genomic_ComplexSequenceEvalSet();
cs = new_ComplexSequence(gen,cses);
pal = PackAln_bestmemory_GenomeWise9(ges,cs,-switch_cost,-new_gene,-start_codon_pen,-stop_codon_pen,rcs,NULL,dpri);
alb = convert_PackAln_to_AlnBlock_GenomeWise9(pal);
genomic = Genomic_from_Sequence(gen);
gr = new_GenomicRegion(genomic);
add_Genes_to_GenomicRegion_GeneWise(gr,1,gen->len,alb,gen->name,0,NULL);
if( show_genes ) {
show_pretty_GenomicRegion(gr,0,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_gff ) {
show_GFF_GenomicRegion(gr,gen->name,"genomwise",stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_trans ) {
for(i=0;i<gr->len;i++) {
if( gr->gene[i]->ispseudo == TRUE ) {
fprintf(stdout,"#Gene %d is a pseudo gene - no translation possible\n",i);
} else {
trans = get_Protein_from_Translation(gr->gene[i]->transcript[0]->translation[0],ct);
write_fasta_Sequence(trans->baseseq,stdout);
}
}
fprintf(stdout,"%s\n",divide_string);
}
if( show_cdna ) {
for(i=0;i<gr->len;i++) {
cdna = get_cDNA_from_Transcript(gr->gene[i]->transcript[0]);
write_fasta_Sequence(cdna->baseseq,stdout);
}
fprintf(stdout,"%s\n",divide_string);
}
if( show_geneu ) {
show_utr_exon_genomewise(alb,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_alb ) {
mapped_ascii_AlnBlock(alb,id,1,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_debug ) {
debug_genomewise(alb,ges,ct,gen,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_pal ) {
show_simple_PackAln(pal,stdout);
fprintf(stdout,"%s\n",divide_string);
}
return 0;
}
int main (int argc,char ** argv)
{
MappedCloneSet * trusted;
MappedCloneSet * weak;
MappedCloneMatch * match;
FILE * in;
int kbyte = 10000;
PackAln * pal;
AlnBlock * alb;
int spread = 30;
boolean show_alb = 0;
boolean show_pal = 0;
boolean show_zip = 1;
boolean show_path = 0;
char * alg_string = "local";
char * temp;
char * divide_string = "//";
strip_out_boolean_def_argument(&argc,argv,"alb",&show_alb);
strip_out_boolean_def_argument(&argc,argv,"pal",&show_pal);
strip_out_boolean_def_argument(&argc,argv,"zip",&show_zip);
strip_out_boolean_def_argument(&argc,argv,"path",&show_path);
strip_out_integer_argument(&argc,argv,"wgap",&query_gap_start);
strip_out_integer_argument(&argc,argv,"wext",&query_gap_extend);
strip_out_integer_argument(&argc,argv,"wswitch",&query_switch_cost);
strip_out_integer_argument(&argc,argv,"tgap",&target_gap_start);
strip_out_integer_argument(&argc,argv,"text",&target_gap_extend);
strip_out_integer_argument(&argc,argv,"match",&match_score);
strip_out_integer_argument(&argc,argv,"mismatch",&mismatch_score);
temp =strip_out_assigned_argument(&argc,argv,"alg");
if( temp != NULL ) {
alg_string = temp;
}
strip_out_integer_argument(&argc,argv,"spread",&spread);
strip_out_integer_argument(&argc,argv,"kbyte",&kbyte);
strip_out_standard_options(&argc,argv,show_help,show_version);
if( argc != 3 ) {
show_help(stdout);
exit(12);
}
in = fopen(argv[1],"r");
if( in == NULL ) {
fatal("Unable to open %s",argv[1]);
}
trusted = read_MappedCloneSet(in);
/* fprintf(stderr,"first start %d\n",trusted->clone[0]->start);*/
in = fopen(argv[2],"r");
if( in == NULL ) {
fatal("Unable to open %s",argv[2]);
}
change_max_BaseMatrix_kbytes(kbyte);
weak = read_MappedCloneSet(in);
synchronise_MappedCloneSets(trusted,weak);
/* fprintf(stderr,"score for 2,2 is %d\n",MappedCloneSet_match(weak,trusted,2,2,0,10,-5)); */
match = new_MappedCloneMatch(weak,trusted,match_score,mismatch_score);
fprintf(stderr,"Match matrix calculated\n");
if( strcmp(alg_string,"global") == 0 ) {
pal = PackAln_bestmemory_CloneWise(weak,trusted,match,-query_gap_start,-query_gap_extend,-target_gap_start,-target_gap_extend,spread,-query_switch_cost,NULL);
alb = convert_PackAln_to_AlnBlock_CloneWise(pal);
} else if ( strcmp(alg_string,"local") == 0 ) {
pal = PackAln_bestmemory_LocalCloneWise(weak,trusted,match,-query_gap_start,-query_gap_extend,-target_gap_start,-target_gap_extend,spread,-query_switch_cost,NULL);
alb = convert_PackAln_to_AlnBlock_LocalCloneWise(pal);
} else {
/* keep gcc happy */
pal = NULL;
alb = NULL;
fatal("Not a proper algorithm string %s",alg_string);
}
if( show_path ) {
extended_path(alb,weak,trusted,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_zip ) {
debug_zip(alb,weak,trusted,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_alb ) {
mapped_ascii_AlnBlock(alb,id,1,stdout);
fprintf(stdout,"%s\n",divide_string);
}
if( show_pal ) {
show_simple_PackAln(pal,stdout);
fprintf(stdout,"%s\n",divide_string);
}
return 0;
}
int main(int argc,char ** argv)
{
int type = ALIGN_NORMAL;
DPRunImpl * dpri = NULL;
HitList * hl;
HitListOutputImpl * hloi;
Sequence * query;
Sequence * target;
Sequence * target_rev;
PairwiseShortDna * two;
LocalCisHitSet * set;
LocalCisHitSet * greedy_set;
LocalCisHitScore * lchs;
LocalCisHitSetPara * setpara;
MotifMatrixPara * mmp;
MotifMatrixScore * mms;
TransFactorMatchSet * tfms_query = NULL;
TransFactorMatchSet * tfms_target = NULL;
TransFactorMatchSet * tfms_target_rev = NULL;
int qstart = -1;
int qend = -1;
int tstart = -1;
int tend = -1;
int i;
char * temp;
DnaMatrix * dm;
DnaProbMatrix * dmp;
TransFactorBuildPara * tfbp;
TransFactorMatchPara * tfmp;
TransFactorSet * tfs;
char * motif_library = NULL;
int use_laurence = FALSE;
int use_ben = FALSE;
dmp = DnaProbMatrix_from_match(0.75,NMaskType_BANNED);
assert(dmp);
flat_null_DnaProbMatrix(dmp);
dm = DnaMatrix_from_DnaProbMatrix(dmp);
dpri = new_DPRunImpl_from_argv(&argc,argv);
hloi = new_HitListOutputImpl_from_argv(&argc,argv);
setpara = new_LocalCisHitSetPara_from_argv(&argc,argv);
mmp = new_MotifMatrixPara_from_argv(&argc,argv);
tfbp = new_TransFactorBuildPara_from_argv(&argc,argv);
tfmp = new_TransFactorMatchPara_from_argv(&argc,argv);
strip_out_integer_argument(&argc,argv,"s",&qstart);
strip_out_integer_argument(&argc,argv,"t",&qend);
strip_out_integer_argument(&argc,argv,"u",&tstart);
strip_out_integer_argument(&argc,argv,"v",&tend);
temp = strip_out_assigned_argument(&argc,argv,"motiflib");
if( temp != NULL ) {
motif_library = stringalloc(temp);
}
use_laurence = strip_out_boolean_argument(&argc,argv,"lr");
use_ben = strip_out_boolean_argument(&argc,argv,"ben");
temp = strip_out_assigned_argument(&argc,argv,"align");
if( temp != NULL ) {
if( strcmp(temp,"motif") == 0 ) {
type = ALIGN_MOTIF;
} else if ( strcmp(temp,"normal") == 0 ) {
type = ALIGN_NORMAL;
} else {
fatal("cannot recognise string %s as align type",temp);
}
}
strip_out_standard_options(&argc,argv,show_help,show_version);
if( argc != 3 ) {
show_help(stdout);
exit(12);
}
lchs = standard_LocalCisHitScore(NMaskType_VARIABLE);
query = read_fasta_file_Sequence(argv[1]);
target = read_fasta_file_Sequence(argv[2]);
for(i=0;i<query->len;i++) {
query->seq[i] = toupper(query->seq[i]);
}
assert(query != NULL);
assert(target != NULL);
target_rev = reverse_complement_Sequence(target);
mms = MotifMatrixScore_from_MotifMatrixPara(mmp);
if( type == ALIGN_MOTIF ) {
if( motif_library == NULL ) {
fatal("Wanted to align with motif but not motif library. Must use -motiflib");
}
if( use_laurence == TRUE ) {
tfs = read_laurence_TransFactorSet_file(motif_library);
} else if( use_ben == TRUE ) {
tfs = read_ben_IUPAC_TransFactorSet_file(motif_library);
} else {
tfs = read_TransFactorSet_file(motif_library);
}
build_TransFactorSet(tfs,tfbp);
tfms_query = calculate_TransFactorMatchSet(query,tfs,tfmp);
sort_by_start_TransFactorMatchSet(tfms_query);
tfms_target = calculate_TransFactorMatchSet(target,tfs,tfmp);
sort_by_start_TransFactorMatchSet(tfms_target);
tfms_target_rev = calculate_TransFactorMatchSet(target_rev,tfs,tfmp);
sort_by_start_TransFactorMatchSet(tfms_target);
fprintf(stdout,"Motif Set: %d in query and %d in target\n",tfms_query->len,tfms_target->len);
}
if( qstart == -1 ) {
qstart = 0;
}
if( qend == -1 ) {
qend = query->len;
}
if( tstart == -1 ) {
tstart = 0;
}
if( tend == -1 ) {
tend = target->len;
}
two = query_to_reverse_target(query,target,dm,qstart,qend,tstart,tend);
set = make_LocalCisHitSet(query,target,target_rev,two->forward,two->reverse,setpara,lchs,tfms_query,tfms_target,tfms_target_rev,mms,type == ALIGN_MOTIF ? 1 : 0,dpri);
greedy_set = greedy_weed_LocalCisHitSet(set,setpara);
hl = HitList_from_LocalCisHitSet(greedy_set);
show_HitList_HitListOutputImpl(hloi,hl,stdout);
return 0;
}
int main(int argc,char ** argv)
{
DPRunImpl * dpri = NULL;
ScanWiseHSPImpl * scani = NULL;
HSP2HitListImpl * hsp2hiti = NULL;
HitListOutputImpl * hloi = NULL;
ProteinIndexConstructor * pic = NULL;
HSPScanInterface * hsi;
HSPScanInterfacePara * para;
SearchStatInterface * ssi;
SearchStatInterface * ssl;
SeqLookupLoadPara * slp;
HSPset2HitPairPara * hsp2hit;
CompMat * mat;
SequenceDB * db;
Sequence * seq;
int ret;
int i;
int effective_db_size = 300000;
int kk;
int count = 0;
LinearHSPmanager * lm;
HitList * hl;
boolean use_mott = 1;
boolean trunc_best_hsp = 0;
boolean verbose = 0;
static struct rusage use;
struct timeval t0, t1;
gettimeofday(&t0, NULL);
dpri = new_DPRunImpl_from_argv(&argc,argv);
dpri->memory = DPIM_Explicit;
scani = new_ScanWiseHSPImpl_from_argv(&argc,argv);
hsp2hiti = new_HSP2HitListImpl_from_argv(&argc,argv);
hloi = new_HitListOutputImpl_from_argv(&argc,argv);
slp = new_SeqLookupLoadPara_from_argv(&argc,argv);
pic = new_ProteinIndexConstructor_from_argv(&argc,argv);
hsp2hit = new_HSPset2HitPairPara_from_argv(&argc,argv);
para = new_HSPScanInterfacePara_from_argv(&argc,argv);
verbose = strip_out_boolean_argument(&argc,argv,"verbose") ;
strip_out_boolean_def_argument(&argc,argv,"mott",&use_mott);
strip_out_boolean_def_argument(&argc,argv,"besthsp",&trunc_best_hsp);
strip_out_integer_argument(&argc,argv,"dbsize",&effective_db_size);
#ifdef SCAN_CORBA
sorb = get_Wise2Corba_Singleton(&argc,argv,"orbit-local-orb");
#endif
if( dpri == NULL ) {
fatal("Unable to build DPRun implementation. Bad arguments");
}
strip_out_standard_options(&argc,argv,show_help,show_version);
if( argc != 2 ) {
show_help(stdout);
exit(12);
}
/* ugly, but we don't want to bounce matrices around the network... */
mat = read_Blast_file_CompMat("BLOSUM62.bla");
erroroff(REPORT);
hsi = new_HSPScanInterface_from_ScanWiseHSPImpl(scani,pic,slp);
ssi = new_Mott_SearchStatInterface();
ssl = new_lookup_SearchStatInterface(40,2.3);
if( verbose ) {
info("contacted database");
}
db = single_fasta_SequenceDB(argv[1]);
if( db == NULL ) {
fatal("Could not open sequence db...\n");
}
for(seq = init_SequenceDB(db,&ret); seq != NULL;seq = get_next_SequenceDB(db) ) {
count++;
for(i=0;i<seq->len;i++) {
if( !isalpha(seq->seq[i]) ) {
fatal("Sequence position %d [%c] is not valid",i,seq->seq[i]);
}
seq->seq[i] = toupper(seq->seq[i]);
}
info("Processing %s",seq->name);
getrusage(RUSAGE_SELF,&use);
/* info("Before query %s %.3fu %.3fs\n", seq->name,
use.ru_utime.tv_sec + use.ru_utime.tv_usec*MICROSECOND,
use.ru_stime.tv_sec + use.ru_stime.tv_usec*MICROSECOND
);
*/
lm = (*hsi->scan_query)(hsi->data,seq,para);
fprintf(stderr,"Got linear manager is %d entries\n",lm->len);
if( lm->mat == NULL ) {
lm->mat = hard_link_CompMat(mat);
}
getrusage(RUSAGE_SELF,&use);
/*
info("After query %s %.3fu %.3fs\n", seq->name,
use.ru_utime.tv_sec + use.ru_utime.tv_usec*MICROSECOND,
use.ru_stime.tv_sec + use.ru_stime.tv_usec*MICROSECOND
);
*/
sort_LinearHSPmanager(lm,compare_HSPset_score);
if( trunc_best_hsp == 1 ) {
for(kk=1;kk<lm->len;kk++) {
free_HSPset(lm->set[kk]);
lm->set[kk] = NULL;
}
lm->len = 1;
}
getrusage(RUSAGE_SELF,&use);
/*
info("After sort %s %.3fu %.3fs\n", seq->name,
use.ru_utime.tv_sec + use.ru_utime.tv_usec*MICROSECOND,
use.ru_stime.tv_sec + use.ru_stime.tv_usec*MICROSECOND
);
*/
hl = HitList_from_HSP_HSP2HitListImpl(hsp2hiti,lm,dpri,hsp2hit);
getrusage(RUSAGE_SELF,&use);
/*
info("After conversion %s %.3fu %.3fs\n", seq->name,
use.ru_utime.tv_sec + use.ru_utime.tv_usec*MICROSECOND,
use.ru_stime.tv_sec + use.ru_stime.tv_usec*MICROSECOND
);
*/
free_LinearHSPmanager(lm);
if( use_mott == 1 ) {
apply_SearchStat_to_HitList(hl,ssi,effective_db_size);
} else {
for(kk=0;kk<hl->len;kk++) {
hl->pair[kk]->bit_score = hl->pair[kk]->raw_score / 2.0;
}
}
sort_HitList_by_score(hl);
show_HitList_HitListOutputImpl(hloi,hl,stdout);
getrusage(RUSAGE_SELF,&use);
/*
info("After output %s %.3fu %.3fs\n", seq->name,
use.ru_utime.tv_sec + use.ru_utime.tv_usec*MICROSECOND,
use.ru_stime.tv_sec + use.ru_stime.tv_usec*MICROSECOND
);
*/
free_HitList(hl);
free_Sequence(seq);
}
free_DPRunImpl(dpri);
free_HSPScanInterface(hsi);
gettimeofday(&t1, NULL);
fprintf(stderr, "[client stats] queries, time (s): %d %f\n",
count,
(t1.tv_sec - t0.tv_sec) +
(t1.tv_usec - t0.tv_usec) * 1e-6);
return 0;
}
ScanWiseHSPImpl * new_ScanWiseHSPImpl_from_argv(int * argc,char ** argv)
{
ScanWiseHSPImpl * out;
char * temp;
out = malloc(sizeof(ScanWiseHSPImpl));
out->use_corba = FALSE;
out->use_mysql = FALSE;
out->use_compress = FALSE;
out->use_multiscan = FALSE;
out->ior_file = NULL;
out->direct_sequence = NULL;
out->matrix_file = "BLOSUM62.bla";
out->step = 32;
out->host = "localhost";
out->port = 4050;
strip_out_boolean_def_argument(argc,argv,"corba",&out->use_corba);
strip_out_boolean_def_argument(argc,argv,"mysql",&out->use_mysql);
strip_out_boolean_def_argument(argc,argv,"wiseserver",&out->use_wiseserver);
strip_out_boolean_def_argument(argc,argv,"compress",&out->use_compress);
strip_out_boolean_def_argument(argc,argv,"multi",&out->use_multiscan);
if( (temp = strip_out_assigned_argument(argc,argv,"iorfile")) != NULL ) {
out->ior_file = temp;
}
if( (temp = strip_out_assigned_argument(argc,argv,"multiserver")) != NULL ) {
out->multiscan_file = temp;
}
if( (temp = strip_out_assigned_argument(argc,argv,"scan_host")) != NULL ) {
out->host = temp;
}
strip_out_integer_argument(argc,argv,"scan_port",&out->port);
if( (temp = strip_out_assigned_argument(argc,argv,"scan_dbname")) != NULL ) {
out->dbname = temp;
}
if( (temp = strip_out_assigned_argument(argc,argv,"scan_username")) != NULL ) {
out->username = temp;
}
if( (temp = strip_out_assigned_argument(argc,argv,"scan_password")) != NULL ) {
out->password = temp;
}
strip_out_integer_argument(argc,argv,"scan_step",&out->step);
if( (temp = strip_out_assigned_argument(argc,argv,"seqdb")) != NULL ) {
out->direct_sequence = temp;
}
if( (temp = strip_out_assigned_argument(argc,argv,"seqdbmat")) != NULL ) {
out->matrix_file = temp;
}
return out;
}
int main(int argc,char ** argv)
{
Sequence * query;
Sequence * target;
CompMat * comp;
char * comp_file;
int gap = (12);
int ext = (2);
int a = 120;
int b = 10;
int c = 3;
ComplexSequence * query_cs;
ComplexSequence * target_cs;
ComplexSequenceEvalSet * evalfunc;
boolean show_label_output = FALSE;
boolean show_fancy_output = FALSE;
boolean use_abc = FALSE;
PackAln * pal;
AlnBlock * alb;
DPRunImpl * dpri = NULL;
/*
* Process command line options
* -h or -help gives us help
* -g for gap value (an int) - rely on commandline error processing
* -e for ext value (an int) - rely on commandline error processing
* -m for matrix (a char)
* -l - label output
* -f - fancy output
*
*
* Use calls to commandline.h functions
*
*/
if( strip_out_boolean_argument(&argc,argv,"h") == TRUE || strip_out_boolean_argument(&argc,argv,"-help") == TRUE) {
show_help(stdout);
exit(1);
}
dpri = new_DPRunImpl_from_argv(&argc,argv);
if( dpri == NULL ) {
fatal("Unable to build DPRun implementation. Bad arguments");
}
show_label_output = strip_out_boolean_argument(&argc,argv,"l");
show_fancy_output = strip_out_boolean_argument(&argc,argv,"f");
/** if all FALSE, set fancy to TRUE **/
if( show_label_output == FALSE )
show_fancy_output = TRUE;
(void) strip_out_integer_argument(&argc,argv,"g",&gap);
(void) strip_out_integer_argument(&argc,argv,"e",&ext);
(void) strip_out_integer_argument(&argc,argv,"a",&a);
(void) strip_out_integer_argument(&argc,argv,"b",&b);
(void) strip_out_integer_argument(&argc,argv,"c",&c);
use_abc = strip_out_boolean_argument(&argc,argv,"abc");
comp_file = strip_out_assigned_argument(&argc,argv,"m");
if( comp_file == NULL)
comp_file = "blosum62.bla";
if( argc != 3 ) {
warn("Must have two arguments for sequence 1 and sequence 2 %d",argc);
show_help(stdout);
exit(1);
}
/*
* Read in two sequences
*/
if( (query=read_fasta_file_Sequence(argv[1])) == NULL ) {
fatal("Unable to read the sequence in file %s",argv[1]);
}
if( (target=read_fasta_file_Sequence(argv[2])) == NULL ) {
fatal("Unable to read the sequence in file %s",argv[2]);
}
/*
* Open a blosum matrix. This will be opened from WISECONFIGDIR
* or WISEPERSONALDIR if it is not present in the current directory.
*/
comp = read_Blast_file_CompMat(comp_file);
if( comp == NULL ) {
fatal("unable to read file %s",comp_file);
}
/* if abc - factor up matrix! */
if( use_abc == TRUE ) {
factor_CompMat(comp,10);
}
/*
* Make an alignment. I don't care about the implementation:
* hand it over to sw_wrap function to do it
*
*/
if( use_abc ) {
evalfunc = default_aminoacid_ComplexSequenceEvalSet();
query_cs = new_ComplexSequence(query,evalfunc);
if( query_cs == NULL )
fatal("Cannot build cs objects!");
target_cs = new_ComplexSequence(target,evalfunc);
if( target_cs == NULL )
fatal("Cannot build cs objects!");
pal = PackAln_bestmemory_abc(query_cs,target_cs,comp,-a,-b,-c,NULL,dpri);
alb = convert_PackAln_to_AlnBlock_abc(pal);
free_ComplexSequence(query_cs);
free_ComplexSequence(target_cs);
} else {
alb = Align_Sequences_ProteinSmithWaterman(query,target,comp,-gap,-ext,dpri);
}
/*
* show output. If multiple outputs, divide using //
*/
if( show_label_output == TRUE ) {
show_flat_AlnBlock(alb,stdout);
puts("//\n");
}
if( show_fancy_output == TRUE ) {
write_pretty_seq_align(alb,query,target,15,50,stdout);
puts("//\n");
}
/*
* Destroy the memory.
*/
free_Sequence(query);
free_Sequence(target);
free_CompMat(comp);
free_AlnBlock(alb);
return 0;
}
int main(int argc,char ** argv)
{
Sequence * cdna;
Sequence * gen;
Sequence * active_gen;
Sequence * active_cdna;
int i;
int dstart = -1;
int dend = -1;
int cstart = -1;
int cend = -1;
CodonTable * ct = NULL;
CodonMatrixScore * cm = NULL;
RandomCodon * rndcodon = NULL;
RandomCodonScore * rndcodonscore = NULL;
DnaMatrix * dm = NULL;
DPRunImpl * dpri = NULL;
GeneModel * gm;
GeneModelParam * gmp;
GeneStats * gs;
GeneParser21 * gp21;
GeneParser21Score * gp21s;
GeneParser4Score * gp;
ComplexSequenceEvalSet * cdna_cses;
ComplexSequenceEvalSet * gen_cses;
ComplexSequence * cs_cdna;
ComplexSequence * cs_gen;
Genomic * gent;
GenomicRegion * gr;
CompMat * cmat;
CompProb * cprob;
char * matfile = "blosum62.bla";
Protein * trans;
PackAln * pal;
AlnBlock * alb;
FILE * ofp = stdout;
dpri = new_DPRunImpl_from_argv(&argc,argv);
gmp = new_GeneModelParam_from_argv(&argc,argv);
strip_out_integer_argument(&argc,argv,"u",&dstart);
strip_out_integer_argument(&argc,argv,"v",&dend);
strip_out_integer_argument(&argc,argv,"s",&cstart);
strip_out_integer_argument(&argc,argv,"t",&cend);
strip_out_standard_options(&argc,argv,show_help,show_version);
ct = read_CodonTable_file(codon_file);
cmat = read_Blast_file_CompMat(matfile);
cprob = CompProb_from_halfbit(cmat);
cm = naive_CodonMatrixScore_from_prob(ct,cprob);
gm = GeneModel_from_GeneModelParam(gmp);
cdna = read_fasta_file_Sequence(argv[1]);
gen = read_fasta_file_Sequence(argv[2]);
if( dstart != -1 || dend != -1 ) {
if( dstart == -1 ) {
dstart = 1;
}
if( dend == -1 ) {
dend = gen->len;
}
active_gen = magic_trunc_Sequence(gen,dstart,dend);
} else {
active_gen = hard_link_Sequence(gen);
}
if( cstart != -1 || cend != -1 ) {
if( cstart == -1 ) {
cstart = 1;
}
if( cend == -1 ) {
cend = gen->len;
}
active_cdna = magic_trunc_Sequence(gen,cstart,cend);
} else {
active_cdna = hard_link_Sequence(gen);
}
rndcodon = RandomCodon_from_raw_CodonFrequency(gm->codon,ct);
fold_in_RandomModelDNA_into_RandomCodon(rndcodon,gm->rnd);
rndcodonscore = RandomCodonScore_from_RandomCodon(rndcodon);
assert(active_cdna);
assert(active_gen);
cdna_cses = default_cDNA_ComplexSequenceEvalSet();
gen_cses = new_ComplexSequenceEvalSet_from_GeneModel(gm);
cs_cdna = new_ComplexSequence(active_cdna,cdna_cses);
cs_gen = new_ComplexSequence(active_gen,gen_cses);
gp21 = std_GeneParser21();
GeneParser21_fold_in_RandomModelDNA(gp21,gm->rnd);
gp21s = GeneParser21Score_from_GeneParser21(gp21);
gp = GeneParser4Score_from_GeneParser21Score(gp21s);
dm = identity_DnaMatrix(Probability2Score(halfbit2Probability(1)),Probability2Score(halfbit2Probability(-1)));
assert(cs_cdna);
assert(cs_gen);
assert(gp);
assert(rndcodonscore);
assert(dm);
assert(dpri);
/* show_CodonMatrixScore(cm,ct,ofp);*/
pal = PackAln_bestmemory_CdnaWise10(cs_cdna,cs_gen,gp,cm,rndcodonscore,dm,
Probability2Score(halfbit2Probability(-12)),
Probability2Score(halfbit2Probability(-2)),
Probability2Score(halfbit2Probability(-5)),
Probability2Score(halfbit2Probability(0)),
NULL,
dpri);
alb = convert_PackAln_to_AlnBlock_CdnaWise10(pal);
gent = Genomic_from_Sequence(gen);
assert(gent);
gr = new_GenomicRegion(gent);
assert(gr);
add_Genes_to_GenomicRegion_GeneWise(gr,active_gen->offset,active_gen->end,alb,cdna->name,0,NULL);
mapped_ascii_AlnBlock(alb,Score2Bits,0,ofp);
show_pretty_GenomicRegion(gr,0,ofp);
for(i=0;i<gr->len;i++) {
if( gr->gene[i]->ispseudo == TRUE ) {
fprintf(ofp,"#Gene %d is a pseudo gene - no translation possible\n",i);
} else {
trans = get_Protein_from_Translation(gr->gene[i]->transcript[0]->translation[0],ct);
write_fasta_Sequence(trans->baseseq,ofp);
}
}
}
int main(int argc,char ** argv)
{
Sequence * query;
Sequence * target;
ComplexSequence * query_cs;
ComplexSequence * target_cs;
ComplexSequenceEvalSet * evalfunc;
CompMat * comp;
char * comp_file;
int gap = (12);
int ext = (2);
boolean show_raw_output = FALSE;
boolean show_label_output = FALSE;
boolean show_fancy_output = FALSE;
boolean has_outputted = FALSE;
PackAln * pal;
AlnBlock * alb;
/*
* Process command line options
* -h or -help gives us help
* -g for gap value (an int) - rely on commandline error processing
* -e for ext value (an int) - rely on commandline error processing
* -m for matrix (a char)
* -r - raw matrix output
* -l - label output
* -f - fancy output
*
*
* Use calls to commandline.h functions
*
*/
if( strip_out_boolean_argument(&argc,argv,"h") == TRUE || strip_out_boolean_argument(&argc,argv,"-help") == TRUE) {
show_help(stdout);
exit(1);
}
show_raw_output = strip_out_boolean_argument(&argc,argv,"r");
show_label_output = strip_out_boolean_argument(&argc,argv,"l");
show_fancy_output = strip_out_boolean_argument(&argc,argv,"f");
/** if all FALSE, set fancy to TRUE **/
if( show_raw_output == FALSE && show_label_output == FALSE )
show_fancy_output = TRUE;
(void) strip_out_integer_argument(&argc,argv,"g",&gap);
(void) strip_out_integer_argument(&argc,argv,"e",&ext);
comp_file = strip_out_assigned_argument(&argc,argv,"m");
if( comp_file == NULL)
comp_file = "blosum62.bla";
if( argc != 3 ) {
warn("Must have two arguments for sequence 1 and sequence 2 %d",argc);
show_help(stdout);
exit(1);
}
/*
* Read in two sequences
*/
if( (query=read_fasta_file_Sequence(argv[1])) == NULL ) {
fatal("Unable to read the sequence in file %s",argv[1]);
}
if( (target=read_fasta_file_Sequence(argv[2])) == NULL ) {
fatal("Unable to read the sequence in file %s",argv[2]);
}
/*
* Open a blosum matrix. This will be opened from WISECONFIGDIR
* or WISEPERSONALDIR if it is not present in the current directory.
*/
comp = read_Blast_file_CompMat(comp_file);
if( comp == NULL ) {
fatal("unable to read file %s",comp_file);
}
/*
* Convert sequences to ComplexSequences:
* To do this we need an protein ComplexSequenceEvalSet
*
*/
evalfunc = default_aminoacid_ComplexSequenceEvalSet();
query_cs = new_ComplexSequence(query,evalfunc);
if( query_cs == NULL ) {
fatal("Unable to make a protein complex sequence from %s",query->name);
}
target_cs = new_ComplexSequence(target,evalfunc);
if( target_cs == NULL ) {
fatal("Unable to make a protein complex sequence from %s",target->name);
}
/*
* Make an alignment. I don't care about the implementation:
* If the sequences are small enough then it should use explicit memory.
* Long sequences should use divide and conquor methods.
*
* Calling PackAln_bestmemory_ProteinSW is the answer
* This function decides on the best method considering the
* memory and changes accordingly. It frees the matrix memory
* at the end as well.
*
*/
pal = PackAln_bestmemory_ProteinSW(query_cs,target_cs,comp,-gap,-ext,NULL);
if( pal == NULL ) {
fatal("Unable to make an alignment from %s and %s",query->name,target->name);
}
/*
* ok, make other alignment forms, and be ready to show
*/
alb = convert_PackAln_to_AlnBlock_ProteinSW(pal);
/*
* show output. If multiple outputs, divide using //
*/
if( show_raw_output == TRUE ) {
show_simple_PackAln(pal,stdout);
puts("//\n");
}
if( show_label_output == TRUE ) {
show_flat_AlnBlock(alb,stdout);
}
if( show_fancy_output == TRUE ) {
write_pretty_seq_align(alb,query,target,15,50,stdout);
puts("//\n");
}
/*
* Destroy the memory.
*/
free_Sequence(query);
free_Sequence(target);
free_CompMat(comp);
free_ComplexSequence(query_cs);
free_ComplexSequence(target_cs);
free_PackAln(pal);
free_AlnBlock(alb);
return 0;
}
