File: docindex.proc

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (36 lines) | stat: -rw-r--r-- 711 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#Make documents index.
!! Careful docdir and Docdir variables have to be defined before use of the script
!!

!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