/* Zadatak 7. */
/* Jasmina Strizak */

#include <stdio.h>

/*
   F-ja VadiNaslov (zajedno sa potrebnim deklaracijama/definicijama)  preuzeta iz resenja zadatka 6
   kolege Slijepcevic Dusana

 */
typedef enum {VTS_NFOUND=-1,VTS_OK,VTS_TOO_LONG} VTS_RESULT;
#define VTS_ERR -1
/* genericka greska */

#define INDENT 4
/* estetika... */

#define MAX_H 200
/*  maks. broj karaktera ne racunajuci
 *  umetnute, a ni <Hn..>/</Hn..> etikete
 */
const char szInvT[] = "Greska: Nedozvoljena etiketa u redu %.4d !\n";
const char szAttr[] = "Greska: Nedozvoljeni atribut etikete naslova u redu %.4d !\n";
const char szSPC [] = "Upozorenje: Blanko karakter(i) posle \"<\" karaktera u redu %.4d !\n";
int red=1;

/****************************************************************************
 *
 *  int VadiNaslov(char*,int*)   - F-ja koja "chupa":) naslov iz ulaznog stream-a
 *
 *  Parametri:
 *    - buf: pointer na buffer duzine [MAX_H+1] koji ce prihvatiti izdvojeni naslov
 *    - lev: adresa promenljive u kojoj se vraca "dubina" naslova (n od "<Hn...>")
 *
 *  Buf ce po uspesnom "vadjenju" sadrzati naslov sa sledecim osobinama:
 *    - Sve ugnjezdene etikete (<i>...</i> i sl.) ce biti uklonjene
 *    - Ugnjezdeni <Hn...> tagovi nisu dozvoljeni
 *    - Izbacuju se i <Hn></Hn> tagovi - "dubina" se vraca u promenljivoj lev
 *    - <Hn...> etiketa ne sme imati dodatne atribute (align=...)
 *    - Svako pojavljivanje '\n' unutar naslova bice zamenjeno ' ' karakterom
 *    - Maksimalna dozvoljena duzina za tako "cist" naslov je MAX_H karaktera (bez '\0')
 *
 *  Povratne vrednosti:
 *    - VTS_NFOUND:     U tekstu (vise) nema naslova
 *    - VTS_OK:         Naslov je uspesno izdvojen!
 *    - VTS_TOO_LONG:   Duzina "cistog" naslova (bez ikakvih tagova) > MAX_H karaktera
 *
 *  Napomena:
 *    Funkcija detektuje i suvisne (nedozvoljene) '<' '>' karaktere, vodi
 *    racuna o "<!...>" komentarima, o dodatnim atributima <Hn...> etikete
 *    kao i o jos nekim stvarima... (SCRIPT tagovi se ovde ne racunaju:)
 *
 ****************************************************************************/

