shithub: riscv

ref: 3114102485d1be792cf528b3796fdb961e60e9e1
dir: /sys/src/cmd/abaco/html.c/

#include <u.h>
#include <libc.h>
#include <draw.h>
#include <memdraw.h>
#include <thread.h>
#include <cursor.h>
#include <mouse.h>
#include <keyboard.h>
#include <frame.h>
#include <plumb.h>
#include <html.h>
#include "dat.h"
#include "fns.h"

static void sizeitem(Lay *, Item *);

static
void
sizetext(Lay *lay, Itext *i)
{
	lay->font = getfont(i->fnt);
	i->height = lay->font->height + 2*Space;
	i->width = runestringwidth(lay->font, i->s);
	i->width += runestringnwidth(lay->font, L" ", 1);
}

static
void
sizerule(Lay *lay, Irule *i)
{
	i->width = lay->width;
	i->height = Space + i->size + Space;
}

static
void
sizeimage(Lay *, Iimage *i)
{
	Cimage *ci;

	ci = (Cimage *)i->aux;

	if(ci==nil)
		return;

	if(ci->i == nil)
		getimage(ci, i->altrep);
	if(ci->i == nil)
		return;
	i->width = Dx(ci->i->r) + i->border + i->hspace;
	i->height = Dy(ci->i->r) + i->border + i->vspace;
}

static
void
sizetextfield(Lay *, Iformfield *i)
{
	Formfield *ff;
	Font *f;
	int w, h;

	ff = i->formfield;
	if(ff->ftype == Ftextarea){
		w = ff->cols;
		h = ff->rows;
	}else{
		w = ff->size;
		h = 1;
	}
	f = getfont(WFont);
	i->width = runestringnwidth(f, L"0", 1)*w + 2*(Space+Border+Margin);
	i->width += Scrollsize+Scrollgap;
	i->height = f->height*h + 2*(Space+Border+Margin);
}

static
void
sizecheck(Lay *, Iformfield *i)
{
	i->width = Boxsize + Space;
	i->height = Boxsize;
}

static
void
sizebutton(Lay *, Iformfield *i)
{
	Font *f;
	int x;

	x = Margin + Border + Space;
	f = getfont(WFont);
	i->width = runestringwidth(f, i->formfield->value) + 2*x + Space;
	i->height = f->height + 2*x;
}

static
void
sizefimage(Lay *lay, Iformfield *i)
{
	Iimage *ii;

	ii = (Iimage *)i->formfield->image;
	sizeimage(lay, ii);
	i->width = ii->width;
	i->height = ii->height;
}

static
void
sizeselect(Lay *, Iformfield *i)
{
	Option *o;
	Font *f;
	int x;

	f = getfont(WFont);
	i->width = 0;
	for(o=i->formfield->options; o!=nil; o=o->next)
		i->width = max(i->width, runestringwidth(f, o->display));
	x = Margin + Border + Space;
	i->width += 2*x;
	i->height = f->height+2*x;
}

static
void
sizeformfield(Lay *lay, Iformfield *i)
{
	int type;

	type = i->formfield->ftype;

	if(type==Ftext || type==Ftextarea || type==Fpassword)
		sizetextfield(lay, i);
	else if(type==Fcheckbox || type==Fradio)
		sizecheck(lay, i);
	else if(type==Fbutton || type==Freset || type==Fsubmit)
		sizebutton(lay, i);
	else if(type == Fimage)
		sizefimage(lay, i);
	else if(type == Fselect)
		sizeselect(lay, i);
}

static
void
sizetable(Lay *lay, Itable *i)
{
	tablesize(i->table, lay->width);
	i->width = i->table->totw;
	i->height = i->table->toth;
}

static
void
sizefloat(Lay *lay, Ifloat *i)
{
	sizeitem(lay, i->item);
	i->width = i->item->width;
	i->height = i->item->height;
}

