chimerabellerophoncommand.cpp

   1 /*
   2  *  chimerabellerophoncommand.cpp
   3  *  Mothur
   4  *
   5  *  Created by westcott on 4/1/10.
   6  *  Copyright 2010 Schloss Lab. All rights reserved.
   7  *
   8  */
   9
  10 #include "chimerabellerophoncommand.h"
  11 #include "bellerophon.h"
  12
  13 //***************************************************************************************************************
  14
  15 ChimeraBellerophonCommand::ChimeraBellerophonCommand(string option)  {
  16         try {
  17                 abort = false;
  18
  19                 //allow user to run help
  20                 if(option == "help") { help(); abort = true; }
  21
  22                 else {
  23                         //valid paramters for this command
  24                         string Array[] =  {"fasta","filter","correction","processors","window","increment","outputdir","inputdir"};
  25                         vector<string> myArray (Array, Array+(sizeof(Array)/sizeof(string)));
  26
  27                         OptionParser parser(option);
  28                         map<string,string> parameters = parser.getParameters();
  29
  30                         ValidParameters validParameter("chimera.bellerophon");
  31                         map<string,string>::iterator it;
  32
  33                         //check to make sure all parameters are valid for command
  34                         for (it = parameters.begin(); it != parameters.end(); it++) {
  35                                 if (validParameter.isValidParameter(it->first, myArray, it->second) != true) {  abort = true;  }
  36                         }
  37
  38                         //if the user changes the input directory command factory will send this info to us in the output parameter
  39                         string inputDir = validParameter.validFile(parameters, "inputdir", false);
  40                         if (inputDir == "not found"){   inputDir = "";          }
  41
  42                         fastafile = validParameter.validFile(parameters, "fasta", false);
  43                         if (fastafile == "not found") { fastafile = ""; m->mothurOut("fasta is a required parameter for the chimera.bellerophon command."); m->mothurOutEndLine(); abort = true;  }
  44                         else {
  45                                 splitAtDash(fastafile, fastaFileNames);
  46
  47                                 //go through files and make sure they are good, if not, then disregard them
  48                                 for (int i = 0; i < fastaFileNames.size(); i++) {
  49                                         if (inputDir != "") {
  50                                                 string path = hasPath(fastaFileNames[i]);
  51                                                 //if the user has not given a path then, add inputdir. else leave path alone.
  52                                                 if (path == "") {       fastaFileNames[i] = inputDir + fastaFileNames[i];               }
  53                                         }
  54
  55                                         int ableToOpen;
  56                                         ifstream in;
  57
  58                                         #ifdef USE_MPI
  59                                                 int pid;
  60                                                 MPI_Comm_size(MPI_COMM_WORLD, &processors); //set processors to the number of mpi processes running
  61                                                 MPI_Comm_rank(MPI_COMM_WORLD, &pid); //find out who we are
  62
  63                                                 if (pid == 0) {
  64                                         #endif
  65
  66                                         ableToOpen = openInputFile(fastaFileNames[i], in, "noerror");
  67
  68                                         //if you can't open it, try default location
  69                                         if (ableToOpen == 1) {
  70                                                 if (m->getDefaultPath() != "") { //default path is set
  71                                                         string tryPath = m->getDefaultPath() + getSimpleName(fastaFileNames[i]);
  72                                                         m->mothurOut("Unable to open " + fastaFileNames[i] + ". Trying default " + tryPath); m->mothurOutEndLine();
  73                                                         ableToOpen = openInputFile(tryPath, in, "noerror");
  74                                                         fastaFileNames[i] = tryPath;
  75                                                 }
  76                                         }
  77                                         in.close();
  78
  79                                         #ifdef USE_MPI
  80                                                         for (int j = 1; j < processors; j++) {
  81                                                                 MPI_Send(&ableToOpen, 1, MPI_INT, j, 2001, MPI_COMM_WORLD);
  82                                                         }
  83                                                 }else{
  84                                                         MPI_Status status;
  85                                                         MPI_Recv(&ableToOpen, 1, MPI_INT, 0, 2001, MPI_COMM_WORLD, &status);
  86                                                 }
  87
  88                                         #endif
  89
  90                                         if (ableToOpen == 1) {
  91                                                 m->mothurOut("Unable to open " + fastaFileNames[i] + ". It will be disregarded."); m->mothurOutEndLine();
  92                                                 //erase from file list
  93                                                 fastaFileNames.erase(fastaFileNames.begin()+i);
  94                                                 i--;
  95                                         }
  96
  97                                 }
  98
  99                                 //make sure there is at least one valid file left
 100                                 if (fastaFileNames.size() == 0) { m->mothurOut("no valid files."); m->mothurOutEndLine(); abort = true; }
 101                         }
 102
 103                         //if the user changes the output directory command factory will send this info to us in the output parameter
 104                         outputDir = validParameter.validFile(parameters, "outputdir", false);           if (outputDir == "not found"){
 105                                 outputDir = "";
 106                                 outputDir += hasPath(fastafile); //if user entered a file with a path then preserve it
 107                         }
 108
 109                         string temp;
 110                         temp = validParameter.validFile(parameters, "filter", false);                   if (temp == "not found") { temp = "F"; }
 111                         filter = isTrue(temp);
 112
 113                         temp = validParameter.validFile(parameters, "correction", false);               if (temp == "not found") { temp = "T"; }
 114                         correction = isTrue(temp);
 115
 116                         temp = validParameter.validFile(parameters, "processors", false);               if (temp == "not found") { temp = "1"; }
 117                         convert(temp, processors);
 118
 119                         temp = validParameter.validFile(parameters, "window", false);                   if (temp == "not found") { temp = "0"; }
 120                         convert(temp, window);
 121
 122                         temp = validParameter.validFile(parameters, "increment", false);                if (temp == "not found") { temp = "25"; }
 123                         convert(temp, increment);
 124                 }
 125         }
 126         catch(exception& e) {
 127                 m->errorOut(e, "ChimeraBellerophonCommand", "ChimeraBellerophonCommand");
 128                 exit(1);
 129         }
 130 }
 131 //**********************************************************************************************************************
 132
 133 void ChimeraBellerophonCommand::help(){
 134         try {
 135                 m->mothurOut("The chimera.bellerophon command reads a fastafile and creates list of potentially chimeric sequences.\n");
 136                 m->mothurOut("The chimera.bellerophon command parameters are fasta, filter, correction, processors, window, increment. The fasta parameter is required.\n");
 137                 m->mothurOut("The fasta parameter is required.  You may enter multiple fasta files by separating their names with dashes. ie. fasta=abrecovery.fasta-amzon.fasta \n");
 138                 m->mothurOut("The filter parameter allows you to specify if you would like to apply a vertical and 50% soft filter, default=false. \n");
 139                 m->mothurOut("The correction parameter allows you to put more emphasis on the distance between highly similar sequences and less emphasis on the differences between remote homologs, default=true.\n");
 140                 m->mothurOut("The processors parameter allows you to specify how many processors you would like to use.  The default is 1. \n");
 141                 #ifdef USE_MPI
 142                 m->mothurOut("When using MPI, the processors parameter is set to the number of MPI processes running. \n");
 143                 #endif
 144                 m->mothurOut("The window parameter allows you to specify the window size for searching for chimeras, default is 1/4 sequence length. \n");
 145                 m->mothurOut("The increment parameter allows you to specify how far you move each window while finding chimeric sequences, default is 25.\n");
 146                 m->mothurOut("chimera.bellerophon(fasta=yourFastaFile, filter=yourFilter, correction=yourCorrection, processors=yourProcessors) \n");
 147                 m->mothurOut("Example: chimera.bellerophon(fasta=AD.align, filter=True, correction=true, window=200) \n");
 148                 m->mothurOut("Note: No spaces between parameter labels (i.e. fasta), '=' and parameters (i.e.yourFastaFile).\n\n");
 149         }
 150         catch(exception& e) {
 151                 m->errorOut(e, "ChimeraBellerophonCommand", "help");
 152                 exit(1);
 153         }
 154 }
 155
 156 //***************************************************************************************************************
 157
 158 ChimeraBellerophonCommand::~ChimeraBellerophonCommand(){        /*      do nothing      */      }
 159
 160 //***************************************************************************************************************
 161
 162 int ChimeraBellerophonCommand::execute(){
 163         try{
 164
 165                 if (abort == true) { return 0; }
 166
 167                 for (int i = 0; i < fastaFileNames.size(); i++) {
 168
 169                         m->mothurOut("Checking sequences from " + fastaFileNames[i] + " ..." ); m->mothurOutEndLine();
 170
 171                         int start = time(NULL);
 172
 173                         chimera = new Bellerophon(fastaFileNames[i], filter, correction, window, increment, processors, outputDir);
 174
 175                         string outputFileName = outputDir + getRootName(getSimpleName(fastaFileNames[i])) +  "bellerophon.chimeras";
 176                         string accnosFileName = outputDir + getRootName(getSimpleName(fastaFileNames[i])) + "bellerophon.accnos";
 177
 178                         chimera->getChimeras();
 179
 180                         if (m->control_pressed) { delete chimera; for (int i = 0; i < outputNames.size(); i++) {        remove(outputNames[i].c_str()); } return 0;     }
 181
 182                 #ifdef USE_MPI
 183                         MPI_File outMPI;
 184                         MPI_File outMPIAccnos;
 185
 186                         int outMode=MPI_MODE_CREATE|MPI_MODE_WRONLY;
 187
 188                         char outFilename[1024];
 189                         strcpy(outFilename, accnosFileName.c_str());
 190
 191                         char FileName[1024];
 192                         strcpy(FileName, outputFileName.c_str());
 193
 194                         MPI_File_open(MPI_COMM_WORLD, FileName, outMode, MPI_INFO_NULL, &outMPI);  //comm, filename, mode, info, filepointer
 195                         MPI_File_open(MPI_COMM_WORLD, outFilename, outMode, MPI_INFO_NULL, &outMPIAccnos);
 196
 197                         numSeqs = chimera->print(outMPI, outMPIAccnos);
 198
 199                         MPI_File_close(&outMPI);
 200                         MPI_File_close(&outMPIAccnos);
 201
 202                 #else
 203
 204                         ofstream out;
 205                         openOutputFile(outputFileName, out);
 206
 207                         ofstream out2;
 208                         openOutputFile(accnosFileName, out2);
 209
 210                         numSeqs = chimera->print(out, out2);
 211                         out.close();
 212                         out2.close();
 213
 214                 #endif
 215
 216                         if (m->control_pressed) { remove(accnosFileName.c_str()); remove(outputFileName.c_str()); for (int i = 0; i < outputNames.size(); i++) {        remove(outputNames[i].c_str()); } delete chimera;       return 0;       }
 217
 218                         m->mothurOutEndLine(); m->mothurOut("It took " + toString(time(NULL) - start) + " secs to check " + toString(numSeqs) + " sequences."); m->mothurOutEndLine(); m->mothurOutEndLine();
 219
 220                         outputNames.push_back(outputFileName);
 221                         outputNames.push_back(accnosFileName);
 222
 223                         delete chimera;
 224                 }
 225
 226                 m->mothurOutEndLine();
 227                 m->mothurOut("Output File Names: "); m->mothurOutEndLine();
 228                 for (int i = 0; i < outputNames.size(); i++) {  m->mothurOut(outputNames[i]); m->mothurOutEndLine();    }
 229                 m->mothurOutEndLine();
 230
 231                 return 0;
 232
 233         }
 234         catch(exception& e) {
 235                 m->errorOut(e, "ChimeraBellerophonCommand", "execute");
 236                 exit(1);
 237         }
 238 }
 239 //**********************************************************************************************************************
 240