/*
   Cyrillic to TeX 1.0x  (C) by Wadim Zudilin, 19-24.02.1999
   Cyrillic to TeX 2.01  (C) by Wadim Zudilin,    26.09.1999
   Cyrillic to TeX 2.02  (C) by Wadim Zudilin,    01.10.1999
   Cyrillic to TeX 2.03  (C) by Wadim Zudilin,    11.11.1999
   No ability for using 1.0x versions!
   Let make all changes only in "c2t.h" file!
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <unistd.h>

#include "c2t.h"

#define YES 1
#define NO  0

#define DOS 0
#define KOI 1
#define WIN 2
#define MAC 3
#define ISO 4
#define RUS 5
#define TEX 6

char vers[]="Cyrillic to TeX 2.03  (C) by Wadim Zudilin, 11.11.1999";
int DOSend=0;

typedef unsigned char Letter;
const Letter CyrLetters[5][66]={
  0x80,0x81,0x82,0x83,0x84,0x85,0xF0,0x86,0x87,0x88,0x89,
  0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,
  0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,
  0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xF1,0xA6,0xA7,0xA8,0xA9,
  0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xE0,0xE1,0xE2,0xE3,0xE4,
  0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
  0xE1,0xE2,0xF7,0xE7,0xE4,0xE5,0xB3,0xF6,0xFA,0xE9,0xEA,
  0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF2,0xF3,0xF4,0xF5,0xE6,
  0xE8,0xE3,0xFE,0xFB,0xFD,0xFF,0xF9,0xF8,0xFC,0xE0,0xF1,
  0xC1,0xC2,0xD7,0xC7,0xC4,0xC5,0xA3,0xD6,0xDA,0xC9,0xCA,
  0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD2,0xD3,0xD4,0xD5,0xC6,
  0xC8,0xC3,0xDE,0xDB,0xDD,0xDF,0xD9,0xD8,0xDC,0xC0,0xD1,
  0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xA8,0xC6,0xC7,0xC8,0xC9,
  0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,
  0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
  0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xB8,0xE6,0xE7,0xE8,0xE9,
  0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,
  0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF,
  0x80,0x81,0x82,0x83,0x84,0x85,0xDD,0x86,0x87,0x88,0x89,
  0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,
  0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,
  0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xDE,0xE6,0xE7,0xE8,0xE9,
  0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,
  0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xDF,
  0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xA1,0xB6,0xB7,0xB8,0xB9,
  0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,0xC0,0xC1,0xC2,0xC3,0xC4,
  0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
  0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xF1,0xD6,0xD7,0xD8,0xD9,
  0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0xE4,
  0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF
};

void CantOpen(char *s)
{
  fprintf(stderr,"Sorry but file \"%s\" do not wish to be opened\n",s);
  exit(0);
}

void info(void)
{
  fputs("Usage:\nc2t [+coding] [-coding] [+v|-v] [+p|-p] [+ePATH] input_file [output_file]\n",stderr);
  fputs(" +d / -d  : from / to DOS (CP866) coding\n",stderr);
  fputs("      -D  : to DOS coding with dos-format of <Enter>\n",stderr);
  fputs(" +k / -k  : from / to KOI8 coding\n",stderr);
  fputs(" +w / -w  : from / to WIN (CP1251) coding\n",stderr);
  fputs(" +m / -m  : from / to MacOS coding\n",stderr);
  fputs(" +i / -i  : from / to ISO8859-5 coding\n",stderr);
  fputs(" +r / -t  : from Russian volopek / to TeX-file\n",stderr);
  fputs("If there is no \"from\"-coding, c2t determines it\n",stderr);
  fputs(" +v / -v  : with / without visualization\n",stderr);
  fputs(" +p / -p  : with / without printing\n",stderr);
  fputs(" -e* (+e*): exotic key for setting path(= contents of *)\n",stderr);
  fputs("There is no difference between small and capital letters (except for '-D')\n",stderr);
  exit(0);
}

void label(FILE *f)
{ fputs(vers,f); fputc('\n',f); }

/* Russian volopek -> Cyrillic */
char *Rus2Cyr(Letter *s,FILE *f,int coding)
{
  static int isRoman=NO;
  Letter dat, res;
  dat=*s;
  if(dat) s++; else return s;
  res=dat;
  switch(dat) {
    case '\n':
      if(DOSend) fputc(0x0D,f);
      fputc('\n',f);
      return s;
    case ROM_SWITCH:
      if(*s==CYR_SWITCH) s++;
      else isRoman=YES;
      return s;
    case CYR_SWITCH:
      if(*s==ROM_SWITCH) s++;
      else isRoman=NO;
      return s;
    case '\\':
      if(*s==CYR_SWITCH || *s==ROM_SWITCH) { res=*s; s++; }
      break;
    }
  if(isRoman==NO) switch(dat) {
    case 'A': res=CyrLetters[coding][0]; break;
    case 'B': res=CyrLetters[coding][1]; break;
    case 'V': res=CyrLetters[coding][2]; break;
    case 'G': res=CyrLetters[coding][3]; break;
    case 'D': res=CyrLetters[coding][4]; break;
    case 'E': if(*s=='1') { res=CyrLetters[coding][30]; s++; }
              else res=CyrLetters[coding][5];
              break;
    case 'Z': if(*s=='H' || *s=='h') { res=CyrLetters[coding][7]; s++; }
              else res=CyrLetters[coding][8];
              break;
    case 'I': if(*s=='1') { res=CyrLetters[coding][10]; s++; }
              else res=CyrLetters[coding][9];
              break;
    case 'J': if(*s=='O' || *s=='o') { res=CyrLetters[coding][6]; s++; }
              else if(*s=='U' || *s=='u') { res=CyrLetters[coding][31]; s++; }
              else if(*s=='A' || *s=='a') { res=CyrLetters[coding][32]; s++; }
              else res=CyrLetters[coding][10];
              break;
    case 'K': res=CyrLetters[coding][11]; break;
    case 'L': res=CyrLetters[coding][12]; break;
    case 'M': res=CyrLetters[coding][13]; break;
    case 'N': res=CyrLetters[coding][14]; break;
    case 'O': res=CyrLetters[coding][15]; break;
    case 'P': res=CyrLetters[coding][16]; break;
    case 'R': res=CyrLetters[coding][17]; break;
    case 'S': if(*s=='H' || *s=='h') {
                s++;
                if((s[0]=='C' || s[0]=='c') && (s[1]=='H' || s[1]=='h'))
                  { res=CyrLetters[coding][26]; s++; s++; }
                else res=CyrLetters[coding][25];
              } else res=CyrLetters[coding][18];
              break;
    case 'T': if(*s=='S' || *s=='s') { res=CyrLetters[coding][23]; s++; }
              else res=CyrLetters[coding][19];
              break;
    case 'U': res=CyrLetters[coding][20]; break;
    case 'F': res=CyrLetters[coding][21]; break;
    case 'H':
    case 'X': res=CyrLetters[coding][22]; break;
    case 'C': if(*s=='H' || *s=='h') { res=CyrLetters[coding][24]; s++; }
              else res=CyrLetters[coding][23];
              break;
    case 'Q': res=CyrLetters[coding][24]; break;
    case 'W': res=CyrLetters[coding][26]; break;
    case 'Y': if(*s=='O' || *s=='o') { res=CyrLetters[coding][6]; s++; }
              else if(*s=='U' || *s=='u') { res=CyrLetters[coding][31]; s++; }
              else if(*s=='A' || *s=='a') { res=CyrLetters[coding][32]; s++; }
              else res=CyrLetters[coding][28];
              break;
    case 'a': res=CyrLetters[coding][33]; break;
    case 'b': res=CyrLetters[coding][34]; break;
    case 'v': res=CyrLetters[coding][35]; break;
    case 'g': res=CyrLetters[coding][36]; break;
    case 'd': res=CyrLetters[coding][37]; break;
    case 'e': if(*s=='1') { res=CyrLetters[coding][63]; s++; }
              else res=CyrLetters[coding][38];
              break;
    case 'z': if(*s=='h') { res=CyrLetters[coding][40]; s++; }
              else res=CyrLetters[coding][41];
              break;
    case 'i': if(*s=='1') { res=CyrLetters[coding][43]; s++; }
              else res=CyrLetters[coding][42];
              break;
    case 'j': if(*s=='o') { res=CyrLetters[coding][39]; s++; }
              else if(*s=='u') { res=CyrLetters[coding][64]; s++; }
              else if(*s=='a') { res=CyrLetters[coding][65]; s++; }
              else res=CyrLetters[coding][43];
              break;
    case 'k': res=CyrLetters[coding][44]; break;
    case 'l': res=CyrLetters[coding][45]; break;
    case 'm': res=CyrLetters[coding][46]; break;
    case 'n': res=CyrLetters[coding][47]; break;
    case 'o': res=CyrLetters[coding][48]; break;
    case 'p': res=CyrLetters[coding][49]; break;
    case 'r': res=CyrLetters[coding][50]; break;
    case 's': if(*s=='h') {
                s++;
                if(s[0]=='c' && s[1]=='h')
                  { res=CyrLetters[coding][59]; s++; s++; }
                else res=CyrLetters[coding][58];
              } else res=CyrLetters[coding][51];
              break;
    case 't': res=CyrLetters[coding][52]; break;
    case 'u': res=CyrLetters[coding][53]; break;
    case 'f': res=CyrLetters[coding][54]; break;
    case 'h':
    case 'x': res=CyrLetters[coding][55]; break;
    case 'c': if(*s=='h') { res=CyrLetters[coding][57]; s++; }
              else res=CyrLetters[coding][56];
              break;
    case 'q': res=CyrLetters[coding][57]; break;
    case 'w': res=CyrLetters[coding][59]; break;
    case 'y': if(*s=='o') { res=CyrLetters[coding][39]; s++; }
              else if(*s=='u') { res=CyrLetters[coding][64]; s++; }
              else if(*s=='a') { res=CyrLetters[coding][65]; s++; }
              else res=CyrLetters[coding][61];
              break;
    case '\'': if(*s=='1') { res=CyrLetters[coding][29]; s++; }
               else if(*s=='\'') {
                 s++;
                 if(*s=='1') { res=CyrLetters[coding][27]; s++; }
                 else res=CyrLetters[coding][60];
               } else res=CyrLetters[coding][62];
               break;
  }
  fputc(res,f);
  return s;
}

