break inexistence of this
This commit is contained in:
commit
02aece5e6e
337
play6
Executable file
337
play6
Executable file
|
|
@ -0,0 +1,337 @@
|
|||
#!/bin/sh
|
||||
#
|
||||
# The Playlist Jonkler
|
||||
#
|
||||
# usage: play6 <command> <playlist file>
|
||||
# commands: tell: list files in playlist
|
||||
# tell_w: list playlist entry weights
|
||||
# tell_l: list playlist entry lengths
|
||||
# gen: output shuffled playlist
|
||||
# play: play music with mpv
|
||||
#
|
||||
# playlist file is shell commands.
|
||||
# you shall run the `collect` command inside the playlist file.
|
||||
#
|
||||
# collect <weight> <file> [...]
|
||||
#
|
||||
# for example:
|
||||
#
|
||||
# collect \
|
||||
# 100 epic_music.mp3 \
|
||||
# 50 less_epic_music.webm
|
||||
#
|
||||
# if the playlist file does anything else, including, but not limited to:
|
||||
#
|
||||
# - executing commands that are not `collect`
|
||||
# - setting any variable
|
||||
# - referencing any variable
|
||||
#
|
||||
# the behavior is undefined.
|
||||
#
|
||||
# the program will assign a probability to each entry.
|
||||
# the probability is proportional to the entry's weight and
|
||||
# inversely proportional to the file's duration.
|
||||
#
|
||||
# the program will generate a shuffled playlist like this:
|
||||
#
|
||||
# 1. pick a random entry
|
||||
# 2. if it's 1th last entry output, return to #1 with 100% probability
|
||||
# (unless there is only one entry in the playlist)
|
||||
# 3. if it's 2th last entry output, return to #1 with 91% probability
|
||||
# 4. if it's 3th last entry output, return to #1 with 70% probability
|
||||
# 5. output filename of chosen entry
|
||||
#
|
||||
# dependency : mpv (only for `play music with mpv`)
|
||||
# ffprobe
|
||||
# POSIX.1-2017 compatible system
|
||||
# /dev/urandom or /dev/random
|
||||
#
|
||||
# this program is godawful and if it explodes
|
||||
# its your fault for being foolish enough to use it
|
||||
#
|
||||
cd "$(dirname "$(command -v "$0")")" || exit
|
||||
mktfifo() {
|
||||
{ mkfifo "$(printf "$(test -z "$TMPDIR" && printf '/tmp' ||
|
||||
printf "%s" "$TMPDIR")/pipe.$(rand).$(rand)$1" | tee /dev/fd/3)"; } 3>&1
|
||||
}
|
||||
if (printf '' | base64) >/dev/null 2>&1; then
|
||||
_list_enc() {
|
||||
printf :
|
||||
base64 -w0
|
||||
printf '\n'
|
||||
}
|
||||
_list_dec() {
|
||||
printf '%s' "${1#:}" | base64 -d
|
||||
}
|
||||
else
|
||||
_list_enc() {
|
||||
printf :
|
||||
od -An -b | sed -e 's/[0-9][0-9]*/\\0\0/g;s/\s//g' | tr -d '\n'
|
||||
printf '\n'
|
||||
}
|
||||
_list_dec() {
|
||||
printf '%b' "$(printf '%s' "${1#:}" | base64 -d)"
|
||||
}
|
||||
fi
|
||||
list_mk() {
|
||||
for _list_mk_arg; do
|
||||
printf '%s' "$_list_mk_arg" | _list_enc
|
||||
done
|
||||
}
|
||||
list_slice() {
|
||||
[ $# = 2 ] || return 1
|
||||
if [ $1 -gt $2 ]; then
|
||||
list_slice $2 $1;
|
||||
return
|
||||
fi
|
||||
_list_slice_i=1
|
||||
while read -r line; do
|
||||
if test $_list_slice_i -gt $2; then
|
||||
break
|
||||
fi
|
||||
if test $_list_slice_i -ge $1; then
|
||||
printf '%s\n' "$line"
|
||||
fi
|
||||
_list_slice_i=$((_list_slice_i+1))
|
||||
done
|
||||
unset _list_slice_i
|
||||
}
|
||||
list_len() {
|
||||
tr -cd : | wc -c
|
||||
}
|
||||
list_get() {
|
||||
list_slice $1 $1 | list_xargs printf '%s'
|
||||
}
|
||||
inarg() {
|
||||
_inarg_arg="$1"
|
||||
shift 1
|
||||
printf '%s\n' "$(printf '%s' "$_inarg_arg")" | "$@"
|
||||
unset _inarg_arg
|
||||
}
|
||||
list_xargs() {
|
||||
while read -r _list_xargs_arg; do
|
||||
_list_xargs_arg="$(_list_dec "$_list_xargs_arg"; echo :)"
|
||||
_list_xargs_arg="${_list_xargs_arg%:}"
|
||||
set -- "$@" "$_list_xargs_arg"
|
||||
done
|
||||
unset _list_xargs_arg
|
||||
"$@"
|
||||
}
|
||||
list_pop() {
|
||||
read -r _list_pop_line || return
|
||||
inarg "$_list_pop_line" list_xargs printf '%s'
|
||||
}
|
||||
list_pack() {
|
||||
[ $1 -ge 1 ] || return
|
||||
_list_pack_spl=$1
|
||||
while :; do
|
||||
read -r line || break
|
||||
set -- "$line"
|
||||
i=$_list_pack_spl
|
||||
while test $i -gt 1; do
|
||||
read -r line || return
|
||||
set -- "$@" "$line"
|
||||
i=$((i - 1))
|
||||
done
|
||||
for line; do
|
||||
printf '%s\n' "$line"
|
||||
done | _list_enc || return
|
||||
done
|
||||
}
|
||||
collect() {
|
||||
_collect_fifo_lens="$(mktfifo)"
|
||||
_collect_gen() {
|
||||
i=0;
|
||||
_collect_on() {
|
||||
_name="$(inarg "$1" list_get 2; echo :)"; _name="${_name%:}"
|
||||
}
|
||||
{ while :; do
|
||||
_name="$(list_pop && echo :)" || break
|
||||
i=$((i+1)); (
|
||||
_name="${_name%:}"
|
||||
_name="$(inarg "$_name" list_get 2; echo :)"
|
||||
_name="${_name%:}"
|
||||
printf "%d %.0f\n" $i \
|
||||
"$(if test -e "$_name"
|
||||
then
|
||||
ffprobe -loglevel 8 -of flat -show_entries format=duration "$_name" |
|
||||
sed 's/^[^"]*"\([^"]*\)"$/\1/'
|
||||
else
|
||||
printf 'warn: "%s": file not found\n' "$_name" >&2
|
||||
echo -1
|
||||
fi)" ) &
|
||||
done; wait; } | sort -n | sed 's/^[0-9]* *//' | while read line; do
|
||||
list_mk "$line"
|
||||
done
|
||||
}
|
||||
list_mk "$@" | list_pack 2 | _collect_gen > "$_collect_fifo_lens" &
|
||||
_collect_fn() {
|
||||
for _arg; do
|
||||
_weight="$(inarg "$_arg" list_get 1; echo :)"; _weight="${_weight%:}"
|
||||
_name="$(inarg "$_arg" list_get 2; echo :)"; _name="${_name%:}"
|
||||
_len="$(list_pop <&3)" || exit
|
||||
if [ "$_len" -ge 0 ]; then
|
||||
_newf="$(list_mk "$_name" "$_weight" "$_len"; echo :)";
|
||||
_newf="${_newf%:}"; list_mk "$_newf"
|
||||
fi
|
||||
done
|
||||
}
|
||||
list="$(list_mk "$@" | list_pack 2 |
|
||||
list_xargs _collect_fn 3<"$_collect_fifo_lens")"
|
||||
rm "$_collect_fifo_lens"
|
||||
unset _collect_fifo_lens
|
||||
unset _collect_fn
|
||||
unset _collect_gen
|
||||
if test $(inarg "$list" list_len) = 0; then
|
||||
printf 'fatal: no music\n' >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
if test -e /dev/urandom; then
|
||||
rand() { echo $(head -c4 /dev/urandom | od -An -t u); }
|
||||
elif test -e /dev/random; then
|
||||
rand() { echo $(head -c4 /dev/random | od -An -t u); }
|
||||
else
|
||||
printf 'fatal: no random\n' >&2;
|
||||
exit 1
|
||||
fi
|
||||
randn() {
|
||||
(while true; do
|
||||
if test -z $1; then printf 'randn: bad argument\n' >&2; exit 1; fi
|
||||
_rand=$(rand || exit)
|
||||
if ! [ $_rand -lt $(((1<<32) % $1)) ]; then
|
||||
break;
|
||||
fi
|
||||
done
|
||||
printf $(($_rand % $1)))
|
||||
}
|
||||
gen() {
|
||||
(_f() {
|
||||
_ff() {
|
||||
printf '{\n\tname: %s\n\tweight: %sx\n\tlen: %ss\n}\n' "$@" >&2
|
||||
}
|
||||
for arg; do
|
||||
inarg "$arg" list_xargs _ff
|
||||
done
|
||||
};inarg "$list" list_xargs _f)
|
||||
_len="$(inarg "$list" list_len)"
|
||||
echo count: $_len >&2
|
||||
_maxll="$(_len_f() {
|
||||
mll="$(inarg "$1" list_get 3)"
|
||||
shift 1;
|
||||
for arg; do
|
||||
num="$(inarg "$arg" list_get 3)"
|
||||
if [ "$num" -ge "$mll" ]; then
|
||||
mll="$num"
|
||||
fi
|
||||
done
|
||||
echo $mll
|
||||
}; inarg "$list" list_xargs _len_f)"
|
||||
echo maxlen: $_maxll >&2
|
||||
_weight="$(wei=0
|
||||
_onlist(){
|
||||
for arg; do
|
||||
_name="$(inarg "$arg" list_get 1; echo :)"; _name="${_name%:}"
|
||||
_vwei="$(inarg "$arg" list_get 2; echo :)"; _vwei="${_vwei%:}"
|
||||
_vlen="$(inarg "$arg" list_get 3; echo :)"; _vlen="${_vlen%:}"
|
||||
prevwei=$wei;
|
||||
wei=$((wei+(((10000 * _maxll) / _vlen) * _vwei)))
|
||||
printf 'chance: %s\n' $((wei-prevwei)) >&2
|
||||
_newf="$(list_mk "$_name" "$wei"; echo :)";
|
||||
_newf="${_newf%:}"; list_mk "$_newf"
|
||||
done
|
||||
}
|
||||
inarg "$list" list_xargs _onlist
|
||||
echo :)"; _weight="${_weight%:}"
|
||||
maxwei="$(_mw_fn(){
|
||||
shift $(($# - 1))
|
||||
inarg "$1" list_get 2
|
||||
}; inarg "$_weight" list_xargs _mw_fn)"
|
||||
set -- "" "" ""
|
||||
while true; do
|
||||
num=$(randn $maxwei || exit)
|
||||
line="$(_fn(){
|
||||
for arg; do
|
||||
lnd="$arg"
|
||||
wei="$(inarg "$arg" list_get 2)"
|
||||
if [ $num -lt "$wei" ]; then break; fi
|
||||
done
|
||||
inarg "$lnd" list_get 1
|
||||
}; inarg "$_weight" list_xargs _fn; echo :)"
|
||||
line="${line%:}"
|
||||
if { test "$line" != "$3" || test $_len = 1; } &&
|
||||
{ test "$line" != "$2" || test $(randn 100) -lt 9; } &&
|
||||
{ test "$line" != "$1" || test $(randn 100) -lt 30; }
|
||||
then
|
||||
printf "%d\n%s\n" "$(printf '%s' "$line" | wc -c)" "$line" || exit
|
||||
yes '' | tr '\n' ' ' | head -c 65536 # fill pipe quicker
|
||||
fi
|
||||
shift 1
|
||||
set -- "$@" "$line"
|
||||
done
|
||||
}
|
||||
gen2() {
|
||||
gen | while read len; do
|
||||
dd bs=$len count=1 2>/dev/null; printf '\0'
|
||||
dd bs=1 count=1 2>/dev/null >/dev/null
|
||||
done
|
||||
}
|
||||
play() {
|
||||
_fifo_playl="$(mktfifo .m3u8)"
|
||||
_fifo_script="$(mktfifo .lua)"
|
||||
{ cat <<'EOF'
|
||||
local f = assert(io.open("/dev/fd/4"))
|
||||
function spawn()
|
||||
local sngi = assert(tonumber(f:read()))
|
||||
local song = f:read(sngi)
|
||||
f:read()
|
||||
print("PLAYING: "..song)
|
||||
mp.commandv("loadfile",song,"replace")
|
||||
mp.set_property_bool("pause", false)
|
||||
end
|
||||
mp.observe_property("eof-reached", "bool", function(name, value)
|
||||
if value then
|
||||
spawn()
|
||||
end
|
||||
end)
|
||||
spawn()
|
||||
EOF
|
||||
} >"$_fifo_script" &
|
||||
gen >"$_fifo_playl" &
|
||||
curpid=$$
|
||||
clrn(){
|
||||
rm "$_fifo_playl"
|
||||
rm "$_fifo_script"
|
||||
}
|
||||
( while kill -0 $curpid 2>/dev/null; do sleep 0.05; done; clrn ) &
|
||||
job="$(jobs -p | tail -n1)"
|
||||
{
|
||||
mpv --keep-open --no-video \
|
||||
--volume=69 --script="$_fifo_script" --idle
|
||||
} 4<"$_fifo_playl"
|
||||
kill $job;
|
||||
clrn
|
||||
}
|
||||
tell() { _tell_w_f() { for arg; do _name="$(inarg "$arg" list_get 1; echo :)"
|
||||
_name="${_name%:}"; printf "%s\0" "$_name"; done }
|
||||
inarg "$list" list_xargs _tell_w_f; }
|
||||
tell_w() { _tell_w_f() { for arg; do _name="$(inarg "$arg" list_get 2; echo :)"
|
||||
_name="${_name%:}"; printf "%s\0" "$_name"; done }
|
||||
inarg "$list" list_xargs _tell_w_f; }
|
||||
tell_l() { _tell_w_f() { for arg; do _name="$(inarg "$arg" list_get 3; echo :)"
|
||||
_name="${_name%:}"; printf "%s\0" "$_name"; done }
|
||||
inarg "$list" list_xargs _tell_w_f; }
|
||||
|
||||
. "$2" || exit
|
||||
if test -z "$list"; then
|
||||
printf 'fatal: bad playlist' >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if test "$1" = tell; then tell;
|
||||
elif test "$1" = tell_w; then tell_w;
|
||||
elif test "$1" = tell_l; then tell_l;
|
||||
elif test "$1" = gen; then gen2;
|
||||
elif test "$1" = play; then play;
|
||||
else printf "play6: invalid argument\n" >&2; exit 1
|
||||
fi
|
||||
Loading…
Reference in a new issue