From 541ef6aaee248626c1a1c6e0db05f5980d09c7a5 Mon Sep 17 00:00:00 2001
From: Alexander M Pickering <alex@cogarr.net>
Date: Mon, 9 Dec 2024 16:44:32 -0600
Subject: Inital commit

---
 tools/rewrite.lua | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 tools/rewrite.lua

(limited to 'tools/rewrite.lua')

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
+
-- 
cgit v1.2.3-70-g09d2