/****************************************************************************/
/*  
**        P E L A A T A L . C
**
** Sarjan pelaajien levylt„ lukeminen ja levylle tallettaminen.            
**
** Aliohjelmat:
**    luo_pelaajarekisteri     - kysyy pelaajarekisterin t„ydellisen nimen ja 
**                               alustaa ja luo tarvittavat rakenteet.
**    lisaa_pelaaja_rivi       - lis„„ uuden pelaajan joka annettu muodossa  
**                               Tikkanen|Esa|121264|hyokkaaja|56|70|126
**    lue_pelaajarekisteri     - kysyy pelaajarekisterin nimen ja lukee tiedot 
**                               levylt„ mik„li pelaajarekisteri„ ei l”ydy, 
**                               annetaan mahdollisuus uuden luomiseen
**    pelaaja_riviksi          - muuttaa pelaajatietueen tiedot muotoon
**                               Tikkanen|Esa|121264|hyokkaaja|56|70|126
**    talleta_pelaajarekisteri - tallettaa pelaajarekisterin tiedot levylle 
**                               ja muuttaa vanhan tiedoston nimelle .BAK
**    p_kopioi_kommentit       - kopioi toisen tiedoston kommentit toiseen
**    p_mallirivi              - tekee mallirivin tallettamista varten
**
**       
** Aliohjelmat olettavat pelaajatiedoston olevan seuraavaa muotoa:
**
**Liigapelaajat
**300
**; Kenttien j„rjestys tiedostossa on seuraava:
**; sukunimi |etunimi  |syntyma_aika|pelipaikka |numero|joukkue|maalit|syotot|pisteet|
**Tikkanen   |Esa      |121264      |hy”kk„„j„  |11    |TPS    |56    |70    |126    |
**Tammi      |Jukka    |080863      |maalivahti |1     |Ilves  |0     |1     |1      |
**Gudas      |Leo      |110662      |puolustaja |9     |JypHT  |3     |6     |9      |
**<EOF>
**
**
**  Tiedoston alussa olevat kommenttirivit kirjoitetaan talletuksessa
**  per„kk„in nimi ja koko -rivin  j„lkeen.  
**  Se kommenttirivi, jolla on erotinmerkki, toimii talletuksen
**  yhteydess„ mallirivin„, joka m„„r„„ sarakkeiden leveydet.
**
**
**  Tekij„t:          Vesa Lappalainen
**                    Ohjelmointikurssi 1991
**  Tehty:            13.11.1991
**  Muutettu:         17.12.1991/jaa
**  Mit„ muutettu:    Vastaamaan omaa harjoitusty”t„
**
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "mjonot.h"
#include "sarja.h"


/* Globaali muuttuja TYHJA_JONO[] m„„ritelty tiedostossa sarjatal.c         */


/****************************************************************************/
char                      /* = Talletuksessa k„ytett„v„ mallirivi.          */
*p_mallirivi(void)        /* = TYHJA_JONO, mik„li tilaa ei saada varattua.  */
/* 
** Funktiolla luodaan tilaa mallirivi„ varten ja luodaan mallirivi,
** joka on muotoa
** ;sukunimi  |etunimi    |syntyma_aika |....
**
** Globaalit: PKENTAT
** Algoritmi: Lis„t„„n PKENTAT taulukosta aina seuraava kent„n nimi
**            ja laitetaan | kent„n mallipituuden p„„h„n.
----------------------------------------------------------------------------*/
{
  int koko=0,k;
  char *m;


  for (k=0; k<PKENTTIA; k++) koko += PKENTAT[k].mpit;
  koko += PKENTTIA+1; /* Lis„t„„n viel„ erotinmerkin viem„ tila */

  if ( !(m=malloc(koko)) ) return TYHJA_JONO;

  memset(m,' ',koko-1);     /* T„ytet„„n jono tyhjill„                      */
  m[0] = ';'; m[1] = 0;
  koko=0;

  for (k=0; k<PKENTTIA; k++) {
    koko += PKENTAT[k].mpit;
    liita_jono(m,koko+1,PKENTAT[k].nimi);
    m[strlen(m)]=' ';
    m[koko++]=EROTTIMET[0];
    m[koko]  =0;
  }

  return m;
}


