view data/osc/sv-command @ 335:02d2ad95ea52 spectrogram-cache-rejig

* Get storage advice for each cache in an FFT data server.  Allows us to be
  more confident about the actual memory situation and cut over from memory
  to disc part way through an FFT calculation if necessary.  StorageAdviser
  is now a bit too optimistic though (it's too keen to allocate large numbers
  of small blocks in memory).

#!/bin/sh
#
# A very simple command shell for Sonic Visualiser.
# 
# This provides a wrapper for the sv-osc-send program, which is a
# generic OSC sending program (not specific to SV, despite its name).
# This script attempts to guess the OSC port number for an SV
# process running on the local host, and then composes a method name
# and arguments into a complete OSC call.
# 
# You can either run this with the method and its arguments on the
# command line, e.g. "sv-command set layer Frequency-Scale Log", or
# you can provide a series of method + argument commands on stdin.
# 
# Unless you use the -q option, this script will echo the OSC URL
# and arguments that it is sending for each command.
#
# Note that the method and arguments may not contain spaces.
# 
# Chris Cannam, Nov 2006

quiet=
if [ "$1" = "-q" ]; then
    quiet=true; shift;
fi

# The yucky bit

port=`lsof -c sonic- | \
          grep UDP | \
          sed -e 's/^.*[^0-9]\([0-9][0-9]*\) *$/\1/' | \
          grep -v ' ' | \
          head -1 `

host=127.0.0.1
scheme=osc.udp

if [ -z "$port" ]; then
    echo "Sonic Visualiser OSC port not found"
    exit 1
fi

if [ -n "$1" ]; then
    command=$1; shift
    [ -z "$quiet" ] && echo "$scheme://$host:$port/$command" "$@"
    sv-osc-send "$scheme://$host:$port/$command" "$@"
else
    while read command a1 a2 a3 a4 a5; do
        [ -z "$command" ] && continue
	[ -z "$quiet" ] && echo "$scheme://$host:$port/$command" $a1 $a2 $a3 $a4 $a5
	sv-osc-send "$scheme://$host:$port/$command" $a1 $a2 $a3 $a4 $a5
    done
fi

exit 0