FreeCalypso > hg > freecalypso-tools

annotate ringtools/fc-meltest-pwt @ 1010:1d144553a5d0 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CHANGES: fc-host-tools-r21 about to be released
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 12 Dec 2023 07:45:56 +0000
parents 5b68ba735e98
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 #!/bin/sh
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
3 if [ $# -lt 1 -o $# -gt 2 ]
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 then
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
5 echo "usage: $0 pwt_melody_file [volume]" 1>&2
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 exit 1
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 fi
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 tmpfile=/tmp/fc-test-melody.bz
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
11 if [ -n "$2" ]
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
12 then
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
13 volume="$2"
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
14 else
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
15 volume=64
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
16 fi
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
17
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 set -ex
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 fc-pwt-comp "$1" $tmpfile
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 fc-fsio upload-file $tmpfile /buz/test.bz
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
22 fc-shell 'at@buz="/buz/test.bz"'",$volume"