FreeCalypso > hg > freecalypso-tools

annotate ringtools/fc-meltest-pwt @ 924:d452188587b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rvinterf: begin change to backslash escape output format Right now throughout the rvinterf suite, any time we emit output that is expected to be ASCII, but may contain non-printable garbage, we use 'cat -v' form of garbage character representation. Unfortunately, this transformation is lossy (can't be reversed 100% reliably in the user's wetware), hence we would like to migrate to C-style backslash escapes, including doubling of any already-present backslashes - this escape mechanism is lossless. Begin this change by converting the output of RV and L1 traces in rvinterf and rvtdump.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 23 May 2023 03:10:50 +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"