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