| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 | # @private
module CompilerConstants
  GNU_GCC_VERSIONS = %w[4.3 4.4 4.5 4.6 4.7 4.8 4.9 5 6 7].freeze
  GNU_GCC_REGEXP = /^gcc-(4\.[3-9]|[5-7])$/
  COMPILER_SYMBOL_MAP = {
    "gcc-4.0"    => :gcc_4_0,
    "gcc-4.2"    => :gcc_4_2,
    "clang"      => :clang,
    "llvm_clang" => :llvm_clang,
  }.freeze
  COMPILERS = COMPILER_SYMBOL_MAP.values +
              GNU_GCC_VERSIONS.map { |n| "gcc-#{n}" }
end
class CompilerFailure
  attr_reader :name
  def version(val = nil)
    if val
      @version = Version.parse(val.to_s)
    else
      @version
    end
  end
  # Allows Apple compiler `fails_with` statements to keep using `build`
  # even though `build` and `version` are the same internally
  alias build version
  # The cause is no longer used so we need not hold a reference to the string
  def cause(_); end
  def self.for_standard(standard)
    COLLECTIONS.fetch(standard) do
      raise ArgumentError, "\"#{standard}\" is not a recognized standard"
    end
  end
  def self.create(spec, &block)
    # Non-Apple compilers are in the format fails_with compiler => version
    if spec.is_a?(Hash)
      _, major_version = spec.first
      name = "gcc-#{major_version}"
      # so fails_with :gcc => '4.8' simply marks all 4.8 releases incompatible
      version = "#{major_version}.999"
    else
      name = spec
      version = 9999
    end
    new(name, version, &block)
  end
  def initialize(name, version, &block)
    @name = name
    @version = Version.parse(version.to_s)
    instance_eval(&block) if block_given?
  end
  def fails_with?(compiler)
    name == compiler.name && version >= compiler.version
  end
  def inspect
    "#<#{self.class.name}: #{name} #{version}>"
  end
  COLLECTIONS = {
    cxx11: [
      create(:gcc_4_0),
      create(:gcc_4_2),
      create(:clang) { build 425 },
      create(gcc: "4.3"),
      create(gcc: "4.4"),
      create(gcc: "4.5"),
      create(gcc: "4.6"),
    ],
    cxx14: [
      create(:clang) { build 600 },
      create(:gcc_4_0),
      create(:gcc_4_2),
      create(gcc: "4.3"),
      create(gcc: "4.4"),
      create(gcc: "4.5"),
      create(gcc: "4.6"),
      create(gcc: "4.7"),
      create(gcc: "4.8"),
    ],
    openmp: [
      create(:clang),
    ],
  }.freeze
end
class CompilerSelector
  include CompilerConstants
  Compiler = Struct.new(:name, :version)
  COMPILER_PRIORITY = {
    clang: [:clang, :gcc_4_2, :gnu, :gcc_4_0, :llvm_clang],
    gcc_4_2: [:gcc_4_2, :gnu, :clang, :gcc_4_0],
    gcc_4_0: [:gcc_4_0, :gcc_4_2, :gnu, :clang],
  }.freeze
  def self.select_for(formula, compilers = self.compilers)
    new(formula, DevelopmentTools, compilers).compiler
  end
  def self.compilers
    COMPILER_PRIORITY.fetch(DevelopmentTools.default_compiler)
  end
  attr_reader :formula, :failures, :versions, :compilers
  def initialize(formula, versions, compilers)
    @formula = formula
    @failures = formula.compiler_failures
    @versions = versions
    @compilers = compilers
  end
  def compiler
    find_compiler { |c| return c.name unless fails_with?(c) }
    raise CompilerSelectionError, formula
  end
  private
  def find_compiler
    compilers.each do |compiler|
      case compiler
      when :gnu
        GNU_GCC_VERSIONS.reverse_each do |v|
          name = "gcc-#{v}"
          version = compiler_version(name)
          yield Compiler.new(name, version) unless version.null?
        end
      when :llvm
        next # no-op. DSL supported, compiler is not.
      else
        version = compiler_version(compiler)
        yield Compiler.new(compiler, version) unless version.null?
      end
    end
  end
  def fails_with?(compiler)
    failures.any? { |failure| failure.fails_with?(compiler) }
  end
  def compiler_version(name)
    case name
    when GNU_GCC_REGEXP
      versions.non_apple_gcc_version(name)
    else
      versions.send("#{name}_build_version")
    end
  end
end
 |