/* ED3.C */

#include ed0.c
#include ed1.ccc
int readfile = -1;	/* separate read and write files */
int writefile = -1;	/* -1 for inactive, file channel no. for active */
char rfilename[SYSFNMAX];	/* file names */
char wfilename[SYSFNMAX];
char databuf[MAXLEN1];		/* single buffer replaces redundant buffers */
fileclear()		/* initializes filenames to zero length */
{
	rfilename[0] = EOS;
	wfilename[0] = EOS;
}
append(args) char *args;
{
int file;
int n;
int topline;
char locfn[SYSFNMAX];
	if (name1(args,locfn)==ERR) {
		return;
	}
	if (locfn[0]==EOS) {
		message("no file argument");
		return;
	}
	if ((file=sysopen(locfn,"r"))==ERR) {
		message("file not found");
		return;
	}
	while ((n=readline(file,databuf,MAXLEN))>=0) {
		if (n>MAXLEN) {
			message("line truncated");
			n=MAXLEN;
		}
		if (bufins(databuf,n)==ERR) {
			break;
		}
		if (bufdn()==ERR) {
			break;
		}
	}
	sysclose(file);
	topline=max(1,bufln()-SCRNL2);
	bufout(topline,2,SCRNL2);
	bufgo(topline);
}
change(args) char *args;
{
char oldline[MAXLEN1];
char newline[MAXLEN1];
char oldpat[MAXLEN1];
char newpat[MAXLEN1];
int from, to, col, n, k;
	if (get2args(args,&from,&to)==ERR) {
		return;
	}
	fmtsout("search mask ?	",0);
	getcmnd(oldpat,15);
	fmtcrlf();
	if(oldpat[0]==EOS) {
		return;
	}
	pmtline();
	fmtsout("change mask ?	",0);
	getcmnd(newpat,15);
	fmtcrlf();
	while (from<=to) {
		if (chkkey()==YES) {
			break;
		}
		if (bufgo(from++)==ERR) {
			break;
		}
		if (bufatbot()==YES) {
			break;
		}
		n=bufgetln(oldline,MAXLEN);
		n=min(n,MAXLEN);
		oldline[n]=EOS;
		if (oldpat[0]=='^') {
			if (amatch(oldline,oldpat+1,0)==YES) {
				k=replace(oldline,newline,
					oldpat+1,newpat,0);
				if (k==ERR) {
					return;
				}
				fmtcrlf();
				putdec(bufln(),5);
				fmtsout(newline,5);
				outdeol();
				bufrepl(newline,k);
			}
			continue;
		}
		col=0;
		while (col<n) {
			if (amatch(oldline,oldpat,col++)==YES) {
				k=replace(oldline,newline,
					oldpat,newpat,col-1);
				if (k==ERR) {
					return;
				}
				fmtcrlf();
				putdec(bufln(),5);
				fmtsout(newline,5);
				outdeol();
				bufrepl(newline,k);
				break;
			}
		}
	}
	fmtcrlf();
}
clear()
{
	if (chkbuf()==YES) {
		outclr();
		outxy(0,SCRNL1);
		bufnew();
		message("buffer cleared");
		return(YES);
	}
	else{
		return(NO);
	}
}
delete(args) char *args;
{
int from, to;
	if(get2args(args,&from,&to)==ERR) {
		return;
	}
	if (from>to) {
		return;
	}
	if (bufgo(from)==ERR) {
		return;
	}
	if (bufndel(to-from+1)==ERR) {
		return;
	}
	bufout(bufln(),1,SCRNL1);
}
find()
{
	return(suurch(bufln()+1,HUGE,YES));
}
list(args) char *args;
{
int n;
int from, to, line, oldline;
	oldline=bufln();
	if (get2args(args,&from,&to)==ERR) {
		return;
	}
	line=from;
	while (line<=to) {
		fmtassn(NO);
		if (chkkey()==YES) {
			break;
		}
		fmtassn(YES);
		if (bufgo(line++)!=OK) {
			break;
		}
		if (bufatbot()) {
			break;
		}
		n=bufgetln(databuf,MAXLEN1);
		n=min(n,MAXLEN);
		databuf[n]=CR;
		fmtsout(databuf,0);
		fmtcrlf();
	}
	fmtassn(NO);
	bufgo(oldline);
}
extract(args) char *args;	/* write indicated line range to file */
{
char args1[SCRNW1];
char *argp;
int file;
char locfn[SYSFNMAX];
int oldline, from, to, n;
	oldline = bufln();
	if (get2args(args,&from,&to)==ERR) {	/* from and to are line range */
		return;
	}
	message("enter file name");	/* request the file name */
	getcmnd(args1,0);
	argp=skipbl(args1);
	if (syschkfn(argp)==ERR) {
		return;
	}
	syscopfn(argp,locfn);
	if (locfn[0]==EOS) {
		message("no file argument");
		return;
	}
	if ((file=sysopen(locfn,"w"))==ERR){
		return;
	}
	if (bufgo(from)==ERR){
		sysclose(file);
		return;
	}
	while ((bufatbot()==NO)&(bufln()<=to)) {	/* do the writing */
		n=bufgetln(databuf,MAXLEN);
		n=min(n,MAXLEN);
		if (pushline(file,databuf,n)==ERR){
			break;
		}
		if (bufdn()==ERR) {
			break;
		}
	}
	bufgo(oldline);
	sysclose(file); 	/* close the file */
}
open (args) char *args;
{
/* open a file for reading */
char locfn [SYSFNMAX];
int n;
int file;
int topline;
	if (readfile > 0) {		/* check for open readfile */
		message("read file still open");
		return;
	}
	if (name1(args,locfn)==ERR) {
		return;
	}
	if (locfn[0]==EOS) {
		message("no file argument");
		return;
	}
	if (chkbuf()==NO) {
		return;
	}
	if ((file=sysopen(locfn,"r"))==ERR) {
		message("file not found");
		return;
	}
	syscopfn(locfn, rfilename);	/* make the file name the readfile */
	readfile = file;
	pmtrfile(rfilename);
	bufnew();
}
getit (args) char *args;	/* new: add n lines to buffer if room */
{
int n;
int topline;
int nlines,npoint;
	if (readfile == -1) {
		message ("no read file");
		return;
	}
	pmtrfile(rfilename);
	if (getarg(args,&nlines)==ERR) {
		return;
	}
	if (nlines<1) {
		return;
	}
	if (bufgo(HUGE)==ERR) {
		return;
	}
	npoint=1;
	while (npoint<=nlines) {	/* add the lines */
		npoint++;
		if ((n=readline(readfile,databuf,MAXLEN))>=0) {
			if (n>MAXLEN) {
				message("line truncated");
				n=MAXLEN;
			}
			if (buf1ins(databuf,n)==ERR) {
				bufgo(1);
				topline=max(1,bufln()-SCRNL2);
				bufout(topline,2,SCRNL2);
				bufgo(topline);
				return;
			}
			if (bufdn()==ERR) {
				break;
			}
		}
		else {
			npoint = HUGE;	   /* reached end of file - close it */
			sysclose(readfile);
			readfile = -1;
			rfilename[0] = EOS;
			pmtrfile(rfilename);
		}
	}
	bufgo(1);
	topline=max(1,bufln()-SCRNL2);
	bufout(topline,2,SCRNL2);
	bufgo(topline);
}
rest (args) char *args; /* new: try to read rest of readfile into buffer */
{
int n;
int topline;
	if (readfile == -1) {
		message ("no read file");
		return;
	}
	pmtrfile(rfilename);
/* if buffer has been changed and not saved, give option of clearing, */
/* otherwise add to end of buffer */
	if(bufchng()==YES) {
		fmtsout("buffer not saved. clear? ",0);
		pmtline();
		if (tolower(syscout(syscin()))=='y'){
			outclr();
			outxy(0,SCRNL1);
			bufnew();
			message("buffer cleared");
		}
		else {
			bufgo(HUGE);
		}
	}
	else{
		outclr();
		outxy(0,SCRNL1);
		bufnew();
		message("buffer cleared");

	}
	while ((n=readline(readfile,databuf,MAXLEN))>=0) {
		if (n>MAXLEN) {
			message("line truncated");
			n=MAXLEN;
		}
		if (buf1ins(databuf,n)==ERR) {
			bufgo(1);
			topline=max(1,bufln()-SCRNL2);
			bufout(topline,2,SCRNL2);
			bufgo(topline);
			return;
		}
		if (bufdn()==ERR) {
			break;
		}
	}
	sysclose(readfile);	/* close file if all read */
	readfile = -1;
	rfilename[0] = EOS;
	pmtrfile(rfilename);
	bufgo(1);
	topline=max(1,bufln()-SCRNL2);
	bufout(topline,2,SCRNL2);
	bufgo(topline);
}
rename(args) char *args;	/* new: change name of writefile */
{
	if (writefile == -1) {
		message("no write file - call name");
		return;
	}
	sysclose(writefile);
	writefile = -1;
	wfilename[0]=EOS;
	pmtwfile(wfilename);
	if (name0(args,wfilename)==ERR) {
		return;
	}
	pmtwfile(wfilename);
}
name(args) char *args;		/* altered definition: name the writefile */
{
	if (writefile > 0) {
		message("write file open");
		return;
	}
	if (name0(args,wfilename)==ERR){
		return;
	}
	pmtwfile(wfilename);
}
name0(args,wfilename) char *args, *wfilename;	/* names new writefile */
{
int file;
	args=skiparg(args);
	args=skipbl(args);
	if (syschkfn(args)==ERR) {
		return(ERR);
	}
	syscopfn(args,wfilename);
	if ((file=sysopen(wfilename,"r"))!=ERR) {
		sysclose(file);
		message("disk file exists");
		return(ERR);
	}
	if ((file=sysopen(wfilename,"w"))==ERR) {
		return(ERR);
	}
	writefile = file;
	return(OK);
}
delname(args) char *args;	/* new: similar to old resave command, */
{				/* but doesn't automatically write file */
	if (writefile > 0) {
		message("write file open");
		return;
	}
	if (name2(args,wfilename)==ERR){
		return;
	}
	pmtwfile(wfilename);
}
name2(args,wfilename) char *args, *wfilename;	/* open writefile: no error */
{						/* file exists */
int file;
	args=skiparg(args);
	args=skipbl(args);
	if (syschkfn(args)==ERR) {
		return(ERR);
	}
	syscopfn(args,wfilename);
	if ((file=sysopen(wfilename,"w"))==ERR) {
		return(ERR);
	}
	writefile = file;
	return(OK);
}
name1(args,filename) char *args, *filename;
{
	args=skiparg(args);
	args=skipbl(args);
	if (syschkfn(args)==ERR) {
		return(ERR);
	}
	syscopfn(args,filename);
	return(OK);
}
writel(args) char *args;	/* new: write first n lines of buffer to */
{				/* writefile and delete from buffer */
int n, to;
	if (writefile == -1) {
		message("file not opened");
		return;
	}
	if (getarg(args,&to)==ERR) {
		return;
	}
	if (bufgo(1)==ERR) {
		sysclose(writefile);
		writefile = -1;
		wfilename[0] = EOS;
		pmtwfile(wfilename);
		return;
	}
	while ((bufatbot()==NO)&(bufln()<=to)) {
		n=bufgetln(databuf,MAXLEN);
		n=min(n,MAXLEN);
		if (pushline(writefile,databuf,n)==ERR) {
			return;
		}
		if (bufdn()==ERR) {
			return;
		}
	}
	if (bufgo(1)==ERR) {
		return;
	}
	if (bufndel(to)==ERR){
		return;
	}
	bufout(bufln(),1,SCRNL1);
	if (bufatbot()) {
		bufsaved();
	}
	bufgo(1);
}
save()
{
int n, oldline;
	if (writefile == -1) {			 /* changed to writefile */
		message("file not opened");	 /* file assumed already open */
		return;
	}
	oldline=bufln();
	if (bufgo(1)==ERR) {
		sysclose(writefile);	/* close the writefile if error */
		writefile = -1;
		wfilename[0]=EOS;
		pmtwfile(wfilename);
		return;
	}
	while (bufatbot()==NO) {
		n=bufgetln(databuf,MAXLEN);
		n=min(n,MAXLEN);
		if (pushline(writefile,databuf,n)==ERR) {
			break;
		}
		if (bufdn()==ERR) {
			break;
		}
	}
	if (bufatbot()) {
		bufsaved();
	}
	bufgo(oldline);
					/* writefile no longer closed */
}
closeread()				/* new: close the readfile */
{
	if (readfile!= -1) {
		sysclose(readfile);
		readfile= -1;
		rfilename[0]=EOS;
		pmtrfile(rfilename);
	}
}
closewrite()				/* new: close the writefile */
{
	if (writefile != -1) {
		sysclose(writefile);
		writefile= -1;
		wfilename[0]=EOS;
		pmtwfile(wfilename);
	}
}
search (args) char *args;
{
int from, to;
	if (get2args(args,&from,&to)==ERR) {
		return;
	}
	suurch(from,to,NO);
}
suurch(from,to,flag) int from, to, flag;   /* old "search1" */
{
					/* now uses module buffer */
char pat [MAXLEN1];
int col, n;
	fmtsout("search mask ?	",0);
	getcmnd(pat,15);
	fmtcrlf();
	if (pat[0]==EOS) {
		return (-1);
	}
	while (from<=to) {
		if (chkkey()==YES) {
			break;
		}
		if (bufgo(from++)==ERR) {
			break;
		}
		if (bufatbot()==YES) {
			break;
		}
		n=bufgetln(databuf,MAXLEN);
		n=min(n,MAXLEN);
		databuf[n]=EOS;
		if (pat[0]=='^') {
			if (amatch(databuf,pat+1,0)==YES) {
				if (flag==NO) {
					fmtcrlf();
					putdec(bufln(),5);
					fmtsout(databuf,5);
					outdeol();
				}
				else {
					return(0);
				}
			}
			continue;
		}
		col=0;
		while (col<n) {
			if (amatch(databuf,pat,col++)==YES) {
				if (flag==NO) {
					fmtcrlf();
					putdec(bufln(),5);
					fmtsout(databuf,5);
					outdeol();
					break;
				}
				else {
					return(col-1);
				}
			}
		}
	}
	if (flag==YES) {
		return(-1);
	}
	else {
		fmtcrlf();
	}
}
tabs(args) char *args;
{
int n,junk;
	if (get2args(args,&n,&junk)==ERR) {
		return;
	}
	fmtset(n);
}
chkbuf()
{
	if (bufchng()==NO) {
		return(YES);
	}
	fmtsout("Buffer not saved.  Proceed  ? ",0);
	pmtline();
	if (tolower(syscout(syscin()))!='y') {
		fmtcrlf();
		message("cancelled");
		return(NO);
	}
	else {
		fmtcrlf();
		return(YES);
	}
}
message(s) char *s;
{
		fmtsout(s,0);
		fmtcrlf();
}
getarg(args,val) char *args; int *val;	/* new: get a single argument */
{
	args=skiparg(args);
	args=skipbl(args);
	if (*args==EOS) {
		*val=1;
		return(ERR);
	}
	if (number(args,val)==NO) {
		message("bad argument");
		return(ERR);
	}
	return(OK);
}
/* new: get three arguments						*/
get3args(args,val1,val2,val3) char *args; int *val1, *val2,*val3;
{
	args=skiparg(args);
	args=skipbl(args);
	if (*args==EOS) {
		return(ERR);
	}
	if (number(args,val1)==NO) {
		message("bad argument");
		return(ERR);
	}
	args=skiparg(args);
	args=skipbl(args);
	if(*args==EOS) {
		return(ERR);
	}
	if (number(args,val2)==NO) {
		message("bad argument");
		return(ERR);
	}
	args=skiparg(args);
	args=skipbl(args);
	if(*args==EOS) {
		return(ERR);
	}
	if (number(args,val3)==NO) {
		message("bad argument");
		return(ERR);
	}
	else {
		return(OK);
	}
}
get2args(args,val1,val2) char *args; int *val1, *val2;
{
	args=skiparg(args);
	args=skipbl(args);
	if (*args==EOS) {
		*val1=1;
		*val2=HUGE;
		return(OK);
	}
	if (number(args,val1)==NO) {
		message("bad argument");
		return(ERR);
	}
	args=skiparg(args);
	args=skipbl(args);
	if(*args==EOS) {
		*val2=HUGE;
		return(OK);
	}
	if (number(args,val2)==NO) {
		message("bad argument");
		return(ERR);
	}
	else {
		return(OK);
	}
}
skiparg(args) char *args;
{
	while ((*args!=EOS)&(*args!=' ')) {
		args++;
	}
	return(args);
}
skipbl(args) char *args;
{
	while(*args==' ') {
		args++;
	}
	return(args);
}
chkkey()
{
int c;
	c=syscstat();
	if (c==-1) {		/* note correction from original version */
		return(NO);
	}
	else if (c==' ') {
		pmtline();
		if (syscin()==' ') {
			return(NO);
		}
	}
	return(YES);
}
amatch(line,pat,col) char *line, *pat; int col;
{
int k;
	k=0;
	while (pat[k]!=EOS) {
		if (pat[k]==line[col]) {
			k++;
			col++;
		}
		else if ((pat[k]=='?')&(line[col]!=EOS)) {
			k++;
			col++;
		}
		else {
			return(NO);
		}
	}
	return(YES);
}
replace(oldline,newline,oldpat,newpat,col)
char *oldline, *newline, *oldpat, *newpat; int col;
{
int k;
char *tail, *pat;
	k=0;
	while (k<col) {
		newline[k++]= *oldline++;
	}
	tail=oldline;
	pat=oldpat;
	while (*pat++!=EOS) {
		tail++;
	}
	while (*newpat!=EOS) {
		if (k>MAXLEN-1) {
			message("new line too long");
			return(ERR);
		}
		if (*newpat!='?') {
			newline[k++]= *newpat++;
			continue;
		}
		while (*oldpat!='?') {
			if (*oldpat==EOS) {
				message(
				"too many ?'s in change mask"
				);
				return(ERR);
			}
			oldpat++;
			oldline++;
		}
		newline[k++]= *oldline++;
		oldpat++;
		newpat++;
	}
	while (*tail!=EOS) {
		if (k>MAXLEN-1) {
			message("new line too long");
			return(ERR);
		}
		newline[k++]= *tail++;
	}
	newline[k]=EOS;
	return(k);
}
copyit (args) char *args;	/* new: copies "lenn" lines from "from"   */
{				/* to "to" */
int from,to,lenn;
int topline;
	if (get3args(args,&from,&to,&lenn)==ERR) {
		return;
	}
	if (to == from) {
		return;
	}
	if ((to>from)&(to<=(from+lenn))) {
		message("interleaving not permitted");
		return;
	}
	bufcopy(from,to,lenn);
	bufgo(1);
	topline=max(1,bufln()-SCRNL2);
	bufout(topline,2,SCRNL2);
	bufgo(topline);
}
moveit (args) char *args;	/* new: moves "lenn" lines from "from" */
{				/* to "to" - same as copyit except deletes */
int from,to,lenn;		/* old lines */
int topline;
	if (get3args(args,&from,&to,&lenn)==ERR) {
		return;
	}
	if (to == from) {
		return;
	}
	if ((to>from)&(to<=(from+lenn))) {
		message("interleaving not permitted");
		return;
	}
	bufcopy(from,to,lenn);
	if (to>from){
		bufgo(from);
		bufndel(lenn);
	}
	else {
		bufgo(from+lenn);
		bufndel(lenn);
	}
	bufgo(1);
	topline=max(1,bufln()-SCRNL2);
	bufout(topline,2,SCRNL2);
	bufgo(topline);
}

.