fiddle_fluidsynth 0.0.1

data/lib/fiddle_fluidsynth/util/interface/soundfont.rb

@@ -0,0 +1,115 @@
+#
+# filename: util/interface/soundfont.rb
+#
+require 'fiddle'
+require 'fiddle/import'
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  module Interface
+    module SoundFont; end
+  end
+
+end
+
+
+# SoundFont getters/setters.
+#
+#
+module FiddleFluidSynth::Interface
+  module SoundFont
+
+    FFS = FiddleFluidSynth
+
+    ### from soundfonts/loader.rb
+
+    #
+    def data( _self: self.itself )
+      FFS.sfont_get_data(_self)
+    end
+    def set_data( data, _self: self.itself )
+      FFS.sfont_set_data(_self, data: data)
+    end
+
+    def id( _self: self.itself )
+      FFS.sfont_get_id(_self)
+    end
+    alias sfid id
+
+    def name( _self: self.itself )
+      FFS.sfont_get_name(_self)
+    end
+
+    #
+    # ==== Args
+    # bknum:: bank number.
+    # prenum:: preset number.
+    # ==== Returns
+    # nil or Preset instance.
+    def preset( bknum: , prenum: , _self: self.itself )
+      FFS.sfont_get_preset(_self, bknum: bknum, prenum: prenum)
+    end
+
+    #
+    def preset_iter_reset( _self: self.itself )
+      FFS.sfont_iteration_start(_self)
+    end
+
+    def each_preset( _self: self.itself, debug_f: false, &blk )
+      #
+      # self.preset_iter_reset()
+      self.preset_iter_reset(_self: _self)
+      preset = nil
+      cnt    = 0
+      $stderr.puts "{#{__method__}} cnt: #{cnt}," +
+        " preset: #{preset.inspect}"  if debug_f
+
+
+      # until (preset = FFS.sfont_iteration_next(_self))&.null?
+      # while (preset = FFS.sfont_iteration_next(_self))  # ok.
+      #
+      #ng. while (preset = FFS.sfont_iteration_next(_self),
+      #        #(preset && !preset.null?))
+      #        (preset))
+      #ng. while ((preset = FFS.sfont_iteration_next(_self)),
+      #        (preset && !preset.null?))
+      #ng. while (preset = FFS.sfont_iteration_next(_self)),
+      #    (preset && !preset.null?)
+
+      while [preset = FFS.sfont_iteration_next(_self),
+          (preset && !preset.null?)].last
+
+        $stderr.puts "{#{__method__}} cnt: #{cnt}," +
+          " preset: #{preset.inspect}:#{preset.class}," +
+          " null?: #{preset.null?}" if debug_f
+
+        blk.(preset)
+        cnt += 1
+      end
+      $stderr.puts "{#{__method__}} LAST: cnt: #{cnt}," +
+        " preset: #{preset.inspect}:#{preset.class}" if debug_f
+
+      cnt
+    end
+    alias preset_iter each_preset
+
+    def presets( _self: self.itself, debug_f: false )
+      ret = []
+
+      self.each_preset(debug_f: debug_f){|pres| ret << pres }
+      $stderr.puts "{#{__method__}} ret (#{ret.size}):" +
+        " #{ret.first.name} - #{ret.last.name}" if debug_f
+      ret
+    end
+    alias all_presets presets
+
+  end
+end
+
+
+#### endof filename: util/interface/soundfont.rb

data/lib/fiddle_fluidsynth/util/interface/soundfont_preset.rb

@@ -0,0 +1,69 @@
+#
+# filename: util/interface/soundfont_preset.rb
+#
+require 'fiddle'
+require 'fiddle/import'
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  module Interface
+    module SoundFont
+      module Preset; end
+    end
+  end
+
+end
+
+
+# SoundFont getters/setters.
+#
+#
+module FiddleFluidSynth::Interface
+  module SoundFont::Preset
+
+    FFS = FiddleFluidSynth
+
+    ### from soundfonts/loader.rb
+
+    #
+    def banknum( _self: self.itself )
+      FFS.preset_get_banknum(_self)
+    end
+    alias bknum banknum
+
+    #
+    def data( _self: self.itself )
+      FFS.preset_get_data(_self, data: data)
+    end
+
+    def set_data( data, _self: self.itself )
+      FFS.preset_set_data(_self, data: data)
+    end
+
+    #
+    def num( _self: self.itself )
+      FFS.preset_get_num(_self)
+    end
+    alias prenum num
+
+    #
+    def name( _self: self.itself )
+      FFS.preset_get_name(_self)
+    end
+
+    #
+    def sfont( _self: self.itself )
+      FFS.preset_get_sfont(_self)
+    end
+    alias soundfont sfont
+
+  end
+end
+
+
+#### endof filename: util/interface/soundfont_preset.rb

