/*eng plan; version for cv*/ #include #include /*#include */ #include int comp; int comp1; int ngroup; int nblank; int nrest; int nrest1; int ind; int inl; int inm; int inpr; int inn; int jp; int nbr; int indempt; int ns; int k; int nst; int nstat; int new_stri; int jst; int contin; int sotr; int masleng; int diag; int order; int num_stat; char letmemo; char letmemo1; char field; char prevt[8]; char nextt[8]; char name[10],nam1[10]; char masout[90]; char outfile[13]; char infile[12]; char numb[5]; char massivf[25]; FILE *tf,*hf; FILE *ff, *of; void ps_item(); void beg_data(); void put_endbtd(); void put_list(); void put_list_int(); void finditem(); void ps(); void pl(); void slash(); void slashff(); void fname(); void fnameff(); void fname2(); void m_cmp_m1(); void fname5(); void m_cmp_m15(); void m_cmp_m12(); void letfind(); void t0(); void tstatus(); void tn(); void new_str(); void tl(); void tls(); void tld(); void ta(); void tc(); void search_tn(); void search_tl(); void search_tls(); void search_tld(); void search_ta(); void beg(); void beg_old(); void fitem(); void emp2(); void empt(); void empmas(); void status(); void coopstatus(); void procent(); void endbody1(); void shapka_end(); void shapka(); void num_theme(); void beg_tab(); void end_tab(); void beg_tab_stat_ps(); void gif(); void fsub1(); void fsup1(); void symb(); void symb1(); void alp(); void app(); void bet(); void bar(); void bullet(); void chi(); void cdot(); void circ(); void del(); void dellg(); void fdiv(); void epsil(); void eta(); void gamma(); void gamlg(); void geq(); void kappa(); void lambda(); void lambdalg(); void lag_bar(); void larr(); void leq(); void lrarr(); void mu(); void nu(); void nubar(); void omega(); void omegalg(); void phi(); void pi(); void prim(); void phi(); void psi(); void psilg(); void rarr(); void rho(); void sigma(); void sigmag(); void sim(); void tau(); void theta(); void times(); void to(); void varphi(); void vec(); void uparr(); void xeta(); void mbox(); #define HEAD "" #define ENDHEAD "" #define TITLE "" #define ENDTITLE "" #define H2 "

" #define ENDH2 "

" #define TL "Leader:   " #define TLS "Leaders:   " #define TLD "Deputy: " #define TC "Participating Countries, Institutes " #define TCA "and International organizations:
" #define BR "
" #define TA "
Scientific Programme:
" #define H3 "" #define ENDH3 "" #define ENDBODY "" #define ITEM "item " #define STA "List of Activities" #define STAGE "Activity or Experiment" #define EMPT "\ " #define H4 "

" #define ENDH4 "

