55 lines
1.5 KiB
Nim
55 lines
1.5 KiB
Nim
import std/[logging, strformat]
|
|
import jacket
|
|
|
|
var
|
|
jclient: ClientP
|
|
status: cint
|
|
pos: Position
|
|
transportState: TransportState
|
|
|
|
var log = newConsoleLogger(when defined(release): lvlInfo else: lvlDebug)
|
|
|
|
proc errorCb(msg: cstring) {.cdecl.} =
|
|
# Suppress verbose JACK error messages when server is not available by
|
|
# default. Pass ``lvlAll`` when creating the logger to enable them.
|
|
debug "JACK error: " & $msg
|
|
|
|
addHandler(log)
|
|
setErrorFunction(errorCb)
|
|
jclient = clientOpen("jacket_info", NullOption, status.addr)
|
|
debug "JACK server status: " & $status
|
|
|
|
if jclient == nil:
|
|
error getJackStatusErrorString(status)
|
|
quit 1
|
|
|
|
transportState = transportQuery(jclient, pos.addr)
|
|
|
|
echo fmt"usecs: {pos.usecs}"
|
|
echo fmt"frameRate: {pos.frameRate}"
|
|
echo fmt"frame: {pos.frame}"
|
|
echo fmt"valid: {pos.valid.ord}"
|
|
|
|
if bool(pos.valid.ord and PositionBBT.ord):
|
|
echo fmt"bar: {pos.bar}"
|
|
echo fmt"beat: {pos.beat}"
|
|
echo fmt"tick: {pos.tick}"
|
|
echo fmt"barStartTick: {pos.barStartTick}"
|
|
echo fmt"beatsPerBar: {pos.beatsPerBar}"
|
|
echo fmt"beatType: {pos.beatType}"
|
|
echo fmt"beatsPerMinute: {pos.beatsPerMinute}"
|
|
|
|
case transportState
|
|
of TransportStopped:
|
|
echo "JACK transport stopped, starting it now."
|
|
transportStart(jclient)
|
|
of TransportRolling:
|
|
echo "JACK transport rolling, stopping it now."
|
|
transportStop(jclient)
|
|
of TransportStarting:
|
|
echo "JACK transport starting, nothing to do."
|
|
else:
|
|
echo "Unknown JACK transport state."
|
|
|
|
discard jclient.clientClose
|