#!/bin/sh

cd `dirname $0`

if [ -z "$wims_home" ]; then wims_home=$w_wims_home; fi
lastdir=`pwd`
while [ -z "$wims_home" ] && [ "$lastdir" != "/" ]
do
 wims_home=`cat $lastdir/.wimshome 2>/dev/null`
 lastdir=`dirname $lastdir`
done
if [ -z "$wims_home" ]; then
 echo WIMS home directory not found.
 exit;
fi

data=`cd data; ls *.rec | sed 's/\.rec$//g'`

cod=`cat $wims_home/public_html/bases/dic/fr/cod/? | awk -F: 'NF>1 {print $1}' | grep -v ' ' | sort`
coi=`cat $wims_home/public_html/bases/dic/fr/coi/? | awk -F: 'NF>1 {print $1}' | grep -v ' '`
coi=`echo "$cod
$coi" | sort | uniq`
echo "$cod" >vt
echo "$coi" >vi

dataf=
datat=
for f in $data
do
 dataf="$dataf $f,"
 tit=`head -1 data/$f.rec`
 datat="$datat $tit,"
 awk '/^:/ {print substr($0,2)}' data/$f.rec | sort >vv
 for t in vt vi
 do
  join -t , -1 1 vv $t | awk '{print ":" $0}' >data/$f.$t
  if [ ! -s data/$f.$t ]; then
   rm -f data/$f.$t 2>/dev/null
  fi
 done
done
cat <<@ >Vindex
 verblist=!char 1 to -2 of $dataf
 vtitlist=!char 1 to -2 of $datat
 verbfcnt=!itemcnt \$verblist
@

for typ in vt vi
do
 tt=`cd data; ls *.$typ 2>/dev/null | sed 's/\.'$typ'$//g'`
 echo verblist$typ=!words2items $tt >>Vindex
done

cat data/*.rec | awk -F, '/^:/ {print substr($1,2)}' | sort | uniq >data/.verbes
rm -f vv vt vi 2>/dev/null

