#include <stdio.h>
#include <unistd.h>
#include <string.h>

#define MAXVZORKU  500000  
#define KONECOK  0
#define KONECERR -1 
#define MAXINDHLAV 57  
         /* to je posledni index hlavicky waw file */
#define MAXBUF 50 
        /* pomocny buffer pro cokoli - vstupy atd. */ 


void help(void);





int main( int pocarg, char *argum[]  ) {
  float cislo;
  int vysledek = 1;
  int i = 0; 
  int pom;
  
  int psathlasky = 0;
  int koneconerr = 1; 
  int hexadecimalne = 0;
  int proMPLAB = 0;
  int proX = 0;   /* MPLAB XIDE */
  int souhlasi;

  int pocitvyst = 0;
  
  unsigned long int  pocetvzorku = 0;
  unsigned long int  mujpocetvzorku = 0;
  unsigned long int celkovadelka = 0;   /* vse bez hlavicky RIFF a 4 byte delka */ 
  unsigned char vzazak;
  unsigned char znak;
  unsigned int pocetkan; 
  unsigned long int vzorkuzasec;
  unsigned long int bytuzasec;
  unsigned int bytunavzor;
  unsigned int bitnavzor; 
  unsigned int cisvzorek;
    
  unsigned char wavfile[MAXINDHLAV+2];  /* +2 neni chyba, nebot tam jeste prijde 0
             jako konec stringu - inicializuji to pomoci strcpy */
  
  unsigned char buf[MAXBUF+1];
  
  
  
  
  if (pocarg > 1) {        /* pocarg == 1 je vzdy, to je vlastni volani tohoto programu
                              a jako argument se objevi nazev tohoto volaneho programu
			      a ten je v argum[0]  */
    for(i=1;i<pocarg;i++) {			      
        strncpy(buf, argum[i], MAXBUF);


	if( strlen(buf) != 2) {
	   printf("Nespravny parametr %s \n", buf);
	   printf("viz help - pustit s parametrem -h \n\n");
	   return KONECERR;
	}
	
	
       switch (buf[1] ) {
         case  'h':  help();  
	             return KONECERR;
          break;
	
         case  'x': hexadecimalne = 1;  
          break;

         case  'f': koneconerr = 0; 
          break;
	
         case  'c': psathlasky = 1; 
          break;
	
         case  'm': proMPLAB = 1; 
                    psathlasky = 1;
          break;

         case 'a': proX = 1;
                   psathlasky = 1;
	   break;
	
         default:   printf("Nespravny parametr %s \n", buf);
	            printf("Pro napovedu zkuste parametr -h \n\n");
		    return KONECERR;
          break;		     
	  
       }	
	
    }    
        
  }    

  
  
  
  
  if( read(0,buf,36)  != 36) {         
    printf ("Hlavicka ma mene nez 36 znaku. Neni to tedy wav file. \n\n");
    return KONECERR;
  }
  
   /* standardni input je jiz otevren, proto staci read 
                        a ctu hlavicku file - 36 znaku */
 /*  tady kontrola hlavicky */ 

  strcpy(wavfile,"RIFF"); 
  souhlasi = 1;
  for(i=0;i<4;i++) souhlasi = souhlasi && (buf[i] == wavfile[i] );
  if(!souhlasi) {
    printf("Na zacatku file neni RIFF - koncim \n\n");
    return KONECERR;
  }

  strcpy(wavfile,"WAVEfmt "); 
  souhlasi = 1;
  for(i=0;i<8;i++) souhlasi = souhlasi && (buf[i+8] == wavfile[i] );
  if(!souhlasi) {
    printf("V hlavicce neni WAVEfmt  - koncim \n\n");
    return KONECERR;
  }


 
  celkovadelka = ((unsigned int)buf[4]) + ((unsigned int)buf[5]) * 255 +
                 ((unsigned int)buf[6]) * 65536 + ((unsigned int)buf[7]) * 16777216 ;
		 
  if (psathlasky) printf("// Celkova delka je %ld ---- \n", celkovadelka );
    
  if( !( (buf[20] == 0x06)  &&  (buf[21] == 0) ) )  {
    if (psathlasky) {
        printf("Tohle bohuzel neni A zakon dle CCITT  \n"); 
        printf("       hodnota bytu 20 21 hlavicky  je  %2x  %2x \n", 
            (unsigned int) buf[20], (unsigned int) buf[21] ); 
    }
    	    
    if (koneconerr) return KONECERR;  
  }
  
  pocetkan = ((unsigned int) buf[22]) + ((unsigned int) buf[23])  * 256 ; 
   
  
  if(pocetkan != 1) {   
    if(psathlasky)  printf("pocet kanalu je %d - ma byt 1 \n", pocetkan); 
    if (koneconerr) return KONECERR;    
  }
  
  
   vzorkuzasec = ((unsigned int)buf[24]) + ((unsigned int)buf[25]) * 256 +
                 ((unsigned int)buf[26]) * 65536 + ((unsigned int)buf[27]) * 16777216 ;

  if(vzorkuzasec != 8000) {   
    if(psathlasky)  printf("pocet vzorku za sec je %d - ma byt 8000 \n", vzorkuzasec); 
    if (koneconerr) return KONECERR;    
  }


  
  bytuzasec = ((unsigned int)buf[28]) + ((unsigned int)buf[29]) * 256 +
                 ((unsigned int)buf[30]) * 65536 + ((unsigned int)buf[31]) * 16777216 ;

  if(bytuzasec != 8000) {   
    if(psathlasky)  printf("pocet bytu za sec je %d - ma byt 8000 \n", bytuzasec); 
    if (koneconerr) return KONECERR;    
  }

  
  bytunavzor = ((unsigned int)buf[32]) + ((unsigned int)buf[33]) * 256 ; 

  if(bytunavzor != 1) {   
    if(psathlasky)  printf("pocet bytu na jeden vzorek je %d - ma byt 1 \n", bytunavzor); 
    if (koneconerr) return KONECERR;    
  }

   
  bitnavzor  = ((unsigned int)buf[34]) + ((unsigned int)buf[35]) * 256 ;

  if(bitnavzor != 8) {   
    if(psathlasky)  printf("pocet bitu na vzorek je %d - ma byt 8 \n", bitnavzor); 
    if (koneconerr) return KONECERR;    
  }
  
    /*   a tady uz hledam chunk data */

  strcpy(wavfile,"data");
  souhlasi = 1;
  i = 0;
  while(souhlasi) {
     if (read(0,&znak,1) != 1 ) {  
         printf("Ve file nebyl nalezen chunk  data  - koncim \n\n");
         return KONECERR;
     }
          
     if (znak == wavfile[i]) {
       i++;
       if( i == 4 ) souhlasi = 0;      
     }  else  i = 0;
                            
  }
     /* tady jsme nasli hlavicku data chunku */ 


  if(i != 4 ) {
         printf(" TADY  Ve file nebyl nalezen chunk  data  - koncim \n\n");
         return KONECERR;  
  }


    if (read(0,&znak,1) != 1 ) {  
         printf("Ve file nebyla nalezena delka dat  - koncim \n\n");
         return KONECERR;
     }
     pocetvzorku = (unsigned int) znak;

    if (read(0,&znak,1) != 1 ) {  
         printf("Ve file nebyla nalezena delka dat  - koncim \n\n");
         return KONECERR;
     }
     pocetvzorku = pocetvzorku + ((unsigned int) znak) * 256;

    if (read(0,&znak,1) != 1 ) {  
         printf("Ve file nebyla nalezena delka dat  - koncim \n\n");
         return KONECERR;
     }
     pocetvzorku = pocetvzorku + ((unsigned int) znak) * 256*256;

    if (read(0,&znak,1) != 1 ) {  
         printf("Ve file nebyla nalezena delka dat  - koncim \n\n");
         return KONECERR;
     }
     pocetvzorku = pocetvzorku + ((unsigned int) znak) * 256*256*256;



  /* unsigned char FLASH_variable[20] __attribute__((space(auto_psv))) = {1,2,3,4,5,6,7,8,9};
  */

  if(proX) {
    printf(" unsigned char vzorky[%ld] __attribute__((space(auto_psv))) = { ", pocetvzorku );
    pocitvyst = 4;    
   }

  while ( read(0,&vzazak,1) == 1 ) {
    cisvzorek = (unsigned int) vzazak;
    mujpocetvzorku++;
    if(proMPLAB | proX )     {
    if(proMPLAB)   {

       if(!pocitvyst) {
          printf( "  .byte  0x%02x, ",cisvzorek);
          pocitvyst++;
       }  else {
          printf(" 0x%02x", cisvzorek);
          pocitvyst++;
          if(pocitvyst == 5) { 
             pocitvyst = 0;  
             printf(" \n");
          }         
          else printf( ", ");    
          
       }


    }  /*  od if proMPLAB  */
    
    
    if(proX) {


       if(!pocitvyst) {
          printf( "    0x%02x",cisvzorek);
          pocitvyst++;
       }  else {
          if ( mujpocetvzorku >1 ) 
             printf(", 0x%02x", cisvzorek); else 
               printf(" 0x%02x", cisvzorek);
               
          pocitvyst++;
          if(pocitvyst == 5) { 
             pocitvyst = 0;  
             printf(", \n");
          }              
       }
    
    } /*  od  if(proX)  */
    
    
    
    }  else {    /* zaviraci je od   if(proMPLAB | proX )    */

      if(hexadecimalne) printf(" %02x \n",cisvzorek);
         else 
                      printf(" %3d \n",cisvzorek); 

    }

  }  /* od while   read(0,&vzazak,1) == 1    */
  
  if(pocetvzorku != mujpocetvzorku ) {
    printf("Nesouhlasi pocty vzorku\n");
    printf("   za hlavickou data je %ld \n",pocetvzorku);
    printf("   skutecne precteno    %ld \n", mujpocetvzorku);
    return KONECERR;
  }
  
  
  return KONECOK;  
  
 
} 


