Subversion Repositories wimsdev

Rev

Rev 10430 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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