--

-- 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