void help(void) {
  printf(" Program pro prechroustani wav file na vzorky \n");
  printf(" Pouziti:  wav2s [OPTION]  \n");
  printf(" Program ocekava na standardnim vstupu wav file \n");
  printf("       napr. cat file.wav | ./wav2s  \n");
  printf(" Na standardni vystup doda ciselnou representaci vzorku z chunku data \n");
  printf(" Ocekavaji se nasledujici parametry wav file: \n");
  printf("     A zakon dle CCITT ");
  printf("     Pocet vz. za 1 s.: 8000 - standardni PCM \n");
  printf("     Jeden kanal - tedy mono ");
  printf("     Vzorky 8 bitove \n");
  printf(" Na vystupu jsou tupe opsana data bez jakychkoli uprav,\n");
  printf("     tedy 8bitu / cislo, sude bity jsou invertovany, \n");
  printf("     proste s temi vzorky neni delana vubec zadna uprava\n\n");
  printf(" Moznosti:   OPTION muze byt  \n");
  printf("     -h  tento help \n");
  printf("     -x  vystupni cisla v hexadecimalnim tvaru, jinak desitkove \n");
  printf("     -f  force   data budou prevadena, i kdyz vstupni wav file\n");
  printf("                 nevyhovi vyse uvedenym pozadavkum (A zakon atd...) \n" );
  printf("     -c  bude psat hlasky, pokud nektery z parametru \n");
  printf("                 wav file nevyhovi, tez uda delku atd. \n");
  printf("     -m  vystup ve formatu vhodnem pro MPLAB \n");
  printf("                 .byte 0x58,0x78,0xab .... atd. \n");
  printf("     -a  vystup ve formatu vhodnem pro MPLABX \n");
  printf("           definuje PSV promennou a jeji hodnoty \n");


}