methods/tm-au

   1 #!/bin/sh -
   2 #
   3 # $Id: tm-au,v 3.2 1996/03/25 12:35:55 morioka Exp $
   4 #
   5
   6 if [ "$TM_TMP_DIR" = "" ]; then
   7         TM_TMP_DIR=/tmp
   8         export TM_TMP_DIR
   9 fi
  10
  11 if [ "$5" = "" ]; then
  12         filename="$TM_TMP_DIR/mime$$.au"
  13 else
  14         filename="$TM_TMP_DIR/$5"
  15 fi
  16
  17
  18 case "$4" in
  19 "play")
  20         echo "$2; $3 ->"
  21         if [ "$AUDIOSERVER" = "" ]; then
  22                 if [ `uname` = "IRIX" ]; then
  23                         tmdecode $3 $1 $filename
  24                         sfplay $filename
  25                         trap 'rm -f $filename' 0 1 2 3 13 15
  26                 else
  27                         tmdecode $3 $1 /dev/audio
  28                 fi
  29         else
  30                 tmdecode $3 $1 $filename
  31                 autool -v 40 $filename
  32                 trap 'rm -f $filename' 0 1 2 3 13 15
  33         fi
  34         ;;
  35 "extract")
  36         echo "$2; $3 -> $filename"
  37         echo "extract to $filename"
  38         tmdecode $3 $1 $filename
  39         ;;
  40 esac