diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mtrenv/bin/replf

   1 : run this script through /bin/sh
   2 : PATH=:/bin:/usr/bin:/usr/ucb:/usr/uci:/usr/uci/lib/mh; export PATH
   3 F="" S=""
   4
   5 for A in $*
   6 do
   7     case $A in
   8         +*|@*)  case $F in
   9                     "")  F=$A ;;
  10                     *)   echo "replf: only one folder at a time" 1>&2
  11                          exit 1 ;;
  12                 esac ;;
  13
  14         *)      S="$S $A" ;;
  15     esac
  16 done
  17
  18 case $F in
  19     "")  echo "usage: replf +folder [switches for repl]" 1>&2
  20          exit 1 ;;
  21 esac
  22
  23 prf=/tmp/prf$$ ctx=/tmp/ctx$$
  24 trap "rm -f $prf $ctx" 0 1 2 3 13 15
  25
  26 rm -f $prf
  27 echo "MH-Sequences:" > $prf
  28 echo "Previous-Sequence: pseq" >> $prf
  29 cat ${MH-$HOME/.mh_profile} >> $prf
  30 MH="$prf" ; export MH
  31
  32 rm -f $ctx
  33 cp ${MHCONTEXT-`mhpath +`/context} $ctx
  34 MHCONTEXT="$ctx" ; export MHCONTEXT
  35
  36 if refile $F; then repl $F pseq -fcc $F $S; else exit 1; fi
  37
  38 exit 0