cmLocalCommonGenerator.cxx 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112
  1. /* Distributed under the OSI-approved BSD 3-Clause License. See accompanying
  2. file Copyright.txt or https://cmake.org/licensing for details. */
  3. #include "cmLocalCommonGenerator.h"
  4. #include <utility>
  5. #include <vector>
  6. #include "cmGeneratorTarget.h"
  7. #include "cmMakefile.h"
  8. #include "cmOutputConverter.h"
  9. #include "cmProperty.h"
  10. #include "cmState.h"
  11. #include "cmStateDirectory.h"
  12. #include "cmStateSnapshot.h"
  13. #include "cmStringAlgorithms.h"
  14. class cmGlobalGenerator;
  15. cmLocalCommonGenerator::cmLocalCommonGenerator(cmGlobalGenerator* gg,
  16. cmMakefile* mf, WorkDir wd)
  17. : cmLocalGenerator(gg, mf)
  18. , WorkingDirectory(wd)
  19. {
  20. this->ConfigNames =
  21. this->Makefile->GetGeneratorConfigs(cmMakefile::IncludeEmptyConfig);
  22. }
  23. cmLocalCommonGenerator::~cmLocalCommonGenerator() = default;
  24. std::string const& cmLocalCommonGenerator::GetWorkingDirectory() const
  25. {
  26. if (this->WorkingDirectory == WorkDir::TopBin) {
  27. return this->GetState()->GetBinaryDirectory();
  28. }
  29. return this->StateSnapshot.GetDirectory().GetCurrentBinary();
  30. }
  31. std::string cmLocalCommonGenerator::MaybeRelativeToWorkDir(
  32. std::string const& path) const
  33. {
  34. if (this->WorkingDirectory == WorkDir::TopBin) {
  35. return this->MaybeRelativeToTopBinDir(path);
  36. }
  37. return this->MaybeRelativeToCurBinDir(path);
  38. }
  39. std::string cmLocalCommonGenerator::GetTargetFortranFlags(
  40. cmGeneratorTarget const* target, std::string const& config)
  41. {
  42. std::string flags;
  43. // Enable module output if necessary.
  44. this->AppendFlags(
  45. flags, this->Makefile->GetSafeDefinition("CMAKE_Fortran_MODOUT_FLAG"));
  46. // Add a module output directory flag if necessary.
  47. std::string mod_dir =
  48. target->GetFortranModuleDirectory(this->GetWorkingDirectory());
  49. if (!mod_dir.empty()) {
  50. mod_dir = this->ConvertToOutputFormat(
  51. this->MaybeRelativeToWorkDir(mod_dir), cmOutputConverter::SHELL);
  52. } else {
  53. mod_dir =
  54. this->Makefile->GetSafeDefinition("CMAKE_Fortran_MODDIR_DEFAULT");
  55. }
  56. if (!mod_dir.empty()) {
  57. std::string modflag = cmStrCat(
  58. this->Makefile->GetRequiredDefinition("CMAKE_Fortran_MODDIR_FLAG"),
  59. mod_dir);
  60. this->AppendFlags(flags, modflag);
  61. // Some compilers do not search their own module output directory
  62. // for using other modules. Add an include directory explicitly
  63. // for consistency with compilers that do search it.
  64. std::string incflag =
  65. this->Makefile->GetSafeDefinition("CMAKE_Fortran_MODDIR_INCLUDE_FLAG");
  66. if (!incflag.empty()) {
  67. incflag = cmStrCat(incflag, mod_dir);
  68. this->AppendFlags(flags, incflag);
  69. }
  70. }
  71. // If there is a separate module path flag then duplicate the
  72. // include path with it. This compiler does not search the include
  73. // path for modules.
  74. if (cmProp modpath_flag =
  75. this->Makefile->GetDefinition("CMAKE_Fortran_MODPATH_FLAG")) {
  76. std::vector<std::string> includes;
  77. this->GetIncludeDirectories(includes, target, "C", config);
  78. for (std::string const& id : includes) {
  79. std::string flg =
  80. cmStrCat(*modpath_flag,
  81. this->ConvertToOutputFormat(id, cmOutputConverter::SHELL));
  82. this->AppendFlags(flags, flg);
  83. }
  84. }
  85. return flags;
  86. }
  87. void cmLocalCommonGenerator::ComputeObjectFilenames(
  88. std::map<cmSourceFile const*, std::string>& mapping,
  89. cmGeneratorTarget const* gt)
  90. {
  91. // Determine if these object files should use a custom extension
  92. char const* custom_ext = gt->GetCustomObjectExtension();
  93. for (auto& si : mapping) {
  94. cmSourceFile const* sf = si.first;
  95. bool keptSourceExtension;
  96. si.second = this->GetObjectFileNameWithoutTarget(
  97. *sf, gt->ObjectDirectory, &keptSourceExtension, custom_ext);
  98. }
  99. }