#!/bin/sh
# 28 de januario 2020, 10 e 16 de februario 2020

FRIABASE=/home/rudhar/d/rudhar.com/lingtics/intrlnga/cgi-grep/fria

# Remove indicationes de accentation e pronunciation. 
# Muta prép (francese) al plus general prep
cat <<EOF > tmp01.txt
s@</?u>@@g
s@ ?\[[A-Z][a-z]*\]@@g
s@ \[A, Ned\]@@g
s@ ?\[sanskrito\]@@g
s@ ?<i>\[&#x0292;[ea]?(ia)?\]</i>@@g
s@ <i>\[fed&#x0292;iar\]</i>@@g
s@ ?<i>\[&#x0292;&hellip;&#x0292;\]</i>@@g
s@ ?<i>\{ch&hellip;ch\}</i>@@g
s@ ?<i>\[gi\]</i>@@g
s@ <i>\[emaljar\]</i>@@g
s@ <i>\[emaljator\]</i>@@g
s@ <i>\[alja\]</i>@@g
s@ <i>\{[eèou]\}</i>@@g
s@ <i>\{ts\}</i>@@g
s@ <i>\{ch\}</i>@@g
s@ <i>\{ch[ao]\}</i>@@g
s@ <i>\{tch\}</i>@@g
s@ <i>\{plwa\}</i>@@g
s@ <i>\{chich\}</i>@@g
s@ <i>\{chak\}</i>@@g
s@ <i>\{dja\}</i>@@g
s@ <i>\{gre\}</i>@@g
s@ <i>\{vudu\}</i>@@g
s@ <i>\{iglu\}</i>@@g
s@ <i>\{buge\}</i>@@g
s@ <i>\{aa\}</i>@@g
s@ <i>\{ija\}</i>@@g
s@ <i>\{ana\}</i>@@g
s@ <i>\{rel\}</i>@@g
s@ <i>\{ke\}</i>@@g
s@ <i>\{chokes\}</i>@@g
s@ <i>\{mozambik\}</i>@@g
s@<i>prép\.</i>@<i>prep.</i>@
EOF

sed -r -f tmp01.txt $FRIABASE/fria.htm > tmp02.txt

./friatoia < tmp02.txt

SlashExpander < tmp03.txt > LISTA-fr.txt
SlashExpander < tmp04.txt > THESAURO-fr.txt

sort -u LISTA-fr.txt THESAURO-fr.txt > TOTO-fr.txt

rm tmp0[1234].txt