Inital commit

2 files changed, 36 insertions, 0 deletions

diff --git a/tools/luastr.sh b/tools/luastr.sh
new file mode 100644
index 0000000..5b50c7d
--- /dev/null
+++ b/tools/luastr.sh
@@ -0,0 +1,5 @@
+#!/bin/bash
+
+echo "return [=====["
+echo "$(cat $1)"
+echo "]=====]"
diff --git a/tools/rewrite.lua b/tools/rewrite.lua
new file mode 100644
index 0000000..503a0c8
--- /dev/null
+++ b/tools/rewrite.lua
@@ -0,0 +1,31 @@
+--[[Script to rewrite a stack traceback in terms of moonscript instead of lua]]
+
+for data in io.lines() do
+	local filename, linenum, rest = data:gmatch("%s+(.*%.lua):(%d+):(.*)")()
+	if filename and linenum and rest then
+		local moonfilename = filename:gsub(".lua$",".moon")
+
+		--If our file is not moonscript, we won't have a debug file
+		local debugfile, err = io.open(filename .. ".X", "r")
+		if not debugfile then
+			--print("not debugfile" .. filename .. ":" .. err)
+			print(data)
+			goto next
+		end
+
+		--Skip first line
+		debugfile:read("*l")
+		for line in debugfile:lines() do
+			_,_,pos,lua,moon = line:find("(%d+)%s+(%d+):%b[] >> (%d+)")
+			if tonumber(linenum) == tonumber(lua) then
+				print(string.format("\t%s:%d: %s",moonfilename,moon,rest))
+				goto next
+			end
+		end
+		debugfile:close()
+	else
+		print(data)
+	end
+	::next::
+end
+