ref: 8da25cdb3e811f308df160faa52aae046dbd377e
parent: 3b7c8f9e807c3d6f8a26b5f91ccb1e8c6593876c
author: qwx <[email protected]>
date: Sat Aug 19 05:16:43 EDT 2023
play: opus, m4a, mod, aac
--- /dev/null
+++ b/rc/bin/play
@@ -1,0 +1,135 @@
+#!/bin/rc
+rfork en
+
+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 midi {+ if(test -f /mnt/wad/genmidi || games/wadfs /sys/games/lib/doom/doom1.wad >[2]/dev/null)
+ games/dmid | games/opl3
+ if not
+ games/midi -c
+}
+
+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 *aac*
+ audio/aacdec
+ case *ogg*opus*
+ audio/opusdec
+ case *m4a* # ?
+ audio/m4adec
+ 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*
+ midi
+ case *audio/mus*
+ games/mus | midi
+ case *audio/mod*
+ mod/decode
+ case *audio/x-voc*
+ audio/vocdec
+ case *pls*
+ awk 'BEGIN {FS="="} /^File/{print $2}' | play1 list plain+ case *
+ switch($1){+ case *.opus *.OPUS
+ audio/opusdec
+ case *.m4a *.M4A
+ audio/m4adec
+ case *.aac *.AAC
+ audio/aacdec
+ 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
+ midi
+ case *.mus *.MUS
+ games/mus | midi
+ case *.mod *.MOD
+ mod/decode
+ 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+}