/*version for cv*/
 #include <stdio.h>
 #include <stdlib.h>
 /*#include <conio.h>       */
 #include <string.h>

 void skobka();
 void napravl();
 void tt_short();
 void tema();
 void title_beg();
 void fieldn();

 FILE *sf,*of;
 FILE *tff, *tff1;

 int stop;
 int i1;
 int j;
 int field1, field2;
 int lnapr;
 int lvrem;
 int ltema;
 int vrlong;
 int color;
 char sfield1, sfield2;
 char memo;			  /*направление */
 char title[60][6];
 char namenapr[10][40];
 char vrem[10];
main()
/*void all_theme()*/
{
int i,index;

char letter;

char sfile[10];

puts ("What is the name of input file?\n");
  gets(sfile);
if ((sf=fopen(sfile, "r"))==NULL)
 {
        printf ("it is impossible to open sfile%s",sfile);
		 fclose(sf);
        exit(0);
 }
if ((of=fopen("titl", "w"))==NULL)			/*список номеров тем*/

        {
        printf("it is impossible to open file 'titl'");
        fclose(of);
        exit(0);
        }
if ((tff=fopen("tit_full.htm", "w"))==NULL)		/*титульный лист с направлениями*/
        {
        printf("it is impossible to open file 'tit_full.htm'");
        fclose(tff);
        exit(0);
        }
if ((tff1=fopen("tit_1", "a"))==NULL)
       {
       printf("it is impossible to open file 'tit_1'"); /*оглавление-темы*/
	                                                    /*промежуточный файл*/
       fclose(tff1);
       exit(0);
       }
i1=0;
stop=0;
index=2;
lnapr=0;
j=0;
memo='0';
title_beg();

skobka();
sfield1='0';
sfield2='1';
field2=index-1;
/*printf("field1=%d field2=%d \n",field1,field2);*/
napravl();
color=1;
while(index<12)
{
skobka();

if((letter=fgetc(sf))=='0'||letter=='1')
{
vrem[0]=letter;

if(color>0)
{
fputs("<TR bgcolor=\"#cccccc\">",tff1);
}
else
{
fputs("\n <tr>",tff1);
}
fputs("<td valign=top>",tff1);
fputs("<A HREF=\"a0",tff1);
sfield1=letter;
tt_short();
printf("ltema=%d\n",ltema);/*17.1.05*/
for(i=0; i<5; i++)
{
letter=title[i1-1][i];

/*putchar(letter);*/
fputc(letter,tff1);
}
fputs(".htm\">",tff1);
for(j=0; j<lvrem; j++)
{
letter=vrem[j];
fputc(letter,tff1);
}
tema();
}
else
{
memo=letter;
index++;
if(index<12)
{
fputs("</TABLE></CENTER>",tff1);

if(index<11)
{
field2=index-1;
}
else
{
field2=0;
sfield1='1';
}

letter=	field2;
napravl();
/*letter=getchar();*/
if(color>0)
{
color=0;
}
else
{
 color=1;
}
}
else
{
fputs("</TABLE></CENTER>",tff);
letter=EOF;
fputc(letter,tff1);
fclose(tff1);
rewind(tff1);
if ((tff1=fopen("tit_1", "r"))==NULL)
       {
       printf("it is impossible to open file 'tit_1'"); /*оглавление-темы*/
	                                                    /*промежуточный файл*/
       fclose(tff1);
	   }
letter='\n';
fputc(letter,tff);
while((letter=fgetc(tff1))!=EOF)
{
fputc(letter,tff);
}
fputs("\n </table> \n </body></html>",tff);
/*fputs("\n </table> \n </body></html>",tff1);*/	 /*??*/
letter=EOF;
fputc(letter,of);
/*fputs("end,EOF",of);*/
fputc(letter,tff);
/*fputc(letter,tff1);	*/			/*??*/
/*fputs("EOF",tff);*/

fclose(tff1);				   /*??*/
fclose(sf);
fclose(of);
fclose(tff);
continue;
}

}

continue;
}

letter=EOF;
fputc(letter,of);
/*fputs("EOF",of);*/
fputc(letter,tff);
/*fputs("EOF",tff);	*/

fclose(sf);
fclose(of);
fclose(tff);
 return(0);
}

