源程序
#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 1000int 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();}
