precompiler.lua

--[=[

example:
#define mv{#} tonumber(%1)>0 and(">"):rep(%1)or("<"):rep(-(%1))
#define add{#} "mv{%1}[-mv{-(%1)}+mv{%1}]mv{-(%1)}"
,>,>,<<add{2}add{1}.

preprocession:
,>,>,<<mv{2}[-mv{-2}+mv{2}]mv{-2}mv{1}[-mv{-1}+mv{1}]mv{-1}.

preprocession:
,>,>,<<>>[-<<+>>]<<>[-<+>]<.

optimization:
,>,>,[-<<+>>]<[-<+>]<.

]=]
local code=io.read"*a"
local def={}
for n,r in code:gmatch"#define +([^ ]*) +([^\n]*)" do
	n=n:gsub("#","([0-9.+*/%%^()-]+)")
	def[n]=r
end
code=code:gsub("#[^\n]*","")
local i=1
while i>0 do
	for n,r in pairs(def) do
		code,i=code:gsub(n,
			function(...)
				t={...}
				return loadstring("return "..r:gsub("%%(%d+)",
					function(i)
						return tostring(t[tonumber(i)])
					end))(...)
			end)
		if i>0 then break end
	end
end
local annih={"<>","><","%+%-","%-%+","()[+-]+(%[[+-]%])","()%[[+-]](%[[+-]])","%[[+-]%]%[%]"}
table.insert(annih,"[^.,><[%]+-]+")
local i=1
while i>0 do
	for _,v in ipairs(annih) do
		code,i=code:gsub(v,function(_,a)return a or""end)
		if i>0 then break end
	end
end
print(code)