/*
* Descent 3 
* Copyright (C) 2024 Parallax Software
*
* 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.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

/*
 * $Logfile: /DescentIII/Main/dd_sndlib/ddsoundload.cpp $
 * $Revision: 17 $
 * $Date: 3/20/00 12:23p $
 * $Author: Matt $
 *
 *
 *
 * $Log: /DescentIII/Main/dd_sndlib/ddsoundload.cpp $
 *
 * 17    3/20/00 12:23p Matt
 * Merge of Duane's post-1.3 changes.
 * Fixed bug with sounds not being deleted
 *
 * 16    10/23/99 5:12p 3dsmax
 * use GlobalAlloc for win32 instead of mem_malloc for now (restored
 * original code)
 *
 * 15    10/22/99 8:10a Kevin
 * Fixed bug introduced from the mac merge
 *
 * 14    10/21/99 9:27p Jeff
 * B.A. Macintosh code merge
 *
 * 13    4/17/99 1:53a Jeff
 * made platform 'independant' so other low-level sound libs can include
 * without having to double code
 *
 * 12    4/06/99 8:29p Samir
 * added error check system.
 *
 * 11    2/16/99 12:42p Kevin
 * Improvements to the paging data progress indicator
 *
 * 10    2/09/99 7:01p Kevin
 * First work for new and improved progress screen while loading a level.
 * Note that this is a hack at this point, while I get the details worked
 * out, then I'll make it cleaner.
 *
 * 9     1/14/99 6:10p Samir
 * added DirectSound buffer duplication code.
 *
 * 8     10/22/98 8:31p Chris
 * Sounds use GlobalAlloc and GlobalFree
 *
 * 7     10/19/98 11:57a Chris
 * Update the sound system to use the import volume
 *
 * 6     10/12/98 1:27p Jeff
 * all mem_free's do set the value to NULL after they are complete
 *
 * 5     10/12/98 11:30a Kevin
 * More memory stuff
 *
 * 4     10/08/98 1:18a Chris
 * Now it is non-Intel platform friendly.
 *
 * 3     10/08/98 1:09a Chris
 * Speed up the sound paging in. -- Fucks up if byte ordering if different
 * then for the Intel platform.
 *
 * 2     7/24/98 5:23p Samir
 * moved sound variables from soundload to ssl_lib.h (and WAV file stuff)
 *
 * 1     7/20/98 2:54p Samir
 * moved code from sndlib.
 *
 * $NoKeywords: $
 */

// yes this is a low-level library for Windows, but no use duplicating code
// when we can fake the OS-specific functions (GlobalAlloc, etc)
#if defined(WIN32)
#include "windows.h"
#include "winbase.h"
#elif defined(__LINUX__)
#include "linux/linux_fix.h"
#endif

#include "ssl_lib.h"
#include <cstdlib>
#include "cfile.h"
#include "mem.h"
#include "pserror.h"
#include <string.h>
#include "byteswap.h"

sound_info Sounds[MAX_SOUNDS];
sound_file_info SoundFiles[MAX_SOUND_FILES];

#define CLIP_ATTENUATION .5f

#define SOUND_FILE_SAMPLE_ALIGNMENT 4

#define SND_LOAD_ERROR_NO_FILE 0
#define SND_LOAD_ERROR_INVALID 1