/****************************************************************************/
int                       /*                                                */
p_kopioi_kommentit(       /* 0 = onnistui, 1 = ei onnistunut                */
  FILE *f                ,/* s   Tiedosto jonne kopioidaan                  */
  char *mista             /* s   Tiedoston nimi joka kopioidaan             */
)
/* 
** Funktiolla kopioidaan toisessa tiedostossa olevat kommentit tiedostoon f. 
** My”s tyhj„t rivit tulkitaan kommenteiksi.
**
** Algoritmi:  Luetaan tiedostoa kunnes kommentit alkavat ja lopetetaan
**             lukeminen kun ne loppuvat.
----------------------------------------------------------------------------*/
{
  char rivi[400];
  FILE *fm;
  int paluu = 1, kommentteja=0;

  if ( !(fm=fopen(mista,"rt")) ) return 1;

  while ( !feof(fm) ) {
    if ( f_lue_jono(fm,P_N_S(rivi)) < OLETUS ) goto sulje;
    if ( (!rivi[0]) || (rivi[0]==';') ) {
      kommentteja++;
      if ( fprintf(f,"%s\n",rivi)==EOF ) goto sulje;
    }
    else if (kommentteja) break;
  }
  paluu=0;

sulje:
  fclose(fm);
  return paluu;
}



/****************************************************************************/
char                                  /* NULL = onnistui                    */
*luo_pelaajarekisteri(                /* muut = virheilmoitus merkkijonona  */
  Pelaajarekisteri_tyyppi *sarja_pelaajat /* s  Luotava pelaajarekisteri    */
)
/* 
** Funktiolla tehd„„n uuden pelaajarekisterin luomisessa tarvittavat toimenpiteet.
**
** Globaalit: KOMMENTIT (merkkijono taulukko)
**            MALLI_IND (indeksi kommenteissa joka kuvaa mallirivi) 
** Sy”tt”:    P„„tteelt„
** Tulostus:  N„ytt””n
** Kutsuu:    lue_jono_oletus
**            lue_kokluku_oletus
**            luo_pelaajisto
----------------------------------------------------------------------------*/
{
  printf("\n");
  lue_jono_oletus("Anna pelaajarekisterin koko nimi ",0,0,
      sarja_pelaajat->tiedoston_nimi,P_N_S(sarja_pelaajat->pelaajarekisterin_nimi));
  printf("Anna pelaajarekisterin  maksimij„senm„„r„>");
  lue_kokluku_oletus(MAX_PELAAJIA,&(sarja_pelaajat->max_pelaajia));
  sarja_pelaajat->pelaajia=0;

  sarja_pelaajat->mallirivi=p_mallirivi();

  return luo_pelaajisto(sarja_pelaajat,sarja_pelaajat->max_pelaajia);
}



/****************************************************************************/
int                          /*                                             */
lisaa_pelaaja_rivi(          /* 0 = lis„ys onnistui, 1 = lis„ys ep„onnistui */
  Pelaajarekisteri_tyyppi *sarja_pelaajat,/* s,t pelaajarek johon rivi lis„t*/
  char *rivi                 /* s   Rivi joka sis„lt„„ lis„tt„v„n tiedot    */
)
/* 
** Funktiolla lis„t„„n pelaajistoon merkkijonossa rivi oleva pelaaja.
** Pelaajan tiedot t„ytyy olla eroteltuina erotinmerkeill„.
**
** Globaalit: PKENTAT,PKENTTIA
** Muuttuu:   *rivi
** Kutsuu:    lisaa_pelaaja
** Tekij„:    Vesa Lappalainen
** Pvm:       9.11.1991
** Algoritmi: Luetaan kuhunkin kentt„„n tieto kentt„listan mukaan.
**            rivist„ etsit„„n erotinmerkki ja laitetaan sen tilalle
**            NUL-merkki.  Poistetaan turhat tyhj„t.
**            L”ytynyt jono laitetaan oikeaan kentt„„n.
**            Riviss„ siirryt„„n erotinmerkki„ seuraavaan paikkaan.
**            (strtok ei k„y, koska se hukkaa per„kk„iset erotinmerkit
**            joista pit„isi tulla tyhji„ kentti„!)
** Esimerkki: rivi    = Tikkanen   |Esa       |121264|hyokkaaja  |...
**            pelaaja = Tikkanen,Esa,121264,hyokkaaja...
----------------------------------------------------------------------------*/
{
  int i,p1=0,p2=0,lr=strlen(rivi); 
  Pelaaja_tyyppi pelaaja;
  for (i=0; i<PKENTTIA; i++) *PKENTTA(i,&pelaaja)=0;

  for (i=0; (i<PKENTTIA) && (p1<lr); i++) {
    p2 = p1 + strcspn(&rivi[p1],EROTTIMET); 
    rivi[p2]=0;
    poista_tyhjat(&rivi[p1]);
    kopioi_jono(PKENTTA(i,&pelaaja),PKENTAT[i].koko,&rivi[p1]);
    p1=p2+1; 
  }

  if (i<MIN_KENTTIA) return 1;
  return lisaa_pelaaja(sarja_pelaajat,&pelaaja);
}