/* Cyrillic -> TeX */
char *Cyr2TeX(Letter *s,FILE *f,int coding)
{
  static int isCyrillic=NO;
  static int numSpaces=0; /* we need to make spaces at the beginning of lines */
  Letter dat;
  int i,res;
  dat=*s;
  if(dat) s++; else return s;
  if(dat==' ' && numSpaces<100) {
    numSpaces++;
    if(*s!=' ') {
      fprintf(f,"\\hskip%dmm{}",numSpaces*2);
      numSpaces=100;
    }
    return s;
  } else if(dat=='\n') {
    if(numSpaces) numSpaces=0;
    else fputs("\\phantom0",f);
  } else numSpaces=100;
  res=65; while(res>=0 && CyrLetters[coding][res]!=dat) res--;
  if(res<0) {
    switch(dat) {
      case 0x0D: return s;
      case '\\': fputs("{$\\backslash$}",f); return s;
      case '{':
      case '}': fprintf(f,"{$\\%c$}",dat); return s;
      case '-': fputs("{-}",f); return s;
      case '<':
      case '>':
      case '|':
      case '\'':
      case '+':
      case '=': fprintf(f,"{$%c$}",dat); return s;
      case '~':
      case '^': if(isCyrillic) fputs("\\rm",f); isCyrillic=NO;
                fprintf(f,"\\%c{}",dat); return s;
      case '#':
      case '$':
      case '&': if(isCyrillic) fputs("\\rm",f); isCyrillic=NO;
      case '%':
      case '_':  fputc('\\',f); break;
      default: if(isCyrillic && (dat=='@' ||
                  dat>='a' && dat<='z' || dat>='A' && dat<='Z'))
                 { fputs("\\rm{}",f); isCyrillic=NO; }
    }
    fputc(dat,f);
  } else {
    if(!isCyrillic) fputs("\\cyr{}",f);
    switch(res) {
      case  0: fputc('A',f); break;
      case  1: fputc('B',f); break;
      case  2: fputc('V',f); break;
      case  3: fputc('G',f); break;
      case  4: fputc('D',f); break;
      case  5: fputc('E',f); break;
      case  6: fputs("\\char\"13",f); break;
      case  7: fputs("Zh",f); break;
      case  8: fputc('Z',f); break;
      case  9: fputc('I',f); break;
      case 10: fputs("\\char\"12",f); break;
      case 11: fputc('K',f); break;
      case 12: fputc('L',f); break;
      case 13: fputc('M',f); break;
      case 14: fputc('N',f); break;
      case 15: fputc('O',f); break;
      case 16: fputc('P',f); break;
      case 17: fputc('R',f); break;
      case 18: fputs("{S}",f); break;
      case 19: fputc('T',f); break;
      case 20: fputc('U',f); break;
      case 21: fputc('F',f); break;
      case 22: fputs("Kh",f); break;
      case 23: fputc('C',f); break;
      case 24: fputc('Q',f); break;
      case 25: fputs("{X}",f); break;
      case 26: fputc('W',f); break;
      case 27: fputs("\\char\"5F",f); break;
      case 28: fputs("{Y}",f); break;
      case 29: fputs("\\char\"5E",f); break;
      case 30: fputs("E1",f); break;
      case 31: fputs("Yu",f); break;
      case 32: fputs("Ya",f); break;
      case 33: fputc('a',f); break;
      case 34: fputc('b',f); break;
      case 35: fputc('v',f); break;
      case 36: fputc('g',f); break;
      case 37: fputc('d',f); break;
      case 38: fputc('e',f); break;
      case 39: fputs("\\char\"1B",f); break;
      case 40: fputs("zh",f); break;
      case 41: fputc('z',f); break;
      case 42: fputc('i',f); break;
      case 43: fputs("\\char\"1A",f); break;
      case 44: fputc('k',f); break;
      case 45: fputc('l',f); break;
      case 46: fputc('m',f); break;
      case 47: fputc('n',f); break;
      case 48: fputc('o',f); break;
      case 49: fputc('p',f); break;
      case 50: fputc('r',f); break;
      case 51: fputs("{s}",f); break;
      case 52: fputc('t',f); break;
      case 53: fputc('u',f); break;
      case 54: fputc('f',f); break;
      case 55: fputs("kh",f); break;
      case 56: fputc('c',f); break;
      case 57: fputc('q',f); break;
      case 58: fputs("{x}",f); break;
      case 59: fputc('w',f); break;
      case 60: fputs("\\char\"7F",f); break;
      case 61: fputs("{y}",f); break;
      case 62: fputs("\\char\"7E",f); break;
      case 63: fputs("e1",f); break;
      case 64: fputs("yu",f); break;
      case 65: fputs("ya",f); break;
    }
    isCyrillic=YES;
    if((res== 6 || res==10 || res==27 || res==29 ||
        res==39 || res==43 || res==60 || res==62) &&
       (*s==' ' || *s=='\n' || *s=='\t')) fputs("{}",f);
    else if((res== 5 || res== 8 || res== 9 || res==23 ||
             res==38 || res==41 || res==42 || res==56) &&
            *s=='1') fputs("{}",f);
  }
  return s;
}

