simplify TSoundLoader interface

[d2df-sdl.git] / src / engine / e_soundfile.pas

diff --git a/src/engine/e_soundfile.pas b/src/engine/e_soundfile.pas
index 4ba5cd6ac0b40eeaaa6cd2948655a03df2373b89..c508593235bc070b10a2d348efcc7942131e4885 100644 (file)
--- a/src/engine/e_soundfile.pas
+++ b/src/engine/e_soundfile.pas
@@ -33,22 +33,19 @@ type
   protected
     FFormat: TSoundFormat;
     FStreaming: Boolean;
-    FLooping: Boolean;
 
   public
-    function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; virtual; abstract; overload;
-    function Load(FName: string; SStreaming: Boolean): Boolean; virtual; abstract; overload;
+    function Load(Data: Pointer; Len: LongWord; Loop: Boolean): Boolean; virtual; abstract; overload;
+    function Load(FName: string; Loop: Boolean): Boolean; virtual; abstract; overload;
 
-    function SetPosition(Pos: LongWord): Boolean; virtual; abstract;
+    function Finished(): Boolean; virtual; abstract;
+    function Restart(): Boolean; virtual; abstract;
     function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; virtual; abstract;
 
-    function GetAll(var OutPtr: Pointer): LongWord; virtual; abstract;
-
     procedure Free(); virtual; abstract;
 
     property Format: TSoundFormat read FFormat;
     property Streaming: Boolean read FStreaming;
-    property Looping: Boolean read FLooping write FLooping;
   end;
 
   TSoundLoaderFactory = class