require "R2H2"

function strip_symbols(str)
	local symbol_table = "'~()!?:></.\t"
	for i=1, #symbol_table do
		while string.find(str, "%"..string.sub(symbol_table,i,i)) do
			str = string.gsub(str, "%"..string.sub(symbol_table,i,i),"")
		end
	end
	return str
end

function reverse_verbs(str)
	while string.find(str, "kanya") do
		str = string.gsub(str, "kanya","ku")
	end
	while string.find(str, "kome") do
		str = string.gsub(str, "kome","ku")
	end
	return str
end

function apply_html(path)
	-- copy
	local file = io.open(path,"r")
	local html = file:read("*all")
		
	file:close()
	-- paste
	print(html)	
end

function convo_start(color)
	if not convo then
		if color then
			apply_html("html/convo/start_green.html")
		else
			apply_html("html/convo/start_gray.html")
		end
		convo = true
	end					
end

function convo_end()
	if convo then 
		apply_html("html/convo/end.html")
		convo = false
	end
end

-- lets make the html
apply_html("html/start.html")
-- get text
local file = io.open("input.txt","r")
local text = file:read("*all")
file:close()

-- first analyze text
-- (this is the fun part)
local content = ""
local p = 0
local s = 0
local convo = false
local green = true
while p ~= nil do
	s = s + 1
	local np = string.find(text,"\n",p+1)  
	if np and p - np ~= 1 then 
		if p then
			if string.sub(text,p+1,p+1) == "\n"
			or  string.sub(text,p+1,p+1) == "/"  then
				-- end of new bubble
				convo_end() 
			elseif string.sub(text,p+1,p+1) == "\t" then
				-- its tabbed so its spoken?
				convo_start(
				)
				apply_html("html/convo/text/start_roman.html")
				print(string.sub(text,p+2,np-1))
					--content = content .. " " .. reverse_verbs(strip_symbols(string.sub(text,p+2,np-1))) 
					--print("\n"..reverse_verbs(strip_symbols(string.sub(text,p+2,np-1))))
				apply_html("html/convo/text/end.html")
				-- heonian
				apply_html("html/convo/text/start_heonian.html")
				print(convertToHeonian(string.sub(text,p+2,np-1)))
				apply_html("html/convo/text/end.html")
			else
				--  new user name
				convo_end()
				if green then 
					green = false
				else
					green = true 
				end
				convo_start(green)
				apply_html("html/convo/header/start.html")
				apply_html("html/convo/header/name/start.html")
				print(string.sub(text,p+1,np-1))
				apply_html("html/convo/header/name/end.html")
				apply_html("html/convo/header/end.html")
			end
		end
		p = string.find(text,"\n",p+1)
	else 
		break
	end
end
		
apply_html("html/convo/end.html")

-- fourth lets make word lists

-- lets end the html
apply_html("html/end.html")


-- print(content)