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
|
local _ = require "mason-core.functional"
local Result = require "mason-core.result"
local M = {}
local parse_expr = _.compose(
_.apply_spec {
value_expr = _.head,
filters = _.drop(1),
},
_.filter(_.complement(_.equals "")),
_.map(_.trim),
_.split "|"
)
local FILTERS = {
format = _.format,
gsub = _.gsub,
to_lower = _.to_lower,
to_upper = _.to_upper,
trim = _.trim,
trim_start = _.trim_start,
trim_end = _.trim_end,
strip_prefix = _.strip_prefix,
strip_suffix = _.strip_suffix,
tostring = tostring,
}
---@generic T : table
---@param tbl T
---@return T
local function shallow_clone(tbl)
local res = {}
for k, v in pairs(tbl) do
res[k] = v
end
return res
end
---@param str string
---@param ctx table<string, any>
function M.eval(str, ctx)
ctx = shallow_clone(ctx)
return Result.pcall(function()
setmetatable(ctx, { __index = FILTERS })
return _.gsub("{{([^}]+)}}", function(expr)
local components = parse_expr(expr)
local value = assert(
setfenv(
assert(
loadstring("return " .. components.value_expr),
("Failed to parse value: %q"):format(components.value_expr)
),
ctx
)(),
("Value is nil: %q"):format(components.value_expr)
)
return _.reduce(
_.apply_to,
value,
_.map(function(filter_expr)
local filter = setfenv(
assert(loadstring("return " .. filter_expr), ("Failed to parse filter: %q"):format(filter_expr)),
ctx
)()
assert(type(filter) == "function", ("Invalid filter expression: %q"):format(filter_expr))
return filter
end, components.filters)
)
end, str)
end)
end
---@generic T : table
---@param tbl T
---@param ctx table
---@return T
function M.tbl_interpolate(tbl, ctx)
return Result.try(function(try)
local interpolated = {}
for k, v in pairs(tbl) do
if type(v) == "string" then
interpolated[k] = try(M.eval(v, ctx))
elseif type(v) == "table" then
interpolated[k] = try(M.tbl_interpolate(v, ctx))
else
interpolated[k] = v
end
end
return interpolated
end)
end
return M
|
