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