/* @source martattributes application
**
** Return biomart attributes given mart dataset info
**
** @author Copyright (C) Alan Bleasby
** @@
**
** This program is free software; you can redistribute it and/or
** modify it under the terms of the GNU General Public License
** as published by the Free Software Foundation; either version 2
** of the License, or (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
******************************************************************************/

#include "emboss.h"




/* @prog martattributes *******************************************************
**
** Reads and writes (returns) sequences
**
******************************************************************************/

int main(int argc, char **argv)
{
    AjPSeqin seqin  = NULL;
    AjPMartquery mq = NULL;
    AjPMartquery pmq = NULL;
    AjPMartAttribute att = NULL;
    
    AjPStr dataset = NULL;
    AjPStr host = NULL;
    AjPStr path = NULL;

    AjPStr pagekey  = NULL;
    AjPStr currpage = NULL;
    const AjPStr pageval  = NULL;
    AjBool firstpage = ajTrue;
    
    AjPFile outf = NULL;
    ajint iport = 0;

    ajuint i;
    AjPStr key1   = NULL;
    AjPStr key2   = NULL;
    const AjPStr value1 = NULL;
    const AjPStr value2 = NULL;
    
    
    embInit("martattributes", argc, argv);


    host = ajAcdGetString("host");
    path = ajAcdGetString("path");
    iport = ajAcdGetInt("port");
    dataset  = ajAcdGetString("dataset");
    
    outf   = ajAcdGetOutfile("outfile");

    mq    = ajMartqueryNew();
    seqin = ajSeqinNew();

    ajMartAttachMartquery(seqin,mq);
    ajMartSetMarthostS(seqin,host);
    ajMartSetMartpathS(seqin,path);
    ajMartSetMartport(seqin,iport);
    
    /*
    ** 
    ** This section retrieves the attributes given a mart dataset name
    ** from a mart host.
    */

    ajMartGetAttributes(seqin, dataset);
    ajMartattributesParse(seqin);
    
    ajMartattributesPageSort(seqin);
    
    key1  = ajStrNewC("name");
    key2  = ajStrNewC("displayName");

    pagekey = ajStrNewC("page");
    currpage = ajStrNewC("Dummy_page_value");
    
    pmq = ajMartGetMartqueryPtr(seqin);
    att = pmq->Atts;

    for(i=0; i < att->Natts; ++i)
    {
        pageval = ajTableFetchS(att->Attributes[i], pagekey);

        if(!ajStrMatchS(currpage, pageval))
        {
            if(!firstpage)
                ajFmtPrintF(outf,"\n\n");
            else
                firstpage = ajFalse;
            
            ajStrAssignS(&currpage,pageval);
            ajFmtPrintF(outf,"PAGE TITLE %S\n\n",pageval);
        }
        
        value1 = ajTableFetchS(att->Attributes[i], key1);
        value2 = ajTableFetchS(att->Attributes[i], key2);
        ajFmtPrintF(outf,"%-40S %S\n",value1,value2);
    }
    

    ajStrDel(&key1);
    ajStrDel(&key2);
    ajStrDel(&pagekey);
    ajStrDel(&currpage);
    
    ajStrDel(&host);
    ajStrDel(&path);
    ajStrDel(&dataset);
    
    ajMartquerySeqinFree(seqin);

    ajSeqinDel(&seqin);
    ajFileClose(&outf);
    
    embExit();

    return 0;
}