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 |
|
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 |