static void newcpgreport_countbases(const char *seq, const char *bases,
ajint window,
ajint *cx, ajint *cy, ajint *cxpy)
{
ajint i;
ajint codex;
ajint codey;
ajint codea;
ajint codeb;
*cxpy = *cx = *cy = 0;
codex = ajBaseAlphaToBin(bases[0]);
codey = ajBaseAlphaToBin(bases[1]);
codeb = ajBaseAlphaToBin(seq[0]);
for(i=0; i<window; ++i)
{
codea = codeb;
codeb = ajBaseAlphaToBin(seq[i+1]);
if(codea && !(codea & (15-codex)))
{
++*cx;
if(codeb && !(codeb & (15-codey)))
++*cxpy;
}
if(codea && !(codea & (15-codey)))
++*cy;
}
return;
}
static PSilent silent_checktrans(const AjPStr seq,const EmbPMatMatch match,
const PRinfo rlp, ajint begin, ajint radj,
AjBool rev, ajint end)
{
PSilent ret;
const char *p = NULL;
const char *q = NULL;
const char *s = NULL;
char *t;
const char *u;
ajint matchpos;
ajint framep;
ajint count;
AjPTrn table = NULL;
AjPStr s1 = NULL;
AjPStr s2 = NULL;
char c;
char rc;
ajint min = INT_MAX; /* Reverse sense intentional! */
ajint max = -INT_MAX;
ajint fpos;
ajint rpos;
ajint x;
AjPStr tstr = NULL;
matchpos = match->start;
fpos = matchpos;
rpos=radj-fpos-match->len;
tstr = ajStrNewS(seq);
t = ajStrGetuniquePtr(&tstr);
p = t+fpos-(begin+1);
u = q = ajStrGetPtr(rlp->site);
/* Test here for whether cut site is within sequence substring */
if(rlp->ncuts==4)
{
min = AJMIN(rlp->cut1,rlp->cut2);
max = AJMAX(rlp->cut3,rlp->cut4);
}
else if(rlp->ncuts==2)
{
min = AJMIN(rlp->cut1,rlp->cut2);
max = AJMAX(rlp->cut1,rlp->cut2);
}
else
{
ajWarn("Possibly corrupt RE file");
ajStrDel(&tstr);
return NULL;
}
if(!rev) /* forward strand */
{
if(matchpos+min<0||matchpos+max>end+1)
{
/*Cut site not in sequence range*/
ajStrDel(&tstr);
return NULL;
}
}
else /* reverse strand */
{
if(radj-matchpos-1-min>end+1||radj-matchpos-1-max<begin)
{
/*Cut site not in sequence range*/
ajStrDel(&tstr);
return NULL;
}
}
count=0;
while(ajBaseAlphaToBin(*q++) & ajBaseAlphaToBin(*p++))
++count;
/* Changed base postion */
x = fpos+count-(begin+1);
/* Where the frame starts on the reverse strand */
framep = (end-begin+1)%3;
c = t[x];
rc = u[count];
if(!rev) /* forward strand */
s = t+x-x%3;
else /* reverse strand */
s = t+x-(x-framep)%3;
table = ajTrnNewI(0);
/* translates codon pointed to by s (original seq) */
s1 = ajStrNewK(ajTrnCodonC(table,s));
t[x] = rc;
/* translates codon pointed to by s (mutated base from RS pattern */
s2 = ajStrNewK(ajTrnCodonC(table,s));
t[x] = c; /* changes mutated base in seq back to original base */
AJNEW(ret);
ret->obase = c;
ret->nbase = rc;
ret->code = ajStrNewC(ajStrGetPtr(rlp->code));
ret->site = ajStrNewC(ajStrGetPtr(rlp->site));
ret->seqaa = ajStrNewC(ajStrGetPtr(s1));
ret->reaa = ajStrNewC(ajStrGetPtr(s2));
if(ajStrMatchS(s1,s2))
ret->issilent = ajTrue;
else
ret->issilent = ajFalse;
if(!rev)
{
ret->match = matchpos;
ret->base = matchpos+count;
}
else
{
ret->match = rpos;
ret->base = rpos+match->len-1-count;
}
ajStrDel(&tstr);
ajStrDel(&s1);
ajStrDel(&s2);
ajTrnDel(&table);
return ret;
}
