Subversion Repositories wimsdev

Rev

Rev 546 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 546 Rev 15431
Line 1... Line 1...
1 
#! /bin/sh
 1 
#! /bin/sh
2 
 
 2 
 
- 
 
 3 
LL="env LC_ALL=C LC_CTYPE=C LANG=C"
3 
if [ ! -d def ]; then exit; fi
 4 
if [ ! -d def ]; then exit; fi
- 
 
 5 
if [ -f "INDEX" ]; then
- 
 
 6 
  transl_lang=`grep -a translation_language INDEX | awk -F= '{print $2}'`;
- 
 
 7 
  module_lang=`grep -aw language INDEX | awk -F= '{print $2}'`;
4 
 
 8 
fi
5 
rm -f Exindex Extitles >/dev/null
 9 
rm -f Exindex Extitles >/dev/null
6 
cd def
 10 
cd def
7 
list=`ls *.def 2>/dev/null | sed 's/\.def//g'`
 11 
list=`ls *.def 2>/dev/null | sed 's/\.def//g'`
8 
cd ..
 12 
cd ..
9 
 
 13 
 
10 
if [ -z "$list" ]; then exit; fi
 14 
if [ -z "$list" ]; then exit; fi
11 
titlist=
 15 
titlist=
- 
 
 16 
for lang in $transl_lang $module_lang ; do
- 
 
 17 
  rm -f Extitles_$lang;
- 
 
 18 
done
12 
for i in $list
 19 
for i in $list
13 
do
 20 
do
14 
 tit=`awk -F= 'NF>=2 {print $2; exit}' def/$i.def | tr ',\11' '; '`
 21 
  tit=`awk -F= 'NF>=2 {print $2; exit}' lang/$i.$module_lang | $LL tr ',\11' '; '`
15 
 echo "$i:$tit" >>Extitles
 22 
  echo "$i:$tit" >>Extitles
16 
 titlist="$titlist$tit
 23 
  titlist="$titlist$tit
17 
"
 24 
"
18 
done
 25 
done
19 
 
 26 
 
20 
echo "$titlist" >tmp1
 27 
echo "$titlist" >tmp1
21 
echo "$list" >tmp2
 28 
echo "$list" >tmp2
22 
llist=`paste tmp1 tmp2 | sort -f`
 29 
llist=`$LL paste tmp1 tmp2 | $LL sort -t '	' -f -k 1,1`
- 
 
 30 
list1=`echo "$llist" | $LL awk -F'\11' 'length()>2 {print $2}' | $LL tr '\n' ' '`
23 
list=`echo "$llist" | awk -F'\11' 'length()>2 {print $2}' | tr '\n' ','`
 31 
list=`echo "$llist" | $LL awk -F'\11' 'length()>2 {print $2}' | $LL tr '\n' ','`
24 
titlist=`echo "$llist" | awk -F'\11' 'length()>2 {print $1}' | tr '\n' ','`
 32 
titlist=`echo "$llist" | $LL awk -F'\11' 'length()>2 {print $1}' | $LL tr '\n' ','`
25 
 
 33 
 
26 
cat >Exindex <<@
 34 
cat >Exindex <<@
27 
!set exolist  =!char 1 to -2 of $list
 35 
!set exolist  =!char 1 to -2 of $list
28 
!set titlelist=!char 1 to -2 of $titlist
 - 
 
29 
!set exototal =!itemcnt \$exolist
 36 
!set exototal =!itemcnt \$exolist
- 
 
 37 
@
30 
 
 38 
 
- 
 
 39 
for lang in $transl_lang $module_lang ; do
- 
 
 40 
  titlist=""
- 
 
 41 
  for i in $list1
- 
 
 42 
  do
- 
 
 43 
    titl=`grep -a "title" lang/$i.$lang | awk -F= '{print $2}'`;
- 
 
 44 
    echo "$i:$titl" >>"Extitles_$lang";
- 
 
 45 
    titlist="$titlist$titl,"
- 
 
 46 
  done
- 
 
 47 
  cat >>Exindex <<@
- 
 
 48 
!set titlelist_$lang=!char 1 to -2 of $titlist
31 
@
 49 
@
- 
 
 50 
done
32 
 
 51 
 
33 
rm -f tmp1 tmp2
 52 
rm -f tmp1 tmp2
34 
 
 -