blob: dfb05ed7f7a70db108403f1ceceb4e2284a8282c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#!/bin/rc
rfork e
nl='
'
out=/dev/audio
typ=()
tmp=()
argv0=$0
fn cleanup {
if(! ~ $#tmp 0)
rm -f $tmp
tmp=()
}
fn sigint {
cleanup
exit
}
fn sigexit {
cleanup
}
fn play1 {
if(! ~ $#* 2){
tmp=(/tmp/play.$pid.$#tmp.tmp $tmp)
dd -bs 8192 -count 1 >$tmp(1) >[2]/dev/null
cat $tmp(1) /fd/0 | play1 $1 `{file -m $tmp(1)}
cleanup
}
if not {
switch($2){
case *plain*
sed 's/
//g' | while(j=`$nl{read}){
echo $"j >[1=2]
if(~ $"j http:* https:* HTTP:* HTTPS:*){
hget -r 'User-Agent: play' -r 'Icy-MetaData: 0' $"j | play1 $"j
}
if not {
if(test -r $"j)
play1 <$"j $"j
if not {
echo $argv0: 'can''t open file:' $"j >[1=2]
}
}
}
case *ogg* *vorbis*
audio/oggdec
case *mp3* *mpeg*
audio/mp3dec
case *wave*
audio/wavdec
case *flac*
audio/flacdec
case *audio/basic*
audio/sundec
case *audio/midi*
games/midi -c
case *audio/mus*
games/mus | games/midi -c
case *pls*
awk 'BEGIN {FS="="} /^File/{print $2}' | play1 list plain
case *
switch($1){
case *.mp3 *.MP3
audio/mp3dec
case *.ogg *.OGG
audio/oggdec
case *.wav *.WAV
audio/wavdec
case *.flac *.FLAC
audio/flacdec
case *.au *.AU
audio/sundec
case *.mid *.MID
games/midi -c
case *.mus *.MUS
games/mus | games/midi -c
case *
echo $argv0: $1: unknown format: $2 >[1=2]
}
}
}
}
fn usage {
echo usage: $argv0 '[ -o file ] [ file ... ]' >[1=2]
exit usage
}
while(~ $1 -*){
switch($1){
case -o
out=$2
shift
case *
usage
}
shift
}
# boost priority
@{echo pri 13 >/proc/$pid/ctl} >/dev/null >[2=1]
>$out {
if(~ $#* 0){play1 stdin; exit}
for(i){echo $"i} | play1 args plain
}
|
