beeps 0.3.16 → 0.5.1

data/ext/beeps/gain.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Gain)
 
 #define THIS  to<Beeps::Gain*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Gain, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Gain, self)
 
 
 static

data/ext/beeps/high_pass.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::HighPass)
 
 #define THIS  to<Beeps::HighPass*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::HighPass, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::HighPass, self)
 
 
 static

data/ext/beeps/low_pass.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::LowPass)
 
 #define THIS  to<Beeps::LowPass*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::LowPass, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::LowPass, self)
 
 
 static

data/ext/beeps/mic_in.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::MicIn)
 
 #define THIS  to<Beeps::MicIn*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::MicIn, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::MicIn, self)
 
 
 static

data/ext/beeps/mixer.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Mixer)
 
 #define THIS  to<Beeps::Mixer*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Mixer, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Mixer, self)
 
 
 static
@@ -54,7 +54,7 @@ RUCY_DEF0(each_input)
 
 	Value ret;
 	for (auto& input : *THIS)
-		ret = rb_yield(value(input.get()));
+		ret = yield(value(input.get()));
 	return ret;
 }
 RUCY_END

data/ext/beeps/oscillator.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Oscillator)
 
 #define THIS  to<Beeps::Oscillator*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Oscillator, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Oscillator, self)
 
 
 static
@@ -51,7 +51,7 @@ RUCY_DEF1(set_samples, samples)
 	for (size_t i = 0; i < size; ++i)
 		data.push_back(to<Beeps::Sample>(array[i]));
 
-	THIS->set_samples(&data[0], data.size());
+	THIS->set_samples(data.data(), data.size());
 }
 RUCY_END
 
@@ -66,7 +66,7 @@ RUCY_DEF0(each_sample)
 
 	Value ret;
 	for (size_t i = 0; i < size; ++i)
-		ret = rb_yield(value((float) samples[i]));
+		ret = yield(value((float) samples[i]));
 	return ret;
 }
 RUCY_END

data/ext/beeps/pitch_shift.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::PitchShift)
 
 #define THIS  to<Beeps::PitchShift*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::PitchShift, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::PitchShift, self)
 
 
 static

data/ext/beeps/processor.cpp

@@ -10,7 +10,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Processor)
 
 #define THIS  to<Beeps::Processor*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Processor, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Processor, self)
 
 #define CALL(fun) RUCY_CALL_SUPER(THIS, fun)
 

data/ext/beeps/reverb.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Reverb)
 
 #define THIS  to<Beeps::Reverb*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Reverb, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Reverb, self)
 
 
 static

data/ext/beeps/sequencer.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Sequencer)
 
 #define THIS  to<Beeps::Sequencer*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Sequencer, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Sequencer, self)
 
 
 static
@@ -69,7 +69,7 @@ RUCY_DEF0(each_note)
 	Value ret;
 	for (auto it = THIS->begin(), end = THIS->end(); it != end; ++it)
 	{
-		ret = rb_yield_values(3,
+		ret = yield(
 			value(it->processor.get()),
 			value(it->offset),
 			value(it->duration));

data/ext/beeps/signals.cpp

@@ -8,7 +8,7 @@ RUCY_DEFINE_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Signals)
 
 #define THIS  to<Beeps::Signals*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Signals, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Signals, self)
 
 
 static
@@ -91,13 +91,13 @@ RUCY_DEF1(each, channel_)
 
 		const auto* p = samples + channel;
 		for (uint i = 0; i < nsamples; ++i, p += nchannels)
-			rb_yield(value(*p));
+			yield(value(*p));
 	}
 	else
 	{
 		uint size = nsamples * nchannels;
 		for (uint i = 0; i < size; ++i)
-			rb_yield(value(samples[i]));
+			yield(value(samples[i]));
 	}
 }
 RUCY_END

data/ext/beeps/sound.cpp

@@ -8,7 +8,7 @@ RUCY_DEFINE_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Sound)
 
 #define THIS  to<Beeps::Sound*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Sound, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Sound, self)
 
 
 static
@@ -19,7 +19,7 @@ RUCY_DEF_ALLOC(alloc, klass)
 RUCY_END
 
 static