/* Cyrillic -> Cyrillic */
char *Cyr2Cyr(Letter *s,FILE *f,int from_coding,int to_coding)
{
  Letter dat;
  int res;
  dat=*s;
  if(dat) s++; else return s;
  if(dat==0x0D) return s;
  if(dat=='\n' && DOSend) fputc(0x0D,f);
  res=65; while(res>=0 && CyrLetters[from_coding][res]!=dat) res--;
  fputc((res<0)?dat:CyrLetters[to_coding][res],f);
  return s;
}

char *From2To(Letter *s,FILE *f,int from_coding,int to_coding)
{
  if(from_coding==RUS) return Rus2Cyr(s,f,to_coding);
  if(to_coding==TEX) return Cyr2TeX(s,f,from_coding);
  return Cyr2Cyr(s,f,from_coding,to_coding);
}

void Manager(char *ndat,char *nres,int from_coding,int to_coding)
{
  FILE *fdat, *fres;
  Letter buf[150], *s;
  if(!(fdat=fopen(ndat,"r"))) CantOpen(ndat);
  if(!(fres=fopen(nres,"w"))) CantOpen(nres);
  if(to_coding==TEX) {
    fputs("% ",fres); label(fres);
    fprintf(fres,"\\magnification%s\n",MAG);
    fprintf(fres,"\\hoffset%s\n",HOFFSET);
    fprintf(fres,"\\voffset%s\n",VOFFSET);
    fprintf(fres,"\\hsize%s\n",HSIZE);
    fprintf(fres,"\\vsize%s\n",VSIZE);
    fprintf(fres,"\\font\\cyr=%s \\relax\n",CYRFONT);
    fputs("\\catcode`@=12 \\obeyspaces\\obeylines\\frenchspacing\n",fres);
  }
  while(!ferror(fdat) && !feof(fdat) && fgets(buf,149,fdat))
    { s=buf; while(*s) s=From2To(s,fres,from_coding,to_coding); }
  if(to_coding==TEX) fputs("\n\\end",fres);
  fclose(fdat); fclose(fres);
}

