forked from osmarks/potatOS
48 lines
1.1 KiB
Lua
48 lines
1.1 KiB
Lua
|
|
||
|
|
--
|
||
|
|
-- beautify.interactive
|
||
|
|
--
|
||
|
|
-- For testing: Lets you enter lines of text to be beautified to verify the
|
||
|
|
-- correctness of their implementation.
|
||
|
|
--
|
||
|
|
|
||
|
|
local util = require'Util'
|
||
|
|
local Parser = require'ParseLua'
|
||
|
|
local Format_Beautify = require'FormatBeautiful'
|
||
|
|
local ParseLua = Parser.ParseLua
|
||
|
|
local PrintTable = util.PrintTable
|
||
|
|
|
||
|
|
while true do
|
||
|
|
io.write('> ')
|
||
|
|
local line = io.read('*line')
|
||
|
|
local fileFrom, fileTo = line:match("^file (.*) (.*)")
|
||
|
|
if fileFrom and fileTo then
|
||
|
|
local file = io.open(fileFrom, 'r')
|
||
|
|
local fileTo = io.open(fileTo, 'w')
|
||
|
|
if file and fileTo then
|
||
|
|
local st, ast = ParseLua(file:read('*all'))
|
||
|
|
if st then
|
||
|
|
fileTo:write(Format_Beautify(ast)..'\n')
|
||
|
|
io.write("Beautification Complete\n")
|
||
|
|
else
|
||
|
|
io.write(""..tostring(ast).."\n")
|
||
|
|
end
|
||
|
|
file:close()
|
||
|
|
fileTo:close()
|
||
|
|
else
|
||
|
|
io.write("File does not exist\n")
|
||
|
|
end
|
||
|
|
else
|
||
|
|
local st, ast = ParseLua(line)
|
||
|
|
if st then
|
||
|
|
io.write("====== AST =======\n")
|
||
|
|
io.write(PrintTable(ast)..'\n')
|
||
|
|
io.write("==== BEAUTIFIED ====\n")
|
||
|
|
io.write(Format_Beautify(ast))
|
||
|
|
io.write("==================\n")
|
||
|
|
else
|
||
|
|
io.write(""..tostring(ast).."\n")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|