Considerando apenas a implementação do algoritmo tenho uma função adaptada para o MySQL em que os fonemas foram analisados e melhorados conforme o passar do tempo para refletir as buscas realizadas em alguns sistemas. Ele pode conter algumas inconsistências (como no caso do "W" que não tem regra definida), mas resolve a grande maioria dos casos. Os detalhes da implementação estão comentados no decorrer do código:
DROP FUNCTION IF EXISTS transformar_fonetica;
DELIMITER $
CREATE FUNCTION transformar_fonetica(ptexto TEXT)
RETURNS TEXT
BEGIN
DECLARE vtexto TEXT;
DECLARE vtexto_apoio TEXT;
DECLARE vposicao_atual INT;
DECLARE vcaracter_anterior VARCHAR(1);
DECLARE vcaracter_atual VARCHAR(1);
DECLARE vcaracter_seguinte VARCHAR(1);
DECLARE vsom VARCHAR(2);
DECLARE com_acentos VARCHAR(65);
DECLARE sem_acentos VARCHAR(65);
SET vtexto = UPPER(ptexto);
SET com_acentos = 'ŠšŽžÀÁÂÃÄÅÆÈÉÊËÌÍÎÏÑÒÓÔÕÖØÙÚÛÜÝŸÞàáâãäåæèéêëìíîïñòóôõöøùúûüýÿþƒ';
SET sem_acentos = 'SsZzAAAAAAAEEEEIIIINOOOOOOUUUUYYBaaaaaaaeeeeiiiinoooooouuuuyybf';
SET vposicao_atual = LENGTH(com_acentos);
-- Remove acentos
WHILE vposicao_atual > 0 DO
SET vtexto = REPLACE(vtexto, SUBSTRING(com_acentos, vposicao_atual, 1), SUBSTRING(sem_acentos, vposicao_atual, 1));
SET vposicao_atual = vposicao_atual - 1;
end while;
-- Remove caracteres inválido
SET vposicao_atual = 1;
WHILE vposicao_atual <= LENGTH(vtexto) DO
SET vcaracter_atual = SUBSTRING(vtexto, vposicao_atual, 1);
IF INSTR('ABCÇDEFGHIJKLMNOPQRSTUVWXYZ ', vcaracter_atual) <> 0 THEN
SET vtexto_apoio = CONCAT(IFNULL(vtexto_apoio, ''), vcaracter_atual);
END IF;
SET vposicao_atual = vposicao_atual + 1;
END WHILE;
SET vtexto = vtexto_apoio;
-- Substitui os mais simples
SET vtexto = REPLACE(vtexto, 'Ç', 'S');
SET vtexto = REPLACE(vtexto, 'SH', 'X');
SET vtexto = REPLACE(vtexto, 'XC', 'S');
SET vtexto = REPLACE(vtexto, 'QU', 'K');
SET vtexto = REPLACE(vtexto, 'CH', 'X');
SET vtexto = REPLACE(vtexto, 'PH', 'F');
SET vtexto = REPLACE(vtexto, 'LH', 'LI');
SET vtexto = REPLACE(vtexto, 'NH', 'NI');
-- Remove duplicados. Menos o S que altera o som da sílaba
SET vposicao_atual = 1;
SET vtexto_apoio = '';
WHILE vposicao_atual <= LENGTH(vtexto) DO
SET vcaracter_atual = SUBSTRING(vtexto, vposicao_atual, 1);
IF vposicao_atual < LENGTH(vtexto) THEN
SET vcaracter_seguinte = SUBSTRING(vtexto, vposicao_atual + 1, 1);
ELSE -- Último caracter não tem motivo para ser verificado
SET vcaracter_seguinte = '';
END IF;
IF vcaracter_atual <> vcaracter_seguinte OR vcaracter_atual <> 'S' THEN
SET vtexto_apoio = CONCAT(vtexto_apoio, vcaracter_atual);
END IF;
SET vposicao_atual = vposicao_atual + 1;
END WHILE;
SET vtexto = vtexto_apoio;
-- Troca caracteres pelo som
SET vposicao_atual = 1;
SET vtexto_apoio = '';
WHILE vposicao_atual <= LENGTH(vtexto) DO
SET vcaracter_atual = SUBSTRING(vtexto, vposicao_atual, 1);
IF vposicao_atual < LENGTH(vtexto) THEN
SET vcaracter_seguinte = SUBSTRING(vtexto, vposicao_atual + 1, 1);
ELSE
SET vcaracter_seguinte = '';
END IF;
-- "B" seguindo de qualquer caracter que não seja "A", "E", "I", "O", "U", "R" ou "Y"
IF vcaracter_atual = 'B' AND INSTR('AEIOURY', vcaracter_seguinte) = 0 THEN
SET vsom = 'BI';
-- "C" seguindo de "E", "I" ou "Y"
ELSEIF vcaracter_atual = 'C' AND INSTR('EIY', vcaracter_seguinte) <> 0 THEN
SET vsom = 'S';
ELSEIF vcaracter_atual = 'C' THEN
SET vsom = 'K';
ELSEIF vcaracter_atual = 'D' AND INSTR('AEIOURY', vcaracter_seguinte) = 0 THEN
SET vsom = 'DI';
ELSEIF vcaracter_atual = 'G' AND INSTR('EIY', vcaracter_seguinte) <> 0 THEN -- GE, GI OU GY
SET vsom = 'J';
ELSEIF vcaracter_atual = 'G' AND vcaracter_seguinte = 'T' THEN -- GT
SET vsom = '';
ELSEIF vcaracter_atual = 'H' THEN -- O H é a única letra do nosso alfabeto sem valor fonético, ou seja, sem som.
SET vsom = '';
ELSEIF vcaracter_atual = 'N' AND INSTR('AEIOUY', vcaracter_seguinte) = 0 THEN -- Quando for seguida de uma consoante, recebe o som fechado "M"
SET vsom = 'M';
ELSEIF vcaracter_atual = 'P' AND INSTR('AEIOURY', vcaracter_seguinte) = 0 THEN
SET vsom = 'PI';
ELSEIF vcaracter_atual = 'Q' THEN
SET vsom = 'K';
-- QUA, QUE, QUI, QUO ou QUY
ELSEIF IFNULL(vcaracter_anterior, '') = 'Q' AND vcaracter_atual = 'U' AND INSTR('AEIOY', vcaracter_seguinte) <> 0 THEN
SET vsom = '';
-- Quando se localiza entre duas vogais, tem sempre o valor da sonora "Z". Exemplo: Coisa, faisão, mausoléu, lousa, Neusa, Brasil, Sousa, cheiroso, manhoso, gasoso, etc.
ELSEIF (IFNULL(vcaracter_anterior, '') <> '' AND INSTR('AEIOUY', IFNULL(vcaracter_anterior, '')) <> 0) AND vcaracter_atual = 'S' AND INSTR('AEIOUY', vcaracter_seguinte) <> 0 THEN
SET vsom = 'Z';
ELSEIF vcaracter_atual = 'S' AND vcaracter_seguinte = 'C' THEN -- "S" seguido de "C" não tem som
SET vsom = '';
ELSEIF vcaracter_atual = 'W' THEN -- O "W" não tem uma regra definida, podendo ser "V" ou "U" dependendo da palavra
SET vsom = 'V';
ELSEIF vcaracter_atual = 'X' AND INSTR('AEIOUY', vcaracter_seguinte) <> 0 THEN -- "X "seguido de vogal Exemplo: Exemplo
SET vsom = 'Z';
ELSEIF vcaracter_atual = 'X' AND INSTR('AEIOUY', vcaracter_seguinte) = 0 THEN -- "X" seguido de consoante. Exemplo: Exceção
SET vsom = 'S';
ELSEIF vcaracter_atual = 'Y' THEN
SET vsom = 'I';
ELSEIF vcaracter_atual = 'Z' AND INSTR('AEIOUY', vcaracter_seguinte) = 0 THEN
SET vsom = 'S';
ELSE
SET vsom = vcaracter_atual;
END IF;
SET vcaracter_anterior = vcaracter_atual;
SET vposicao_atual = vposicao_atual + 1;
SET vtexto_apoio = CONCAT(vtexto_apoio, vsom);
END WHILE;
SET vtexto_apoio = REPLACE(vtexto_apoio, 'SS', 'S'); -- Remove o "SS" que foi utilizado para decidir se continuava como "S" ou virava "Z"
SET vtexto = vtexto_apoio;
RETURN vtexto;
END
$
Algumas saídas de exemplo:
NEUSA | NEUZA
HERESIA | EREZIA
PALHA | PALIA
QUERO | KERO
EXIGIR | EZIJIR
HESITAR | EZITAR
Algumas com erro de ortografia:
ÇAPO | SAPO
EREZIA | EREZIA
ESITAR | EZITAR
LAGOZTA | LAGOSTA
HORIENTAR | ORIEMTAR