From 02e4e3cd507c31a6c8b0f844146a821169a7a1be Mon Sep 17 00:00:00 2001
From: onyx-and-iris <code@onyxandiris.online>
Date: Fri, 7 Jul 2023 02:30:49 +0100
Subject: [PATCH] base class that all Remote clases will subclass

provides a wrapper around the C-API bindings
---
 lib/voicemeeter/base.rb | 161 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 161 insertions(+)
 create mode 100644 lib/voicemeeter/base.rb

diff --git a/lib/voicemeeter/base.rb b/lib/voicemeeter/base.rb
new file mode 100644
index 0000000..5655341
--- /dev/null
+++ b/lib/voicemeeter/base.rb
@@ -0,0 +1,161 @@
+require_relative "install"
+require_relative "cbindings"
+require_relative "kinds"
+require_relative "midi"
+
+module Voicemeeter
+  class Base
+    attr_reader :kind, :midi
+
+    def initialize(kind, **kwargs)
+      @kind = kind
+      @sync = kwargs[:sync] || false
+      @midi = Midi.new
+    end
+
+    def login
+      self.runvm if CBindings.call(:bind_login, ok: [0, 1]) == 1
+      clear_dirty
+    end
+
+    def logout
+      clear_dirty
+      sleep(0.1)
+      CBindings.call(:bind_logout)
+    end
+
+    def pdirty?
+      CBindings.call(:bind_pdirty, ok: [0, 1]) == 1
+    end
+
+    def mdirty?
+      CBindings.call(:bind_mdirty, ok: [0, 1]) == 1
+    end
+
+    private
+
+    def clear_dirty
+      while pdirty? || mdirty?
+      end
+    end
+
+    def runvm
+      kinds = {
+        basic: Kinds::KindEnum::BASIC,
+        banana: Kinds::KindEnum::BANANA,
+        potato: Kinds::KindEnum::POTATO
+      }
+      kinds[:potato] = 6 if Install::OS_BITS == 64
+      CBindings.call(:bind_runvm, kinds[@kind.name])
+      sleep(1)
+    end
+
+    public
+
+    def type
+      ckind = FFI::MemoryPointer.new(:long, 1)
+      CBindings.call(:bind_type, ckind)
+      kinds = {
+        Kinds::KindEnum::BASIC => :basic,
+        Kinds::KindEnum::BANANA => :banana,
+        Kinds::KindEnum::POTATO => :potato
+      }
+      kinds[ckind.read_long]
+    end
+
+    def version
+      cver = FFI::MemoryPointer.new(:long, 1)
+      CBindings.call(:bind_version, cver)
+      [
+        (cver.read_long & 0xFF000000) >> 24,
+        (cver.read_long & 0x00FF0000) >> 16,
+        (cver.read_long & 0x0000FF00) >> 8,
+        cver.read_long & 0x000000FF
+      ].join(".")
+    end
+
+    def get(name, is_string = false)
+      clear_dirty if @sync
+      if is_string
+        c_get = FFI::MemoryPointer.new(:string, 512, true)
+        CBindings.call(:bind_get_parameter_string, name, c_get)
+        c_get.read_string
+      else
+        c_get = FFI::MemoryPointer.new(:float, 1)
+        CBindings.call(:bind_get_parameter_float, name, c_get)
+        c_get.read_float.round(1)
+      end
+    end
+
+    def set(name, value)
+      if value.is_a? String
+        CBindings.call(:bind_set_parameter_string, name, value)
+      else
+        CBindings.call(:bind_set_parameter_float, name, value.to_f)
+      end
+    end
+
+    def get_buttonstatus(id, mode)
+      clear_dirty if @sync
+      c_get = FFI::MemoryPointer.new(:float, 1)
+      CBindings.call(:bind_get_buttonstatus, id, c_get, mode)
+      c_get.read_float.to_i
+    end
+
+    def set_buttonstatus(id, state, mode)
+      CBindings.call(:bind_set_buttonstatus, id, state, mode)
+    end
+
+    def get_level(type_, index)
+      cget = FFI::MemoryPointer.new(:float, 1)
+      CBindings.call(:bind_get_level, type_, index, cget)
+      cget.read_float
+    end
+
+    def get_num_devices(dir)
+      unless %i[in out].include? dir
+        raise VMError.new("dir got: #{dir}, expected in or out")
+      end
+      if dir == :in
+        CBindings.call(:bind_get_num_indevices, exp: ->(x) { x >= 0 })
+      else
+        CBindings.call(:bind_get_num_outdevices, exp: ->(x) { x >= 0 })
+      end
+    end
+
+    def get_device_description(index, dir)
+      unless %i[in out].include > dir
+        raise VMError.new("dir got: #{dir}, expected in or out")
+      end
+      ctype = FFI::MemoryPointer.new(:long, 1)
+      cname = FFI::MemoryPointer.new(:string, 256, true)
+      chwid = FFI::MemoryPointer.new(:string, 256, true)
+      if dir == :in
+        CBindings.call(:bind_get_desc_indevices, index, ctype, cname, chwid)
+      else
+        CBindings.call(:bind_get_desc_outdevices, index, ctype, cname, chwid)
+      end
+      [cname.read_string, ctype.read_long, chwid.read_string]
+    end
+
+    def get_midi_message
+      cmsg = FFI::MemoryPointer.new(:string, 1024, true)
+      res =
+        CBindings.call(
+          :bind_get_midi_message,
+          cmsg,
+          1024,
+          exp: ->(x) { x >= 0 }
+        )
+      if (got_midi = res > 0)
+        vals = cmsg.read_string_bytes
+        vals.each_slice(3) do |ch, key, velocity|
+          @midi.channel = ch if @midi.channel.nil? || @midi.channel != ch
+          @midi.current = key.to_i
+          @midi.set(key.to_i, velocity.to_i)
+        end
+      end
+      got_midi
+    end
+  end
+end