int TestCyrillic(char *ndat)
{
  FILE *fdat;
  int Total, Capital[5], Small[5], i;
  int Etalon, SmallEtalon, answer;
  Letter buf[150], *s;
  if(!(fdat=fopen(ndat,"r"))) CantOpen(ndat);
  Total=0;
  for(i=0;i<5;i++) Capital[i]=Small[i]=0;
  while(!ferror(fdat) && !feof(fdat) && fgets(buf,149,fdat) && Total<30000) {
    for(s=buf;*s;s++) {
      i=(int)(*s);
      if(i>=0x80 && i<=0x9F || i==0xF0) Capital[DOS]++;
      if(i>=0xA0 && i<=0xAF || i>=0xE0&& i<=0xEF
                            || i==0xF1) Small[DOS]++;
      if(i>=0xE0 && i<=0xFF || i==0xB3) Capital[KOI]++;
      if(i>=0xC0 && i<=0xDF || i==0xA3) Small[KOI]++;
      if(i>=0xC0 && i<=0xDF || i==0xA8) Capital[WIN]++;
      if(i>=0xE0 && i<=0xFF || i==0xB8) Small[WIN]++;
      if(i>=0x80 && i<=0x9F || i==0xDD) Capital[MAC]++;
      if(i>=0xE0 && i<=0xFE || i==0xDE || i==0xDF) Small[MAC]++;
      if(i>=0xB0 && i<=0xCF || i==0xA1) Capital[ISO]++;
      if(i>=0xD0 && i<=0xEF || i==0xF1) Small[ISO]++;
      if(i>=0x80 && i<=0xFF) Total++;
    }
  }
  fclose(fdat);
  if(Total==0) {
    fputs("The system of coding is Russian volopek\n",stderr);
    return RUS;
  }
  answer=DEF_CODING;
  Etalon=Capital[answer]+Small[answer];
  SmallEtalon=Small[answer];
  for(i=0;i<5;i++) if(i!=DEF_CODING) {
    if(Capital[i]+Small[i]>Etalon) {
      answer=i;
      Etalon=Capital[i]+Small[i];
      SmallEtalon=Small[i];
    }
    else if(Capital[i]+Small[i]==Etalon && Small[i]>SmallEtalon) {
      answer=i;
      SmallEtalon=Small[i];
    }
  }
  if(Etalon==Total) fputc('T',stderr);
  else fputs("Probably t",stderr);
  fputs("he system of cyrillic coding is ",stderr);
  switch(answer) {
    case DOS: fputs("DOS (CP866)\n",stderr); break;
    case KOI: fputs("KOI8\n",stderr); break;
    case WIN: fputs("WIN (CP1251)\n",stderr); break;
    case MAC: fputs("MacOS\n",stderr); break;
    case ISO: fputs("ISO8859-5\n",stderr); break;
  }
  return answer;
}