static char *TIEDOSTO_VAARIN  = "Tiedosto on v„„r„„ muotoa!";
static char *NIMEA_EI_ANNETTU = "Pelaajarekisterin nime„ ei annettu!";

/****************************************************************************/
char                                   /* NULL = onnistui                   */
*lue_pelaajarekisteri(                 /* muut = virheilmoitus merkkijonona */
    Pelaajarekisteri_tyyppi *sarja_pelaajat /* s,t pelaajarek johon luetaan.*/
)
/* 
** Funktiolla luetaan pelaajarekisterin nimi.  Mik„li tiedosto l”ytyy, luetaan
** tiedosto.  Mik„li tiedostoa ei l”ydy ja se halutaan luoda, kysyt„„n
** pelaajarekisterin lis„tietoja ja alustetaan tarpeelliset asiat.
**
** Tiedoston muoto oletetaan seuraavaksi:
**Pelaajarekisterin koko nimi
**max_pelaajia
**; Kommenttirivi 1
**; Kommenttirivi ...
**; Kommenttirivi n
**; sukunimi  |etunimi  |syntyma_aika|pelipaikka...
**Tikkanen    |Esa      |121264      |hyokkaaja...   
**...
**<EOF>
**
** Se kommenttirivi (tai viimeinen niist„), joilla esiintyy 
** erotinmerkki (esim. |)  otetaan tallettamista varten malliriviksi.  
** Muuten kommenttirivit unohdetaan.
** Tulostetaan ne rivit, joita ei jostakin syyst„ saada lis„tty„
** pelaajaluetteloon.
**
** Globaalit: TARKENNIN (vakio jono)
**            EROTTIMET (vakio jono)
** Sy”tt”:    P„„teelt„, 
**            tiedostosta
** Tulostus:  N„yt”lle
** Kutsuu:    f_lue_jono
**            P_N_S       (makro) 
**            lue_jono
**            luo_pelaajisto
**            lisaa_pelaaja_rivi
** Tekij„:    Vesa Lappalainen
** Pvm:       9.11.1991
----------------------------------------------------------------------------*/
{
  FILE *f;
  char jono[400],apu[50], *viesti;
  int vikoja=0;

  sarja_pelaajat->mallirivi    = TYHJA_JONO; 
  sarja_pelaajat->nykypelaaja  = 0;
  sarja_pelaajat->max_pelaajia = MAX_PELAAJIA;
  sarja_pelaajat->pelaajia     = 0;
  sarja_pelaajat->haku         = NULL;

  do {  /* Kysell„„n kunnes tiedosto l”ytyy! */

    printf("Anna pelaajarekisterin nimi>");
    if ( lue_jono(P_N_S(sarja_pelaajat->tiedoston_nimi)) <= OLETUS ) 
      return NIMEA_EI_ANNETTU;

    kopioi_jono(P_N_S(jono),sarja_pelaajat->tiedoston_nimi);
    liita_jono (P_N_S(jono),TARKENNIN);

    if ( !(f=fopen(jono,"rt")) ) { /* Avaus ei onnistu! Luodaanko? */
      printf("pelaajarekisterin %s tietoja ei ole!\n",
	      sarja_pelaajat->tiedoston_nimi);
      printf("Luodaanko tiedot (K/e):");
      if ( kylla_vastaus() ) return luo_pelaajarekisteri(sarja_pelaajat);
    }                              /* Avaus ei onnistu! Luodaanko? */

  } while (!f); /* Kunnes tiedosto l”ytyy! */


  /* Luetaan tiedostosta pelaajarekisterin nimi ja max_koko sek„ 
     luodaan pelaajisto */
  if ( f_lue_jono(f,P_N_S(sarja_pelaajat->pelaajarekisterin_nimi))<OLETUS ) 
     return TIEDOSTO_VAARIN;
  if ( f_lue_jono(f,P_N_S(jono)) <OLETUS ) return TIEDOSTO_VAARIN;
  sscanf(jono,"%d",&sarja_pelaajat->max_pelaajia);
  if ( (viesti=luo_pelaajisto(sarja_pelaajat,sarja_pelaajat->max_pelaajia))!=NULL )
    return viesti;


  /* Luetaan pelaajisto ja mahd. mallirivi: */
  while ( !feof(f) ) {
    if ( f_lue_jono(f,P_N_S(jono))<=OLETUS ) continue;

    if ( jono[0]==';' ) {              /* Jos kommenttirivi */
      if ( strpbrk(jono,EROTTIMET) ) { /* Mallirivi         */
	if ( sarja_pelaajat->mallirivi != TYHJA_JONO ) 
	  free(sarja_pelaajat->mallirivi);
	sarja_pelaajat->mallirivi = tee_jono(jono);
      }
      continue; /* Muuten kommenttirivit unohdetaan. */
    }

    kopioi_jono(P_N_S(apu),jono);  /* Jemmataan p„tk„ rivi„ viestiksi! */
    if ( lisaa_pelaaja_rivi(sarja_pelaajat,jono) ) {
      printf("*** Ei saada lis„tty„: %s ***\n",apu);
      vikoja++;
    }
  }


  /* Jos tee_jono ep„onnistui, laitetaan jokin mallirivi */
  if (!sarja_pelaajat->mallirivi) sarja_pelaajat->mallirivi = TYHJA_JONO;
  fclose(f);

  if (vikoja) {
    printf("%d pelaajaa j„i lis„„m„tt„!\n",vikoja);
    odota_jotakin();
  }

  return NULL;
}


