|
@@ -34,14 +34,132 @@ Type TMiniAudioSoloudAudioDriver Extends TSoloudAudioDriver
|
|
|
End Method
|
|
|
End Type
|
|
|
|
|
|
-Type TSoloudMiniAudioAudioDriver Extends TSoloudAudioDriver
|
|
|
+?win32
|
|
|
+New TWASAPISoloudAudioDriver
|
|
|
+New TDirectSoundSoloudAudioDriver
|
|
|
+New TWinmMMSoloudAudioDriver
|
|
|
+New TDefaultSoloudAudioDriver
|
|
|
+
|
|
|
+Type TWASAPISoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::WASAPI"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_WASAPI)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TDirectSoundSoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::DirectSound"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_DSOUND)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TWinmMMSoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::WinMM"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_WINMM)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TDefaultSoloudAudioDriver Extends TDirectSoundSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud"
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+?linux
|
|
|
+New TALSASoloudAudioDriver
|
|
|
+New TPulseAudioSoloudAudioDriver
|
|
|
+New TJACKSoloudAudioDriver
|
|
|
+New TDefaultSoloudAudioDriver
|
|
|
+
|
|
|
+Type TALSASoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::ALSA"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_ALSA)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TPulseAudioSoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::PulseAudio"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_PULSEAUDIO)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TJACKSoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::JACK"
|
|
|
+ End Method
|
|
|
+
|
|
|
+ Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_JACK)
|
|
|
+ Return Super.Startup()
|
|
|
+ End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TDefaultSoloudAudioDriver Extends TPulseAudioSoloudAudioDriver
|
|
|
|
|
|
Method Name$()
|
|
|
Return "SoLoud"
|
|
|
End Method
|
|
|
|
|
|
+End Type
|
|
|
+?macos
|
|
|
+New TCoreAudioSoloudAudioDriver
|
|
|
+New TDefaultSoloudAudioDriver
|
|
|
+
|
|
|
+Type TCoreAudioSoloudAudioDriver Extends TMiniAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud::CoreAudio"
|
|
|
+ End Method
|
|
|
+
|
|
|
Method Startup:Int()
|
|
|
+ MiniAudioInit(MA_BACKEND_COREAUDIO)
|
|
|
Return Super.Startup()
|
|
|
End Method
|
|
|
+
|
|
|
+End Type
|
|
|
+
|
|
|
+Type TDefaultSoloudAudioDriver Extends TCoreAudioSoloudAudioDriver
|
|
|
+
|
|
|
+ Method Name$()
|
|
|
+ Return "SoLoud"
|
|
|
+ End Method
|
|
|
|
|
|
End Type
|
|
|
+?
|