Add support for build configuration class inheritance

1 files changed, 0 insertions, 347 deletions

diff --git a/mod/build-config.cxx b/mod/build-config.cxx
deleted file mode 100644
index 7e1416d..0000000
--- a/mod/build-config.cxx
+++ /dev/null
@@ -1,347 +0,0 @@
-// file      : mod/build-config.cxx -*- C++ -*-
-// copyright : Copyright (c) 2014-2018 Code Synthesis Ltd
-// license   : MIT; see accompanying LICENSE file
-
-#include <mod/build-config.hxx>
-
-#include <map>
-#include <sstream>
-#include <algorithm> // replace()
-
-#include <libbutl/sha256.mxx>
-#include <libbutl/utility.mxx>    // throw_generic_error(), alpha(), etc.
-#include <libbutl/openssl.mxx>
-#include <libbutl/filesystem.mxx>
-
-#include <web/mime-url-encoding.hxx>
-
-#include <mod/utility.hxx>
-
-namespace brep
-{
-  using namespace std;
-  using namespace web;
-  using namespace butl;
-  using namespace bbot;
-
-  shared_ptr<const build_configs>
-  shared_build_config (const path& p)
-  {
-    static map<path, weak_ptr<build_configs>> configs;
-
-    auto i (configs.find (p));
-    if (i != configs.end ())
-    {
-      if (shared_ptr<build_configs> c = i->second.lock ())
-        return c;
-    }
-
-    shared_ptr<build_configs> c (
-      make_shared<build_configs> (parse_buildtab (p)));
-
-    configs[p] = c;
-    return c;
-  }
-
-  shared_ptr<const bot_agent_keys>
-  shared_bot_agent_keys (const options::openssl_options& o, const dir_path& d)
-  {
-    static map<dir_path, weak_ptr<bot_agent_keys>> keys;
-
-    auto i (keys.find (d));
-    if (i != keys.end ())
-    {
-      if (shared_ptr<bot_agent_keys> k = i->second.lock ())
-        return k;
-    }
-
-    shared_ptr<bot_agent_keys> ak (make_shared<bot_agent_keys> ());
-
-    // Intercept exception handling to make error descriptions more
-    // informative.
-    //
-    // Path of the key being converted. Used for diagnostics.
-    //
-    path p;
-
-    try
-    {
-      for (const dir_entry& de: dir_iterator (d, false /* ignore_dangling */))
-      {
-        if (de.path ().extension () == "pem" &&
-            de.type () == entry_type::regular)
-        {
-          p = d / de.path ();
-
-          openssl os (p, path ("-"), 2,
-                      process_env (o.openssl (), o.openssl_envvar ()),
-                      "pkey",
-                      o.openssl_option (), "-pubin", "-outform", "DER");
-
-          string fp (sha256 (os.in).string ());
-          os.in.close ();
-
-          if (!os.wait ())
-            throw io_error ("");
-
-          ak->emplace (move (fp), move (p));
-        }
-      }
-    }
-    catch (const io_error&)
-    {
-      ostringstream os;
-      os << "unable to convert bbot agent pubkey " << p;
-      throw_generic_error (EIO, os.str ().c_str ());
-    }
-    catch (const process_error& e)
-    {
-      ostringstream os;
-      os << "unable to convert bbot agent pubkey " << p;
-      throw_generic_error (e.code ().value (), os.str ().c_str ());
-    }
-    catch (const system_error& e)
-    {
-      ostringstream os;
-      os<< "unable to iterate over agents keys directory '" << d << "'";
-      throw_generic_error (e.code ().value (), os.str ().c_str ());
-    }
-
-    keys[d] = ak;
-    return ak;
-  }
-
-  string
-  build_log_url (const string& host, const dir_path& root,
-                 const build& b,
-                 const string* op)
-  {
-    // Note that '+' is the only package version character that potentially
-    // needs to be url-encoded, and only in the query part of the URL. We embed
-    // the package version into the URL path part and so don't encode it.
-    //
-    string url (host + tenant_dir (root, b.tenant).representation () +
-                mime_url_encode (b.package_name.string (), false) + '/' +
-                b.package_version.string () + "/log/" +
-                mime_url_encode (b.configuration, false) + '/' +
-                b.toolchain_version.string ());
-
-    if (op != nullptr)
-    {
-      url += '/';
-      url += *op;
-    }
-
-    return url;
-  }
-
-  string
-  force_rebuild_url (const string& host, const dir_path& root, const build& b)
-  {
-    // Note that '+' is the only package version character that potentially
-    // needs to be url-encoded, and only in the query part of the URL. However
-    // we embed the package version into the URL query part, where it is not
-    // encoded by design.
-    //
-    return host + tenant_dir (root, b.tenant).string () +
-      "?build-force&pn=" + mime_url_encode (b.package_name.string ()) +
-      "&pv=" + b.package_version.string () +
-      "&cf=" + mime_url_encode (b.configuration) +
-      "&tc=" + b.toolchain_version.string () + "&reason=";
-  }
-
-  bool
-  exclude (const build_class_exprs& exprs,
-           const build_constraints& constrs,
-           const build_config& cfg,
-           string* reason)
-  {
-    // Save the first sentence of the reason, lower-case the first letter if
-    // the beginning looks like a word (all subsequent characters until a
-    // whitespace are lower-case letters).
-    //
-    auto sanitize = [] (const string& reason)
-    {
-      string r (reason.substr (0, reason.find ('.')));
-
-      char c (r[0]); // Can be '\0'.
-      if (alpha (c) && c == ucase (c))
-      {
-        bool word (true);
-
-        for (size_t i (1);
-             i != r.size () && (c = r[i]) != ' ' && c != '\t' && c != '\n';
-             ++i)
-        {
-          // Is not a word if contains a non-letter or an upper-case letter.
-          //
-          if (!alpha (c) || c == ucase (c))
-          {
-            word = false;
-            break;
-          }
-        }
-
-        if (word)
-          r[0] = lcase (r[0]);
-      }
-
-      return r;
-    };
-
-    bool r (false);
-
-    // First, match the configuration against the package underlying build
-    // class set and expressions.
-    //
-    // Determine the underlying class set. Note that in the future we can
-    // potentially extend the underlying set with the special classes.
-    //
-    build_class_expr ucs (
-      !exprs.empty () && !exprs.front ().underlying_classes.empty ()
-      ? exprs.front ()
-      : build_class_expr ("default", "Default"));
-
-    // Transform the combined package build configuration class expression,
-    // making the underlying class set a starting set for the original
-    // expression and a restricting set, simultaneously. For example, for the
-    // expression:
-    //
-    // default legacy : -msvc
-    //
-    // the resulting expression will be:
-    //
-    // +default +legacy -msvc &( +default +legacy )
-    //
-    //
-    build_class_exprs es;
-    es.emplace_back (ucs.underlying_classes, '+', ucs.comment);
-    es.insert       (es.end (), exprs.begin (), exprs.end ());
-    es.emplace_back (ucs.underlying_classes, '&', ucs.comment);
-
-    // We will use a comment of the first encountered excluding expression
-    // (changing the result from true to false) or non-including one (leaving
-    // the false result) as an exclusion reason.
-    //
-    for (const build_class_expr& e: es)
-    {
-      bool pr (r);
-      e.match (cfg.classes, r);
-
-      if (reason != nullptr)
-      {
-        // Reset the reason which, if saved, makes no sense anymore.
-        //
-        if (r)
-        {
-          reason->clear ();
-        }
-        else if (reason->empty () &&
-                 //
-                 // Exclusion.
-                 //
-                 (pr              ||
-                  //
-                  // Non-inclusion. Make sure that the build class expression
-                  // is empty or starts with an addition (+...).
-                  //
-                  e.expr.empty () ||
-                  e.expr.front ().operation == '+'))
-        {
-          *reason = sanitize (e.comment);
-        }
-      }
-    }
-
-    if (!r)
-      return true;
-
-    // Now check if the configuration is excluded/included via the patterns.
-    //
-    // To implement matching of absent name components with wildcard-only
-    // pattern components we are going to convert names to paths (see
-    // dash_components_to_path() for details).
-    //
-    // And if any of the build-{include,exclude} values (which is legal) or
-    // the build configuration name/target (illegal) are invalid paths, then
-    // we assume no match.
-    //
-    try
-    {
-      path cn (dash_components_to_path (cfg.name));
-      path tg (dash_components_to_path (cfg.target.string ()));
-
-      for (const build_constraint& c: constrs)
-      {
-        if (path_match (dash_components_to_path (c.config),
-                        cn,
-                        dir_path () /* start */,
-                        path_match_flags::match_absent) &&
-            (!c.target ||
-             path_match (dash_components_to_path (*c.target),
-                         tg,
-                         dir_path () /* start */,
-                         path_match_flags::match_absent)))
-        {
-          if (!c.exclusion)
-            return false;
-
-          if (reason != nullptr)
-            *reason = sanitize (c.comment);
-
-          return true;
-        }
-      }
-    }
-    catch (const invalid_path&) {}
-
-    return false;
-  }
-
-  path
-  dash_components_to_path (const string& s)
-  {
-    string r;
-    for (size_t i (0); i != s.size (); ++i)
-    {
-      char c (s[i]);
-
-      switch (c)
-      {
-      case '-':
-        {
-          r += '/';
-          break;
-        }
-      case '*':
-        {
-          if (s[i + 1] == '*') // Can be '\0'.
-          {
-            r += "*/**/*";
-            ++i;
-            break;
-          }
-        }
-        // Fall through.
-      default:
-        {
-          r += c;
-          break;
-        }
-      }
-    }
-
-    // Append the trailing slash to match the resulting paths as directories.
-    // This is required for the trailing /* we could append to match absent
-    // directory path components (see path_match_flags::match_absent for
-    // details).
-    //
-    // Note that valid dash components may not contain a trailing dash.
-    // Anyway, any extra trailing slashes will be ignored by the path
-    // constructor.
-    //
-    r += '/';
-
-    return path (move (r));
-  }
-}