/* mjonotpp.h */
/****************************************************************************/
/*     M  J  O  N  O  T  P  P.  H
**
**
**   Tiedostossa on merkkien ja merkkijonojen k„sittelyohjelmien yleiset
**   aliohjelmien otsikot.  Tiedosto on l„hinn„ muunnostiedosto string-
**   tyypille vastaavasta C-kirjastosta mjonot.c
**
**   Tekij„t:          Vesa Lappalainen
**   Tehty:            02.01.1996
**   Muutettu          07.03.1996/vl
**   Mit„ muutettu:    lue_jono_oletus laitettu toimimaan
**
**  Tiedostossa on seuraavia aliohjelmia:
**    remove(st)             - poistaa tiedoston st
**    onko_tiedostoa(st)     - palauttaa 1 jos on tiedosto nimell„ st
**    rename(&vanha,&uusi)   - vaihtaa tiedoston nimen
**    tarkennin_alku(&tied)  - palauttaa mist„ kohti tarkennin alkaa
**                             tiedoston nimess„
**    poista_tarkennin(tied) - poistaa tarkentimen tiedostonnimest„
**    laita_tarkennin(tied,tark) - laittaa tiedoston nimen tarkentimen
**    vaihda_tarkennin(tied,tark)- vaihtaa tiedoston nimen tarkentimen
**
**    istream &lue_rivi(istream &is,char *s,int max_koko);
**    istream &lue_rivi(istream &is,string &s);
**    istream &lue_rivi(istream &is,int &i,int def=0);
**
**  Seuraavat ovat mjonot.c:n muunnoksia string-luokalle
**  (- merk ei totetuttu erikseen string-luokalle
**     tai ei tarvitse toteuttaa)
**
**    tee_jono               - luo uuden merkkijonon jonne jono kopioidaan
**    kopioi_jono            - kopioi kork. annetun m„„r„n merkkej„
**    liita_jono             - liitt„„ jonon toisen per„„n, tulos
**                             korkeintaan max.pituus mittainen               -
** -  f_lue_jono             - lukee tiedostosta merkkijonon                  -
** -  alusta_lue_jono        - alustaa merkkijonon lukemisen                  -
** -  lue_jono               - lukee p„„tteelt„ merkkijonon                   -
**    lue_jono_oletus        - lukee p„„tteelt„ merkkijonon.
**                             N„ytt””n tulostetaan haluttu viesti ja
**                             jonon oletusarvo, mik„li painetaan RET         -
** -  lue_kokluku_oletus     - luetaan kokonaisluku, jolle k„ytet„„n
**                             oletusarvoa mik„li heti painetaan RET          -
**    poista_alkutyhjat      - poistaa merkkijonon alussa olevat v„lily”nnit  -
**    poista_lopputyhjat     - poistaa merkkijonon lopussa olevat v„lil.      -
**    poista_2_tyhjat        - muuttaa merkkijonossa kaikki per„kk„iset
**                             v„lily”nnit yhdeksi v„lily”nniksi              -
**    poista_tyhjat          - poistaa alusta ja lopusta kaikki sek„
**                             muualta moninkertaiset v„lily”nnit             -
** -  isoksi                 - muuttaa kirjaimen isoksi kirjaimeksi huomioiden
**                             skandit                                        -
** -  pieneksi               - muuttaa pieneksi huomioiden skandit            -
**    jono_isoksi            - muuttaa jonon kaikki merkit isoiksi            -
**    jono_pieneksi          - muuttaa jonon kaikki merkit pieniksi           -
**    jono_alku_isoksi       - muuttaa jonon kaikki sanojen alut isoiksi
**                             ja kaikki muut pieniksi                        -
**    wildmat                - vertaa onko sana == maski, miss„ maskissa
**                             voi olla jokeri-merkkej„ (* tai ?)             -
**    onko_samat             - ensin muutetaan jonot isoiksi ja poistetaan
**                             tyhj„t ja sitten wildmat
**                             (eli "  Kalle " == "    k*  ")                 -
**    palanen                - ottaa merkkijonosta seuraavan erotinmerkkien
**                             m„„r„„m„n palasen                              -
**    laske_merkit           - laskee annettujen merkkien esiintymism„„r„n
**                             merkkijonossa                                  -
**    paikka                 - palauttaa kirjaimen 1. indeksin merkkijonossa  -
**    tayta_valit            - t„ytt„„ sy”t”n "A-F" muotoon "ABCDEF"          -
**    joku_jono              - vastaa kysymykseen onko "EY" joku jonoista
**                             "EU|EY|EL"                                     -
**    jono_arvosanaksi       - muuttaa merkkijonon "7-" reaaliluvuksi 6.75
**    arvosana_jonoksi       - muuttaa reaaliluvun 6.75 merkkijonoki "7-"
**    sallituissa            - paluttaa -1 jos tutkittavan jonon kaikki
**                             merkit ovat annetussa joukossa, muuten
**                             1. v„„r„n merkin indeksin                      -
**    poista_merkit          - poistaa jonosta kaikki valitut merkit          -
**    poista_alusta          - poistaa merkkej„ jonon alusta                  -
**    lisaa_alkuun           - lis„„ merkkej„ jonon alkuun                    -
**    lisaa_merkki           - lis„„ merkin merkkijonon valittuun kohtaan     -
**    vaihda_jonot           - vaihtaa jonossa merkit toisiksi                -
**    muunna_C_symbolit      - muuttaa \t, \n ja \0x61 muotoiset              -
**                             C-symbolit vastaaviksi merkeiksi
**--------------------------------------------------------------------------*/
#ifndef __MJONOTPP_H
#define __MJONOTPP_H
#include <stdlib.h>
#include <string>
using namespace std;
#include "mjonot.h"
#include "ioali.h"

