Translation system first draft

parser/expression/primary/init.lua

@@ -28,6 +28,7 @@ local primaries = {
 	r("prefix.negation"),
 	r("prefix.not"),
 	r("prefix.mutable"),
+	r("prefix.translatable"),
 }
 
 return {

parser/expression/primary/prefix/translatable.lua

@@ -0,0 +1,16 @@
+local prefix = require("parser.expression.primary.prefix.prefix")
+
+local ast = require("ast")
+local Translatable = ast.Translatable
+
+local operator_priority = require("common").operator_priority
+
+return prefix {
+	operator = "%",
+	identifier = "%_",
+	priority = operator_priority["%_"],
+
+	build_ast = function(self, right)
+		return Translatable:new(right)
+	end
+}

parser/expression/primary/text.lua

@@ -1,7 +1,7 @@
 local string = require("parser.expression.primary.string")
 
 local ast = require("ast")
-local TextInterpolation = ast.TextInterpolation
+local TextInterpolation, Translatable = ast.TextInterpolation, ast.Translatable
 
 return string {
 	type = "text",
@@ -11,6 +11,7 @@ return string {
 	interpolation = TextInterpolation,
 
 	parse = function(self, source, str, limit_pattern)
+		local start_source = source:clone()
 		local interpolation, rem = string.parse(self, source, str, limit_pattern)
 
 		-- restore | when chaining with a choice operator
@@ -19,6 +20,6 @@ return string {
 			source:increment(-1)
 		end
 
-		return interpolation, rem
+		return Translatable:new(interpolation):set_source(start_source), rem
 	end
 }

parser/expression/secondary/infix/translate.lua

@@ -0,0 +1,9 @@
+local infix_quote_both = require("parser.expression.secondary.infix.infix_quote_both")
+
+local operator_priority = require("common").operator_priority
+
+return infix_quote_both {
+	operator = "->",
+	identifier = "_->_",
+	priority = operator_priority["_->_"]
+}

parser/expression/secondary/init.lua

@@ -8,6 +8,7 @@ local secondaries = {
 	-- binary infix operators
 	-- 1
 	r("infix.semicolon"),
+	r("infix.translate"),
 	-- 2
 	r("infix.tuple"),
 	r("infix.tag"),