Subversion Repositories wimsdev

#! /bin/sh

LL="env LC_ALL=C LC_CTYPE=C LANG=C"

dicsort_separator=':'

w_dictionary=dic/syno

w_suffix_dictionary=dic/suffix

w_translator_unknown=leave

export dicsort_separator w_dictionary w_suffix_dictionary w_translator_unknown

export wims_exec_parm dicsort_grouping

echo >dic/form

cnt=0

for i in `find form -name '*.def'`

do

 base=`echo $i | sed 's/\.def$//;s!^form/!!'`

 index=`echo $base | tr / @`

# if [ ! -f index/$index ] || [ index/$index -ot $i ]; then

 get=`awk 'BEGIN {a=0};

 	substr($1,1,1)==":" {if(a==0) a=1; else exit;}

	a==1 {print}' $i |

	$LL tr 'çéèêëúùûüáàâäãóòôöõíìïîñýÇÉÈÊËÚÙÛÜÁÀÂÃÄÓÒÔÖÕÍÌÏÎÑÝ' 'ceeeeuuuuaaaaaoooooiiiinyCEEEEUUUUAAAAAOOOOOIIIINY' |

	$LL tr "\:[A-Z]\-\012\'" " [a-z] , " | sed 's/,/, /g' | tr -s '[:blank:]' ' '`

 wims_exec_parm="$get"

 got=`exec dic/translator | tr , '\012' | sed 's/^ //' | sort | uniq`

 echo "$got" | awk '{print $0":'$base'"}' >>dic/form

# echo "$got" | awk '{print $0":'$base'"}' >index/$index

# fi

# cat index/$index >>dic/form

 echo $base

 cnt=$(($cnt+1))

done

echo $cnt forms.

dicsort_grouping=" "

dic/dicsort dic/form

mv dic/form.sorted dic/form