Modul:R:Perseus/polytonic-to-perseus-betacode

local export = {}

local chart = {
	='a^', ='a_',
	='a', ='a/', ='a\\', ='a=', ='a)', ='a(',
	='a)\\', ='a(\\', ='a)/', ='a(/', ='a)=', ='a(=',
	='a|', ='a/|', ='a\\|', ='a=|', ='a)|', ='a(|',
	='a)\\|', ='a(\\|', ='a)/|', ='a(/|', ='a)=|', ='a(=|',
	='*a^', ='*a_',
	='*a', ='*/a', ='*a\\', ='*a=', ='*)a', ='*(a',
	='*)a\\', ='*(a\\', ='*)/a', ='*(/a', ='*)a=', ='*(a=',
	='*a|', ='*)a|', ='*(a|',
	='*)a\\|', ='*(a\\|', ='*)/a|', ='*(/a|', ='*)a=|', ='*(a=|',
	='b', ='*b', ='g', ='*g', ='d', ='*d',
	='e', ='e/', ='e\\', ='e)', ='e(',
	='e)\\', ='e(\\', ='e)/', ='e(/',
	='*e', ='*/e', ='*\\e', ='*)e', ='*(e',
	='*)\\e', ='*(\\e', ='*)/e', ='*(/e', 
	='z', ='*z',
	='h', ='h/', ='h\\', ='h=', ='h)', ='h(',
	='h)\\', ='h(\\', ='h)/', ='h(/', ='h)=', ='h(=',
	='h|', ='h/|', ='h\\|', ='h=|', ='h)|', ='h(|',
	='h)\\|', ='h(\\|', ='h)/|', ='h(/|', ='h)=|', ='h(=|',
	='*h', ='*h/', ='*h\\', ='*)h', ='*(h',
	='*)h\\', ='*(h\\', ='*)/h', ='*(/h', ='*)h=', ='*(h=',
	='*h|', ='*)h|', ='*(h|',
	='*)h\\|', ='*(h\\|', ='*)/h|', ='*(/h|', ='*)h=|', ='*(h=|',
	='q', ='*q',
	='i^', ='i_', ='i%252B', ='i\\%252B', ='i/%252B', ='i=', ='i=%252B',
	='i', ='i/', ='i\\', ='i)', ='i(',
	='i)\\', ='i(\\', ='i)/', ='i(/', ='i)=', ='i(=',
	='*i^', ='*i_', ='*i%252B',
	='*i', ='*i/', ='*i\\', ='*)i', ='*(i',
	='*)i\\', ='*(i\\', ='*)/i', ='*(/i', ='*)i=', ='*(i=',
	='k', ='*k', ='l', ='*l',
	='m', ='*m', ='n', ='*n', ='c', ='*c',
	='o', ='o/', ='o\\', ='o)', ='o(',
	='o)\\', ='o(\\', ='o)/', ='o(/',
	='*o', ='*/o', ='*o\\', ='*)o', ='*(o',
	='*)o\\', ='*(o\\', ='*)/o', ='*(/o',
	='p', ='*p', ='r', ='r)',
	='r(', ='*r', ='*(r', ='s', ='*s', ='s',
	='t', ='*t',
	='u^', ='u_', ='u%252B', ='u/%252B',  ='u\\%252B', ='u=%252B',
	='u', ='u/', ='u\\', ='u=', ='u)', ='u(',
	='u)\\', ='u(\\', ='u)/', ='u(/', ='u)=', ='u(=',
	='*u^', ='*u_', ='*u%252B',
	='*u', ='*/u', ='*u\\', ='*(u',
	='*(u\\', ='*(u/', ='*(u=',
	='f', ='y', ='*y', ='*f', ='x', ='*x',
	='w', ='w/', ='w\\', ='w=', ='w)', ='w(',
	='w)\\', ='w(\\', ='w)/', ='w(/', ='w)=', ='w(=',
	='w|', ='w/|', ='w\\|', ='w=|', ='w)|', ='w(|',
	='w)\\|', ='w(\\|', ='w)/|', ='w(/|', ='w)=|', ='w(=|',
	='*w', ='*/w', ='*w\\', ='*)w', ='*(w',
	='*)w\\', ='*(w\\', ='*)w/', ='*(/w', ='*)w=', ='*(w=',
	='*w|', ='*)w|', ='*(w|',
	='*)w\\|', ='*(w\\|', ='*)/w|', ='*(/w|', ='*)w=|', ='*(w=|',
	='v', ='*v'}

function export.polytonic_to_perseus_betacode(polytonic)
	local betaCode = string.gsub(polytonic, '*', chart) -- UTF-8 character pattern
	
	return betaCode
end

return export