aboutsummaryrefslogtreecommitdiff
path: root/libbuild2/cc/pkgconfig.cxx
diff options
context:
space:
mode:
authorBoris Kolpackov <boris@codesynthesis.com>2022-06-29 06:46:14 +0200
committerBoris Kolpackov <boris@codesynthesis.com>2022-06-29 06:46:14 +0200
commita2204bee4723a7a5036d2b3b888984976c5a93e7 (patch)
treec06cf9fca2905c721e1bc31658ca8fd343c76f64 /libbuild2/cc/pkgconfig.cxx
parentba8ddd80a4323eb85ee5a569295eb4e80986003f (diff)
Rework pkg-config variable naming, use build2.metadata as general indicator
Diffstat (limited to 'libbuild2/cc/pkgconfig.cxx')
-rw-r--r--libbuild2/cc/pkgconfig.cxx396
1 files changed, 222 insertions, 174 deletions
diff --git a/libbuild2/cc/pkgconfig.cxx b/libbuild2/cc/pkgconfig.cxx
index 0ae4341..652d410 100644
--- a/libbuild2/cc/pkgconfig.cxx
+++ b/libbuild2/cc/pkgconfig.cxx
@@ -1205,17 +1205,18 @@ namespace build2
return r;
};
- // Parse user metadata and set extracted variables on the specified
- // target.
+ // Parse the build2.metadata variable value and, if user is true,
+ // extract the user metadata, if any, and set extracted variables on the
+ // specified target.
//
auto parse_metadata = [&next] (target& t,
pkgconf& pc,
- const string& md)
+ const string& md,
+ bool user)
{
const location loc (pc.path);
context& ctx (t.ctx);
- auto& vp (ctx.var_pool.rw ()); // Load phase.
optional<uint64_t> ver;
optional<string> pfx;
@@ -1238,6 +1239,9 @@ namespace build2
if (*ver != 1)
fail (loc) << "unexpected metadata version " << *ver;
+ if (!user)
+ return;
+
continue;
}
@@ -1277,6 +1281,7 @@ namespace build2
: name (move (s)));
}
+ auto& vp (ctx.var_pool.rw ()); // Load phase.
const variable& var (vp.insert (move (vn)));
value& v (t.assign (var));
@@ -1288,7 +1293,7 @@ namespace build2
fail (loc) << "version expected in build2.metadata variable";
if (!pfx)
- fail (loc) << "variable prefix expected in build2.metadata variable";
+ return; // No user metadata.
// Set export.metadata to indicate the presence of user metadata.
//
@@ -1303,7 +1308,7 @@ namespace build2
&next, &s, &lt] (const pkgconf& pc,
prerequisites& ps)
{
- optional<string> val (pc.variable ("cxx_modules"));
+ optional<string> val (pc.variable ("cxx.modules"));
if (!val)
return;
@@ -1319,7 +1324,7 @@ namespace build2
p == 0 || // Empty name.
p == m.size () - 1) // Empty path.
fail << "invalid module information in '" << *val << "'" <<
- info << "while parsing pkg-config --variable=cxx_modules "
+ info << "while parsing pkg-config --variable=cxx.modules "
<< pc.path;
string mn (m, 0, p);
@@ -1328,8 +1333,8 @@ namespace build2
// Extract module properties, if any.
//
- optional<string> pp (pc.variable ("cxx_module_preprocessed." + mn));
- optional<string> se (pc.variable ("cxx_module_symexport." + mn));
+ optional<string> pp (pc.variable ("cxx.module_preprocessed." + mn));
+ optional<string> se (pc.variable ("cxx.module_symexport." + mn));
// Replace the partition separator.
//
@@ -1406,7 +1411,7 @@ namespace build2
const char* lang,
prerequisites& ps)
{
- string var (string (lang) + "_importable_headers");
+ string var (string (lang) + ".importable_headers");
optional<string> val (pc.variable (var));
if (!val)
@@ -1482,7 +1487,8 @@ namespace build2
if (ps || ap.empty ())
spc = pkgconf (sp, pc_dirs, sys_lib_dirs, sys_hdr_dirs);
- // Load user metadata if we are in the load phase.
+ // Load the user metadata if we are in the load phase. Otherwise just
+ // determine if we have metadata.
//
// Note also that we are not failing here if the metadata was requested
// but not present (potentially only partially) letting the caller
@@ -1490,6 +1496,8 @@ namespace build2
// on the target being imported. This would also allow supporting
// optional metadata.
//
+ bool apc_meta (false);
+ bool spc_meta (false);
if (!act)
{
// We can only do it during the load phase.
@@ -1506,15 +1514,25 @@ namespace build2
// in this case (and I suppose another bool in metaonly)?
//
if (optional<string> md = ipc.variable ("build2.metadata"))
- parse_metadata (lt, ipc, *md);
+ parse_metadata (lt, ipc, *md, true);
if (pa)
+ {
if (optional<string> md = apc.variable ("build2.metadata"))
- parse_metadata (*at, apc, *md);
+ {
+ parse_metadata (*at, apc, *md, true);
+ apc_meta = true;
+ }
+ }
if (ps)
+ {
if (optional<string> md = spc.variable ("build2.metadata"))
- parse_metadata (*st, spc, *md);
+ {
+ parse_metadata (*st, spc, *md, true);
+ spc_meta = true;
+ }
+ }
// If we only need metadata, then we are done.
//
@@ -1533,6 +1551,26 @@ namespace build2
if (at == nullptr && st == nullptr)
return;
}
+ else
+ {
+ if (pa)
+ {
+ if (optional<string> md = apc.variable ("build2.metadata"))
+ {
+ parse_metadata (*at, apc, *md, false);
+ apc_meta = true;
+ }
+ }
+
+ if (ps)
+ {
+ if (optional<string> md = spc.variable ("build2.metadata"))
+ {
+ parse_metadata (*st, spc, *md, false);
+ spc_meta = true;
+ }
+ }
+ }
// Sort out the interface dependencies (which we are setting on lib{}).
// If we have the shared .pc variant, then we use that. Otherwise --
@@ -1540,6 +1578,7 @@ namespace build2
// logic).
//
pkgconf& ipc (ps ? spc : apc); // Interface package info.
+ bool ipc_meta (ps ? spc_meta : apc_meta);
// For now we only populate prerequisites for lib{}. To do it for
// liba{} would require weeding out duplicates that are already in
@@ -1570,7 +1609,7 @@ namespace build2
// Load the bin.whole flag (whole archive).
//
- if (at != nullptr)
+ if (at != nullptr && (pa ? apc_meta : spc_meta))
{
// Note that if unspecified we leave it unset letting the consumer
// override it, if necessary (see the bin.lib lookup semantics for
@@ -1587,7 +1626,7 @@ namespace build2
// different sets will most likely lead to all sorts of complications
// (at least for installed libraries) and life is short.
//
- if (modules)
+ if (modules && ipc_meta)
{
parse_modules (ipc, prs);
@@ -2042,198 +2081,207 @@ namespace build2
os << ' ' << a;
os << endl;
- // Save the bin.whole (whole archive) flag (see the link rule for
- // details on the lookup semantics).
- //
- if (cast_false<bool> (
- l.lookup_original (ctx.var_pool["bin.whole"],
- true /* target_only */).first))
- {
- os << endl
- << "bin.whole = true"
- << endl;
- }
+ // See also bin.whole below.
}
}
- // Save user metadata.
+ // Save metadata.
+ //
+ // The build2.metadata variable is a general indication of the
+ // metadata being present. Its value is the metadata version
+ // optionally followed by the user metadata variable prefix and
+ // variable list (see below for details). Having only the version
+ // indicates the absense of user metadata.
//
- // @@ Maybe we should use build2.metadata as a general indication
- // of the metadata being present. Having only version would
- // indicate absense of user metadata.
+ // See if we have the user metadata.
//
+ lookup um (g[ctx.var_export_metadata]); // Target visibility.
+
+ if (um && !um->empty ())
{
- // The export.metadata value should start with the version followed
- // by the metadata variable prefix.
- //
- lookup lu (g[ctx.var_export_metadata]); // Target visibility.
+ const names& ns (cast<names> (um));
- if (lu && !lu->empty ())
+ // First verify the version.
+ //
+ uint64_t ver;
+ try
{
- const names& ns (cast<names> (lu));
-
- // First verify the version.
+ // Note: does not change the passed name.
//
- uint64_t ver;
- try
- {
- // Note: does not change the passed name.
- //
- ver = value_traits<uint64_t>::convert (
- ns[0], ns[0].pair ? &ns[1] : nullptr);
- }
- catch (const invalid_argument& e)
- {
- fail << "invalid metadata version in library " << g << ": " << e;
- }
+ ver = value_traits<uint64_t>::convert (
+ ns[0], ns[0].pair ? &ns[1] : nullptr);
+ }
+ catch (const invalid_argument& e)
+ {
+ fail << "invalid metadata version in library " << g << ": " << e;
+ }
- if (ver != 1)
- fail << "unexpected metadata version " << ver << " in library "
- << g;
+ if (ver != 1)
+ fail << "unexpected metadata version " << ver << " in library "
+ << g;
- // Next verify the metadata variable prefix.
- //
- if (ns.size () != 2 || !ns[1].simple ())
- fail << "invalid metadata variable prefix in library " << g;
+ // Next verify the metadata variable prefix.
+ //
+ if (ns.size () != 2 || !ns[1].simple ())
+ fail << "invalid metadata variable prefix in library " << g;
- const string& pfx (ns[1].value);
+ const string& pfx (ns[1].value);
- // Now find all the target-specific variables with this prefix.
- //
- // If this is the common .pc file, then we only look in the
- // group. Otherwise, in the member and the group.
- //
- // We only expect a handful of variables so let's use a vector and
- // linear search instead of a map.
- //
- using binding = pair<const variable*, const value*>;
- vector<binding> vars;
+ // Now find all the target-specific variables with this prefix.
+ //
+ // If this is the common .pc file, then we only look in the group.
+ // Otherwise, in the member and the group.
+ //
+ // We only expect a handful of variables so let's use a vector and
+ // linear search instead of a map.
+ //
+ using binding = pair<const variable*, const value*>;
+ vector<binding> vars;
- auto append = [&pfx, &vars] (const target& t, bool dup)
+ auto append = [&pfx, &vars] (const target& t, bool dup)
+ {
+ for (auto p (t.vars.lookup_namespace (pfx));
+ p.first != p.second;
+ ++p.first)
{
- for (auto p (t.vars.lookup_namespace (pfx));
- p.first != p.second;
- ++p.first)
+ const variable& var (p.first->first);
+
+ if (dup)
{
- const variable& var (p.first->first);
+ if (find_if (vars.begin (), vars.end (),
+ [&var] (const binding& p)
+ {
+ return p.first == &var;
+ }) != vars.end ())
+ continue;
+ }
- if (dup)
- {
- if (find_if (vars.begin (), vars.end (),
- [&var] (const binding& p)
- {
- return p.first == &var;
- }) != vars.end ())
- continue;
- }
+ // Re-lookup the value in order to apply target type/pattern
+ // specific prepends/appends.
+ //
+ lookup l (t[var]);
+ assert (l.defined ());
- // Re-lookup the value in order to apply target type/pattern
- // specific prepends/appends.
- //
- lookup l (t[var]);
- assert (l.defined ());
+ vars.emplace_back (&var, l.value);
+ }
+ };
- vars.emplace_back (&var, l.value);
- }
- };
+ append (g, false);
- append (g, false);
+ if (!common)
+ {
+ if (l.group != nullptr)
+ append (*l.group, true);
+ }
- if (!common)
- {
- if (l.group != nullptr)
- append (*l.group, true);
- }
+ // First write the build2.metadata variable with the version,
+ // prefix, and all the variable names/types (which should not
+ // require any escaping).
+ //
+ os << endl
+ << "build2.metadata = " << ver << ' ' << pfx;
+
+ for (const binding& b: vars)
+ {
+ const string& n (b.first->name);
+ const value& v (*b.second);
- // First write the build2.metadata variable with the version,
- // prefix, and all the variable names/types (which should not
- // require any escaping).
+ // There is no notion of NULL in pkg-config variables and it's
+ // probably best not to conflate them with empty.
//
- os << endl
- << "build2.metadata = " << ver << ' ' << pfx;
+ if (v.null)
+ fail << "null value in exported variable " << n
+ << " of library " << l;
- for (const binding& b: vars)
- {
- const string& n (b.first->name);
- const value& v (*b.second);
+ if (v.type == nullptr)
+ fail << "untyped value in exported variable " << n
+ << " of library " << l;
- // There is no notion of NULL in pkg-config variables and it's
- // probably best not to conflate them with empty.
- //
- if (v.null)
- fail << "null value in exported variable " << n
- << " of library " << l;
+ // Tighten this to only a sensible subset of types (see
+ // parsing/serialization code for some of the potential problems).
+ //
+ if (!metadata_type (v.type->name).first)
+ fail << "unsupported value type " << v.type->name
+ << " in exported variable " << n << " of library " << l;
- if (v.type == nullptr)
- fail << "untyped value in exported variable " << n
- << " of library " << l;
+ os << ' ' << n << '/' << v.type->name;
+ }
- // Tighten this to only a sensible subset of types (see
- // parsing/serialization code for some of the potential
- // problems).
- //
- if (!metadata_type (v.type->name).first)
- fail << "unsupported value type " << v.type->name
- << " in exported variable " << n << " of library " << l;
+ os << endl;
- os << ' ' << n << '/' << v.type->name;
- }
+ // Now the variables themselves.
+ //
+ string s; // Reuse the buffer.
+ for (const binding& b: vars)
+ {
+ const string& n (b.first->name);
+ const value& v (*b.second);
- os << endl;
+ names ns;
+ names_view nv (reverse (v, ns));
- // Now the variables themselves.
- //
- string s; // Reuse the buffer.
- for (const binding& b: vars)
- {
- const string& n (b.first->name);
- const value& v (*b.second);
+ os << n << " =";
- names ns;
- names_view nv (reverse (v, ns));
+ auto append = [&l, &n, &s] (const name& v)
+ {
+ if (v.simple ())
+ s += v.value;
+ else if (v.directory ())
+ s += v.dir.representation ();
+ else
+ // It seems like we shouldn't end up here due to the type
+ // check but let's keep it for good measure.
+ //
+ fail << "simple or directory value expected instead of '"
+ << v << "' in exported variable " << n << " of library "
+ << l;
+ };
- os << n << " =";
+ for (auto i (nv.begin ()); i != nv.end (); ++i)
+ {
+ s.clear ();
+ append (*i);
- auto append = [&l, &n, &s] (const name& v)
+ if (i->pair)
{
- if (v.simple ())
- s += v.value;
- else if (v.directory ())
- s += v.dir.representation ();
- else
- // It seems like we shouldn't end up here due to the type
- // check but let's keep it for good measure.
- //
- fail << "simple or directory value expected instead of '"
- << v << "' in exported variable " << n
- << " of library " << l;
- };
-
- for (auto i (nv.begin ()); i != nv.end (); ++i)
- {
- s.clear ();
- append (*i);
-
- if (i->pair)
- {
- // @@ What if the value contains the pair character? Maybe
- // quote the halves in this case? Note: need to handle in
- // parse_metadata() above if enable here. Note: none of
- // the types currently allowed use pairs.
+ // @@ What if the value contains the pair character? Maybe
+ // quote the halves in this case? Note: need to handle in
+ // parse_metadata() above if enable here. Note: none of the
+ // types currently allowed use pairs.
#if 0
- s += i->pair;
- append (*++i);
+ s += i->pair;
+ append (*++i);
#else
- fail << "pair in exported variable " << n << " of library "
- << l;
+ fail << "pair in exported variable " << n << " of library "
+ << l;
#endif
- }
-
- os << ' ' << escape (s);
}
- os << endl;
+ os << ' ' << escape (s);
}
+
+ os << endl;
+ }
+ }
+ else
+ {
+ // No user metadata.
+ //
+ os << endl
+ << "build2.metadata = 1" << endl;
+ }
+
+ // Save the bin.whole (whole archive) flag (see the link rule for
+ // details on the lookup semantics).
+ //
+ if (la)
+ {
+ if (cast_false<bool> (l.lookup_original (
+ ctx.var_pool["bin.whole"],
+ true /* target_only */).first))
+ {
+ os << endl
+ << "bin.whole = true" << endl;
}
}
@@ -2340,7 +2388,7 @@ namespace build2
if (size_t n = mods.size ())
{
os << endl
- << "cxx_modules =";
+ << "cxx.modules =";
// The partition separator (`:`) is not a valid character in the
// variable name. In fact, from the pkg-config source we can see
@@ -2365,23 +2413,23 @@ namespace build2
// Module-specific properties. The format is:
//
- // <lang>_module_<property>.<module> = <value>
+ // <lang>.module_<property>.<module> = <value>
//
for (const module& m: mods)
{
if (!m.preprocessed.empty ())
- os << "cxx_module_preprocessed." << m.name << " = "
+ os << "cxx.module_preprocessed." << m.name << " = "
<< m.preprocessed << endl;
if (m.symexport)
- os << "cxx_module_symexport." << m.name << " = true" << endl;
+ os << "cxx.module_symexport." << m.name << " = true" << endl;
}
}
if (size_t n = c_hdrs.size ())
{
os << endl
- << "c_importable_headers =";
+ << "c.importable_headers =";
for (const path& h: c_hdrs)
os << (n != 1 ? " \\\n" : " ") << escape (h.string ());
@@ -2392,7 +2440,7 @@ namespace build2
if (size_t n = x_hdrs.size ())
{
os << endl
- << x << "_importable_headers =";
+ << x << ".importable_headers =";
for (const path& h: x_hdrs)
os << (n != 1 ? " \\\n" : " ") << escape (h.string ());