Subversion Repositories wimsdev

Rev

Rev 10430 | 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
13663 bpr 7
  !if . notin $d
8
    defs=!defof tit\
20 reyssat 9
author\
10
email\
11
copyright\
12
docopen\
13
dlang in $docdir/$d/.def
13663 bpr 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\
20 reyssat 25
all
13663 bpr 26
      !endif
27
      desc=!defof desc in $docdir/$d/.def
28
      !appendfile $docdir/.index :$d\
20 reyssat 29
$defs\
1499 bpr 30
$a_\
31
$desc
13663 bpr 32
    !endif
20 reyssat 33
  !endif
34
!next d