/*============================================================================ CMake - Cross Platform Makefile Generator Copyright 2000-2009 Kitware, Inc., Insight Software Consortium Distributed under the OSI-approved BSD License (the "License"); see accompanying file Copyright.txt for details. This software is distributed WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more information. ============================================================================*/ #include "cmSetCommand.h" // cmSetCommand bool cmSetCommand ::InitialPass(std::vector<std::string> const& args, cmExecutionStatus &) { if(args.size() < 1 ) { this->SetError("called with incorrect number of arguments"); return false; } // watch for ENV signatures const char* variable = args[0].c_str(); // VAR is always first if (!strncmp(variable,"ENV{",4) && strlen(variable) > 5) { // what is the variable name char *varName = new char [strlen(variable)]; strncpy(varName,variable+4,strlen(variable)-5); varName[strlen(variable)-5] = '\0'; std::string putEnvArg = varName; putEnvArg += "="; // what is the current value if any const char *currValue = getenv(varName); delete [] varName; // will it be set to something, then set it if (args.size() > 1 && args[1].size()) { // but only if it is different from current value if (!currValue || strcmp(currValue,args[1].c_str())) { putEnvArg += args[1]; cmSystemTools::PutEnv(putEnvArg.c_str()); } return true; } // if it will be cleared, then clear it if it isn;t already clear if (currValue) { cmSystemTools::PutEnv(putEnvArg.c_str()); } return true; } // SET (VAR) // Removes the definition of VAR. if (args.size() == 1) { this->Makefile->RemoveDefinition(args[0].c_str()); return true; } // here are the remaining options // SET (VAR value ) // SET (VAR CACHE TYPE "doc String" [FORCE]) // SET (VAR value CACHE TYPE "doc string" [FORCE]) std::string value; // optional bool cache = false; // optional bool force = false; // optional bool parentScope = false; cmCacheManager::CacheEntryType type = cmCacheManager::STRING; // required if cache const char* docstring = 0; // required if cache unsigned int ignoreLastArgs = 0; // look for PARENT_SCOPE argument if (args.size() > 1 && args[args.size()-1] == "PARENT_SCOPE") { parentScope = true; ignoreLastArgs++; } else { // look for FORCE argument if (args.size() > 4 && args[args.size()-1] == "FORCE") { force = true; ignoreLastArgs++; } // check for cache signature if (args.size() > 3 && args[args.size() - 3 - (force ? 1 : 0)] == "CACHE") { cache = true; ignoreLastArgs+=3; } } // collect any values into a single semi-colon separated value list if(static_cast<unsigned short>(args.size()) > static_cast<unsigned short>(1 + ignoreLastArgs)) { value = args[1]; size_t endPos = args.size() - ignoreLastArgs; for(size_t i = 2; i < endPos; ++i) { value += ";"; value += args[i]; } } if (parentScope) { if (value.empty()) { this->Makefile->RaiseScope(variable, 0); } else { this->Makefile->RaiseScope(variable, value.c_str()); } return true; } // we should be nice and try to catch some simple screwups if the last or // next to last args are CACHE then they screwed up. If they used FORCE // without CACHE they screwed up if ((args[args.size() - 1] == "CACHE") || (args.size() > 1 && args[args.size() - 2] == "CACHE") || (force && !cache)) { this->SetError("given invalid arguments for CACHE mode."); return false; } if(cache) { std::string::size_type cacheStart = args.size() - 3 - (force ? 1 : 0); type = cmCacheManager::StringToType(args[cacheStart+1].c_str()); docstring = args[cacheStart+2].c_str(); } // see if this is already in the cache cmCacheManager::CacheIterator it = this->Makefile->GetCacheManager()->GetCacheIterator(variable); if(!it.IsAtEnd() && (it.GetType() != cmCacheManager::UNINITIALIZED)) { // if the set is trying to CACHE the value but the value // is already in the cache and the type is not internal // then leave now without setting any definitions in the cache // or the makefile if(cache && type != cmCacheManager::INTERNAL && !force) { return true; } } // if it is meant to be in the cache then define it in the cache if(cache) { this->Makefile->AddCacheDefinition(variable, value.c_str(), docstring, type, force); } else { // add the definition this->Makefile->AddDefinition(variable, value.c_str()); } return true; }