ident='tts.lib(rpt) 20250227 ground/X'

# Global config variables.
enable_tts=1
enable_tones=1
tts_rate=250
tmp_dir='/tmp/tts' # Should probably be a ramdisk.
node='1999'
archive="/mnt/mv/qso/allstar/$node" # allstar archivedir
debug='1'

function debug {
# Prints a debug message to stderr if the debug variable is set
if [ "$debug" = '1' ]
then
echo "DBG: $*" 1>&2
fi
return 0
}
# End function
function check_tts {
if [ "$enable_tts" != '1' ]
then
debug 'tts disabled.'
exit 0
fi
if ! test -d "$tmp_dir" -a -w "$tmp_dir"
then
if ! mkdir "$tmp_dir"
then
debug "Cannot write to temp directory $tmp_dir"
exit 1
fi
fi
} 
# End function.
function say_espeak {
# Say a single line with espeak.
# Blocks until TX unkeys
# $1: Text to say.
check_tts
debug "Saying: $*"
rm -f "$tmp_dir/speak.wav"
rm -f "$tmp_dir/speak-sox.wav"
if ! espeak -w "$tmp_dir/speak.wav" -s $tts_rate -- "$*"
then
debug 'Espeak failed to generate data.'
exit 1
fi
if ! sox "$tmp_dir/speak.wav" -r 8000 "$tmp_dir/speak-sox.wav"
then
debug 'Error during sox conversion.'
exit 1
fi
if [ "$enable_tones" = '1' ]
then
asterisk -rx "rpt playback $node rpt/remote-ct2"
sleep 0.5
fi
asterisk -rx "rpt playback $node $tmp_dir/speak-sox"
is_keyed
delete_last
rm -f "$tmp_dir/speak.wav"
rm -f "$tmp_dir/speak-sox.wav"
debug 'say_espeak: success.'
return 0
}
# End function.
function say_parrot {
# Play transmission by number.
# $1: Slot of logged transmission to play.
# Defaults to 1. the last transmission.
local parrot_file parrot_no_ext line
if [ "$1" = '' ]
then
line='1'
else
line="$1"
fi
parrot_file=$(ls -1 $archive/*.pcm \
|tail -n$line |head -n1)
if ! test -e "$parrot_file"
then
debug 'Error: no archive with that number.'
exit 1
fi
local parrot_no_ext=$(echo "$parrot_file" |cut -d '.' -f1)
say_espeak "playback for slot $line."
asterisk -rx "rpt playback $node $parrot_no_ext"
is_keyed
delete_last
return 0
} 
# End function.
function delete_last {
# Deletes the last archived transmission.
# Used with parrot and so we don't log our own shit.
local last_file
sleep 1 # yep actually needed blah.
last_file=$(ls -1 $archive/*.pcm \
|tail -n1)
if ! test -e "$last_file"
then
debug 'delete_last: error, try to remove non-existant file.'
exit 1
fi
rm $last_file
debug 'Delete last stream archive file.'
return 0
}
# End function.
function say_lines {
# Read from stdin. speak each line.
local line
debug 'Reading from stdin.'
while read line
do
say_espeak "$line"
done
return 0
}
# End function.
function say_server {
# Receive stuff to say over the network with netcat.
# Only one client at a time this way.
# Also insecure. Do NOT use on untrusted networks.
debug 'Starting server loop.'
while sleep 0.1
do
debug 'Start server thread.'
nc -v -l -p 16000 |say_lines
done
}
# End function.
function is_keyed {
# Waits for TX to unkey
while asterisk -rx "rpt xnode $node" |grep -q 'RPT_ETXKEYED=1'
do
debug 'Waiting for unkey.'
sleep 1
done
debug 'TX unkey success.'
return 0
}
# End function.
debug "$ident"