//----------------------------------------------------------------------------
inline int lue_jono_oletus(const char *hopute,
                           int  oletus_alku, int  jonon_alku,
                           const char *oletus,
                           string &st)
// Lukee jonon p„„tteelt„
{
  char s[200];
  int ret=lue_jono_oletus(hopute,oletus_alku,jonon_alku,oletus,N_S(s));
  st = s;
  return ret;
}

inline int lue_jono_oletus(const char *hopute,
                           int  oletus_alku, int  jonon_alku,
                           string &st)
// Lukee jonon p„„tteelt„
{
  return lue_jono_oletus(hopute,oletus_alku,jonon_alku,st.c_str(),st);
}

//----------------------------------------------------------------------------
inline int remove(const string &st)
// Poistaa tiedoston levylta.
{
  return remove(st.c_str());
}

//----------------------------------------------------------------------------
inline int onko_tiedostoa(const string &st) {
  return onko_tiedostoa(st.c_str());
}

//----------------------------------------------------------------------------
inline int rename(const string &vanha,const string &uusi) {
  return rename(vanha.c_str(),uusi.c_str());
}

int tarkennin_alku(const string &tied);
string &poista_tarkennin(string &tied);
string &laita_tarkennin(string &tied,const string &tark);
string &vaihda_tarkennin(string &tied,const string &tark);

istream &lue_rivi(istream &is,char *s,int max_koko);
istream &lue_rivi(istream &is,string &st);
istream &lue_rivi(istream &is,int &i,int def=0);

//----------------------------------------------------------------------------
inline char *tee_jono(const string &st) {
  return tee_jono(st.c_str());
}

inline int   kopioi_jono(char *s, int k, const string &st) {
  return kopioi_jono(s,k,st.c_str());
}

inline int   liita_jono(char *s, int k, const string &st) {
  return liita_jono(s,k,st.c_str());
}

#define CFUNC_TO_CPP(func)               \
  inline string &func(string &st)        \
  {                                      \
    char *s = tee_jono(st);              \
    func(s);                             \
    st = s;                              \
    free(s);                             \
    return st;                           \
  }

CFUNC_TO_CPP(poista_alkutyhjat)
CFUNC_TO_CPP(poista_lopputyhjat)
CFUNC_TO_CPP(poista_2_tyhjat)
CFUNC_TO_CPP(poista_tyhjat)
CFUNC_TO_CPP(poista_alku_ja_2_tyhjat)
CFUNC_TO_CPP(jono_pieneksi)
CFUNC_TO_CPP(jono_isoksi)
CFUNC_TO_CPP(jono_alku_isoksi)
CFUNC_TO_CPP(jono_1_isoksi)

inline int   wildmat(const string &st1, const string &st2) {
  return wildmat(st1.c_str(),st2.c_str());
}

inline int   onko_samat(const string &st1, const string &st2) {
  return onko_samat(st1.c_str(),st2.c_str());
}

// inline char *palanen(char *, const char *, int *);

inline int   laske_merkit(const string &st, const string &mitka) {
  return laske_merkit(st.c_str(),mitka.c_str());
}

inline int   paikka(string &st,char ch) {
  return paikka(st.c_str(),ch);
}


inline string &tayta_valit(string &st1,const string &st2,const char *s3) {
  char s[200];
  tayta_valit(s,sizeof(s),st2.c_str(),s3);
  st1 = s;
  return st1;
}

inline string &tayta_valit(string &st1,const string &st2,const string &st3)
{
  return tayta_valit(st1,st2,st3.c_str());
}


inline int   joku_jono(const string &st1,const string &st2,const string &st3)
{
  return joku_jono(st1.c_str(),st2.c_str(),st3.c_str());
}


inline double jono_arvosanaksi(const string &st) {
  return jono_arvosanaksi(st.c_str());
}


// inline string arvosana_jonoksi_st(double d,char *nolla);

inline int   sallituissa(const string &st1,const string &st2) {
  return sallituissa(st1.c_str(),st2.c_str());
}

inline int   sallituissa(const string &st1,const char *s2) {
  return sallituissa(st1.c_str(),s2);
}

inline int   sallituissa(const char *s1,const string &st2) {
  return sallituissa(s1,st2.c_str());
}


inline string &poista_merkit(string &st,const char *mitka) {
  char *s = tee_jono(st);
  poista_merkit(s,mitka);
  st = s;
  free(s);
  return st;
}

inline string &poista_merkit(string &st,const string &st2) {
  return poista_merkit(st,st2.c_str());
}

inline string &poista_alusta(string &st, int n) {
  return st.remove(0,n);
}

inline int   lisaa_alkuun(string &st, const char *s2) {
  st.insert(0,s2);
  return 0;
}

inline string &lisaa_merkki(string &st,char mika,int mihin) {
  char s[2]; s[0]=mika; s[1]=0;
  return st.insert(mihin,s);
}

inline string &vaihda_jonot(string &st, const char *mika, const char *milla) {
  int len = strlen(st.c_str()) + 100;
  char *s = (char *)malloc(len);
  if ( s == NULL ) return st;
  vaihda_jonot(s,len,mika,milla);
  st = s;
  free(s);
  return st;
}

inline int muunna_C_symbolit(string &st) {
  char *s = tee_jono(st);
  int err = muunna_C_symbolit(s);
  st = s;
  free(s);
  return err;
}

#endif  /* __MJONOTPP_H */