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=`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 %u
 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 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=`awk '{print $1 ; exit}' $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         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 %u
 260         do
 261           set gzip -dc
 262           unset D
 263           case $i in
 264             *.tar.gz)  D="`basename $1 .tar.gz`";;
 265             *.tgz)     D="`basename $1 .tgz`";;
 266             *.tpz)     D="`basename $1 .tpz`";;
 267             *.tar.Z)   D="`basename $1 .tar.Z`";;
 268             *.tar.z)   D="`basename $1 .tar.z`";;
 269             *.tar.F)   D="`basename $1 .tar.F`"; set freeze -dc;;
 270             *.tar.bz2) D="`basename $1 .tar.bz2`"; set bunzip2 -c;;
 271           esac
 272           mkdir $D; (cd $D && $1 $2 ../$i | tar xvf -)||echo tag $i >>$MC_CONTROL_FILE
 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         case %f in
 279             *.tgz)      EXT=tgz;;
 280             *.tpz)      EXT=tpz;;
 281             *.Z)        EXT=Z;;
 282             *.z)        EXT=z;;
 283             *.gz)       EXT=gz;;
 284             *.bz2)      EXT=bz2;;
 285         esac
 286         case $EXT in
 287           tgz|tpz)      D="`basename %f .$EXT`.tar";;
 288           gz|Z|z)       D="`basename %f .$EXT`";;
 289           bz2)          D="`basename %f .bz2`";;
 290         esac
 291         if [ "$EXT" = "bz2" ]; then
 292             bunzip2 -v %f ; gzip -f9 -v $D
 293         else
 294             gunzip -v %f ; bzip2 -v --repetitive-best $D
 295         fi
 296
 297 + t t
 298 C       Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
 299         set %u
 300         while [ -n "$1" ]
 301         do
 302           unset D
 303           case $1 in
 304             *.tgz)      EXT=tgz;;
 305             *.tpz)      EXT=tpz;;
 306             *.Z)        EXT=Z;;
 307             *.z)        EXT=z;;
 308             *.gz)       EXT=gz;;
 309             *.bz2)      EXT=bz2;;
 310           esac
 311           case $EXT in
 312               tgz)    D="`basename $1 .tgz`.tar";;
 313               tpz)    D="`basename $1 .tpz`.tar";;
 314               gz|Z|z) D="`basename $1 .$EXT`";;
 315               bz2)    D="`basename $1 .bz2`";;
 316           esac
 317           if [ "$EXT" = "bz2" ]; then
 318             (bunzip2 -v $1 ; gzip -f9 -v $D)||echo tag $1 >>$MC_CONTROL_FILE
 319           else
 320             (gunzip -v $1 ; bzip2 -v --repetitive-best $D)||echo tag $1 >>$MC_CONTROL_FILE
 321           fi
 322           shift
 323         done
 324
 325 + x /usr/bin/open | x /usr/local/bin/open & x /bin/sh
 326 o       Open next a free console
 327         open -s -- sh
 328