60 lines
1.8 KiB
Plaintext
60 lines
1.8 KiB
Plaintext
#!/usr/bin/env nomsu -V4.8.8.6
|
|
#
|
|
This file contains some definitions of text escape sequences, including ANSI console
|
|
color codes.
|
|
|
|
use "core/metaprogramming.nom"
|
|
|
|
test:
|
|
assume "\[1, 2, 3]" == "[1, 2, 3]"
|
|
assume "foo = \(1 + 2)!" == "foo = 3!"
|
|
assume "one\ntwo" == "\
|
|
..one
|
|
two"
|
|
assume "nogap" == "\
|
|
..no\
|
|
..gap"
|
|
assume (["x", "y"]::joined with ",") == "x,y"
|
|
assume (["x", "y"]::joined) == "xy"
|
|
assume ("BAR"::byte 2) == 65
|
|
assume ("BAR"::bytes 1 to 2) == [66, 65]
|
|
assume ("asdf"::capitalized) == "Asdf"
|
|
assume ("asdf"::uppercase) == "ASDF"
|
|
assume ("asdf"::with "s" -> "X") == "aXdf"
|
|
assume ("one\ntwo\n"::lines) == ["one", "two", ""]
|
|
parse [アクション %spec %body] as (action %spec %body)
|
|
test:
|
|
%こんにちは = "こんにちは"
|
|
アクション [% と言う] "\(%)世界"
|
|
assume (%こんにちは と言う) == "こんにちは世界"
|
|
compile [%expr for %match in %text matching %patt] to (..)
|
|
Lua value "\
|
|
..(function()
|
|
local ret = _List{}
|
|
for \(%match as lua expr) in (\(%text as lua expr)):gmatch(\(..)
|
|
%patt as lua expr
|
|
..) do
|
|
ret[#ret+1] = \(%expr as lua statements)
|
|
end
|
|
return ret
|
|
end)()"
|
|
|
|
test:
|
|
assume "\n" == (newline)
|
|
|
|
# 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.."'"
|
|
COMPILE_ACTIONS[name] = function(nomsu, tree)
|
|
return LuaCode.Value(tree.source, lua)
|
|
end
|
|
end
|
|
end"
|