-RUCY_DEF4(setup, processor, seconds, nchannels, sample_rate)
+RUCY_DEF4(initialize, processor, seconds, nchannels, sample_rate)
 {
 	CHECK;
 
@@ -30,6 +30,14 @@ RUCY_DEF4(setup, processor, seconds, nchannels, sample_rate)
 }
 RUCY_END
 
+static
+RUCY_DEF1(initialize_copy, obj)
+{
+	CHECK;
+	*THIS = to<Beeps::Sound&>(obj).dup();
+}
+RUCY_END
+
 static
 RUCY_DEF0(play)
 {
@@ -40,20 +48,20 @@ RUCY_DEF0(play)
 RUCY_END
 
 static
-RUCY_DEF0(get_sample_rate)
+RUCY_DEF0(get_nchannels)
 {
 	CHECK;
 
-	return value(THIS->sample_rate());
+	return value(THIS->nchannels());
 }
 RUCY_END
 
 static
-RUCY_DEF0(get_nchannels)
+RUCY_DEF0(get_sample_rate)
 {
 	CHECK;
 
-	return value(THIS->nchannels());
+	return value(THIS->sample_rate());
 }
 RUCY_END
 
@@ -131,10 +139,11 @@ Init_beeps_sound ()
 
 	cSound = mBeeps.define_class("Sound");
 	cSound.define_alloc_func(alloc);
-	cSound.define_private_method("setup", setup);
+	cSound.define_private_method("initialize!",     initialize);
+	cSound.define_private_method("initialize_copy", initialize_copy);
 	cSound.define_private_method("play!", play);
-	cSound.define_method("sample_rate", get_sample_rate);
 	cSound.define_method("nchannels",   get_nchannels);
+	cSound.define_method("sample_rate", get_sample_rate);
 	cSound.define_method("seconds",     get_seconds);
 	cSound.define_method("gain=", set_gain);
 	cSound.define_method("gain",  get_gain);

data/ext/beeps/sound_player.cpp

@@ -1,6 +1,7 @@
 #include "beeps/ruby/sound.h"
 
 
+#include "beeps/exception.h"
 #include "defs.h"
 
 
@@ -8,7 +9,7 @@ RUCY_DEFINE_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::SoundPlayer)
 
 #define THIS  to<Beeps::SoundPlayer*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::SoundPlayer, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::SoundPlayer, self)
 
 
 static
@@ -18,6 +19,13 @@ RUCY_DEF_ALLOC(alloc, klass)
 }
 RUCY_END
 
+static
+RUCY_DEF1(initialize_copy, obj)
+{
+	Beeps::beeps_error(__FILE__, __LINE__, "can not duplicate SoundPlayer");
+}
+RUCY_END
+
 static
 RUCY_DEF0(play)
 {
@@ -179,6 +187,7 @@ Init_beeps_sound_player ()
 
 	cSoundPlayer = mBeeps.define_class("SoundPlayer");
 	cSoundPlayer.define_alloc_func(alloc);
+	cSoundPlayer.define_private_method("initialize_copy", initialize_copy);
 	cSoundPlayer.define_method("play",   play);
 	cSoundPlayer.define_method("pause",  pause);
 	cSoundPlayer.define_method("rewind", rewind);
@@ -196,10 +205,10 @@ Init_beeps_sound_player ()
 	cSoundPlayer.define_method("loop",  get_loop);
 	cSoundPlayer.define_singleton_method("stop_all", stop_all);
 
-	cSoundPlayer.define_const("STATE_UNKNOWN", Beeps::SoundPlayer::STATE_UNKNOWN);
-	cSoundPlayer.define_const("PLAYING",       Beeps::SoundPlayer::PLAYING);
-	cSoundPlayer.define_const("PAUSED",        Beeps::SoundPlayer::PAUSED);
-	cSoundPlayer.define_const("STOPPED",       Beeps::SoundPlayer::STOPPED);
+	cSoundPlayer.define_const("STATE_NONE", Beeps::SoundPlayer::STATE_NONE);
+	cSoundPlayer.define_const("PLAYING",    Beeps::SoundPlayer::PLAYING);
+	cSoundPlayer.define_const("PAUSED",     Beeps::SoundPlayer::PAUSED);
+	cSoundPlayer.define_const("STOPPED",    Beeps::SoundPlayer::STOPPED);
 }
 
 

