/*Sivann 1998: get a string with greek keyboard without any driver
  You only need the greek fonts.
*/

#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>



/*SVR4 method*/
no_wait()
{
    int i,fd;
    struct termio ts;
    fd=open(ttyname(0),O_RDWR);
    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;
    }

}

grgets(char *string)
{
static init=0;
unsigned char buff[32];
int r,l;

  if (!init) {
    no_wait();
    setvbuf(stdout,(char *)0,_IONBF,0);
    init=1;
  }

  string[0]=0;
  do {
      r=read(0,buff,31);
      if (strchr(buff,'\b')) {
	printf("\b \b");
	l=strlen(string);
	string[l>0?l-1:0]=0;
      }
      else {
	if (r>=0) buff[r]=0;
	trans(buff,1);
	write(1,buff,strlen(buff));
	strcat(string,buff);
	if (strchr(buff,'\n')) {
	  string[strlen(string)-1]=0;
	  break;
	}
      }
  } while(r>=0);

  return strlen(string);
}

main(int argc,char **argv)
{
int i;
char string[1024];

  i=grgets(string);
  printf("Got[%d]:%s\n",i,string);

}