summaryrefslogtreecommitdiff
path: root/rc/bin/play
blob: a5194b6544648cee5fe02a6f6f4c83e12f66f205 (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
#!/bin/rc

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(~ $#* 0){
		tmp=/tmp/play.$pid.tmp
		dd -bs 64 -count 1 >$tmp >[2]/dev/null
		cat $tmp /fd/0 | play1 `{file -m $tmp} xxx
		cleanup
	}
	if not {
		switch($1){
		case *plain*
			sed 's/
//g' | while(j=`{read}){
				if(~ $"j http:* https:* HTTP:* HTTPS:*){
					if(~ $#typ 0) typ=mp3
					echo $"j >[1=2]
					hget -r 'Icy-MetaData: 0' $j | play1 $typ
				}
				if not {
					if(test -r $"j){
						echo $"j >[1=2]
						play1 <$"j
					}
				}
			}
		case *ogg* *vorbis*
			audio/oggdec
		case *mp3* *mpeg*
			audio/mp3dec
		case *pls*
			awk 'BEGIN {FS="="} /^File/{print $2}' | play1 plain
		case *
			echo $argv0: unknown format: $1 >[1=2]
		}
	}
}

fn usage {
	echo usage: $argv0 [ -t type ] [-o file ] [ file ... ] >[1=2]
	exit usage
}

while(~ $1 -*){
	switch($1){
	case -t
		typ=$2
		shift
	case -o
		out=$2
		shift
	case *
		usage
	}
	shift
}

>$out {
	if(~ $#* 0){play1 $typ; exit}
	for(i){echo $i} | play1 plain 
}