FreeCalypso > hg > freecalypso-tools

annotate ringtools/fc-meltest-pwt @ 926:6a0aa8d36d06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rvinterf backslash escape: introduce libprint The new helper function library named libprint is meant to replace the badly misnamed libg23, and will soon contain functions for printing all of the same kinds of GPF TST packets that are now handled in libg23. However, we are also moving safe_print_trace() from libasync to this new library, and changing it to emit our new backslash escape format.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 23 May 2023 03:47:46 +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"