home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
GLEN
/
CSCREEN.ZIP
/
ED2.C
< prev
next >
Wrap
Text File
|
1984-03-10
|
12KB
|
607 lines
/* ED2.C */
#include "ed0.c"
#include "ed1.ccc"
#define SIGNON "E.K. Ream/Dr Dobb's Editor - IBM PC enhancement: Mar. 10, 1984"
#define SIGNNN " Modified by Alan D. Howard"
#define HELP1 "open <f/n> | name <f/n> | rename <f/n> | delname <f/n>"
#define HELP2 "load <f/n> | append <f/n> | rest | read <n> | write <n> | save"
#define HELP3 "extract [<f t>] | closeread | closewrite"
#define HELP4 "clear | delete [<f t>] | move [<f t n>] | copy [<f t n>]"
#define HELP5 "find | search [<f t>] | change [<f t>] | list [<f t>]"
#define HELP6 "tabs <n> | showtab | hidetab | help | dos | g <n> | count <n>"
#define CMNDMODE 1
#define INSMODE 2
#define EDITMODE 3
#define EXITMODE 4
int begin_line, end_line, buf_picked;
main(argc,argv) char *argv[];
{
int mode;
int i;
sysinit();
fmtassn(NO);
fmtset(8);
fmtntab();
outclr();
outxy(0,SCRNL1);
message(SIGNON);
message(SIGNNN);
outxy(0,1);
fileclear(); /* make sure no read or write files indicated */
bufnew();
begin_line=(-1); /* imaginary to start with */
end_line=(-1);
buf_picked=NO;
mode=CMNDMODE;
if (argc>1) {
openf(argv[1],NO);
rest(argv[0]);
outxy(0,1);
}
edgetln();
while(1){
if (mode ==EXITMODE) {
sysfinish();
break;
}
else if (mode==CMNDMODE) {
mode=command();
}
else if (mode==EDITMODE) {
mode=edit();
}
else if (mode==INSMODE) {
mode=insert();
}
else {
syserr("main: no mode");
mode=EDITMODE;
}
}
}
edit()
{
char c;
pmtedit();
while(1){
c=syscin(); /* tolower eliminated */
if (c==ESC1) { /* enter command mode */
return(CMNDMODE);
}
else if (c==INS1) { /* enter insert mode */
return(INSMODE);
}
else if (special(c)==YES) {
if (c==UP1){ /* DOWN1 now treated separately */
return(INSMODE);
}
else {
continue;
}
}
else if (c==DOWN1) { /* DOWN1 now does not */
eddn(); /* enter insert mode but */
pmtline(); /* just advances to next line */
edbegin();
pmtcol();
}
else if (c==DTOCH){ /* kill to character entered */
pmtmode("edit: kill");
c=syscin();
if ((special(c)==NO) &
(control(c)==NO)) {
edkill(c);
}
pmtedit();
}
else if (c==GTOCH){ /* search to character entered */
pmtmode("edit: search");
c=syscin();
if ((special(c)==NO) &
(control(c)==NO)) {
edsrch(c);
}
pmtedit();
}
else { /* editor now exchanges any other character */
if ((special(c)==NO) & /* with cursor */
(control(c)==NO)) {
edchng(c);
}
pmtcol();
}
}
}
insert()
{
char c;
pmtmode("insert");
while(1) {
c=syscin();
if (c==ESC1) {
return(CMNDMODE);
}
else if (c==EDIT1) {
return(EDITMODE);
}
else if (c==INS1) {
;
}
else if (c==DOWN1) { /* in insert mode DOWN1 treated */
ednewdn(); /* differently from edit mode */
pmtline(); /* inserts new line */
continue;
}
else if (c==DTOCH){ /* kill to character entered */
pmtmode("Insert: kill");
c=syscin();
if ((special(c)==NO) &
(control(c)==NO)) {
edkill(c);
}
}
else if (c==GTOCH){ /* search to character entered */
pmtmode("Insert: search");
c=syscin();
if ((special(c)==NO) &
(control(c)==NO)) {
edsrch(c);
}
}
else if (special(c)==YES) {
continue;
}
else if (control(c)==YES) {
continue;
}
else {
edins(c);
pmtcol();
}
}
}
control(c) char c;
{
if (c==TAB) {
return(NO);
}
else if (c>=127) {
return(YES);
}
else if (c<32) {
return(YES);
}
else {
return(NO);
}
}
special(c) char c;
{
char sbuffer[SCRNW1];
int v,x,y;
int k;
if (c==JOIN1) {
edjoin();
pmtline();
return(YES);
}
if (c==SPLT1) {
edsplit();
pmtline();
return(YES);
}
if (c==ABT1) {
edabt();
pmtcol();
return(YES);
}
else if (c==LFTDEL) { /* delete to left of cursor */
edldel();
pmtcol();
return(YES);
}
else if (c==DEL1) { /* delete at cursor */
edcdel();
pmtcol();
return(YES);
}
else if (c==ZAP1) {
edzap();
pmtline();
return(YES);
}
else if (c==UP2) {
edup();
pmtline();
return(YES);
}
else if (c==UP1) {
ednewup();
pmtline();
return(YES);
}
/* DOWN1 (CR) is no longer a special character */
else if (c==DOWN2) {
eddn();
pmtline();
return(YES);
}
else if (c==ABSLEFT) { /* left one column */
edabsleft();
pmtcol();
return(YES);
}
else if (c==ABSRGHT) { /* right one column */
edabsright();
pmtcol();
return(YES);
}
else if (c==LEFT1) { /* left one character */
edleft();
pmtcol();
return(YES);
}
else if (c==RIGHT1) { /* right one character */
edright();
pmtcol();
return(YES);
}
else if (c==BEGINPL) { /* mark beginning line */
begin_line=bufln();
pmtmode("marked buff top");
return(YES);
}
else if (c==ENDPL) { /* mark ending line */
end_line=bufln();
pmtmode("marked buff end");
return(YES);
}
else if (c==PICKIT) { /* pick marked lines to buffer */
if (edpick(begin_line,end_line)!=ERR) {
pmtmode("buffer picked");
buf_picked=YES;
}
return(YES);
}
else if (c==RIGHT1) { /* go to end of line */
edright();
pmtcol();
return(YES);
}
else if (c==ERASE) { /* erase to end of line */
ederase();
pmtcol();
return(YES);
}
else if (c==HOME) { /* move cursor alternatingly to */
edhome(); /* top and bottom of screen */
pmtline();
sysabort();
return(YES);
}
else if (c==LSTRT) { /* move to beginning of line */
edbegin();
pmtcol();
return(YES);
}
else if (c==PUTIT) { /* put buffer before line*/
if (buf_picked==YES) {
edput();
begin_line=(-1);
end_line=(-1);
}
pmtline();
return(YES);
}
else if (c==DSCROL) { /* scroll down */
pmtmode("Scroll down");
while (bufnrbot()==NO) {
if (chkkey()==YES) {
break;
}
if (eddn()==ERR) {
break;
}
}
pmtline();
return(YES);
}
else if (c==LEND){ /* move to end of line */
edend();
pmtcol();
return(YES);
}
else if (c==PAGEUP) { /* move up 20 lines */
y=bufln();
y=max(y-20,1);
if (bufattop()!=YES) {
edgo(y,0);
}
pmtline();
return(YES);
}
else if (c==PAGEDN) { /*move down 20 lines */
y=bufln();
y=y+20;
if (bufnrbot()!=YES) {
edgo(y,0);
}
pmtline();
return(YES);
}
else if (c==GOTO){ /* go to line entered */
x=outxget();
y=outyget();
pmtcmnd("Goto: ",sbuffer);
if(number(sbuffer,&v)) {
edgo(v,0);
}
else {
outxy(x,y);
}
return(YES);
}
else if (c==USCROL) { /* scroll up */
pmtmode("Scroll up");
while (bufattop()==NO) {
if (chkkey()==YES) {
break;
}
if (edup()==ERR) {
break;
}
}
pmtline();
return(YES);
}
else {
return(NO);
}
}
command()
{
int v;
char c;
char args[SCRNW1];
char *argp;
int topline;
int ypos;
int oldline;
int k;
edrepl();
oldline=bufln();
ypos=outyget();
topline=oldline-ypos+1;
while(1) {
outxy(0,SCRNL1);
fmtcrlf();
pmtmode("command:");
getcmnd(args,0);
fmtcrlf();
pmtline();
c=args[0];
if ((c==EDIT1)|(c==INS1)) {
if (oldline==bufln()) {
edgetln();
bufout(topline,1,SCRNL1);
outxy(0,ypos);
}
else {
edgo(bufln(),0);
}
if (c==EDIT1) {
return(EDITMODE);
}
else {
return(INSMODE);
}
}
else if (tolower(args[0])=='g'){
argp=skipbl(args+1);
if (argp[0]==EOS) {
edgo(oldline,0);
return(EDITMODE);
}
else if (number(argp,&v)==YES) {
edgo(v,0);
return(EDITMODE);
}
else {
message("bad line number");
}
}
else if (lookup(args,"append")) {
append(args);
}
else if (lookup(args,"change")) {
change(args,begin_line,end_line);
}
else if (lookup(args,"clear")) {
sysabort();
clear();
}
else if (lookup(args,"count")) { /* repeat count for replay */
count(args);
}
else if (lookup(args,"delete")) {
delete(args,begin_line,end_line);
begin_line=(-1);
end_line=(-1);
buf_picked=YES;
}
else if (lookup(args,"dos")) {
sysabort();
if (chkbuf()==YES) {
closewrite(); /* write file closed on exit */
return(EXITMODE);
}
}
else if (lookup(args,"find")) {
if ((k=find()) >= 0) {
edgo(bufln(),k);
return(EDITMODE);
}
else {
bufgo(oldline);
edgetln();
message("pattern not found");
}
}
else if (lookup(args,"list")) {
list(args,begin_line,end_line);
}
else if (lookup(args,"open")) { /* new */
sysabort();
openf(args,YES);
}
else if (lookup(args,"load")) { /* changed */
sysabort();
openf(args,YES);
rest(args);
}
else if (lookup(args,"name")) {
sysabort();
name(args);
}
else if (lookup(args,"write")) { /* new */
sysabort();
writel(args);
}
else if (lookup(args,"rename")) { /* new */
sysabort();
rename(args);
}
else if (lookup(args,"delname")) { /* new */
sysabort();
delname(args);
}
else if (lookup(args,"closewrite")) { /* new */
sysabort();
closewrite(args);
}
else if (lookup(args,"showtab")) { /* new */
fmtytab();
}
else if (lookup(args,"hidetab")) { /* new */
fmtntab();
}
else if (lookup(args,"closeread")) { /* new */
sysabort();
closeread(args);
}
else if (lookup(args,"help")) { /* new */
sysabort();
outclr();
outxy(0,SCRNL1);
message(HELP1);
message(HELP2);
message(HELP3);
message(HELP4);
message(HELP5);
message(HELP6);
}
else if (lookup(args,"save")) {
sysabort();
save(args);
}
else if (lookup(args,"read")) { /* new */
sysabort();
getit(args);
}
else if (lookup(args,"move")) { /* new */
moveit(args,begin_line,end_line,bufln());
begin_line=(-1);
end_line=(-1);
}
else if (lookup(args,"copy")) { /* new */
copyit(args,begin_line,end_line,bufln());
begin_line=(-1);
end_line=(-1);
}
else if (lookup(args,"search")) {
sysabort();
search(args,begin_line,end_line);
}
else if (lookup(args,"tabs")) {
tabs(args);
}
else if (lookup(args,"rest")) { /* new */
sysabort();
rest(args);
}
else if (lookup(args,"extract")) { /* new */
sysabort();
extract(args);
}
else {
sysabort();
message("command not found");
}
}
}
lookup(line,command) char *line, *command;
{
while(*command) {
if (tolower(*line++)!=*command++) {
return(NO);
}
}
if((*line==EOS)|(*line==' ')|(*line==TAB)) {
return(YES);
}
else {
return(NO);
}
}
getcmnd(args,offset) char *args; int offset;
{
int j,k;
char c;
outxy(offset++,outyget());
outdeol();
scr_chr_attr(SETINTENSE); /* set up prompt */
scr_chr_attr(SETBLINK);
syscout('>');
scr_chr_attr(NOBLINK);
k=0;
while ((c=syscin())!=CR) {
if ((c==EDIT1)|(c==INS1)) {
args[0]=c;
return;
}
if ((c==DEL1)|(c==LEFT1)) {
if (k>0) {
outxy(offset,outyget());
outdeol();
k--;
j=0;
while (j<k) {
outchar(args[j++]);
}
}
}
else if (c==ABT1) {
outxy(offset,outyget());
outdeol();
k=0;
}
else if ((c!=TAB)&((c<32)|(c==127))) {
continue;
}
else {
if ((k+offset)<SCRNW1) {
args[k++]=c;
outchar(c);
}
}
}
args[k]=EOS;
scr_chr_attr(SETFAINT);
offset--; /* erase prompt */
outxy(offset,outyget());
syscout(' ');
}