AjBool ajDebugTest(const char* token)
{
AjPStr filename = NULL;
const char* debugtestname = ".debugtest";
char* ctoken = NULL;
AjPStr line = NULL;
AjPStr strtoken = NULL;
AjPStr rest = NULL;
static ajint depth = 0;
struct
{
ajuint count;
ajuint max;
} *stats;
if(depth)
return ajFalse;
depth++;
if(!messDebugTestInit)
{
filename = ajStrNewC(debugtestname);
if(ajFilenameExists(filename))
{
messDebugTestFile = ajFileNewInNameS(filename);
}
else
{
ajFmtPrintS(&filename, "%s%s%s",
getenv("HOME"), SLASH_STRING, debugtestname);
if(ajFilenameExists(filename))
messDebugTestFile = ajFileNewInNameS(filename);
}
ajStrDel(&filename);
if(messDebugTestFile)
{
messDebugTestTable = ajTablecharNewLen(256);
while(ajReadlineTrim(messDebugTestFile, &line))
{
if(ajStrExtractFirst(line, &rest, &strtoken))
{
AJNEW0(stats);
ctoken = ajCharNewS(strtoken);
if(ajStrIsInt(rest))
ajStrToUint(rest, &stats->max);
else
stats->max = UINT_MAX;
ajTablePut(messDebugTestTable, ctoken, stats);
ctoken = NULL;
stats = NULL;
}
}
ajStrDel(&line);
ajStrDel(&strtoken);
ajStrDel(&rest);
ajFileClose(&messDebugTestFile);
}
messDebugTestInit = ajTrue;
}
depth--;
if(!messDebugTestTable)
return ajFalse;
depth++;
stats = ajTableFetch(messDebugTestTable, token);
depth--;
if(!stats)
return ajFalse;
if(!stats->max)
return ajTrue;
if(stats->count++ >= stats->max)
return ajFalse;
return ajTrue;
}
AjBool gHttpRedirect(AjPFile file, AjPStr* host, ajint* port, AjPStr* path)
{
AjPFilebuff buff = NULL;
AjPRegexp httpexp = NULL;
AjPRegexp nullexp = NULL;
AjPRegexp redirexp = NULL;
AjPStr codestr = NULL;
AjPStr newurl = NULL;
AjPStr newhost = NULL;
AjPStr currline = NULL;
ajuint httpcode = 0;
AjBool isheader = ajFalse;
AjBool ret = ajFalse;
httpexp = ajRegCompC("^HTTP/\\S+\\s+(\\d+)");
ajReadline(file, &currline);
ajDebug("gHttpRedirect: First line: '%S'\n", currline);
if(ajRegExec(httpexp, currline))
{
isheader = ajTrue;
ajRegSubI(httpexp, 1, &codestr);
ajStrToUint(codestr, &httpcode);
ajDebug("Header: codestr '%S' code '%u'\n", codestr, httpcode);
ajStrDel(&codestr);
}
if(isheader)
{
if(httpcode == 301 || httpcode == 302 || httpcode==307)
{
redirexp = ajRegCompC("^Location: (\\S+)");
nullexp = ajRegCompC("^\r?\n?$");
while( ajReadline(file, &currline) &&
!ajRegExec(nullexp, currline))
{
ajDebug("gHttpRedirect: header line: '%S'\n", currline);
if(ajRegExec(redirexp, currline))
{
ajRegSubI(redirexp, 1, &newurl);
ajHttpUrlDeconstruct(newurl, port, &newhost, path);
if(ajStrGetLen(newhost))
ajStrAssignS(host, newhost);
ajStrDel(&newurl);
ajStrDel(&newhost);
ret = ajTrue;
break;
}
}
ajRegFree(&redirexp);
ajRegFree(&nullexp);
}
}
ajRegFree(&httpexp);
ajStrDel(&currline);
return ret;
}
AjPPatlistSeq ajPatlistSeqRead (const AjPStr patspec,
const AjPStr patname,
const AjPStr fmt,
AjBool protein, ajuint mismatches)
{
AjPPatlistSeq patlist = NULL;
AjPStr line = NULL;
AjPStr name = NULL;
AjPFilebuff infile = NULL;
AjPRegexp mismreg = NULL;
AjPStr patstr = NULL;
AjPStr pat = NULL;
ajuint mismatch = 0;
ajint ifmt = 0;
ajuint npat = 0;
AjPStr namestr = NULL;
ajStrAssignS(&namestr, patname);
ajStrAssignEmptyC(&namestr, "pattern");
ajStrAssignS(&patstr, patspec);
patlist = ajPatlistSeqNewType(protein);
ifmt = patternSeqFormat(fmt);
ajDebug("ajPatlistSeqRead patspec: '%S' patname: '%S' "
"protein: %B mismatches: %d\n",
patspec, patname, protein, mismatches);
if(ajStrGetCharFirst(patstr) == '@')
{
ajStrCutStart(&patstr, 1);
infile = ajFilebuffNewNameS(patstr);
if(!infile)
{
ajErr("Unable to open pattern file '%S'", patstr);
return NULL;
}
line = ajStrNew();
name = ajStrNew();
if(!ifmt)
{
ajBuffreadLineTrim(infile,&line);
if(ajStrPrefixC(line, ">"))
ifmt = 2;
else
ifmt = 1;
ajFilebuffReset(infile);
}
switch(ifmt)
{
case 1:
while (ajBuffreadLineTrim(infile,&line))
{
npat++;
ajStrAppendS (&pat,line);
ajFmtPrintS(&name, "%S%u", namestr, npat);
ajPatternSeqNewList(patlist,name,pat,mismatches);
ajStrSetClear(&pat);
}
break;
default:
mismreg = ajRegCompC("<mismatch=(\\d+)>");
while (ajBuffreadLineTrim(infile,&line))
{
if (ajStrGetCharFirst(line) == '>')
{
if (ajStrGetLen(name))
{
ajPatternSeqNewList(patlist,name,pat,
mismatch);
ajStrSetClear(&name);
ajStrSetClear(&pat);
mismatch=mismatches;
}
ajStrCutStart(&line,1);
if (ajRegExec(mismreg,line))
{
ajRegSubI(mismreg,1,&name);
ajStrToUint(name,&mismatch);
ajStrTruncateLen(&line,ajRegOffset(mismreg));
ajStrTrimWhiteEnd(&line);
}
ajStrAssignS (&name,line);
ajStrAssignEmptyS(&name, patname);
}
else
ajStrAppendS (&pat,line);
}
ajStrAssignEmptyS(&name, patname);
ajPatternSeqNewList(patlist,name,pat,mismatch);
ajRegFree(&mismreg);
break;
}
ajFilebuffDel(&infile);
}
else
{
ajStrAssignS(&name, namestr);
ajPatternSeqNewList(patlist,name,patstr,mismatches);
}
ajStrDel(&name);
ajStrDel(&line);
ajStrDel(&pat);
ajStrDel(&namestr);
ajStrDel(&patstr);
return patlist;
}
EmbPMatPrints embMatProtReadInt(AjPFile fp)
{
EmbPMatPrints ret;
AjPStr line;
ajint i;
ajuint j;
ajuint m;
const char *p;
line = ajStrNewC("#");
p = ajStrGetPtr(line);
while(!*p || *p=='#' || *p=='!' || *p=='\n')
{
if(!ajReadlineTrim(fp,&line))
{
ajStrDel(&line);
return NULL;
}
p = ajStrGetPtr(line);
}
ajDebug("embMatProtReadint starting\n");
ajDebug ("Line: %S\n", line);
AJNEW0 (ret);
ret->cod = ajStrNew();
ajStrAssignS(&ret->cod,line);
ajReadlineTrim(fp,&line);
ret->acc = ajStrNew();
ajStrAssignS(&ret->acc,line);
ajReadlineTrim(fp,&line);
ajStrToUint(line,&ret->n);
ajReadlineTrim(fp,&line);
ret->tit = ajStrNew();
ajStrAssignS(&ret->tit,line);
ajDebug ("Lineb: %S\n", line);
AJCNEW(ret->len, ret->n);
AJCNEW(ret->max, ret->n);
AJCNEW(ret->thresh, ret->n);
AJCNEW(ret->matrix, ret->n);
for(m=0;m<ret->n;++m)
{
ajReadlineTrim(fp,&line);
ajStrToUint(line,&ret->len[m]);
ajReadlineTrim(fp,&line);
ajStrToUint(line,&ret->thresh[m]);
ajReadlineTrim(fp,&line);
ajStrToUint(line,&ret->max[m]);
ajDebug ("m: %d/%d len:%d thresh:%d max:%d\n",
m, ret->n, ret->len[m], ret->thresh[m], ret->max[m]);
for(i=0;i<26;++i)
{
AJCNEW0(ret->matrix[m][i], ret->len[m]);
ajReadlineTrim(fp,&line);
ajDebug ("Linec [%d][%d]: %S\n", m, i, line);
p = ajStrGetPtr(line);
for(j=0;j<ret->len[m];++j)
{
if(!j)
p = ajSysFuncStrtok(p," ");
else
p = ajSysFuncStrtok(NULL," ");
sscanf(p,"%u",&ret->matrix[m][i][j]);
}
}
}
ajReadlineTrim(fp,&line);
ajDebug ("Linec: %S\n", line);
ajStrDel(&line);
return ret;
}
