index 6a8c34f3fff4ee44b2a005c00c3862fd9d1d95e3..37a610e34470947b4a410125a1f62c10beaf16e1 100644 (file)
{$ENDIF}
{$ELSEIF DEFINED(UNIX)}
{$DEFINE FS_DYNAMIC}
+ {$LINKLIB libfluidsynth}
const fluidlib = 'libfluidsynth.so';
{$ELSE}
{$ERROR fluidsynth not supported on this platform. Fix it!}
const
FLUID_OK = 0;
FLUID_FAILED = -1;
+ FLUID_PLAYER_DONE = 2;
type
pfluid_settings_t = pointer;
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};