int VadiNaslov(char *buf,int *lev)
{
  int c;    /* vrlo "zaposlena" promenljiva */
  int i;    /* indeks buf niza */
  int n;    /* "dubina" naslova (n od "<Hn...>") */
  int inT;  /* fleg - da li smo u tagu, tj. izmedju '<' i '>' ? */
  int inC;  /* fleg - da li smo u komentaru "<!...>" ? */
  int inH;  /* fleg - da li smo _izmedju_ "<Hn...>" i "</Hn...>" ? */

  inT=inH=inC=i=n=*buf=buf[MAX_H]=0;
  while ((c=getc(stdin))!=EOF) {
    switch(c) {
    case '<':
      if (inC) continue;
      else if ((c=getc(stdin))!=EOF) {
        inT=1;
        switch(c) {
        case '!': inT=0; inC=1; break;
        case '/':
          if (inH && (c=getc(stdin))=='h'||c=='H') {
            if ((c=getc(stdin))==n) {  /* "</H" */
              if ((c=getc(stdin))!=' ' && c!= '\t'&&
                   c!='\n' && c!='>') {
                fprintf(stderr,szInvT,red);
                return VTS_NFOUND;
              }
              for (;c!=EOF && (c==' '||c=='\t'||
                    c=='\n');c=getc(stdin))
                if (c=='\n') red++;    /* "</Hn ???" */
                if (c==EOF) {
                  fprintf(stderr,szInvT,red);
                  return VTS_NFOUND;
                } else if (c!='>') {
                  fprintf(stderr,szAttr,red);
                  return VTS_NFOUND;
                } else if (i<=MAX_H) { /* "</Hn ... >" */
                  inT=buf[i]=0;
                  *lev = (int) (n-'0');
                  return VTS_OK;
                } else return VTS_TOO_LONG;
            }  /* c!=n "</Hx" */
            else if (c=='\n'||c=='\t'||c==' ')
              fprintf(stderr,szSPC,c=='\n'?++red:red);
          }   /* "</x" */
          break;

        case 'h':
        case 'H':   /* "<H?" */
          if ((c=getc(stdin))>='1' && c<='6') {
            if (inH) {
              fprintf(stderr,"Greska: Ugnjezdene <Hn...>"
                " etikete! Red: %.4d\n",red);
              return VTS_NFOUND;
            }
            n=c;
            if ((c=getc(stdin))!=' '&& c!='\t'&&
                 c!='\n'&& c!='>') {
              fprintf(stderr,szInvT,red);
              return VTS_NFOUND;
            }
            for (;c!=EOF && (c==' '||c=='\t'||
                  c=='\n');c=getc(stdin))
              if (c=='\n') red++;
              if (c==EOF) {
                fprintf(stderr,szInvT,red);
                return VTS_NFOUND;
              } else if (c!='>') {
                fprintf(stderr,szAttr,red);
                return VTS_NFOUND;
              } else inT=0,inH=1; /* "Hn ... >" */
          }   /* "<Hx> */
          else if (c=='\n'||c=='\t'||c==' ')
            fprintf(stderr,szSPC,c=='\n'?++red:red);
          break;

        case '\n': /* "<[SPC]" */
        case '\t':
        case ' ' :
          fprintf(stderr,szSPC,c=='\n'?++red:red);
          break;
        } /* switch #2 */
      }  /* "<?" */
      break;

    case '>':
      if (inC) inC=0;
      else if (inT) inT=0;
      else {
        fprintf(stderr,"Greska: Etiketa nije otvorena! Red: %.4d\n",red);
        return VTS_NFOUND;
      }
      break;

    case '\n':
      ++red;
      c=' ';   /* zameni '\n' sa ' ' */
    default:   /* ovde nema break-a  */
      if (inH && !inT && !inC) {
        if (i<MAX_H) buf[i++]=c;
        else return VTS_TOO_LONG;
      }
      break;
    }
  }

  if (inT||inC||inH)
    fprintf(stderr,"Greska: Etiketa nije zatvorena! Red: %.4d\n",red);

  return VTS_NFOUND;
}


int UporediChar(char x, char y)
{
  if ((64 < x) && (x < 91)) x += 32;
  if ((64 < y) && (y < 91)) y += 32;
  if (x == y)
    return 0; /* Karakteri su isti */
  else
    return 1;
}

