X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Flib%2Ffluidsynth%2Ffluidsynth.pas;h=de042062d862fd800ab108374457738931a52d9d;hb=0ff388bd10878013beb4a2370f4aee6852eaf03e;hp=84b95861025936ed4ed4c5a89b137e74e3ace87f;hpb=01f7c9f6fb35b2b193cb967c2d881ab9fc5b6bcc;p=d2df-sdl.git

diff --git a/src/lib/fluidsynth/fluidsynth.pas b/src/lib/fluidsynth/fluidsynth.pas
index 84b9586..de04206 100644
--- a/src/lib/fluidsynth/fluidsynth.pas
+++ b/src/lib/fluidsynth/fluidsynth.pas
@@ -11,28 +11,24 @@ uses
 {$PACKRECORDS C}
 {$ENDIF}
 
-{$IF 0}
-  {$IFNDEF LIBFLUIDSYNTH_WINDOZE_STATIC}
+{$IF DEFINED(WINDOWS)}
+  {$IFDEF FLUIDSYNTH_WINDOZE_STATIC}
+    {$LINKLIB libfluidsynth.a}
+  {$ELSE}
     {$DEFINE FS_DYNAMIC}
+    const fluidlib = 'libfluidsynth.dll';
   {$ENDIF}
-{$ENDIF}
-
-{$IF DEFINED(FS_DYNAMIC)}
-const
-{$IF DEFINED(WINDOWS)}
-  fluidlib = 'libfluidsynth.dll';
 {$ELSEIF DEFINED(UNIX)}
-  fluidlib = 'libfluidsynth.so';
-{$ELSE}
-  {$MESSAGE ERROR 'FLUIDSYNTH_DYNAMIC not supported'}
-{$IFEND}
+  {$DEFINE FS_DYNAMIC}
+  const fluidlib = 'libfluidsynth.so';
 {$ELSE}
-  {$LINKLIB libfluidsynth.a}
+  {$ERROR fluidsynth not supported on this platform. Fix it!}
 {$ENDIF}
 
 const
   FLUID_OK = 0;
   FLUID_FAILED = -1;
+  FLUID_PLAYER_DONE = 2;
 
 type
   pfluid_settings_t = pointer;
@@ -58,6 +54,7 @@ function new_fluid_synth(settings: pfluid_settings_t): pfluid_synth_t; cdecl; ex
 function delete_fluid_synth(synth: pfluid_synth_t): cint; cdecl; external {$IFDEF FS_DYNAMIC}fluidlib{$ENDIF};
 function fluid_synth_get_settings(synth: pfluid_synth_t): pfluid_settings_t; cdecl; external {$IFDEF FS_DYNAMIC}fluidlib{$ENDIF};
 function fluid_synth_sfload(synth: pfluid_synth_t; fname: pchar; reset: cint): cint; cdecl; external {$IFDEF FS_DYNAMIC}fluidlib{$ENDIF};
+function fluid_synth_system_reset(synth: pfluid_synth_t): cint; cdecl; external {$IFDEF FS_DYNAMIC}fluidlib{$ENDIF};
 
 function fluid_synth_write_s16(synth: pfluid_synth_t; len: cint; lout: pointer; loff, linc: cint; rout: pointer; roff, rinc: cint): cint; cdecl; external {$IFDEF FS_DYNAMIC}fluidlib{$ENDIF};