extern int paged_in_count;
extern int paged_in_num;
char SoundLoadWaveFile(const char *filename, float percent_volume, int sound_file_index, bool f_high_quality,
                       bool f_load_sample_data, int *e_type) {

  // File pointer to sound file
  CFILE *cfptr;

  char format_type[80];       // ASCII name of format type
  unsigned short fmttag = 0;  // Numerical format type
  unsigned long ckid;         // Current chunk's ID
  unsigned long cksize;       // Current chunk's size in bytes
  unsigned long filesize;     // Size of the sound file
  unsigned long nextseek = 0; // Location of the next seek

  unsigned long aligned_size; // Sound files are aligned to SOUND_FILE_SAMPLE_ALIGNMENT samples

  // Sound format information
  int samples_per_second;
  short bits_per_sample;
  short number_channels;

  // Used to read temporary long values
  unsigned long temp_long;

  // Flags for if we previously read data or a format
  char f_data, f_fmt = 0;

  // Loop counter
  int count;

  // If there is an error assume it would be because of an invalid file
  if (e_type)
    *e_type = SND_LOAD_ERROR_INVALID;

  // Setup the initial sound_file state
  SoundFiles[sound_file_index].sample_8bit = NULL;
  SoundFiles[sound_file_index].sample_16bit = NULL;
  SoundFiles[sound_file_index].sample_length = 0;

  // Open the wave file
  if ((cfptr = cfopen(filename, "rb")) == NULL) {
    if (e_type)
      *e_type = SND_LOAD_ERROR_NO_FILE;

    mprintf((0, "SOUND LOADER: %s not found\n", filename));
    goto error_state;
  }

  if (!f_load_sample_data) {
    cfclose(cfptr);
    return 1;
  }
  // Used for progress bar when loading the level
  paged_in_count += cfilelength(cfptr);
  paged_in_num++;
  // Make sure that it is a RIFF format
  temp_long = (unsigned long)cf_ReadInt(cfptr);
  if (temp_long != 0x46464952) {
    mprintf((0, "SOUND LOADER: %s is not a RIFF format file\n", filename));
    goto error_state;
  }

  // The first item is the filesize minus the RIFF type specifier and filesize (add current location for total filesize)
  filesize = cf_ReadInt(cfptr);
  filesize += cftell(cfptr);

  // Make sure it is a wave file
  temp_long = (unsigned long)cf_ReadInt(cfptr);
  if (temp_long != 0x45564157) {
    mprintf((0, "SOUND LOADER:  %s is not a WAVE file\n", filename));
    goto error_state;
  }
  nextseek = cftell(cfptr);

  // Read in the chunks
  while (nextseek < filesize - 9) // Need room for chunk and its header
  {
    // Move the the beginning of the next chunck
    cfseek(cfptr, nextseek, SEEK_SET);

    // Read in the chunk size and type
    ckid = cf_ReadInt(cfptr);
    cksize = cf_ReadInt(cfptr);
    if (cksize <= 0) {
      mprintf((0, "SOUND LOADER: %s has an invalid block length\n", filename));
      goto error_state;
    }

    // Determine where the next chunk begins
    nextseek = cksize + cftell(cfptr);

    // Determine what to do with the chunk
    switch (ckid) {
    case 0x20746D66: // Format Chunk
      // Make sure that this format was not preceeded by another format without data inbetween them.
      if (f_fmt) {
        mprintf((0, "Sound Loader: Found 2 formats in a row in file %s\n", filename));
        goto error_state;
      }

      // Read in the format type
      fmttag = (unsigned short)cf_ReadShort(cfptr);

      switch (fmttag) {
      // We only support WAVE_FORMAT_PCM currently
      default:
      case 0x0000:
        strcpy(format_type, "WAVE_FORMAT_UNKNOWN");
        break;
      case 0x0001:
        strcpy(format_type, "WAVE_FORMAT_PCM");
        break;
      case 0x0002:
        strcpy(format_type, "WAVE_FORMAT_ADPCM");
        break;
      case 0x0005:
        strcpy(format_type, "WAVE_FORMAT_IBM_CVSD");
        break;
      case 0x0006:
        strcpy(format_type, "WAVE_FORMAT_ALAW");
        break;
      case 0x0007:
        strcpy(format_type, "WAVE_FORMAT_MULAW");
        break;
      case 0x0010:
        strcpy(format_type, "WAVE_FORMAT_OKI_ADPCM");
        break;
      case 0x0011:
        strcpy(format_type, "WAVE_FORMAT_DVI_ADPCM");
        break;
      case 0x0015:
        strcpy(format_type, "WAVE_FORMAT_DIGISTD");
        break;
      case 0x0016:
        strcpy(format_type, "WAVE_FORMAT_DIGIFIX");
        break;
      case 0x0020:
        strcpy(format_type, "WAVE_FORMAT_YAMAHA_ADPCM");
        break;
      case 0x0021:
        strcpy(format_type, "WAVE_FORMAT_SONARC");
        break;
      case 0x0022:
        strcpy(format_type, "WAVE_FORMAT_DSPGROUP_TRUESPEECH");
        break;
      case 0x0023:
        strcpy(format_type, "WAVE_FORMAT_ECHOSC1");
        break;
      case 0x0024:
        strcpy(format_type, "WAVE_FORMAT_AUDIOFILE_AF18");
        break;
      case 0x0101:
        strcpy(format_type, "IBM_FORMAT_MULAW");
        break;
      case 0x0102:
        strcpy(format_type, "IBM_FORMAT_ALAW");
        break;
      case 0x0103:
        strcpy(format_type, "IBM_FORMAT_ADPCM");
        break;
      case 0x0200:
        strcpy(format_type, "WAVE_FORMAT_CREATIVE_ADPCM");
        break;
      }

      // Currently, we only support PCM wave files
      if (fmttag != 0x0001) {
        mprintf((0, "SOUND LOADER: %s is a type %s wavefile, we only support WAVE_FORMAT_PCM waves.\n", filename,
                 format_type));
        goto error_state;
      }

      // Get the number of channels
      number_channels = cf_ReadShort(cfptr);
      if (number_channels != 1) {
        mprintf((0, "SOUND LOADER: Invalid number of channels(%d)in %s, we want mono samples only.\n", number_channels,
                 filename));
        goto error_state;
      }

      // Get the number of samples per second
      samples_per_second = cf_ReadInt(cfptr);
      if (samples_per_second != 22050) {
        mprintf((0, "SOUND LOADER: Invalid sample per second(%d)in %s, we want 22k samples only.\n", samples_per_second,
                 filename));
        goto error_state;
      }

      // get the Average bytes per second (ignore it)
      cf_ReadInt(cfptr);

      // Get the Block Alignment (ignore it)
      cf_ReadShort(cfptr);

      // Get the Bits per sample
      bits_per_sample = cf_ReadShort(cfptr);
      if (bits_per_sample != 8 && bits_per_sample != 16) {
        mprintf((0, "SOUND LOADER: Invalid bits per sample(%d)in %s, we want 8 or 16 bit samples only.\n",
                 bits_per_sample, filename));
        goto error_state;
      }

      // Beginning of some support for other wave file formats
      // if(fmttag!=0x0001)
      // {
      //      fread(&ra,1,2,fp);
      //      printf("  %u Bytes of extra information\n");
      //      printf("  ***I have not seen a file like this before, hope it goes well***\n");
      //      switch(fmttag)
      //      {
      //          case 0x0002:    //MS ADPCM?
      //              fread(&ra,1,2,fp);
      //              printf("  %u Samples Per Block\n",ra);
      //              fread(&ra,1,2,fp);
      //              printf("  %u Coefficients\n",ra);
      //              for(la=0;la<ra;la++)
      //              {
      //                  fread(&rb,1,2,fp);
      //                  fread(&rc,1,2,fp);
      //                  printf("    %u  %u\n",rb,rc);
      //              }
      //              break;
      //          case 0x0011: //WAVE_FORMAT_DVI_ADPCM
      //          case 0x0022: //WAVE_FORMAT_DSPGROUP_TRUESPEECH
      //              fread(&ra,1,2,fp);
      //              printf("  %u Samples Per Block\n",ra);
      //              break;
      //          case 0x0021:  // WAVE_FORMAT_SONARC
      //              fread(&ra,1,2,fp);
      //              printf("  %u CompType\n",ra);
      //              break;
      //          case 0x0200: //WAVE_FORMAT_CREATIVE_ADPCM
      //              fread(&ra,1,2,fp);
      //              printf("  Revision %u\n",ra);
      //              break;
      //      }
      //  }

      // We did find a new format type
      f_fmt = 1;
      f_data = 0;
      break;

    // Data Chunk
    case 0x61746164:
      if (!f_fmt) {
        mprintf((0, "SOUND LOADER: Format Chunk not defined before Data Chunk\n"));
        goto error_state;
      }

      // It is either 8 or 16 bit as validated from above
      if (bits_per_sample == 8) {
        int num_needed = 0;

        // Force sample alignment
        if ((cksize - 1) % SOUND_FILE_SAMPLE_ALIGNMENT) {
          num_needed = SOUND_FILE_SAMPLE_ALIGNMENT - ((cksize - 1) % SOUND_FILE_SAMPLE_ALIGNMENT);
          aligned_size = cksize + num_needed;
        } else {
          aligned_size = cksize;
        }

        SoundFiles[sound_file_index].sample_length = aligned_size;
        SoundFiles[sound_file_index].np_sample_length = cksize;

        SoundFiles[sound_file_index].sample_8bit = (unsigned char *)GlobalAlloc(0, aligned_size);
        GlobalLock(SoundFiles[sound_file_index].sample_8bit);

        cf_ReadBytes((ubyte *)SoundFiles[sound_file_index].sample_8bit, cksize, cfptr);

        if (aligned_size != cksize)
          memset(SoundFiles[sound_file_index].sample_8bit + cksize, 128, num_needed);
      } else {
        int num_needed = 0;

        SoundFiles[sound_file_index].sample_length = cksize / 2;
        SoundFiles[sound_file_index].np_sample_length = cksize / 2;

        if ((SoundFiles[sound_file_index].sample_length - 1) % SOUND_FILE_SAMPLE_ALIGNMENT) {
          num_needed = (SOUND_FILE_SAMPLE_ALIGNMENT -
                        ((SoundFiles[sound_file_index].sample_length - 1) % SOUND_FILE_SAMPLE_ALIGNMENT)) *
                       2;
          SoundFiles[sound_file_index].sample_length = cksize / 2 + num_needed / 2;
        }

        SoundFiles[sound_file_index].sample_16bit = (short *)GlobalAlloc(0, cksize + num_needed);
        GlobalLock(SoundFiles[sound_file_index].sample_16bit);
        cf_ReadBytes((unsigned char *)SoundFiles[sound_file_index].sample_16bit, cksize, cfptr);
        for (count = 0; count < (int)cksize / 2; count++) {
          SoundFiles[sound_file_index].sample_16bit[count] =
              INTEL_SHORT(SoundFiles[sound_file_index].sample_16bit[count]);
        }

        if (num_needed)
          memset(SoundFiles[sound_file_index].sample_16bit + (cksize / 2), 0, num_needed);
      }

      // We found data, clear format flag
      f_data = 1;
      f_fmt = 0; // Multiple waveforms, per file, are allowed
      break;

    // Undefined chunk
    default:
      // mprintf((0, "\nSOUND LOADER: Unknown Chunk in %s, attempting to continue.\n", filename));
      break;
    }
  }

  // Close the file
  cfclose(cfptr);

  if (SoundFiles[sound_file_index].sample_8bit != NULL) {
    mprintf((0, "Sound file %s is 8bit please make a 16bit version", filename));
  }

  // Make sure we got data and format information
  if (SoundFiles[sound_file_index].sample_8bit == NULL && SoundFiles[sound_file_index].sample_16bit == NULL) {
    mprintf((0, "SOUND LOADER: Did not find data and/or format in %s.\n", filename));
    goto error_state;
  } else if (SoundFiles[sound_file_index].sample_8bit != NULL && !f_high_quality) {
    // Doing the volume clipping with the low quality (8 bit) sound requires some tricky math -- see chris
    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_8bit[count] =
          ((((int)SoundFiles[sound_file_index].sample_8bit[count]) - 127) * CLIP_ATTENUATION * percent_volume) + 127;
    }
  } else if (SoundFiles[sound_file_index].sample_16bit != NULL && f_high_quality) {
    // Do the volume clipping with the high quality sound
    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_16bit[count] *= CLIP_ATTENUATION * percent_volume;
    }
  } else if (SoundFiles[sound_file_index].sample_8bit == NULL && !f_high_quality) {

    SoundFiles[sound_file_index].sample_8bit =
        (unsigned char *)GlobalAlloc(0, SoundFiles[sound_file_index].sample_length);
    GlobalLock(SoundFiles[sound_file_index].sample_8bit);

    // Do the volume clipping with the high quality sound
    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_16bit[count] *= CLIP_ATTENUATION * percent_volume;
    }

    // NOTE:  Interesting note on sound conversion:  16 bit sounds are signed (0 biase).  8 bit sounds are unsigned
    // (+128 biase).
    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_8bit[count] =
          (unsigned char)((((int)SoundFiles[sound_file_index].sample_16bit[count]) + 32767) >> 8);
    }

    GlobalFree(SoundFiles[sound_file_index].sample_16bit);
    SoundFiles[sound_file_index].sample_16bit = NULL;

  } else if (SoundFiles[sound_file_index].sample_16bit == NULL && f_high_quality) {
    SoundFiles[sound_file_index].sample_16bit =
        (short *)GlobalAlloc(0, SoundFiles[sound_file_index].sample_length * sizeof(short));
    GlobalLock(SoundFiles[sound_file_index].sample_16bit);

    // NOTE:  Interesting note on sound conversion:  16 bit sounds are signed (0 biase).  8 bit sounds are unsigned
    // (+128 biase).
    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_16bit[count] =
          (((short)SoundFiles[sound_file_index].sample_8bit[count]) - 128) * 256;
    }

    for (count = 0; count < (int)SoundFiles[sound_file_index].sample_length; count++) {
      SoundFiles[sound_file_index].sample_16bit[count] *= CLIP_ATTENUATION * percent_volume;
    }

    GlobalFree(SoundFiles[sound_file_index].sample_8bit);
    SoundFiles[sound_file_index].sample_8bit = NULL;
  }

  // reset use count
  SoundFiles[sound_file_index].use_count = 0;
  SoundFiles[sound_file_index].used = true;

  return 1;

error_state:

  // Free any allocations, this file is a bust!
  if (cfptr)
    cfclose(cfptr);

  if (SoundFiles[sound_file_index].sample_8bit) {
    GlobalFree(SoundFiles[sound_file_index].sample_8bit);
    SoundFiles[sound_file_index].sample_8bit = NULL;
  }

  if (SoundFiles[sound_file_index].sample_16bit) {
    GlobalFree(SoundFiles[sound_file_index].sample_16bit);
    SoundFiles[sound_file_index].sample_16bit = NULL;
  }

  return 0;
}

void SoundLoadFree(int sound_file_index) {
  int i = sound_file_index;

  if (SoundFiles[i].used != 0) {
    if (SoundFiles[i].sample_8bit)
      GlobalFree(SoundFiles[i].sample_8bit);

    if (SoundFiles[i].sample_16bit)
      GlobalFree(SoundFiles[i].sample_16bit);
  }

  SoundFiles[i].sample_8bit = NULL;
  SoundFiles[i].sample_16bit = NULL;
}