data/ext/beeps/text_in.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::TextIn)
 
 #define THIS  to<Beeps::TextIn*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::TextIn, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::TextIn, self)
 
 
 static

data/ext/beeps/time_stretch.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::TimeStretch)
 
 #define THIS  to<Beeps::TimeStretch*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::TimeStretch, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::TimeStretch, self)
 
 
 static

data/ext/beeps/value.cpp

@@ -9,7 +9,7 @@ RUCY_DEFINE_WRAPPER_VALUE_FROM_TO(BEEPS_EXPORT, Beeps::Value)
 
 #define THIS  to<Beeps::Value*>(self)
 
-#define CHECK RUCY_CHECK_OBJ(Beeps::Value, self)
+#define CHECK RUCY_CHECK_PTR(Beeps::Value, self)
 
 
 static
@@ -73,7 +73,7 @@ RUCY_DEF0(each_value)
 
 	Value ret;
 	for (auto it = THIS->begin(), end = THIS->end(); it != end; ++it)
-		ret = rb_yield_values(2, value(it->value), value(it->time));
+		ret = yield(value(it->value), value(it->time));
 	return ret;
 }
 RUCY_END

data/include/beeps/defs.h

@@ -19,14 +19,24 @@ namespace Beeps
 {
 
 
-	using namespace Xot::Types;
+	namespace Types
+	{
 
-	using Xot::String;
 
-	using Xot::StringList;
+		typedef double Sample;
+
+
+	}// Types
+
 
+	using namespace Xot  ::Types;
 
-	typedef double Sample;
+	using namespace Beeps::Types;
+
+
+	using Xot::String;
+
+	using Xot::StringList;
 
 
 }// Beeps

data/include/beeps/signals.h

@@ -37,10 +37,10 @@ namespace Beeps
 
 			uint append (const Signals& source, uint source_offset = 0);
 
-			double sample_rate () const;
-
 			uint nchannels () const;
 
+			double sample_rate () const;
+
 			uint nsamples () const;
 
 			uint capacity () const;

data/include/beeps/sound.h

@@ -23,7 +23,7 @@ namespace Beeps
 			enum State
 			{
 
-				STATE_UNKNOWN = 0,
+				STATE_NONE = 0,
 
 				PLAYING,
 
@@ -91,12 +91,14 @@ namespace Beeps
 
 			~Sound ();
 
-			SoundPlayer play ();
+			Sound dup () const;
 
-			double sample_rate () const;
+			SoundPlayer play ();
 
 			uint nchannels () const;
 
+			double sample_rate () const;
+
 			float seconds () const;
 
 			void set_gain (float gain);
@@ -117,6 +119,10 @@ namespace Beeps
 
 			Xot::PSharedImpl<Data> self;
 
+		private:
+
+			Sound (Data* data);
+
 	};// Sound
 
 

data/lib/beeps/beeps.rb

@@ -38,10 +38,10 @@ module Beeps
 
     private
 
-      def beep_sound(time)
-        @beep_processor ||= Oscillator.new(:square)
-        Sound.new @beep_processor, time
-      end
+    def beep_sound(time)
+      @beep_processor ||= Oscillator.new(:square)
+      Sound.new @beep_processor, time
+    end
 
     self
 

data/lib/beeps/extension.rb

@@ -6,7 +6,7 @@ module Beeps
     module_function
 
     def name(downcase = false)
