using System;

namespace Gilgal.Controles
{
	/// <summary>
	/// Summary description for Fonetica.
	/// </summary>
	public class Fonetica
	{
		private Fonetica()
		{
		}


		private static string  AX ="CKQ CChSXZ DT BVW GJY FL MNñÑ P R 123456789";
		private static char [] AY ="111 222222 33 444 555 66 7777 8 9 123456789".ToCharArray();
		private static string consonantes = "BCDFGJKLMNÑñPQRSTVWXYZ0123456789 ";
		private static string vocales="AEIOU";


		/// <summary>
		/// Regresa hilera con el codigo fonetico
		///					v.g.   'Carlos Loria Beeche' --- '1962 69 42'
		/// </summary>
		/// <param name="nombre"></param>
		/// <returns></returns>
		public static string codigoFonetico (string nombre) 
		{
			return string.Concat(fonemas(nombre) ).Trim();
		}


		/// <summary>
		/// Regresa arreglo de fonemas que componen un nombre
		/// </summary>
		/// <param name="nombre">Nombre a fonetizar</param>
		/// <returns>El arreglo de fonemas</returns>
		public static string [] fonemas (string nombre) 
		{
			string [] palabras = nombre.Split(" ".ToCharArray());
			string [] f = new string[palabras.Length];
			for (int i=0;i<palabras.Length;i++) 
			{
				f[i]= tokenAfonema(palabras[i])+" ";
			}
			return f;
		}
		
		/// <summary>
		/// Un token no tiene espacios. es una palabra (presumo un nombre o un apellido)
		/// </summary>
		/// <param name="token"></param>
		/// <returns></returns>
		private static string tokenAfonema(string token) 
		{
	//		string x = token.ToUpper();  // original (en mayusculas)
	//		char []y = x.ToCharArray();  // arreglo
			char []y = token.ToUpper().ToCharArray();

			for (int i=0;i<y.Length-1;i++) 
			{ // hasta la penultima letra
				// Elimina Y que no va seguida de vocal (sonido i), 
				// cambia Y que va seguida de vocal (fonema 5:LL) 
				if (y[i]=='Y') 
				{ // es letra Y. Va seguida de vocal?
					if (0<=vocales.IndexOf(y[i])) 
					{ // si va seguida de vocal
						y[i]='5';   // convierto en 
						y[i+1]=' '; // elimino la vocal
					} 
					else 
					{ // la y NO va seguida de vocal, es sonido i (y se elimina)
						y[i]=' ';
					}
				}

				// La doble L (LL)
				
				if (y[i]=='L') 
				{
					if (y[i+1]=='L') 
					{
						y[i]='5';  // fonema 5: G, J, LL
						y[i+1]=' ';
					}
				}

				//
				// Combinaciones de C:  sonidos Che, K, S
				//
				if (y[i]=='C') 
				{
					switch (y[i+1]) 
					{
							// Sonido CH
						case 'H':   // CH
							y[i]   = '2';
							y[i+1] = ' ';
							break;
		
							// Sonido K
						case 'A':   //CA
						case 'U':   //CU
						case 'O':   //CO
						case 'K':   //CK
							y[i]  = '1';
							y[i+1]= ' ';
							break;

							// Sonido S
						case 'E':  // CE
						case 'I':  // CI
							y[i]  = '2';
							y[i+1]= ' ';
							break;
					}
				}

				if (y[i] == y[i+1]) 
				{ // busco consonantes repetidas, para poner solo una
					if (consonantes.IndexOf(y[i])>=0) 
					{  // es una consonante
						y[i]  = consonanteAFonema(y[i]);
						y[i+1]=' ';
					}
				}

			}



			//
			// Paso 2  termino de pasar consonantes a fonemas elimiando espacios en blanco
			//
			for (int k=0,i=0;i<y.Length;i++) 
			{
				char c= y[i];
				if ( ! char.IsNumber(c)) c=consonanteAFonema(y[i]);
				if ( c != ' ')
				{
					if (k<i) 
					{
						y[k++]=c;
						y[i]=' ';
					} 
					else 
					{
						y[k++]=c;
					}
				} 
				else 
				{
					y[i]=' ';
				}
			}
			return (new string(y)).Trim();
		}

		
		/// <summary>
		/// Convierte una consonante en su equivalente fonetico
		///				v.g.  K --- 1
		///                   S --- 2
		///                   T --- 3
		/// </summary>
		/// <param name="x"></param>
		/// <returns></returns>
		private static char consonanteAFonema (char x) 
		{
			int p = AX.IndexOf(x);
			if (p<0) return ' ';//si no es consonante, devuelve un blanco. (elimina vocales y caracteres especiales)
			return AY[p];
		}



	}
}