// file      : build2/cc/utility.cxx -*- C++ -*-
// copyright : Copyright (c) 2014-2017 Code Synthesis Ltd
// license   : MIT; see accompanying LICENSE file

#include <build2/cc/utility>

#include <build2/variable>
#include <build2/algorithm> // search()

#include <build2/bin/target>

using namespace std;

namespace build2
{
  namespace cc
  {
    using namespace bin;

    lorder
    link_order (const scope& bs, otype ot)
    {
      // Initialize to suppress 'may be used uninitialized' warning produced
      // by MinGW GCC 5.4.0.
      //
      const char* var (nullptr);

      switch (ot)
      {
      case otype::e: var = "bin.exe.lib";  break;
      case otype::a: var = "bin.liba.lib"; break;
      case otype::s: var = "bin.libs.lib"; break;
      }

      const auto& v (cast<strings> (bs[var]));
      return v[0] == "shared"
        ? v.size () > 1 && v[1] == "static" ? lorder::s_a : lorder::s
        : v.size () > 1 && v[1] == "shared" ? lorder::a_s : lorder::a;
    }

    const target&
    link_member (const bin::lib& l, lorder lo)
    {
      bool ls (true);
      const string& at (cast<string> (l["bin.lib"])); // Available members.

      switch (lo)
      {
      case lorder::a:
      case lorder::a_s:
        ls = false; // Fall through.
      case lorder::s:
      case lorder::s_a:
        {
          if (ls ? at == "static" : at == "shared")
          {
            if (lo == lorder::a_s || lo == lorder::s_a)
              ls = !ls;
            else
              assert (false);
          }
        }
      }

      target* r (ls ? static_cast<target*> (l.s) : l.a);

      assert (r != nullptr);

      return *r;
    }

    target&
    link_member (bin::lib& l, lorder lo)
    {
      bool ls (true);
      const string& at (cast<string> (l["bin.lib"])); // Available members.

      switch (lo)
      {
      case lorder::a:
      case lorder::a_s:
        ls = false; // Fall through.
      case lorder::s:
      case lorder::s_a:
        {
          if (ls ? at == "static" : at == "shared")
          {
            if (lo == lorder::a_s || lo == lorder::s_a)
              ls = !ls;
            else
              fail << (ls ? "shared" : "static") << " variant of " << l
                   << " is not available";
          }
        }
      }

      target* r (ls ? static_cast<target*> (l.s) : l.a);

      if (r == nullptr)
        r = &search (ls ? libs::static_type : liba::static_type,
                     prerequisite_key {nullopt, l.key (), nullptr});

      return *r;
    }
  }
}