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
|
// file : libbuild2/functions-string.cxx -*- C++ -*-
// license : MIT; see accompanying LICENSE file
#include <libbuild2/function.hxx>
#include <libbuild2/variable.hxx>
using namespace std;
namespace build2
{
void
string_functions (function_map& m)
{
function_family f (m, "string");
f["string"] += [](string s) {return s;};
// @@ Shouldn't it concatenate elements into the single string?
// @@ Doesn't seem to be used so far. Can consider removing.
//
// f["string"] += [](strings v) {return v;};
// Compare ASCII strings ignoring case and returning the boolean value.
//
f["icasecmp"] += [](string x, string y)
{
return icasecmp (x, y) == 0;
};
f["icasecmp"] += [](string x, names y)
{
return icasecmp (x, convert<string> (move (y))) == 0;
};
f["icasecmp"] += [](names x, string y)
{
return icasecmp (convert<string> (move (x)), y) == 0;
};
f[".icasecmp"] += [](names x, names y)
{
return icasecmp (convert<string> (move (x)),
convert<string> (move (y))) == 0;
};
// Trim.
//
f["trim"] += [](string s)
{
return trim (move (s));
};
f[".trim"] += [](names s)
{
return names {name (trim (convert<string> (move (s))))};
};
// Convert ASCII strings into lower/upper case.
//
f["lcase"] += [](string s)
{
return lcase (move (s));
};
f[".lcase"] += [](names s)
{
return names {name (lcase (convert<string> (move (s))))};
};
f["ucase"] += [](string s)
{
return ucase (move (s));
};
f[".ucase"] += [](names s)
{
return names {name (ucase (convert<string> (move (s))))};
};
// String-specific overloads from builtins.
//
function_family b (m, "builtin");
b[".concat"] += [](string l, string r) {l += r; return l;};
b[".concat"] += [](string l, names ur)
{
l += convert<string> (move (ur));
return l;
};
b[".concat"] += [](names ul, string r)
{
string l (convert<string> (move (ul)));
l += r;
return l;
};
}
}
|