/*---------------------------------*/
void skobka()
 {
	 char letter,letter1;
   do
            {
			letter=fgetc(sf);
			/*putchar(letter);*/
			if(letter=='{')
			{
			 return;
			}
			if(letter==EOF||letter==NULL)
			{
			fclose(sf);
            fclose(of);
			/*stop=1;*/
			return;
			}


			/*letter1=getchar();*/
            }
   while(letter!=EOF||letter!=NULL );
	return;
 }

/*---------------------------------*/
 void napravl()
 {
  char letter;
  int i;
  /*int lnapr;*/
  /*int ltema;*/
  /*lnapr=index-1;*/
  i=0;
 puts("napravl");/*17.1.05*/
 fputs("<TR bgcolor=\"#cccccc\">\n",tff);
 fputs("<TD colspan=3><A HREF=\"#",tff);
/* fputs("<TR bgcolor=\"#cccccc\">",tff1);
 fputs("<TD colspan=3><A HREF=\"#",tff1);*/
 fputs("<H2 ALIGN=CENTER><A NAME=\"",tff1);

 if(lnapr>0)
 {
 fputc(memo,tff);
 fputc(memo,tff1);
 namenapr[lnapr][i]=memo;
 puts("\n lnapr_i="); /*17.1.05*/
 putchar(memo);
 getchar();
 i++;
 }
 while((letter=fgetc(sf))!='\n')
 {											/*1 */
 if(letter=='}')
  {
   continue;
  }
else
  {
  if(letter!='\\')
  {
  if(letter!='\n')
  {
  fputc(letter,tff);
  fputc(letter,tff1);
  namenapr[lnapr][i]=letter;
  putchar(letter);
  i++;
  }
  }


  }
 }											/*-1 */
fputs("  ",tff);
/*fputs("(",tff);*/
namenapr[lnapr][i]=' ';
i++;
namenapr[lnapr][i]='(';
i++;
fieldn();
/*fputc(sfield1,tff);
fputc(sfield1,tff1); */
namenapr[lnapr][i]=sfield1;
i++;
/*fputc(sfield2,tff);
fputc(sfield2,tff1); */
namenapr[lnapr][i]=sfield2;
i++;
/*fputs(")",tff);*/
namenapr[lnapr][i]=')';
i++;
/*printf("sfield1=%c sfield2=%c \n",sfield1,sfield2);*/
/*letter='\n'	;
fputc(letter,tff);
fputc(letter,tff1);	*/
namenapr[lnapr][i]='\0';
/*i++; */
ltema=i;
/*printf(" *ltema=%d",ltema);*/
fputs("\"><B>",tff);
fputs("\"></A>",tff1);
puts("\"><B>");
for (i=0;i<ltema;i++)
{
fputc((namenapr[lnapr][i]),tff);
fputc((namenapr[lnapr][i]),tff1);
letter=namenapr[lnapr][i];
putchar(letter);
}
fputs("</B></A></TD></TR>",tff);
puts("</B></A></TD></TR>");
fputs("</H2>\n",tff1);
fputs("<CENTER><TABLE WIDTH=\"100%\" >\n",tff1);
color=0;

lnapr++;
if(lnapr>6)
{
	fclose(tff1);
	fclose(tff1);
}
return;
 }

