/*    Интерфейс для аудио хука. 
ILYA_ZX.
mailto: ilya.zx@gmail.com 
*/

#include "swilib.h"

typedef struct
{
  void * FillProc;
  unsigned short * buffer;
  unsigned short * curpos;
  unsigned short * buffend;
}
_wavplayer;

_wavplayer * WAV_PLAYER;



signed char Volume=4;

//extern void( * SetAmplifierGate ) ( int Amp, int Gate, int SessionID );
/* Частота дискретизации */
int samplerate=16000;

float smpratemul = 1;
/* Внешняя функция генерации аудио сигнала */
//void( * GetSound ) ( unsigned short *, int );
/* Адрес в ОЗУ(из библиотеки функций) */
long /* * AdpcmWaveParams */ * PcmWaveParams;
/* Буффер, создаваемый функцией PlayMelodyInMem */
//signed short * buffer;
/* Номер следующего буффера для заполнения. Один буффер условно делится на два */
unsigned char nextbuff;
/* Буффер, используемый для запуска проигрывания */
//signed short * AudioBuf = 0;
signed short * TempBuf;
/* Буффер для PCM данных */
//signed short * pcmbuff=0;
/* Переменные управления воспроизведением. Для остановки: Playing=0; */
signed char Playing;
/* Время проигрывания в 1/16000 секунды */
signed long PlayingTime;
/* Процедура управления проигрыванием */
void PlayingProc();
/* Таймер :) */
GBSTMR ahtimer;
/* Размер буффера.*/
static const int BUFFERSIZE = 64000;

char Paused = 0;
signed short GetSound();
/* Заголовок wave PCM */
unsigned char WavHdr[44] = {
	0x52, 0x49, 0x46, 0x46, 0x0A, 0x46, 0x03, 0x00, 0x57, 0x41, 0x56, 0x45, 0x66, 0x6D, 0x74, 0x20, 
	0x10, 0x00, 0x00, 0x00, 0x01, 0x00, 0x01, 0x00, 0x40, 0x1F, 0x00, 0x00, 0x40, 0x1F, 0x00, 0x00, 
	0x01, 0x00, 0x08, 0x00, 0x64, 0x61, 0x74, 0x61, 0x5F, 0x45, 0x03, 0x00
};

void GetAacSound(unsigned short *ptr, int nsamples);



char PcmPlayerFill()
{
  
    
  unsigned long i = 0xA0/16;
  //unsigned short * curpos = WAV_PLAYER->curpos;
 unsigned long * rambuf = PcmWaveParams+0x23;

  while ( i>0 )
  {
    * rambuf = GetSound();
    * (rambuf+1) = GetSound();
    * (rambuf+2) = GetSound();
    * (rambuf+3) = GetSound();    
    * (rambuf+4) = GetSound();
    * (rambuf+5) = GetSound();
    * (rambuf+6) = GetSound();
    * (rambuf+7) = GetSound();    
    * (rambuf+8) = GetSound();
    * (rambuf+9) = GetSound();
    * (rambuf+10) = GetSound();    
    * (rambuf+11) = GetSound();
    * (rambuf+12) = GetSound();
    * (rambuf+13) = GetSound();
    * (rambuf+14) = GetSound();
    * (rambuf+15) = GetSound();
    
    rambuf+=16;
    //curpos+=16;
    i--;
  }
  
  /*
  if ( curpos >= WAV_PLAYER->buffend )
  {
    WAV_PLAYER->curpos = WAV_PLAYER->buffer;
    return;
  }
  WAV_PLAYER->curpos = curpos;
  */

}

/* Функция включения и отключения зацикливания буффера, не 0 - зацикливание включено */
void SetHookState( unsigned char hookstate )
{
  if ( hookstate ) PcmWaveParams[32]=(long)WAV_PLAYER; 
  else
    PcmWaveParams[32]=0; 

}

/* Возвращает позицию в буффере */
unsigned long BuffPos()
{
  return (long)(WAV_PLAYER->curpos-WAV_PLAYER->buffer);
  ;
}





int PlayStatus()
{
  return ( PcmWaveParams[0x18] );
};