/****************************************************************************/
int                           /*                                            */
pelaaja_riviksi(              /* 0 = onnistuu 1 = ei onnistu                */
  Pelaaja_tyyppi *pelaaja    ,/* s   Pelaaja joka muutetaan                 */
  char *malli                ,/* s   Mallirivi, josta otetaan pituudet      */
  char *rivi                 ,/* t   Rivi jonne pelaaja muutetaan           */
  int  max_pit                /* s   Rivin maksimipituus                    */
)
/* 
** Funktiolla muutetaan pelaaja yhdeksi riviksi, jossa kent„t on erotettu 
** toisistaan mallirivist„ l”ytyvill„ erotinmerkeill„.  Mik„li malliriviss„
** on v„hemm„n tilaa, kuin tarvitaan, k„ytet„„n tarvittava m„„r„ tilaa.
** Mik„li mallirivi on tyhj„, pakataan tiedot niin ahtaalle kuin mahdollista.
**
** Globaalit: PKENTAT
**            EROTTIMET
** Algoritmi: Mallirivist„ etsit„„n erotinmerkkej„.  Aina kun erotinmerkki
**            l”ytyy, laitetaan tulosriviin kentt„listan mukaisesti seuraava
**            kentt„ ja riitt„v„sti tyhji„, jotta erotin merkki saadaan
**            samalle paikalle.  Sitten laitetaan erotinmerkki.  Mik„li
**            mallirivin erotinmerkit loppuu ennen kentt„listaa, k„ytet„„n
**            edellist„ erotinmerkki„ jotta koko kentt„lista saadaan 
**            muutetuksi.
** Esimerkki: malli   = "sukunimi    |etunimi   |syntyma_aika| ..."
**            pelaaja = Tikkanen,Esa,121264,hyokkaaja...
**            rivi    = Tikkanen     |Esa       |121264|hyokkaaja    
----------------------------------------------------------------------------*/
{
  char erotin; 
  int mi=0,ri=0; /* Indeksi mallissa ja riviss„ */
  int lm=strlen(malli);
  int i;

  rivi[0] = 0;  /* Tyhjennet„„n tulosjono. */

  erotin = EROTTIMET[0];

  for (i=0; i<PKENTTIA; i++) {
    mi += strcspn(&malli[mi],EROTTIMET); /* Etsit„„n mallin seuraava erotin.*/
    if (mi<lm) erotin=malli[mi++];       /* Jos erotin l”ytyi niin OK       */
    liita_jono(rivi,max_pit,PKENTTA(i,pelaaja));
    ri = strlen(rivi);
    if ( ri >= max_pit-1 ) return 1;     /* Jos rivist„ tuli liian pitk„ -> */
    for (;(ri<mi-1)&&(ri<max_pit-2);ri++) 
      rivi[ri]=' ';                      /* T„ytet„„n v„lily”nneill„        */
    rivi[ri++]=erotin; 
    rivi[ri]=0;
  }
  rivi[ri-1]=0;                          /* Poist. viimeinen, turha erotin  */
  return 0;
}


