Subversion Repositories wimsdev

#Make documents index.

!writefile $docdir/.index
dlist=!filelist $wims_home/$Docdir
dlist=!words2items $dlist
!for d in $dlist
 !if . notin $d
  defs=!defof tit\
author\
email\
copyright\
docopen\
dlang in $docdir/$d/.def
  t_=!line 1 of $defs
  t_=!trim $t_
  !if $t_!=$empty
   a_=!defof author in $docdir/$d/.def
   a_=!items2words $a_
   a_=!singlespace $a_
   a_=!deaccent $a_
   a_=!lower $a_
   n=!linecnt $defs
   !if $n<6
    defs=$defs\
all
   !endif
   desc=!defof desc in $docdir/$d/.def
   !appendfile $docdir/.index :$d\
$defs\
$a_\
$desc
  !endif
 !endif
!next d