static
void
sizespacer(Lay *lay, Ispacer *i)
{
	if(i->spkind != ISPnull){
		if(i->spkind == ISPhspace)
			i->width = stringnwidth(lay->font, " ", 1);
		i->height = lay->font->height + 2*Space;
	}
}

static
void
sizeitem(Lay *lay, Item *i)
{

	switch(i->tag){
	case Itexttag:
		sizetext(lay, (Itext *)i);
		break;
	case Iruletag:
		sizerule(lay, (Irule *)i);
		break;
	case Iimagetag:
		sizeimage(lay, (Iimage *)i);
		break;
	case Iformfieldtag:
		sizeformfield(lay, (Iformfield *)i);
		break;
	case Itabletag:
		sizetable(lay, (Itable *)i);
		break;
	case Ifloattag:
		sizefloat(lay, (Ifloat *)i);
		break;
	case Ispacertag:
		sizespacer(lay, (Ispacer *)i);
		break;
	default:
		error("can't happen");
	}
}

static
void
drawtext(Box *b, Page *p, Image *im)
{
	Rectangle r, r1;
	Image *c;
	Point pt;
	Font *f;
	Itext *i;
	int q0, q1;

	r = rectsubpt(b->r, p->pos);
	i = (Itext *)b->i;
	f = getfont(i->fnt);
	if(istextsel(p, b->r, &q0, &q1, i->s, f)){
		r1 = r;
		if(q0 > 0)
			r1.min.x += runestringnwidth(f, i->s, q0);
		if(q1 > 0)
			r1.max.x = r1.min.x + runestringnwidth(f, i->s+q0, q1-q0);
		draw(im, r1, textcols[HIGH], nil, ZP);
	}
	c = getcolor(i->fg);
	runestringbg(im, r.min, c, ZP, f, i->s, im, addpt(r.min, im->r.min));

	if(i->ul == ULnone)
		return;

	if(i->ul == ULmid)
		r.min.y += f->height/2;
	else
		r.min.y +=f->height-1;
	pt = r.min;
	pt.x +=  runestringwidth(f, i->s);
	line(im, r.min, pt, Enddisc, Enddisc, 0, c, ZP);
}

static
void
drawrule(Box *b, Page *p, Image *im)
{
	Rectangle r;
	Irule *i;

	i = ((Irule *)b->i);
	r = rectsubpt(b->r, p->pos);
	r.min.y += Space;
	r.max.y -=Space;
	draw(im, r, getcolor(i->color), nil, ZP);
}

static
void
drawimage(Box *b, Page *p, Image *im)
{
	Rectangle r;
	Cimage *ci;
	Iimage *i;
	Image *c;

	if(b->i->tag==Iimagetag)
		i = (Iimage *)b->i;
	else
		i = (Iimage *)((Iformfield *)b->i)->formfield->image;

	ci = (Cimage *)i->aux;
	if(ci==nil || ci->i==nil)
		return;

	r = rectsubpt(b->r, p->pos);
	r.min.x += i->border + i->hspace;
	r.min.y += i->border + i->vspace;
	r.max.x -= i->border + i->hspace;
	r.max.y -= i->border + i->vspace;

	draw(im, r,  ci->i, nil, ci->i->r.min);

	if(i->border){
		if(i->anchorid >= 0)
			c = getcolor(p->doc->link);
		else
			c = display->black;

		border(im, r, i->border, c, ZP);
	}
}

static
void
drawtextfield(Image *im, Rectangle r, Iformfield *i)
{
	Formfield *ff;
	Image *c[3];
	Text *t;
	Font *f;

	r = insetrect(r, Space);
	colarray(c, getcolor(Dark), getcolor(Light), display->white, 1);
	rect3d(im, r, Border, c, ZP);
	r = insetrect(r, Border+Margin);

	if(i->aux == nil){
		ff = i->formfield;
		t = emalloc(sizeof(Text));
		if(ff->ftype == Ftextarea)
			t->what = Textarea;
		else
			t->what = Entry;
		if(ff->ftype == Fpassword)
			f = passfont;
		else
			f = getfont(WFont);
		textinit(t, im, r, f, textcols);
		if(ff->value!=nil){
			textinsert(t, 0, ff->value, runestrlen(ff->value));
			textsetselect(t, t->rs.nr, t->rs.nr);
		}
		if(t->what == Textarea)
			textscrdraw(t);
		i->aux = t;
	}else
		textresize(i->aux, im, r);
}