void AudioInit()
{

  Volume = 2;
  /* Адрес параметров wave из библиотеки функций, другого способа его получить я не нашел */
  //AdpcmWaveParams = ( void * ) 0xA0FD426C;
  // AdpcmWaveParams = ( void * ) AdpcmWaveParams[0];
  //AdpcmWaveParams = AudioParamsAdr();
  PcmWaveParams = ( void * ) 0xA879F7C0;
  // c75v22  0xA874CC04
  //s65v58 0xA879F7C0
  //c72 A86B9954
  WAV_PLAYER = malloc( sizeof( _wavplayer ) );
  //PcmWaveParams[-1]=(long)WAV_PLAYER; 
  /* +44 - на заголовок wave */
  //AudioBuf = malloc(BUFFERSIZE);
  TempBuf=malloc(8192);
  //zeromem( AudioBuf, BUFFERSIZE);
  zeromem( TempBuf, 8192);
 // WAV_PLAYER->buffer=AudioBuf;
 // WAV_PLAYER->curpos=AudioBuf;
  //WAV_PLAYER->buffend=AudioBuf+BUFFERSIZE/2;
  WAV_PLAYER->FillProc = ( void * ) PcmPlayerFill;
  //pcmbuff = malloc( 1014 );
  /* Копируем заголовок wave */
  memcpy( ( char * ) TempBuf, ( void * ) ( WavHdr ), 44 );

}

void AudioStart()
{



#ifdef _profile
  ResetProfile();
#endif 
  
  //WAV_PLAYER->curpos=AudioBuf;
  /* Воспроизведение активно */
  Playing = 1;
  /* 0xFF - для установки громкости и получения адреса буффера */
  nextbuff = 0xFF;
  /* Подготавливаем буффер */
  //if(playsamplerate==samplerate)
  //GetSound(AudioBuf,BUFFERSIZE / 2);
  //else FillBufferres();
  /* Устанавливаем зацикливание */
  SetHookState( 1 );
  //   /*Копируем заголовок wave */
  // memcpy( AudioBuf, ( void * ) ( WavHdr ), 44 );
  /* Устанавливаем частоту дискретизации */
  /* Копируем заголовок wave */
  memcpy( ( char * ) TempBuf, ( void * ) ( WavHdr ), 44 );
  memcpy( ( char * ) TempBuf + 24, & samplerate, 4 );
  //* ( ( char * ) 0xA879DB90 ) = ( 48 - ( Volume * 2 ) ) + 1;
  //  *(( (char *) PcmWaveParams)+0x86)=9;
  /* Запускаем буффер на проигрывание */
  PlayMelodyInMem( 0x11, TempBuf, 0x140 * 16, 0xFFFF, 0, 0 );
  /* Запускаем цикл обслуживания проигрывания */
  GBS_StartTimerProc( & ahtimer, 64, PlayingProc );
 // AdpcmWaveParams[16] = 0;

}

/* Остановка воспроизведения. Фенкция вызывается если Playing=0 */
void AudioStop()
{
  /* Отключаем хук */
  SetHookState( 0 );

  /* Проигрываем короткий звук для остановки проигрывания основного буффера */
  //PlayMelodyInMem( 0x11, AudioBuf, 256 + 44, 0xFFFF, 0, 0 );
}

void FreeMemory()
{
  if(TempBuf)
  {
    mfree(TempBuf);
    TempBuf=0;
  }
  
  if(WAV_PLAYER)
  { 
    mfree(WAV_PLAYER);  
    WAV_PLAYER=0;
}
}

void AudioTerminate()
{
  Playing = 0;
  AudioStop();
  FreeMemory();
  //GBS_StartTimerProc( & ahtimer, 16, FreeMemory );
  
  //if(pcmbuff!=0){
  //mfree( pcmbuff );
  // pcmbuff=0;
  //}
}


void SetVolume(char Vol)
{
if(Vol>4)return;
if(Vol<0)return;
Volume=Vol;
ChangeVolume(Volume);
}
               
void PlayingProc()
{
  
  
  ChangeVolume(Volume);
  
  
}