aboutsummaryrefslogtreecommitdiff
path: root/build/install/rule.cxx
diff options
context:
space:
mode:
authorBoris Kolpackov <boris@codesynthesis.com>2016-01-05 11:55:15 +0200
committerBoris Kolpackov <boris@codesynthesis.com>2016-01-05 11:55:15 +0200
commit9fb791e9fad6c63fc1dac49f4d05ae63b8a3db9b (patch)
treed60322d4382ca5f97b676c5abe2e39524f35eab4 /build/install/rule.cxx
parentf159b1dac68c8714f7ba71ca168e3b695891aad9 (diff)
Rename build directory/namespace to build2
Diffstat (limited to 'build/install/rule.cxx')
-rw-r--r--build/install/rule.cxx410
1 files changed, 0 insertions, 410 deletions
diff --git a/build/install/rule.cxx b/build/install/rule.cxx
deleted file mode 100644
index fa648b5..0000000
--- a/build/install/rule.cxx
+++ /dev/null
@@ -1,410 +0,0 @@
-// file : build/install/rule.cxx -*- C++ -*-
-// copyright : Copyright (c) 2014-2015 Code Synthesis Ltd
-// license : MIT; see accompanying LICENSE file
-
-#include <build/install/rule>
-
-#include <butl/process>
-#include <butl/filesystem>
-
-#include <build/scope>
-#include <build/target>
-#include <build/algorithm>
-#include <build/diagnostics>
-
-#include <build/config/utility>
-
-using namespace std;
-using namespace butl;
-
-namespace build
-{
- namespace install
- {
- // Lookup the install or install.* variable. Return NULL if
- // not found or if the value is the special 'false' name (which
- // means do not install). T is either scope or target.
- //
- template <typename T>
- static const dir_path*
- lookup (T& t, const string& var)
- {
- auto l (t[var]);
-
- if (!l)
- return nullptr;
-
- const dir_path& r (as<dir_path> (*l));
- return r.simple () && r.string () == "false" ? nullptr : &r;
- }
-
- // alias_rule
- //
- match_result alias_rule::
- match (action, target& t, const std::string&) const
- {
- return t;
- }
-
- recipe alias_rule::
- apply (action a, target& t, const match_result&) const
- {
- tracer trace ("install::alias_rule::apply");
-
- for (prerequisite p: group_prerequisites (t))
- {
- target& pt (search (p));
-
- // Check if this prerequisite is explicitly "not installable",
- // that is, there is the 'install' variable and its value is
- // false.
- //
- // At first, this might seem redundand since we could have let
- // the file_rule below take care of it. The nuance is this: this
- // prerequsite can be in a different subproject that hasn't loaded
- // the install module (and therefore has no file_rule registered).
- // The typical example would be the 'tests' subproject.
- //
- auto l (pt["install"]);
-
- if (l && as<dir_path> (*l).string () == "false")
- {
- level5 ([&]{trace << "ignoring " << pt;});
- continue;
- }
-
- build::match (a, pt);
- t.prerequisite_targets.push_back (&pt);
- }
-
- return default_recipe;
- }
-
- // file_rule
- //
-
- match_result file_rule::
- match (action a, target& t, const std::string&) const
- {
- // First determine if this target should be installed (called
- // "installable" for short).
- //
- if (lookup (t, "install") == nullptr)
- // If this is the update pre-operation, signal that we don't match so
- // that some other rule can take care of it.
- //
- return a.operation () == update_id ? nullptr : match_result (t, false);
-
- match_result mr (t, true);
-
- // If this is the update pre-operation, change the recipe action
- // to (update, 0) (i.e., "unconditional update").
- //
- if (a.operation () == update_id)
- mr.recipe_action = action (a.meta_operation (), update_id);
-
- return mr;
- }
-
- target* file_rule::
- filter (action, target& t, prerequisite_member p) const
- {
- target& pt (p.search ());
- return pt.in (t.root_scope ()) ? &pt : nullptr;
- }
-
- recipe file_rule::
- apply (action a, target& t, const match_result& mr) const
- {
- if (!mr.bvalue) // Not installable.
- return noop_recipe;
-
- // Ok, if we are here, then this means:
- //
- // 1. This target is installable.
- // 2. The action is either
- // a. (perform, install, 0) or
- // b. (*, update, install)
- //
- // In both cases, the next step is to search, match, and collect
- // all the installable prerequisites.
- //
- // @@ Perhaps if [noinstall] will be handled by the
- // group_prerequisite_members machinery, then we can just
- // run standard search_and_match()? Will need an indicator
- // that it was forced (e.g., [install]) for filter() below.
- //
- for (prerequisite_member p: group_prerequisite_members (a, t))
- {
- // Ignore unresolved targets that are imported from other projects.
- // We are definitely not installing those.
- //
- if (p.proj () != nullptr)
- continue;
-
- // Let a customized rule have its say.
- //
- target* pt (filter (a, t, p));
- if (pt == nullptr)
- continue;
-
- // See if the user instructed us not to install it.
- //
- auto l ((*pt)["install"]);
- if (l && as<dir_path> (*l).string () == "false")
- continue;
-
- build::match (a, *pt);
-
- // If the matched rule returned noop_recipe, then the target
- // state will be set to unchanged as an optimization. Use this
- // knowledge to optimize things on our side as well since this
- // will help a lot in case of any static installable content
- // (headers, documentation, etc).
- //
- if (pt->state () != target_state::unchanged)
- t.prerequisite_targets.push_back (pt);
- else
- unmatch (a, *pt); // No intent to execute.
- }
-
- // This is where we diverge depending on the operation. In the
- // update pre-operation, we need to make sure that this target
- // as well as all its installable prerequisites are up to date.
- //
- if (a.operation () == update_id)
- {
- // Save the prerequisite targets that we found since the
- // call to match_delegate() below will wipe them out.
- //
- target::prerequisite_targets_type p;
-
- if (!t.prerequisite_targets.empty ())
- p.swap (t.prerequisite_targets);
-
- // Find the "real" update rule, that is, the rule that would
- // have been found if we signalled that we do not match from
- // match() above.
- //
- recipe d (match_delegate (a, t).first);
-
- // If we have no installable prerequisites, then simply redirect
- // to it.
- //
- if (p.empty ())
- return d;
-
- // Ok, the worst case scenario: we need to cause update of
- // prerequisite targets and also delegate to the real update.
- //
- return [pt = move (p), dr = move (d)]
- (action a, target& t) mutable -> target_state
- {
- // Do the target update first.
- //
- target_state r (execute_delegate (dr, a, t));
-
- // Swap our prerequisite targets back in and execute.
- //
- t.prerequisite_targets.swap (pt);
- r |= execute_prerequisites (a, t);
- pt.swap (t.prerequisite_targets); // In case we get re-executed.
-
- return r;
- };
- }
- else
- return &perform_install;
- }
-
- struct install_dir
- {
- dir_path dir;
- string sudo;
- string cmd; //@@ VAR type
- const_strings_value options {nullptr};
- string mode;
- string dir_mode;
- };
-
- // install -d <dir>
- //
- static void
- install (const install_dir& base, const dir_path& d)
- {
- path reld (relative (d));
-
- cstrings args;
-
- if (!base.sudo.empty ())
- args.push_back (base.sudo.c_str ());
-
- args.push_back (base.cmd.c_str ());
- args.push_back ("-d");
-
- if (base.options.d != nullptr) //@@ VAR
- config::append_options (args, base.options);
-
- args.push_back ("-m");
- args.push_back (base.dir_mode.c_str ());
- args.push_back (reld.string ().c_str ());
- args.push_back (nullptr);
-
- if (verb >= 2)
- print_process (args);
- else if (verb)
- text << "install " << d;
-
- try
- {
- process pr (args.data ());
-
- if (!pr.wait ())
- throw failed ();
- }
- catch (const process_error& e)
- {
- error << "unable to execute " << args[0] << ": " << e.what ();
-
- if (e.child ())
- exit (1);
-
- throw failed ();
- }
- }
-
- // install <file> <dir>
- //
- static void
- install (const install_dir& base, file& t)
- {
- path reld (relative (base.dir));
- path relf (relative (t.path ()));
-
- cstrings args;
-
- if (!base.sudo.empty ())
- args.push_back (base.sudo.c_str ());
-
- args.push_back (base.cmd.c_str ());
-
- if (base.options.d != nullptr) //@@ VAR
- config::append_options (args, base.options);
-
- args.push_back ("-m");
- args.push_back (base.mode.c_str ());
- args.push_back (relf.string ().c_str ());
- args.push_back (reld.string ().c_str ());
- args.push_back (nullptr);
-
- if (verb >= 2)
- print_process (args);
- else if (verb)
- text << "install " << t;
-
- try
- {
- process pr (args.data ());
-
- if (!pr.wait ())
- throw failed ();
- }
- catch (const process_error& e)
- {
- error << "unable to execute " << args[0] << ": " << e.what ();
-
- if (e.child ())
- exit (1);
-
- throw failed ();
- }
- }
-
- // Resolve installation directory name to absolute directory path,
- // creating leading directories as necessary.
- //
- static install_dir
- resolve (scope& s, dir_path d, const string* var = nullptr)
- {
- install_dir r;
-
- if (d.absolute ())
- {
- d.normalize ();
-
- // Make sure it already exists (this will normally be
- // install.root with everything else defined in term of it).
- //
- if (!dir_exists (d))
- fail << "installation directory " << d << " does not exist";
- }
- else
- {
- // If it is relative, then the first component is treated
- // as the installation directory name, e.g., bin, sbin, lib,
- // etc. Look it up and recurse.
- //
- const string& sn (*d.begin ());
- const string var ("install." + sn);
- if (const dir_path* dn = lookup (s, var))
- {
- r = resolve (s, *dn, &var);
- d = r.dir / dir_path (++d.begin (), d.end ());
- d.normalize ();
-
- if (!dir_exists (d))
- install (r, d); // install -d
- }
- else
- fail << "unknown installation directory name " << sn <<
- info << "did you forget to specify config." << var << "?";
- }
-
- r.dir = move (d);
-
- // Override components in install_dir if we have our own.
- //
- if (var != nullptr)
- {
- if (auto l = s[*var + ".sudo"]) r.sudo = as<string> (*l);
- if (auto l = s[*var + ".cmd"]) r.cmd = as<string> (*l);
- if (auto l = s[*var + ".mode"]) r.mode = as<string> (*l);
- if (auto l = s[*var + ".dir_mode"]) r.dir_mode = as<string> (*l);
- if (auto l = s[*var + ".options"]) r.options = as<strings> (*l);
- }
-
- // Set defaults for unspecified components.
- //
- if (r.cmd.empty ()) r.cmd = "install";
- if (r.mode.empty ()) r.mode = "644";
- if (r.dir_mode.empty ()) r.dir_mode = "755";
-
- return r;
- }
-
- target_state file_rule::
- perform_install (action a, target& t)
- {
- file& ft (static_cast<file&> (t));
- assert (!ft.path ().empty ()); // Should have been assigned by update.
-
- // First handle installable prerequisites.
- //
- target_state r (execute_prerequisites (a, t));
-
- // Resolve and, if necessary, create target directory.
- //
- install_dir d (
- resolve (t.base_scope (),
- as<dir_path> (*t["install"]))); // We know it's there.
-
- // Override mode if one was specified.
- //
- if (auto l = t["install.mode"])
- d.mode = as<string> (*l);
-
- install (d, ft);
- return (r |= target_state::changed);
- }
- }
-}