Metaphone para Português
Publicado por Perfil removido 19/12/2008
[ Hits: 8.378 ]
A implementação de português do Brasil para metaphone é muito importante para verificar a semelhança fonética de substantivos; próprios, comuns, abstratos e concretos.
Existem muitas maneiras de se explorar a análise textual com esta ferramenta simples. E ainda com o novo acordo ortográfico, ficou ainda mais fácil de se manter esta função para todos os países de língua portuguesa. O algoritmo foi desenvolvido em C, para codificação UTF-8.
Acredito que pessoas mais experientes possam tornar o script melhor e que pessoas menos experientes possam aprender alguma coisa.
/* ** @title Metaphone pt-BR ** @ctime 19/12/2008 ** @author Lucas Fernando Amorim <lf.amorim@yahoo.com.br> * * * gcc metaphone_ptBR.c -o metaphone_ptBR.o */ #include <string.h> #include <stdio.h> int main(int argc, char **argv) { /* Verifica se possui argumento*/ if(argc < 1) /* Sem argumentos não dá!*/ return -1; /* Valores para laços e limites */ int palavra,letra,percorrer_ate; /* Saidas legais. */ char * encontrar; char saida_nao_prevista_legal[] = {'D','R','T','F','J','K','L','X','V','B','N','M'}; /* Percorre argumentos */ for(palavra=1;palavra<argc;palavra++){ /* Solicita última posição do argumento */ percorrer_ate = strlen(argv[palavra])-1; /* Primeiro FOR para correção de acentos */ for(letra=0;letra <= percorrer_ate;letra++){ /* Verifica se é acento usando codificação UTF-8. */ if(argv[palavra][letra] == '\xc3'){ /* Caso seja, requere segundo byte UTF-8. */ letra++; /* Verifica acentos possíveis em português. */ switch(argv[palavra][letra]){ /* Através do segundo valor hexadecimal executa a conversão para A */ case '\x80': case '\x81': case '\x82': case '\x83': case '\xa0': case '\xa1': case '\xa2': case '\xa3': argv[palavra][letra] = 'A'; break; /* Através do segundo valor hexadecimal executa a conversão para E */ case '\x88': case '\x89': case '\x8a': case '\xa8': case '\xa9': case '\xaa': argv[palavra][letra] = 'E'; break; /* Através do segundo valor hexadecimal executa a conversão para I */ case '\x8c': case '\x8d': case '\x8e': case '\xac': case '\xad': case '\xae': argv[palavra][letra] = 'I'; break; /* Através do segundo valor hexadecimal executa a conversão para O */ case '\x92': case '\x93': case '\x94': case '\x95': case '\xb2': case '\xb3': case '\xb4': case '\xb5': argv[palavra][letra] = 'O'; break; /* Através do segundo valor hexadecimal executa a conversão para U */ case '\x99': case '\x9a': case '\x9b': case '\x9c': case '\xb9': case '\xba': case '\xbb': case '\xbc': argv[palavra][letra] = 'U'; break; /* Através do segundo valor hexadecimal converte executa a convesão para Ç */ case '\xa7': argv[palavra][letra] = '\x87'; break; } /* Se não for caracter de controle, vamos tornar maiúsculo */ } else /* Caso não seja um acento faz a conversão para maísculas. */ argv[palavra][letra] = toupper(argv[palavra][letra]); } /* Laço fonético */ for(letra=0;letra <= percorrer_ate;letra++){ switch(argv[palavra][letra]){ /* A E I O U Y H são descartados. */ case 'A': case 'E': case 'I': case 'O': case 'U': case 'Y': case 'H': break; /* As seguintes regras para C */ case 'C': /* Se hover algo na frente */ if(letra <= percorrer_ate){ /* Se for H volta X */ if(argv[palavra][letra+1] == 'H') printf("X"); /* Se for E ou I volta S */ else if(argv[palavra][letra+1] == 'E' | argv[palavra][letra+1] == 'I') printf("S"); /* Se for A,O ou U volta K */ else if(argv[palavra][letra+1] == 'A' | argv[palavra][letra+1] == 'O' | argv[palavra][letra+1] == 'U') printf("K"); } /* Do contrário removemos o C. */ break; /* As seguintes regras para G */ case 'G': /*Se tiver um E na frente vira J*/ if(letra <= percorrer_ate & argv[palavra][letra+1] == 'E') printf("J"); /* Do contrário continua G */ else printf("G"); break; /* As seguintes regras para P */ case 'P': /* Se letra adjacente for H, vira F. */ if(letra <= percorrer_ate & argv[palavra][letra+1] == 'H') printf("F"); /* Do contrário continua P */ else printf("P"); break; /* As seguintes regras para Q */ case 'Q': if(letra <= percorrer_ate & argv[palavra][letra+1] == 'U') printf("K"); else /* Do contrário continua Q */ printf("Q"); break; /* Se for S executar a seguinte regra. */ case 'S': /* Se não estiver no final e for cercado por vogais, tem som de Z*/ if(letra <= percorrer_ate & letra > 0 & ( argv[palavra][letra+1] == 'A' | argv[palavra][letra+1] == 'E' | argv[palavra][letra+1] == 'I' | argv[palavra][letra+1] == 'O' | argv[palavra][letra+1] == 'U' ) & ( argv[palavra][letra-1] == 'A' | argv[palavra][letra-1] == 'E' | argv[palavra][letra-1] == 'I' | argv[palavra][letra-1] == 'O' | argv[palavra][letra-1] == 'U' )) { printf("Z"); break; } /* Se tiver um S na frente, não retornada nada. */ else if(letra <= percorrer_ate & argv[palavra][letra+1] == 'S') ; /* Se tiver um H na frente, retorna X. */ else if(letra <= percorrer_ate & argv[palavra][letra+1] == 'H') printf("X"); /* Do contrário continua S.*/ else printf("S"); break; /* Se for Z executar a seguinte regra. */ case 'Z': /* Se for a última posição, retorna S */ if(letra == percorrer_ate) printf("S"); /* Do contrário retorna Z */ else printf("Z"); break; /* Se for Ç converter para S. */ case '\xc3': letra++; if(argv[palavra][letra] == '\x87') printf("S"); break; /* W é convertido para V */ case 'W': printf("V"); break; /* Regra Default */ default: /* Verifica se é um caractere válido, isso dispensa inclusive \xc3 */ encontrar = memchr(saida_nao_prevista_legal,argv[palavra][letra],strlen(saida_nao_prevista_legal)); if(encontrar != NULL) printf("%c",argv[palavra][letra]); } } } /* Quebrar linha ao sair e dizer que foi tudo bem. */ printf("\n"); return 0; }
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Instalando Google Chrome no Ubuntu 24.04 LTS
Quantidade de caracteres suportados na barra de endereços dos navegadores
Como faço pra um script ser executado apenas abrindo um terminal e dan... (1)
instalar linux com intel RST ativo (6)
Instalação agent Relic no alma linux (0)
Não Consigo acessar o menu da Bios após instalação do sistema [RESOLVI... (7)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (34)