void
drawcheck(Image *im, Rectangle r, Formfield *f)
{
	Image *c[3];
	Point pt;
	int n;

	if(f->flags & FFchecked)
		colarray(c, getcolor(Dark), getcolor(Light), getcolor(Red), TRUE);
	else
		colarray(c, getcolor(Dark), getcolor(Light), getcolor(Back), FALSE);

	if(f->ftype == Fradio){
		n = Boxsize/2-1;
		pt = addpt(r.min, Pt(n,n));
		ellipse3d(im, pt, n, Border, c, ZP);
	}else
		rect3d(im, r, Border, c, ZP);
}

void
drawbutton(Image *im, Rectangle r, Formfield *f, int checked)
{
	Image *c[3];

	r = insetrect(r, Space);
	colarray(c, getcolor(Dark), getcolor(Light), getcolor(Back), checked);
	rect3d(im, r, Border, c, ZP);
	r.min.x += Border + Margin;
	r.min.y += Border + Margin;
	runestringbg(im, r.min, display->black, ZP,  getfont(WFont), f->value, c[2], ZP);
}

void
drawselect(Image *im, Rectangle r,	Iformfield *i)
{
	Formfield *f;
	Image *c[3];

	f = i->formfield;
	if(f->options == nil)
		return;
	r = insetrect(r, Space);
	colarray(c, getcolor(Dark), getcolor(Light), display->white, 1);
	rect3d(im, r, Border, c, ZP);
	r = insetrect(r, Border+Margin);
	draw(im, r, textcols[HIGH], nil, ZP);
	if(i->aux==nil){
		i->aux = f->options->display;
		i->formfield->value = erunestrdup(f->options->value);
	}
	runestring(im, r.min, display->black, ZP,  getfont(WFont), i->aux);
}

/* Formfields are a special case */
static
void
drawformfield(Box *b, Page *p, Image *im)
{
	Formfield *f;
	int type;

	f = ((Iformfield *)b->i)->formfield;
	type =f->ftype;
	if(istextfield(b->i))
		drawtextfield(im, rectsubpt(b->r, p->pos), (Iformfield *)b->i);
	else if(type==Fcheckbox || type==Fradio)
		drawcheck(im, rectsubpt(b->r, p->pos), f);
	else if(type==Fbutton || type==Freset || type==Fsubmit)
		drawbutton(im, rectsubpt(b->r, p->pos), f, FALSE);
	else if(type == Fimage)
		drawimage(b, p, im);
	else if(type == Fselect)
		drawselect(im, rectsubpt(b->r, p->pos), (Iformfield *)b->i);
}

static
void
drawnull(Box *, Page *, Image *)
{
}

static
Page *
whichtarget1(Page *p, Rune *r)
{
	Kidinfo *k;
	Page *c, *ret;

	k = p->kidinfo;
	if(k && k->name && runestrcmp(k->name, r)==0)
		return p;
	for(c=p->child; c; c=c->next){
		ret = whichtarget1(c, r);
		if(ret)
			return ret;
	}
	return nil;
}

static
Page *
whichtarget(Page *p, int t)
{
	Page *r;

	switch(t){
	case FTblank:
	case FTtop:
		r = &p->w->page;
		break;
	case FTself:
		r = p;
		break;
	case FTparent:
		r = p->parent;
		break;
	default:
		if(targetname(t) == L"?")
			error("targetname");
		r = whichtarget1(&p->w->page, targetname(t));
	}

	return r ? r: &p->w->page;
}

