/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include <u.h>#include <libc.h>#include <draw.h>#include <thread.h>#include <cursor.h>#include <mouse.h>#include <keyboard.h>#include <frame.h>#include <fcall.h>#include <bio.h>#include <plumb.h>#include "dat.h"#include "fns.h" voidrowinit(Row *row, Rectangle r){	Rectangle r1;	Text *t; 	draw(screen, r, display->white, nil, ZP);	row->r = r;	row->col = nil;	row->ncol = 0;	r1 = r;	r1.max.y = r1.min.y + font->height;	t = &row->tag;	textinit(t, fileaddtext(nil, t), r1, rfget(FALSE, FALSE, FALSE, nil), tagcols);	t->what = Rowtag;	t->row = row;	t->w = nil;	t->col = nil;	r1.min.y = r1.max.y;	r1.max.y += Border;	draw(screen, r1, display->black, nil, ZP);	textinsert(t, 0, L"Newcol Kill Putall Dump Exit ", 29, TRUE);	textsetselect(t, t->file->nc, t->file->nc);} Column*rowadd(Row *row, Column *c, int x){	Rectangle r, r1;	Column *d;	int i; 	d = nil;	r = row->r;	r.min.y = row->tag.r.max.y+Border;	if(x<r.min.x && row->ncol>0){	/*steal 40% of last column by default */		d = row->col[row->ncol-1];		x = d->r.min.x + 3*Dx(d->r)/5;	}	/* look for column we'll land on */	for(i=0; i<row->ncol; i++){		d = row->col[i];		if(x < d->r.max.x)			break;	}	if(row->ncol > 0){		if(i < row->ncol)			i++;	/* new column will go after d */		r = d->r;		if(Dx(r) < 100)			return nil;		draw(screen, r, display->white, nil, ZP);		r1 = r;		r1.max.x = min(x, r.max.x-50);		if(Dx(r1) < 50)			r1.max.x = r1.min.x+50;		colresize(d, r1);		r1.min.x = r1.max.x;		r1.max.x = r1.min.x+Border;		draw(screen, r1, display->black, nil, ZP);		r.min.x = r1.max.x;	}	if(c == nil){		c = emalloc(sizeof(Column));		colinit(c, r);		incref(&reffont);	}else		colresize(c, r);	c->row = row;	c->tag.row = row;	row->col = realloc(row->col, (row->ncol+1)*sizeof(Column*));	memmove(row->col+i+1, row->col+i, (row->ncol-i)*sizeof(Column*));	row->col[i] = c;	row->ncol++;	clearmouse();	return c;} voidrowresize(Row *row, Rectangle r){	int i, dx, odx;	Rectangle r1, r2;	Column *c; 	dx = Dx(r);	odx = Dx(row->r);	row->r = r;	r1 = r;	r1.max.y = r1.min.y + font->height;	textresize(&row->tag, r1);	r1.min.y = r1.max.y;	r1.max.y += Border;	draw(screen, r1, display->black, nil, ZP);	r.min.y = r1.max.y;	r1 = r;	r1.max.x = r1.min.x;	for(i=0; i<row->ncol; i++){		c = row->col[i];		r1.min.x = r1.max.x;		if(i == row->ncol-1)			r1.max.x = r.max.x;		else			r1.max.x = r1.min.x+Dx(c->r)*dx/odx;		if(i > 0){			r2 = r1;			r2.max.x = r2.min.x+Border;			draw(screen, r2, display->black, nil, ZP);			r1.min.x = r2.max.x;		}		colresize(c, r1);	}} voidrowdragcol(Row *row, Column *c, int){	Rectangle r;	int i, b, x;	Point p, op;	Column *d; 	clearmouse();	setcursor(mousectl, &boxcursor);	b = mouse->buttons;	op = mouse->xy;	while(mouse->buttons == b)		readmouse(mousectl);	setcursor(mousectl, nil);	if(mouse->buttons){		while(mouse->buttons)			readmouse(mousectl);		return;	} 	for(i=0; i<row->ncol; i++)		if(row->col[i] == c)			goto Found;	error("can't find column");   Found:	p = mouse->xy;	if((abs(p.x-op.x)<5 && abs(p.y-op.y)<5))		return;	if((i>0 && p.x<row->col[i-1]->r.min.x) || (i<row->ncol-1 && p.x>c->r.max.x)){		/* shuffle */		x = c->r.min.x;		rowclose(row, c, FALSE);		if(rowadd(row, c, p.x) == nil)	/* whoops! */		if(rowadd(row, c, x) == nil)		/* WHOOPS! */		if(rowadd(row, c, -1)==nil){		/* shit! */			rowclose(row, c, TRUE);			return;		}		colmousebut(c);		return;	}	if(i == 0)		return;	d = row->col[i-1];	if(p.x < d->r.min.x+80+Scrollwid)		p.x = d->r.min.x+80+Scrollwid;	if(p.x > c->r.max.x-80-Scrollwid)		p.x = c->r.max.x-80-Scrollwid;	r = d->r;	r.max.x = c->r.max.x;	draw(screen, r, display->white, nil, ZP);	r.max.x = p.x;	colresize(d, r);	r = c->r;	r.min.x = p.x;	r.max.x = r.min.x;	r.max.x += Border;	draw(screen, r, display->black, nil, ZP);	r.min.x = r.max.x;	r.max.x = c->r.max.x;	colresize(c, r);	colmousebut(c);} voidrowclose(Row *row, Column *c, int dofree){	Rectangle r;	int i; 	for(i=0; i<row->ncol; i++)		if(row->col[i] == c)			goto Found;	error("can't find column");  Found:	r = c->r;	if(dofree)		colcloseall(c);	memmove(row->col+i, row->col+i+1, (row->ncol-i)*sizeof(Column*));	row->ncol--;	row->col = realloc(row->col, row->ncol*sizeof(Column*));	if(row->ncol == 0){		draw(screen, r, display->white, nil, ZP);		return;	}	if(i == row->ncol){		/* extend last column right */		c = row->col[i-1];		r.min.x = c->r.min.x;		r.max.x = row->r.max.x;	}else{			/* extend next window left */		c = row->col[i];		r.max.x = c->r.max.x;	}	draw(screen, r, display->white, nil, ZP);	colresize(c, r);} Column*rowwhichcol(Row *row, Point p){	int i;	Column *c; 	for(i=0; i<row->ncol; i++){		c = row->col[i];		if(ptinrect(p, c->r))			return c;	}	return nil;} Text*rowwhich(Row *row, Point p){	Column *c; 	if(ptinrect(p, row->tag.all))		return &row->tag;	c = rowwhichcol(row, p);	if(c)		return colwhich(c, p);	return nil;} Text*rowtype(Row *row, Rune r, Point p){	Window *w;	Text *t; 	clearmouse();	qlock(row);	if(bartflag)		t = barttext;	else		t = rowwhich(row, p);	if(t!=nil && !(t->what==Tag && ptinrect(p, t->scrollr))){		w = t->w;		if(w == nil)			texttype(t, r);		else{			winlock(w, 'K');			wintype(w, t, r);			winunlock(w);		}	}	qunlock(row);	return t;} introwclean(Row *row){	int clean;	int i; 	clean = TRUE;	for(i=0; i<row->ncol; i++)		clean &= colclean(row->col[i]);	return clean;} voidrowdump(Row *row, char *file){	int i, j, fd, m, n, dumped;	uint q0, q1;	Biobuf *b;	char *buf, *a, *fontname;	Rune *r;	Column *c;	Window *w, *w1;	Text *t; 	if(row->ncol == 0)		return;	buf = fbufalloc();	if(file == nil){		if(home == nil){			warning(nil, "can't find file for dump: $home not defined\n");			goto Rescue;		}		sprint(buf, "%s/acme.dump", home);		file = buf;	}	fd = create(file, OWRITE, 0600);	if(fd < 0){		warning(nil, "can't open %s: %r\n", file);		goto Rescue;	}	b = emalloc(sizeof(Biobuf));	Binit(b, fd, OWRITE);	r = fbufalloc();	Bprint(b, "%s\n", wdir);	Bprint(b, "%s\n", fontnames[0]);	Bprint(b, "%s\n", fontnames[1]);	for(i=0; i<row->ncol; i++){		c = row->col[i];		Bprint(b, "%11d", 100*(c->r.min.x-row->r.min.x)/Dx(row->r));		if(i == row->ncol-1)			Bputc(b, '\n');		else			Bputc(b, ' ');	}	for(i=0; i<row->ncol; i++){		c = row->col[i];		for(j=0; j<c->nw; j++)			c->w[j]->body.file->dumpid = 0;	}	for(i=0; i<row->ncol; i++){		c = row->col[i];		for(j=0; j<c->nw; j++){			w = c->w[j];			wincommit(w, &w->tag);			t = &w->body;			/* windows owned by others get special treatment */			if(w->nopen[QWevent] > 0)				if(w->dumpstr == nil)					continue;			/* zeroxes of external windows are tossed */			if(t->file->ntext > 1)				for(n=0; n<t->file->ntext; n++){					w1 = t->file->text[n]->w;					if(w == w1)						continue;					if(w1->nopen[QWevent])						goto Continue2;				}			fontname = "";			if(t->reffont->f != font)				fontname = t->reffont->f->name;			if(t->file->nname)				a = runetobyte(t->file->name, t->file->nname);			else				a = emalloc(1);			if(t->file->dumpid){				dumped = FALSE;				Bprint(b, "x%11d %11d %11d %11d %11d %s\n", i, t->file->dumpid,					w->body.q0, w->body.q1,					100*(w->r.min.y-c->r.min.y)/Dy(c->r),					fontname);			}else if(w->dumpstr){				dumped = FALSE;				Bprint(b, "e%11d %11d %11d %11d %11d %s\n", i, t->file->dumpid,					0, 0,					100*(w->r.min.y-c->r.min.y)/Dy(c->r),					fontname);			}else if((w->dirty==FALSE && access(a, 0)==0) || w->isdir){				dumped = FALSE;				t->file->dumpid = w->id;				Bprint(b, "f%11d %11d %11d %11d %11d %s\n", i, w->id,					w->body.q0, w->body.q1,					100*(w->r.min.y-c->r.min.y)/Dy(c->r),					fontname);			}else{				dumped = TRUE;				t->file->dumpid = w->id;				Bprint(b, "F%11d %11d %11d %11d %11d %11d %s\n", i, j,					w->body.q0, w->body.q1,					100*(w->r.min.y-c->r.min.y)/Dy(c->r),					w->body.file->nc, fontname);			}			free(a);			winctlprint(w, buf, 0);			Bwrite(b, buf, strlen(buf));			m = min(RBUFSIZE, w->tag.file->nc);			bufread(w->tag.file, 0, r, m);			n = 0;			while(n<m && r[n]!='\n')				n++;			r[n++] = '\n';			Bprint(b, "%.*S", n, r);			if(dumped){				q0 = 0;				q1 = t->file->nc;				while(q0 < q1){					n = q1 - q0;					if(n > BUFSIZE/UTFmax)						n = BUFSIZE/UTFmax;					bufread(t->file, q0, r, n);					Bprint(b, "%.*S", n, r);					q0 += n;				}			}			if(w->dumpstr){				if(w->dumpdir)					Bprint(b, "%s\n%s\n", w->dumpdir, w->dumpstr);				else					Bprint(b, "\n%s\n", w->dumpstr);			}    Continue2:;		}	}	Bterm(b);	close(fd);	free(b);	fbuffree(r);    Rescue:	fbuffree(buf);} staticchar*rdline(Biobuf *b, int *linep){	char *l; 	l = Brdline(b, '\n');	if(l)		(*linep)++;	return l;} /* * Get font names from load file so we don't load fonts we won't use */voidrowloadfonts(char *file){	int i;	Biobuf *b;	char *l; 	b = Bopen(file, OREAD);	if(b == nil)		return;	/* current directory */	l = Brdline(b, '\n');	if(l == nil)		goto Return;	/* global fonts */	for(i=0; i<2; i++){		l = Brdline(b, '\n');		if(l == nil)			goto Return;		l[Blinelen(b)-1] = 0;		if(*l && strcmp(l, fontnames[i])!=0){			free(fontnames[i]);			fontnames[i] = estrdup(l);		}	}    Return:	Bterm(b);} introwload(Row *row, char *file, int initing){	int i, j, line, percent, y, nr, nfontr, n, ns, ndumped, dumpid, x, fd;	Biobuf *b, *bout;	char *buf, *l, *t, *fontname;	Rune *r, rune, *fontr;	Column *c, *c1, *c2;	uint q0, q1;	Rectangle r1, r2;	Window *w; 	buf = fbufalloc();	if(file == nil){		if(home == nil){

Lines 1–500 of 733. Load more