Subversion Repositories wimsdev

#! /bin/sh

if [ ! -d def ]; then exit; fi

rm -f Exindex Extitles >/dev/null

cd def

list=`ls *.def 2>/dev/null | sed 's/\.def//g'`

cd ..

if [ -z "$list" ]; then exit; fi

titlist=

for i in $list

do

 tit=`awk -F= 'NF>=2 {print $2; exit}' def/$i.def | tr ',\11' '; '`

 echo "$i:$tit" >>Extitles

 titlist="$titlist$tit

"

done

echo "$titlist" >tmp1

echo "$list" >tmp2

llist=`paste tmp1 tmp2 | sort -f`

list=`echo "$llist" | awk -F'\11' 'length()>2 {print $2}' | tr '\n' ','`

titlist=`echo "$llist" | awk -F'\11' 'length()>2 {print $1}' | tr '\n' ','`

cat >Exindex <<@

!set exolist  =!char 1 to -2 of $list

!set titlelist=!char 1 to -2 of $titlist

!set exototal =!itemcnt \$exolist

@

rm -f tmp1 tmp2