static
void
mouselink(Box *b, Page *p, int but)
{
	Runestr rs;
	Anchor *a;

	/* eat mouse */
	while(mousectl->buttons)
		readmouse(mousectl);

	if(b->i->anchorid < 0)
		return;

	/* binary search would be better */
	for(a=p->doc->anchors; a!=nil; a=a->next)
		if(a->index == b->i->anchorid)
			break;

	if(a==nil || a->href==nil)
		return;

	p = whichtarget(p, a->target);
	rs.r = urlcombine(getbase(p), a->href);
	if(rs.r == nil)
		return;
	rs.nr = runestrlen(rs.r);

	if(but == 1)
		pageget(p, &rs, nil, HGet, p==&p->w->page);
	else if(but == 2)
		textset(&p->w->status, rs.r, rs.nr);
	else if(but == 3)
		plumbrunestr(&rs, nil);
	closerunestr(&rs);
}

static
void
submit(Page *p, Formfield *formfield, int subfl)
{
	Formfield *f;
	Form *form;
	Runestr src, post;
	Rune *x, *sep, *y, *z;

	form = formfield->form;
	x = erunestrdup(L"");
	sep = L"";
	for(f=form->fields; f!=nil; f=f->next){
		if(f->ftype == Freset)
			continue;
		if((f->ftype==Fradio || f->ftype==Fcheckbox) && !(f->flags&FFchecked))
			continue;
		if(f->ftype==Fsubmit && (f!=formfield || !subfl))
			continue;
		if(f->value==nil || f->name==nil || runestrcmp(f->name, L"_no_name_submit_")==0)
			continue;

		z = ucvt(f->value);
		y = runesmprint("%S%S%S=%S", x, sep, f->name, z);
		free(z);
		sep = L"&";
		free(x);
		x = y;
	}
	p = whichtarget(p, form->target);
	y = urlcombine(getbase(p), form->action);

	memset(&src, 0, sizeof(Runestr));
	memset(&post, 0, sizeof(Runestr));
	if(form->method == HGet){
		if(y[runestrlen(y)-1] == L'?')
			sep = L"";
		else
			sep = L"?";
		src.r = runesmprint("%S%S%S",y, sep,  x);
		free(x);
		free(y);
	}else{
		src.r = y;
		post.r = x;
		post.nr = runestrlen(x);
		if(post.nr == 0){
			free(post.r);
			post.r = nil;
		}
	}
	src.nr = runestrlen(src.r);
	pageget(p, &src, &post, form->method, p==&p->w->page);
	closerunestr(&src);
	closerunestr(&post);
}

static
void
setradios(Formfield *formfield)
{
	Formfield *f;

	for(f=formfield->form->fields; f!=nil; f=f->next)
		if(f->ftype==Fradio && f!=formfield && runestrcmp(f->name, formfield->name)==0)
			f->flags &=~FFchecked;
}

static
void
selectmouse(Box *b, Page *p, int but)
{
	Formfield *f;
	Option *o;
	Menu m;
	char **item;
	int i, n;

	f = ((Iformfield *)b->i)->formfield;
	n = 0;
	item = nil;
	for(o=f->options; o!=nil; o=o->next){
		item = erealloc(item, ++n*sizeof(char *));
		if(o->display)
			item[n-1] = smprint("%S", o->display);
		else
			item[n-1] = estrdup("--");
	}
	if(item == nil)
		return;

	item[n] = 0;
	m.item = item;
	i = menuhit(but, mousectl, &m, nil);
	if(i >= 0){
		for(o=f->options; o!=nil; o=o->next, i--){
			if(i == 0)
				break;
		}
		((Iformfield *)b->i)->aux = o->display;
		drawselect(p->b, rectaddpt(rectsubpt(b->r, p->pos), p->r.min), (Iformfield *)b->i);
		if(f->value != nil)
			free(f->value);
		f->value = erunestrdup(o->value);
	}
	for(i=0; i< n; i++)
		free(item[i]);
//	free(item);
}

