static AjPTable jaspscan_ReadFamList(const AjPStr jaspdir)
{
AjPTable ret = NULL;
AjPStr lfile = NULL;
AjPStr line = NULL;
AjPStr key = NULL;
AjPStr str = NULL;
PJspmat info = NULL;
AjPFile inf = NULL;
const char *p = NULL;
const char *q = NULL;
lfile = ajStrNew();
line = ajStrNew();
str = ajStrNew();
ajFmtPrintS(&lfile,"%S%s%s",jaspdir,SLASH_STRING,J_LIST);
inf = ajDatafileNewInNameS(lfile);
if(!inf)
ajFatal("Matrix list file %S not found",lfile);
ret = ajTablestrNewLen(JASPTAB_GUESS);
while(ajReadlineTrim(inf,&line))
{
info = jaspscan_infonew();
ajFmtScanS(line,"%S%S",&info->id,&info->num);
p = ajStrGetPtr(line);
while(*p !='\t')
++p;
++p;
while(*p != '\t')
++p;
++p;
q = p;
while(*q != '\t')
++q;
ajStrAssignSubC(&info->name,p,0,q-p-1);
++q;
p = q;
while(*q != ';')
++q;
ajStrAssignSubC(&info->klass,p,0,q-p-1);
ajStrRemoveWhiteExcess(&info->klass);
p = q+1;
while(*p)
{
q = p;
while(* q && *q != ';')
++q;
ajStrAssignSubC(&str,p,0,q-p-1);
ajStrRemoveWhiteExcess(&str);
jaspscan_coretoken(info, str);
if(!*q)
p = q;
else
p = q +1;
}
key = ajStrNew();
ajStrAssignS(&key,info->id);
ajTablePut(ret,(void *)key,(void *) info);
}
ajFileClose(&inf);
ajStrDel(&lfile);
ajStrDel(&line);
ajStrDel(&str);
return ret;
}
int main(int argc, char **argv)
{
AjPFile inf = NULL;
AjPFile inf2 = NULL;
AjPFeattable tab = NULL;
AjPReport report = NULL;
AjPSeq sequence = NULL;
AjPStr redatanew = NULL;
AjPStr str = NULL;
AjPStr regexp = NULL;
AjPStr temp = NULL;
AjPStr text = NULL;
AjPStr docdata = NULL;
AjPStr data = NULL;
AjPStr accession = NULL;
AjPStr name = NULL;
EmbPPatMatch match = NULL;
AjPStr savereg = NULL;
AjPStr fthit = NULL;
AjBool full;
AjBool prune;
ajint i;
ajint number;
ajint start;
ajint end;
ajint length;
ajint zstart;
ajint zend;
const char *p;
ajint seqlength;
AjPStr tmpstr = NULL;
AjPStr tailstr = NULL;
AjPFeature gf;
embInit("patmatmotifs", argc, argv);
ajStrAssignC(&fthit, "SO:0001067");
savereg = ajStrNew();
str = ajStrNew();
regexp = ajStrNew();
temp = ajStrNew();
data = ajStrNew();
accession = ajStrNew();
text = ajStrNew();
name = ajStrNew();
sequence = ajAcdGetSeq("sequence");
report = ajAcdGetReport("outfile");
full = ajAcdGetBoolean("full");
prune = ajAcdGetBoolean("prune");
ajSeqFmtUpper(sequence); /* prosite regexs are all upper case */
tab = ajFeattableNewSeq(sequence);
ajStrAssignC(&tailstr, "");
seqlength = ajStrGetLen(str);
str = ajSeqGetSeqCopyS(sequence);
redatanew = ajStrNewC("PROSITE/prosite.lines");
docdata = ajStrNewC("PROSITE/");
inf = ajDatafileNewInNameS(redatanew);
if(!inf)
ajFatal("Either EMBOSS_DATA undefined or PROSEXTRACT needs running");
ajFmtPrintAppS(&tmpstr, "Full: %B\n", full);
ajFmtPrintAppS(&tmpstr, "Prune: %B\n", prune);
ajFmtPrintAppS(&tmpstr, "Data_file: %F\n", inf);
ajReportSetHeaderS(report, tmpstr);
while(ajReadlineTrim(inf, ®exp))
{
p=ajStrGetPtr(regexp);
if(*p && *p!=' ' && *p!='^')
{
p=ajSysFuncStrtok(p," ");
ajStrAssignC(&name,p);
if(prune)
if(ajStrMatchCaseC(name,"myristyl") ||
ajStrMatchCaseC(name,"asn_glycosylation") ||
ajStrMatchCaseC(name,"camp_phospho_site") ||
ajStrMatchCaseC(name,"pkc_phospho_site") ||
ajStrMatchCaseC(name,"ck2_phospho_site") ||
ajStrMatchCaseC(name,"tyr_phospho_site"))
{
for(i=0;i<4;++i)
ajReadlineTrim(inf, ®exp);
continue;
}
p=ajSysFuncStrtok(NULL," ");
ajStrAssignC(&accession,p);
}
if(ajStrPrefixC(regexp, "^"))
{
p = ajStrGetPtr(regexp);
ajStrAssignC(&temp,p+1);
ajStrAssignC(&savereg,p+1);
match = embPatMatchFind(temp, str, ajFalse, ajFalse);
number = embPatMatchGetNumber(match);
for(i=0; i<number; i++)
{
seqlength = ajStrGetLen(str);
start = 1+embPatMatchGetStart(match, i);
end = 1+embPatMatchGetEnd(match, i);
length = embPatMatchGetLen(match, i);
gf = ajFeatNew(tab, NULL, fthit, start, end,
(float) length, ' ', 0);
ajFmtPrintS(&tmpstr, "*motif %S", name);
ajFeatTagAddSS(gf, NULL, tmpstr);
if(start-5<0)
zstart = 0;
else
zstart = start-5;
if(end+5> seqlength)
zend = end;
else
zend = end+5;
ajStrAssignSubS(&temp, str, zstart, zend);
}
if(full && number)
{
ajStrAssignC(&redatanew,ajStrGetPtr(docdata));
ajStrAppendC(&redatanew,ajStrGetPtr(accession));
inf2 = ajDatafileNewInNameS(redatanew);
if(!inf2)
continue;
/*
** Insert Prosite documentation from files made by
** prosextract.c
*/
ajFmtPrintAppS(&tailstr, "Motif: %S\n", name);
ajFmtPrintAppS(&tailstr, "Count: %d\n\n", number);
while(ajReadlineTrim(inf2, &text))
ajFmtPrintAppS(&tailstr, "%S\n", text);
ajFmtPrintAppS(&tailstr, "\n***************\n\n");
ajFileClose(&inf2);
}
embPatMatchDel(&match);
}
}
ajReportSetTailS(report,tailstr);
ajReportWrite(report, tab, sequence);
ajReportDel(&report);
ajFeattableDel(&tab);
ajStrDel(&temp);
ajStrDel(®exp);
ajStrDel(&savereg);
ajStrDel(&str);
ajStrDel(&data);
ajStrDel(&docdata);
ajStrDel(&text);
ajStrDel(&redatanew);
ajStrDel(&accession);
ajSeqDel(&sequence);
ajStrDel(&tailstr);
ajStrDel(&fthit);
ajStrDel(&name);
ajStrDel(&tmpstr);
ajFeattableDel(&tab);
ajFileClose(&inf);
embExit();
return 0;
}
int main(int argc, char **argv)
{
AjPSeqall seqall;
AjPSeq seq = NULL;
AjPReport outf = NULL;
AjPFile inf = NULL;
ajint begin;
ajint end;
AjPList l = NULL;
AjPStr strand = NULL;
AjPStr substr = NULL;
AjPStr line = NULL;
AjPStr name = NULL;
AjPStr acc = NULL;
AjPStr bf = NULL;
AjPStr menu;
AjPStr pattern = NULL;
AjPStr opattern = NULL;
AjPStr pname = NULL;
AjPStr key = NULL;
AjPStr value = NULL;
AjPTable atable = NULL;
AjPTable btable = NULL;
ajint mismatch;
ajint minlength;
ajint sum;
ajint v;
char cp;
const char *p;
embInit("tfscan", argc, argv);
seqall = ajAcdGetSeqall("sequence");
outf = ajAcdGetReport("outfile");
mismatch = ajAcdGetInt("mismatch");
minlength = ajAcdGetInt("minlength");
menu = ajAcdGetListSingle("menu");
pname = ajStrNew();
cp=ajStrGetCharFirst(menu);
if(cp=='F')
ajStrAssignC(&pname,"tffungi");
else if(cp=='I')
ajStrAssignC(&pname,"tfinsect");
else if(cp=='O')
ajStrAssignC(&pname,"tfother");
else if(cp=='P')
ajStrAssignC(&pname,"tfplant");
else if(cp=='V')
ajStrAssignC(&pname,"tfvertebrate");
else if(cp=='C')
inf = ajAcdGetDatafile("custom");
if(cp!='C')
{
inf = ajDatafileNewInNameS(pname);
if(!inf)
ajFatal("Either EMBOSS_DATA undefined or TFEXTRACT needs running");
}
name = ajStrNew();
acc = ajStrNew();
bf = ajStrNewC("");
substr = ajStrNew();
line = ajStrNew();
pattern = ajStrNewC("AA");
opattern = ajStrNew();
while(ajSeqallNext(seqall, &seq))
{
begin=ajSeqallGetseqBegin(seqall);
end=ajSeqallGetseqEnd(seqall);
ajStrAssignC(&name,ajSeqGetNameC(seq));
strand=ajSeqGetSeqCopyS(seq);
ajStrAssignSubC(&substr,ajStrGetPtr(strand),begin-1,end-1);
ajStrFmtUpper(&substr);
l=ajListNew();
atable = ajTablestrNew(1000);
btable = ajTablestrNew(1000);
sum=0;
while(ajReadlineTrim(inf,&line))
{
p = ajStrGetPtr(line);
if(!*p || *p=='#' || *p=='\n' || *p=='!')
continue;
ajFmtScanS(line,"%S%S%S",&pname,&pattern,&acc);
p += ajStrGetLen(pname);
while(*p && *p==' ')
++p;
p += ajStrGetLen(pattern);
while(*p && *p==' ')
++p;
p += ajStrGetLen(acc);
while(*p && *p==' ')
++p;
ajStrAssignS(&opattern,pattern);
ajStrAssignC(&bf,p); /* rest of line */
v = embPatVariablePattern(pattern,substr,pname,l,0,
mismatch,begin);
if(v)
{
key = ajStrNewS(pname);
value = ajStrNewS(acc);
ajTablePut(atable,(void *)key,(void *)value);
key = ajStrNewS(pname);
value = ajStrNewS(bf);
ajTablePut(btable,(void *)key,(void *)value);
}
sum += v;
}
if(sum)
tfscan_print_hits(&l,sum,outf,atable,seq,minlength,
btable);
ajFileSeek(inf,0L,0);
ajListFree(&l);
ajTablestrFree(&atable);
ajTablestrFree(&btable);
ajStrDel(&strand);
}
ajStrDel(&line);
ajStrDel(&name);
ajStrDel(&acc);
ajStrDel(&pname);
ajStrDel(&opattern);
ajStrDel(&bf);
ajStrDel(&pattern);
ajStrDel(&substr);
ajSeqDel(&seq);
ajFileClose(&inf);
ajReportClose(outf);
ajReportDel(&outf);
ajSeqallDel(&seqall);
ajSeqDel(&seq);
ajStrDel(&menu);
embExit();
return 0;
}
AjPMatrixf ajMatrixfNewFile(const AjPStr filename)
{
AjPMatrixf ret = NULL;
AjPStr *orderstring = NULL;
AjPStr buffer = NULL;
AjPStr firststring = NULL;
AjPStr reststring = NULL;
const AjPStr tok = NULL;
ajint len = 0;
ajint i = 0;
ajint l = 0;
ajint k = 0;
ajint cols = 0;
ajint rows = 0;
const char *ptr = NULL;
AjPFile file = NULL;
AjBool first = ajTrue;
float **matrix = NULL;
float *templine = NULL;
float minval = -1.0;
AjPList rlabel_list = NULL;
AjPStr *rlabel_arr = NULL;
#ifndef WIN32
static const char *delimstr = " :\t\n";
#else
static const char *delimstr = " :\t\n\r";
#endif
rlabel_list = ajListNew();
firststring = ajStrNew();
reststring = ajStrNew();
file = ajDatafileNewInNameS(filename);
if(!file)
{
ajStrDel(&firststring);
ajStrDel(&reststring);
return NULL;
}
/* Read row labels */
while(ajReadline(file,&buffer))
{
ptr = ajStrGetPtr(buffer);
#ifndef WIN32
if(*ptr != '#' && *ptr != '\n')
#else
if(*ptr != '#' && *ptr != '\n' && *ptr != '\r')
#endif
{
if(first)
first = ajFalse;
else
{
ajFmtScanC(ptr, "%S", &firststring);
ajListPushAppend(rlabel_list, firststring);
firststring = ajStrNew();
}
}
}
first = ajTrue;
ajStrDel(&firststring);
rows = ajListToarray(rlabel_list, (void ***) &rlabel_arr);
ajFileSeek(file, 0, 0);
while(ajReadline(file,&buffer))
{
ajStrRemoveWhiteExcess(&buffer);
ptr = ajStrGetPtr(buffer);
if(*ptr && *ptr != '#')
{
if(first)
{
cols = ajStrParseCountC(buffer,delimstr);
AJCNEW0(orderstring, cols);
for(i=0; i<cols; i++)
orderstring[i] = ajStrNew();
tok = ajStrParseC(buffer, " :\t\n");
ajStrAssignS(&orderstring[l++], tok);
while((tok = ajStrParseC(NULL, " :\t\n")))
ajStrAssignS(&orderstring[l++], tok);
first = ajFalse;
ret = ajMatrixfNewAsym(orderstring, cols,
rlabel_arr, rows,
filename);
matrix = ret->Matrixf;
}
else
{
ajFmtScanC(ptr, "%S", &firststring);
/* JISON 19/7/4
k = ajSeqcvtGetCodeK(ret->Cvt,
ajStrGetCharFirst(firststring)); */
k = ajSeqcvtGetCodeS(ret->Cvt, firststring);
len = MAJSTRGETLEN(firststring);
ajStrAssignSubC(&reststring, ptr, len, -1);
/*
** Must discard the first string (label) and use
** reststring otherwise ajArrFloatLine would fail (it
** cannot convert a string to a float)
**
** Use cols,1,cols in below because although 2nd and
** subsequent lines have one more string in them (the
** residue label in the 1st column) we've discarded that
** from the string that's passed
*/
templine = ajArrFloatLine(reststring,delimstr,1,cols);
for(i=0; i<cols; i++)
{
if(templine[i] < minval)
minval = templine[i];
/* JISON 19/7/4
matrix[k][ajSeqcvtGetCodeK(ret->Cvt,
ajStrGetCharFirst(orderstring[i]))]
= templine[i]; */
matrix[k][ajSeqcvtGetCodeAsymS(ret->Cvt,
orderstring[i])]
= templine[i];
}
AJFREE(templine);
}
}
}
ajDebug("fill rest with minimum value %d\n", minval);
ajFileClose(&file);
ajStrDel(&buffer);
for(i=0; i<cols; i++)
ajStrDel(&orderstring[i]);
AJFREE(orderstring);
ajDebug("read matrix file %S\n", filename);
ajStrDel(&firststring);
ajStrDel(&reststring);
for(i=0; i<rows; i++)
ajStrDel(&rlabel_arr[i]);
AJFREE(rlabel_arr);
ajListFree(&rlabel_list);
return ret;
}
AjPMatrix ajMatrixNewFile(const AjPStr filename)
{
AjPMatrix ret = NULL;
AjPStr buffer = NULL;
const AjPStr tok = NULL;
AjPStr firststring = NULL;
AjPStr *orderstring = NULL;
AjPFile file = NULL;
AjBool first = ajTrue;
const char *ptr = NULL;
ajint **matrix = NULL;
ajint minval = -1;
ajint i = 0;
ajint l = 0;
ajint k = 0;
ajint cols = 0;
ajint rows = 0;
ajint *templine = NULL;
AjPList rlabel_list = NULL;
AjPStr *rlabel_arr = NULL;
#ifndef WIN32
static const char *delimstr = " :\t\n";
#else
static const char *delimstr = " :\t\n\r";
#endif
rlabel_list = ajListNew();
firststring = ajStrNew();
file = ajDatafileNewInNameS(filename);
if(!file)
{
ajStrDel(&firststring);
ajListFree(&rlabel_list);
return NULL;
}
/* Read row labels */
while(ajReadline(file,&buffer))
{
ptr = ajStrGetPtr(buffer);
#ifndef WIN32
if(*ptr != '#' && *ptr != '\n')
#else
if(*ptr != '#' && *ptr != '\n' && *ptr != '\r')
#endif
{
if(first)
first = ajFalse;
else
{
ajFmtScanC(ptr, "%S", &firststring);
ajListPushAppend(rlabel_list, firststring);
firststring = ajStrNew();
}
}
}
first = ajTrue;
ajStrDel(&firststring);
rows = ajListToarray(rlabel_list, (void ***) &rlabel_arr);
ajFileSeek(file, 0, 0);
while(ajReadline(file,&buffer))
{
ajStrRemoveWhiteExcess(&buffer);
ptr = ajStrGetPtr(buffer);
if(*ptr && *ptr != '#')
{
if(first)
{
cols = ajStrParseCountC(buffer,delimstr);
AJCNEW0(orderstring, cols);
for(i=0; i<cols; i++)
orderstring[i] = ajStrNew();
tok = ajStrParseC(buffer, " :\t\n");
ajStrAssignS(&orderstring[l++], tok);
while((tok = ajStrParseC(NULL, " :\t\n")))
ajStrAssignS(&orderstring[l++], tok);
first = ajFalse;
ret = ajMatrixNewAsym(orderstring, cols,
rlabel_arr, rows,
filename);
matrix = ret->Matrix;
}
else
{
ajFmtScanC(ptr, "%S", &firststring);
/* JISON 19/7/4
k = ajSeqcvtGetCodeK(ret->Cvt, ajStrGetCharFirst(firststring)); */
k = ajSeqcvtGetCodeS(ret->Cvt, firststring);
/*
** cols+1 is used below because 2nd and subsequent lines have
** one more string in them (the residue label)
*/
templine = ajArrIntLine(buffer,delimstr,2,cols+1);
for(i=0; i<cols; i++)
{
if(templine[i] < minval)
minval = templine[i];
/* JISON 19/7/4
matrix[k][ajSeqcvtGetCodeK(ret->Cvt,
ajStrGetCharFirst(orderstring[i]))]
= templine[i]; */
matrix[k][ajSeqcvtGetCodeAsymS(ret->Cvt,
orderstring[i])]
= templine[i];
}
AJFREE(templine);
}
}
}
ajDebug("fill rest with minimum value %d\n", minval);
ajFileClose(&file);
ajStrDel(&buffer);
for(i=0; i<cols; i++)
ajStrDel(&orderstring[i]);
AJFREE(orderstring);
ajDebug("read matrix file %S\n", filename);
ajStrDel(&firststring);
for(i=0; i<rows; i++)
ajStrDel(&rlabel_arr[i]);
AJFREE(rlabel_arr);
ajListFree(&rlabel_list);
return ret;
}
static ajint silent_restr_read(AjPList *relist,const AjPStr enzymes)
{
EmbPPatRestrict rptr = NULL;
AjPFile fin = NULL;
AjPStr refilename = NULL;
register ajint RStotal = 0;
PRinfo rinfo = NULL;
AjBool isall = ajFalse;
ajint ne = 0;
ajint i;
AjPStr *ea = NULL;
refilename = ajStrNewC("REBASE/embossre.enz");
rptr = embPatRestrictNew();
*relist = ajListNew();
fin = ajDatafileNewInNameS(refilename);
if(!fin)
ajFatal("Aborting...restriction file '%S' not found", refilename);
/* Parse the user-selected enzyme list */
if(!enzymes)
isall = ajTrue;
else
{
ne = ajArrCommaList(enzymes,&ea);
for(i=0;i<ne;++i)
ajStrRemoveWhite(&ea[i]);
if(ajStrMatchCaseC(ea[0],"all"))
isall = ajTrue;
else
isall = ajFalse;
}
while(!ajFileIsEof(fin))
{
if(!embPatRestrictReadEntry(rptr,fin))
continue;
if(!isall)
{
for(i=0;i<ne;++i)
if(ajStrMatchCaseS(ea[i],rptr->cod))
break;
if(i==ne)
continue;
}
AJNEW(rinfo);
/* reading in RE info into rinfo from EmbPPatRestrict structure */
rinfo->code = ajStrNewC(ajStrGetPtr(rptr->cod));
rinfo->site = ajStrNewC(ajStrGetPtr(rptr->pat));
rinfo->ncuts = rptr->ncuts;
rinfo->cut1 = rptr->cut1;
rinfo->cut2 = rptr->cut2;
rinfo->cut3 = rptr->cut3;
rinfo->cut4 = rptr->cut4;
ajListPush(*relist,(void *)rinfo);
RStotal++;
}
for(i=0;i<ne;++i)
ajStrDel(&ea[i]);
AJFREE(ea);
embPatRestrictDel(&rptr);
ajFileClose(&fin);
ajStrDel(&refilename);
return RStotal;
}