" main() { char letter; char letter1; char letter2; char memo; int mem; int index; int index1; /* int contin;*/ int i,i1; int nenter; int step; char theme[5]; char mass[26]; char mas_num[10]; int searchf; int flag; int end_read; char ffile[11]; /* char infile[10], outfile[12];*/ end_read=0; mas_num[0]='0'; mas_num[1]='1'; mas_num[2]='2'; mas_num[3]='3'; mas_num[4]='4'; mas_num[5]='5'; mas_num[6]='6'; mas_num[7]='7'; mas_num[8]='8'; mas_num[9]='9'; /* mas_num[10]='10'; mas_num[11]='11'; mas_num[12]='12'; mas_num[13]='13'; mas_num[14]='14'; mas_num[15]='15';*/ letmemo='0'; nrest1=0; contin=1; order=0; searchf=0; index=0; putchar('\n'); puts ("What is the name of input file?\n"); gets(ffile); if ((ff=fopen(ffile, "r"))==NULL) { printf ("it is impossible to open ffile%s",ffile); fclose(ff); exit(0); } puts("__________________________"); puts("Do you want to choose the number of theme? (y/n)\n"); puts("If 'n', you can treat all themes "); puts("in this file one after another \n"); puts("If 'y', you can select number of a theme\n"); puts("__________________________"); puts("Type y or n \n"); letter=getchar(); if(letter=='y'||letter=='Y') { puts("Enter number of a theme (4 figures)\n"); scanf("%s",theme); puts(theme); strcpy(nam1,"TN{"); searchf=0; comp=0; while(searchf<1) { puts("start"); do { slashff(); fnameff(); m_cmp_m1(); } while(comp<3); if (comp=3) { num_theme(); for(i=0; i<4; i++) { if(theme[i]!=numb[i]) { comp=0; } else { comp++; } } if(comp>3) { searchf=1; /*printf("\n,searchf=%d",searchf); letter=getchar();*/ } } } /*while(searchf<1)*/ } /* y||Y*/ while(contin>0 ) { if (searchf>0) { contin=0; } printf("input file=%s \n",ffile); infile[0]='1'; for(i=1;i<12;i++){ infile[i]=ffile[i-1];} if ((tf=fopen(infile, "w"))==NULL) { printf ("it is impossible to open infile%s",infile); fclose(tf); exit(0); } printf("infile=%s \n",infile); /*---------Обрабатывается заданный номер темы -------*/ if (searchf>0) { letter='\n'; fputc(letter,tf); letter='\\'; fputc(letter,tf); letter='T'; fputc(letter,tf); letter='N'; fputc(letter,tf); letter='{'; fputc(letter,tf); letmemo=' '; i=0; while( i0) { letter=memo; mem=0; } else { letmemo=letter; letter=fgetc(ff); } while(flag<1) { flag=0; if(letter=='%'){ /*/Убираются комментарии */ if(letmemo=='\\'){ if(letmemo1!='\\') { fputc(letter,tf); flag=1; continue; } else { procent(); flag=1; continue; } } else { procent(); flag=1; continue; } } if(letter== '-') /*/Убираются двойные - */ { letmemo1=letmemo; letmemo=letter; fputc(letmemo,tf); if((letter=fgetc(ff)) ==letmemo) { flag=1; } } if(letter== '~') /*/~заменяется на пробел */ { letmemo=letter; letter=' '; fputc(letter,tf); flag=1; continue; } if(letter=='{') /*/Убираются лишние пробелы */ { fputc(letter,tf); letmemo1=letmemo; letmemo=letter; letter=fgetc(ff); if(letter ==' ' ||letter =='\n') { /* letmemo=letter;*/ flag=1; } if(flag>0) { continue; } } if(letter=='}') /*/Убираются } { пробелы */ { fputc(letter,tf); letmemo1=letmemo; letmemo=letter; letter=fgetc(ff); if(letter==' '|| letter=='\n') { letmemo1=letmemo; letmemo=letter; if((letter=fgetc(ff)) =='{') { flag=1; mem=1; memo=letter; continue; } /*/if(letter=='{')*/ if(letter!='{') { fputc(letmemo,tf); flag=1; mem=1; memo=letter; continue; } /*/if(letter!='{')*/ } /*/ if(' '||'\n')*/ else { flag=1; mem=1; memo=letter; continue; } } /*/if(letter=='}')*/ if(letter==' ') { fputc(letter,tf); index=1; while(index>0) { letmemo1=letmemo; letmemo=letter; if((letter=fgetc(ff)) !=' ') { index=0; letmemo=letter; mem=1; memo=letter; /* fputc(letter,tf);*/ } } /*/while(index>0)*/ flag=1; continue; } /*/if(letter==' ') */ if(letter=='\n') /*/убираем лишние \n*/ { fputc(letter,tf); index=1; while(index>0) { letmemo1=letmemo; letmemo=letter; if((letter=fgetc(ff)) !='\n') { index=0; memo=letter; mem=1; } } /*while(index>0)*/ flag=1; continue; } /*/if(letter==' ')*/ if(letter=='\\') { flag=0; letmemo1=letmemo; letmemo=letter; if((letter=fgetc(ff))==' ') /*/заменяем \ на " "-*/ { fputc(letter,tf); letmemo=letter; flag=1; continue; } if(letter=='%') /*/заменяем \% на "%" */ { letmemo1=letmemo; letmemo=letter; fputc(letter,tf); flag=1; continue; } if(letter==',') /*/заменяем \,(lat) на " " */ { letmemo=letter; letter=' '; fputc(letter,tf); flag=1; continue; } if(letter=='!') /*/заменяем \! на " " */ { letmemo=letter; letter=' '; fputc(letter,tf); flag=1; continue; } if(letter=='m') /*/заменяем \m на -*/ { letmemo1=letmemo; letmemo=letter; letter=fgetc(ff); letter1=' '; if(letter ==letter1) { letter2='-'; fputc(letter2,tf); /*letter1=getchar();*/ fputc(letter,tf); letmemo=letter; } /*/ if(letter==' ')*/ if(letter!=letter1) { fputc(letmemo1,tf); fputc(letmemo,tf); fputc(letter,tf); } /*/if(letter!=letter1) */ /* if(letter ==letter1) */ /*{ */ /*letter1='-'; */ /*fputc(letter1,tf); */ /*letter1=getchar(); */ /*fputc(letter,tf); */ /*letmemo=letter; */ /*} */ /*/ if(letter==' ')*/ letmemo=letter; flag=1; continue; } /*/if(letter=='m')*/ if(flag<1) /*/1*/ { if(letter=='-') { letmemo=letter; flag=1; } if(flag<1) { if(letter=='\\') { fputc(letmemo,tf); fputc(letter,tf); letmemo1=letmemo; letmemo=letter; flag=1; } } if(flag<1) /*/2*/ { if(letter=='b') { letmemo1=letter; if((letter=fgetc(ff))=='i') { do { letter=fgetc(ff); /* putchar(letter);*/ } while(letter!='\n'); letmemo=letter; fputc(letter,tf); flag=1; } /*/if((letter)=='i')*/ if(flag<1) { fputc(letmemo,tf); fputc(letmemo1,tf); fputc(letter,tf); letmemo=letter; flag=1; } } /*/if(letter=='b')*/ } /*/-2*/ if(flag<1) { fputc(letmemo,tf); i=0; if(letter =='e') { name[i]=letter; for(i=1;i<5;i++) { letmemo=letter; letter=fgetc(ff); name[i]=letter; } /*/for(i=1;i<5;i++) */ strcpy(nam1,"end{i"); m_cmp_m15(); for(i=0;i<5;i++) { letter=name[i]; fputc(letter,tf); } if(comp>4) { if ((letter=fgetc(ff))!='n') { fputc(letter,tf); puts("\n end it"); letter1=getchar(); flag=1; continue; } puts("\n End of theme."); end_read=1; fputc(letter,tf); do { letter=fgetc(ff); fputc(letter,tf); } while(letter!='}'); if((letter=fgetc(ff))==NULL) { contin=1; } letter=EOF; fputc(letter,tf); fclose(tf); rewind(tf); } /*//if(comp>4) */ flag=1; } /*/if(letter =='e') */ } /*/if(flag<1) 2 */ } /*/if(flag<1) 1 */ } /*/if(letter=='\\') */ if(flag<1) { fputc(letter,tf); flag=1; } } /*/while(flag<1) */ } while( end_read<1); rewind(tf); end_read=0; if ((tf=fopen(infile, "r"))==NULL) { printf ("it is impossible to open infile%s",infile); fclose(tf); exit(0); } puts("file is open"); letter1=getchar(); letter=fgetc(tf); /*putchar(letter);*/ /*///////search for Theme number ///////*/ strcpy(nam1,"TN{"); puts("strcpy TN{"); do /*/ */ {slash(); puts("slash"); fname(); puts("fname"); m_cmp_m1(); puts("m_cmp"); } while(comp<3); if (comp=3) { puts("t0"); t0(); puts("after t0"); do { letter=fgetc(tf) ; } while(letter !='{'); tn(); do { letter=fgetc(tf) ; } while(letter !='{'); tl(); } puts("tema number"); /*/////Search for Theme leader deputy////////*/ search_tld(); fputs("",hf); letter1=getchar(); /* new 10.9.9 */ /*/////Search for Collaboration////////*/ strcpy(nam1,"TC{"); puts("before do"); do /*/ */ { /*slash(); fname(); */ m_cmp_m1(); /*puts("in do");*/ } while(comp<3); puts("after do"); if (comp=3) { tc(); slash(); nrest1=0; fname(); } puts("collab"); /* end new 10.9.9 */ /*/////Search for Aim////////*/ search_ta(); /*/////Search for Results////////*/ do { slash(); fname2(); comp=0; strcpy(nam1,"bf"); m_cmp_m12(); if (comp=2) { fputs("

Expected main results in 2010:",hf); } } while(comp<2); do { slash(); comp=0; beg(); } while(comp!=1); letter=fgetc(tf); fname5(); putchar('\n'); strcpy(nam1,"itemi"); m_cmp_m15(); if (comp=5) { fputs("
    ",hf); comp=5; slash(); nrest1=0; while (comp>4) { index=0; fitem(); fputs("

    ",hf); } fputs("
",hf); fputs("\n",hf); } /*------stage------------------------*/ slash(); nrest1=0; beg(); if(sotr>0) /*есть 'stage' и сотрудничество*/ { sotr=0; continue; } finditem(); nenter=0; /*начало обработки item */ /*nenter =1, когда найден item, PS или PL*/ if(comp>2) /* найден 'item' 1-ый раз,т.е. */ /*есть stage и выводится шапка таблицы*/ { fputs("",hf); fputs(" ",hf); /* fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs("",hf); fputs("",hf); fputs("\n \n ",hf); fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs("",hf); fputs("",hf); fputs("\n \n ",hf); comp=3; } /* найден только item */ i=0; step=3; while(step>0) /*item */ { step=0; /*/1 */ if(nenter>0) /* был найден и обработан PS или PL */ { slash(); if((letter=fgetc(tf))=='\\')/* окончен 'item' -в конце \\*/ { nrest1=0; slash(); /*/ */ } else { letmemo=letter; nrest1=1; } fname(); nenter=0; } strcpy(nam1,"ite"); /* */ m_cmp_m1(); /* */ if (comp>2) { /*/2 */ nenter=1; step++; fputs(" \n",hf); ps_item(); letter=fgetc(tf); if((letter=fgetc(tf))=='[') { /* 3 */ while((letter=fgetc(tf))!=']') { /* 4 */ fputc(letter,hf); } /* 4- */ } /* 3- */ else { /* 3 */ i++; if(i>9) { /* 4 */ i1=i-10; letter=mas_num[1]; fputc(letter,hf); letter=mas_num[i1]; fputc(letter,hf); } /* 4- */ else { /* 4 */ letter=mas_num[i]; fputc(letter,hf); } /* 4- */ letter='.'; fputc(letter,hf); } /* 3- */ put_endbtd(); /*//////****************** */ slash(); fname(); nenter=0; } /* 2-*/ strcpy(nam1,"PS{"); m_cmp_m1(); if(comp>2) { /* 2 */ nenter=1; if(step>0) { step++; ps(); } if(step<1) { step++; fputs("\n",hf); ps_item(); fputs("  ",hf); put_endbtd(); ps(); } puts("stage"); /*////Search for PL{ */ slash(); puts("\n in 1"); if((letter=fgetc(tf))=='\\') { putchar(letter); nrest1=0; slash(); /*/28.8.97 */ puts("\nin 2"); } else { letmemo=letter; nrest1=1; } fname(); puts("\nin 3"); nenter=0; } /* 2-*/ /*pl(); */ strcpy(nam1,"PL{"); /* 29.10.97 */ puts("strcpy PL{"); m_cmp_m1(); /* 29.10.97 */ /*for (index1=0; index1<3; index1++) { letter1=nam1[index1]; putchar(letter1); } */ puts("\nin 4"); if(comp>1) /* 09.08.99 было comp>2 */ { /* 29.10.97 */ /* 2 */ nenter=1; step++; puts("\nin 5"); pl(); /* 29.10.97 */ puts("\nin 6"); } /* 29.10.97 */ /* 2- */ } /* 1- */ fputs("
",hf);*/ /* fputs("",hf); fputs(H3,hf); fputs(STA,hf); fputs(ENDH3,hf);*/ fputs("",hf); fputs("List of Activities",hf); /*fputs("",hf);*/ fputs(" ",hf); fputs("
",hf); fputs("  Activity or Experiment",hf); fputs("Leader 
",hf); fputs("  Laboratory",hf); fputs("Responsible
person		Leading Researchers
",hf); fputs("and number of participants
",hf); fputs("
\n",hf); strcpy(nam1,"end"); m_cmp_m1(); letter2=comp; if(comp>2) { puts("End of stage."); letter1=getchar(); /* fputs("",hf); puts("exit?"); letter1=getchar(); if(letter1=='x') { fclose(hf); fclose(tf); continue; } */ } puts("bef int"); /*////Search for begin(intcoop)/////////*/ do { slash(); nrest=0; puts("\n begin"); letter2=getchar(); comp=0; beg(); } while(comp!=1); fputs("",hf); fputs(" ",hf); fputs("",hf); /*fputs("",hf); fputs("",hf);*/ fputs("\n ",hf); /* fputs("
",hf); fputs("",hf); fputs("Collaboration ",hf); fputs("   
",hf); fputs("",hf);*/ fputs(" ",hf); fputs("",hf); fputs("",hf); fputs("",hf); /*/////////// intcoop //////////*/ comp=5; strcpy(nam1,"mtab{"); while (comp>4) { slash(); fname5(); m_cmp_m15(); if(comp>4) { fputs(" \n",hf); beg_data(); put_list(); fputs("\n",hf); do { letter=fgetc(tf); /*puts("--");*/ putchar(letter); /*/ letter1=getchar(); */ } while (letter!='{'); beg_data(); put_list_int(); fputs("\n",hf); fputs(" \n",hf); } /* letter=fgetc(tf); putchar(letter);*/ /*/ letter1=getchar(); } */ } strcpy(nam1,"end{i"); m_cmp_m15(); if(comp>4) { puts("End of theme."); letter1=getchar(); fputs("
",hf); fputs("Country or International",hf); fputs("
Organization 		",hf); fputs("City ",hf); fputs("Institute or Laboratory",hf); fputs("
",hf); shapka_end(); endbody1(); /*puts("exit?"); letter1=getchar(); if(letter1=='x') { fclose(hf); fclose(tf); continue; } */ } } fputs(ENDBODY,hf); fclose(tf); fclose(hf); rewind(tf); rewind(hf); /*/while ((letter=fgetc(tf)) !='\\'); */ puts("exit?"); letter1=getchar(); if(letter1=='x') { fclose(hf); fclose(tf); rewind(tf); rewind(hf); } return(0); } void ps_item() { fputs("",hf); return; } void beg_data() { fputs(" ",hf); return; } void put_endbtd() { fputs("",hf); return; } void put_list() { char letter; while ((letter=fgetc(tf)) !='}') { if(letter!='\\') { if(letter=='$') { gif(); } if(letter!='$') { fputc(letter,hf); putchar(letter); } } else { letter=fgetc(tf); fputs("
",hf); } } return; } void put_list_int1() { char letter; while ((letter=fgetc(tf)) !='}') { /*1*/ putchar(letter); if(letter!='\\') { fputc(letter,hf); } else /* 2*/ { letter=fgetc(tf); putchar(letter); if(letter=='\\') { fputs("
",hf); } if(letter=='"') { letter=fgetc(tf); putchar(letter); fputc(letter,hf); continue; } if(letter=='v') { /*4*/ letter=fgetc(tf); putchar(letter); letter=fgetc(tf); putchar(letter); fputc(letter,hf); letter=fgetc(tf); putchar(letter); continue; } /*-4*/ if(letter=='u') { letter=fgetc(tf); putchar(letter); letter=fgetc(tf); putchar(letter); fputc(letter,hf); letter=fgetc(tf); putchar(letter); continue; } } /*-2*/ } /*-1*/ return; } void put_list_int() { char letter; int num; for(num=0; num<2; num++) { while ((letter=fgetc(tf)) !='}') { /*1*/ putchar(letter); if(letter!='\\') { fputc(letter,hf); } else /* 2*/ { letter=fgetc(tf); putchar(letter); if(letter=='\\') { fputs("
",hf); } if(letter=='"') { letter=fgetc(tf); putchar(letter); fputc(letter,hf); continue; } if(letter=='v') { /*4*/ letter=fgetc(tf); putchar(letter); letter=fgetc(tf); putchar(letter); fputc(letter,hf); letter=fgetc(tf); putchar(letter); continue; } /*-4*/ if(letter=='u') { letter=fgetc(tf); putchar(letter); letter=fgetc(tf); putchar(letter); fputc(letter,hf); letter=fgetc(tf); putchar(letter); continue; } } /*-2*/ } /*-1*/ fputs("\n",hf); letter=fgetc(tf); fputs("",hf); } return; } void ps() { int index; char letter,letter1; beg_data(); fputs("",hf); put_list(); put_endbtd(); while ((letter=fgetc(tf)) !='{') { } beg_data(); fputs("",hf); put_list(); put_endbtd(); fputs(" \n",hf); /* letter=fgetc(tf);*/ beg_data(); fputs(" \n",hf); /* while ((letter=fgetc(tf)) !='{') { } */ do { letter=fgetc(tf); } while (letter !='{'); slash(); nrest1=0; /*//??? */ nst=0; num_stat=0; do { /*//3 */ num_stat++; status(); if(letmemo1=='}') { /*/4 */ nst=0; } /*/-4 */ else { if((letter=fgetc(tf))==' ') { letter=fgetc(tf); } if(letter=='}') { nst=0; } if(letter=='\\') { nst=1; } } if(nst>0) { letter=fgetc(tf); letter=fgetc(tf); index=0; if((letter=fgetc(tf))!='\\') { name[index]=letter; index++; } if((letter=fgetc(tf))!='\\') { name[index]=letter; index++; } while(index<5) { letter=fgetc(tf); name[index]=letter; index++; } letmemo1=letter; fputs("
",hf); } } while (nst!=0); fputs(" ",hf); fputs("",hf); fputs("",hf); /*fputs("
",hf); 25.01.06*/ return; } void pl() { char letter,letter1; strcpy(nam1,"PL{"); m_cmp_m1(); if (comp>2) { /*/3 */ fputs(" \n",hf); fputs("",hf); fputs("  \n",hf); beg_data(); put_list(); fputs("\n",hf); letter=fgetc(tf); beg_data(); put_list(); fputs("\n",hf); letter=fgetc(tf); beg_data(); put_list(); fputs("\n",hf); fputs(" \n",hf); } return; } void finditem() { char letter; slash(); if((letter=fgetc(tf))!='i') { /*putchar(letter);*/ nrest1=0; do { letter=fgetc(tf); /*putchar(letter);*/ } while(letter=='\\'); if(letter==' ') { do { letter=fgetc(tf); /* putchar(letter);*/ } while(letter==' '); } if(letter!='\\'&&letter!=' ') { nrest=1; letmemo=letter; } if(nrest1<1) { if((letter=fgetc(tf))!='\\') { /* putchar(letter);*/ nrest=1; letmemo=letter; } } } else { nrest1=1; letmemo=letter; } fname(); strcpy(nam1,"item"); m_cmp_m1(); return; } void slash() { char letter,letter1; puts("slash"); while ((letter=fgetc(tf)) !='\\') { letter1=letter; putchar(letter); } return; } void slashff() { char letter,letter1; while ((letter=fgetc(ff)) !='\\') { letter1=letter; /*putchar(letter);*/ } return; } void fname() { int index; char letter; char letter1; index=0; puts("\n fname"); if(nrest1<1) { do { letter=fgetc(tf); putchar(letter); name[index]=letter; index++; } while (index<3); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); name[index]=letter; index++; } while (index<3); nrest1=0; } letter1=getchar(); return; } void fnameff() { int index; char letter; /*char letter1;*/ index=0; if(nrest1<1) { do { letter=fgetc(ff); putchar(letter); putchar(nam1[index]); name[index]=letter; index++; } while (index<3); } else { name[0]=letmemo; index=1; do { letter=fgetc(ff); /*putchar(letter);*/ name[index]=letter; putchar(nam1[index]); index++; } while (index<3); nrest1=0; } return; } void fname2() { int index; char letter; index=0; if(nrest1<1) { do { letter=fgetc(tf); puts("\n +"); putchar(letter); name[index]=letter; index++; } while (index<2); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); putchar(letter); name[index]=letter; index++; } while (index<2); nrest1=0; } return; } void fname5() { int index; char letter; char letter1; index=0; if(nrest1<1) { do { letter=fgetc(tf); putchar(letter); name[index]=letter; index++; } while (index<5); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); putchar(letter); name[index]=letter; index++; } while (index<5); nrest1=0; } letmemo1=letter; return; } void m_cmp_m1() { char letter1; int index; comp=0; for (index=0; index<3; index++) if(name[index] !=nam1[index]) { comp=0; } else comp++; return; } void m_cmp_m12() { char letter1; int index; comp=0; for (index=0; index<2; index++) if(name[index] !=nam1[index]) { letter1=name[index]; /*putchar(letter1);*/ letter1=nam1[index]; /*putchar(letter1);*/ /*printf("\n comp= %d",comp);*/ comp=0; } else comp++; return; } void m_cmp_m15() { char letter1; int index; comp=0; index=0; while((name[index]==nam1[index])&&index<5) { comp++; index++; } if(comp<4) { comp=0; } letmemo1=name[4]; return; } void t0_() { int index; int i; char strc; char letter; char letter1; char letfirst; char massiv[40]; char massiv1[9]; char namefile[12]; char numt[6]; char numtpr[6]; char numtnx[6]; /* char outfile[12];*/ puts("\n in t0()"); for(i=0; i<12;i++) { namefile[i]=' '; outfile[i]=' '; } index=0; letfirst=fgetc(tf); while ((letter=fgetc(tf))!='}') { massiv[index]=letter; /* putchar(letter);*/ index++; } field=massiv[0]; puts("\n field="); putchar(field); letter=getchar(); letter='e'; namefile[0]=letter; letter='9'; namefile[1]=letter; namefile[2]=massiv[2]; for(i=3; i<7;i++) { namefile[i]=massiv[i+1]; } namefile[7]='.'; namefile[8]='h'; namefile[9]='t'; namefile[10]='m'; strcpy(outfile,namefile); printf(" outfile= %s\n",outfile); outfile[11]='\0'; letter=getchar(); if ((hf=fopen(outfile, "w"))==NULL) { printf("it is impossible to open outfile%s",outfile); fclose(hf); exit(0); } puts("\n O.K."); letter=getchar(); letter=getchar(); letter=getchar(); /*fputs("-//W3C//DTD HTML 3.2//EN\">",hf);*/ fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs (HEAD,hf); fputs("\n",hf); fputs("",hf); fputs (TITLE,hf); fputs ("THEME",hf); /* fputs ("0",hf);*/ fputc(letfirst,hf); i=0; do { fputc(massiv[i],hf); i++; /*/ index++; */ } while(i",hf); fputs("\n",hf); fputs(ENDHEAD,hf); fputs("\n\n",hf); shapka(); /*---------------------------------*/ nblank=3; empt(); fputs("",hf); fputs("",hf); fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs("\n ",hf); fputs("
",hf); i=0; fputs ("0",hf); do { if(massiv[i]!='\\') { fputc(massiv[i],hf); } if(massiv[i]=='\\') { fputs ("
",hf); i++; } i++; } while(i ",hf); fputs("   ",hf); fputs(" 		",hf); letter=fgetc(tf); do { letter=fgetc(tf); } while(letter==' '); fputs("Priority:",hf); fputs ("
",hf); fputs("Status:",hf); fputs(" 		",hf); fputc(letter,hf); putchar(letter); fputs ("
",hf); /*/ slash(); */ /*/ tstatus(); */ do { letter=fgetc(tf); /* putchar(letter);*/ } while(letter!='{'); while((letter=fgetc(tf))!='}') { if(letter!='\\') { fputc(letter,hf); putchar(letter); } if(letter=='\\') { tstatus(); continue; } } letter1=getchar(); fputs("
",hf); return; } void tstatus() { int flag; char letter; nblank=51; /*/empt(); */ /*/fputs("Status:",hf); */ puts("Status"); nblank=6; /*/empt(); */ comp=0; flag=0; fname5(); while (flag<1) { strcpy(nam1,"tsext"); m_cmp_m15(); if(comp>4) { fputs("Extended",hf); flag=1; continue; } strcpy(nam1,"tsnew"); m_cmp_m15(); if(comp>4) { fputs("New",hf); flag=1; continue; } strcpy(nam1,"tscom"); m_cmp_m15(); if(comp>4) { fputs("Approved for completion
in 2009",hf); flag=1; continue; } strcpy(nam1,"tsprg"); m_cmp_m15(); if(comp>4) { fputs("In-progress",hf); flag=1; continue; } comp=5; } fputs("\n",hf); return; } void tn() { char letter,letter1; puts("\n in tn()"); fputs("\n",hf); fputs (H2,hf); fputs ("
",hf); while((letter=fgetc(tf)) !='}') { /*putchar(letter);*/ letter1=letter; if(letter1=='$') { comp=8; gif(); continue; } if(letter1=='\\') { new_str(); if(new_stri>0) { fputs ("
",hf); new_stri=0; } continue; } fputc(letter1,hf); } fputs ("
",hf); fputs (ENDH2,hf); return; } void new_str() { char letter,letter1; char letter2; if ((letter=fgetc(tf))=='\\') { new_stri=1; } else { if(nblank>0) { empt(); } letter1=letter; fputc(letter1,hf); putchar(letter); } fputs("\n",hf); return; } void gif() { char letter,letter1; int flag,flag1; /*/flag=1 when the variant */ /*/of decoding is found */ flag1=0; /*/flag1=1 when font is italic */ flag=0; while(flag<1) { while ((letter=fgetc(tf)) !='$') { if(letter=='\\') { if (flag1>0) { flag1=0; fputs("",hf); } flag=1; symb(); if(letmemo=='$') { return; } continue; } if (letter=='{') { flag=1; if (flag1>0) { flag1=0; fputs("",hf); } symb1(); continue; } if (letter=='_') { if (flag1>0) { flag1=0; fputs("",hf); } flag=1; fsub1(); continue; } if (letter=='^') { flag=1; if (flag1>0) { flag1=0; fputs("",hf); } letter=' '; fputc(letter,hf); putchar(letter); fsup1(); continue; } if(letter!='$') { if(flag1<1) { flag1=1; fputs("",hf); } fputc(letter,hf); putchar(letter); } /* fputs("",hf);*/ } if (letter=='$') { flag=1; if(flag1>0) { fputs("",hf); flag1=0; } } } /*/ fputs("gif",hf); */ return; } void gif1() { char letter,letter1; int flag,flag1; /*/flag=1 when the variant */ /*/of decoding is found */ flag1=1; /*/flag1=1 when font is italic */ flag=0; while(flag<1) { while ((letter=fgetc(tf)) !='$') { /*/fputs("",hf); */ if(letter=='\\') { if (flag1>0) { flag1=0; /*/fputs("",hf);//11.4. */ } flag=1; symb(); if(letmemo=='$') { return; } continue; } if (letter=='{') { flag=1; symb1(); continue; } if (letter=='_') { flag=1; fsub1(); continue; } if (letter=='^') { flag=1; letter=' '; fputc(letter,hf); putchar(letter); fsup1(); continue; } fputs("",hf); if(letter!='$') { fputc(letter,hf); putchar(letter); } fputs("",hf); } if (letter=='$') { flag=1; } } return; } void symb() { /*/1 */ int flag; int i; char letter,letter1; flag=0; letter=fgetc(tf); if(letter==' ') { fputc(letter,hf); putchar(letter); flag=1; comp=5; return; } else { letmemo=letter; nrest1=1; fname2(); while(flag<1) { /*/2 */ strcpy(nam1,"al"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; alp(); continue; } /*/4- */ strcpy(nam1,"ap"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; app(); continue; } /*/4- */ strcpy(nam1,"ba"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; bar(); continue; } strcpy(nam1,"bu"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; bullet(); continue; } strcpy(nam1,"be"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; bet(); continue; } /*/4- */ strcpy(nam1,"ch"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; chi(); continue; } /*/4- */ strcpy(nam1,"cd"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; cdot(); continue; } /*/4- */ strcpy(nam1,"ci"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; letter='o'; fputc(letter,hf); putchar(letter); for(i=0;i<2;i++) { letter=fgetc(tf); } continue; } /*/4- */ strcpy(nam1,"di"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; fdiv(); continue; } /*/4- */ strcpy(nam1,"ep"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; epsil(); continue; } /*/4- */ strcpy(nam1,"ga"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; gamma(); continue; } /*/4- */ strcpy(nam1,"Ga"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; gamlg(); continue; } /*/4- */ strcpy(nam1,"de"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; del(); continue; } /*/4- */ strcpy(nam1,"De"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; dellg(); continue; } /*/4- */ strcpy(nam1,"et"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; eta(); continue; } /*/4- */ strcpy(nam1,"ge"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; geq(); continue; } /*/4- */ strcpy(nam1,"ka"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; kappa(); continue; } /*/4- */ strcpy(nam1,"la"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; lambda(); continue; } /*/4- */ strcpy(nam1,"La"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; lambdalg(); continue; } /*/4- */ strcpy(nam1,"le"); m_cmp_m12(); if (comp>1) { if((letter=getc(tf))=='q') { /*/4 */ flag=1; leq(); continue; } if(letter=='r') { flag=1; larr(); continue; } if(letter=='f') { letter=getc(tf); if((letter=getc(tf))=='a') { flag=1; larr(); continue; } if(letter=='r') { for(i=0;i<5;i++) { letter=fgetc(tf); } flag=1; lrarr(); continue; } } } strcpy(nam1,"lr"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; lrarr(); continue; } /*/4- */ strcpy(nam1,"mu"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; mu(); continue; } /*/4- */ strcpy(nam1,"nu"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; nu(); continue; } /*/4- */ strcpy(nam1,"om"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; omega(); continue; } /*/4- */ strcpy(nam1,"Om"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; omegalg(); continue; } /*/4- */ strcpy(nam1,"ph"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; phi(); continue; } /*/4- */ strcpy(nam1,"pm"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; fputs("±",hf); continue; } strcpy(nam1,"ps"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; psi(); continue; } /*/4- */ strcpy(nam1,"Ps"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; psilg(); continue; } /*/4- */ strcpy(nam1,"pi"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; pi(); continue; } /*/4- */ strcpy(nam1,"pr"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; prim(); continue; } /*/4- */ strcpy(nam1,"qu"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; letter=' '; fputc(letter,hf); putchar(letter); letter=fgetc(tf); letter=fgetc(tf); continue; } /*/4- */ strcpy(nam1,"rh"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; rho(); continue; } /*/4- */ strcpy(nam1,"si"); m_cmp_m12(); if (comp>1) { /*/4 */ if((letter=fgetc(tf))=='g') { flag=1; sigma(); continue; } if(letter=='m') { flag=1; sim(); continue; } } /*/4- */ strcpy(nam1,"Si"); m_cmp_m12(); if (comp>1) { /*/4 */ if((letter=fgetc(tf))=='g') { flag=1; sigmag(); continue; } } strcpy(nam1,"ri"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; rarr(); continue; } /*/4- */ strcpy(nam1,"ta"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; tau(); continue; } /*/4- */ strcpy(nam1,"th"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; theta(); continue; } /*/4- */ strcpy(nam1,"ti"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; times(); continue; } /*/4- */ strcpy(nam1,"to"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; to(); continue; } /*/4- */ strcpy(nam1,"va"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; varphi(); continue; } /*/4- */ strcpy(nam1,"up"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; uparr(); continue; } /*/4- */ strcpy(nam1,"ve"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; vec(); continue; } /*/4- */ strcpy(nam1,"mb"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; mbox(); continue; } /*/4- */ strcpy(nam1,"Xe"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; xeta(); continue; } /*/4- */ puts("??letter??"); flag=1; fputs("gif",hf); } nrest1=0; } nrest1=0; comp=5; return; } void alp() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("a",hf);*/ /*/ fputs("",hf); */ fputs("",hf); return; } void bet() { char letter; letter=fgetc(tf); letter=fgetc(tf); /* fputs("b",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void bullet() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); fputs("",hf); return; } void chi() { char letter; letter=fgetc(tf); /*fputs("c",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void circ() { char letter; letter=fgetc(tf); letter=fgetc(tf); /* fputs("",hf);*/ fputs("",hf); return; } void cdot() { char letter; letter=fgetc(tf); letter=fgetc(tf); fputs("·",hf); return; } void fdiv() { char letter; letter=fgetc(tf); /* fputs("",hf);*/ fputs("div",hf); return; } void gamma() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("g",hf); */ /*/ fputs("",hf); */ fputs("gamma",hf); return; } void gamlg() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("G",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void del() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("d",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void dellg() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("D",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void epsil() { int i; char letter; for(i=0;i<5;i++) { letter=fgetc(tf); } /* fputs("e",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void eta() { char letter; letter=fgetc(tf); /* fputs("h",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void geq() { char letter; letter=fgetc(tf); /* fputs("",hf);*/ /* fputs("",hf);*/ fputs("",hf); return; } void leq() { char letter; /* fputs("",hf); */ fputs("",hf); return; } void kappa() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("k",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void lambda() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("l",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void lambdalg() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("L",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void lag_bar() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("L",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void mu() { /*fputs("m",hf); */ /*/fputs("",hf); */ fputs("µ",hf); return; } void nu() { /* fputs("n",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void omega() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("w",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void omegalg() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("W",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void pi() { /* fputs("p",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void phi() { char letter; letter=fgetc(tf); /*fputs("j",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void psi() { char letter; letter=fgetc(tf); /* fputs("y",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void psilg() { char letter; letter=fgetc(tf); /* fputs("Y",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void prim() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); fputs("'",hf); /*/ fputs("prima.gif",hf); */ return; } void rho() { char letter; letter=fgetc(tf); /* fputs("r",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void sigma() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("s",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void sigmag() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); fputs("S",hf); return; } void tau() { char letter; letter=fgetc(tf); /* fputs("t",hf); */ /*/ fputs("",hf); */ fputs("",hf); return; } void theta() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("q",hf); */ /*/fputs("",hf); */ fputs("",hf); return; } void times() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("",hf);*/ fputs("x",hf); return; } void to() { /* fputs("",hf);*/ fputs("",hf); return; } void varphi() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /* fputs("",hf);*/ fputs("",hf); return; } void app() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); fputs("",hf); return; } void bar() { char letter; int flag; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); if(letter=='p') { fputs("",hf); } if(letter=='P') { fputs("",hf); } if(letter=='M') { fputs("",hf); } if(letter=='t') { fputs("",hf); } if(letter=='q') { fputs("",hf); } if(letter=='B') { fputs("",hf); } if(letter=='N') { fputs("",hf); } if(letter=='K') { fputs("",hf); } if(letter=='\\') { flag=0; fname2(); while(flag<1) { strcpy(nam1,"nu"); m_cmp_m12(); if (comp>1) { flag=1; nubar(); continue; } } while(flag<1) { strcpy(nam1,"La"); m_cmp_m12(); if (comp>1) { flag=1; lag_bar(); continue; } } } if((letter=fgetc(tf))=='$') { letmemo=letter; } return; } void nubar() { fputs("",hf); return; } void vec() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); if(letter=='d') { fputs("",hf); } if(letter=='D') { fputs("",hf); } if(letter=='n') { fputs("",hf); } if(letter=='p') { fputs("",hf); } return; } void xeta() { char letter; letter=fgetc(tf); letter=fgetc(tf); fputs("",hf); return; } void mbox() { char letter; letter=fgetc(tf); letter=fgetc(tf); fputs("mbox.gif",hf); return; } void sim() { char letter; /* fputs("",hf);*/ fputs("~ ",hf); return; } void uparr() { int i; char letter; for(i=0;i<5;i++) { letter=fgetc(tf); } /* fputs("",hf);*/ fputs("",hf); return; } void rarr() { int i; char letter; for(i=0;i<8;i++) { letter=fgetc(tf); } /* fputs("",hf);*/ fputs("",hf); return; } void larr() { int i; char letter; for(i=0;i<6;i++) { letter=fgetc(tf); } /*fputs("",hf);*/ fputs("",hf); return; } void lrarr() { int i; char letter; for(i=0;i<4;i++) { letter=fgetc(tf); } /* fputs("",hf);*/ fputs("",hf); return; } void symb1() { char letter; while((letter=fgetc(tf)) !='}') { if (letter=='\'') { fputc(letter,hf); putchar(letter); } else { continue; } } return; } void fsup1() { char letter,letter1; letter=fgetc(tf); if (comp>7) /*/In title, font -the same */ { letter1=' '; fputc(letter1,hf); fputs("",hf); if(letter!='{') { fputc(letter,hf); putchar(letter); fputs("",hf); return; } else { while ((letter=fgetc(tf)) !='}') { letter1=letter; if(letter1=='\\') { symb(); } else { fputc(letter1,hf); putchar(letter1); } } } if(letter=='$') { fputs("",hf); } /*/ fputs (H2,hf); */ } else { fputs("",hf); if(letter!='{') { if(letter=='\\') { symb(); } else { fputc(letter,hf); putchar(letter); } fputs("",hf); return; } while ((letter=fgetc(tf)) !='}') { if(letter=='\\') { symb(); } else { fputc(letter,hf); putchar(letter); } } fputs("",hf); } return; } void fsub1() { char letter,letter1; letter=fgetc(tf); if (comp>7) { fputs("",hf); while ((letter=fgetc(tf)) !='}') { letter1=letter; fputc(letter1,hf); putchar(letter1); } fputs("",hf); /*/ fputs (H2,hf); */ } else { fputs("",hf); if(letter!='{') { if(letter=='\\') { symb(); } else { fputc(letter,hf); putchar(letter); } fputs("",hf); return; } while ((letter=fgetc(tf)) !='}') { if(letter=='\\') { symb(); } else { fputc(letter,hf); putchar(letter); } } fputs("",hf); } return; } void tl() { char letter,letter1; puts("\n in tl()"); fputs("",hf); fputs(" ",hf); fputs("\n ",hf); /* fputs("
",hf); fputs(TL,hf); fputs("",hf); put_list(); fputs("
",hf);*/ return; } void tls() { char letter,letter1; puts("\n in tls()"); fputs("",hf); fputs(" ",hf); fputs("\n ",hf); /* fputs("
",hf); fputs(TLS,hf); fputs("",hf); put_list(); fputs("
",hf);*/ return; } void tld() { char letter,letter1; puts("\n in tld()"); letter=fgetc(tf); /*fputs("",hf);*/ fputs(" ",hf); fputs("\n ",hf); /* fputs("
",hf); fputs("",hf); fputs(TLD,hf); fputs("",hf); fputs("",hf); put_list(); fputs("
",hf);*/ return; } void tc() { char letter,letter1; puts("\n in tc()"); fputs("\n",hf); fputs (H3,hf); fputs(TC,hf); fputs(TCA,hf); fputs(ENDH3,hf); nblank=0; while ((letter=fgetc(tf)) !='}') { letter1=letter; if(letter1=='\\') { new_str(); continue; } putchar(letter1); fputc(letter1,hf);} fputs("\n",hf); return; } void ta() { int index; /*int endaim;*/ char letter,letter1; puts("\n in ta()"); /*endaim=0;*/ fputs("\n",hf); /*fputs (H3,hf);*/ fputs(TA,hf); /*fputs(ENDH3,hf);*/ while (letter==NULL) { letter=fgetc(tf); putchar(letter); letter1=letter; } puts("\n null \n"); letter=getchar(); if ((letter=fgetc(tf))=='\\') { beg(); puts("aim-beg"); if(comp>0) { letter=fgetc(tf); fname5(); putchar('\n'); strcpy(nam1,"itemi"); m_cmp_m15(); if (comp=5) { fputs("
    ",hf); comp=5; slash(); nrest1=0; while (comp>4) { index=0; fitem(); } fputs("
",hf); fputs("\n",hf); } } /*if beg */ } else { putchar(letter1); fputc(letter1,hf); while((letter=fgetc(tf)) !='{') { if(letter=='$') { gif(); letter=fgetc(tf); } if(letter1!='$') { fputc(letter,hf); putchar(letter); } } } /* while (endaim<1) { if ((letter=fgetc(tf)) !='{') { letter1=letter; if(letter1=='\\') { new_str(); continue; } } else { } }*/ fputs("\n",hf); return; } void beg() { int index; /* int sotr; */ char letter,letter1; char name[10],nam1[10]; index=0; puts("\n in beg()"); /*/ printf("nrest1=%d",nrest1); */ if (nrest1<1) { do { letter=fgetc(tf); /*putchar(letter);*/ letter1=letter; /*putchar(letter);*/ name[index]=letter1; index++; } while (index<5); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); letter1=letter; /* putchar(letter);*/ name[index]=letter1; index++; } while (index<5); } sotr=0; strcpy(nam1,"T{"); for (index=0; index<2; index++) if(name[index]==nam1[index]) { /*fputs("\n",hf); */ letter1=name[index]; putchar(letter1); letter1=nam1[index]; putchar(letter1); sotr++; } if (sotr>1) { endbody1(); comp=0; return; } strcpy(nam1,"begin"); for (index=0; index<5; index++) if(name[index] !=nam1[index]) { letter1=name[index]; letter1=nam1[index]; comp=0; } else comp=1; return; } void fitem() { char letter,letter1; char letter2; puts("\n in fitem()"); fname5(); /*/ putchar('\n'); */ /*/ printf("Для продолжения-Enter"); */ strcpy(nam1,"item "); m_cmp_m15(); if(comp>4) { /*/ fputs(BR,hf); */ fputs("\n",hf); if((letter=fgetc(tf)) !='[') { putchar(letter); fputs("
  • ",hf); fputc(letter,hf); } else { letter=fgetc(tf); /* putchar(letter);*/ } nrest1=0; while(nrest1<1) { while((letter=fgetc(tf))!='\\') { if(letter=='$') { gif(); puts("gif"); continue; } if(letter!='$') { fputc(letter,hf); putchar(letter); } } letter1=letter; letter=fgetc(tf); /* putchar(letter);*/ if(letter=='\\') { nrest1=0; } else { nrest1=1; letmemo=letter; continue; } } } return; } void empmas() { int i; char letter; i=0; letter=' '; while(i<90) { masout[i]=letter; i++; } return; } void empt() { if(nblank>1) { while(nblank>1) { emp2(); nblank-=2; } if(nblank>0) fputs(" ",hf); } nblank=0; return; } void emp2() { fputs(" ",hf); return; } void status() { int flag; char letter1; int cycle; cycle=0; comp=0; flag=0; if(nst<1) { fname5(); } nst=0; if(num_stat<2) { beg_tab_stat_ps(); } while (flag!=1) { if(cycle<3) { strcpy(nam1,"psei}"); m_cmp_m15(); if (comp>3) { fputs("  ",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psli}"); m_cmp_m15(); if (comp>3) { fputs("Letter of intent",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspr}"); m_cmp_m15(); if (comp>4) { fputs("Proposal",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pstp}"); m_cmp_m15(); if (comp>3) { fputs("Technical proposal",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspp}"); m_cmp_m15(); if (comp>3) { fputs("Preparation",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psop}"); m_cmp_m15(); if (comp>3) { fputs("Operation",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psmod}"); m_cmp_m15(); if (comp>3) { fputs("Simulation",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdp}"); m_cmp_m15(); if (comp>3) { fputs("Обработка данных",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pscom}"); m_cmp_m15(); if (comp>3) { fputs("Completion",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspl}"); m_cmp_m15(); if (comp>3) { fputs("Commissioning",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdt}"); m_cmp_m15(); if (comp>3) { fputs("Data taking",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psinp"); m_cmp_m15(); if (comp>4) { fputs("Realization",hf); flag=1; continue; } strcpy(nam1,"psda}"); m_cmp_m15(); if (comp>3) { fputs("Data analysis",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspt}"); m_cmp_m15(); if (comp>3) { fputs("R&D",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspg}"); m_cmp_m15(); if (comp>3) { fputs("Maintenance",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psprg"); m_cmp_m15(); if (comp>4) { fputs("In-progress",hf); flag=1; continue; } strcpy(nam1,"psupg"); m_cmp_m15(); if (comp>4) { fputs("Upgrade",hf); flag=1; continue; } strcpy(nam1,"null}"); m_cmp_m15(); if (comp>4) { nstat=1; fputs("  ",hf); flag=1; continue; } cycle++; } else { fputs("",hf); return; } } /*/ fputs("",hf); fputs("\n",hf); */ return; } void procent() { char letter; do { letter=fgetc(ff); /* putchar(letter);*/ } while(letter!='\n'); letmemo=letter; fputc(letter,tf); return; } void endbody1() { char letter1; fputs(ENDBODY,hf); fputs("\n",hf); puts("exit?"); letter1=getchar(); if(letter1=='x') { contin=0; } fclose(hf); fclose(tf); puts("continue?"); letter1=getchar(); putchar(letter1); if(letter1=='x') { contin=0; } fclose(hf); fclose(tf); rewind(tf); return; } void shapka() { fputs("\n\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("
    ",hf); fputs("",hf); fputs("Next theme",hf); fputs("",hf); fputs("Prev. theme
    ",hf); fputs("",hf); fputs("to field of reseach",hf); fputs("",hf); fputs("to contents
    \n",hf); return; } void shapka_end() { fputs("
    \n",hf); fputs("\n\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("
    ",hf); fputs("",hf); fputs("Next theme",hf); fputs("",hf); fputs("Prev. theme
    ",hf); fputs("",hf); fputs("to field of reseach",hf); fputs("",hf); fputs("to contents
    \n",hf); return; } void num_theme() { int index; int i; char letter; /* char massivf[25];*/ char massiv1[9]; masleng=0; puts("\n in num_theme()"); for(i=0; i<5;i++) { numb[i]=' '; } index=0; /*letter=fgetc(ff); */ while ((letter=fgetc(ff))!='}') { massivf[index]=letter; /*putchar(letter);*/ index++; } /*puts("\n ");*/ masleng=index; index=0; do { letter=massivf[index]; index++; } while (letter!='-'); while ((letter=massivf[index])=='-'||letter==' ') { index++; } /*massiv1[0]=massivf[index];*/ index++; while ((letter=massivf[index])=='-'||letter==' ') { index++; } for(i=0; i<4;i++) { massiv1[i]=massivf[index]; index++; } for(i=0; i<4;i++) { numb[i]=massiv1[i]; /*printf(" \n i=%d,numb=%s",i,numb); letter=getchar(); */ } return; } void search_tn() { puts("\n in search_tn()"); strcpy(nam1,"TN{"); m_cmp_m1(); if (comp=3) { tn(); puts("find name of tema"); slash(); } puts("name of tema"); nrest1=0; fname(); return; } void search_tl() { puts("\n in search_tl()"); strcpy(nam1,"TL{"); m_cmp_m1(); if (comp>2) { tl(); slash(); puts("leader"); nrest1=0; fname(); } return; } void search_tls() { char letter; puts("\n in search_tls()"); strcpy(nam1,"TLs"); comp=0; m_cmp_m1(); if (comp>2) { letter=fgetc(tf); tls(); slash(); puts("leaders"); nrest1=0; fname(); } return; } void search_tld() { char letter; puts("\n in search_tld()"); nrest1=0; slash(); fname(); comp=0; strcpy(nam1,"TLD"); m_cmp_m1(); if (comp>2) { letter=fgetc(tf); tld(); puts("deputy"); slash(); fname(); } comp=0; return; } void search_ta() { puts("\n in search_ta()"); strcpy(nam1,"TA"); m_cmp_m12(); if (comp=2) { puts("aim"); ta(); } nrest1=0; return; } void beg_old() { int index; char letter,letter1; char name[10],nam1[10]; index=0; /*/ puts("in beg"); */ /*/ printf("nrest1=%d",nrest1); */ if (nrest1<1) { do { letter=fgetc(tf); letter1=letter; /* putchar(letter);*/ name[index]=letter1; index++; } while (index<5); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); letter1=letter; /* putchar(letter);*/ name[index]=letter1; index++; } while (index<5); } strcpy(nam1,"begin"); for (index=0; index<5; index++) if(name[index] !=nam1[index]) { letter1=name[index]; letter1=nam1[index]; comp=0; } else comp=1; return; } void t0() { int index; int i; char strc; char letter; char letter1; char letfirst; char massiv[40]; char massiv1[9]; char namefile[13]; char numt[6]; char numtpr[6]; char numtnx[6]; /* char outfile[12];*/ puts("in t0"); puts("\n in t0()"); for(i=0; i<12;i++) { namefile[i]=' '; outfile[i]=' '; } index=0; letfirst=fgetc(tf); while ((letter=fgetc(tf))!='}') { massiv[index]=letter; putchar(letter); index++; } field=massiv[0]; /* letter='w'; */ namefile[0]='a'; namefile[1]='0'; for(i=0; i<8;i++) { massiv1[i]=massiv[i]; } namefile[2]=massiv1[2]; puts("in t02"); for(i=3; i<7;i++) { namefile[i]=massiv[i+1]; } namefile[7]='.'; namefile[8]='h'; namefile[9]='t'; namefile[10]='m'; namefile[11]='\0'; puts("in t03"); strcpy(outfile,namefile); printf(" outfile %s",outfile); outfile[11]='\0'; puts("\n O.K."); /*letter=getchar(); */ if ((hf=fopen(outfile, "w"))==NULL) /*/ if ((hf=fopen("e:\html\a.htm", "a"))==NULL) */ { printf("it is impossible to open outfile%s",outfile); /*/ fclose(tf); */ exit(0); } puts("in t04"); fputs("",hf); fputs("\n",hf); fputs (HEAD,hf); fputs("\n",hf); fputs (TITLE,hf); fputs ("THEME",hf); fputc(letfirst,hf); i=0; do { fputc(massiv[i],hf); i++; /*/ index++; */ } while(i\n",hf); shapka(); nblank=3; empt(); fputs("",hf); fputs("",hf); beg_tab(); fputs("",hf); letter=fgetc(tf); do { letter=fgetc(tf); } while(letter==' '); beg_tab(); fputs("",hf); /* fputs ("
    ",hf);*/ fputs("",hf); fputs("",hf); fputs(" ",hf); fputs(" \n ",hf); fputs("
    ",hf); i=0; fputs ("0",hf); do { if(massiv[i]!='\\') { fputc(massiv[i],hf); } if(massiv[i]=='\\') { fputs ("
    ",hf); i++; } i++; } while(i    		",hf); fputs("Priority:",hf); fputs("",hf); fputc(letter,hf); end_tab(); fputs("
    ",hf); fputs(" ",hf); fputs("",hf); fputs(" ",hf); fputs("\n ",hf); fputs("
    ",hf); fputs("Status:",hf); fputs(" ",hf); do { letter=fgetc(tf); } while(letter!='{'); while((letter=fgetc(tf))!='}') { if(letter!='\\') { fputc(letter,hf); /*putchar(letter);*/ } if(letter=='\\') { tstatus(); continue; } } /*letter1=getchar();*/ fputs("
    ",hf); fputs("
    ",hf); return; } void num_theme1() { int index; int i; char letter; /* char massivf[25];*/ char massiv1[9]; masleng=0; for(i=0; i<5;i++) { numb[i]=' '; } index=0; /*letter=fgetc(ff); */ while ((letter=fgetc(ff))!='}') { massivf[index]=letter; /*putchar(letter);*/ index++; } /*puts("\n ");*/ masleng=index; index=0; do { letter=massivf[index]; index++; } while (letter!='-'); while ((letter=massivf[index])=='-'||letter==' ') { index++; } /*massiv1[0]=massivf[index];*/ index++; while ((letter=massivf[index])=='-'||letter==' ') { index++; } for(i=0; i<4;i++) { massiv1[i]=massivf[index]; index++; } for(i=0; i<4;i++) { numb[i]=massiv1[i]; /*printf(" \n i=%d,numb=%s",i,numb); letter=getchar(); */ } return; } void beg_tab() { fputs(" ",hf); fputs("\n \n ",hf); return; }
    ",hf); fputs(" ",hf); return; } void beg_tab_stat_ps() { fputs("
    \n
    ",hf); fputs(" ",hf); fputs("
    ",hf); return; } void end_tab() { fputs("
    ",hf); fputs("