-#include <msp/core/getopt.h>
-#include <msp/fs/dir.h>
-#include <msp/fs/stat.h>
-#include <msp/io/print.h>
-#include <msp/strings/format.h>
-#include <msp/strings/utils.h>
-#include "analyzer.h"
-#include "buildercli.h"
-#include "filetarget.h"
-#include "sourcepackage.h"
-
-using namespace std;
-using namespace Msp;
-
-BuilderCLI::BuilderCLI(int argc, char **argv):
- analyzer(0),
- build(false),
- clean(0),
- dry_run(false),
- help(false),
- show_progress(false),
- build_file("Build"),
- jobs(1),
- conf_all(false),
- conf_only(false),
- build_all(false),
- create_makefile(false)
-{
- string analyze_mode;
- string work_dir;
- bool full_paths = false;
- unsigned max_depth = 4;
- string prefix;
- string tempdir;
- string arch;
- bool no_externals = false;
- unsigned verbose = 1;
- bool silent = false;
- list<string> log_channels;
- string build_type;
-
- GetOpt getopt;
- getopt.add_option('a', "analyze", analyze_mode, GetOpt::REQUIRED_ARG).set_help("Perform dependency analysis.", "MODE");
- getopt.add_option('b', "build", build, GetOpt::NO_ARG).set_help("Perform build even if also doing something else.");
- getopt.add_option('c', "clean", clean, GetOpt::NO_ARG).set_help("Clean buildable targets.");
- getopt.add_option('f', "file", build_file, GetOpt::REQUIRED_ARG).set_help("Read build instructions from FILE.", "FILE");
- getopt.add_option('h', "help", help, GetOpt::NO_ARG).set_help("Print this message.");
- getopt.add_option('j', "jobs", jobs, GetOpt::REQUIRED_ARG).set_help("Run up to NUM tasks in parallel.", "NUM");
- getopt.add_option('l', "log", log_channels, GetOpt::REQUIRED_ARG).set_help("Enable listed log channels.", "LIST");
- getopt.add_option('n', "dry-run", dry_run, GetOpt::NO_ARG).set_help("Show what would be done without actually doing it.");
- getopt.add_option('s', "silent", silent, GetOpt::NO_ARG).set_help("Don't print any messages other than errors.");
- getopt.add_option('t', "build-type", build_type, GetOpt::REQUIRED_ARG).set_help("Set build type.", "TYPE");
- getopt.add_option('v', "verbose", verbose, GetOpt::NO_ARG).set_help("Print more information about what's going on.");
- getopt.add_option('x', "no-externals",no_externals, GetOpt::NO_ARG).set_help("Do not load external source packages.");
- getopt.add_option('A', "conf-all", conf_all, GetOpt::NO_ARG).set_help("Apply configuration to all packages.");
- getopt.add_option('B', "build-all", build_all, GetOpt::NO_ARG).set_help("Build all targets unconditionally.");
- getopt.add_option('C', "chdir", work_dir, GetOpt::REQUIRED_ARG).set_help("Change to DIR before doing anything else.", "DIR");
- getopt.add_option('P', "progress", show_progress, GetOpt::NO_ARG).set_help("Display progress while building.");
- getopt.add_option('W', "what-if", what_if, GetOpt::REQUIRED_ARG).set_help("Pretend that FILE has changed.", "FILE");
- getopt.add_option( "arch", arch, GetOpt::REQUIRED_ARG).set_help("Build for architecture ARCH.", "ARCH");
- getopt.add_option( "conf-only", conf_only, GetOpt::NO_ARG).set_help("Stop after configuring packages.");
- getopt.add_option( "full-paths", full_paths, GetOpt::NO_ARG).set_help("Output full paths in analysis.");
- getopt.add_option( "max-depth", max_depth, GetOpt::REQUIRED_ARG).set_help("Show up to NUM levels in analysis.", "NUM");
- getopt.add_option( "prefix", prefix, GetOpt::REQUIRED_ARG).set_help("Install things to DIR.", "DIR");
- getopt.add_option( "tempdir", tempdir, GetOpt::REQUIRED_ARG).set_help("Store temporary files in DIR.", "DIR");
- usagemsg = getopt.generate_usage(argv[0])+" [<target> ...]";
- helpmsg = getopt.generate_help();
- getopt(argc, argv);
-
- if(silent)
- --verbose;
- if(verbose>=1)
- {
- logger.enable_channel("summary");
- logger.enable_channel("tasks");
- }
- if(verbose>=2)
- {
- logger.enable_channel("environment");
- logger.enable_channel("packages");
- logger.enable_channel("commands");
- }
- if(verbose>=3)
- {
- logger.enable_channel("files");
- logger.enable_channel("auxcommands");
- }
- for(list<string>::const_iterator i=log_channels.begin(); i!=log_channels.end(); ++i)
- {
- vector<string> parts = split(*i, ',');
- for(vector<string>::const_iterator j=parts.begin(); j!=parts.end(); ++j)
- logger.enable_channel(*j);
- }
- builder.set_logger(&logger);
-
- if(!analyze_mode.empty())
- {
- analyzer = new Analyzer(builder);
-
- if(analyze_mode=="deps")
- analyzer->set_mode(Analyzer::DEPS);
- else if(analyze_mode=="alldeps")
- analyzer->set_mode(Analyzer::ALLDEPS);
- else if(analyze_mode=="rebuild")
- analyzer->set_mode(Analyzer::REBUILD);
- else if(analyze_mode=="rdeps")
- analyzer->set_mode(Analyzer::RDEPS);
- else
- throw usage_error("Invalid analyze mode");
-
- analyzer->set_max_depth(max_depth);
- analyzer->set_full_paths(full_paths);
- }
- else if(!clean && !create_makefile)
- build = true;
-
- const vector<string> &args = getopt.get_args();
- for(vector<string>::const_iterator i=args.begin(); i!=args.end(); ++i)
- {
- string::size_type equal = i->find('=');
- if(equal!=string::npos)
- cmdline_options.insert(Config::InputOptions::value_type(i->substr(0, equal), i->substr(equal+1)));
- else
- cmdline_targets.push_back(*i);
- }
-
- if(!work_dir.empty())
- FS::chdir(work_dir);
-
- cwd = FS::getcwd();
-
- PackageManager &package_manager = builder.get_package_manager();
-
- package_manager.append_package_path(cwd);
- package_manager.append_package_path(cwd/"..");
- package_manager.append_binary_package_path(FS::get_sys_data_dir(argv[0], "builder"));
-
- package_manager.set_no_externals(no_externals);
-
- builder.set_architecture(arch);
-
- list<FS::Path> start_files;
- start_files.push_back(FS::get_sys_data_dir(argv[0], "builder")/"builderrc");
- start_files.push_back(FS::get_user_data_dir("builder")/"rc");
- for(list<FS::Path>::const_iterator i=start_files.begin(); i!=start_files.end(); ++i)
- if(FS::exists(*i))
- builder.load_build_file(*i);
-
- if(!prefix.empty())
- builder.set_prefix(cwd/prefix);
-
- if(!tempdir.empty())
- builder.set_temp_directory(tempdir);
-
- if(!build_type.empty())
- builder.set_build_type(build_type);
-
- builder.add_default_tools();
-}
-
-BuilderCLI::~BuilderCLI()
-{
- delete analyzer;
-}
-
-int BuilderCLI::main()
-{
- FS::Path main_file = cwd/build_file;
- if(!FS::exists(main_file))
- {
- if(help)
- {
- usage(0, "builder", false);
- return 0;
- }
- else
- {
- IO::print(IO::cerr, "The file %s does not exist.\n", main_file);
- return 1;
- }
- }
-
- builder.load_build_file(main_file, &cmdline_options, conf_all);
-
- if(help)
- {
- usage(0, "builder", false);
- IO::print("\n");
- package_help();
- return 0;
- }
-
- if(!prepare_build())
- return 1;
-
- if(conf_only)
- return 0;
-
- const Architecture &native_arch = builder.get_native_arch();
- const Architecture ¤t_arch = builder.get_current_arch();
- logger.log("environment", format("Building on %s, for %s%s", native_arch.get_name(),
- current_arch.get_name(), (current_arch.is_native() ? " (native)" : "")));
- logger.log("environment", format("Prefix is %s", builder.get_prefix()));
- const FS::Path &tempdir = builder.get_temp_directory();
- if(tempdir.is_absolute())
- logger.log("environment", format("Temporary directory is %s", tempdir));
- else
- logger.log("environment", format("Using per-package temporary directory %s", tempdir));
- const BuildType &build_type = builder.get_build_type();
- logger.log("environment", format("Build type is %s", build_type.get_name()));
-
- BuildGraph &build_graph = builder.get_build_graph();
- PackageManager &package_manager = builder.get_package_manager();
- const PackageManager::PackageMap &packages = package_manager.get_packages();
- list<string> package_details;
- for(PackageManager::PackageMap::const_iterator i=packages.begin(); i!=packages.end(); ++i)
- {
- if(!i->second->is_prepared())
- continue;
-
- string line = i->second->get_name();
- if(dynamic_cast<SourcePackage *>(i->second))
- {
- line += '*';
-
- unsigned count = 0;
- unsigned to_be_built = 0;
- const BuildGraph::TargetMap &targets = build_graph.get_targets();
- for(BuildGraph::TargetMap::const_iterator j=targets.begin(); j!=targets.end(); ++j)
- if(j->second->get_package()==i->second)
- {
- ++count;
- if(j->second->needs_rebuild())
- ++to_be_built;
- }
- if(count)
- {
- line += format(" (%d targets", count);
- if(to_be_built)
- line += format(", %d to be built", to_be_built);
- line += ')';
- }
- }
-
- package_details.push_back(line);
- }
-
- logger.log("summary", format("%d active packages, %d targets", package_details.size(), build_graph.get_targets().size()));
- for(list<string>::const_iterator i=package_details.begin(); i!=package_details.end(); ++i)
- logger.log("packages", *i);
-
- if(analyzer)
- analyzer->analyze();
-
- const Builder::ProblemList &problems = builder.get_problems();
- if(!problems.empty())
- {
- IO::print(IO::cerr, "The following problems were detected:\n");
- for(Builder::ProblemList::const_iterator i=problems.begin(); i!=problems.end(); ++i)
- IO::print(IO::cerr, " %s: %s\n", i->package, i->descr);
- if(!analyzer)
- IO::print(IO::cerr, "Please fix them and try again.\n");
- return 1;
- }
-
- if(clean)
- exit_code = builder.clean(clean>=2, dry_run);
- if(build)
- exit_code = builder.build(jobs, dry_run, show_progress);
-
- return exit_code;
-}
-
-bool BuilderCLI::prepare_build()
-{
- /* XXX This is ugly; using the Builder class should not be this convoluted.
- But the command line targets and what ifs need to be set at certain points
- during preparation. */
- BuildGraph &build_graph = builder.get_build_graph();
- PackageManager &package_manager = builder.get_package_manager();
- VirtualFileSystem &vfs = builder.get_vfs();
-
- package_manager.get_main_package().prepare();
-
- // Add targets from command line as goals
- for(NameList::iterator i=cmdline_targets.begin(); i!=cmdline_targets.end(); ++i)
- {
- Target *tgt = build_graph.get_target(*i);
- if(!tgt)
- tgt = vfs.get_target(*i);
- if(!tgt)
- tgt = vfs.get_target(cwd/ *i);
- if(!tgt)
- {
- IO::print("I don't know anything about %s\n", *i);
- return false;
- }
-
- build_graph.add_goal(*tgt);
- }
-
- build_graph.prepare();
-
- // Apply what-ifs
- for(NameList::iterator i=what_if.begin(); i!=what_if.end(); ++i)
- {
- FileTarget *tgt = vfs.get_target(cwd/ *i);
- if(!tgt)
- {
- IO::print(IO::cerr, "Unknown what-if target %s\n", *i);
- return false;
- }
- tgt->touch();
- }
-
- if(build_all)
- build_graph.force_full_rebuild();
-
- if(!dry_run)
- {
- const PackageManager::PackageMap &packages = package_manager.get_packages();
- for(PackageManager::PackageMap::const_iterator i=packages.begin(); i!=packages.end(); ++i)
- i->second->save_caches();
- }
-
- return true;
-}
-
-void BuilderCLI::usage(const char *reason, const char *argv0, bool brief)
-{
- if(reason)
- IO::print(IO::cerr, "%s\n", reason);
-
- if(brief)
- IO::print(IO::cerr, "Usage: %s\n", usagemsg);
- else
- {
- IO::print(IO::cerr, "Builder 1.0\n\n");
- IO::print(IO::cerr, "Usage: %s [options] [<target> ...]\n\n", argv0);
- IO::print(IO::cerr, "Options:\n");
- IO::print(IO::cerr, helpmsg);
- }
-}
-
-void BuilderCLI::package_help()
-{
- PackageManager &package_manager = builder.get_package_manager();
- SourcePackage &main_pkg = dynamic_cast<SourcePackage &>(package_manager.get_main_package());
- const Config &config = main_pkg.get_config();
- const Config::OptionMap &options = config.get_options();
-
- IO::print("Required packages:\n ");
- const Package::Requirements &requires = main_pkg.get_required_packages();
- for(Package::Requirements::const_iterator i=requires.begin(); i!=requires.end(); ++i)
- {
- if(i!=requires.begin())
- IO::print(", ");
- IO::print((*i)->get_name());
- }
- IO::print("\n\nPackage configuration:\n");
- for(Config::OptionMap::const_iterator i=options.begin(); i!=options.end(); ++i)
- {
- const Config::Option &opt = i->second;
- IO::print(" %s: %s (%s)", opt.name, opt.description, opt.value);
- if(opt.value!=opt.default_value)
- IO::print(" [%s]", opt.default_value);
- IO::print("\n");
- }
-}
-
-string BuilderCLI::usagemsg;
-string BuilderCLI::helpmsg;