projects
/
elisp
/
tm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tm 5.18
[elisp/tm.git]
/
methods
/
tm-mpeg
1
#!/bin/csh -f
2
3
if( $5 == "" ) then
4
set filename = /tmp/mime$$.mpg
5
else
6
set filename = /tmp/$5
7
endif
8
9
echo "$2; $3 -> $filename"
10
11
switch( $3 )
12
case "7bit":
13
case "8bit":
14
case "binary":
15
/bin/cp $1 $filename
16
breaksw
17
case "base64":
18
decode-b < $1 > $filename
19
breaksw
20
case "quoted-printable":
21
mmencode -q -u $1 > $filename
22
breaksw
23
default:
24
echo "unknown encoding"
25
exit -1
26
endsw
27
28
/bin/rm $1
29
30
switch( $4 )
31
case "play":
32
mpeg_play -dither gray $filename
33
/bin/rm $filename
34
breaksw
35
case "extract":
36
echo "extrtact to $filename"
37
breaksw
38
endsw