#include <string.h>
#include <stdio.h>
#include <allegro.h>
#include "almp3.h"

void putstr(char *s); // prototyp

#define BUFSZ   (1>>16) /* Velikost bufferu pro dekodovaní */


ALMP3_MP3 *mymp3; // nase hudba - pro jednoduchost globalni promenna


ALMP3_MP3 *open_mp3_file_full(char *filename) {
  FILE *f = NULL;
  ALMP3_MP3 *m = NULL;
  void *data;
  int len;
  int error=0;
  char Integer[21];

  if (!(data = (void *)malloc(sizeof(char)*10000000))) {
	error = 1;
    goto error;
  }

  if ((f = fopen(filename, "rb"))== NULL) {
	error = 2;
    goto error;
  }

  if ((len = fread(data, 1, 10000000, f)) <= 0) {
	error = 3;
    goto error;
  }

  if (!(m = almp3_create_mp3(data, len))) {
	error = 4;
    goto error;
  }

  // pro jistotu si vypiseme velikost 
  // souboru kterou jsme nacetli
  memset(Integer,0,21);
  itoa(len,Integer,10);
  putstr(Integer);

  fclose(f);
  free(f);
  return m;

  error: // zde se program dostane jen pri chybe
  putstr("CHYBA");
  
  switch (error) {
	case 1:putstr("CHYBA: Málo paměti pro malloc");break;
	case 2:putstr("CHYBA: Otevření souboru");break;
	case 3:putstr("CHYBA: Načtení dat ze souboru");break;
	case 4:putstr("CHYBA: ");break;

  }
    
  fclose(f);
  free(m);
  free(f);
  return NULL;
}


int main() { 
  char *s="_a.mp3";

  allegro_init();

  install_timer();
  install_keyboard();

  if (set_gfx_mode(GFX_SAFE, 640, 480, 0, 0) < 0) {
    allegro_message("Error setting video mode.\n");
    return 1;
  }
  clear_to_color(screen, makecol(255, 255, 255));

  /* nastavime volume v Allegru na max. */
  set_volume_per_voice(0);

  if (install_sound(DIGI_AUTODETECT, MIDI_NONE, 0) < 0) {
    set_gfx_mode(GFX_TEXT, 0, 0, 0, 0);
    allegro_message("Error installing sound.\n");
    return 1;
  }

// hlavni cast kodu, ktera prehrava

  putstr(s); // tiskne jmeno souboru.


  if (mymp3 = open_mp3_file_full(s)) {
    if (almp3_play_ex_mp3(mymp3, BUFSZ, 255, 128,1000,1) != ALMP3_OK)
		putstr("error play");
  }
  else 
    putstr("Error opening.");

  // zde muze byt smycka programu...  
  while (!keypressed()) {
  	  almp3_poll_mp3(mymp3);
  }


  almp3_destroy_mp3(mymp3);

  free(mymp3);

// konec hlavni casti kodu, ktery prehrava

  allegro_exit();

  return 0;
}
END_OF_MAIN();


/* jednoducha funkce pro vystup */
void putstr(char *s) {
  static int y = 0;
  text_mode(-1);
  textout(screen, font, s, 0, y, makecol(0, 0, 0));
  y += text_height(font);
}