int prevodilaca(const char *tex, char *res)
{
  /* Deklaracije promenljivih */
  int i;
  int j;
  int s;
  int k;
  int r;
  char s1[200];
  char s2[200];
  char s3[200];
  /* Deklaracije tabela brojeva */
  int brojv[27];
  char* brojt[27];
  /* Genirise tabelu tekstova brojeva */
  brojt[ 0] = "Devedeset";
  brojt[ 1] = "Osamdeset";
  brojt[ 2] = "Sedamdeset";
  brojt[ 3] = "Sezdeset";
  brojt[ 4] = "Pedeset";
  brojt[ 5] = "Cetrdeset";
  brojt[ 6] = "Trideset";
  brojt[ 7] = "Dvadeset";
  brojt[ 8] = "Devetnaest";
  brojt[ 9] = "Osamnaest";
  brojt[10] = "Sedamnaest";
  brojt[11] = "Sesnaest";
  brojt[12] = "Petnaest";
  brojt[13] = "Cetrnaest";
  brojt[14] = "Trinaest";
  brojt[15] = "Dvanaest";
  brojt[16] = "Jedanaest";
  brojt[17] = "Deset";
  brojt[18] = "Devet";
  brojt[19] = "Osam";
  brojt[20] = "Sedam";
  brojt[21] = "Sest";
  brojt[22] = "Pet";
  brojt[23] = "Cetiri";
  brojt[24] = "Tri";
  brojt[25] = "Dva";
  brojt[26] = "Jedan";
  /* Generise tabelu vrednosti brojeva */
  brojv[ 0] = 90;
  brojv[ 1] = 80;
  brojv[ 2] = 70;
  brojv[ 3] = 60;
  brojv[ 4] = 50;
  brojv[ 5] = 40;
  brojv[ 6] = 30;
  brojv[ 7] = 20;
  brojv[ 8] = 19;
  brojv[ 9] = 18;
  brojv[10] = 17;
  brojv[11] = 16;
  brojv[12] = 15;
  brojv[13] = 14;
  brojv[14] = 13;
  brojv[15] = 12;
  brojv[16] = 11;
  brojv[17] = 10;
  brojv[18] =  9;
  brojv[19] =  8;
  brojv[20] =  7;
  brojv[21] =  6;
  brojv[22] =  5;
  brojv[23] =  4;
  brojv[24] =  3;
  brojv[25] =  2;
  brojv[26] =  1;
  /* Razdvajanje stringova */
  i = 0;
  j = 0;
  while ((tex[i] != '[') && (tex[i] != '\0'))
    {
      s1[j] = tex[i];
      j++;
      i++;
    }
  s1[j] = '\0';
  i++;
  j = 0;
  while ((tex[i] != ']') && (tex[i] != '\0'))
    {
      s2[j] = tex[i];
      j++;
      i++;
    }
  s2[j] = '\0';
  i++;
  j = 0;
  while (tex[i] != '\0')
    {
      s3[j] = tex[i];
      j++;
      i++;
    }
  s3[j] = '\0';
  /* Konverzija */
  r = 0;
  s = 1;
  i = 0;
  while ((s2[i] != '\0') && (s == 1))
    {
      s = 0;
      j = 0;
      while ((j < 27) && (s == 0))
	{
	  k = 0;
	  while ((UporediChar(s2[i + k], brojt[j][k]) == 0) && ((s2[i + k] != '\0') && (brojt[j][k] != '\0')))
	    {
	      k++;
	    }
	  if (brojt[j][k] == '\0')
	    {
	      i += k;
	      r += brojv[j];
	      s = 1;
	    }
	  j++;
	}
    }
  /* Rezultat */
  if (s == 1)
    sprintf(res, "%s%d.%s", s1, r, s3);
  else
    sprintf(res, tex);
  return r;
}