static
void
mouseform(Box *b, Page *p, int but)
{
	Rectangle r, cr;
	Formfield *f;
	Text *t;

	f = ((Iformfield *)b->i)->formfield;
	r = rectaddpt(rectsubpt(b->r, p->pos), p->r.min);
	if(istextfield(b->i)){
		cr = p->b->clipr;
		replclipr(p->b, 0, p->r);
		t = ((Iformfield *)b->i)->aux;
		if(p->b != t->b)
			drawtextfield(p->b, r, (Iformfield *)b->i);
		textmouse(t, mouse->xy, but);
		if(f->value)
			free(f->value);
		f->value = runesmprint("%.*S", t->rs.nr, t->rs.r);
		replclipr(p->b, 0, cr);
		return;
	}

	if(but != 1)
		return;

	if(f->ftype==Fselect){
		selectmouse(b, p, but);
		return;
	}
	if(f->ftype==Fsubmit || f->ftype==Fimage){
		if(f->ftype == Fsubmit)
			drawbutton(p->b, r, f, TRUE);
		while(mouse->buttons == but)
			readmouse(mousectl);
		if(f->ftype == Fsubmit)
			drawbutton(p->b, r, f, FALSE);
		if(mouse->buttons==0 && ptinrect(mouse->xy, r))
			submit(p, f, TRUE);
		return;
	}
	if(f->ftype==Fradio || f->ftype==Fcheckbox){
		if(f->flags&FFchecked){
			if(f->ftype==Fcheckbox)
				f->flags &=~FFchecked;
		}else{
			f->flags |= FFchecked;
		}
		if(f->ftype == Fradio)
			setradios(f);
		pageredraw(p);
	}
}

static
void
keyform(Box *b, Page *p, Rune r)
{
	Rectangle cr;
	Formfield *f;
	Text *t;

	f = ((Iformfield *)b->i)->formfield;
	if(r==L'\n' && f->ftype==Ftext){
		submit(p, f, FALSE);
		return;
	}
	t = ((Iformfield *)b->i)->aux;
	cr = p->b->clipr;
	replclipr(p->b, 0, p->r);
	if(t->b != p->b)
		drawtextfield(p->b, rectaddpt(rectsubpt(b->r, p->pos), p->r.min), (Iformfield *)b->i);
	texttype(t, r);
	if(f->value)
		free(f->value);
	f->value = runesmprint("%.*S", t->rs.nr, t->rs.r);
	replclipr(p->b, 0, cr);
}

void
boxinit(Box *b)
{
	if(b->i->anchorid)
		b->mouse = mouselink;
	/* override mouselink for forms */
	if(b->i->tag == Iformfieldtag){
		b->mouse = mouseform;
		if(istextfield(b->i))
			b->key = keyform;
	}
	switch(b->i->tag){
	case Itexttag:
		b->draw = drawtext;
		break;
	case Iruletag:
		b->draw = drawrule;
		break;
	case Iimagetag:
		b->draw = drawimage;
		break;
	case Iformfieldtag:
		b->draw = drawformfield;
		break;
	case Itabletag:
		b->draw = drawtable;
		break;
	case Ifloattag:
		b->draw = drawnull;
		break;
	case Ispacertag:
		b->draw = drawnull;
	}
}

Box *
boxalloc(Line *l, Item *i, Rectangle r)
{
	Box *b;

	b = emalloc(sizeof(Box));
	b->i = i;
	b->r = r;
	if(l->boxes == nil)
		l->boxes = b;
	else{
		b->prev = l->lastbox;
		l->lastbox->next = b;
	}
	l->lastbox = b;
	setmalloctag(b, getcallerpc(&l));
	return b;
}

Box *
pttobox(Line *l, Point xy)
{
	Box *b;

	for(b=l->boxes; b!=nil; b=b->next)
		if(ptinrect(xy, b->r))
			return b;

	return nil;
}

