Subversion Repositories wimsdev

#! /bin/sh

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

#dic/dicsort dic/syno

#mv dic/syno.sorted dic/syno

mkdir -p ind

cat >dic/cmd <<@

1d:

2d:

3d:

4d:

@

cnt=0

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

do

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

 index=`echo $base | tr / @`

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

  get=`awk -F'=' '$1=="title" || $1=="synonyme" {print $2};

 	$1=="!exit" {exit}' $i |

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

	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'"}' >ind/$index

 fi

 cat ind/$index >>dic/cmd

 echo $base

 cnt=$(($cnt+1))

done

echo $cnt commands.

dic/dicsort dic/cmd

mv dic/cmd.sorted dic/cmd

rm -fR ind 2>/dev/null