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
|
// file : libbuild2/functions-builtin.cxx -*- C++ -*-
// license : MIT; see accompanying LICENSE file
#include <sstream>
#include <libbuild2/scope.hxx>
#include <libbuild2/function.hxx>
#include <libbuild2/variable.hxx>
using namespace std;
namespace build2
{
void
builtin_functions (function_map& m)
{
function_family f (m, "builtin");
// Note that we may want to extend the scope argument to a more general
// notion of "lookup context" (scope, target, prerequisite).
//
// Note that this function is not pure.
//
f.insert ("defined", false) += [](const scope* s, names name)
{
if (s == nullptr)
fail << "defined() called out of scope" << endf;
return (*s)[convert<string> (move (name))].defined ();
};
// Return variable visibility if it has been entered and NULL otherwise.
//
// Note that this function is not pure.
//
f.insert ("visibility", false) += [](const scope* s, names name)
{
if (s == nullptr)
fail << "visibility() called out of scope" << endf;
const variable* var (
s->ctx.var_pool.find (convert<string> (move (name))));
return (var != nullptr
? optional<string> (to_string (var->visibility))
: nullopt);
};
f["type"] += [](value* v) {return v->type != nullptr ? v->type->name : "";};
f["null"] += [](value* v) {return v->null;};
f["empty"] += [](value* v) {return v->null || v->empty ();};
f["identity"] += [](value* v) {return move (*v);};
// string
//
f["string"] += [](bool b) {return b ? "true" : "false";};
f["string"] += [](int64_t i) {return to_string (i);};
f["string"] += [](uint64_t i) {return to_string (i);};
f["string"] += [](name n) {return to_string (n);};
// Quote a value returning its string representation. If escape is true,
// then also escape (with a backslash) the quote characters being added
// (this is useful if the result will be re-parsed, for example as a
// Testscript command line).
//
f["quote"] += [](value* v, optional<value> escape)
{
if (v->null)
return string ();
untypify (*v); // Reverse to names.
ostringstream os;
to_stream (os,
v->as<names> (),
true /* quote */,
'@' /* pair */,
escape && convert<bool> (move (*escape)));
return os.str ();
};
// getenv
//
// Return NULL if the environment variable is not set, untyped value
// otherwise.
//
// Note that if the build result can be affected by the variable being
// queried, then it should be reported with the config.environment
// directive.
//
// Note that this function is not pure.
//
f.insert ("getenv", false) += [](names name)
{
optional<string> v (getenv (convert<string> (move (name))));
if (!v)
return value ();
names r;
r.emplace_back (to_name (move (*v)));
return value (move (r));
};
}
}
|
