#include <conio.h>
#include <string.h>
#include "keyscode.h"
#include "menu.h"

struct line{
  int charnum;
  char *base;
};

typedef struct line SequListElemType;

#include "sequlist.h"


#define MAXLINES 1000

int key;
int cureditline=0;
int curscrtopline=0;
int cureditcol=0;
int funckey;
int editwinx=2;
int editwiny=3;
int editwinlines=20;
int mainover=0;
FILE *curfile;

char filename[255]="test.txt";

SequList *Document;

char ascii(int k);
printdoc(int startfileline,int startscrline);
readdoc(FILE *fp);

editline(int curline,int maxcolnum)
{
  char s[2000];
  setscrcolor(BLUE,YELLOW);
  strcpy(s,Document->elem[curline].base);
  getstring(editwinx,editwiny+curline-curscrtopline,s,maxcolnum);
  free(Document->elem[curline].base);
  Document->elem[curline].base=(char *)malloc(strlen(s)+1);
  strcpy(Document->elem[curline].base,s);
}

printdoc(int startfileline,int startscrline)
{
  int i;
  int j;
  cursor_hide();
  i=startscrline;
  j=startfileline;
  setscrcolor(BLUE,YELLOW);
  gotoxy(editwinx,editwiny+startscrline);
  while(i<=editwinlines && i<Document->length)
    {
      clearscrline(editwinx,editwiny+i,78);
      putsxy(editwinx,editwiny+i++,Document->elem[j++ -1].base);
    }
  while(i<=editwinlines)
    clearscrline(editwinx,editwiny+i++,78);
  cursor_show();
}

getline(FILE *fp,char *l)
{
  int i=0;
  while(!feof(fp))
    if((l[i++]=fgetc(fp))=='\n')
      break;
  l[i-1]='\0';
}

closedoc(FILE *fp)
{

  int i;
  fclose(fp);
  for(i=0;i<Document->length;i++)
    free(Document->elem[i].base);
  SequListDestroy(Document);
}

readdoc(FILE *fp)
{
  char *newline;
  char s[20000];
  int linenum=0;
  struct line curline;
  if(!fp) return;
  while(!feof(fp))
    {
      getline(fp,s);
      linenum++;
      newline=(char *)malloc(strlen(s)+1);
      strcpy(newline,s);
      curline.base=newline;
      curline.charnum=strlen(newline);
      SequListInsert(Document,linenum,curline);
    }
}

char ascii(int k)
{
  char c;
  c=(k<<8)>>8;
  if(c>=32&&c<127)
    return c;
  else
    return 0;
}

insertchar(char *s,char c,int pos)
{
  int i;
  for(i=strlen(s)+1;i>pos;i--)
    s[i]=s[i-1];
  s[i]=c;
}
deletechar(char *s,int pos)
{
  int i;
  int j;
  j=strlen(s);
  for(i=pos;i<=j;i++)
    s[i]=s[i+1];
}
clearscrline(int x,int y,int num)
{
  int i;
  for(i=0;i<num;i++)
    putcxy(x+i,y,'');
}
getsindiag(int x,int y,int w,char *title,char *s)
{
  char buf[2000];
  gettext(x,y,x+w+2,y+2,buf);
  setscrcolor(LIGHTGRAY,BLACK);
  box(x,y,w+2,3);
  putsxy(x+3,y,title);
  getstring(x+1,y+1,s,w);
  puttext(x,y,x+w+2,y+2,buf);
}

insertnewline(int linenum)
{
  struct line  l;
  l.base=(char *)malloc(80);
  l.charnum=0;
  l.base[0]='\0';
  SequListInsert(Document,linenum,l);
}
deleteline(int linenum)
{
  SequListDelete(Document,linenum);
}

