lib/mc.menu

   1 shell_patterns=0
   2 + ! t t
   3 @       Do something on the current file
   4         CMD=%{Enter command}
   5         $CMD ./%0f
   6
   7 + t t
   8 @       Do something on the tagged files
   9         set %u; CMD=%0{Enter command}
  10         while [ -n "$1" ]; do
  11           $CMD "$1" || echo tag "$1" >>$MC_CONTROL_FILE
  12           shift
  13         done
  14
  15
  16 0       Edit a bug report and send it to root
  17         ${EDITOR-vi} /tmp/mail.$$
  18         test -r /tmp/mail.$$ && mail root < /tmp/mail.$$
  19         rm -f /tmp/mail.$$
  20
  21 =+ f \.1$ | f \.3$ | f \.4$ | f \.5$ | f \.6$ | f \.7$ | f \.8$ | f \.man$ & t r
  22 1       Display the file with roff -man
  23         nroff -man %f | less
  24
  25 2       Call the info hypertext browser
  26         info
  27
  28 = t d
  29 3       Make a release of the current subdirectory (tar.gz)
  30         Pwd=`basename %d /`
  31         echo -n "Name of the distribution file (without extension) [$Pwd]: "
  32         read tar
  33         if [ "$tar"x = x ]; then tar=$Pwd; fi
  34         cd .. && tar chf - $Pwd | gzip -f9 > $tar.tar.gz
  35         echo ../${tar}.tar.gz created.
  36 #       tar=%{Name of the distribution file (without extension)}
  37
  38 4       Make a release of the current subdirectory (tar.bz2)
  39         Pwd=`basename %d /`
  40         echo -n "Name of the distribution file (without extension) [$Pwd]: "
  41         read tar
  42         if [ "$tar"x = x ]; then tar=$Pwd; fi
  43         cd .. && tar chf - $Pwd | bzip2 -f --repetitive-best > $tar.tar.bz2
  44         echo ../${tar}.tar.bz2 created.
  45 #       tar=%{Name of the distribution file (without extension)}
  46
  47 = f \.c$ & t r
  48 + f \.c$ & t r & ! t t
  49 5       Compile and link current .c file
  50         make `basename %f .c` 2>/dev/null || cc -O -o `basename %f .c` %f
  51
  52 + t r & ! t t
  53 a       Append file to opposite
  54         cat %f >>%D/%f
  55
  56 + t t
  57 A       Append files to opposite files
  58         set %u
  59         while [ -n "$1" ]; do
  60           cat $1 >>%D/$1 || echo tag $1 >>$MC_CONTROL_FILE
  61           shift
  62         done
  63
  64 + t r & ! t t
  65 d       Delete file if a copy exists in the other directory.
  66         if [ "%d" = "%D" ]; then
  67           echo "The two directores must be different"
  68           exit 1
  69         fi
  70         if [ -f %D/%f ]; then        # if two of them, then
  71           if cmp -s %D/%f %f; then
  72             rm %f && echo %f: DELETED
  73           else
  74             echo "%f and %D/%f differ: NOT deleted"
  75             echo -n "Press RETURN "
  76             read key
  77           fi
  78         else
  79           echo %f: No copy in %D/%f: NOT deleted.
  80         fi
  81
  82 + t t
  83 D       Delete tagged files if a copy exists in the other directory.
  84         if [ "%d" = "%D" ]; then
  85           echo "The two directores must be different"
  86           exit 1
  87         fi
  88         for i in %t
  89         do
  90           if [ -f %D/$i ]; then
  91             SUM1="`sum $i`"
  92             SUM2="`sum %D/$i`"
  93             if [ "$SUM1" = "$SUM2" ]; then
  94               rm $i && echo ${i}: DELETED
  95             else
  96               echo $i and %D/$i differ: NOT deleted.
  97             fi
  98           else
  99             echo %f has no copy in %D/%f: NOT deleted.
 100           fi
 101         done
 102
 103 = f \.gz$ & t r
 104 + ! t t
 105 n       Inspect gzip'ed newsbatch file
 106         dd if=%f bs=1 skip=12|zcat|${PAGER-more}
 107         # assuming the cunbatch header is 12 bytes long.
 108
 109 = t r &
 110 + ! t t
 111 h       Strip headers from current newsarticle
 112         CHECK=`sed 1q < %f|awk '{print $1}'` 2>/dev/null
 113         case $CHECK in
 114           Newsgroups:|Path:)
 115               cp %f /tmp/%f.$$ && sed '/^'"$CHECK"' /,/^$/d' /tmp/%f.$$ > %f
 116               [ "$?" = "0" ] && rm /tmp/%f.$$
 117               echo %f: header removed
 118                 ;;
 119           *)
 120               echo %f is not a news article.
 121                 ;;
 122         esac
 123
 124 + t t
 125 H       Strip headers from the marked newsarticles
 126         set %u
 127         while [ -n "$1" ]; do
 128           CHECK=`sed 1q < $1|awk '{print $1}'` 2>/dev/null
 129           WFILE=/tmp/${1}.$$
 130           case $CHECK in
 131             Newsgroups:|Path:)
 132               cp $1 $WFILE && sed '/^'"$CHECK"' /,/^$/d' $WFILE > $1
 133               if [ "$?" = "0" ]; then
 134                 rm $WFILE; echo $1 header removed. OK.
 135               else
 136                 echo tag $1 >>$MC_CONTROL_FILE
 137                 echo "Oops! Please check $1 against $WFILE"
 138               fi
 139                 ;;
 140             *)
 141               echo $1 skipped: Not a news article.
 142               echo tag $1 >>$MC_CONTROL_FILE
 143                 ;;
 144           esac
 145           shift
 146         done
 147
 148 = t r
 149 + ! t t
 150 r       Copy file to remote host
 151         echo -n "To which host?: "
 152         read Host
 153         echo -n "To which directory on $Host?: "
 154         read Dir
 155         rcp -p %f ${Host}:$Dir
 156
 157 + t t
 158 R       Copy files to remote host (no error checking)
 159         echo -n "Copy files to which host?: "
 160         read Host
 161         echo -n "To which directory on $Host? :"
 162         read Dir
 163         rcp -pr %u ${Host}:$Dir
 164
 165 = f \.tex$ & t r
 166 + f \.tex$ & t r & ! t t
 167 t       Run latex on file and show it with xdvi
 168         latex %f && xdvi `basename %f .tex`.dvi
 169
 170 =+ f ^part | f ^Part | f uue & t r
 171 + t t
 172 U       Uudecode marked news articles (needs work)
 173         set %u
 174         (
 175         while [ -n "$1" ]; do # strip headers
 176           FIRST=`sed 1q < $1|awk '{print $1}'`
 177           cat $1 | sed '/^'"$FIRST"' /,/^$/d'; shift
 178         done
 179         ) |sed '/^$/d' |sed -n '/^begin 6/,/^end$/p' | uudecode
 180         if [ "$?" != "0" ]; then
 181           echo "Could not decode %t"
 182           for i in %t; do
 183             echo tag $i >>$MC_CONTROL_FILE
 184             shift
 185           done
 186         fi
 187         echo "Please test the output file before deleting anything"
 188
 189 =+ f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.Z$| f \.tar\.bz2$ & t r
 190 x       Extract the contents of a compressed tar file
 191         unset EXT
 192         echo %f|egrep -q "\.tar.bz2$" && EXT=tar_bz2
 193         if [ "$EXT" = "tar_bz2" ]; then
 194           bunzip2 -c %f | tar xvf -
 195         else
 196           gzip -dc %f | tar xvf -
 197         fi
 198
 199 = t r
 200 + ! t t
 201 y       Gzip or gunzip current file
 202         unset DECOMP
 203         echo %f|egrep -q "\.gz$|\.z$|\.Z$" && DECOMP=-d
 204         gzip $DECOMP -v %f
 205
 206 + t t
 207 Y       Gzip or gunzip tagged files
 208         for i in %t
 209         do
 210           unset DECOMP
 211           echo $i|egrep -q "\.gz$|\.z$|\.Z$" && DECOMP=-d
 212           gzip $DECOMP -v $i
 213         done
 214
 215 + ! t t
 216 b       Bzip2 or bunzip2 current file
 217         unset DECOMP
 218         echo %f|egrep -q "\.bz2$" && DECOMP=-d
 219         bzip2 $DECOMP -v %f
 220
 221 + t t
 222 B       Bzip2 or bunzip2 tagged files
 223         for i in %t
 224         do
 225           unset DECOMP
 226           echo $i|egrep -q "\.bz2$" && DECOMP=-d
 227           bzip2 $DECOMP -v $i
 228         done
 229
 230 + f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ & t r & ! t t
 231 z       Extract compressed tar file to subdirectory
 232         unset D
 233         echo %f|egrep -q "\.tar.gz$" && EXT=tar_gz
 234         echo %f|egrep -q "\.tgz$"    && EXT=tgz
 235         echo %f|egrep -q "\.tpz$"    && EXT=tpz
 236         echo %f|egrep -q "\.tar.Z$"    && EXT=tar_Z
 237         echo %f|egrep -q "\.tar.z$"    && EXT=tar_z
 238         echo %f|egrep -q "\.tar.bz2$"  && EXT=tar_bz2
 239         case $EXT in
 240           tar_gz) D="`basename %f .tar.gz`";;
 241           tgz)    D="`basename %f .tgz`";;
 242           tpz)    D="`basename %f .tpz`";;
 243           tar_Z)  D="`basename %f .tar.Z`";;
 244           tar_z)  D="`basename %f .tar.z`";;
 245           tar_bz2) D="`basename %f .tar.bz2`";;
 246         esac
 247         if [ "$EXT" = "tar_bz2" ]; then
 248             mkdir $D; cd $D && (bunzip2 -c ../%f | tar xvf -)
 249         else
 250             mkdir $D; cd $D && (gzip -dc ../%f | tar xvf -)
 251         fi
 252
 253 + f \.tar.F$ & t r & ! t t
 254 z       Extract compressed tar file to subdirectory
 255         unset D
 256         echo %f|egrep -q "\.tar.F$" && EXT=tar_F
 257         case $EXT in
 258           tar_F) D="`basename %f .tar.F`";;
 259         esac
 260         mkdir $D; cd $D && (freeze -dc ../%f | tar xvf -)
 261
 262 + t t
 263 Z       Extract compressed tar files to subdirectories
 264         set %u
 265         while [ -n "$1" ]
 266         do
 267           unset D
 268           echo $1|egrep -q "\.tar.gz$" && EXT=tar_gz
 269           echo $1|egrep -q "\.tgz$"    && EXT=tgz
 270           echo $1|egrep -q "\.tpz$"    && EXT=tpz
 271           echo $1|egrep -q "\.tar.Z$"    && EXT=tar_Z
 272           echo $1|egrep -q "\.tar.z$"    && EXT=tar_z
 273           echo $1|egrep -q "\.tar.F$"    && EXT=tar_F
 274           echo $1|egrep -q "\.tar.bz2$"  && EXT=tar_bz2
 275           case $EXT in
 276             tar_gz)  D="`basename $1 .tar.gz`";;
 277             tgz)     D="`basename $1 .tgz`";;
 278             tpz)     D="`basename $1 .tpz`";;
 279             tar_Z)   D="`basename $1 .tar.Z`";;
 280             tar_z)   D="`basename $1 .tar.z`";;
 281             tar_F)   D="`basename $1 .tar.F`";;
 282             tar_bz2) D="`basename $1 .tar.bz2`";;
 283           esac
 284           case $EXT in
 285             tar_gz|tgz|tpz|tar_Z|tar_z) mkdir $D; (cd $D && gzip -dc ../$1 | tar xvf -)||echo tag $1 >>$MC_CONTROL_FILE;;
 286             tar_F)                      mkdir $D; (cd $D && freeze -dc ../$1 | tar xvf -)||echo tag $1 >>$MC_CONTROL_FILE;;
 287             tar_bz2)                    mkdir $D; (cd $D && bunzip2 -c ../$1 | tar xvf -)||echo tag $1 >>$MC_CONTROL_FILE
 288           shift
 289         done
 290
 291 + f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t
 292 c       Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
 293         unset D
 294         echo %f|egrep -q "\.tgz$"    && EXT=tgz
 295         echo %f|egrep -q "\.tpz$"    && EXT=tpz
 296         echo %f|egrep -q "\.Z$"    && EXT=Z
 297         echo %f|egrep -q "\.z$"    && EXT=z
 298         echo %f|egrep -q "\.gz$" && EXT=gz
 299         echo %f|egrep -q "\.bz2$" && EXT=bz2
 300         case $EXT in
 301           tgz)    D="`basename %f .tgz`.tar";;
 302           tpz)    D="`basename %f .tpz`.tar";;
 303           gz) D="`basename %f .gz`";;
 304           bz2) D="`basename %f .bz2`";;
 305         esac
 306         if [ "$EXT" = "bz2" ]; then
 307             bunzip2 -v %f ; gzip -f9 -v $D
 308         else
 309             gunzip -v %f ; bzip2 -v --repetitive-best $D
 310         fi
 311
 312 + t t
 313 C       Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
 314         set %u
 315         while [ -n "$1" ]
 316         do
 317           unset D
 318           echo %f|egrep -q "\.tgz$"    && EXT=tgz
 319           echo %f|egrep -q "\.tpz$"    && EXT=tpz
 320           echo %f|egrep -q "\.Z$"    && EXT=Z
 321           echo %f|egrep -q "\.z$"    && EXT=z
 322           echo %f|egrep -q "\.gz$" && EXT=gz
 323           echo %f|egrep -q "\.bz2$" && EXT=bz2
 324           case $EXT in
 325               tgz)    D="`basename $1 .tgz`.tar";;
 326               tpz)    D="`basename $1 .tpz`.tar";;
 327               gz) D="`basename $1 .gz`";;
 328               bz2) D="`basename $1 .bz2`";;
 329           esac
 330           if [ "$EXT" = "bz2" ]; then
 331             (bunzip2 -v $1 ; gzip -f9 -v $D)||echo tag $1 >>$MC_CONTROL_FILE
 332           else
 333             (gunzip -v $1 ; bzip2 -v --repetitive-best $D)||echo tag $1 >>$MC_CONTROL_FILE
 334           fi
 335           shift
 336         done