lib/mc.menu

   1 shell_patterns=0
   2 + ! t t
   3 @       Do something on the current file
   4         CMD=%{Enter command}
   5         $CMD %f
   6
   7 + t t
   8 @       Do something on the tagged files
   9         set %t; CMD=%{Enter command}
  10         while [ -n "$1" ]; do
  11           $CMD "$1"
  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       Compress the current subdirectory (tar.gz)
  30         Pwd=`basename "%d" /`
  31         echo -n "Name of the compressed file (without extension) [$Pwd]: "
  32         read tar
  33         if [ "$tar"x = x ]; then tar="$Pwd"; fi
  34         cd .. && \
  35         tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \
  36         echo "../$tar.tar.gz created."
  37
  38 4       Compress the current subdirectory (tar.bz2)
  39         Pwd=`basename %d /`
  40         echo -n "Name of the compressed file (without extension) [$Pwd]: "
  41         read tar
  42         if [ "$tar"x = x ]; then tar="$Pwd"; fi
  43         cd .. && \
  44         tar cf - "$Pwd" | bzip2 -f --repetitive-best > "$tar.tar.bz2" && \
  45         echo "../$tar.tar.bz2 created."
  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 %t
  59         while [ -n "$1" ]; do
  60           cat $1 >>%D/$1
  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=`awk '{print $1 ; exit}' %f` 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 %t
 127         while [ -n "$1" ]; do
 128           CHECK=`awk '{print $1 ; exit}' $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 "Oops! Please check $1 against $WFILE"
 137               fi
 138                 ;;
 139             *)
 140               echo $1 skipped: Not a news article.
 141                 ;;
 142           esac
 143           shift
 144         done
 145
 146 = t r
 147 + ! t t
 148 r       Copy file to remote host
 149         echo -n "To which host?: "
 150         read Host
 151         echo -n "To which directory on $Host?: "
 152         read Dir
 153         rcp -p %f ${Host}:$Dir
 154
 155 + t t
 156 R       Copy files to remote host (no error checking)
 157         echo -n "Copy files to which host?: "
 158         read Host
 159         echo -n "To which directory on $Host? :"
 160         read Dir
 161         rcp -pr %u ${Host}:$Dir
 162
 163 = f \.tex$ & t r
 164 + f \.tex$ & t r & ! t t
 165 t       Run latex on file and show it with xdvi
 166         latex %f && xdvi `basename %f .tex`.dvi
 167
 168 =+ f ^part | f ^Part | f uue & t r
 169 + t t
 170 U       Uudecode marked news articles (needs work)
 171         set %t
 172         (
 173         while [ -n "$1" ]; do # strip headers
 174           FIRST=`awk '{print $1 ; exit}' $1`
 175           cat $1 | sed '/^'"$FIRST"' /,/^$/d'; shift
 176         done
 177         ) |sed '/^$/d' |sed -n '/^begin 6/,/^end$/p' | uudecode
 178         if [ "$?" != "0" ]; then
 179           echo "Could not decode %t"
 180         fi
 181         echo "Please test the output file before deleting anything"
 182
 183 =+ f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.Z$| f \.tar\.bz2$ & t r
 184 x       Extract the contents of a compressed tar file
 185         unset EXT
 186         case %f in
 187             *.tar.bz2) EXT=tar_bz2;;
 188         esac
 189         if [ "$EXT" = "tar_bz2" ]; then
 190           bunzip2 -c %f | tar xvf -
 191         else
 192           gzip -dc %f | tar xvf -
 193         fi
 194
 195 = t r
 196 + ! t t
 197 y       Gzip or gunzip current file
 198         unset DECOMP
 199         case %f in
 200             *.gz) DECOMP=-d;;
 201             *.[zZ]) DECOMP=-d;;
 202         esac
 203         gzip $DECOMP -v %f
 204
 205 + t t
 206 Y       Gzip or gunzip tagged files
 207         for i in %t
 208         do
 209           unset DECOMP
 210           case $i in
 211             *.gz) DECOMP=-d;;
 212             *.[zZ]) DECOMP=-d;;
 213           esac
 214           gzip $DECOMP -v $i
 215         done
 216
 217 + ! t t
 218 b       Bzip2 or bunzip2 current file
 219         unset DECOMP
 220         case %f in
 221             *.bz2) DECOMP=-d;;
 222         esac
 223         bzip2 $DECOMP -v %f
 224
 225 + t t
 226 B       Bzip2 or bunzip2 tagged files
 227         for i in %t
 228         do
 229           unset DECOMP
 230           case $i in
 231             *.bz2) DECOMP=-d;;
 232           esac
 233           bzip2 $DECOMP -v $i
 234         done
 235
 236 + f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ | f \.tar.F$ & t r & ! t t
 237 z       Extract compressed tar file to subdirectory
 238         unset D
 239         set gzip -cd
 240         case %f in
 241           *.tar.gz) D="`basename %f .tar.gz`";;
 242           *.tgz)    D="`basename %f .tgz`";;
 243           *.tpz)    D="`basename %f .tpz`";;
 244           *.tar.Z)  D="`basename %f .tar.Z`";;
 245           *.tar.z)  D="`basename %f .tar.z`";;
 246           *.tar.bz2) D="`basename %f .tar.bz2`"; set bunzip2 -c ;;
 247           *.tar.F) D="`basename %f .tar.F`"; set freeze -dc;
 248         esac
 249         mkdir $D; cd $D && ($1 $2 ../%f | tar xvf -)
 250
 251 + t t
 252 Z       Extract compressed tar files to subdirectories
 253         for i in %t
 254         do
 255           set gzip -dc
 256           unset D
 257           case $i in
 258             *.tar.gz)  D="`basename $i .tar.gz`";;
 259             *.tgz)     D="`basename $i .tgz`";;
 260             *.tpz)     D="`basename $i .tpz`";;
 261             *.tar.Z)   D="`basename $i .tar.Z`";;
 262             *.tar.z)   D="`basename $i .tar.z`";;
 263             *.tar.F)   D="`basename $i .tar.F`"; set freeze -dc;;
 264             *.tar.bz2) D="`basename $i .tar.bz2`"; set bunzip2 -c;;
 265           esac
 266           mkdir $D; (cd $D && $1 $2 ../$i | tar xvf -)
 267         done
 268
 269 + f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t
 270 c       Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
 271         unset D
 272         case %f in
 273             *.tgz)      EXT=tgz;;
 274             *.tpz)      EXT=tpz;;
 275             *.Z)        EXT=Z;;
 276             *.z)        EXT=z;;
 277             *.gz)       EXT=gz;;
 278             *.bz2)      EXT=bz2;;
 279         esac
 280         case $EXT in
 281           tgz|tpz)      D="`basename %f .$EXT`.tar";;
 282           gz|Z|z)       D="`basename %f .$EXT`";;
 283           bz2)          D="`basename %f .bz2`";;
 284         esac
 285         if [ "$EXT" = "bz2" ]; then
 286             bunzip2 -v %f ; gzip -f9 -v $D
 287         else
 288             gunzip -v %f ; bzip2 -v --repetitive-best $D
 289         fi
 290
 291 + t t
 292 C       Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
 293         set %t
 294         while [ -n "$1" ]
 295         do
 296           unset D
 297           case $1 in
 298             *.tgz)      EXT=tgz;;
 299             *.tpz)      EXT=tpz;;
 300             *.Z)        EXT=Z;;
 301             *.z)        EXT=z;;
 302             *.gz)       EXT=gz;;
 303             *.bz2)      EXT=bz2;;
 304           esac
 305           case $EXT in
 306               tgz)    D="`basename $1 .tgz`.tar";;
 307               tpz)    D="`basename $1 .tpz`.tar";;
 308               gz|Z|z) D="`basename $1 .$EXT`";;
 309               bz2)    D="`basename $1 .bz2`";;
 310           esac
 311           if [ "$EXT" = "bz2" ]; then
 312             bunzip2 -v $1
 313             gzip -f9 -v $D
 314           else
 315             gunzip -v $1
 316             bzip2 -v --repetitive-best $D
 317           fi
 318           shift
 319         done
 320
 321 + x /usr/bin/open | x /usr/local/bin/open & x /bin/sh
 322 o       Open next a free console
 323         open -s -- sh
 324