#include "sam.h"#include "parse.h" int	Glooping;int	nest; int	append(File*, Cmd*, Posn);int	display(File*);void	looper(File*, Cmd*, int);void	filelooper(Cmd*, int);void	linelooper(File*, Cmd*); voidresetxec(void){	Glooping = nest = 0;} intcmdexec(File *f, Cmd *cp){	int i;	Addr *ap;	Address a; 	if(f && f->state==Unread)		load(f);	if(f==0 && (cp->addr==0 || cp->addr->type!='"') &&	    !utfrune("bBnqUXY!{", cp->cmdc) &&	    cp->cmdc!=('c'|0x100) && !(cp->cmdc=='D' && cp->ctext))		error(Enofile);	i = lookup(cp->cmdc);	if(cmdtab[i].defaddr != aNo){		if((ap=cp->addr)==0 && cp->cmdc!='\n'){			cp->addr = ap = newaddr();			ap->type = '.';			if(cmdtab[i].defaddr == aAll)				ap->type = '*';		}else if(ap && ap->type=='"' && ap->next==0 && cp->cmdc!='\n'){			ap->next = newaddr();			ap->next->type = '.';			if(cmdtab[i].defaddr == aAll)				ap->next->type = '*';		}		if(cp->addr){	/* may be false for '\n' (only) */			static Address none = {0,0,0};			if(f)				addr = address(ap, f->dot, 0);			else	/* a " */				addr = address(ap, none, 0);			f = addr.f;		}	}	current(f);	switch(cp->cmdc){	case '{':		a = cp->addr? address(cp->addr, f->dot, 0): f->dot;		for(cp = cp->ccmd; cp; cp = cp->next){			a.f->dot = a;			cmdexec(a.f, cp);		}		break;	default:		i=(*cmdtab[i].fn)(f, cp);		return i;	}	return 1;}  inta_cmd(File *f, Cmd *cp){	return append(f, cp, addr.r.p2);} intb_cmd(File *f, Cmd *cp){	USED(f);	f = cp->cmdc=='b'? tofile(cp->ctext) : getfile(cp->ctext);	if(f->state == Unread)		load(f);	else if(nest == 0)		filename(f);	return TRUE;} intc_cmd(File *f, Cmd *cp){	Fdelete(f, addr.r.p1, addr.r.p2);	f->ndot.r.p1 = f->ndot.r.p2 = addr.r.p2;	return append(f, cp, addr.r.p2);} intd_cmd(File *f, Cmd *cp){	USED(cp);	Fdelete(f, addr.r.p1, addr.r.p2);	f->ndot.r.p1 = f->ndot.r.p2 = addr.r.p1;	return TRUE;} intD_cmd(File *f, Cmd *cp){	closefiles(f, cp->ctext);	return TRUE;} inte_cmd(File *f, Cmd *cp){	if(getname(f, cp->ctext, cp->cmdc=='e')==0)		error(Enoname);	edit(f, cp->cmdc);	return TRUE;} intf_cmd(File *f, Cmd *cp){	getname(f, cp->ctext, TRUE);	filename(f);	return TRUE;} intg_cmd(File *f, Cmd *cp){	if(f!=addr.f)panic("g_cmd f!=addr.f");	compile(cp->re);	if(execute(f, addr.r.p1, addr.r.p2) ^ cp->cmdc=='v'){		f->dot = addr;		return cmdexec(f, cp->ccmd);	}	return TRUE;} inti_cmd(File *f, Cmd *cp){	return append(f, cp, addr.r.p1);} intk_cmd(File *f, Cmd *cp){	USED(cp);	f->mark = addr.r;	return TRUE;} intm_cmd(File *f, Cmd *cp){	Address addr2; 	addr2 = address(cp->caddr, f->dot, 0);	if(cp->cmdc=='m')		move(f, addr2);	else		copy(f, addr2);	return TRUE;} intn_cmd(File *f, Cmd *cp){	int i;	USED(f);	USED(cp);	for(i = 0; i<file.nused; i++){		if(file.filepptr[i] == cmd)			continue;		f = file.filepptr[i];		Strduplstr(&genstr, &f->name);		filename(f);	}	return TRUE;} intp_cmd(File *f, Cmd *cp){	USED(cp);	return display(f);} intq_cmd(File *f, Cmd *cp){	USED(cp);	USED(f);	trytoquit();	if(downloaded){		outT0(Hexit);		return TRUE;	}	return FALSE;} ints_cmd(File *f, Cmd *cp){	int i, j, c, n;	Posn p1, op, didsub = 0, delta = 0; 	n = cp->num;	op= -1;	compile(cp->re);	for(p1 = addr.r.p1; p1<=addr.r.p2 && execute(f, p1, addr.r.p2); ){		if(sel.p[0].p1==sel.p[0].p2){	/* empty match? */			if(sel.p[0].p1==op){				p1++;				continue;			}			p1 = sel.p[0].p2+1;		}else			p1 = sel.p[0].p2;		op = sel.p[0].p2;		if(--n>0)			continue;		Strzero(&genstr);		for(i = 0; i<cp->ctext->n; i++)			if((c = cp->ctext->s[i])=='\\' && i<cp->ctext->n-1){				c = cp->ctext->s[++i];				if('1'<=c && c<='9') {					j = c-'0';					if(sel.p[j].p2-sel.p[j].p1>BLOCKSIZE)						error(Elongtag);					Fchars(f, genbuf, sel.p[j].p1, sel.p[j].p2);					Strinsert(&genstr, tmprstr(genbuf, (sel.p[j].p2-sel.p[j].p1)), genstr.n);				}else				 	Straddc(&genstr, c);			}else if(c!='&')				Straddc(&genstr, c);			else{				if(sel.p[0].p2-sel.p[0].p1>BLOCKSIZE)					error(Elongrhs);				Fchars(f, genbuf, sel.p[0].p1, sel.p[0].p2);				Strinsert(&genstr,					tmprstr(genbuf, (int)(sel.p[0].p2-sel.p[0].p1)),					genstr.n);			}		if(sel.p[0].p1!=sel.p[0].p2){			Fdelete(f, sel.p[0].p1, sel.p[0].p2);			delta-=sel.p[0].p2-sel.p[0].p1;		}		if(genstr.n){			Finsert(f, &genstr, sel.p[0].p2);			delta+=genstr.n;		}		didsub = 1;		if(!cp->flag)			break;	}	if(!didsub && nest==0)		error(Enosub);	f->ndot.r.p1 = addr.r.p1, f->ndot.r.p2 = addr.r.p2+delta;	return TRUE;} intu_cmd(File *f, Cmd *cp){	int n;	USED(f);	USED(cp);	n = cp->num;	while(n-- && undo())		;	return TRUE;} intw_cmd(File *f, Cmd *cp){	if(getname(f, cp->ctext, FALSE)==0)		error(Enoname);	writef(f);	return TRUE;} intx_cmd(File *f, Cmd *cp){	if(cp->re)		looper(f, cp, cp->cmdc=='x');	else		linelooper(f, cp);	return TRUE;} intX_cmd(File *f, Cmd *cp){	USED(f);	filelooper(cp, cp->cmdc=='X');	return TRUE;} intplan9_cmd(File *f, Cmd *cp){	plan9(f, cp->cmdc, cp->ctext, nest);	return TRUE;} inteq_cmd(File *f, Cmd *cp){	int charsonly; 	switch(cp->ctext->n){	case 1:		charsonly = FALSE;		break;	case 2:		if(cp->ctext->s[0]=='#'){			charsonly = TRUE;			break;		}	default:		SET(charsonly);		error(Enewline);	}	printposn(f, charsonly);	return TRUE;} intnl_cmd(File *f, Cmd *cp){	if(cp->addr == 0){		/* First put it on newline boundaries */		addr = lineaddr((Posn)0, f->dot, -1);		addr.r.p2 = lineaddr((Posn)0, f->dot, 1).r.p2;		if(addr.r.p1==f->dot.r.p1 && addr.r.p2==f->dot.r.p2)			addr = lineaddr((Posn)1, f->dot, 1);		display(f);	}else if(downloaded)		moveto(f, addr.r);	else		display(f);	return TRUE;} intcd_cmd(File *f, Cmd *cp){	USED(f);	cd(cp->ctext);	return TRUE;} intappend(File *f, Cmd *cp, Posn p){	if(cp->ctext->n>0 && cp->ctext->s[cp->ctext->n-1]==0)		--cp->ctext->n;	if(cp->ctext->n>0)		Finsert(f, cp->ctext, p);	f->ndot.r.p1 = p;	f->ndot.r.p2 = p+cp->ctext->n;	return TRUE;} intdisplay(File *f){	Posn p1, p2;	int np, n;	char *c; 	p1 = addr.r.p1;	p2 = addr.r.p2;	while(p1 < p2){		np = p2-p1;		if(np>BLOCKSIZE-1)			np = BLOCKSIZE-1;		n = Fchars(f, genbuf, p1, p1+np);		if(n <= 0)			panic("display");		genbuf[n] = 0;		c = Strtoc(tmprstr(genbuf, n+1));		if(downloaded)			termwrite(c);		else			Write(1, c, strlen(c));		free(c);		p1+=n;	}	f->dot = addr;	return TRUE;} voidlooper(File *f, Cmd *cp, int xy){	Posn p, op;	Range r; 	r = addr.r;	op= xy? -1 : r.p1;	nest++;	compile(cp->re);	for(p = r.p1; p<=r.p2; ){		if(!execute(f, p, r.p2)){ /* no match, but y should still run */			if(xy || op>r.p2)				break;			f->dot.r.p1 = op, f->dot.r.p2 = r.p2;			p = r.p2+1;	/* exit next loop */		}else{			if(sel.p[0].p1==sel.p[0].p2){	/* empty match? */				if(sel.p[0].p1==op){					p++;					continue;				}				p = sel.p[0].p2+1;			}else				p = sel.p[0].p2;			if(xy)				f->dot.r = sel.p[0];			else				f->dot.r.p1 = op, f->dot.r.p2 = sel.p[0].p1;		}		op = sel.p[0].p2;		cmdexec(f, cp->ccmd);		compile(cp->re);	}	--nest;} voidlinelooper(File *f, Cmd *cp){	Posn p;	Range r, linesel;	Address a3; 	nest++;	r = addr.r;	a3.f = f;	a3.r.p1 = a3.r.p2 = r.p1;	for(p = r.p1; p<r.p2; p = a3.r.p2){		a3.r.p1 = a3.r.p2;/*pjw		if(p!=r.p1 || (linesel = lineaddr((Posn)0, a3, 1)).r.p2==p)*/		if(p!=r.p1 || ((linesel = lineaddr((Posn)0, a3, 1).r), linesel.p2==p))			linesel = lineaddr((Posn)1, a3, 1).r;		if(linesel.p1 >= r.p2)			break;		if(linesel.p2 >= r.p2)			linesel.p2 = r.p2;		if(linesel.p2 > linesel.p1)			if(linesel.p1>=a3.r.p2 && linesel.p2>a3.r.p2){				f->dot.r = linesel;				cmdexec(f, cp->ccmd);				a3.r = linesel;				continue;			}		break;	}	--nest;} voidfilelooper(Cmd *cp, int XY){	File *f, *cur;	int i; 	if(Glooping++)		error(EnestXY);	nest++;	settempfile();	cur = curfile;	for(i = 0; i<tempfile.nused; i++){		f = tempfile.filepptr[i];		if(f==cmd)			continue;		if(cp->re==0 || filematch(f, cp->re)==XY)			cmdexec(f, cp->ccmd);	}	if(cur && whichmenu(cur)>=0)	/* check that cur is still a file */		current(cur);	--Glooping;	--nest;}