projects
/
elisp
/
tm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tm 7.28.
[elisp/tm.git]
/
methods
/
csh
/
tm-au
1
#!/bin/csh -f
2
3
if (! $?TM_TMP_DIR) then
4
setenv TM_TMP_DIR /tmp
5
endif
6
7
switch( $4 )
8
case "play":
9
set filename = /dev/audio
10
breaksw
11
case "extract":
12
if( $5 == "" ) then
13
set filename = "$TM_TMP_DIR/mime$$.au"
14
else
15
set filename = "$TM_TMP_DIR/$5"
16
endif
17
breaksw
18
default:
19
exit -1
20
endsw
21
22
echo "$2; $3 -> $filename"
23
24
tmdecode $3 $1 $filename