From 4dcc80df759c7ba1ada65b52a8dc6c793d56e4e5 Mon Sep 17 00:00:00 2001 From: Karen Arutyunov Date: Mon, 8 Jul 2019 11:44:44 +0300 Subject: Display unbuilt configurations on package version details page --- mod/build-config-module.hxx | 25 +++++++++++ mod/mod-builds.cxx | 39 +++++------------- mod/mod-package-version-details.cxx | 82 +++++++++++++++++++++++++++++++------ 3 files changed, 104 insertions(+), 42 deletions(-) (limited to 'mod') diff --git a/mod/build-config-module.hxx b/mod/build-config-module.hxx index 0b5b4d0..3ad1a83 100644 --- a/mod/build-config-module.hxx +++ b/mod/build-config-module.hxx @@ -77,6 +77,31 @@ namespace brep static path dash_components_to_path (const string&); + // Configuration/toolchain combination that, in particular, can be used as + // a set value. + // + // Note: contains shallow references to the configuration, toolchain name, + // and version. + // + struct config_toolchain + { + const string& configuration; + const string& toolchain_name; + const bpkg::version& toolchain_version; + + bool + operator< (const config_toolchain& ct) const + { + if (int r = toolchain_name.compare (ct.toolchain_name)) + return r < 0; + + if (toolchain_version != ct.toolchain_version) + return toolchain_version > ct.toolchain_version; + + return configuration.compare (ct.configuration) < 0; + } + }; + protected: // Build configurations. // diff --git a/mod/mod-builds.cxx b/mod/mod-builds.cxx index ffb192b..30a18a6 100644 --- a/mod/mod-builds.cxx +++ b/mod/mod-builds.cxx @@ -358,7 +358,8 @@ handle (request& rq, response& rs) for (auto& t: build_db_->query ( (tn ? query::build::id.package.tenant == *tn : query (true)) + "ORDER BY" + query::build::id.toolchain_name + - order_by_version_desc (query::build::id.toolchain_version, false))) + order_by_version_desc (query::build::id.toolchain_version, + false /* first */))) r.emplace_back (move (t.name), move (t.version)); return r; @@ -612,8 +613,8 @@ handle (request& rq, response& rs) string ts (butl::to_string (b.timestamp, "%Y-%m-%d %H:%M:%S %Z", - true, - true) + + true /* special */, + true /* local */) + " (" + butl::to_string (now - b.timestamp, false) + " ago)"); s << TABLE(CLASS="proplist build") @@ -657,27 +658,6 @@ handle (request& rq, response& rs) // toolchains toolchains; - struct config_toolchain - { - const string& configuration; - const string& toolchain_name; - const version& toolchain_version; - - bool - operator< (const config_toolchain& ct) const - { - int r (configuration.compare (ct.configuration)); - if (r != 0) - return r < 0; - - r = toolchain_name.compare (ct.toolchain_name); - if (r != 0) - return r < 0; - - return toolchain_version > ct.toolchain_version; - } - }; - // Note that config_toolchains contains shallow references to the // toolchain names and versions. // @@ -841,9 +821,9 @@ handle (request& rq, response& rs) // 1: package name // 2: package version (descending) // 3: package tenant - // 4: configuration name - // 5: toolchain name - // 6: toolchain version (descending) + // 4: toolchain name + // 5: toolchain version (descending) + // 6: configuration name // // Prepare the build package prepared query. // @@ -872,8 +852,9 @@ handle (request& rq, response& rs) pq += "ORDER BY" + pkg_query::build_package::id.name + - order_by_version_desc (pkg_query::build_package::id.version, false) + - "," + pkg_query::build_package::id.tenant + + order_by_version_desc (pkg_query::build_package::id.version, + false /* first */) + "," + + pkg_query::build_package::id.tenant + "OFFSET" + pkg_query::_ref (offset) + "LIMIT 50"; connection_ptr conn (build_db_->connection ()); diff --git a/mod/mod-package-version-details.cxx b/mod/mod-package-version-details.cxx index 8680f00..1c7fac4 100644 --- a/mod/mod-package-version-details.cxx +++ b/mod/mod-package-version-details.cxx @@ -419,17 +419,49 @@ handle (request& rq, response& rs) timestamp now (system_clock::now ()); transaction t (build_db_->begin ()); - // Print built package configurations, except those that are hidden or - // excluded by the package. + // Print built and unbuilt package configurations, except those that are + // hidden or excluded by the package. + // + // Query toolchains seen for the package tenant. + // + vector> toolchains; + { + using query = query; + + for (auto& t: build_db_->query ( + (!tenant.empty () + ? query::build::id.package.tenant == tenant + : query (true)) + + "ORDER BY" + query::build::id.toolchain_name + + order_by_version_desc (query::build::id.toolchain_version, + false /* first */))) + toolchains.emplace_back (move (t.name), move (t.version)); + } + + // Collect configuration names and unbuilt configurations, skipping those + // that are hidden or excluded by the package. // cstrings conf_names; + set unbuilt_configs; for (const auto& c: *build_conf_map_) { - if (belongs (*c.second, "all")) + const build_config& cfg (*c.second); + + if (belongs (cfg, "all") && !exclude (cfg)) + { conf_names.push_back (c.first); + + // Note: we will erase built configurations from the unbuilt + // configurations set later (see below). + // + for (const auto& t: toolchains) + unbuilt_configs.insert ({cfg.name, t.first, t.second}); + } } + // Print the package built configurations in the time-descending order. + // using query = query; for (auto& b: build_db_->query ( @@ -440,18 +472,10 @@ handle (request& rq, response& rs) "ORDER BY" + query::timestamp + "DESC")) { - auto i (build_conf_map_->find (b.configuration.c_str ())); - assert (i != build_conf_map_->end ()); - - const build_config& cfg (*i->second); - - if (exclude (cfg)) - continue; - string ts (butl::to_string (b.timestamp, "%Y-%m-%d %H:%M:%S %Z", - true, - true) + + true /* special */, + true /* local */) + " (" + butl::to_string (now - b.timestamp, false) + " ago)"); if (b.state == build_state::built) @@ -468,6 +492,38 @@ handle (request& rq, response& rs) << TR_BUILD_RESULT (b, host, root) << ~TBODY << ~TABLE; + + // While at it, erase the built configuration from the unbuilt + // configurations set. + // + unbuilt_configs.erase ({b.id.configuration, + b.toolchain_name, + b.toolchain_version}); + } + + // Print the package unbuilt configurations with the following sort + // priority: + // + // 1: toolchain name + // 2: toolchain version (descending) + // 3: configuration name + // + for (const auto& ct: unbuilt_configs) + { + auto i (build_conf_map_->find (ct.configuration.c_str ())); + assert (i != build_conf_map_->end ()); + + s << TABLE(CLASS="proplist build") + << TBODY + << TR_VALUE ("toolchain", + ct.toolchain_name + '-' + + ct.toolchain_version.string ()) + << TR_VALUE ("config", + ct.configuration + " / " + + i->second->target.string ()) + << TR_VALUE ("result", "unbuilt") + << ~TBODY + << ~TABLE; } // Print the package build exclusions that belong to the 'default' class. -- cgit v1.1