CMakeLua/Source/cmWhileCommand.cxx

   1 /*=========================================================================
   2
   3   Program:   CMake - Cross-Platform Makefile Generator
   4   Module:    $RCSfile: cmWhileCommand.cxx,v $
   5   Language:  C++
   6   Date:      $Date: 2008/01/23 15:27:59 $
   7   Version:   $Revision: 1.10 $
   8
   9   Copyright (c) 2002 Kitware, Inc., Insight Consortium.  All rights reserved.
  10   See Copyright.txt or http://www.cmake.org/HTML/Copyright.html for details.
  11
  12      This software is distributed WITHOUT ANY WARRANTY; without even
  13      the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14      PURPOSE.  See the above copyright notices for more information.
  15
  16 =========================================================================*/
  17 #include "cmWhileCommand.h"
  18 #include "cmIfCommand.h"
  19
  20 bool cmWhileFunctionBlocker::
  21 IsFunctionBlocked(const cmListFileFunction& lff, cmMakefile &mf,
  22                   cmExecutionStatus &inStatus)
  23 {
  24   // Prevent recusion and don't let this blocker block its own
  25   // commands.
  26   if (this->Executing)
  27     {
  28     return false;
  29     }
  30
  31   // at end of for each execute recorded commands
  32   if (!cmSystemTools::Strucmp(lff.Name.c_str(),"while"))
  33     {
  34     // record the number of while commands past this one
  35     this->Depth++;
  36     }
  37   else if (!cmSystemTools::Strucmp(lff.Name.c_str(),"endwhile"))
  38     {
  39     // if this is the endwhile for this while loop then execute
  40     if (!this->Depth)
  41       {
  42       char* errorString = 0;
  43
  44       std::vector<std::string> expandedArguments;
  45       mf.ExpandArguments(this->Args, expandedArguments);
  46       bool isTrue =
  47         cmIfCommand::IsTrue(expandedArguments,&errorString,&mf);
  48
  49       this->Executing = true;
  50       while (isTrue)
  51         {
  52         // Invoke all the functions that were collected in the block.
  53         for(unsigned int c = 0; c < this->Functions.size(); ++c)
  54           {
  55           cmExecutionStatus status;
  56           mf.ExecuteCommand(this->Functions[c],status);
  57           if (status.GetReturnInvoked())
  58             {
  59             inStatus.SetReturnInvoked(true);
  60             mf.RemoveFunctionBlocker(lff);
  61             return true;
  62             }
  63           if (status.GetBreakInvoked())
  64             {
  65             mf.RemoveFunctionBlocker(lff);
  66             return true;
  67             }
  68           }
  69         expandedArguments.clear();
  70         mf.ExpandArguments(this->Args, expandedArguments);
  71         isTrue =
  72           cmIfCommand::IsTrue(expandedArguments,&errorString,&mf);
  73         }
  74       mf.RemoveFunctionBlocker(lff);
  75       return true;
  76       }
  77     else
  78       {
  79       // decrement for each nested while that ends
  80       this->Depth--;
  81       }
  82     }
  83
  84   // record the command
  85   this->Functions.push_back(lff);
  86
  87   // always return true
  88   return true;
  89 }
  90
  91 bool cmWhileFunctionBlocker::
  92 ShouldRemove(const cmListFileFunction& lff, cmMakefile& mf)
  93 {
  94   if(!cmSystemTools::Strucmp(lff.Name.c_str(),"endwhile"))
  95     {
  96     if (lff.Arguments == this->Args
  97         || cmSystemTools::IsOn
  98         (mf.GetPropertyOrDefinition("CMAKE_ALLOW_LOOSE_LOOP_CONSTRUCTS")))
  99       {
 100       return true;
 101       }
 102     }
 103   return false;
 104 }
 105
 106 void cmWhileFunctionBlocker::
 107 ScopeEnded(cmMakefile &mf)
 108 {
 109   cmSystemTools::Error(
 110     "The end of a CMakeLists file was reached with a WHILE statement that "
 111     "was not closed properly. Within the directory: ",
 112     mf.GetCurrentDirectory());
 113 }
 114
 115 bool cmWhileCommand
 116 ::InvokeInitialPass(const std::vector<cmListFileArgument>& args,
 117                     cmExecutionStatus &)
 118 {
 119   if(args.size() < 1)
 120     {
 121     this->SetError("called with incorrect number of arguments");
 122     return false;
 123     }
 124
 125   // create a function blocker
 126   cmWhileFunctionBlocker *f = new cmWhileFunctionBlocker();
 127   f->Args = args;
 128   this->Makefile->AddFunctionBlocker(f);
 129
 130   return true;
 131 }
 132