static
Line *
tbtoline(Itable *i, Point xy)
{
	Tablecell *c;

	for(c=i->table->cells; c!=nil; c=c->next)
		if(ptinrect(xy, c->lay->r))
			return linewhich(c->lay, xy);

	return nil;
}

Line *
linewhich(Lay *lay, Point xy)
{
	Line *l, *t;
	Box *b;

	t = nil;
	for(l=lay->lines; l!=nil; l=l->next)
		if(ptinrect(xy, l->r))
			break;

	if(l!=nil && l->hastable){
		b = pttobox(l, xy);
		if(b!=nil && b->i->tag==Itabletag)
			t = tbtoline((Itable *)b->i, xy);
	}
	return t? t: l;
}

Box *
boxwhich(Lay *lay, Point xy)
{
	Line *l;

	l = linewhich(lay, xy);
	if(l)
		return pttobox(l, xy);

	return nil;
}

static void justline1(Line *, int);

static
void
justlay(Lay *lay, int x)
{
	Line *l;

	lay->r.min.x += x;
	lay->r.max.x += x;

	for(l=lay->lines; l!=nil; l=l->next)
		justline1(l, x);
}

static
void
justtable(Itable *i, int x)
{
	Tablecell *c;

	for(c=i->table->cells; c!=nil; c=c->next)
		justlay(c->lay, x);
}

static
void
justline1(Line *l, int x)
{
	Box *b;

	l->r.min.x += x;
	l->r.max.x += x;
	for(b=l->boxes; b!=nil; b=b->next){
		if(b->i->tag == Itabletag)
			justtable((Itable *)b->i, x);
		b->r.min.x += x;
		b->r.max.x += x;
	}
}

static
void
justline(Lay *lay, Line *l)
{

	int w, x;

	w = Dx(l->r);
	if(w>0 && w<lay->width){
		x = 0;
		if(l->state & IFrjust)
			x = lay->width - w;
		else if(l->state & IFcjust)
			x = lay->width/2 - w/2;
		if(x > 0)
			justline1(l, x);
	}
}

static
void
newline(Lay *lay, int state)
{
	Line *l, *last;
	int indent, nl;

	last = lay->lastline;
	if(lay->laying == TRUE)
		justline(lay, last);

	lay->r.max.x = max(lay->r.max.x, last->r.max.x);
	lay->r.max.y = last->r.max.y;

	indent = ((state&IFindentmask)>>IFindentshift) * Tabspace;
	nl = (state & IFbrksp) ? 1 : 0;

	l = emalloc(sizeof(Line));
	l->state = state;
	l->hastext = FALSE;
	l->hastable = FALSE;
	l->r.min.x = lay->r.min.x + indent;
	l->r.min.y = last->r.max.y + font->height*nl;
	l->r.max = l->r.min;
	l->prev = last;
	last->next = l;
	lay->lastline = l;
}


static
void
layitem(Lay *lay, Item *i)
{
	Rectangle r;
	Line *l;
	Box *b;

	if(i->state&IFbrk || i->state&IFbrksp)
		newline(lay, i->state);
	else	if(lay->lastline->r.max.x+i->width>lay->xwall && forceitem(i)==FALSE)
		newline(lay, i->state);

	l = lay->lastline;
	r = Rect(l->r.max.x, l->r.min.y, l->r.max.x+i->width, l->r.min.y+i->height);
	l->r.max.x = r.max.x;
	if(l->r.max.y < r.max.y)
		l->r.max.y = r.max.y;

	if(i->tag == Ifloattag)
		i = ((Ifloat *)i)->item;
	if(i->tag == Itexttag)
		l->hastext = TRUE;
	else if(i->tag == Itabletag && lay->laying==TRUE){
		laytable((Itable *)i, r);
		l->hastable = TRUE;
	}
	b = boxalloc(l, i, r);
	if(lay->laying)
		boxinit(b);
}

static
void
linefix(Lay *lay)
{
	Line *l;

	for(l=lay->lines; l!=nil; l=l->next){
		l->r.min.x = lay->r.min.x;
		l->r.max.x = lay->r.max.x;
	}
}