char *SetNewFileExt(char *Namedat,char *Nameres,char *ext)
{
  int i,j;
  for(i=j=0;Namedat[i];i++) {
    Nameres[i]=Namedat[i];
    if(Namedat[i]=='.') j=i;
    else if(Namedat[i]=='\\' || Namedat[i]=='/') j=0;
  }
  if(j) i=j+1;
  else Nameres[i++]='.';
  for(j=0;ext[j];j++,i++) Nameres[i]=ext[j];
  Nameres[i]='\0';
  return Nameres;
}

int main(int argc, char **argv)
{
  FILE *ftmp;
  char *ndat, *nres, *ndat1, *nres1, *ntmp, *path, *path1, SLASH;
  int from_coding, to_coding;
  int isView, isPrint;
  int i;

  ndat=(char *)NULL; nres=(char *)NULL; path=(char *)NULL;
  from_coding=-1; to_coding=-1;
  isView=DEF_VIEW; isPrint=DEF_PRN; SLASH='/';
  label(stderr);
  for(i=1;i<argc;i++) {
    if(argv[i][0]=='+') switch(argv[i][1]) {
      case 'D':
      case 'd': if(from_coding<0) from_coding=DOS; break;
      case 'K':
      case 'k': if(from_coding<0) from_coding=KOI; break;
      case 'W':
      case 'w': if(from_coding<0) from_coding=WIN; break;
      case 'M':
      case 'm': if(from_coding<0) from_coding=MAC; break;
      case 'I':
      case 'i': if(from_coding<0) from_coding=ISO; break;
      case 'T':
      case 't':
      case 'R':
      case 'r': if(from_coding<0) from_coding=RUS; break;
      case 'V':
      case 'v': isView=YES; break;
      case 'P':
      case 'p': isPrint=YES; break;
      case 'E':
      case 'e': if(!path) path=&argv[i][2]; break;
      default: info();
    }
    else if(argv[i][0]=='-') switch(argv[i][1]) {
      case 'D': if(to_coding<0) DOSend=1;
      case 'd': if(to_coding<0) to_coding=DOS; break;
      case 'K':
      case 'k': if(to_coding<0) to_coding=KOI; break;
      case 'W':
      case 'w': if(to_coding<0) to_coding=WIN; break;
      case 'M':
      case 'm': if(to_coding<0) to_coding=MAC; break;
      case 'I':
      case 'i': if(to_coding<0) to_coding=ISO; break;
      case 'R':
      case 'r':
      case 'T':
      case 't': if(to_coding<0) to_coding=TEX; break;
      case 'V':
      case 'v': isView=NO; break;
      case 'P':
      case 'p': isPrint=NO; break;
      case 'E':
      case 'e': if(!path) path=&argv[i][2]; break;
      default: info();
    }
    else if(nres) info();
    else if(ndat) nres=argv[i];
    else ndat=argv[i];
  }
  if(!ndat || from_coding==RUS && to_coding==TEX) info();
  if(path) {
    for(i=0;path[i];i++) { if(path[i]=='\\') SLASH='\\'; }
    i--; if(path[i]==SLASH) path[i--]=0;
    path1=(char *)malloc((size_t)(strlen(path)+2));
    sprintf(path1,"%s%c",path,SLASH);
    ndat1=(char *)malloc((size_t)(strlen(path1)+strlen(ndat)+1));
    sprintf(ndat1,"%s%s",path1,ndat);
    if(nres) {
      nres1=(char *)malloc((size_t)(strlen(path1)+strlen(nres)+1));
      sprintf(nres1,"%s%s",path1,nres);
    }
  } else {
    ndat1=ndat; nres1=nres;
    path1=(char *)malloc(1);
    *path1=0;
  }
  ntmp=(char *)malloc((size_t)(strlen(path1)+12));
  sprintf(ntmp,"%stmp_c2t.tex",path1);
  if(from_coding<0) from_coding=TestCyrillic(ndat1);
  if(to_coding<0 && (!isView && !isPrint || from_coding==RUS)) to_coding=DEF_CODING;
  else if(to_coding==TEX && from_coding==RUS) from_coding=DEF_CODING;
  if(!nres1 && to_coding>=0) {
    nres1=(char *)malloc((size_t)strlen(ndat1)+5);
    switch(to_coding) {
      case DOS: SetNewFileExt(ndat1,nres1,"dos"); break;
      case KOI: SetNewFileExt(ndat1,nres1,"koi"); break;
      case WIN: SetNewFileExt(ndat1,nres1,"win"); break;
      case MAC: SetNewFileExt(ndat1,nres1,"mac"); break;
      case ISO: SetNewFileExt(ndat1,nres1,"iso"); break;
      case TEX: SetNewFileExt(ndat1,nres1,"tex"); break;
    }
  }
  if(to_coding<0) Manager(ndat1,ntmp,from_coding,TEX);
  else {
    Manager(ndat1,nres1,from_coding,to_coding);
    if((isView || isPrint) && to_coding!=TEX)
      Manager(nres1,ntmp,to_coding,TEX);
  }

  if(isView || isPrint) {
    sprintf(ntmp,"%stmp_c2t.sh",path1);
    ftmp=fopen(ntmp,"w");
    fputs(TEX_COMMAND,ftmp);
    if(to_coding==TEX) {
      fprintf(ftmp," %s\n",nres1);
      nres=(char *)malloc((size_t)strlen(nres1)+5);
      SetNewFileExt(nres1,nres,"dvi");
    }
    else fprintf(ftmp," %stmp_c2t\n",path1);
    if(isView) {
      fputs(VIEW_COMMAND,ftmp);
      if(to_coding==TEX) fprintf(ftmp," %s\n",nres);
      else fprintf(ftmp," %stmp_c2t\n",path1);
    }
    if(isPrint) {
      fputs(PRN_COMMAND,ftmp);
      if(to_coding==TEX) fprintf(ftmp," %s\n",nres);
      else fprintf(ftmp," %stmp_c2t\n",path1);
    }
    fputs(DEL_COMMAND,ftmp);
    fprintf(ftmp," tmp_c2t.*\n");
    fclose(ftmp);
    execlp(BAT_COMMAND,BAT_COMMAND,ntmp,NULL);
  }
  return 0;
}