Write a C program that works as an editor.
#include<stdlib.h>
#include<alloc.h>
#include<stdio.h>
#include<conio.h>
write2vdu(char, char, int, int);
void border(void);
int search(char);
void insert( char);
void backspace(void);
void save(void);
void open(char*);
void delete(void);
void position(void);
char readvdu(int,int);
char attr = 11;
char far *vidmem = (char far *)(0xB8000000);
FILE *filep;
main()
{
int xi,yi,xf,yf;
int j,h,l;
char c=0,spkey,s,i,end;
char se[80],sea[]="Search :";
char filename[20];
int x=2,y=5,x1,y1;
int a;
FILE *filep;
border();
window( 3,5,77,24);
while(c!=27)
{
c=getch();
if(c==8){ backspace(); } /* backspace */if(c==0)
{
spkey = getch();
switch(spkey)
{
case 71: y=wherey(); /* home */
gotoxy(1,y);
break;
case 79: y=wherey(); /* end */
gotoxy(75,y);
x=wherex();
while(1)
{
end=readvdu(y+3,x);
if((end!=' ')||(x==1)) break;
x--;
}
gotoxy(x,y);
break;
case 72: y=wherey(); x=wherex();
y--; /* up */
gotoxy(x,y);
break;
case 77: x=wherex(); y=wherey(); /* right */
x++;
gotoxy(x,y);
break;
case 75: x=wherex(); y=wherey();
x--; /* left */
gotoxy(x,y);
break;
case 80: x=wherex(); y=wherey();
y++; /* down */
gotoxy(x,y);
break;
case 83: delete(); /* delete */break;
case 82: i=0; /* insert */while(i!=27)
{
i=getch();
insert(i);
position();
}
break;
case 59: window(1,1,77,4); /* F1 search */
gotoxy(52,3);
for(i=0; sea[i]!=NULL; i++)
write2vdu(sea[i],attr,2,i+42);
s=getche();
a=search(s);
window(1,1,77,4);
gotoxy(66,3);
printf("%d Occurences",a);
getch();
gotoxy(41,3);
printf(" ");
window( 3,5,77,21);
break;
case 60: window(1,1,77,4); /* F2 save */
gotoxy(45,3);
printf("Save as: ");
gets(filename);
getch();
gotoxy(45,3);
printf(" ");
filep=fopen("filen","w+");
fclose(filep);
save();
fclose(filep);
window( 3,5,77,21);
break;
case 61: window(1,1,77,4); /* F3 open */
gotoxy(45,3);
printf("Open file: ");
gets(filename);
open(filename);
window(1,1,77,4);
getch();
gotoxy(45,3);
printf(" ");
window( 3,5,77,21);
break;
case 62: /* F4 start select */
xi=wherex(); yi=wherey();
break;
case 63: i=0; /* F5 end select */
xf=wherex();
for(h=xi; h<=xf; h++)
{
se[i]=readvdu(yi+3,h);
write2vdu(se[i],25,yi+3,h);
i++;
}
l=i;
break;
case 64: i=0; /* F6 paste */
x=wherex(); y=wherey();
for(h=0; h<l; h++)
{
write2vdu(se[i],attr,y+3,x+h);
i++;
}
break;
}
}
else
{
if((c!=13)&&(c!=8)&&(c!=27))
{
x=wherex();
y=wherey();
if(x>74)
{ x=1; y++; gotoxy(x,y); }
/* printf("%c",c);*/
write2vdu(c,attr,y+3,x+1);
gotoxy(x+1,y);
}
}
if(c==13){ y=wherey(); y++; x=1; /* enter */
gotoxy(x,y); }
position();
}
}
void border(void)
{
int i;
int f,g;
char line[] = "Line";
char col[] = "Col";
clrscr();
for(i=1; i<=23; i++)
{
write2vdu(179,attr,i,0);
write2vdu(179,attr,i,79);
}
for(i=1; i<=78; i++)
{
write2vdu(205,attr,0,i);
write2vdu(205,attr,24,i);
}
write2vdu(213,attr,0,0); /* four ends */
write2vdu(184,attr,0,79);
write2vdu(212,attr,24,0);
write2vdu(190,attr,24,79);
/* line */for(i=1; i<=78; i++)
write2vdu(196,attr,3,i);
for(i=0; line[i]!=NULL; i++)
write2vdu(line[i],attr,2,i+4);
for(i=0;col[i]!=NULL; i++)
write2vdu(col[i],attr,2,i+16);
}
write2vdu(char ch, char attr, int row, int col)
{
char far *v;
v = vidmem + row*160 + col*2 ;
*v = ch;
v++;
*v = attr;
}
char readvdu( int row, int col)
{
char far *v;
v = vidmem + row*160 + col*2 ;
return(*v);
}
int search(char s)
{
int x, y, l=0;
char far *p;
for(y=1; y<20; y++)
{
for(x=1; x<70; x++)
{
p=(vidmem + (3+y)*160 + x*2 );
if(*p==s)
{
write2vdu(s,59,y+3,x);
l++;
getch();
write2vdu(s,attr,y+3,x);
}
}
}
return(l);
}
void insert(char i)
{
char far *k;
char far *u;
int b,x,y;
if(i==27) return;
x=wherex(); y=wherey();
k = vidmem + (y+3)*160 + x*2 ;
u = vidmem + (y+3)*160 + 77*2 ;
for( b=(77-x); b>0; b--)
{
*u=*(u-2);
u=u-2;
}
*(k+2)=i;
x++; gotoxy(x,y);
return;
}
void backspace(void)
{
char far *k;
int b,x,y;
x=wherex(); y=wherey();
if(x<=1)
return;
k = vidmem + (y+3)*160 + x*2 ;
for(b=0; b<=77-x; b++)
{
*k=*(k+2);
k=k+2;
}
gotoxy(x-1,y);
return;
}
void save(void)
{
int x,y;
char t;
for(y=3; y<24; y++)
{
for(x=2; x<75; x++)
{
t=readvdu(y,x);
fputc(t,filep);
}
}
}
void open(char* f)
{
char vdu[4096];
char far *u=vidmem;
FILE *fp;
int b;
fp = fopen(f,"r");
fgets(vdu,4096,fp);
for(b=0; b<4096; b++)
{
*u=vdu[b];
u++;
}
fclose(fp);
}
void delete(void)
{
char far *k;
int b,x,y;
x=wherex(); y=wherey();
if(x<=1)
return;
k = vidmem + (y+3)*160 + x*2 + 2 ;
for(b=0; b<=76-x; b++)
{
*(k)=*(k+2);
k=k+2;
}
return;
}
void position(void)
{
int x1,y1;
x1=wherex(); y1=wherey();
window(1,1,77,4);
gotoxy(11,3); printf(" ");
gotoxy(11,3); printf("%d",y1);
gotoxy(22,3); printf(" ");
gotoxy(22,3); printf("%d",x1);
window( 3,5,77,24);
gotoxy(x1,y1);
}
