1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#! /bin/sh
if [ ! -d scenarios ]; then exit; fi
rm -f Exindex Extitles >/dev/null
cd scenarios
list=`ls -d *.def 2>/dev/null | sed 's/\.def//g'`
cd ..
if [ -z "$list" ]; then exit; fi
titlist=
for i in $list
do
tit=`cat scenarios/$i.def/.title | tr ',\11' '; '`
echo "$i:$tit" >>Extitles
titlist="$titlist$tit
"
ss=`ls scenarios/$i.def`
echo :$ss >scenarios/$i.def/.files
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
|
