(ns hello-world.core
  (:import (com.synthbot.jasiohost
             AsioDriver
             AsioDriverListener
             AsioChannel)))

(defn simple-asio-listener
  "fun must take following args: (systemTime: Long, samplePosition: Long,
        channels: java.util.Set[AsioChannel])"
  [fun]
  (reify AsioDriverListener
    (bufferSwitch [_ systemTime samplePosition channels]
      (fun systemTime samplePosition channels))
    (sampleRateDidChange [_ sr] nil)
    (resetRequest [_] nil)
    (resyncRequest [_] nil)
    (bufferSizeChanged [_ bufferSize] nil)
    (latenciesChanged [_ inputLatency outputLatency] nil)))

(defn -main
  [& args]
  (let [asio-driver (AsioDriver/getDriver
                      (.get (AsioDriver/getDriverNames) 0))
        sample-rate (.getSampleRate asio-driver)
        asio-buffer-size (.getBufferPreferredSize asio-driver)
        buffer (float-array asio-buffer-size)
        active-channels #{
                          (.getChannelOutput asio-driver 0)
                          (.getChannelOutput asio-driver 1)}
        ]
      (pprint active-channels)
    ))