X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_soundfile_wav.pas;h=fe9a8a26f9c10ded420e82f183cee4c6167f3c77;hb=1408b629ba53aad8cf198b197db1293f6f293c79;hp=b88dd5a8dfc784f70bd4e0255a5e31e8af7b5604;hpb=b6261de6b40b4b79207cc01889b94e3237e1bba6;p=d2df-sdl.git

diff --git a/src/engine/e_soundfile_wav.pas b/src/engine/e_soundfile_wav.pas
index b88dd5a..fe9a8a2 100644
--- a/src/engine/e_soundfile_wav.pas
+++ b/src/engine/e_soundfile_wav.pas
@@ -2,8 +2,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -22,20 +21,40 @@ uses e_soundfile;
 
 type
   // a WAV loader that just uses SDL_LoadWAV
+
   TWAVLoader = class (TSoundLoader)
   public
-    function CanLoad(Data: Pointer; Len: Integer): Boolean; override; overload;
-    function CanLoad(FName: string): Boolean; override; overload;
-    function Load(Data: Pointer; Len: Integer; var OutLen: Integer; var OutFmt: TSoundFormat): Pointer; override; overload;
-    function Load(FName: string; var OutLen: Integer; var OutFmt: TSoundFormat): Pointer; override; overload;
-    procedure Free(Data: Pointer); override;
+    function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; override; overload;
+    function Load(FName: string; SStreaming: Boolean): Boolean; override; overload;
+    function SetPosition(Pos: LongWord): Boolean; override;
+    function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; override;
+    function GetAll(var OutPtr: Pointer): LongWord; override;
+    procedure Free(); override;
+  private
+    FData: Pointer;
+    FDataLen: LongWord;
+  end;
+
+  TWAVLoaderFactory = class (TSoundLoaderFactory)
+  public
+    function MatchHeader(Data: Pointer; Len: LongWord): Boolean; override;
+    function MatchExtension(FName: string): Boolean; override;
+    function GetLoader(): TSoundLoader; override;
   end;
 
 implementation
 
-uses sdl2, utils, e_log;
+uses
+  {$IFDEF USE_SDL}
+    SDL,
+  {$ELSE}
+    SDL2,
+  {$ENDIF}
+  utils, ctypes, e_log;
+
+(* TWAVLoaderFactory *)
 
-function TWAVLoader.CanLoad(Data: Pointer; Len: Integer): Boolean;
+function TWAVLoaderFactory.MatchHeader(Data: Pointer; Len: LongWord): Boolean;
 var
   P: PByte;
 begin
@@ -48,80 +67,142 @@ begin
   Result := ((P+0)^ = Ord('R')) and ((P+1)^ = Ord('I')) and ((P+2)^ = Ord('F')) and ((P+3)^ = Ord('F'));
 end;
 
-function TWAVLoader.CanLoad(FName: string): Boolean;
+function TWAVLoaderFactory.MatchExtension(FName: string): Boolean;
 begin
-  // TODO: actually check for RIFF header
+  // TODO: ehhh
   Result := GetFilenameExt(FName) = '.wav';
 end;
 
-function TWAVLoader.Load(Data: Pointer; Len: Integer; var OutLen: Integer; var OutFmt: TSoundFormat): Pointer;
-var
-  Spec: TSDL_AudioSpec;
-  RW: PSDL_RWops;
-  TmpLen: UInt32;
-  TmpBuf: PUInt8;
+function TWAVLoaderFactory.GetLoader(): TSoundLoader;
 begin
-  Result := nil;
-
-  RW := SDL_RWFromConstMem(Data, Len);
+  Result := TWAVLoader.Create();
+end;
 
-  if SDL_LoadWAV_RW(RW, 0, @Spec, @TmpBuf, @TmpLen) = nil then
+(* TWAVLoader *)
+function ConvertSound (var buf: PUInt8; var len: UInt32; var format: UInt16; rate: cint; chan: UInt8): Boolean;
+  var cvt: TSDL_AudioCVT; tformat: UInt16;
+begin
+  result := true;
+  case format of
+    AUDIO_U8,     AUDIO_S8    : tformat := AUDIO_U8; (* yes, unsigned *)
+    AUDIO_U16LSB, AUDIO_U16MSB: tformat := AUDIO_S16SYS; (* and yes, signed *)
+    AUDIO_S16LSB, AUDIO_S16MSB: tformat := AUDIO_S16SYS;
+    AUDIO_S32LSB, AUDIO_S32MSB: tformat := AUDIO_S16SYS; (* 32bit not supported in al core *)
+    AUDIO_F32LSB, AUDIO_F32MSB: tformat := AUDIO_S16SYS; (* float not supported in al core *)
+  else result := false (* unsupported format *)
+  end;
+  if (result = true) and (format <> tformat) then
   begin