static char *EI_TALLETU = "Pelaajarekisterin talletus ei onnistu!";
static char *EI_AUKEA_K = "Tiedostoa ei voi avata kirjoittamista varten!";

/****************************************************************************/
char                                   /* NULL = onnistui                   */
*talleta_pelaajarekisteri(             /* muut = virheilmoitus merkkijonona */
   Pelaajarekisteri_tyyppi *sarja_pelaajat    /* s   Talletettava pelaajarek*/
)
/* 
** Funktiolla talletetaan sarja_pelaajat.  Vanha tiedosto nimet„„n ensin
** nimi.VANHATARK.
**
** Globaalit: VANHATARK
**            TARKENNIN
** Tulostus:  Tiedostoon
** Kutsuu:    pelaaja_riviksi
** Tekij„:    Vesa Lappalainen
** Pvm:       10.11.1991
----------------------------------------------------------------------------*/
{
  FILE *f;
  char jono[400],bak_nimi[20];
  int vanhat_tallessa,i;

  kopioi_jono(P_N_S(bak_nimi),sarja_pelaajat->tiedoston_nimi);
  liita_jono (P_N_S(bak_nimi),VANHATARK);
  kopioi_jono(P_N_S(jono)    ,sarja_pelaajat->tiedoston_nimi);
  liita_jono (P_N_S(jono)    ,TARKENNIN);

  remove(bak_nimi); /* Vanha .BAK t„ytyy poistaa jotta rename toimii */
  vanhat_tallessa = !rename(jono,bak_nimi);


  if ( !(f = fopen(jono,"wt") ) ) return EI_AUKEA_K;

  if ( fprintf(f,"%s\n",sarja_pelaajat->pelaajarekisterin_nimi)==EOF ) 
     return EI_TALLETU;
  if ( fprintf(f,"%d\n",sarja_pelaajat->max_pelaajia)==EOF ) 
     return EI_TALLETU;
  
  if ( p_kopioi_kommentit(f,bak_nimi) ) { /* Jos ei kopioidu, laitetaan olet. */
    if ( fprintf(f,"; Kenttien j„rjestys tiedostossa on seuraava:\n")==EOF )
      return EI_TALLETU;
    if ( fprintf(f,"%s\n",sarja_pelaajat->mallirivi)==EOF ) return EI_TALLETU;
  }

  for (i=0; i<sarja_pelaajat->pelaajia; i++) {
    pelaaja_riviksi(sarja_pelaajat->pelaajat[i],sarja_pelaajat->mallirivi,
                    P_N_S(jono));
    if ( fprintf(f,"%s\n",jono)==EOF ) return EI_TALLETU;
  }

  fclose(f);

  printf("\n");
  printf("Pelaajien tiedot talletettu tiedostoon %s%s\n",
	  sarja_pelaajat->tiedoston_nimi,TARKENNIN);
  if (vanhat_tallessa)
  printf("Pelaajien vanhat tiedot tiedostossa    %s%s\n",
	  sarja_pelaajat->tiedoston_nimi,VANHATARK);

  return NULL;
}