Lay *
layitems(Item *items, Rectangle r, int laying)
{
	Lay *lay;
	Line *l;
	Item *i;

	lay = emalloc(sizeof(Lay));
	lay->r.min = r.min;
	lay->r.max = r.min;
	lay->xwall = r.max.x;
	lay->width = Dx(r);
	lay->laying = laying;
	l = emalloc(sizeof(Line));
	l->r.min = lay->r.min;
	l->r.max = lay->r.min;
	l->state = IFbrk;
	l->boxes = nil;
	lay->lines = l;
	lay->lastline = l;
	lay->font = font;

	for(i=items; i; i=i->next){
		sizeitem(lay, i);
		layitem(lay, i);
	}
	newline(lay, IFbrk);
	if(laying)
		linefix(lay);

	return lay;
}

void
laypage(Page *p)
{
	layfree(p->lay);
	p->lay = nil;
	settables(p);
	p->lay = layitems(p->items, Rect(0,0,Dx(p->r),Dy(p->r)), TRUE);
	p->lay->r.max.y = max(p->lay->r.max.y, Dy(p->r));
}

static
void
drawline(Page *p, Image *im, Line *l)
{
	Box *b;

	for(b=l->boxes; b!=nil; b=b->next)
		b->draw(b, p, im);
}

void
laydraw(Page *p, Image *im, Lay *lay)
{
	Rectangle r;
	Line *l;

	r = rectaddpt(p->lay->r, p->pos);
	for(l=lay->lines; l!=nil; l=l->next){
		if(rectXrect(r, l->r))
			drawline(p, im, l);
	}
}

static
void
laytablefree(Table *t)
{
	Tablecell *c;

	for(c=t->cells; c!=nil; c=c->next){
		layfree(c->lay);
		c->lay = nil;
	}
}

void
layfree(Lay *lay)
{
	Line *l, *nextline;
	Box *b, *nextbox;
	void **aux;

	if(lay == nil)
		return;

	for(l=lay->lines; l!=nil; l=nextline){
		for(b=l->boxes; b!=nil; b=nextbox){
			nextbox = b->next;
			if(lay->laying==TRUE){
				if(b->i->tag==Iformfieldtag && istextfield(b->i)){
					aux = &((Iformfield *)b->i)->aux;
					if(*aux){
						textclose(*aux);
						free(*aux);
					}
					*aux = nil;
				}else if(b->i->tag == Itabletag)
					laytablefree(((Itable *)b->i)->table);
			}
			free(b);
		}
		nextline = l->next;
		free(l);
	}
	free(lay);
}

void
laysnarf(Page *p, Lay *lay, Runestr *rs)
{
	Tablecell *c;
	Itext *i;
	Font *f;
	Line *l;
	Box *b;
	int q0, q1, n;

	for(l=lay->lines; l!=nil; l=l->next) for(b=l->boxes; b!=nil; b=b->next){
		if(p->selecting && hasbrk(b->i->state)){
			rs->r = runerealloc(rs->r, rs->nr+2);
			rs->r[rs->nr++] = L'\n';
			rs->r[rs->nr] = L'\0';
		}
		if(b->i->tag==Itexttag){
			i = (Itext *)b->i;
			f = getfont(i->fnt);
			if(istextsel(p, b->r, &q0, &q1, i->s, f)){
				if(q1 == 0)
					q1 = runestrlen(i->s);
				n = q1-q0;
				if(n == 0)
					n = runestrlen(i->s);
				rs->r = runerealloc(rs->r, rs->nr+n+2);
				runemove(rs->r+rs->nr, i->s+q0, n);
				rs->nr += n;
				rs->r[rs->nr++] = L' ';
				rs->r[rs->nr] = L'\0';
			}
		}else if(b->i->tag == Itabletag)
			for(c=((Itable *)b->i)->table->cells; c!=nil; c=c->next)
				if(c->lay)
					laysnarf(p, c->lay, rs);
	}
}