-      super().split('::')[-2].then {|s|
+      super().split('::')[..-2].join.then {|s|
         downcase ? s.gsub(/([a-z])([A-Z])/) {"#{$1}-#{$2}"}.downcase : s
       }
     end

data/lib/beeps/sound.rb

@@ -15,7 +15,7 @@ module Beeps
     def initialize(
       processor, seconds = 0, nchannels: 1, sample_rate: 0, **options, &block)
 
-      setup processor, seconds, nchannels, sample_rate
+      initialize! processor, seconds, nchannels, sample_rate
       set(**options) unless options.empty?
       Xot::BlockUtil.instance_eval_or_block_call self, &block if block
     end
@@ -37,7 +37,7 @@ module Beeps
     include Xot::Setter
 
     const_symbol_reader :state, **{
-      unknown: STATE_UNKNOWN,
+      none:    STATE_NONE,
       playing: PLAYING,
       paused:  PAUSED,
       stopped: STOPPED

data/src/file_in.cpp

@@ -37,6 +37,8 @@ namespace Beeps
 	void
 	FileIn::set_path (const char* path)
 	{
+		if (!path)
+			argument_error(__FILE__, __LINE__, "path is NULL");
 		if (*this)
 			invalid_state_error(__FILE__, __LINE__, "path is already set");
 

data/src/mic_in.cpp

@@ -6,6 +6,7 @@
 #include <vector>
 #include <memory>
 #include <algorithm>
+#include <xot/util.h>
 #include "beeps/beeps.h"
 #include "beeps/exception.h"
 #include "openal.h"
@@ -28,7 +29,7 @@ namespace Beeps
 				invalid_state_error(__FILE__, __LINE__);
 
 			alcCaptureStart(self->device);
-			OpenAL_check_error(__FILE__, __LINE__);
+			OpenAL_check_error(self->device, __FILE__, __LINE__);
 
 			self->started = true;
 		}
@@ -41,7 +42,7 @@ namespace Beeps
 				invalid_state_error(__FILE__, __LINE__);
 
 			alcCaptureStop(self->device);
-			OpenAL_check_error(__FILE__, __LINE__);
+			OpenAL_check_error(self->device, __FILE__, __LINE__);
 
 			self->started = false;
 		}
@@ -59,18 +60,18 @@ namespace Beeps
 			ALint nsamples = 0;
 			alcGetIntegerv(
 				self->device, ALC_CAPTURE_SAMPLES, sizeof(nsamples), &nsamples);
-			OpenAL_check_error(__FILE__, __LINE__);
+			OpenAL_check_error(self->device, __FILE__, __LINE__);
 			if (nsamples <= 0) return;
 
 			auto& buffer = self->buffer;
 			if (buffer.size() < (size_t) nsamples) buffer.resize(nsamples);
 
-			alcCaptureSamples(self->device, (ALCvoid*) &buffer[0], nsamples);
-			OpenAL_check_error(__FILE__, __LINE__);
+			alcCaptureSamples(self->device, (ALCvoid*) buffer.data(), nsamples);
+			OpenAL_check_error(self->device, __FILE__, __LINE__);
 
 			auto& samples = self->samples;
 			samples.reserve(samples.size() + nsamples);
-			samples.insert(samples.end(), &buffer[0], &buffer[0] + nsamples);
+			samples.insert(samples.end(), buffer.data(), buffer.data() + nsamples);
 
 			if (samples.size() > samples_size_max())
 			{
@@ -114,7 +115,7 @@ namespace Beeps
 
 		bool is_valid () const
 		{
-			return self->sample_rate > 0 && self->nchannels > 0 && self->device;
+			return self->nchannels > 0 && self->sample_rate > 0 && self->device;
 		}
 
 		struct Data
@@ -134,12 +135,12 @@ namespace Beeps
 
 			~Data ()
 			{
-				clear();
+				Xot::call_and_log_errors([&]() {clear();});
 			}
 
 			void create ()
 			{
-				assert(sample_rate > 0 && nchannels > 0);
+				assert(nchannels > 0 && sample_rate > 0);
 
 				if (device) return;
 

data/src/openal.cpp

@@ -2,6 +2,7 @@
 
 
 #include <assert.h>
+#include <algorithm>
 #include "beeps/exception.h"
 #include "beeps/debug.h"
 #include "sound.h"
@@ -14,9 +15,11 @@ namespace Beeps
 	namespace global
 	{
 
-		static ALCdevice* device   = NULL;
+		static ALCdevice* device        = NULL;
 
-		static ALCcontext* context = NULL;
+		static ALCcontext* context      = NULL;
+
+		static uint max_playing_sources = 0;
 
 	}// global
 
@@ -39,6 +42,21 @@ namespace Beeps
 		}
 	}
 
+	static uint
+	get_max_playing_sources ()
+	{
+#if defined(OSX) || defined(IOS)
+		typedef ALint (*GetMaxBusses) ();
+
+		auto get_max_busses =
+			(GetMaxBusses) alcGetProcAddress(NULL, "alcMacOSXGetMixerMaxiumumBusses");
+		if (get_max_busses)
+			return (uint) std::max(get_max_busses(), 0);
+#endif
+
+		return 0;
+	}
+
 	void
 	OpenAL_init ()
 	{
@@ -56,6 +74,7 @@ namespace Beeps
 		if (!alcMakeContextCurrent(global::context))
 			goto FAILED;
 
+		global::max_playing_sources = get_max_playing_sources();
 		return;
 
 	FAILED:
@@ -78,22 +97,43 @@ namespace Beeps
 		return global::context;
 	}
 
-	ALCenum
+	uint
+	OpenAL_get_max_playing_sources ()
+	{
+		return global::max_playing_sources;
+	}
+
+	ALenum
 	OpenAL_get_error ()
 	{
-		assert(global::device);
+		assert(global::context);
 
-		return alcGetError(global::device);
+		return alGetError();
 	}
 
 	bool
 	OpenAL_no_error ()
 	{
-		return OpenAL_get_error() == ALC_NO_ERROR;
+		return OpenAL_get_error() == AL_NO_ERROR;
 	}
 
 	static String
 	get_error_name (ALenum error)
+	{
+		switch (error)
+		{
+			case AL_NO_ERROR:          return "AL_NO_ERROR";
+			case AL_INVALID_NAME:      return "AL_INVALID_NAME";
+			case AL_INVALID_ENUM:      return "AL_INVALID_ENUM";
+			case AL_INVALID_VALUE:     return "AL_INVALID_VALUE";
+			case AL_INVALID_OPERATION: return "AL_INVALID_OPERATION";
+			case AL_OUT_OF_MEMORY:     return "AL_OUT_OF_MEMORY";
+			default:                   return "UNKNOWN ERROR";
+		}
+	}
+
+	static String
+	get_device_error_name (ALCenum error)
 	{
 		switch (error)
 		{
@@ -110,9 +150,27 @@ namespace Beeps
 	void
 	OpenAL_check_error (const char* file, int line)
 	{
-		ALCenum e = OpenAL_get_error();
+		ALenum e = OpenAL_get_error();
+		if (e != AL_NO_ERROR)
+		{
+			openal_error(
+				file, line, "OpenAL error %s (0x%x)",
+				get_error_name(e).c_str(), (uint) e);
+		}
+	}
+
+	void
+	OpenAL_check_error (ALCdevice* device, const char* file, int line)
+	{
+		assert(device);
+
+		ALCenum e = alcGetError(device);
 		if (e != ALC_NO_ERROR)
-			openal_error(file, line, "OpenAL error %s", get_error_name(e).c_str());
+		{
+			openal_error(
+				file, line, "OpenAL error %s (0x%x)",
+				get_device_error_name(e).c_str(), (uint) e);
+		}
 	}
 
 

data/src/openal.h

@@ -25,12 +25,16 @@ namespace Beeps
 
 	void* OpenAL_get_context ();
 
-	ALCenum OpenAL_get_error();
+	uint OpenAL_get_max_playing_sources ();
+
+	ALenum OpenAL_get_error();
 
 	bool OpenAL_no_error();
 
 	void OpenAL_check_error(const char* file, int line);
 
+	void OpenAL_check_error(ALCdevice* device, const char* file, int line);
+
 
 }// Beeps
 

data/src/oscillator.cpp

@@ -289,7 +289,7 @@ namespace Beeps
 		for (size_t i = 0; i < size; ++i)
 			samples[i] = fun(i / (float) size);
 
-		return new WaveformOsc(&samples[0], samples.size());
+		return new WaveformOsc(samples.data(), samples.size());
 	}
 
 	static void