int prevodilacr(const char *tex, char *res)
{
  /* Deklaracije promenljivih */
  int i;
  int j;
  int s;
  int k;
  int r;
  char s1[200];
  char s2[200];
  char s3[200];
  char temp1[200] = "";
  char temp2[200] = "";
  /* Deklaracije tabela brojeva */
  int brojv[27];
  char* brojr[27];
  char* brojt[27];
  /* Genirise tabelu tekstova brojeva */
  brojt[ 0] = "Devedeset";
  brojt[ 1] = "Osamdeset";
  brojt[ 2] = "Sedamdeset";
  brojt[ 3] = "Sezdeset";
  brojt[ 4] = "Pedeset";
  brojt[ 5] = "Cetrdeset";
  brojt[ 6] = "Trideset";
  brojt[ 7] = "Dvadeset";
  brojt[ 8] = "Devetnaest";
  brojt[ 9] = "Osamnaest";
  brojt[10] = "Sedamnaest";
  brojt[11] = "Sesnaest";
  brojt[12] = "Petnaest";
  brojt[13] = "Cetrnaest";
  brojt[14] = "Trinaest";
  brojt[15] = "Dvanaest";
  brojt[16] = "Jedanaest";
  brojt[17] = "Deset";
  brojt[18] = "Devet";
  brojt[19] = "Osam";
  brojt[20] = "Sedam";
  brojt[21] = "Sest";
  brojt[22] = "Pet";
  brojt[23] = "Cetiri";
  brojt[24] = "Tri";
  brojt[25] = "Dva";
  brojt[26] = "Jedan";
  /* Generise tabelu rezultata brojeva */
  brojr[ 0] = "XC";
  brojr[ 1] = "LXXX";
  brojr[ 2] = "LXX";
  brojr[ 3] = "LX";
  brojr[ 4] = "L";
  brojr[ 5] = "XL";
  brojr[ 6] = "XXX";
  brojr[ 7] = "XX";
  brojr[ 8] = "IXX";
  brojr[ 9] = "XVIII";
  brojr[10] = "XVII";
  brojr[11] = "XVI";
  brojr[12] = "XV";
  brojr[13] = "XIV";
  brojr[14] = "XIII";
  brojr[15] = "XII";
  brojr[16] = "XI";
  brojr[17] = "X";
  brojr[18] = "IX";
  brojr[19] = "VIII";
  brojr[20] = "VII";
  brojr[21] = "VI";
  brojr[22] = "V";
  brojr[23] = "IV";
  brojr[24] = "III";
  brojr[25] = "II";
  brojr[26] = "I";
  /* Generise tabelu vrednosti brojeva */
  brojv[ 0] = 90;
  brojv[ 1] = 80;
  brojv[ 2] = 70;
  brojv[ 3] = 60;
  brojv[ 4] = 50;
  brojv[ 5] = 40;
  brojv[ 6] = 30;
  brojv[ 7] = 20;
  brojv[ 8] = 19;
  brojv[ 9] = 18;
  brojv[10] = 17;
  brojv[11] = 16;
  brojv[12] = 15;
  brojv[13] = 14;
  brojv[14] = 13;
  brojv[15] = 12;
  brojv[16] = 11;
  brojv[17] = 10;
  brojv[18] =  9;
  brojv[19] =  8;
  brojv[20] =  7;
  brojv[21] =  6;
  brojv[22] =  5;
  brojv[23] =  4;
  brojv[24] =  3;
  brojv[25] =  2;
  brojv[26] =  1;
  /* Razdvajanje stringova */
  i = 0;
  j = 0;
  while ((tex[i] != '[') && (tex[i] != '\0'))
    {
      s1[j] = tex[i];
      j++;
      i++;
    }
  s1[j] = '\0';
  i++;
  j = 0;
  while ((tex[i] != ']') && (tex[i] != '\0'))
    {
      s2[j] = tex[i];
      j++;
      i++;
    }
  s2[j] = '\0';
  i++;
  j = 0;
  while (tex[i] != '\0')
    {
      s3[j] = tex[i];
      j++;
      i++;
    }
  s3[j] = '\0';
  /* Konverzija */
  r = 0;
  s = 1;
  i = 0;
  while ((s2[i] != '\0') && (s == 1))
    {
      s = 0;
      j = 0;
      while ((j < 27) && (s == 0))
	{
	  k = 0;
	  while ((UporediChar(s2[i + k], brojt[j][k]) == 0) && ((s2[i + k] != '\0') && (brojt[j][k] != '\0')))
	    {
	      k++;
	    }
	  if (brojt[j][k] == '\0')
	    {
	      i += k;
	      r += brojv[j];
	      sprintf(temp1, "%s%s", temp2, brojr[j]);
	      sprintf(temp2, "%s", temp1);
	      s = 1;
	    }
	  j++;
	}
    }
  /* Rezultat */
  if (s == 1)
    sprintf(res, "%s%s%s", s1, temp2, s3);
  else
    sprintf(res, tex);
  return r;
}