data/lib/fiddle_fluidsynth/util/interface/soundfont_sample.rb

@@ -0,0 +1,61 @@
+#
+# filename: util/interface/soundfont_sample.rb
+#
+require 'fiddle'
+require 'fiddle/import'
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  module Interface
+    module SoundFont
+      module Sample; end
+    end
+  end
+
+end
+
+
+# SoundFont getters/setters.
+#
+#
+module FiddleFluidSynth::Interface
+  module SoundFont::Sample
+
+    FFS = FiddleFluidSynth
+
+    ### from soundfonts/loader.rb
+
+    #
+    def set_loop( loop_start: , loop_end: , _self: self.itself )
+      FFS.sample_set_loop(_self, loop_start, loop_end)
+    end
+    def set_name( name, _self: self.itself )
+      FFS.sample_set_name(_self, name: name)
+    end
+
+    def set_pitch( root_key: , fine_tune: , _self: self.itself )
+      FFS.sample_set_pitch(_self, root_key: root_key, fine_tune: fine_tune)
+    end
+
+    def set_sound_data( data: , data24: ,
+                        nbframes: , sample_rate: , copy_data: ,
+                        _self: self.itself )
+      FFS.sample_set_sound_data(
+        _self, data: data, data24: data24,
+        nbframes: nbframes, sample_rate: sample_rate, copy_data: copy_data)
+    end
+
+    def sizeof( _self: self.itself )
+      FFS.sample_sizeof()
+    end
+
+  end
+end
+
+
+#### endof filename: util/interface/soundfont_sample.rb

data/lib/fiddle_fluidsynth/util/interface.rb

@@ -0,0 +1,11 @@
+#
+#
+#
+
+require_relative "./interface/settings"
+require_relative "./interface/soundfont"
+require_relative "./interface/soundfont_preset"
+require_relative "./interface/soundfont_sample"
+
+
+####

data/lib/fiddle_fluidsynth/util/module_hier.rb

