projects
/
elisp
/
tm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tm 7.71.
[elisp/tm.git]
/
methods
/
csh
/
tm-plain
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
set filename = "$TM_TMP_DIR/mime$$.pln"
9
else
10
set filename = $TM_TMP_DIR/$5
11
endif
12
13
echo "$2; $3 -> $filename"
14
15
tmdecode $3 $1 $filename
16
17
switch( $4 )
18
case "play":
19
cat $filename
20
/bin/rm $filename
21
breaksw
22
case "extract":
23
echo "extract to $filename"
24
breaksw
25
case "print":
26
txt2ps -n $filename | lpr
27
/bin/rm $filename
28
breaksw
29
endsw