/*version for stage*/ /*менять год, 3 раза цифру года- find 'r' */ /*менять 8 раз цифру года Г в rГ.htm */ #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 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 beg_data1(); void beg_data2(); void beg_data3(); void beg_data4(); void beg_data5(); void beg_data6(); void put_endbtd(); void put_list(); void put_list1(); 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 t0(); void tstatus(); void tn(); void new_str(); void tl(); void tld(); void ta(); void tc(); void beg(); void fitem(); void emp2(); void empt(); void empmas(); void status(); void coopstatus(); void procent(); void endbody1(); void shapka(); void shapka_end(); void beg_tab(); void end_tab(); void beg_tab_stat_ps(); void num_theme(); 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 larr(); void leq(); void lrarr(); void mu(); void nu(); void omega(); void omegalg(); void perp(); void phi(); void pi(); void prim(); void phi(); void pm(); void mp(); void psi(); void psilg(); void rarr(); void rho(); void sigma(); 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 "Руководители темы:    " #define TLD "Заместитель: " #define TC "Участвующие страны и международные организации:" #define BR "
" #define TA "Изучаемая проблема и основная цель исследований:" #define H3 "" #define ENDH3 "" #define ENDBODY "" #define ITEM "item " #define RES "Ожидаемые результаты по завершении этапов" #define ULT " темы или проектов:" #define EXP "Ожидаемые результаты по этапам темы" #define EXP1 " или проектам в текущем году:" #define EMPT "\ " #define STAGE "Основные этапы темы:" main() { char letter; char letter2; char memo; int mem; int index; int index1; /*int contin; */ int i,i1; int nenter; int step; int nbr; char letter1; char theme[5]; char mass[26]; char mas_num[15]; int searchf; int flag; int end_read; char ffile[11]; /* char infile[12], outfile[10];*/ 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'; /*letmemo='q'; */ nrest1=0; contin=1; order=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=='\n'|| letter==' ') { letmemo1=letmemo; letmemo=letter; if((letter=fgetc(ff)) =='{') { /*putchar(letter);*/ 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==',') /*/заменяем \,(rus) на " " */ { 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) { puts("\n End of theme."); end_read=1; do { letter=fgetc(ff); } while(letter!='}'); //if((letter=fgetc(ff))==NULL) if((letter=fgetc(ff))==' ') { 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; /* letter1=getchar(); letter1=getchar(); */ if ((tf=fopen(infile, "r"))==NULL) { printf ("it is impossible to open infile%s",infile); fclose(tf); exit(0); } puts("file is open"); letter=fgetc(tf); /*///////search for Theme number ///////*/ strcpy(nam1,"TN{"); do /*/ */ {slash(); fname(); puts("\n return"); m_cmp_m1(); } while(comp<3); if (comp=3) { t0(); do { letter=fgetc(tf) ; } while(letter !='{'); tn(); do { letter=fgetc(tf) ; } while(letter !='{'); tl(); } puts("tema number"); /*/////Search for Theme leader deputy////////*/ nrest1=0; slash(); fname(); strcpy(nam1,"TLD"); comp=0; m_cmp_m1(); if (comp>2) { tld(); slash(); fname(); } else comp=0; puts("leader"); /*/////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"); /*/////Search for Aim////////*/ strcpy(nam1,"TA{"); m_cmp_m1(); if (comp=3) { ta(); } nrest1=0; puts("aim"); /*/////Search for Results////////*/ do { slash(); comp=0; beg(); } while(comp!=1); letter=fgetc(tf); fname(); /*putchar('\n');*/ strcpy(nam1,"res"); m_cmp_m1(); if (comp=3) { fputs("

",hf); fputs(H3,hf); fputs(RES,hf); fputs(ULT,hf); fputs(ENDH3,hf); fputs("
",hf); fputs("
    ",hf); comp=5; slash(); nrest1=0; nbr=1; while (comp>4) { index=0; if(nbr<1) { fputs("
    ",hf); fputs("
    ",hf); } nbr=0; fitem(); } fputs("
",hf); fputs("\n",hf); } puts("results"); /*/////Search for Expect////////*/ do { slash(); nrest1=0; comp=0; beg(); } while(comp!=1); letter=fgetc(tf); fname(); /*putchar('\n');*/ strcpy(nam1,"exp"); m_cmp_m1(); if (comp=3) { fputs("\n",hf); fputs(H3,hf); fputs(EXP,hf); fputs(EXP1,hf); fputs(ENDH3,hf); fputs("
",hf); /*/ fputs(BR,hf); */ fputs("
    ",hf); comp=5; slash(); nbr=1; while (comp>3) { index=0; if(nbr<1) { fputs("
    ",hf); fputs("
    ",hf); } nbr=0; fitem(); } fputs("
",hf); fputs("\n",hf); } puts("expect"); /*///////////Search for Stage/////////////*/ /*fputs("\n",hf);*/ 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); 4.9.9*/ /*fputs(" ",hf);*/ fputs("\n \n ",hf); fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs("",hf); fputs("",hf); fputs("\n \n ",hf); fputs("
",hf);*/ /* fputs("
",hf); 4.9.9*/ fputs("
",hf); fputs(H3,hf); fputs(STAGE,hf); fputs(ENDH3,hf); fputs("
",hf); fputs("Этап темы или эксперимент",hf); fputs("Руководитель Статус проекта или эксперимента
\n ",hf); fputs("",hf); fputs(" ",hf); fputs("",hf); fputs("",hf); fputs("\n \n ",hf); fputs("
  Лаборатория и
",hf); fputs("ответственные от лаборатории		",hf); fputs("Основные исполнители от Лаборатории
\n ",hf); fputs("",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("\nin 1");*/ if((letter=fgetc(tf))=='\\') { 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(comp1>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("
\n",hf); fputs("
\n",hf); strcpy(nam1,"end"); m_cmp_m1(); letter2=comp; puts("bef int"); /*////Search for begin(intcoop)/////////*/ do { slash(); nrest=0; /*letter2=getchar();*/ comp=0; beg(); } while(comp!=1); /* */ fputs("",hf); /* 4.9.9 fputs("",hf);*/ /*fputs(" ",hf);4.9.9*/ /*fputs(" ",hf);*/ fputs("\n \n ",hf); /* */ fputs("
",hf); fputs(H3,hf); fputs(ENDH3,hf); fputs("
",hf); fputs("",hf); /*fputs(" ",hf); fputs("\n ",hf); fputs("
",hf); fputs(H3,hf); fputs("",hf); fputs("Сотрудничество по теме: ",hf); fputs(ENDH3,hf); fputs("",hf); fputs("",hf); fputs("
",hf); fputs(H3,hf); fputs("Сотрудничество по теме:",hf); fputs(ENDH3,hf); fputs("",hf); fputs(" 
",hf); fputs("",hf);*/ fputs(" ",hf); fputs(" ",hf); fputs(" ",hf); fputs("",hf); fputs(" ",hf); fputs("",hf); fputs("\n \n ",hf); /* letter2=getchar();*/ /*/////////// intcoop //////////*/ comp=5; nbr=0; while (comp>4) { if(nbr<1) { slash(); fname5(); } strcpy(nam1,"mtab{"); m_cmp_m15(); if(comp>4) { fputs(" \n",hf); i=0; do { beg_data(); put_list(); fputs("\n",hf); letter=fgetc(tf); /* putchar(letter);*/ /*/ letter1=getchar(); */ i++; } while(i<4); beg_data(); while((letter=fgetc(tf))!='}') { if(letter=='\\') { coopstatus(); } if(letter!='\\') { fputc(letter,hf); } } fputs("\n",hf); letter=fgetc(tf); /* putchar(letter);*/ fputs(" \n",hf); /*/ letter1=getchar(); */ } } fputs("
",hf); fputs("Страна или
",hf); fputs("международная
",hf); fputs("организация		Город",hf); fputs("Институт или
",hf); fputs("лаборатория 		УчастникиСтатус
",hf); strcpy(nam1,"end{i"); m_cmp_m15(); if(comp>4) puts("\nEnd of theme."); letter1=getchar(); shapka_end(); endbody1(); } fputs(ENDBODY,hf); fclose(tf); fclose(hf); rewind(tf); /*/while ((letter=fgetc(tf)) !='\\'); puts("exit?"); letter1=getchar(); if(letter1=='x') { fclose(hf); fclose(tf); rewind(tf); } */ return(0); } void ps_item() { fputs("",hf); return; } void beg_data() { fputs(" ",hf); return; } void beg_data1() { fputs(" ",hf); return; } void beg_data2() { fputs(" ",hf); return; } void beg_data3() { fputs(" ",hf); return; } void beg_data4() { fputs(" ",hf); return; } void beg_data5() { fputs(" ",hf); return; } void beg_data6() { return; } void put_endbtd() { fputs("",hf); return; } void put_list() { char letter; int index; int flag; index=0; flag=0; while ((letter=fgetc(tf)) !='}') { if(letter=='{') { if( flag<1 ) { letter=fgetc(tf); flag=1; } } if(letter!='\\') { if(letter=='$') { gif(); } if(letter!='$') { fputc(letter,hf); } if(letter!=' ') { index++; /*/Не пустое поле */ } } else { letter=fgetc(tf); fputs("
",hf); } flag=1; } if(index<1) /*/Пустое поле */ { fputs(" ",hf); } return; } void put_list1() { char letter; int index; int flag; index=0; flag=0; while ((letter=fgetc(tf)) !='}') { if(letter=='{') { fputs("",hf); letter=fgetc(tf); if( flag<1 ) { letter=fgetc(tf); flag=1; } } if(letter!=',') { fputc(letter,hf); if(letter!=' ') { index++; /*/Не пустое поле */ } } else { letter=fgetc(tf); fputs(",  ",hf); } flag=1; } if(index<1) /*/Пустое поле */ { fputs("  ",hf); } return; } void ps() { int index; char letter,letter1; beg_data1(); fputs("",hf); put_list(); put_endbtd(); /*letter=fgetc(tf);*/ while ((letter=fgetc(tf)) !='{') { } beg_data2(); fputs("",hf); put_list(); put_endbtd(); fputs(" \n",hf); /* letter=fgetc(tf);*/ beg_data3(); 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); return; } void pl() { char letter,letter1; strcpy(nam1,"PL{"); m_cmp_m1(); if (comp1>1) /*было comp>2 09.08.99*/ { /*/3 */ fputs(" \n",hf); fputs(" \n",hf); beg_data4(); put_list(); fputs("\n
",hf); letter=fgetc(tf); /*beg_data5();01.11.10*/ put_list1(); fputs("\n",hf); letter=fgetc(tf); beg_data5(); put_list1(); fputs("\n
",hf); fputs("
",hf); fputs(" 
\n",hf); } return; } void finditem() { char letter; slash(); if((letter=fgetc(tf))!='i') /*если не i */ { nrest1=0; do /*ищем символ, отличный от \ */ { letter=fgetc(tf); } while(letter=='\\'); if(letter==' ') { do /*ищем символ, отличный от ' ' */ { letter=fgetc(tf); } while(letter==' '); } if(letter!='\\'&&letter!=' ') { nrest=1; letmemo=letter; } if(nrest1<1) { if((letter=fgetc(tf))!='\\') { nrest=1; letmemo=letter; } } } /*если не i - не 'i'*/ else { nrest1=1; letmemo=letter; } fname(); strcpy(nam1,"item"); m_cmp_m1(); return; } void slash() { char letter,letter1; while ((letter=fgetc(tf)) !='\\') { letter1=letter; } return; } void slashff() { char letter,letter1; while ((letter=fgetc(ff)) !='\\') { letter1=letter; /*putchar(letter);*/ } return; } void fname() { int index; char letter; char letter1; for(index=0;index<5;index++) { name[index]=' '; } index=0; if(nrest1<1) { do { /* puts("nrest 0"); 10,07*/ letter=fgetc(tf); /* puts("fi"); puts("\n"); putchar(letter);10,07*/ name[index]=letter; /* printf("\n index=%d", index);*/ index++; } while (index<3); } else { name[0]=letmemo; /* puts("letmemo");*/ letter=letmemo; /* putchar(letmemo);*/ index=1; do { letter=fgetc(tf); /* putchar(letter);*/ name[index]=letter; index++; } while (index<3); nrest1=0; } 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); name[index]=letter; index++; } while (index<2); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); 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); name[index]=letter; index++; } while (index<5); } else { name[0]=letmemo; index=1; do { letter=fgetc(tf); name[index]=letter; index++; } while (index<5); nrest1=0; } letmemo1=letter; return; } void m_cmp_m1() { char lett; char letter; int index; comp=0; comp1=0; for (index=0; index<3; index++) if(name[index] !=nam1[index]) { letter=name[index]; /* puts("name="); putchar(letter); */ lett=nam1[index]; /* puts("nam1="); putchar(lett); getchar(letter);*/ comp=0; } else { comp++; /* puts("else");*/ comp1++; } /* */ return; } void m_cmp_m12() { char letter1; int index; comp=0; comp1=0; for (index=0; index<2; index++) if(name[index] !=nam1[index]) { comp=0; comp1++; } else comp++; return; } void m_cmp_m15() { char letter1; int index; comp=0; comp1=0; index=0; while((name[index]==nam1[index])&&index<5) { letter1=name[index]; /*putchar(letter1);*/ comp1++; comp++; index++; } /*letter1=getchar();*/ 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[13]; char numt[6]; char numtpr[6]; char numtnx[6]; char outfile[12];/* 10.1.7*/ puts("t0"); for(i=0; i<12;i++) { namefile[i]=' '; outfile[i]=' '; puts("for i"); } index=0; /*puts("letter1");*/ letfirst=fgetc(tf); putchar(letfirst); while ((letter=fgetc(tf))!='}') { massiv[index]=letter; putchar(letter);/*10.1.7*/ index++; } field=massiv[0]; /* letter='w'; */ namefile[0]='r'; namefile[1]='1'; for(i=0; i<8;i++) { massiv1[i]=massiv[i]; } namefile[2]=massiv1[2]; 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'; 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); } fputs("",hf); fputs("\n",hf); fputs (HEAD,hf); fputs("\n",hf); /* fputs("",hf); */ fputs("",hf); fputs (TITLE,hf); fputs ("THEME",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); fputs(" ",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("Приоритет:",hf); fputs("",hf); fputc(letter,hf); end_tab(); fputs("
",hf); fputs(" ",hf); fputs("",hf); fputs(" ",hf); fputs("\n ",hf); fputs("
",hf); fputs("Статус:",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 tstatus() { int flag; char letter; nblank=51; /*/empt(); */ /*/fputs("Статус:",hf); */ puts("статус"); nblank=6; /*/empt(); */ comp=0; flag=0; fname5(); while (flag<1) { strcpy(nam1,"tsapp"); m_cmp_m15(); if(comp>4) { fputs("Одобрена",hf); flag=1; continue; } strcpy(nam1,"tsnew"); m_cmp_m15(); if(comp>4) { fputs("Новая",hf); flag=1; continue; } strcpy(nam1,"tscom"); m_cmp_m15(); if(comp>4) { fputs("Завершаемая",hf); flag=1; continue; } strcpy(nam1,"tspro"); m_cmp_m15(); if(comp>4) { fputs("Продлена",hf); flag=1; letter=fgetc(tf); continue; } comp=5; } fputs("\n",hf); return; } void tn() { char letter,letter1; fputs("\n",hf); fputs (H2,hf); fputs ("
",hf); while((letter=fgetc(tf)) !='}') { 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 tld() { char letter,letter1; letter=fgetc(tf); fputs("",hf); fputs(" ",hf); fputs("\n ",hf); fputs("
",hf); fputs(H3,hf); fputs(TLD,hf); fputs(ENDH3,hf); fputs("",hf); put_list(); fputs("
",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); } 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); fsup1(); continue; } if(letter!='$') { if(flag1<1) { flag1=1; fputs("",hf); } fputc(letter,hf); } /* 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); fsup1(); continue; } fputs("",hf); if(letter!='$') { fputc(letter,hf); } 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); 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); 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; } strcpy(nam1,"pe"); m_cmp_m12(); if (comp>1) { /*/4 */ flag=1; perp(); continue; } /*/4- */ 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); 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,"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("??new letter??"); flag=1; fputs("",hf); for (i=0; i<2; i++) { letter=name[i]; fputc(letter,hf); /*putchar(letter);*/ } fputs("",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("",hf); return; } void gamma() { char letter; letter=fgetc(tf); letter=fgetc(tf); letter=fgetc(tf); /*fputs("g",hf); */ /*/ fputs("",hf); */ fputs("",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); 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 mu() { /*fputs("m",hf); */ /*/fputs("",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 perp() { char letter; letter=fgetc(tf); letter=fgetc(tf); fputs("",hf); return; } void pm() { fputs("±",hf); return; } void mp() { fputs("mp",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); /*fputs("s",hf); */ /*/fputs("",hf); */ fputs("",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("",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; 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=='q') { fputs("",hf); } if(letter=='B') { fputs("",hf); } if(letter=='N') { fputs("",hf); } if(letter=='K') { fputs("",hf); } if((letter=fgetc(tf))=='$') { letmemo=letter; } 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); 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); fputs("",hf); return; } else { while ((letter=fgetc(tf)) !='}') { letter1=letter; if(letter1=='\\') { symb(); } else { fputc(letter1,hf); } } } if(letter=='$') { fputs("",hf); } /*/ fputs (H2,hf); */ } else { fputs("",hf); if(letter!='{') { if(letter=='\\') { symb(); } else { fputc(letter,hf); } fputs("",hf); return; } while ((letter=fgetc(tf)) !='}') { if(letter=='\\') { symb(); } else { fputc(letter,hf); } } 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); } fputs("",hf); /*/ fputs (H2,hf); */ } else { fputs("",hf); if(letter!='{') { if(letter=='\\') { symb(); } else { fputc(letter,hf); } fputs("",hf); return; } while ((letter=fgetc(tf)) !='}') { if(letter=='\\') { symb(); } else { fputc(letter,hf); } } fputs("",hf); } return; } void tl() { char letter,letter1; fputs("",hf); fputs(" ",hf); fputs("\n ",hf); fputs("
",hf); fputs(H3,hf); fputs(TL,hf); fputs(ENDH3,hf); fputs("",hf); put_list(); fputs("
",hf); return; } void tc() { char letter,letter1; puts("in TC"); fputs("\n",hf); fputs("
",hf); fputs (H3,hf); fputs(TC,hf); fputs(ENDH3,hf); fputs("

",hf); nblank=0; puts("in TC1"); while ((letter=fgetc(tf)) !='}') { letter1=letter; if(letter1=='\\') { new_str(); continue; } /* putchar(letter1); */ fputc(letter1,hf);} fputs("\n",hf); return; } void ta() { char letter,letter1; fputs("\n",hf); fputs("

",hf); fputs (H3,hf); fputs(TA,hf); fputs(ENDH3,hf); fputs("

",hf); while((letter=fgetc(tf)) !='}') { 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("\n",hf); return; } void beg() { int index; /* int sotr; */ char letter,letter1; char name[10],nam1[10]; index=0; /*/ 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); } sotr=0; strcpy(nam1,"TN{"); for (index=0; index<3; index++) if(name[index]==nam1[index]) { /*fputs("\n",hf); */ letter1=name[index]; /* putchar(letter1);*/ letter1=nam1[index]; /*putchar(letter1);*/ sotr++; } if (sotr>2) { 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; fname5(); /*/ putchar('\n'); */ /*/ printf("Для продолжения-Enter"); */ strcpy(nam1,"item "); m_cmp_m15(); if(comp1>3) { /*/ fputs(BR,hf); */ fputs("\n",hf); letter=letmemo1; if(letter!='[') { fputs("
  • ",hf); fputc(letter,hf); } else { while((letter=fgetc(tf))!=']') { fputc(letter,hf); } letter=fgetc(tf); } nrest1=0; while(nrest1<1) { while((letter=fgetc(tf))!='\\') { if(letter=='$') { gif(); continue; } if(letter!='$') { fputc(letter,hf); } } letter1=letter; letter=fgetc(tf); 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("Намерение",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspr}"); m_cmp_m15(); if (comp>3) { fputs("Физобоснование",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspd}"); m_cmp_m15(); if (comp>3) { fputs("Подготовка проекта",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pstp}"); m_cmp_m15(); if (comp>3) { fputs("Техпроект",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspp}"); m_cmp_m15(); if (comp>3) { fputs("Изготовление",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psmod"); m_cmp_m15(); if (comp>4) { fputs("Моделирование",hf); flag=1; continue; } strcpy(nam1,"psdt}"); m_cmp_m15(); if (comp>3) { fputs("Набор данных",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pscom"); m_cmp_m15(); if (comp>4) { fputs("Завершение",hf); flag=1; continue; } strcpy(nam1,"psinp"); m_cmp_m15(); if (comp>4) { fputs("Реализация",hf); flag=1; continue; } strcpy(nam1,"psda}"); m_cmp_m15(); if (comp>3) { fputs("Анализ статистики",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psww}"); m_cmp_m15(); if (comp>3) { fputs("Модернизация",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspt}"); m_cmp_m15(); if (comp>3) { fputs("Создание прототипа",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,"pscm}"); m_cmp_m15(); if (comp>3) { fputs("Создание установки",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psna}"); m_cmp_m15(); if (comp>3) { fputs("Наладка",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspa}"); m_cmp_m15(); if (comp>3) { fputs("Инженерный техпроект",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdi}"); m_cmp_m15(); if (comp>3) { fputs("Получение физических
    результатов",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psrm}"); m_cmp_m15(); if (comp>3) { fputs("Отладка установки",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psde}"); m_cmp_m15(); if (comp>3) { fputs("Разработки",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdd}"); m_cmp_m15(); if (comp>3) { fputs("Разработка документации
    и условий",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdc}"); m_cmp_m15(); if (comp>3) { fputs("Разработка условий",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psbu}"); m_cmp_m15(); if (comp>3) { fputs("Строительство",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psdz}"); m_cmp_m15(); if (comp>3) { fputs("Проектирование",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspl}"); m_cmp_m15(); if (comp>3) { fputs("Монтаж, запуск",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspg}"); m_cmp_m15(); if (comp>3) { fputs("Обслуживание",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pspo}"); m_cmp_m15(); if (comp>3) { fputs("Эксплуатация",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"pslp}"); m_cmp_m15(); if (comp>3) { fputs("R&D",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psim}"); m_cmp_m15(); if (comp>3) { fputs("Усовершенствование",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"psopt"); m_cmp_m15(); if (comp>3) { fputs("Оптимизация",hf); flag=1; if(comp=4) { nst=1; } continue; } strcpy(nam1,"null}"); m_cmp_m15(); if (comp>4) { nstat=1; flag=1; fputs(" ",hf); continue; } cycle++; } else { fputs("",hf); return; } } /*fputs(" ",hf);*/ /*/ fputs("\n",hf); */ return; } void coopstatus() { int flag; char letter; comp=0; flag=0; fname(); if(name[0]='m') { if(name[1]=='t') { flag=1; nbr=1; comp=5; } } while (flag!=1) { strcpy(nam1,"msa"); m_cmp_m1(); if (comp>2) { fputs("Соглашение",hf); flag=1; comp=5; continue; } strcpy(nam1,"msp"); m_cmp_m1(); if (comp>2) { fputs("Протокол",hf); flag=1; comp=5; continue; } strcpy(nam1,"msd"); m_cmp_m1(); if (comp>2) { fputs("Договор",hf); flag=1; comp=5; continue; } strcpy(nam1,"msf"); m_cmp_m1(); if (comp>2) { fputs("Подготовка договора",hf); flag=1; comp=5; continue; } strcpy(nam1,"msi"); m_cmp_m1(); if (comp>2) { fputs("Совместные работы",hf); flag=1; comp=5; continue; } strcpy(nam1,"mso"); m_cmp_m1(); if (comp>2) { fputs("Обмен визитами",hf); flag=1; comp=5; continue; } strcpy(nam1,"msn"); m_cmp_m1(); if (comp>2) { fputs("Подготовка
    документов",hf); flag=1; comp=5; continue; } strcpy(nam1,"msm"); m_cmp_m1(); if (comp>2) { fputs("Меморандум
    соглашения",hf); flag=1; comp=5; continue; } strcpy(nam1,"msc"); m_cmp_m1(); if (comp>2) { fputs("Консультации",hf); flag=1; comp=5; continue; } strcpy(nam1,"mst"); m_cmp_m1(); if (comp>2) { fputs("Технический
    контракт",hf); flag=1; comp=5; continue; } strcpy(nam1,"msk"); m_cmp_m1(); if (comp>2) { fputs("Контракт",hf); flag=1; comp=5; continue; } strcpy(nam1,"msu"); m_cmp_m1(); if (comp>2) { fputs("Проведение курсов",hf); flag=1; comp=5; continue; } strcpy(nam1,"msx"); m_cmp_m1(); if (comp>2) { fputs("Координационная ",hf); flag=1; comp=5; continue; } strcpy(nam1,"msy"); m_cmp_m1(); if (comp>2) { fputs("программа",hf); flag=1; comp=5; continue; } strcpy(nam1,"msz"); m_cmp_m1(); if (comp>2) { fputs("исследований",hf); flag=1; comp=5; continue; } strcpy(nam1,"msw"); m_cmp_m1(); if (comp>2) { fputs("Обмен информацией",hf); flag=1; comp=5; continue; } strcpy(nam1,"mul"); m_cmp_m1(); if (comp>2) { fputs(" ",hf); flag=1; comp=5; continue; } /*/letter=getchar();*/ comp=5; } fputs("\n",hf); /*printf(" \n comp=%d",comp);*/ 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("",hf); fputs("\n",hf); fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("
    ",hf); fputs("",hf); fputs("Следующая тема",hf); fputs("",hf); fputs("Предыдущая тема",hf); fputs("",hf); fputs("
    ",hf); fputs(" ",hf); fputs("Перейти в данной теме к
     ",hf); fputs("cотрудничеству по теме
    ",hf); fputs("",hf); fputs("Вернуться к направлению",hf); fputs("",hf); fputs("Вернуться к содержанию
    \n",hf); return; } void shapka_end() { fputs("
    \n",hf); fputs("\n\n",hf); fputs("",hf); fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("",hf); fputs("\n",hf); fputs("\n",hf); fputs("
    ",hf); fputs("",hf); fputs("Следующая тема",hf); fputs("",hf); fputs("Предыдущая тема",hf); fputs("
    ",hf); fputs("

    ",hf); fputs(" ",hf); fputs("Вернуться в начало",hf); fputs(" темы
    ",hf); fputs("",hf); fputs("Вернуться к направлению",hf); fputs("",hf); fputs("Вернуться к содержанию
    \n",hf); return; } void num_theme() { 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("