int prevodilacd(const char *tex, char *res)
{
  /* Deklaracije promenljivih */
  int i;
  int j;
  int s;
  int k;
  int r;
  int e;
  int rod;
  char s1[200];
  char s2[200];
  char s3[200];
  char temp1[200] = "";
  char temp2[200] = "";
  /* Deklaracije tabela brojeva */
  int brojv[27];
  char* brojr[27];
  char* brojt[27];
  /* Genirise tabelu tekstova brojeva */
  brojt[ 0] = "Devedeset";
  brojt[ 1] = "Osamdeset";
  brojt[ 2] = "Sedamdeset";
  brojt[ 3] = "Sezdeset";
  brojt[ 4] = "Pedeset";
  brojt[ 5] = "Cetrdeset";
  brojt[ 6] = "Trideset";
  brojt[ 7] = "Dvadeset";
  brojt[ 8] = "Devetnaest";
  brojt[ 9] = "Osamnaest";
  brojt[10] = "Sedamnaest";
  brojt[11] = "Sesnaest";
  brojt[12] = "Petnaest";
  brojt[13] = "Cetrnaest";
  brojt[14] = "Trinaest";
  brojt[15] = "Dvanaest";
  brojt[16] = "Jedanaest";
  brojt[17] = "Deset";
  brojt[18] = "Devet";
  brojt[19] = "Osam";
  brojt[20] = "Sedam";
  brojt[21] = "Sest";
  brojt[22] = "Pet";
  brojt[23] = "Cetiri";
  brojt[24] = "Tri";
  brojt[25] = "Dva";
  brojt[26] = "Jedan";
  /* Generise tabelu rezultata brojeva */
  brojr[ 0] = "Devedeset";
  brojr[ 1] = "Osamdeset";
  brojr[ 2] = "Sedamdeset";
  brojr[ 3] = "Sezdeset";
  brojr[ 4] = "Pedeset";
  brojr[ 5] = "Cetrdeset";
  brojr[ 6] = "Trideset";
  brojr[ 7] = "Dvadeset";
  brojr[ 8] = "Devetnaest";
  brojr[ 9] = "Osamnaest";
  brojr[10] = "Sedamnaest";
  brojr[11] = "Sesnaest";
  brojr[12] = "Petnaest";
  brojr[13] = "Cetrnaest";
  brojr[14] = "Trinaest";
  brojr[15] = "Dvanaest";
  brojr[16] = "Jedanaest";
  brojr[17] = "Deset";
  brojr[18] = "Devet";
  brojr[19] = "Osm";
  brojr[20] = "Sedm";
  brojr[21] = "Sest";
  brojr[22] = "Pet";
  brojr[23] = "Cetvrt";
  brojr[24] = "Trec";
  brojr[25] = "Drug";
  brojr[26] = "Prv";
  /* Generise tabelu vrednosti brojeva */
  brojv[ 0] = 90;
  brojv[ 1] = 80;
  brojv[ 2] = 70;
  brojv[ 3] = 60;
  brojv[ 4] = 50;
  brojv[ 5] = 40;
  brojv[ 6] = 30;
  brojv[ 7] = 20;
  brojv[ 8] = 19;
  brojv[ 9] = 18;
  brojv[10] = 17;
  brojv[11] = 16;
  brojv[12] = 15;
  brojv[13] = 14;
  brojv[14] = 13;
  brojv[15] = 12;
  brojv[16] = 11;
  brojv[17] = 10;
  brojv[18] =  9;
  brojv[19] =  8;
  brojv[20] =  7;
  brojv[21] =  6;
  brojv[22] =  5;
  brojv[23] =  4;
  brojv[24] =  3;
  brojv[25] =  2;
  brojv[26] =  1;
  /* Razdvajanje stringova */
  i = 0;
  j = 0;
  while ((tex[i] != '[') && (tex[i] != '\0'))
    {
      s1[j] = tex[i];
      j++;
      i++;
    }
  s1[j] = '\0';
  i++;
  j = 0;
  while ((tex[i] != ']') && (tex[i] != '\0'))
    {
      s2[j] = tex[i];
      j++;
      i++;
    }
  s2[j] = '\0';
  i++;
  j = 0;
  while (tex[i] != '\0')
    {
      s3[j] = tex[i];
      j++;
      i++;
    }
  s3[j] = '\0';
  /* Konverzija */
  r = 0;
  s = 1;
  i = 0;
  while ((s2[i] != '\0') && (s == 1))
    {
      s = 0;
      j = 0;
      while ((j < 27) && (s == 0))
	{
	  k = 0;
	  while ((UporediChar(s2[i + k], brojt[j][k]) == 0) && ((s2[i + k] != '\0') && (brojt[j][k] != '\0')))
	    {
	      k++;
	    }
	  if (brojt[j][k] == '\0')
	    {
	      i += k;
	      r += brojv[j];
	      sprintf(temp1, "%s%s", temp2, brojr[j]);
	      sprintf(temp2, "%s", temp1);
	      s = 1;
	    }
	  j++;
	}
    }
  /* Da li je u naslovu samo broj */
  i = 0;
  while (s3[i] == ' ')
    i++;
  e = 0;
  if (s3[i] == '<')
    {
      e = 1;
    }
  /* Utvrdjivanje roda */
  i = 1;
  while ((s3[i] != '<') && (s3[i] != '\0'))
    i++;
  i--;
  while (s3[i] == ' ')
    i--;
  rod = 0; /* Muski */
  switch (s3[i])
    {
      case 'a':
      case 'A': rod = 1; break; /* Zenski */
      case 'o':
      case 'O':
      case 'e':
      case 'E': rod = 2; /* Srednji */
		if (i > 0)
		  {
		    switch (s3[i - 1])
		      {
			case 'a':
			case 'A':
			case 'e':
			case 'E':
			case 'i':
			case 'I':
			case 'o':
			case 'O':
			case 'u':
			case 'U': rod = 0; break; /* Muski */
		      }
		  }
		break;
    }
  /* Rezultat */
  if ((s == 1) && (e == 0))
    {
      switch (rod)
	{
	  case 0: sprintf(res, "%s%si%s", s1, temp2, s3); break; /* Muski */
	  case 1: sprintf(res, "%s%sa%s", s1, temp2, s3); break; /* Zenski */
	  case 2: sprintf(res, "%s%so%s", s1, temp2, s3); break; /* Srednji */
	}
    }
  else
    sprintf(res, tex);
  return r;
}

