refactor: more examples streamlining

This commit is contained in:
Christopher Arndt 2022-10-09 09:43:13 +02:00
parent 34e6171e3f
commit e68223f1e6
3 changed files with 64 additions and 52 deletions

View File

@ -1,30 +1,30 @@
import std/logging
import jacket import jacket
var jclient: ClientTPtr var jclient: ClientTPtr
var time: TimeT
var status: cint var status: cint
var log = newConsoleLogger(lvlInfo)
jclient = clientOpen("test_jacket", NullOption.ord, addr status) proc errorCb(msg: cstring) {.cdecl.} =
# Suppress verbose JACK error messges when server is not available by
# default. Pass ``lvlAll`` when creating the logger to enable them.
debug "JACK error: " & $msg
echo "Server status: " & $status addHandler(log)
setErrorFunction(errorCb)
jclient = clientOpen("test_jacket", NullOption.ord, status.addr)
debug "Server status: " & $status
if jclient == nil: if jclient == nil:
echo getJackStatusErrorString(status) error getJackStatusErrorString(status)
quit 1 quit 1
time = getTime() echo("JACK version: ", getVersionString())
let ver = getVersionString() echo("Sample rate: ", jclient.getSampleRate)
echo "JACK version: " & $ver echo("Buffer size: ", jclient.getBufferSize)
let rate = getSampleRate(jclient) echo("DSP load: ", jclient.cpuLoad, "%")
echo "Sample rate: " & $rate echo("Server time: ", getTime())
let bufsize = getBufferSize(jclient) echo("Client name: ", jclient.getClientName)
echo "Buffer size: " & $bufsize echo("RT enabled: ", if jclient.isRealtime > 0: "yes" else: "no")
let load = cpuLoad(jclient)
echo "DSP load: " & $load & "%"
echo "Server time: " & $time
let name = getClientName(jclient)
echo "Client name: " & $name
let rt = if isRealtime(jclient) > 0: "yes" else: "no"
echo "RT enabled: " & rt
discard clientClose(jclient) discard jclient.clientClose

View File

@ -1,54 +1,60 @@
import std/os import std/[logging, os]
import jacket import jacket
var jclient: ClientTPtr var jclient: ClientTPtr
var status: cint var status: cint
var log = newConsoleLogger(lvlInfo)
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
proc cleanup() {.noconv.} = proc cleanup() {.noconv.} =
echo "Cleaning up..." debug "Cleaning up..."
if jclient != nil: if jclient != nil:
discard deactivate(jclient) discard jclient.deactivate()
discard clientClose(jclient) discard jclient.clientClose()
jclient = nil jclient = nil
quit 0 quit QuitSuccess
proc portConnected(portA: PortIdT; portB: PortIdT; connect: cint; arg: pointer) {.cdecl.} = proc portConnected(portA: PortIdT; portB: PortIdT; connect: cint; arg: pointer) {.cdecl.} =
let portAPtr = portById(jclient, portA) let portAPtr = jclient.portById(portA)
let portBPtr = portById(jclient, portB) let portBPtr = jclient.portById(portB)
if portAPtr != nil: if portAPtr != nil:
echo "Port A: " & $portName(portAPtr) echo("Port A: ", portName(portAPtr))
else: else:
echo "Port A: <unknown>" echo "Port A: <unknown>"
if portAPtr != nil: if portAPtr != nil:
echo "Port B: " & $portName(portBPtr) echo("Port B: ", portName(portBPtr))
else: else:
echo "Port B: <unknown>" echo "Port B: <unknown>"
echo "Action: " & (if connect > 0: "connect" else: "disconnect") echo("Action: ", if connect > 0: "connect" else: "disconnect")
jclient = clientOpen("jacket_port_register", NoStartServer.ord, addr status) addHandler(log)
setErrorFunction(errorCb)
echo "Server status: " & $status jclient = clientOpen("jacket_port_register", NoStartServer.ord, status.addr)
debug "Server status: " & $status
if jclient == nil: if jclient == nil:
echo getJackStatusErrorString(status) error getJackStatusErrorString(status)
quit 1 quit 1
setControlCHook(cleanup) setControlCHook(cleanup)
discard portRegister(jclient, "in_1", JACK_DEFAULT_AUDIO_TYPE, PortIsInput.ord, 0) discard jclient.portRegister("in_1", JACK_DEFAULT_AUDIO_TYPE, PortIsInput.ord, 0)
discard portRegister(jclient, "out_1", JACK_DEFAULT_AUDIO_TYPE, PortIsOutput.ord, 0) discard jclient.portRegister("out_1", JACK_DEFAULT_AUDIO_TYPE, PortIsOutput.ord, 0)
if setPortConnectCallback(jclient, portConnected, nil) != 0: if jclient.setPortConnectCallback(portConnected, nil) != 0:
echo "Error: could not set port connection callback." error "Error: could not set port connection callback."
discard activate(jclient)
if jclient.activate() == 0:
while true: while true:
sleep(50) sleep(50)

View File

@ -1,31 +1,37 @@
import std/os import std/[logging, os]
import jacket import jacket
var jclient: ClientTPtr var jclient: ClientTPtr
var status: cint var status: cint
var log = newConsoleLogger(lvlInfo)
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
proc cleanup() {.noconv.} = proc cleanup() {.noconv.} =
echo "Cleaning up..." debug "Cleaning up..."
if jclient != nil: if jclient != nil:
discard clientClose(jclient) discard jclient.clientClose
jclient = nil jclient = nil
quit 0 quit QuitSuccess
addHandler(log)
jclient = clientOpen("jacket_port_register", NoStartServer.ord or UseExactName.ord, addr status) setErrorFunction(errorCb)
jclient = clientOpen("jacket_port_register", NoStartServer.ord or UseExactName.ord, status.addr)
echo "Server status: " & $status debug "Server status: " & $status
if jclient == nil: if jclient == nil:
echo getJackStatusErrorString(status) error getJackStatusErrorString(status)
quit 1 quit 1
setControlCHook(cleanup) setControlCHook(cleanup)
discard portRegister(jclient, "in_1", JACK_DEFAULT_AUDIO_TYPE, PortIsInput.ord, 0) discard jclient.portRegister("in_1", JACK_DEFAULT_AUDIO_TYPE, PortIsInput.ord, 0)
discard portRegister(jclient, "out_1", JACK_DEFAULT_AUDIO_TYPE, PortIsOutput.ord, 0) discard jclient.portRegister("out_1", JACK_DEFAULT_AUDIO_TYPE, PortIsOutput.ord, 0)
while true: while true:
sleep(50) sleep(50)