|
|
1.1 root 1: # Install New Help Topics.
2: # Called by help as: csh -f do.new dir [ topic ] ...
3:
4: set subtree = $1:h # get subtree by removing /cat tail
5: shift # throw away directory argument
6: source $subtree/maint/config # configure system
7: cd $subtree/src
8: if ($#argv == 0) then
9: cat << %
10: Usage: help -m new topic ...
11: where topic is a file of nroff (-mayday) source in the directory
12: $subtree/src. A topic called . will re-install all topics.
13: %
14: exit 1
15: else if ($1 == .) then
16: echo -n "Re-installing ALL topics? Type $$ to confirm: "
17: if ($< != $$) then
18: echo "Not confirmed. Bye."
19: exit 1
20: endif
21: set argv = (.)
22: endif
23: set tmp
24: foreach t ($*)
25: if ($t == index_help) set there_already
26: set tmp = ($tmp `find $t -print`)
27: end
28: set argv = ($tmp)
29: echo "Correct the following if necessary. Defaults are shown in ()."
30: if (! $?there_already) then
31: echo -n "Do you want a new index_help? (n) "
32: if ($< =~ y*) set argv = ($argv index_help)
33: endif
34: echo -n "Topics? ($*) "
35: set tmp = ($<)
36: if ("$tmp" != "") set argv = ($tmp)
37: echo -n "Sources to? ($srcmach) "
38: set tmp = ($<)
39: if ("$tmp" != "") set srcmach = ($tmp)
40: echo -n "Catables to? ($catmach) "
41: set tmp = ($<)
42: if ("$tmp" != "") set catmach = ($tmp)
43: echo -n "Old catables to? ($oldmach) "
44: set tmp = ($<)
45: if ("$tmp" != "") set oldmach = ($tmp)
46: echo "OK. Backgrounding."
47: source $subtree/maint/new & # the real work
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.