int prevodilac(const char *ulaz, char kod, char *izlaz)
{
  switch (kod)
    {
      case 'a':
      case 'A': return prevodilaca(ulaz, izlaz);
      case 'r':
      case 'R': return prevodilacr(ulaz, izlaz);
      case 'd':
      case 'D': return prevodilacd(ulaz, izlaz);
    }
}

int main()
{
   VTS_RESULT res;
   char naslov[MAX_H+1];
   int d,eXists = 0;
   
   int r;
   char* izlaz = (char*)malloc(200, sizeof(char));
 
 while ((res = VadiNaslov(naslov,&d)) != VTS_NFOUND)
   {
    eXists = 1;
    if (res == VTS_TOO_LONG)
       {
       fprintf(stderr, "\nGreska: Predugacak naslov "
        "(maks. 200 karaktera):\n%s\n", naslov);
       break;
       }
    printf("%s\n", naslov);
    r = prevodilac(naslov, 'a', izlaz);
    printf("a %d %s\n", r, izlaz);
    r = prevodilac(naslov, 'r', izlaz);
    printf("r %d %s\n", r, izlaz);
    r = prevodilac(naslov, 'd', izlaz);
    printf("d %d %s\n", r, izlaz);
  }

  if (!eXists) printf("U tekstu nema naslova.\n");
  return 0;
}