/*Sivann 1998: Write greek in vim/vi without mangling with pty's => portable*/

#include <stdio.h>
#include <string.h>
#include <termio.h> /*SVR4*/
#include <termios.h> /*POSIX under linux*/
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>

#include <signal.h>

void sig_handler(int );

/*SVR4 method*/
no_wait(int fd)
{
    int i;
    struct termio ts;
    ioctl(fd, TCGETA, &ts);
    ts.c_cc[VMIN]=1;
    ts.c_lflag = ISIG;
    ioctl(fd, TCSETA, &ts);
}


trans(char *buff,int ac)
{
int len,i,j;
static char accent=0;

  len=strlen(buff);
 if (accent==1)  {
  accent=0;
  for (i=0;i<len;i++)
    switch (buff[i]) {
   	case 'a':	buff[i]=220; break;
   	case 'e':	buff[i]=221; break;
   	case 'h':	buff[i]=222; break;
   	case 'i':	buff[i]=223; break;
   	case 'o':	buff[i]=252; break;
   	case 'y':	buff[i]=253; break;
   	case 'v':	buff[i]=254; break;
   	case 'A':	buff[i]=182; break;
   	case 'E':	buff[i]=184; break;
   	case 'H':	buff[i]=185; break;
   	case 'I':	buff[i]=186; break;
   	case 'O':	buff[i]=188; break;
   	case 'Y':	buff[i]=190; break;
   	case 'V':	buff[i]=191; break;
   	case ':':	accent=3;for (j=i;j<len;j++) buff[j]=buff[j+1]; break;
   	default: 	for (j=len;j>=i;j--) buff[j+1]=buff[j];buff[i]=39;trans(buff,0); break; /*'*/
    }
 }
 else if (accent==2)  {
  accent=0;
  for (i=0;i<len;i++)
    switch (buff[i]) {
   	case 'i':	buff[i]=250; break;
   	case 'y':	buff[i]=251; break;
   	case ';':	accent=3;for (j=i;j<len;j++) buff[j]=buff[j+1]; break;
   	default: 	for (j=len;j>=i;j--) buff[j+1]=buff[j];buff[i]=39;trans(buff,0); break; /*'*/
    }
 }
 else if (accent==3)  {
  accent=0;
  for (i=0;i<len;i++)
    switch (buff[i]) {
   	case 'y':	buff[i]=224; break;
   	case 'i':	buff[i]=192; break;
   	default: 	for (j=len;j>=i;j--) buff[j+1]=buff[j];buff[i]=39;trans(buff,0); break; /*'*/
    }
 }
 else
  for (i=0;i<len;i++)
    switch (buff[i]) {
   	case 'a':	buff[i]=225; break;
   	case 'b':	buff[i]=226; break;
   	case 'c':	buff[i]=248; break;
   	case 'd':	buff[i]=228; break;
   	case 'e':	buff[i]=229; break;
   	case 'f':	buff[i]=246; break;
   	case 'g':	buff[i]=227; break;
   	case 'h':	buff[i]=231; break;
   	case 'i':	buff[i]=233; break;
   	case 'j':	buff[i]=238; break;
   	case 'k':	buff[i]=234; break;
   	case 'l':	buff[i]=235; break;
   	case 'm':	buff[i]=236; break;
   	case 'n':	buff[i]=237; break;
   	case 'o':	buff[i]=239; break;
   	case 'p':	buff[i]=240; break;
   	case 'q':	buff[i]=';'; break;
   	case 'r':	buff[i]=241; break;
   	case 's':	buff[i]=243; break;
   	case 't':	buff[i]=244; break;
   	case 'u':	buff[i]=232; break;
   	case 'v':	buff[i]=249; break;
   	case 'w':	buff[i]=242; break;
   	case 'x':	buff[i]=247; break;
   	case 'y':	buff[i]=245; break;
   	case 'z':	buff[i]=230; break;
   	case ';':	for (j=i;j<len;j++) buff[i]=buff[i+1];
			if (ac) accent=1;break;
   	case ':':	for (j=i;j<len;j++) buff[i]=buff[i+1];
			if (ac) accent=2;break;

   	case 'A':	buff[i]=193; break;
   	case 'B':	buff[i]=194; break;
   	case 'G':	buff[i]=195; break;
   	case 'D':	buff[i]=196; break;
   	case 'E':	buff[i]=197; break;
   	case 'Z':	buff[i]=198; break;
   	case 'H':	buff[i]=199; break;
   	case 'U':	buff[i]=200; break;
   	case 'I':	buff[i]=201; break;
   	case 'K':	buff[i]=202; break;
   	case 'L':	buff[i]=203; break;
   	case 'M':	buff[i]=204; break;
   	case 'N':	buff[i]=205; break;
   	case 'J':	buff[i]=206; break;
   	case 'O':	buff[i]=207; break;
   	case 'P':	buff[i]=208; break;
   	case 'R':	buff[i]=209; break;
   	case 'S':	buff[i]=211; break;
   	case 'T':	buff[i]=212; break;
   	case 'Y':	buff[i]=213; break;
   	case 'F':	buff[i]=214; break;
   	case 'X':	buff[i]=215; break;
   	case 'C':	buff[i]=216; break;
   	case 'V':	buff[i]=217; break;
    }

}

main(int argc,char **argv)
{
char toggle;
int r,i,mode,chr,nesc;
char c,*s,cmd[256];
unsigned char uc;
unsigned char buff[1024];
FILE *sfp;


  /*Defaults*/
  strcpy(cmd,"/usr/local/bin/vim");
  toggle=24;
  nesc=0;

  signal(SIGCHLD, sig_handler);

  while ((chr=getopt (argc, argv, "nt:c:")) != -1)
    switch (chr)
      {
      case 't':
	toggle=*optarg;
        break;
      case 'n':
	nesc=1;
        break;
      case 'c':
        strcpy(cmd,optarg);
        break;
      default:
        fprintf(stderr,"\n*** grvi Version 1.1 *** S.Ioannou 1998\n");
        fprintf(stderr,"\nUsage grvi [-t togglechar] [-c command] [-n]\n");
        fprintf(stderr,"\ntogglechar defaults to ^X \n");
        fprintf(stderr,"\t-n prevents Esc to switch in english (default) \n");
        fprintf(stderr,"\tcommand  defaults to /usr/local/bin/vim\n\n");
        exit (1);
      }


    for (i=optind;i<argc;i++) {
        strcat(cmd," ");
        strcat(cmd,argv[i]);
    }

    sfp=popen(cmd,"w");
    if (!sfp) {
      perror("popen"); 
      exit(-2);
    }

    setvbuf(stdout,(char *)0,_IONBF,0);
    setvbuf(sfp,(char *)0,_IONBF,0); 

    no_wait(0);
    mode=0;

    do {
	r=read(0,buff,256);
	if (r>=0) buff[r]=0;
	if (s=strchr(buff,toggle)) {
	  for(i=0;i<r;i++) s[i]=s[i+1];
	  if (mode)  mode=0;
	  else mode=1;
	}
	if (!nesc&&strchr(buff,27)) mode=0;
        if (mode) trans(buff,1);
	write(fileno(sfp),buff,strlen(buff));
    } while(r>=0);
    pclose(sfp);

}


void sig_handler(int signum)
{
  exit(signum);
}