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