X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fwrappers%2Fsdl2%2FSDL2_mixer.pas;h=06d68c3b729aac02d11e1bac5e6ee5858c821c13;hp=0d944b69a13eb5e332ff9a2bd8fda20d735f08c8;hb=1d24275aa4b72cac9efc1e14ba377307f89d7728;hpb=b5698c71200b362d162a9afb6bf467d877dc6b09

diff --git a/src/wrappers/sdl2/SDL2_mixer.pas b/src/wrappers/sdl2/SDL2_mixer.pas
index 0d944b6..06d68c3 100644
--- a/src/wrappers/sdl2/SDL2_mixer.pas
+++ b/src/wrappers/sdl2/SDL2_mixer.pas
@@ -1,250 +1,5 @@
-{$INCLUDE ../shared/a_modes.inc}
-{$SCOPEDENUMS OFF}
 unit SDL2_mixer;
 
-interface
-
-  uses SDL2;
-
-  const
-    MIX_INIT_FLAC        = $00000001;
-    MIX_INIT_MOD         = $00000002;
-    MIX_INIT_MODPLUG     = $00000004;
-    MIX_INIT_MP3         = $00000008;
-    MIX_INIT_OGG         = $00000010;
-    MIX_INIT_FLUIDSYNTH  = $00000020;
-
-    MIX_DEFAULT_FREQUENCY = 22050;
-    MIX_DEFAULT_CHANNELS = 2;
-    MIX_MAX_VOLUME       = 128;
-
-{$IFDEF FPC}
-   {$IF DEFINED(ENDIAN_LITTLE)}
-      MIX_DEFAULT_FORMAT = AUDIO_S16LSB;
-   {$ELSEIF DEFINED(ENDIAN_BIG)}
-      MIX_DEFAULT_FORMAT = AUDIO_S16MSB;
-   {$ELSE}
-      {$FATAL Unable to determine endianness.}
-   {$IFEND}
-{$ENDIF}
-
-  type
-    PMix_Chunk = ^TMix_Chunk;
-    TMix_Chunk = record
-      allocated: Integer;
-      abuf: PUInt8;
-      alen: UInt32;
-      volume: UInt8;
-    end;
-
-    PMix_Music = ^TMix_Music;
-    TMix_Music = record end;
-
-    TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN);
-
-    TMix_MusicType = (MUS_NONE,
-                    MUS_CMD,
-                    MUS_WAV,
-                    MUS_MOD,
-                    MUS_MID,
-                    MUS_OGG,
-                    MUS_MP3,
-                    MUS_MP3_MAD,
-                    MUS_FLAC,
-                    MUS_MODPLUG);
-
-  TMix_Channel_Finished = procedure(channel: Integer); cdecl;
-
-  (** procedures **)
-
-  function Mix_GetMusicType(music: TMix_Music): TMix_MusicType;
-  function Mix_Init(flags: Integer): Integer;
-  function Mix_OpenAudio(frequency: Integer; format: UInt16; channels: Integer; chunksize: Integer): Integer;
-  function Mix_GetError: PAnsiChar;
-  function Mix_QuerySpec(frequency: PInt; format: PUInt16; channels: PInt): Integer;
-  function Mix_GetNumChunkDecoders: Integer;
-  function Mix_GetChunkDecoder(index: Integer): PAnsiChar;
-  function Mix_GetNumMusicDecoders: Integer;
-  function Mix_GetMusicDecoder(index: Integer): PAnsiChar;
-  function Mix_AllocateChannels(numchans: Integer): Integer;
-  procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished);
-  function Mix_LoadMUS(_file: PAnsiChar): PMix_Music;
-  function Mix_LoadMUS_RW(src: PSDL_RWops; freesrc: Integer): PMix_Music;
-  function Mix_LoadWAV(_file: PAnsiChar): PMix_Chunk;
-  function Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: Integer): PMix_Chunk;
-
-  function Mix_PlayChannel(channel: Integer; chunk: PMix_Chunk; loops: Integer): Integer;
-  function Mix_Volume(channel: Integer; volume: Integer): Integer;
-  function Mix_HaltMusic: Integer;
-  function Mix_PlayMusic(music: PMix_Music; loops: Integer): Integer;
-  function Mix_SetPanning(channel: Integer; left: UInt8; right: UInt8): Integer;
-  procedure Mix_FreeChunk(chunk: PMix_Chunk);
-  procedure Mix_FreeMusic(music: PMix_Music);
-
-  function Mix_VolumeMusic(volume: Integer): Integer;
-  function Mix_HaltChannel(channel: Integer): Integer;
-  procedure Mix_CloseAudio;
-  function Mix_PlayingMusic: Integer;
-  function Mix_Paused(channel: Integer): Integer;
-  procedure Mix_Pause(channel: Integer);
-  procedure Mix_Resume(channel: Integer);
-
-  procedure Mix_PauseMusic;
-  function Mix_PausedMusic: Integer;
-  procedure Mix_ResumeMusic;
-
-implementation
-
-  function Mix_GetMusicType(music: TMix_Music): TMix_MusicType;
-  begin
-    result := TMix_MusicType.MUS_NONE
-  end;
-
-  function Mix_Init(flags: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_OpenAudio(frequency: Integer; format: UInt16; channels: Integer; chunksize: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_GetError: PAnsiChar;
-  begin
-    result := ''
-  end;
-
-  function Mix_QuerySpec(frequency: PInt; format: PUInt16; channels: PInt): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_GetNumChunkDecoders: Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_GetChunkDecoder(index: Integer): PAnsiChar;
-  begin
-    result := ''
-  end;
-
-  function Mix_GetNumMusicDecoders: Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_GetMusicDecoder(index: Integer): PAnsiChar;
-  begin
-    result := ''
-  end;
-
-  function Mix_AllocateChannels(numchans: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished);
-  begin
-  end;
-
-  function Mix_LoadMUS(_file: PAnsiChar): PMix_Music;
-  begin
-    result := nil
-  end;
-
-  function Mix_LoadMUS_RW(src: PSDL_RWops; freesrc: Integer): PMix_Music;
-  begin
-    result := nil
-  end;
-
-  function Mix_LoadWAV(_file: PAnsiChar): PMix_Chunk;
-  begin
-    Result := Mix_LoadWAV_RW(SDL_RWFromFile(_file, 'rb'), 1);
-  end;
-
-  function Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: Integer): PMix_Chunk;
-  begin
-    result := nil
-  end;
-
-  function Mix_PlayChannel(channel: Integer; chunk: PMix_Chunk; loops: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_Volume(channel: Integer; volume: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_HaltMusic: Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_PlayMusic(music: PMix_Music; loops: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_SetPanning(channel: Integer; left: UInt8; right: UInt8): Integer;
-  begin
-    result := 0
-  end;
-
-  procedure Mix_FreeChunk(chunk: PMix_Chunk);
-  begin
-  end;
-
-  procedure Mix_FreeMusic(music: PMix_Music);
-  begin
-  end;
-
-  function Mix_VolumeMusic(volume: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_HaltChannel(channel: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  procedure Mix_CloseAudio;
-  begin
-  end;
-
-  function Mix_PlayingMusic: Integer;
-  begin
-    result := 0
-  end;
-
-  function Mix_Paused(channel: Integer): Integer;
-  begin
-    result := 0
-  end;
-
-  procedure Mix_Pause(channel: Integer);
-  begin
-  end;
-
-  procedure Mix_Resume(channel: Integer);
-  begin
-  end;
-
-  procedure Mix_PauseMusic;
-  begin
-  end;
-
-  function Mix_PausedMusic: Integer;
-  begin
-    result := 0
-  end;
-
-  procedure Mix_ResumeMusic;
-  begin
-  end;
+{$INCLUDE sdl2stub_mixer.inc}
 
 end.