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