Final

comp.lua

@@ -0,0 +1,47 @@
+local input,output = ...
+if not input then error("No input provided") end
+output = output or input..".funny"
+local file = io.open(input)
+if not file then error("Failed to read: "..input) end
+local content = file:read("*a")
+local definitions = {}
+local def_pattern = "%$(%a-)={(.-)}"
+for identifier,block in content:gmatch(def_pattern) do
+  definitions[identifier] = block
+end
+content = content:gsub(def_pattern,"")
+content = content:gsub("/*.-*/","")
+content = content:gsub("//.-[\n\r]","")
+content = content:gsub("//.-[\n\r]","")
+content = content:gsub("%$(%a+)",function(identifier)
+  return definitions[identifier]
+end)
+content = content:gsub("%$(%a+)",function(identifier)
+  return definitions[identifier]
+end)
+local lines = {}
+local index = 0
+content=content:gsub("repeat(%d-){(.-)}",function(num,block)
+  return string.rep(block,num)
+end)
+content=content:gsub("[^\n\r]+",function(line)
+  index = index + 1
+  local result,line2 = line:match("^(.+)%s?:(%a+)")
+  if line2 then lines[line2] = index end
+  return result or line
+end)
+local subs = {}
+local index = 0
+content=content:gsub("[^\n\r]+",function(line)
+  index = index + 1
+  return line:gsub("%%(%a+)",function(name)
+    return tostring(lines[name] - index)
+  end)
+end)
+content = content:gsub("^[\n\r]+","")
+content = content:gsub("[\n\r%s]*(\n)[\n\r%s]*","\n")
+local result = io.open(output,"w")
+result:write(content)
+print(content)
+result:close()
+file:close()