1#!/bin/sh
2
3#
4# SPDX-License-Identifier: BSD-2-Clause
5#
6# Copyright (c) 2002  The FreeBSD Project
7# All rights reserved.
8#
9# Redistribution and use in source and binary forms, with or without
10# modification, are permitted provided that the following conditions
11# are met:
12# 1. Redistributions of source code must retain the above copyright
13#    notice, this list of conditions and the following disclaimer.
14# 2. Redistributions in binary form must reproduce the above copyright
15#    notice, this list of conditions and the following disclaimer in the
16#    documentation and/or other materials provided with the distribution.
17#
18# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
19# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
22# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28# SUCH DAMAGE.
29#
30
31#
32# Inspired on spkrtest.pl, rewritten from scratch to remove perl dependency
33# $VER: spkrtest 0.3 (9.5.2002) Riccardo "VIC" Torrini <riccardo@torrini.org>
34#
35
36cleanExit() {
37	rm -f ${choices}
38	exit ${1:-0}
39}
40
41trap 'cleanExit 1' 1 2 3 5 15	# HUP, INT, QUIT, TRAP, TERM
42
43choices=${TMP:-/tmp}/_spkrtest_choices.$$
44speaker=/dev/speaker
45
46test -w ${speaker}
47if [ $? -ne 0 ]
48then
49	echo "You have no write access to $speaker or the speaker device is"
50	echo "not enabled in kernel. Cannot play any melody! See spkr(4)."
51	sleep 2
52	cleanExit 1
53fi
54
55/usr/bin/bsddialog --title " Speaker test " --checklist \
56	"Please select the melodies you wish to play (space for select)" \
57	0 0 0 \
58	reveille "Reveille" off \
59	contact "Contact theme from Close Encounters" off \
60	dance "Lord of the Dance (aka Simple Gifts)" off \
61	loony "Loony Toons theme" off \
62	sinister "Standard villain's entrance music" off \
63	rightstuff "A trope from 'The Right Stuff' score by Bill Conti" off \
64	toccata "Opening bars of Bach's Toccata and Fugue in D Minor" off \
65	startrek "Opening bars of the theme from Star Trek Classic" off \
66		2> ${choices} || cleanExit 0
67
68echo ""
69tunes="`cat ${choices}`"
70for tune in ${tunes:-DEFAULT}
71do
72	case ${tune:-NULL} in
73	DEFAULT)
74		title="(default melody)"
75		music="ec"
76		;;
77	reveille)
78		title="Reveille"
79		music="t255l8c.f.afc~c.f.afc~c.f.afc.f.a..f.~c.f.afc~c.f.afc~c.f.afc~c.f.."
80		;;
81	contact)
82		title="Contact theme from Close Encounters"
83		music="<cd<a#~<a#>f"
84		;;
85	dance)
86		title="Lord of the Dance (aka Simple Gifts)"
87		music="t240<cfcfgagaa#b#>dc<a#a.~fg.gaa#.agagegc.~cfcfgagaa#b#>dc<a#a.~fg.gga.agfgfgf."
88		;;
89	loony)
90		title="Loony Toons theme"
91		music="t255cf8f8edc<a>~cf8f8edd#e~ce8cdce8cd.<a>c8c8c#def8af8"
92		;;
93	sinister)
94		title="standard villain's entrance music"
95		music="mst200o2ola.l8bc.~a.~>l2d#"
96		;;
97	rightstuff)
98		title="a trope from 'The Right Stuff' score by Bill Conti"
99		music="olcega.a8f>cd2bgc.c8dee2"
100		;;
101	toccata)
102		title="opening bars of Bach's Toccata and Fugue in D Minor"
103		music="msl16oldcd4mll8pcb-agf+4.g4p4<msl16dcd4mll8pa.a+f+4p16g4"
104		;;
105	startrek)
106		title="opening bars of the theme from Star Trek Classic"
107		music="l2b.f+.p16a.c+.p l4mn<b.>e8a2mspg+e8c+f+8b2"
108		;;
109	esac
110	echo "Title: ${title}"
111	echo ${music} > ${speaker}
112	sleep 1
113done
114cleanExit 0
115