@@ -0,0 +1,403 @@
+#
+# filename: fiddle-fluidsynth/util/module_hier.rb
+#
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  class ModuleBase
+    #
+    class AudioOutput < ModuleBase; end
+    class CommandInterface < ModuleBase; end
+    class Logging     < ModuleBase; end
+
+    class Settings    < ModuleBase; end
+    class Synthesizer < ModuleBase; end
+
+    class SoundFont   < ModuleBase; end
+
+  end
+
+  #
+  module SoundFont_IF
+    def id
+    end
+  end
+
+end
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  # should be called from FiddleFluidSynth#initialize()
+  #
+  def init_objects( top = self )
+    #
+    @object = ModuleBase.new(
+               parent: top, fluidsynth_instance: top, value: nil)
+
+  end
+  attr_reader :object
+
+end
+
+
+#
+#
+#
+class FiddleFluidSynth
+
+  #
+  class ModuleBase
+    def initialize( parent: , fluidsynth_instance: , value: , sub_new_f: true )
+      @parent = parent
+      @value  = value
+      @fluidsynth_instance = fluidsynth_instance
+
+      #
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    attr_reader   :parent
+    attr_accessor :value
+    #ng. alias :itself :value  # ng... i dont know why...
+    alias :itself :value
+    #def itself; self.value; end  # ok.
+    # alias :object :value
+    alias :obj    :value
+    attr_reader   :fluidsynth_instance
+
+    def init_sub
+      @settings = Settings.new(
+                    parent: self,
+                    fluidsynth_instance: fluidsynth_instance, value: nil)
+      #@audio_output     = AudioOutput.new(parent: self, fluidsynth_instance: fluidsynth_instance, value: nil)
+      #@commandInterface = CommandInterface.new(parent: self, fluidsynth_instance: fluidsynth_instance, value: nil)
+      #@logging          = Logging.new(parent: self, fluidsynth_instance: fluidsynth_instance, value: nil)
+      @soundfont = SoundFont.new(
+                     parent: self,
+                     fluidsynth_instance: fluidsynth_instance,
+                     value: fluidsynth_instance.sfonts.first)
+    end
+    attr_reader :settings
+
+    #
+    def soundfont( at_sfid = 1 )
+      @soundfont.sfid = at_sfid
+      @soundfont
+    end
+
+  end
+
+end
+
+#
+#
+#
+class FiddleFluidSynth::ModuleBase
+
+  class Settings
+    def initialize( parent: , fluidsynth_instance: , value: , sub_new_f: true )
+      # super
+      super(parent: parent, fluidsynth_instance: fluidsynth_instance,
+            value: fluidsynth_instance.settings, sub_new_f: false)
+
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    def value; self.fluidsynth_instance.settings; end
+    def init_sub
+    end
+  end
+
+end
+
+#
+#
+#
+class FiddleFluidSynth::ModuleBase
+
+  class Synthesizer
+    def initialize( parent: , fluidsynth_instance: , value: , sub_new_f: true )
+      super(parent: parent, fluidsynth_instance: fluidsynth_instance,
+            value: fluidsynth_instance.synth, sub_new_f: false)
+
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    def value; self.fluidsynth_instance.synth; end
+    def init_sub
+    end
+  end
+
+end
+
+
+# SoundFont
+#
+#
+class FiddleFluidSynth::ModuleBase
+  #
+  class SoundFont
+    class Bank < SoundFont; end
+    class Bank::Presets < Bank; end
+  end
+
+  # SoundFont.
+  # this hierachy represents an array of SoundFonts.
+  #
+  class SoundFont
+
+    #
+    #
+    # ==== Args
+    # value:: NOT used.
+    #
+    def initialize( parent: , fluidsynth_instance: , value: nil, sub_new_f: true )
+      #_val = parent.sfonts[@sfid-1]
+      super(parent: parent, fluidsynth_instance: fluidsynth_instance,
+            value: value, sub_new_f: false)
+
+      #
+      unless value.nil?
+        @sfid = fluidsynth_instance.sfont_get_id(value)
+      else
+        @sfid = nil
+      end
+      @map_preset = {
+        sfid: {
+          bknum: {
+            prenum: { },
+          },
+        },
+      }
+
+      #
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    attr_accessor :sfid
+    attr_reader   :map_preset
+
+    # def value( _sfid = self.sfid )
+    def value( debug_f: false )
+      _sfid = self.sfid
+      # ret = self.fluidsynth_instance.sfonts[_sfid-1]
+      # ret = self.fluidsynth_instance.synth_get_sfont_by_id(_sfid)
+      idx = self.fluidsynth_instance.sfid_ary.index(_sfid)
+      ret = self.fluidsynth_instance.sfonts[idx]
+      $stderr.puts "{#{self.class}##{__method__}} _sfid: #{_sfid}," +
+        " 0x#{ret.to_i.to_s(16)}:#{ret.class}" if debug_f
+      ret
+    end
+
+    def count
+      ret = self.fluidsynth_instance.synth_sfcount()
+      ret
+    end
+
+    #
+    #
+    #
+    def init_sub
+      @bank = Bank.new(
+                parent: self, fluidsynth_instance: fluidsynth_instance,
+                value: nil, sub_new_f: true)
+    end
+    def bank( at_bknum = 0)
+      # @bank.bank = at_bknum
+      @bank.bknum = at_bknum
+      @bank
+    end
+
+    #
+    def full_path
+      parent.soundfont_fullpath
+    end
+
+    def load( filename: self.full_path, reset_presets: parent.reset_presets,
+              synth: self.fluidsynth_instance.synth )
+      self.fluidsynth_instance.synth_sfload(
+        filename: filename, reset_presets: reset_presets, synth: synth)
+    end
+
+    #
+    def name( sfont = self.value )
+      # name  = self.fluidsynth_instance.sfont_get_name(sfont).to_s
+      name  = self.fluidsynth_instance.sfont_get_name(sfont)
+      ret   = name
+      ret
+    end
+
+    #
+    #
+    #
+    def preset_iter_reset( _sfont = self.value )
+      self.fluidsynth_instance.sfont_iteration_start(_sfont)
+    end
+
+    #
+    #
+    # ====
+    # &blk:: {|preset| }
+    #
+    # ==== See Also
+    # - fluidsynth_settings_foreach()
+    #
+    def preset_iter( debug_f: false, &blk )
+      sfont = self.value
+      cnt = 0
+      self.preset_iter_reset(sfont)
+      preset = self.fluidsynth_instance.sfont_iteration_next(sfont)
+      cnt += 1
+
+      #ng. while !(preset&.null?)
+      while !(preset.nil? || preset.null?)
+        $stderr.puts "cnt: #{cnt}: #{preset.inspect}" if debug_f
+        blk.call(preset)
+
+        preset = self.fluidsynth_instance.sfont_iteration_next(sfont)
+        cnt += 1
+      end
+
+      cnt
+    end
+    alias each_preset preset_iter
+
+    def scan_presets
+      _sfnm = self.name
+      @map_preset[_sfnm] = {}
+
+      #
+      ret = self.each_preset{|preset|
+        bknum   = self.fluidsynth_instance.preset_get_banknum(preset)
+        prenum  = self.fluidsynth_instance.preset_get_num(preset)
+        prename = self.fluidsynth_instance.preset_get_name(preset)
+
+        @map_preset[_sfnm][bknum] ||= {}
+        @map_preset[_sfnm][bknum][prenum] = prename
+      }
+
+      ret
+    end
+
+  end
+end
+
+
+#
+#
+#
+class FiddleFluidSynth::ModuleBase::SoundFont
+
+  #
+  class Bank
+    def initialize( parent: , fluidsynth_instance: , value: , sub_new_f: true )
+      super(parent: parent, fluidsynth_instance: fluidsynth_instance,
+            value: fluidsynth_instance.synth, sub_new_f: false)
+
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    attr_accessor :bknum
+    def value
+      # TODO: 
+    end
+    def init_sub
+      @presets = Bank::Presets.new(
+        parent: self, fluidsynth_instance: fluidsynth_instance,
+        value: nil, sub_new_f: true)
+    end
+    def presets( prenum = @presets.num )
+      @presets.num = prenum
+      @presets
+    end
+
+  end
+end
+
+
+#
+#
+#
+class FiddleFluidSynth::ModuleBase::SoundFont::Bank
+
+  #
+  class Presets
+    def initialize( parent: , fluidsynth_instance: , value: , sub_new_f: true )
+      super(parent: parent, fluidsynth_instance: fluidsynth_instance,
+            value: fluidsynth_instance.synth, sub_new_f: false)
+
+      #
+      @num = nil
+
+      #
+      if sub_new_f
+        self.init_sub
+      end
+
+    end
+    attr_accessor :num
+
+    def value
+      bknum = self.parent.bknum
+      prenum = self.num
+      sfont  = self.parent.parent.value
+
+      ret = self.fluidsynth_instance.
+              sfont_get_preset(sfont: sfont, bknum: bknum, prenum: prenum)
+      ret
+    end
+    def init_sub
+      # nothing todo.
+    end
+
+    # .
+    def name
+      preset_obj = self.value
+
+      _name = self.fluidsynth_instance.preset_get_name(preset_obj).to_s
+
+      ret = _name
+      ret
+    end
+
+    def bknum
+      preset_obj = self.value
+
+      _bknum  = self.fluidsynth_instance.preset_get_banknum(preset_obj)
+      ret = _bknum
+      ret
+    end
+
+    def pre_num
+      preset_obj = self.value
+
+      _num  = self.fluidsynth_instance.preset_get_num(preset_obj)
+      ret = _num
+      ret
+    end
+
+  end
+end
+
+
+#### endof filename: fiddle-fluidsynth/util/module_hier.rb