// Routines to handle the sound for Vic, the Bug



#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 



int slots[100];



unsigned int toInteger(char *in){

  unsigned int ret;

  int i;

  char *p = ((char *) &ret);



  for(i = 0; i < 4; i++){

    *p++ = in[i];

  }



  return ret;

} 



char *getBytes(int input, size_t number, char *expect){

  char *data;

  int i;

  ssize_t numRead;



  if((data = malloc(number + 1)) == NULL){

    fprintf(stderr, "Malloc error\n");

    exit(0);

  }



  if((numRead = read(input, data, number)) < 1){

    fprintf(stderr, "Malformed wav file (EOF)\n");

    exit(0);

  }

  data[numRead] = 0;



  fprintf(stdout, "[%d] ", numRead);

  fflush(stdout);



  if(expect != NULL){

    for(i = 0; i < numRead; i++)

      data[i] = tolower(data[i]);



    if(strcmp(expect, data) != 0){

      fprintf(stderr, "Read \"");

      for(i = 0; i < numRead; i++)

	fprintf(stderr, "%c", (isprint(data[i])) ? data[i] : '%');

      fprintf(stderr, "\", expected \"%s\"\n", expect);

    }

  }



  return data;

}



void playSound(int slotNumber, char *filename){

  slots[slotNumber] = 0;



  switch(fork()){

  case -1:

    // Parent with failure

    fprintf(stderr, "Sound play fork error\n");

    return;

    break;



  case 0:

    // Child

    {

      int soundHandle = -1, fileHandle = -1;

      int channels = 1; // stereo

      int format;

      unsigned int rate = 22050;

      unsigned int fmtLen;

      int bytes = 0;

      long i;

      char *data;

      char *tempPtr;

      ssize_t numRead;



      if((fileHandle = open(filename, O_RDONLY)) == -1){

	fprintf(stderr, "Could not open the specified wav file: %s\n",

		filename);

	exit(0);

      }



      // Check the format of the wav file

      free(getBytes(fileHandle, 4, "riff"));

      free(getBytes(fileHandle, 4, NULL)); // Length of package

      free(getBytes(fileHandle, 4, "wave"));

      free(getBytes(fileHandle, 4, "fmt "));



      tempPtr = getBytes(fileHandle, 4, NULL);

      fmtLen = toInteger(tempPtr);

      free(tempPtr);



      free(getBytes(fileHandle, 2, NULL)); // Reserved



      tempPtr = getBytes(fileHandle, 2, NULL);

      channels = tempPtr[0] - 1;

      free(tempPtr);



      tempPtr = getBytes(fileHandle, 4, NULL);

      rate = toInteger(tempPtr);

      free(tempPtr);



      free(getBytes(fileHandle, 4, NULL)); // Bytes per second



      tempPtr = getBytes(fileHandle, 2, NULL);

      bytes = tempPtr[0];

      free(tempPtr);



      free(getBytes(fileHandle, 2, NULL)); // Bits per sample

      free(getBytes(fileHandle, 4, "data"));

      free(getBytes(fileHandle, 3, NULL)); // Length of data



      // Open the sound interface

      if((soundHandle = open("/dev/dsp", O_WRONLY)) == -1){

	fprintf(stderr, "Couldn't open the sound device\n");

	exit(0);

      }



      if(ioctl(soundHandle, SNDCTL_DSP_STEREO, &channels) == -1){

	fprintf(stderr, "Could not set stereo\n");

	exit(0);

      }



      switch(bytes){

      case 1:

	format = AFMT_U8;

	break;



      case 2:

	if(channels == 0)

	  format = AFMT_S16_LE;

	else

	  format = AFMT_U8;

	break;



      case 4:

	fprintf(stdout, "Stereo wav file\n");

	format = AFMT_S16_LE;

	break;



      default:

	fprintf(stderr, "Unknown byte rate for sound\n");

	exit(0);

      }



      if(ioctl(soundHandle, SNDCTL_DSP_SETFMT, &format) == -1){

	fprintf(stderr, "Could not set format\n");

	exit(0);

      }



      if(ioctl(soundHandle, SNDCTL_DSP_SPEED, &rate) == -1){

	fprintf(stderr, "Could not set rate\n");

	exit(0);

      }



      fprintf(stdout,

	      "Playing file %s: channels = %d, rate = %d, bytes = %d\n",

	      filename, channels, rate, bytes);



      while(1){

	if((numRead = read(fileHandle, data, 1024)) == 0)

	  break;



	fprintf(stdout, "[%d] ", numRead);

	fflush(stdout);



	if(write(soundHandle, data, numRead) == -1){

	  fprintf(stderr, "Error writing to the sound device\n");

	  exit(0);

	}

	

	if(ioctl(soundHandle, SNDCTL_DSP_SYNC) == -1){

	  fprintf(stderr, "Could not sync sound data\n");

	  exit(0);

	}

	//	free(data);

      }



      // Get here when done?

      close(fileHandle);

      close(soundHandle);

      free(data);

      exit(0);

    }

    break;

   

  default:

    return;

    break;

  }

}