#!/usr/bin/lua

function ltrim(s)
  return s:match'^%s*(.*)'
end

file=arg[1]
filet=arg[1]

overall = {}

cntr = 1
filein = io.open(file, "r")
maxslot = -1
repeat
	message = {}
	local line = filein:read("*line")
	if line == nil then
		break
	end
	if cntr < 2 then
		maxused = line
		line = filein:read("*line")
		maxslots = line
		cntr=2
	else
		message['slot'] = line
		message['phone'] = filein:read("*line")
		nline = filein:read("*line")
		message['nline'] = nline
		ncntr = 1
		msg=""
		message['msgnum'] = "xxx"
		message['msgord'] = "xxx"
		message['msgmax'] = "xxx"
		lines = filein:read("*line")
		s, e = lines:find("Msg# ")
		if s ~= nil then
			bs, be = lines:find(",", e+1)
			msgnum = lines:sub(e+1, be-1)
			message['msgnum'] = msgnum
			s, e = lines:find("/", be+1)
			msgord = lines:sub(be+1, e-1)
			message['msgord'] = msgord
			message['msgmax'] = lines:sub(e+1)
			lines = filein:read("*line")
		end
		msg = lines
		nc = tonumber(nline)
		if nc > 2 then
			for i=1,nc-2,1
			do
				lines = filein:read("*line")
				if lines ~= "" then
					msg = msg .. "\n" .. lines
				else
					if i == nc-2 then
						if msgord == message['msgmax'] then
							msg = msg .. "\n\n"
						else
							msg = msg .. "\n\n"
						end
					else
						msg = msg .. "\n"
						
					end
				end
			end
			--print(nln, msg)
			--msg = msg .. "\n"
		end
		message['msg'] = msg
		message['numlines'] = nc - 1
		sht = filein:read("*line")
		s, e = sht:find("Msg#")
		if s ~= nil then
			shtt = sht:sub(1, s-1)
			bs, be = sht:find("/", e)
			sht = shtt .. sht:sub(be+2)
		end
		message['short'] = sht
		overall[message['slot']] = message
		if maxslot < tonumber(message['slot']) then
			maxslot = tonumber(message['slot'])
		end
	end
until 1==0
filein:close()

fileout = io.open(filet, "w")
fileout:write(maxused, "\n")
fileout:write(maxslots, "\n")

for i=0,maxslot,1
do
	msgbuild = {}
	shortmsg = {}
	if overall[tostring(i)] ~= nil then
		--print(i, overall[tostring(i)]['msgnum'])
		if overall[tostring(i)]['msgnum'] == "xxx" then
			fileout:write(overall[tostring(i)]['slot'], "\n")
			fileout:write(overall[tostring(i)]['phone'], "\n")
			fileout:write(overall[tostring(i)]['nline'], "\n")
			fileout:write(overall[tostring(i)]['msg'], "\n")
			fileout:write(overall[tostring(i)]['short'], "\n")
		else
			msgnum = overall[tostring(i)]['msgnum']
			msgtmp = overall[tostring(i)]['slot']
			msgord = overall[tostring(i)]['msgord']
			msgmax = tonumber(overall[tostring(i)]['msgmax'])
			msg = overall[tostring(i)]['msg']
			numlines = overall[tostring(i)]['numlines']
			--print(numlines)
			msgbuild[overall[tostring(i)]['msgord']] = overall[tostring(i)]['msg']
			shortmsg[overall[tostring(i)]['msgord']] = overall[tostring(i)]['short']
			for j=i+1,maxslot,1
			do
				if overall[tostring(j)] ~= nil then
					if overall[tostring(j)]['msgnum'] == msgnum then
						numlines = numlines + (overall[tostring(j)]['numlines'])
						--print(overall[tostring(j)]['numlines'])
						msgtmp = msgtmp .. " " .. overall[tostring(j)]['slot']
						msgbuild[overall[tostring(j)]['msgord']] = overall[tostring(j)]['msg']
						shortmsg[overall[tostring(j)]['msgord']] = overall[tostring(j)]['short']
						overall[tostring(j)] = nil
					end
				end
			end
			msg=""
			mflg = 0
			short = nil
			for j=1,msgmax,1
			do
				if msgbuild[tostring(j)] ~= nil then
					msg = msg .. msgbuild[tostring(j)]
					if short == nil then
						short = shortmsg[tostring(j)]
					end
				else
					mflg = 1
				end
			end
			fileout:write(msgtmp, "\n")
			fileout:write(overall[tostring(i)]['phone'], "\n")
			
			if mflg ~= 0 then
				msg = "Partial Message : " .. msg
				t = short:gsub("%s+", " ")
				short = "Partial Message " .. t
			end
			endc = string.sub(msg, -2)
			if endc == "\n\n" then
				mlen = msg:len() - 2
				msg = string.sub(msg,1,mlen)
			end
			local _,n = msg:gsub("\n","")
			fileout:write(tostring(n+1), "\n")
			fileout:write(msg, "\n")
			fileout:write(short, "\n")
		end
	end
end
fileout:close()