Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 14 | reyssat | 1 | #! /bin/sh |
| 2 | # This script looks up a specified word in a dictionary. |
||
| 3 | |||
| 4 | #Dictionary file directory |
||
| 5 | cwd=`pwd` |
||
| 6 | lang=$w_module_language |
||
| 7 | dicdir=bases/dic/$lang |
||
| 8 | |||
| 9 | if [ ! -d $dicdir ]; then exit; fi |
||
| 10 | cd $dicdir |
||
| 11 | |||
| 12 | if [ -z "$w_dicfind_limit" ]; then |
||
| 13 | limit=800 |
||
| 14 | else |
||
| 15 | limit=$w_dicfind_limit |
||
| 16 | fi |
||
| 17 | |||
| 18 | files= |
||
| 19 | for i in $w_dicfind_wordlen |
||
| 20 | do |
||
| 21 | if [ $i -gt 0 ] && [ -f $lang.$i ]; then files="$files $lang.$i"; fi |
||
| 22 | done |
||
| 23 | oncechar=$wims_exec_parm |
||
| 24 | export oncechar |
||
| 25 | if `echo $w_dicfind_option | grep -q noaccent`; then |
||
| 26 | if `echo $w_dicfind_option | grep -q oncechar`; then |
||
| 27 | cat $files |\ |
||
| 28 | tr 'çéèêëúùûüáàâäãóòôöõíìïîñýÇÉÈÊËÚÙ' 'ceeeeuuuuaaaaaoooooiiiinyCEEEEUUUUAAAAAOOOOOIIIINY' |\ |
||
| 29 | grep $wims_exec_parm | $cwd/bin/oncechar | head -$limit |
||
| 30 | else |
||
| 31 | cat $files |\ |
||
| 32 | tr 'çéèêëúùûüáàâäãóòôöõíìïîñýÇÉÈÊËÚÙ' 'ceeeeuuuuaaaaaoooooiiiinyCEEEEUUUUAAAAAOOOOOIIIINY' |\ |
||
| 33 | grep $wims_exec_parm | head -$limit |
||
| 34 | fi |
||
| 35 | else |
||
| 36 | if `echo $w_dicfind_option | grep -q oncechar`; then |
||
| 37 | cat $files | grep $wims_exec_parm | $cwd/bin/oncechar | head -$limit |
||
| 38 | else |
||
| 39 | cat $files | grep $wims_exec_parm | head -$limit |
||
| 40 | fi |
||
| 41 | fi |
||
| 42 |