1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
// file : libbuild2/config/utility.cxx -*- C++ -*-
// license : MIT; see accompanying LICENSE file
#include <libbuild2/config/utility.hxx>
using namespace std;
namespace build2
{
void (*config_save_variable) (scope&, const variable&, uint64_t);
void (*config_save_module) (scope&, const char*, int);
const string& (*config_preprocess_create) (context&,
values&,
vector_view<opspec>&,
bool,
const location&);
namespace config
{
pair<lookup, bool>
lookup_config_impl (scope& rs, const variable& var)
{
// This is a stripped-down version of the default value case.
pair<lookup, size_t> org (rs.lookup_original (var));
bool n (false); // New flag.
lookup l (org.first);
// Treat an inherited value that was set to default as new.
//
if (l.defined () && l->extra)
n = true;
if (var.overrides != nullptr)
{
pair<lookup, size_t> ovr (rs.lookup_override (var, move (org)));
if (l != ovr.first) // Overriden?
{
// Override is always treated as new.
//
n = true;
l = move (ovr.first);
}
}
if (l.defined ())
save_variable (rs, var);
return pair<lookup, bool> (l, n);
}
bool
specified_config (scope& rs, const string& n)
{
// Search all outer scopes for any value in this namespace.
//
// What about "pure" overrides, i.e., those without any original values?
// Well, they will also be found since their names have the original
// variable as a prefix. But do they apply? Yes, since we haven't found
// any original values, they will be "visible"; see find_override() for
// details.
//
const variable& vns (rs.var_pool ().insert ("config." + n));
for (scope* s (&rs); s != nullptr; s = s->parent_scope ())
{
for (auto p (s->vars.lookup_namespace (vns));
p.first != p.second;
++p.first)
{
const variable& var (p.first->first);
// Ignore config.*.configured.
//
if (var.name.size () < 11 ||
var.name.compare (var.name.size () - 11, 11, ".configured") != 0)
return true;
}
}
return false;
}
bool
unconfigured (scope& rs, const string& n)
{
// Pattern-typed in boot() as bool.
//
const variable& var (
rs.var_pool ().insert ("config." + n + ".configured"));
save_variable (rs, var);
auto l (rs[var]); // Include inherited values.
return l && !cast<bool> (l);
}
bool
unconfigured (scope& rs, const string& n, bool v)
{
// Pattern-typed in boot() as bool.
//
const variable& var (
rs.var_pool ().insert ("config." + n + ".configured"));
save_variable (rs, var);
value& x (rs.assign (var));
if (x.null || cast<bool> (x) != !v)
{
x = !v;
return true;
}
else
return false;
}
}
}
|
