Subversion Repositories wimsdev

Rev

Rev 1499 | Rev 13663 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
#Make documents index.
2
 
3
!writefile $docdir/.index
4
dlist=!filelist $wims_home/$Docdir
5
dlist=!words2items $dlist
6
!for d in $dlist
7
 !if . notin $d
8
  defs=!defof tit\
9
author\
10
email\
11
copyright\
12
docopen\
13
dlang in $docdir/$d/.def
14
  t_=!line 1 of $defs
15
  t_=!trim $t_
16
  !if $t_!=$empty
17
   a_=!defof author in $docdir/$d/.def
18
   a_=!items2words $a_
19
   a_=!singlespace $a_
20
   a_=!deaccent $a_
21
   a_=!lower $a_
22
   n=!linecnt $defs
23
   !if $n<6
24
    defs=$defs\
25
all
26
   !endif
1499 bpr 27
   desc=!defof desc in $docdir/$d/.def
20 reyssat 28
   !appendfile $docdir/.index :$d\
29
$defs\
1499 bpr 30
$a_\
31
$desc
20 reyssat 32
  !endif
33
 !endif
34
!next d