chimerauchimecommand.cpp

   1 /*
   2  *  chimerauchimecommand.cpp
   3  *  Mothur
   4  *
   5  *  Created by westcott on 5/13/11.
   6  *  Copyright 2011 Schloss Lab. All rights reserved.
   7  *
   8  */
   9
  10 #include "chimerauchimecommand.h"
  11 #include "deconvolutecommand.h"
  12 #include "uc.h"
  13 #include "sequence.hpp"
  14
  15
  16 //**********************************************************************************************************************
  17 vector<string> ChimeraUchimeCommand::setParameters(){
  18         try {
  19                 CommandParameter ptemplate("reference", "InputTypes", "", "", "none", "none", "none",false,true); parameters.push_back(ptemplate);
  20                 CommandParameter pfasta("fasta", "InputTypes", "", "", "none", "none", "none",false,true); parameters.push_back(pfasta);
  21                 CommandParameter pname("name", "InputTypes", "", "", "none", "none", "none",false,false); parameters.push_back(pname);
  22                 CommandParameter pprocessors("processors", "Number", "", "1", "", "", "",false,false); parameters.push_back(pprocessors);
  23                 CommandParameter pinputdir("inputdir", "String", "", "", "", "", "",false,false); parameters.push_back(pinputdir);
  24                 CommandParameter poutputdir("outputdir", "String", "", "", "", "", "",false,false); parameters.push_back(poutputdir);
  25                 CommandParameter pabskew("abskew", "Number", "", "1.9", "", "", "",false,false); parameters.push_back(pabskew);
  26                 CommandParameter pchimealns("chimealns", "Boolean", "", "F", "", "", "",false,false); parameters.push_back(pchimealns);
  27                 CommandParameter pminh("minh", "Number", "", "0.3", "", "", "",false,false); parameters.push_back(pminh);
  28                 CommandParameter pmindiv("mindiv", "Number", "", "0.5", "", "", "",false,false); parameters.push_back(pmindiv);
  29                 CommandParameter pxn("xn", "Number", "", "8.0", "", "", "",false,false); parameters.push_back(pxn);
  30                 CommandParameter pdn("dn", "Number", "", "1.4", "", "", "",false,false); parameters.push_back(pdn);
  31                 CommandParameter pxa("xa", "Number", "", "1", "", "", "",false,false); parameters.push_back(pxa);
  32                 CommandParameter pchunks("chunks", "Number", "", "4", "", "", "",false,false); parameters.push_back(pchunks);
  33                 CommandParameter pminchunk("minchunk", "Number", "", "64", "", "", "",false,false); parameters.push_back(pminchunk);
  34                 CommandParameter pidsmoothwindow("idsmoothwindow", "Number", "", "32", "", "", "",false,false); parameters.push_back(pidsmoothwindow);
  35                 CommandParameter pminsmoothid("minsmoothid", "Number", "", "0.95", "", "", "",false,false); parameters.push_back(pminsmoothid);
  36                 CommandParameter pmaxp("maxp", "Number", "", "2", "", "", "",false,false); parameters.push_back(pmaxp);
  37                 CommandParameter pskipgaps("skipgaps", "Boolean", "", "T", "", "", "",false,false); parameters.push_back(pskipgaps);
  38                 CommandParameter pskipgaps2("skipgaps2", "Boolean", "", "T", "", "", "",false,false); parameters.push_back(pskipgaps2);
  39                 CommandParameter pminlen("minlen", "Number", "", "10", "", "", "",false,false); parameters.push_back(pminlen);
  40                 CommandParameter pmaxlen("maxlen", "Number", "", "10000", "", "", "",false,false); parameters.push_back(pmaxlen);
  41                 CommandParameter pucl("ucl", "Boolean", "", "F", "", "", "",false,false); parameters.push_back(pucl);
  42                 CommandParameter pqueryfract("queryfract", "Number", "", "0.5", "", "", "",false,false); parameters.push_back(pqueryfract);
  43
  44                 vector<string> myArray;
  45                 for (int i = 0; i < parameters.size(); i++) {   myArray.push_back(parameters[i].name);          }
  46                 return myArray;
  47         }
  48         catch(exception& e) {
  49                 m->errorOut(e, "ChimeraUchimeCommand", "setParameters");
  50                 exit(1);
  51         }
  52 }
  53 //**********************************************************************************************************************
  54 string ChimeraUchimeCommand::getHelpString(){
  55         try {
  56                 string helpString = "";
  57                 helpString += "The chimera.uchime command reads a fastafile and referencefile and outputs potentially chimeric sequences.\n";
  58                 helpString += "This command is a wrapper for uchime written by Robert C. Edgar.\n";
  59                 helpString += "The chimera.uchime command parameters are fasta, name, reference, processors, abskew, chimealns, minh, mindiv, xn, dn, xa, chunks, minchunk, idsmoothwindow, minsmoothid, maxp, skipgaps, skipgaps2, minlen, maxlen, ucl and queryfact.\n";
  60                 helpString += "The fasta parameter allows you to enter the fasta file containing your potentially chimeric sequences, and is required, unless you have a valid current fasta file. \n";
  61                 helpString += "The name parameter allows you to provide a name file, if you are using template=self. \n";
  62                 helpString += "You may enter multiple fasta files by separating their names with dashes. ie. fasta=abrecovery.fasta-amazon.fasta \n";
  63                 helpString += "The reference parameter allows you to enter a reference file containing known non-chimeric sequences, and is required. You may also set template=self, in this case the abundant sequences will be used as potential parents. \n";
  64                 helpString += "The processors parameter allows you to specify how many processors you would like to use.  The default is 1. \n";
  65                 helpString += "The abskew parameter can only be used with template=self. Minimum abundance skew. Default 1.9. Abundance skew is: min [ abund(parent1), abund(parent2) ] / abund(query).\n";
  66                 helpString += "The chimealns parameter allows you to indicate you would like a file containing multiple alignments of query sequences to parents in human readable format. Alignments show columns with differences that support or contradict a chimeric model.\n";
  67                 helpString += "The minh parameter - mininum score to report chimera. Default 0.3. Values from 0.1 to 5 might be reasonable. Lower values increase sensitivity but may report more false positives. If you decrease xn you may need to increase minh, and vice versa.\n";
  68                 helpString += "The mindiv parameter - minimum divergence ratio, default 0.5. Div ratio is 100%% - %%identity between query sequence and the closest candidate for being a parent. If you don't care about very close chimeras, then you could increase mindiv to, say, 1.0 or 2.0, and also decrease --min h, say to 0.1, to increase sensitivity. How well this works will depend on your data. Best is to tune parameters on a good benchmark.\n";
  69                 helpString += "The xn parameter - weight of a no vote. Default 8.0. Decreasing this weight to around 3 or 4 may give better performance on denoised data.\n";
  70                 helpString += "The dn parameter - pseudo-count prior on number of no votes. Default 1.4. Probably no good reason to change this unless you can retune to a good benchmark for your data. Reasonable values are probably in the range from 0.2 to 2.\n";
  71                 helpString += "The xa parameter - weight of an abstain vote. Default 1. So far, results do not seem to be very sensitive to this parameter, but if you have a good training set might be worth trying. Reasonable values might range from 0.1 to 2.\n";
  72                 helpString += "The chunks parameter is the number of chunks to extract from the query sequence when searching for parents. Default 4.\n";
  73                 helpString += "The minchunk parameter is the minimum length of a chunk. Default 64.\n";
  74                 helpString += "The idsmoothwindow parameter is the length of id smoothing window. Default 32.\n";
  75                 helpString += "The minsmoothid parameter - minimum factional identity over smoothed window of candidate parent. Default 0.95.\n";
  76                 helpString += "The maxp parameter - maximum number of candidate parents to consider. Default 2. In tests so far, increasing maxp gives only a very small improvement in sensivity but tends to increase the error rate quite a bit.\n";
  77                 helpString += "The skipgaps parameter controls how gapped columns affect counting of diffs. If skipgaps is set to T, columns containing gaps do not found as diffs. Default = T.\n";
  78                 helpString += "The skipgaps2 parameter controls how gapped columns affect counting of diffs. If skipgaps2 is set to T, if column is immediately adjacent to a column containing a gap, it is not counted as a diff. Default = T.\n";
  79                 helpString += "The minlen parameter is the minimum unaligned sequence length. Defaults 10. Applies to both query and reference sequences.\n";
  80                 helpString += "The maxlen parameter is the maximum unaligned sequence length. Defaults 10000. Applies to both query and reference sequences.\n";
  81                 helpString += "The ucl parameter - use local-X alignments. Default is global-X or false. On tests so far, global-X is always better; this option is retained because it just might work well on some future type of data.\n";
  82                 helpString += "The queryfract parameter - minimum fraction of the query sequence that must be covered by a local-X alignment. Default 0.5. Applies only when ucl is true.\n";
  83 #ifdef USE_MPI
  84                 helpString += "When using MPI, the processors parameter is set to the number of MPI processes running. \n";
  85 #endif
  86                 helpString += "The chimera.uchime command should be in the following format: \n";
  87                 helpString += "chimera.uchime(fasta=yourFastaFile, reference=yourTemplate) \n";
  88                 helpString += "Example: chimera.uchime(fasta=AD.align, reference=silva.gold.align) \n";
  89                 helpString += "Note: No spaces between parameter labels (i.e. fasta), '=' and parameters (i.e.yourFastaFile).\n";
  90                 return helpString;
  91         }
  92         catch(exception& e) {
  93                 m->errorOut(e, "ChimeraUchimeCommand", "getHelpString");
  94                 exit(1);
  95         }
  96 }
  97 //**********************************************************************************************************************
  98 ChimeraUchimeCommand::ChimeraUchimeCommand(){
  99         try {
 100                 abort = true; calledHelp = true;
 101                 setParameters();
 102                 vector<string> tempOutNames;
 103                 outputTypes["chimera"] = tempOutNames;
 104                 outputTypes["accnos"] = tempOutNames;
 105                 outputTypes["alns"] = tempOutNames;
 106         }
 107         catch(exception& e) {
 108                 m->errorOut(e, "ChimeraUchimeCommand", "ChimeraUchimeCommand");
 109                 exit(1);
 110         }
 111 }
 112 //***************************************************************************************************************
 113 ChimeraUchimeCommand::ChimeraUchimeCommand(string option)  {
 114         try {
 115                 abort = false; calledHelp = false;
 116
 117                 //allow user to run help
 118                 if(option == "help") { help(); abort = true; calledHelp = true; }
 119                 else if(option == "citation") { citation(); abort = true; calledHelp = true;}
 120
 121                 else {
 122                         vector<string> myArray = setParameters();
 123
 124                         OptionParser parser(option);
 125                         map<string,string> parameters = parser.getParameters();
 126
 127                         ValidParameters validParameter("chimera.uchime");
 128                         map<string,string>::iterator it;
 129
 130                         //check to make sure all parameters are valid for command
 131                         for (it = parameters.begin(); it != parameters.end(); it++) {
 132                                 if (validParameter.isValidParameter(it->first, myArray, it->second) != true) {  abort = true;  }
 133                         }
 134
 135                         vector<string> tempOutNames;
 136                         outputTypes["chimera"] = tempOutNames;
 137                         outputTypes["accnos"] = tempOutNames;
 138                         outputTypes["alns"] = tempOutNames;
 139
 140                         //if the user changes the input directory command factory will send this info to us in the output parameter
 141                         string inputDir = validParameter.validFile(parameters, "inputdir", false);
 142                         if (inputDir == "not found"){   inputDir = "";          }
 143
 144                         //check for required parameters
 145                         fastafile = validParameter.validFile(parameters, "fasta", false);
 146                         if (fastafile == "not found") {
 147                                 //if there is a current fasta file, use it
 148                                 string filename = m->getFastaFile();
 149                                 if (filename != "") { fastaFileNames.push_back(filename); m->mothurOut("Using " + filename + " as input file for the fasta parameter."); m->mothurOutEndLine(); }
 150                                 else {  m->mothurOut("You have no current fastafile and the fasta parameter is required."); m->mothurOutEndLine(); abort = true; }
 151                         }else {
 152                                 m->splitAtDash(fastafile, fastaFileNames);
 153
 154                                 //go through files and make sure they are good, if not, then disregard them
 155                                 for (int i = 0; i < fastaFileNames.size(); i++) {
 156
 157                                         bool ignore = false;
 158                                         if (fastaFileNames[i] == "current") {
 159                                                 fastaFileNames[i] = m->getFastaFile();
 160                                                 if (fastaFileNames[i] != "") {  m->mothurOut("Using " + fastaFileNames[i] + " as input file for the fasta parameter where you had given current."); m->mothurOutEndLine(); }
 161                                                 else {
 162                                                         m->mothurOut("You have no current fastafile, ignoring current."); m->mothurOutEndLine(); ignore=true;
 163                                                         //erase from file list
 164                                                         fastaFileNames.erase(fastaFileNames.begin()+i);
 165                                                         i--;
 166                                                 }
 167                                         }
 168
 169                                         if (!ignore) {
 170
 171                                                 if (inputDir != "") {
 172                                                         string path = m->hasPath(fastaFileNames[i]);
 173                                                         //if the user has not given a path then, add inputdir. else leave path alone.
 174                                                         if (path == "") {       fastaFileNames[i] = inputDir + fastaFileNames[i];               }
 175                                                 }
 176
 177                                                 int ableToOpen;
 178                                                 ifstream in;
 179
 180                                                 ableToOpen = m->openInputFile(fastaFileNames[i], in, "noerror");
 181
 182                                                 //if you can't open it, try default location
 183                                                 if (ableToOpen == 1) {
 184                                                         if (m->getDefaultPath() != "") { //default path is set
 185                                                                 string tryPath = m->getDefaultPath() + m->getSimpleName(fastaFileNames[i]);
 186                                                                 m->mothurOut("Unable to open " + fastaFileNames[i] + ". Trying default " + tryPath); m->mothurOutEndLine();
 187                                                                 ifstream in2;
 188                                                                 ableToOpen = m->openInputFile(tryPath, in2, "noerror");
 189                                                                 in2.close();
 190                                                                 fastaFileNames[i] = tryPath;
 191                                                         }
 192                                                 }
 193
 194                                                 if (ableToOpen == 1) {
 195                                                         if (m->getOutputDir() != "") { //default path is set
 196                                                                 string tryPath = m->getOutputDir() + m->getSimpleName(fastaFileNames[i]);
 197                                                                 m->mothurOut("Unable to open " + fastaFileNames[i] + ". Trying output directory " + tryPath); m->mothurOutEndLine();
 198                                                                 ifstream in2;
 199                                                                 ableToOpen = m->openInputFile(tryPath, in2, "noerror");
 200                                                                 in2.close();
 201                                                                 fastaFileNames[i] = tryPath;
 202                                                         }
 203                                                 }
 204
 205                                                 in.close();
 206
 207                                                 if (ableToOpen == 1) {
 208                                                         m->mothurOut("Unable to open " + fastaFileNames[i] + ". It will be disregarded."); m->mothurOutEndLine();
 209                                                         //erase from file list
 210                                                         fastaFileNames.erase(fastaFileNames.begin()+i);
 211                                                         i--;
 212                                                 }
 213                                         }
 214                                 }
 215
 216                                 //make sure there is at least one valid file left
 217                                 if (fastaFileNames.size() == 0) { m->mothurOut("[ERROR]: no valid files."); m->mothurOutEndLine(); abort = true; }
 218                         }
 219
 220
 221                         //check for required parameters
 222                         bool hasName = true;
 223                         namefile = validParameter.validFile(parameters, "name", false);
 224                         if (namefile == "not found") { namefile = "";  hasName = false; }
 225                         else {
 226                                 m->splitAtDash(namefile, nameFileNames);
 227
 228                                 //go through files and make sure they are good, if not, then disregard them
 229                                 for (int i = 0; i < nameFileNames.size(); i++) {
 230
 231                                         bool ignore = false;
 232                                         if (nameFileNames[i] == "current") {
 233                                                 nameFileNames[i] = m->getNameFile();
 234                                                 if (nameFileNames[i] != "") {  m->mothurOut("Using " + nameFileNames[i] + " as input file for the name parameter where you had given current."); m->mothurOutEndLine(); }
 235                                                 else {
 236                                                         m->mothurOut("You have no current namefile, ignoring current."); m->mothurOutEndLine(); ignore=true;
 237                                                         //erase from file list
 238                                                         nameFileNames.erase(nameFileNames.begin()+i);
 239                                                         i--;
 240                                                 }
 241                                         }
 242
 243                                         if (!ignore) {
 244
 245                                                 if (inputDir != "") {
 246                                                         string path = m->hasPath(nameFileNames[i]);
 247                                                         //if the user has not given a path then, add inputdir. else leave path alone.
 248                                                         if (path == "") {       nameFileNames[i] = inputDir + nameFileNames[i];         }
 249                                                 }
 250
 251                                                 int ableToOpen;
 252                                                 ifstream in;
 253
 254                                                 ableToOpen = m->openInputFile(nameFileNames[i], in, "noerror");
 255
 256                                                 //if you can't open it, try default location
 257                                                 if (ableToOpen == 1) {
 258                                                         if (m->getDefaultPath() != "") { //default path is set
 259                                                                 string tryPath = m->getDefaultPath() + m->getSimpleName(nameFileNames[i]);
 260                                                                 m->mothurOut("Unable to open " + nameFileNames[i] + ". Trying default " + tryPath); m->mothurOutEndLine();
 261                                                                 ifstream in2;
 262                                                                 ableToOpen = m->openInputFile(tryPath, in2, "noerror");
 263                                                                 in2.close();
 264                                                                 nameFileNames[i] = tryPath;
 265                                                         }
 266                                                 }
 267
 268                                                 if (ableToOpen == 1) {
 269                                                         if (m->getOutputDir() != "") { //default path is set
 270                                                                 string tryPath = m->getOutputDir() + m->getSimpleName(nameFileNames[i]);
 271                                                                 m->mothurOut("Unable to open " + nameFileNames[i] + ". Trying output directory " + tryPath); m->mothurOutEndLine();
 272                                                                 ifstream in2;
 273                                                                 ableToOpen = m->openInputFile(tryPath, in2, "noerror");
 274                                                                 in2.close();
 275                                                                 nameFileNames[i] = tryPath;
 276                                                         }
 277                                                 }
 278
 279                                                 in.close();
 280
 281                                                 if (ableToOpen == 1) {
 282                                                         m->mothurOut("Unable to open " + nameFileNames[i] + ". It will be disregarded."); m->mothurOutEndLine();
 283                                                         //erase from file list
 284                                                         nameFileNames.erase(nameFileNames.begin()+i);
 285                                                         i--;
 286                                                 }
 287                                         }
 288                                 }
 289
 290                                 //make sure there is at least one valid file left
 291                                 if (nameFileNames.size() == 0) { m->mothurOut("[ERROR]: no valid name files."); m->mothurOutEndLine(); abort = true; }
 292                         }
 293
 294                         if (hasName && (nameFileNames.size() != fastaFileNames.size())) { m->mothurOut("[ERROR]: The number of namefiles does not match the number of fastafiles, please correct."); m->mothurOutEndLine(); abort=true; }
 295
 296                         //if the user changes the output directory command factory will send this info to us in the output parameter
 297                         outputDir = validParameter.validFile(parameters, "outputdir", false);           if (outputDir == "not found"){  outputDir = ""; }
 298
 299
 300                         string path;
 301                         it = parameters.find("reference");
 302                         //user has given a template file
 303                         if(it != parameters.end()){
 304                                 if (it->second == "self") { templatefile = "self"; }
 305                                 else {
 306                                         path = m->hasPath(it->second);
 307                                         //if the user has not given a path then, add inputdir. else leave path alone.
 308                                         if (path == "") {       parameters["reference"] = inputDir + it->second;                }
 309
 310                                         templatefile = validParameter.validFile(parameters, "reference", true);
 311                                         if (templatefile == "not open") { abort = true; }
 312                                         else if (templatefile == "not found") { templatefile = "";  m->mothurOut("reference is a required parameter for the chimera.slayer command."); m->mothurOutEndLine(); abort = true;  }
 313                                 }
 314                         }
 315
 316                         string temp = validParameter.validFile(parameters, "processors", false);        if (temp == "not found"){       temp = m->getProcessors();      }
 317                         m->setProcessors(temp);
 318                         convert(temp, processors);
 319
 320                         abskew = validParameter.validFile(parameters, "abskew", false); if (abskew == "not found"){     useAbskew = false;  abskew = "1.9";     }else{  useAbskew = true;  }
 321                         if (useAbskew && templatefile != "self") { m->mothurOut("The abskew parameter is only valid with template=self, ignoring."); m->mothurOutEndLine(); useAbskew = false; }
 322
 323                         temp = validParameter.validFile(parameters, "chimealns", false);                        if (temp == "not found") { temp = "f"; }
 324                         chimealns = m->isTrue(temp);
 325
 326                         minh = validParameter.validFile(parameters, "minh", false);                                             if (minh == "not found")                        { useMinH = false; minh = "0.3";                                        }       else{ useMinH = true;                   }
 327                         mindiv = validParameter.validFile(parameters, "mindiv", false);                                 if (mindiv == "not found")                      { useMindiv = false; mindiv = "0.5";                            }       else{ useMindiv = true;                 }
 328                         xn = validParameter.validFile(parameters, "xn", false);                                                 if (xn == "not found")                          { useXn = false; xn = "8.0";                                            }       else{ useXn = true;                             }
 329                         dn = validParameter.validFile(parameters, "dn", false);                                                 if (dn == "not found")                          { useDn = false; dn = "1.4";                                            }       else{ useDn = true;                             }
 330                         xa = validParameter.validFile(parameters, "xa", false);                                                 if (xa == "not found")                          { useXa = false; xa = "1";                                                      }       else{ useXa = true;                             }
 331                         chunks = validParameter.validFile(parameters, "chunks", false);                                 if (chunks == "not found")                      { useChunks = false; chunks = "4";                                      }       else{ useChunks = true;                 }
 332                         minchunk = validParameter.validFile(parameters, "minchunk", false);                             if (minchunk == "not found")            { useMinchunk = false; minchunk = "64";                         }       else{ useMinchunk = true;               }
 333                         idsmoothwindow = validParameter.validFile(parameters, "idsmoothwindow", false); if (idsmoothwindow == "not found")      { useIdsmoothwindow = false; idsmoothwindow = "32";     }       else{ useIdsmoothwindow = true; }
 334                         minsmoothid = validParameter.validFile(parameters, "minsmoothid", false);               if (minsmoothid == "not found")         { useMinsmoothid = false; minsmoothid = "0.95";         }       else{ useMinsmoothid = true;    }
 335                         maxp = validParameter.validFile(parameters, "maxp", false);                                             if (maxp == "not found")                        { useMaxp = false; maxp = "2";                                          }       else{ useMaxp = true;                   }
 336                         minlen = validParameter.validFile(parameters, "minlen", false);                                 if (minlen == "not found")                      { useMinlen = false; minlen = "10";                                     }       else{ useMinlen = true;                 }
 337                         maxlen = validParameter.validFile(parameters, "maxlen", false);                                 if (maxlen == "not found")                      { useMaxlen = false; maxlen = "10000";                          }       else{ useMaxlen = true;                 }
 338
 339                         temp = validParameter.validFile(parameters, "ucl", false);                                              if (temp == "not found") { temp = "f"; }
 340                         ucl = m->isTrue(temp);
 341
 342                         queryfract = validParameter.validFile(parameters, "queryfract", false);                 if (queryfract == "not found")          { useQueryfract = false; queryfract = "0.5";            }       else{ useQueryfract = true;             }
 343                         if (!ucl && useQueryfract) { m->mothurOut("queryfact may only be used when ucl=t, ignoring."); m->mothurOutEndLine(); useQueryfract = false; }
 344
 345                         temp = validParameter.validFile(parameters, "skipgaps", false);                                 if (temp == "not found") { temp = "t"; }
 346                         skipgaps = m->isTrue(temp);
 347
 348                         temp = validParameter.validFile(parameters, "skipgaps2", false);                                if (temp == "not found") { temp = "t"; }
 349                         skipgaps2 = m->isTrue(temp);
 350
 351                 }
 352         }
 353         catch(exception& e) {
 354                 m->errorOut(e, "ChimeraSlayerCommand", "ChimeraSlayerCommand");
 355                 exit(1);
 356         }
 357 }
 358 //***************************************************************************************************************
 359
 360 int ChimeraUchimeCommand::execute(){
 361         try{
 362                 if (abort == true) { if (calledHelp) { return 0; }  return 2;   }
 363
 364                 m->mothurOut("\nuchime by Robert C. Edgar\nhttp://drive5.com/uchime\nThis code is donated to the public domain.\n\n");
 365
 366                 for (int s = 0; s < fastaFileNames.size(); s++) {
 367
 368                         m->mothurOut("Checking sequences from " + fastaFileNames[s] + " ..." ); m->mothurOutEndLine();
 369
 370                         int start = time(NULL);
 371                         string nameFile = "";
 372
 373                         if (templatefile == "self") { //you want to run slayer with a refernce template
 374
 375                                 #ifdef USE_MPI
 376                                         int pid;
 377                                         MPI_Comm_rank(MPI_COMM_WORLD, &pid); //find out who we are
 378                                         if (pid == 0) { //you are the root process
 379                                 #endif
 380
 381                                 if (processors != 1) { m->mothurOut("When using template=self, mothur can only use 1 processor, continuing."); m->mothurOutEndLine(); processors = 1; }
 382                                 if (nameFileNames.size() != 0) { //you provided a namefile and we don't need to create one
 383                                         nameFile = nameFileNames[s];
 384                                 }else {
 385                                         m->mothurOutEndLine(); m->mothurOut("No namesfile given, running unique.seqs command to generate one."); m->mothurOutEndLine(); m->mothurOutEndLine();
 386
 387                                         //use unique.seqs to create new name and fastafile
 388                                         string inputString = "fasta=" + fastaFileNames[s];
 389                                         m->mothurOut("/******************************************/"); m->mothurOutEndLine();
 390                                         m->mothurOut("Running command: unique.seqs(" + inputString + ")"); m->mothurOutEndLine();
 391
 392                                         Command* uniqueCommand = new DeconvoluteCommand(inputString);
 393                                         uniqueCommand->execute();
 394
 395                                         map<string, vector<string> > filenames = uniqueCommand->getOutputFiles();
 396
 397                                         delete uniqueCommand;
 398
 399                                         m->mothurOut("/******************************************/"); m->mothurOutEndLine();
 400
 401                                         nameFile = filenames["name"][0];
 402                                         fastaFileNames[s] = filenames["fasta"][0];
 403                                 }
 404
 405                                 //create input file for uchime
 406                                 //read through fastafile and store info
 407                                 map<string, string> seqs;
 408                                 ifstream in;
 409                                 m->openInputFile(fastaFileNames[s], in);
 410
 411                                 while (!in.eof()) {
 412
 413                                         if (m->control_pressed) { in.close(); for (int j = 0; j < outputNames.size(); j++) {    remove(outputNames[j].c_str()); }  return 0; }
 414
 415                                         Sequence seq(in); m->gobble(in);
 416                                         seqs[seq.getName()] = seq.getAligned();
 417                                 }
 418                                 in.close();
 419
 420                                 //read namefile
 421                                 vector<seqPriorityNode> nameMapCount;
 422                                 int error = m->readNames(nameFile, nameMapCount, seqs);
 423
 424                                 if (m->control_pressed) { for (int j = 0; j < outputNames.size(); j++) {        remove(outputNames[j].c_str()); }  return 0; }
 425
 426                                 if (error == 1) { for (int j = 0; j < outputNames.size(); j++) {        remove(outputNames[j].c_str()); }  return 0; }
 427                                 if (seqs.size() != nameMapCount.size()) { m->mothurOut( "The number of sequences in your fastafile does not match the number of sequences in your namefile, aborting."); m->mothurOutEndLine(); for (int j = 0; j < outputNames.size(); j++) {  remove(outputNames[j].c_str()); }  return 0; }
 428
 429                                 sort(nameMapCount.begin(), nameMapCount.end(), compareSeqPriorityNodes);
 430
 431                                 string newFasta = fastaFileNames[s] + ".temp";
 432                                 ofstream out;
 433                                 m->openOutputFile(newFasta, out);
 434
 435                                 //print new file in order of
 436                                 for (int i = 0; i < nameMapCount.size(); i++) {
 437                                         out << ">" << nameMapCount[i].name  << "/ab=" << nameMapCount[i].numIdentical << "/" << endl << nameMapCount[i].seq << endl;
 438                                 }
 439                                 out.close();
 440
 441                                 fastaFileNames[s] = newFasta;
 442
 443                                 #ifdef USE_MPI
 444                                         }
 445                                 #endif
 446                                 if (m->control_pressed) {  for (int j = 0; j < outputNames.size(); j++) {       remove(outputNames[j].c_str()); }  return 0;    }
 447                         }
 448
 449                         if (outputDir == "") { outputDir = m->hasPath(fastaFileNames[s]);  }//if user entered a file with a path then preserve it
 450                         string outputFileName = outputDir + m->getRootName(m->getSimpleName(fastaFileNames[s])) + "uchime.chimera";
 451                         string accnosFileName = outputDir + m->getRootName(m->getSimpleName(fastaFileNames[s]))  + "uchime.accnos";
 452                         string alnsFileName = outputDir + m->getRootName(m->getSimpleName(fastaFileNames[s]))  + "uchime.alns";
 453
 454                         if (m->control_pressed) {  for (int j = 0; j < outputNames.size(); j++) {       remove(outputNames[j].c_str()); }  return 0;    }
 455
 456                         int numSeqs = 0;
 457 #if defined (__APPLE__) || (__MACH__) || (linux) || (__linux)
 458                         if(processors == 1){ numSeqs = driver(outputFileName, fastaFileNames[s], accnosFileName, alnsFileName); }
 459                         else{   numSeqs = createProcesses(outputFileName, fastaFileNames[s], accnosFileName, alnsFileName); }
 460 #else
 461                         numSeqs = driver(outputFileName, fastaFileNames[s], accnosFileName, alnsFileName);
 462 #endif
 463                         if (m->control_pressed) { for (int j = 0; j < outputNames.size(); j++) {        remove(outputNames[j].c_str()); } return 0; }
 464
 465                         //remove file made for uchime
 466                         if (templatefile == "self") {  remove(fastaFileNames[s].c_str()); }
 467
 468                         outputNames.push_back(outputFileName); outputTypes["chimera"].push_back(outputFileName);
 469                         outputNames.push_back(accnosFileName); outputTypes["accnos"].push_back(accnosFileName);
 470                         if (chimealns) { outputNames.push_back(alnsFileName); outputTypes["alns"].push_back(alnsFileName); }
 471
 472                         m->mothurOutEndLine(); m->mothurOut("It took " + toString(time(NULL) - start) + " secs to check " + toString(numSeqs) + " sequences."); m->mothurOutEndLine();
 473                 }
 474
 475                 //set accnos file as new current accnosfile
 476                 string current = "";
 477                 itTypes = outputTypes.find("accnos");
 478                 if (itTypes != outputTypes.end()) {
 479                         if ((itTypes->second).size() != 0) { current = (itTypes->second)[0]; m->setAccnosFile(current); }
 480                 }
 481
 482                 m->mothurOutEndLine();
 483                 m->mothurOut("Output File Names: "); m->mothurOutEndLine();
 484                 for (int i = 0; i < outputNames.size(); i++) {  m->mothurOut(outputNames[i]); m->mothurOutEndLine();    }
 485                 m->mothurOutEndLine();
 486
 487                 return 0;
 488
 489         }
 490         catch(exception& e) {
 491                 m->errorOut(e, "ChimeraUchimeCommand", "execute");
 492                 exit(1);
 493         }
 494 }
 495 //**********************************************************************************************************************
 496
 497 int ChimeraUchimeCommand::driver(string outputFName, string filename, string accnos, string alns){
 498         try {
 499
 500                 vector<char*> cPara;
 501
 502                 char* tempUchime = new char[8];
 503                 strcpy(tempUchime, "./uchime ");
 504                 cPara.push_back(tempUchime);
 505
 506                 char* tempIn = new char[7];
 507                 strcpy(tempIn, "--input");
 508                 cPara.push_back(tempIn);
 509                 char* temp = new char[filename.length()];
 510                 strcpy(temp, filename.c_str());
 511                 cPara.push_back(temp);
 512
 513                 //are you using a reference file
 514                 if (templatefile != "self") {
 515
 516                         //add reference file
 517                         char* tempRef = new char[4];
 518                         strcpy(tempRef, "--db");
 519                         cPara.push_back(tempRef);
 520                         char* tempR = new char[templatefile.length()];
 521                         strcpy(tempR, templatefile.c_str());
 522                         cPara.push_back(tempR);
 523                 }
 524
 525                 char* tempO = new char[11];
 526                 strcpy(tempO, "--uchimeout");
 527                 cPara.push_back(tempO);
 528                 char* tempout = new char[outputFName.length()];
 529                 strcpy(tempout, outputFName.c_str());
 530                 cPara.push_back(tempout);
 531
 532                 if (chimealns) {
 533                         char* tempA = new char[12];
 534                         strcpy(tempA, "--uchimealns");
 535                         cPara.push_back(tempA);
 536                         char* tempa = new char[alns.length()];
 537                         strcpy(tempa, alns.c_str());
 538                         cPara.push_back(tempa);
 539                 }
 540
 541                 if (useAbskew) {
 542                         char* tempskew = new char[8];
 543                         strcpy(tempskew, "--abskew");
 544                         cPara.push_back(tempskew);
 545                         char* tempSkew = new char[abskew.length()];
 546                         strcpy(tempSkew, abskew.c_str());
 547                         cPara.push_back(tempSkew);
 548                 }
 549
 550                 if (useMinH) {
 551                         char* tempminh = new char[6];
 552                         strcpy(tempminh, "--minh");
 553                         cPara.push_back(tempminh);
 554                         char* tempMinH = new char[minh.length()];
 555                         strcpy(tempMinH, minh.c_str());
 556                         cPara.push_back(tempMinH);
 557                 }
 558
 559                 if (useMindiv) {
 560                         char* tempmindiv = new char[8];
 561                         strcpy(tempmindiv, "--mindiv");
 562                         cPara.push_back(tempmindiv);
 563                         char* tempMindiv = new char[mindiv.length()];
 564                         strcpy(tempMindiv, mindiv.c_str());
 565                         cPara.push_back(tempMindiv);
 566                 }
 567
 568                 if (useXn) {
 569                         char* tempxn = new char[4];
 570                         strcpy(tempxn, "--xn");
 571                         cPara.push_back(tempxn);
 572                         char* tempXn = new char[xn.length()];
 573                         strcpy(tempXn, xn.c_str());
 574                         cPara.push_back(tempXn);
 575                 }
 576
 577                 if (useDn) {
 578                         char* tempdn = new char[4];
 579                         strcpy(tempdn, "--dn");
 580                         cPara.push_back(tempdn);
 581                         char* tempDn = new char[dn.length()];
 582                         strcpy(tempDn, dn.c_str());
 583                         cPara.push_back(tempDn);
 584                 }
 585
 586                 if (useXa) {
 587                         char* tempxa = new char[4];
 588                         strcpy(tempxa, "--xa");
 589                         cPara.push_back(tempxa);
 590                         char* tempXa = new char[xa.length()];
 591                         strcpy(tempXa, xa.c_str());
 592                         cPara.push_back(tempXa);
 593                 }
 594
 595                 if (useChunks) {
 596                         char* tempchunks = new char[8];
 597                         strcpy(tempchunks, "--chunks");
 598                         cPara.push_back(tempchunks);
 599                         char* tempChunks = new char[chunks.length()];
 600                         strcpy(tempChunks, chunks.c_str());
 601                         cPara.push_back(tempChunks);
 602                 }
 603
 604                 if (useMinchunk) {
 605                         char* tempminchunk = new char[10];
 606                         strcpy(tempminchunk, "--minchunk");
 607                         cPara.push_back(tempminchunk);
 608                         char* tempMinchunk = new char[minchunk.length()];
 609                         strcpy(tempMinchunk, minchunk.c_str());
 610                         cPara.push_back(tempMinchunk);
 611                 }
 612
 613                 if (useIdsmoothwindow) {
 614                         char* tempidsmoothwindow = new char[16];
 615                         strcpy(tempidsmoothwindow, "--idsmoothwindow");
 616                         cPara.push_back(tempidsmoothwindow);
 617                         char* tempIdsmoothwindow = new char[idsmoothwindow.length()];
 618                         strcpy(tempIdsmoothwindow, idsmoothwindow.c_str());
 619                         cPara.push_back(tempIdsmoothwindow);
 620                 }
 621
 622                 if (useMinsmoothid) {
 623                         char* tempminsmoothid = new char[13];
 624                         strcpy(tempminsmoothid, "--minsmoothid");
 625                         cPara.push_back(tempminsmoothid);
 626                         char* tempMinsmoothid = new char[minsmoothid.length()];
 627                         strcpy(tempMinsmoothid, minsmoothid.c_str());
 628                         cPara.push_back(tempMinsmoothid);
 629                 }
 630
 631                 if (useMaxp) {
 632                         char* tempmaxp = new char[6];
 633                         strcpy(tempmaxp, "--maxp");
 634                         cPara.push_back(tempmaxp);
 635                         char* tempMaxp = new char[maxp.length()];
 636                         strcpy(tempMaxp, maxp.c_str());
 637                         cPara.push_back(tempMaxp);
 638                 }
 639
 640                 if (!skipgaps) {
 641                         char* tempskipgaps = new char[14];
 642                         strcpy(tempskipgaps, "--[no]skipgaps");
 643                         cPara.push_back(tempskipgaps);
 644                 }
 645
 646                 if (!skipgaps2) {
 647                         char* tempskipgaps2 = new char[15];
 648                         strcpy(tempskipgaps2, "--[no]skipgaps2");
 649                         cPara.push_back(tempskipgaps2);
 650                 }
 651
 652                 if (useMinlen) {
 653                         char* tempminlen = new char[8];
 654                         strcpy(tempminlen, "--minlen");
 655                         cPara.push_back(tempminlen);
 656                         char* tempMinlen = new char[minlen.length()];
 657                         strcpy(tempMinlen, minlen.c_str());
 658                         cPara.push_back(tempMinlen);
 659                 }
 660
 661                 if (useMaxlen) {
 662                         char* tempmaxlen = new char[8];
 663                         strcpy(tempmaxlen, "--maxlen");
 664                         cPara.push_back(tempmaxlen);
 665                         char* tempMaxlen = new char[maxlen.length()];
 666                         strcpy(tempMaxlen, maxlen.c_str());
 667                         cPara.push_back(tempMaxlen);
 668                 }
 669
 670                 if (ucl) {
 671                         char* tempucl = new char[5];
 672                         strcpy(tempucl, "--ucl");
 673                         cPara.push_back(tempucl);
 674                 }
 675
 676                 if (useQueryfract) {
 677                         char* tempqueryfract = new char[12];
 678                         strcpy(tempqueryfract, "--queryfract");
 679                         cPara.push_back(tempqueryfract);
 680                         char* tempQueryfract = new char[queryfract.length()];
 681                         strcpy(tempQueryfract, queryfract.c_str());
 682                         cPara.push_back(tempQueryfract);
 683                 }
 684
 685
 686                 char** uchimeParameters;
 687                 uchimeParameters = new char*[cPara.size()];
 688                 for (int i = 0; i < cPara.size(); i++) {  uchimeParameters[i] = cPara[i];  }
 689                 int numArgs = cPara.size();
 690
 691                 uchime_main(numArgs, uchimeParameters);
 692
 693                 //free memory
 694                 for(int i = 0; i < cPara.size(); i++)  {  delete[] cPara[i];  }
 695                 delete[] uchimeParameters;
 696
 697                 //create accnos file from uchime results
 698                 ifstream in;
 699                 m->openInputFile(outputFName, in);
 700
 701                 ofstream out;
 702                 m->openOutputFile(accnos, out);
 703
 704                 int num = 0;
 705                 while(!in.eof()) {
 706
 707                         if (m->control_pressed) { break; }
 708
 709                         string name = "";
 710                         string chimeraFlag = "";
 711                         in >> chimeraFlag >> name;
 712
 713                         //fix name if needed
 714                         if (templatefile != "self") {
 715                                 name = name.substr(0, name.length()-1); //rip off last /
 716                                 name = name.substr(0, name.find_last_of('/'));
 717                         }
 718
 719                         for (int i = 0; i < 15; i++) {  in >> chimeraFlag; }
 720                         m->gobble(in);
 721
 722                         if (chimeraFlag == "Y") {  out << name << endl; }
 723                         num++;
 724                 }
 725                 in.close();
 726                 out.close();
 727
 728                 return num;
 729         }
 730         catch(exception& e) {
 731                 m->errorOut(e, "ChimeraUchimeCommand", "driver");
 732                 exit(1);
 733         }
 734 }
 735 /**************************************************************************************************/
 736
 737 int ChimeraUchimeCommand::createProcesses(string outputFileName, string filename, string accnos, string alns) {
 738         try {
 739
 740                 processIDS.clear();
 741                 int process = 1;
 742                 int num = 0;
 743
 744                 //break up file into multiple files
 745                 vector<string> files;
 746                 m->divideFile(filename, processors, files);
 747
 748                 if (m->control_pressed) {  return 0;  }
 749
 750 #ifdef USE_MPI
 751                 int pid, numSeqsPerProcessor;
 752                 int tag = 2001;
 753
 754                 MPI_Status status;
 755                 MPI_Comm_rank(MPI_COMM_WORLD, &pid); //find out who we are
 756                 MPI_Comm_size(MPI_COMM_WORLD, &processors);
 757
 758                 if (pid == 0) { //you are the root process
 759                         num = driver(outputFileName, files[0], accnos, alns);
 760
 761                         if (templatefile != "self") {
 762                                 //wait on chidren
 763                                 for(int j = 1; j < processors; j++) {
 764                                         int temp;
 765                                         MPI_Recv(&temp, 1, MPI_INT, j, tag, MPI_COMM_WORLD, &status);
 766                                         num += temp;
 767
 768                                         m->appendFiles((outputFileName + toString(j) + ".temp"), outputFileName);
 769                                         remove((outputFileName + toString(j) + ".temp").c_str());
 770
 771                                         m->appendFiles((accnos + toString(j) + ".temp"), accnos);
 772                                         remove((accnos + toString(j) + ".temp").c_str());
 773
 774                                         if (chimealns) {
 775                                                 m->appendFiles((alns + toString(j) + ".temp"), alns);
 776                                                 remove((alns + toString(j) + ".temp").c_str());
 777                                         }
 778                                 }
 779                         }
 780                 }else{ //you are a child process
 781                         if (templatefile != "self") { //if template=self we can only use 1 processor
 782                                 num = driver(outputFileName+toString(pid) + ".temp", files[pid], accnos+toString(pid) + ".temp", alns+toString(pid) + ".temp");
 783
 784                                 //send numSeqs to parent
 785                                 MPI_Send(&num, 1, MPI_INT, 0, tag, MPI_COMM_WORLD);
 786                         }
 787                 }
 788
 789                 MPI_Barrier(MPI_COMM_WORLD); //make everyone wait - just in case
 790 #else
 791
 792                 //loop through and create all the processes you want
 793                 while (process != processors) {
 794                         int pid = fork();
 795
 796                         if (pid > 0) {
 797                                 processIDS.push_back(pid);  //create map from line number to pid so you can append files in correct order later
 798                                 process++;
 799                         }else if (pid == 0){
 800                                 num = driver(outputFileName + toString(getpid()) + ".temp", files[process], accnos + toString(getpid()) + ".temp", alns + toString(getpid()) + ".temp");
 801
 802                                 //pass numSeqs to parent
 803                                 ofstream out;
 804                                 string tempFile = outputFileName + toString(getpid()) + ".num.temp";
 805                                 m->openOutputFile(tempFile, out);
 806                                 out << num << endl;
 807                                 out.close();
 808
 809                                 exit(0);
 810                         }else {
 811                                 m->mothurOut("[ERROR]: unable to spawn the necessary processes."); m->mothurOutEndLine();
 812                                 for (int i = 0; i < processIDS.size(); i++) { kill (processIDS[i], SIGINT); }
 813                                 exit(0);
 814                         }
 815                 }
 816
 817                 //do my part
 818                 num = driver(outputFileName, files[0], accnos, alns);
 819
 820                 //force parent to wait until all the processes are done
 821                 for (int i=0;i<processIDS.size();i++) {
 822                         int temp = processIDS[i];
 823                         wait(&temp);
 824                 }
 825
 826                 for (int i = 0; i < processIDS.size(); i++) {
 827                         ifstream in;
 828                         string tempFile =  outputFileName + toString(processIDS[i]) + ".num.temp";
 829                         m->openInputFile(tempFile, in);
 830                         if (!in.eof()) { int tempNum = 0; in >> tempNum; num += tempNum; }
 831                         in.close(); remove(tempFile.c_str());
 832                 }
 833
 834
 835                 //append output files
 836                 for(int i=0;i<processIDS[i];i++){
 837                         m->appendFiles((outputFileName + toString(processIDS[i]) + ".temp"), outputFileName);
 838                         remove((outputFileName + toString(processIDS[i]) + ".temp").c_str());
 839
 840                         m->appendFiles((accnos + toString(processIDS[i]) + ".temp"), accnos);
 841                         remove((accnos + toString(processIDS[i]) + ".temp").c_str());
 842
 843                         if (chimealns) {
 844                                 m->appendFiles((alns + toString(processIDS[i]) + ".temp"), alns);
 845                                 remove((alns + toString(processIDS[i]) + ".temp").c_str());
 846                         }
 847                 }
 848 #endif
 849                 //get rid of the file pieces.
 850                 for (int i = 0; i < files.size(); i++) { remove(files[i].c_str()); }
 851
 852                 return num;
 853         }
 854         catch(exception& e) {
 855                 m->errorOut(e, "ChimeraUchimeCommand", "createProcesses");
 856                 exit(1);
 857         }
 858 }
 859
 860 /**************************************************************************************************/
 861