/* * Interface includes: *	void plescroll(Panel *p, int top); *		move the given character position onto the top line *	void plegetsel(Panel *p, int *sel0, int *sel1); *		read the selection back *	int plelen(Panel *p); *		read the length of the text back *	Rune *pleget(Panel *p); *		get a pointer to the text *	void plesel(Panel *p, int sel0, int sel1); *		set the selection -- adjusts hiliting *	void plepaste(Panel *p, Rune *text, int ntext); *		replace the selection with the given text */#include <u.h>#include <libc.h>#include <libg.h>#include <panel.h>#include "pldefs.h"typedef struct Edit Edit;struct Edit{	Point minsize;	int sel0, sel1;	Textwin *t;	void (*hit)(Panel *);	Rune *text;	int ntext;};void pl_drawedit(Panel *p){	Edit *ep;	Panel *sb;	ep=p->data;	if(ep->t==0){		ep->t=twnew(p->b, font, ep->text, ep->ntext);		if(ep->t==0){			fprint(2, "pl_drawedit: can't allocate\n");			exits("no mem");		}	}	ep->t->b=p->b;	twreshape(ep->t, p->r);	twhilite(ep->t, ep->sel0, ep->sel1, F&~D);	sb=p->yscroller;	if(sb && sb->setscrollbar)		sb->setscrollbar(sb, ep->t->top, ep->t->bot, ep->t->etext-ep->t->text);}/* * Should do double-clicks: *	If ep->sel0==ep->sel1 on entry and the *	call to twselect returns the same selection, then *	expand selections (| marks possible selection points, ... is expanded selection) *	<|...|>			<> must nest *	(|...|)			() must nest *	[|...|]			[] must nest *	{|...|}			{} must nest *	'|...|'			no ' in ... *	"|...|"			no " in ... *	\n|...|\n		either newline may be the corresponding end of text *				include the trailing newline in the selection *	...|I...		I and ... are characters satisfying pl_idchar(I) *	...I| */int pl_hitedit(Panel *p, Mouse *m){	Edit *ep;	if(m->buttons&7){		ep=p->data;		ep->t->b=p->b;		twhilite(ep->t, ep->sel0, ep->sel1, F&~D);		twselect(ep->t, m);		ep->sel0=ep->t->sel0;		ep->sel1=ep->t->sel1;		if(ep->hit) ep->hit(p);	}	return 0;}void pl_scrolledit(Panel *p, int dir, int buttons, int num, int den){	Edit *ep;	Textwin *t;	Panel *sb;	int index, nline;	if(dir!=VERT) return;	ep=p->data;	t=ep->t;	t->b=p->b;	switch(buttons){	default:		return;	case 1:		/* top line moves to mouse position */		nline=(t->r.max.y-t->r.min.y)/t->hgt*num/den;		index=t->top;		while(index!=0 && nline!=0)			if(t->text[--index]=='\n') --nline;		break;	case 2:		/* absolute */		index=(t->etext-t->text)*num/den;		break;	case 4:		/* mouse points at new top line */		index=twpt2rune(t,			Pt(t->r.min.x, t->r.min.y+(t->r.max.y-t->r.min.y)*num/den));		break;	}	while(index!=0 && t->text[index-1]!='\n') --index;	if(index!=t->top){		twhilite(ep->t, ep->sel0, ep->sel1, F&~D);		twscroll(t, index);		p->scr.pos.y=t->top;		twhilite(ep->t, ep->sel0, ep->sel1, F&~D);		sb=p->yscroller;		if(sb && sb->setscrollbar)			sb->setscrollbar(sb, t->top, t->bot, t->etext-t->text);	}}void pl_typeedit(Panel *p, Rune c){	Edit *ep;	Textwin *t;	ep=p->data;	t=ep->t;	t->b=p->b;	twhilite(t, ep->sel0, ep->sel1, F&~D);	switch(c){	case '\b':		if(ep->sel0!=0) --ep->sel0;		twreplace(t, ep->sel0, ep->sel1, 0, 0);		break;	case '\025':	/* ctrl-u */		while(ep->sel0!=0 && t->text[ep->sel0-1]!='\n') --ep->sel0;		twreplace(t, ep->sel0, ep->sel1, 0, 0);		break;	case '\027':	/* ctrl-w */		while(ep->sel0!=0 && !pl_idchar(t->text[ep->sel0-1])) --ep->sel0;		while(ep->sel0!=0 && pl_idchar(t->text[ep->sel0-1])) --ep->sel0;		twreplace(t, ep->sel0, ep->sel1, 0, 0);		break;	default:		twreplace(t, ep->sel0, ep->sel1, &c, 1);		++ep->sel0;		break;	}	ep->sel1=ep->sel0;	twhilite(t, ep->sel0, ep->sel1, F&~D);}Point pl_getsizeedit(Panel *p, Point children){	USED(children);	return pl_boxsize(((Edit *)p->data)->minsize, p->state);}void pl_childspaceedit(Panel *g, Point *ul, Point *size){	USED(g, ul, size);}void plinitedit(Panel *v, int flags, Point minsize, Rune *text, int ntext, void (*hit)(Panel *)){	Edit *ep;	ep=v->data;	v->flags=flags|LEAF;	v->state=UP;	v->draw=pl_drawedit;	v->hit=pl_hitedit;	v->type=pl_typeedit;	v->getsize=pl_getsizeedit;	v->childspace=pl_childspaceedit;	ep->hit=hit;	ep->minsize=minsize;	ep->text=text;	ep->ntext=ntext;	if(ep->t!=0) twfree(ep->t);	ep->t=0;	ep->sel0=-1;	ep->sel1=-1;	v->scroll=pl_scrolledit;	v->scr.pos=Pt(0,0);	v->scr.size=Pt(ntext,0);}Panel *pledit(Panel *parent, int flags, Point minsize, Rune *text, int ntext, void (*hit)(Panel *)){	Panel *v;	v=pl_newpanel(parent, sizeof(Edit));	((Edit *)v->data)->t=0;	plinitedit(v, flags, minsize, text, ntext, hit);	return v;}void plescroll(Panel *p, int top){	twscroll(((Edit *)p->data)->t, top);}void plegetsel(Panel *p, int *sel0, int *sel1){	Edit *ep;	ep=p->data;	*sel0=ep->sel0;	*sel1=ep->sel1;}int plelen(Panel *p){	Textwin *t;	t=((Edit *)p->data)->t;	return t->etext-t->text;}Rune *pleget(Panel *p){	return ((Edit *)p->data)->t->text;}void plesel(Panel *p, int sel0, int sel1){	Edit *ep;	ep=p->data;	ep->t->b=p->b;	twhilite(ep->t, ep->sel0, ep->sel1, F&~D);	ep->sel0=sel0;	ep->sel1=sel1;	twhilite(ep->t, ep->sel0, ep->sel1, F&~D);}void plepaste(Panel *p, Rune *text, int ntext){	Edit *ep;	ep=p->data;	ep->t->b=p->b;	twhilite(ep->t, ep->sel0, ep->sel1, F&~D);	twreplace(ep->t, ep->sel0, ep->sel1, text, ntext);	ep->sel1=ep->sel0+ntext;	twhilite(ep->t, ep->sel0, ep->sel1, F&~D);	p->scr.size.y=ep->t->etext-ep->t->text;	p->scr.pos.y=ep->t->top;}