/*---------------------------------*/
void tt_short()
/*формируется файл номеров тем */
{
char letter;
int i;
j=1;
for( i=0; i<2; i++)
 {
 letter=fgetc(sf);
 vrem[j]=letter;
 j++;
 if(i<1)
 {
  sfield2=letter;
 }
 }
  letter=fgetc(sf);
  vrem[j]=letter;
  j++;
  /*fputc(letter,tff1);*/
 title[i1][0]=letter;
 fputc(letter,of);

 /*putchar(letter);
 puts("\n ");*/
 letter=fgetc(sf);
 vrem[j]=letter;
 j++;
 /*fputc(letter,tff1);*/
 /*putchar(letter);*/
 for( i=0; i<4; i++)
 {									/*3 */
 letter=fgetc(sf);
 vrem[j]=letter;
 /*printf("\n vrem(%d)=%s\n",j,vrem); */
 j++;
 /*fputc(letter,tff1);*/
 /*putchar(letter);*/
 title[i1][i+1]=letter;
 fputc(letter,of);
 printf ("\ni1=%d title=%s",i1,title[i1]);/*17.1.05*/
 } 									   /*-3 */
 fputs("\n",of);
 vrem[j]='\0';
 lvrem=j;
 j++;
 title[i1][i+1]='\0';
 i1++;
return;
}

/*---------------------------------*/
void tema()
{
char letter;
int n;
int i;
n=0;
do
{
letter=fgetc(sf);
  if(letter!='\\')
  {
  if(letter=='}')
  {
  if(n<1)
  {
  fputs("</A> </B>",tff1);
  }
  fputs("</td>",tff1);
   n++;
  if(n<3)
  {
  if(n<2)
  {
   fputs("<td valign=top>",tff1);
  fputs("<B><A HREF=\"a0",tff1);
  for(j=0; j<5; j++)
  {
  letter=title[i1-1][j];
  fputc(letter,tff1);
  }
  fputs(".htm\">",tff1);

  skobka();
  }
  else
  {
  fputs("<td nowrap valign=top>",tff1);
  }
  }
  else
  {
  fputs("</tr>",tff1);
  if(color>0)
  {
  color=0;
  }
  else
  {
  color=1;
  }
  }
  }
  else
  {
  if(letter!='{')
  {
  fputc(letter,tff1);
  }
  }
  }
  else
  fputs("<br>",tff1);
putchar(letter);/*17.1.05*/
}
while(letter!='\n');

letter='\n'	;
if(letter!='{')
  {
  fputc(letter,tff1);
  }
/*letter=getchar();*/
return;
}

/*---------------------------------*/
void title_beg()
{
puts("title");
fputs("	<HTML> \n <HEAD> \n ",tff);
fputs("<META HTTP-EQUIV=\"Content-Type\"",tff);
fputs("CONTENT=\"text/html;",tff);
fputs("charset=windows-1251\">\n",tff);
fputs("<TITLE>PTPe-2010 </TITLE> \n </HEAD> \n",tff);
fputs("<BODY BGCOLOR=\"#FFFFFF\">\n",tff);
fputs("<P><IMG SRC=\"jinr.gif\" ",tff);
fputs("HSPACE=-25  ALIGN=TEXTTOP></P>\n",tff);
fputs("<H2>TOPICAL PLAN<br> ",tff);
fputs("FOR JINR RESEARCH ",tff);
fputs("INTERNATIONAL COOPERATION ",tff);
fputs("2010	</H2>\n",tff);
fputs("<CENTER>\n<TABLE WIDTH=\"100%\" >	\n",tff);
/*fputs("<TABLE WIDTH=\"100%\" >	\n",tff1);*/

return;
}

/*---------------------------------*/
void title_napr()
{
puts("title_napr");
fputs("<TR bgcolor=\"#cccccc\"> ",tff);
fputs("<TD colspan=3><A HREF=\"#",tff);

fputs("</A></TD> \n </TR> ",tff);

return;
}

/*---------------------------------*/
void fieldn()
{
if(field2>0&field2<2)
{
sfield2='1';
}
if(field2>1&field2<3)
{
sfield2='2';
}
if(field2>2&field2<4)
{
sfield2='3';
}
if(field2>3&field2<5)
{
sfield2='4';
}
if(field2>4&field2<6)
{
sfield2='5';
}
if(field2>5&field2<7)
{
sfield2='6';
}
if(field2>6&field2<8)
{
sfield2='7';
}
if(field2>7&field2<9)
{
sfield2='8';
}
if(field2>8&field2<10)
{
sfield2='9';
}
if(field2<1)
{
sfield2='0';
}
/*printf("field2=%d sfield2=%c \n",field2,sfield2);*/
 return;
}