Subversion Repositories wimsdev

Rev

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

Rev 2286 Rev 5267
Line 55... Line 55...
55 
src=$wims_home/$wims_sesdir/doc.def
 55 
src=$wims_home/$wims_sesdir/doc.def
56 
dest=$wims_home/$Docdir/$doc/$block.def
 56 
dest=$wims_home/$Docdir/$doc/$block.def
57 
!mexec scripts/append.sh
 57 
!mexec scripts/append.sh
58 
!read $docdir/$doc/$block.def
 58 
!read $docdir/$doc/$block.def
59 
 
 59 
 
60 
blocklist=!filelist $wims_home/$Docdir/$doc
 - 
 
61 
!writefile $docdir/$doc/.index
 - 
 
62 
blocklist=!words2items $blocklist
 - 
 
63 
!for b in $blocklist
 60 
!read index.proc
64 
 !if .def $ isin $b $ and $b!=.def
 - 
 
65 
  t_=!defof titb in $docdir/$doc/$b
 - 
 
66 
  n_=!char 1 to -5 of $b
 - 
 
67 
  !appendfile $docdir/$doc/.index :$n_\
 - 
 
68 
$t_
 - 
 
69 
 !endif
 - 
 
70 
!next b
 - 
 
71 
 
 61 
 
72 
job=read
 62 
job=read
73 
!changeto read.proc
 63 
!changeto read.proc