This commit was generated by cvs2svn to compensate for changes in r542,
[elisp/tm.git] / methods / csh / tm-image
1 #!/bin/csh -f
2
3 if (! $?TM_TMP_DIR) then
4     setenv TM_TMP_DIR /tmp
5 endif
6
7 if( $5 == "" ) then
8         switch ( $2 )
9         case "image/gif":
10                 set filename="$TM_TMP_DIR/mime$$.gif"
11                 breaksw
12         case "image/jpeg":
13                 set filename="$TM_TMP_DIR/mime$$.jpg"
14                 breaksw
15         case "image/tiff":
16         case "image/x-tiff":
17                 set filename="$TM_TMP_DIR/mime$$.tif"
18                 breaksw
19         case "image/x-xwd":
20                 set filename="$TM_TMP_DIR/mime$$.xwd"
21                 breaksw
22         case "image/x-xbm":
23                 set filename="$TM_TMP_DIR/mime$$.xbm"
24                 breaksw
25         case "image/x-pic":
26                 set filename="$TM_TMP_DIR/mime$$.pic"
27                 breaksw
28         default:
29                 set filename="$TM_TMP_DIR/mime$$.img"
30         endsw
31 else
32         set filename = $TM_TMP_DIR/$5
33 endif
34
35 echo "$2; $3 -> $filename"
36
37 tmdecode $3 $1 $filename
38
39 switch( $4 )
40 case "play":
41         xv -geometry +1+1 $filename
42         /bin/rm $filename
43         breaksw
44 case "extract":
45         echo "extract to $filename"
46         breaksw
47 endsw