getstring(int x,int y,char *s,int num)
{
  int k;
  int n;
  char c;
  int curpos=0;
  int thisover=0;
  cursor_show();
/*  putsxy(x,y,s); */
  gotoxy(x,y);
  while(!thisover)
    {
      if(k=bioskey(1))
       { switch(k){
    case KEYEsc:
    case KEYReturn:
    case KEYUp:
    case KEYDown:
    case KEYAlt_x:
    case KEYCtrl_y:
      return;
      break;
    default:
      bioskey(0);
    }
       }
      else
 continue;
      switch(k){
 case KEYHome:
   curpos=0;
   gotoxy(x+curpos,y);
   break;
 case KEYEnd:
   curpos=strlen(s);
   gotoxy(x+curpos,y);
   break;
 case KEYReturn:
   thisover=1;
   break;
 case KEYLeft:
   if(curpos) curpos--;
   gotoxy(x+curpos,y);
   break;
 case KEYRight:
   if(curpos<num) curpos++;
   gotoxy(x+curpos,y);
   break;
 case KEYDelete:
   if(curpos<strlen(s))
    {
      deletechar(s,curpos);
      cursor_hide();
      clearscrline(x,y,num);
      putsxy(x,y,s);
      gotoxy(x+curpos,y);
      cursor_show();
    }
   break;
 case KEYBackspace:
   if(curpos)
     {
       deletechar(s,curpos-1);
       curpos--;
              cursor_hide();
       clearscrline(x,y,num);
       putsxy(x,y,s);
       gotoxy(x+curpos,y);
       cursor_show();
     }
   break;
 case KEYEsc:
   return;
 default:
   c=ascii(k);
   if (c&&strlen(s)<num)
     {
       insertchar(s,c,curpos);
       cursor_hide();
       clearscrline(x,y,num);
       curpos++;
       putsxy(x,y,s);
       gotoxy(x+curpos,y);
       cursor_show();
     }
 break;
      }
    }
}

dofunc(int itemno)
{
   switch(itemno)
    {
      case 0:
  break;
      case 1:  /*Open file*/
  getsindiag(3,4,50,"Open file Name",filename);
  if(curfile=fopen(filename,"r+"))
    {
      readdoc(curfile);
      printdoc(1,0);
    }
  break;
      case 3:
 mainover=1;
 break;
      case 21:
 showmessagew();
      default:
 break;
    }
}


main()
{ int i;
  char c;

  char  *mainmenuitem[10]={"File","Edit    ","Help"};
  char  *submenu1[10]={"New","Open","Save","Exit to system"};
  char  *submenu2[10]={"Copy","Cut","Paste   "};
  char  *submenu3[20]={"HelpContent","About"};

  initmenu(MAINMENU_V,3,&mainmenu,mainmenuitem);
  initmenu(SUBMENU_H,4,&submenu[0],submenu1);
  initmenu(SUBMENU_H,3,&submenu[1],submenu2);
  initmenu(SUBMENU_H,2,&submenu[2],submenu3);
  for(i=0;i<3;i++)
    addsubmenu(&mainmenu,i,&submenu[i]);
  definemenupos(3,1,&mainmenu);
  cursor_hide();
  showmenu(&mainmenu);
  showmainw(1,2,80,23);
  showmessagew();

  SequListInit(&Document,MAXLINES);
  insertnewline(1);
  setscrcolor(BLUE,YELLOW);
  while(!mainover)
  {
    if(key=bioskey(1))
      {if(!ascii(key))
 bioskey(0);
      }
    else
      continue;
    switch(key){
 case KEYBackspace:
 case KEYDelete:
 case KEYHome:
 case KEYEnd:
 case KEYReturn:
   if(cureditline-curscrtopline<editwinlines)
     cureditline++;
   else
     {
        curscrtopline++;
        printdoc(curscrtopline+1,editwiny);
     }
   insertnewline(cureditline+1);
   printdoc(curscrtopline+1,0);
   gotoxy(editwinx,editwiny+cureditline);
   editline(cureditline,78);
   break;
 case KEYUp:
   if (cureditline>0)
     {
       cureditline--;
       gotoxy(editwinx,editwiny+cureditline);
       editline(cureditline,78);
     }
   break;
 case KEYDown:
   if (cureditline<Document->length-1)
     {
       cureditline++;
       gotoxy(editwinx,editwiny+cureditline);
       editline(cureditline,78);
     }
   break;
 case KEYCtrl_y:
   deleteline(cureditline+1);
   if(Document->length==0)
     insertnewline(cureditline+1);
   if(cureditline>=Document->length)
     insertnewline(cureditline+1);
   printdoc(cureditline+1,cureditline-curscrtopline);
   gotoxy(editwinx,editwiny+cureditline);
   editline(cureditline,78);
   break;
 case KEYLeft:
 case KEYRight:
          break;
 case KEYCtrl_s:
   break;
 case ESC:
    cursor_hide();
    dofunc(getmenuitem());
    break;
 case KEYAlt_x:
   mainover=1;
   break;
 default:
   gotoxy(editwinx,editwiny+cureditline-curscrtopline);
   editline(cureditline,78);
   break;
    }
  }
  closedoc(curfile);
  setscrcolor(BLACK,WHITE);
  clrscr();
  cursor_show();
}