42 lines
1.4 KiB
Plaintext
42 lines
1.4 KiB
Plaintext
#
|
|
This file contains some definitions of text escape sequences, including ANSI console
|
|
color codes.
|
|
|
|
use "core/metaprogramming.nom"
|
|
|
|
# Text functions
|
|
action [%texts joined with %glue]
|
|
lua> ".."
|
|
local text_bits = {}
|
|
for i,bit in ipairs(\%texts) do text_bits[i] = stringify(bit) end
|
|
return table.concat(text_bits, \%glue)
|
|
parse [joined %texts, %texts joined] as: %texts joined with ""
|
|
|
|
compile [capitalized %text, %text capitalized] to
|
|
Lua value "((\(%text as lua expr)):gsub('%l', string.upper, 1))"
|
|
|
|
compile [%text with %sub instead of %patt, %text s/%patt/%sub] to
|
|
Lua value "((\(%text as lua expr)):gsub(\(%patt as lua expr), \(%sub as lua expr)))"
|
|
|
|
action [lines in %text, lines of %text]
|
|
lua> ".."
|
|
local result = list{}
|
|
for line in (\%text):gmatch('[^\n]+') do
|
|
result[#result+1] = line
|
|
end
|
|
return result
|
|
|
|
# Text literals
|
|
lua> ".."
|
|
do
|
|
local escapes = {
|
|
nl="\\\\n", newline="\\\\n", tab="\\\\t", bell="\\\\a", cr="\\\\r", ["carriage return"]="\\\\r",
|
|
backspace="\\\\b", ["form feed"]="\\\\f", formfeed="\\\\f", ["vertical tab"]="\\\\v",
|
|
};
|
|
for name, e in pairs(escapes) do
|
|
local lua = "'"..e.."'"
|
|
nomsu.COMPILE_ACTIONS[name] = (function(nomsu, tree) return LuaCode.Value(tree.source, lua) end)
|
|
end
|
|
end
|
|
|