aboutsummaryrefslogtreecommitdiff
path: root/build/cli/rule.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'build/cli/rule.cxx')
-rw-r--r--build/cli/rule.cxx305
1 files changed, 0 insertions, 305 deletions
diff --git a/build/cli/rule.cxx b/build/cli/rule.cxx
deleted file mode 100644
index 274f193..0000000
--- a/build/cli/rule.cxx
+++ /dev/null
@@ -1,305 +0,0 @@
-// file : build/cli/rule.cxx -*- C++ -*-
-// copyright : Copyright (c) 2014-2015 Code Synthesis Ltd
-// license : MIT; see accompanying LICENSE file
-
-#include <build/cli/rule>
-
-#include <butl/process>
-
-#include <build/types>
-#include <build/scope>
-#include <build/target>
-#include <build/context>
-#include <build/algorithm>
-#include <build/diagnostics>
-
-#include <build/cli/target>
-
-#include <build/config/utility>
-
-using namespace std;
-using namespace butl;
-
-namespace build
-{
- namespace cli
- {
- match_result compile::
- match (action a, target& xt, const std::string&) const
- {
- tracer trace ("cli::compile::match");
-
- if (cli_cxx* pt = xt.is_a<cli_cxx> ())
- {
- // The cli.cxx{} group.
- //
- cli_cxx& t (*pt);
-
- // See if we have a .cli source file.
- //
- match_result r;
- for (prerequisite_member p: group_prerequisite_members (a, t))
- {
- if (p.is_a<cli> ())
- {
- // Check that the stems match.
- //
- if (t.name != p.name ())
- {
- level4 ([&]{trace << ".cli file stem '" << p.name () << "' "
- << "doesn't match target " << t;});
- return r;
- }
-
- r = p;
- break;
- }
- }
-
- if (!r)
- {
- level4 ([&]{trace << "no .cli source file for target " << t;});
- return r;
- }
-
- // If we still haven't figured out the member list, we can do
- // that now. Specifically, at this stage, no further changes to
- // cli.options are possible and we can determine whether the
- // --suppress-inline option is present.
- //
- if (t.h == nullptr)
- {
- t.h = &search<cxx::hxx> (t.dir, t.name, nullptr, nullptr);
- t.h->group = &t;
-
- t.c = &search<cxx::cxx> (t.dir, t.name, nullptr, nullptr);
- t.c->group = &t;
-
- if (!config::find_option ("--suppress-inline", t, "cli.options"))
- {
- t.i = &search<cxx::ixx> (t.dir, t.name, nullptr, nullptr);
- t.i->group = &t;
- }
- }
-
- return r;
- }
- else
- {
- // One of the ?xx{} members.
- //
- target& t (xt);
-
- // First see if we are already linked-up to the cli.cxx{} group.
- // If it is some other group, then we are definitely not a match.
- //
- if (t.group != nullptr)
- return t.group->is_a<cli_cxx> ();
-
- // Then check if there is a corresponding cli.cxx{} group.
- //
- cli_cxx* g (targets.find<cli_cxx> (t.dir, t.name));
-
- // If not or if it has no prerequisites (happens when we use it to
- // set cli.options) and this target has a cli{} prerequisite, then
- // synthesize the group.
- //
- if (g == nullptr || !g->has_prerequisites ())
- {
- for (prerequisite_member p: group_prerequisite_members (a, t))
- {
- if (p.is_a<cli> ())
- {
- // Check that the stems match.
- //
- if (t.name == p.name ())
- {
- if (g == nullptr)
- g = &targets.insert<cli_cxx> (t.dir, t.name, trace);
-
- g->prerequisites.emplace_back (p.as_prerequisite (trace));
- }
- else
- level4 ([&]{trace << ".cli file stem '" << p.name () << "' "
- << "doesn't match target " << t;});
- break;
- }
- }
- }
-
- if (g != nullptr)
- {
- // Resolve the group's members. This should link us up to
- // the group.
- //
- resolve_group_members (a, *g);
-
- // For ixx{}, verify it is part of the group.
- //
- if (t.is_a<cxx::ixx> () && g->i == nullptr)
- {
- level4 ([&]{trace << "generation of inline file " << t
- << " is disabled with --suppress-inline";});
- g = nullptr;
- }
- }
-
- assert (t.group == g);
- return g;
- }
- }
-
- recipe compile::
- apply (action a, target& xt, const match_result& mr) const
- {
- if (cli_cxx* pt = xt.is_a<cli_cxx> ())
- {
- cli_cxx& t (*pt);
-
- // Derive file names for the members.
- //
- t.h->derive_path ();
- t.c->derive_path ();
- if (t.i != nullptr)
- t.i->derive_path ();
-
- // Inject dependency on the output directory.
- //
- inject_parent_fsdir (a, t);
-
- // Search and match prerequisite members.
- //
- search_and_match_prerequisite_members (a, t);
-
- switch (a)
- {
- case perform_update_id: return &perform_update;
- case perform_clean_id: return &perform_clean;
- default: return noop_recipe; // Configure update.
- }
- }
- else
- {
- cli_cxx& g (*static_cast<cli_cxx*> (mr.target));
- build::match (a, g);
- return group_recipe; // Execute the group's recipe.
- }
- }
-
- static void
- append_extension (cstrings& args,
- path_target& t,
- const char* option,
- const char* default_extension)
- {
- assert (t.ext != nullptr); // Should have been figured out in apply().
-
- if (*t.ext != default_extension)
- {
- // CLI needs the extension with the leading dot (unless it is empty)
- // while we store the extension without. But if there is an extension,
- // then we can get it (with the dot) from the file name.
- //
- args.push_back (option);
- args.push_back (t.ext->empty ()
- ? t.ext->c_str ()
- : t.path ().extension () - 1);
- }
- }
-
- target_state compile::
- perform_update (action a, target& xt)
- {
- cli_cxx& t (static_cast<cli_cxx&> (xt));
-
- // Execute our prerequsites and check if we are out of date.
- //
- cli* s (execute_prerequisites<cli> (a, t, t.mtime ()));
-
- if (s == nullptr)
- return target_state::unchanged;
-
- // Translate paths to relative (to working directory). This
- // results in easier to read diagnostics.
- //
- path relo (relative (t.dir));
- path rels (relative (s->path ()));
-
- scope& rs (t.root_scope ());
- const string& cli (as<string> (*rs["config.cli"]));
-
- cstrings args {cli.c_str ()};
-
- // See if we need to pass any --?xx-suffix options.
- //
- append_extension (args, *t.h, "--hxx-suffix", "hxx");
- append_extension (args, *t.c, "--cxx-suffix", "cxx");
- if (t.i != nullptr)
- append_extension (args, *t.i, "--ixx-suffix", "ixx");
-
- config::append_options (args, t, "cli.options");
-
- if (!relo.empty ())
- {
- args.push_back ("-o");
- args.push_back (relo.string ().c_str ());
- }
-
- args.push_back (rels.string ().c_str ());
- args.push_back (nullptr);
-
- if (verb >= 2)
- print_process (args);
- else if (verb)
- text << "cli " << *s;
-
- try
- {
- process pr (args.data ());
-
- if (!pr.wait ())
- throw failed ();
-
- t.mtime (system_clock::now ());
- }
- catch (const process_error& e)
- {
- error << "unable to execute " << args[0] << ": " << e.what ();
-
- if (e.child ())
- exit (1);
-
- throw failed ();
- }
-
- return target_state::changed;
- }
-
- target_state compile::
- perform_clean (action a, target& xt)
- {
- cli_cxx& t (static_cast<cli_cxx&> (xt));
-
- // The reverse order of update: first delete the files, then clean
- // prerequisites. Also update timestamp in case there are operations
- // after us that could use the information.
- //
- bool r (false);
-
- if (t.i != nullptr)
- r = rmfile (t.i->path (), *t.i) || r;
- r = rmfile (t.c->path (), *t.c) || r;
- r = rmfile (t.h->path (), *t.h) || r;
-
- t.mtime (timestamp_nonexistent);
-
- target_state ts (r ? target_state::changed : target_state::unchanged);
-
- // Clean prerequisites.
- //
- ts |= reverse_execute_prerequisites (a, t);
-
- return ts;
- }
- }
-}
generated by cgit v1.1 at 2024-04-19 05:04:11 +0000