#
# Generates dictionaries and word lists.

cd `dirname $0`

LANG=C
flist="adj num fem adv char"

##########################################################

listdic=listdic
rm -f $listdic

cut -d: -f1 adv.dic | sort | uniq >adv
cut -d: -f1 nomi1 | sort | uniq >char
comm -23 adj levels/freq >rare

f2l() {
 list=`awk 'BEGIN {a=0};
	a>0 && NF>0 {printf(",")};
	NF>0 {printf("%s",$0); a++};' $2`
 echo "$1:$list" >>$listdic
}

suffixes=`awk -F= '$1 ~ /suffixes/ {print $2}' ../defs | tr , ' '`
levels=`awk -F= '$1 ~ /levels/ {print $2}' ../defs | tr , ' '`

awk 'NF>0 {print ":" $0}' adj >all.dic
awk 'NF>0 {print ":" $0}' rare >rare.dic

f2l invariable invariable

for l in CE1 CE2 CM1 CM2 6e 5e f0 freq
do
 for t in $flist
 do
  comm -12 levels/$l $t >tmp
  f2l $t-$l tmp
 done
done

for t in num fem adv; do
 comm -12 rare $t >tmp
 f2l $t-rare tmp
 f2l $t-all $t
done

for s in $suffixes; do
 s2=`echo "$s" | tr '' 'ee' | tr -d '[]^'`
 grep -E $s\$ adj >tmp
 f2l suf-$s2 tmp
done

rm -f tmp adv rare char