-    e_LogWriteln('Could not load WAV: ' + SDL_GetError());
+    Result := False;
+    if SDL_BuildAudioCVT(@cvt, format, chan, rate, tformat, chan, rate) <> -1 then
+    begin
+      buf := SDL_realloc(buf, len * cvt.len_mult);
+      cvt.len := len;
+      cvt.buf := buf;
+      result := SDL_ConvertAudio(@cvt) = 0;
+      len := cvt.len_cvt;
+      format := tformat
+    end
   end
-  else
+end;
+
+function LoadWavRW (Loader: TWAVLoader; RW: PSDL_RWops): Boolean;
+  var
+    Spec: TSDL_AudioSpec;
+    Len: UInt32;
+    Buf: PUInt8;
+begin
+  Result := False;
+{$IFDEF USE_SDL2}
+  if SDL_LoadWAV_RW(RW, 0, @Spec, @Buf, @Len) <> nil then
+{$ELSE}
+  if SDL_LoadWAV_RW(RW, 0, @Spec, PUInt8(@Buf), @Len) <> nil then
+{$ENDIF}
   begin
-    OutFmt.Loader := self;
-    OutFmt.SampleRate := Spec.freq;
-    OutFmt.SampleBits := SDL_AUDIO_BITSIZE(Spec.format);
-    OutFmt.Channels := Spec.channels;
-    OutLen := TmpLen;
-    Result := TmpBuf;
-  end;
+    Result := ConvertSound(Buf, Len, Spec.format, Spec.freq, Spec.channels);
+    if Result = True then
+    begin
+      with Loader do
+      begin
+        FFormat.SampleRate := Spec.freq;
+        {$IFDEF USE_SDL2}
+          FFormat.SampleBits := SDL_AUDIO_BITSIZE(Spec.format);
+        {$ELSE}
+          FFormat.SampleBits := Spec.format and $FF;
+        {$ENDIF}
+        FFormat.Channels := Spec.channels;
+        FStreaming := False; // never stream wavs
+        FDataLen := Len;
+        FData := Buf;
+      end
+    end
+    else
+    begin
+      SDL_FreeWav(Buf)
+    end
+  end
+end;
 
+function TWAVLoader.Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean;
+  var
+    RW: PSDL_RWops;
+begin
+  RW := SDL_RWFromConstMem(Data, Len);
+  Result := LoadWavRW(Self, RW);
+  if Result = False then
+    e_LogWriteln('Could not load WAV: ' + SDL_GetError());
   SDL_RWclose(RW);
 end;
 
-function TWAVLoader.Load(FName: string; var OutLen: Integer; var OutFmt: TSoundFormat): Pointer;
-var
-  Spec: TSDL_AudioSpec;
-  RW: PSDL_RWops;
-  TmpLen: UInt32;
-  TmpBuf: PUInt8;
+function TWAVLoader.Load(FName: string; SStreaming: Boolean): Boolean;
+  var
+    RW: PSDL_RWops;
 begin
-  Result := nil;
-
   RW := SDL_RWFromFile(PChar(FName), 'rb');
-
-  if RW = nil then
+  if RW <> nil then
+  begin
+    Result := LoadWavRW(Self, RW);
+    if Result = False then
+      e_LogWritefln('Could not load WAV file `%s`: %s', [FName, SDL_GetError()]);
+  end
+  else
   begin
     e_LogWritefln('Could not open WAV file `%s`: %s', [FName, SDL_GetError()]);
-    exit;
+    Result := False
   end;
+  SDL_RWclose(RW);
+end;
 
-  if SDL_LoadWAV_RW(RW, 0, @Spec, @TmpBuf, @TmpLen) = nil then
+function TWAVLoader.SetPosition(Pos: LongWord): Boolean;
+begin
+  Result := False; // makes no sense when not streaming
+end;
+
+function TWAVLoader.FillBuffer(Buf: Pointer; Len: LongWord): LongWord;
+begin
+  if FDataLen < Len then
+    Len := FDataLen;
+  if FData <> nil then
   begin
-    e_LogWritefln('Could not load WAV file `%s`: %s', [FName, SDL_GetError()]);
-    Result := nil;
+    Move(FData^, Buf^, Len);
+    Result := Len;
   end
   else
-  begin
-    OutFmt.Loader := self;
-    OutFmt.SampleRate := Spec.freq;
-    OutFmt.SampleBits := SDL_AUDIO_BITSIZE(Spec.format);
-    OutFmt.Channels := Spec.channels;
-    OutLen := TmpLen;
-    Result := TmpBuf;
-  end;
+    Result := 0;
+end;
 
-  SDL_RWclose(RW);
+function TWAVLoader.GetAll(var OutPtr: Pointer): LongWord;
+begin
+  OutPtr := FData;
+  Result := FDataLen;
 end;
 
-procedure TWAVLoader.Free(Data: Pointer);
+procedure TWAVLoader.Free();
 begin
-  SDL_FreeWAV(Data); // SDL allocates inside the DLL, so we need this
+  if FData <> nil then
+    SDL_FreeWAV(FData); // SDL allocates inside the DLL, so we need this
 end;
 
 initialization
-  e_AddSoundLoader(TWAVLoader.Create());
+  e_AddSoundLoader(TWAVLoaderFactory.Create());
 end.