1 b3994ec5 2003-12-11 devnull #include <u.h>
  2 b3994ec5 2003-12-11 devnull #include <libc.h>
  3 b3994ec5 2003-12-11 devnull #include <draw.h>
  4 b3994ec5 2003-12-11 devnull #include <thread.h>
  5 b3994ec5 2003-12-11 devnull #include <cursor.h>
  6 b3994ec5 2003-12-11 devnull #include <mouse.h>
  7 b3994ec5 2003-12-11 devnull #include <keyboard.h>
  8 b3994ec5 2003-12-11 devnull #include <frame.h>
  9 b3994ec5 2003-12-11 devnull #include <fcall.h>
 10 b3994ec5 2003-12-11 devnull #include <bio.h>
 11 b3994ec5 2003-12-11 devnull #include <plumb.h>
 12 67dbeee5 2017-10-10 rsc #include <libsec.h>
 13 b3994ec5 2003-12-11 devnull #include "dat.h"
 14 b3994ec5 2003-12-11 devnull #include "fns.h"
 15 b3994ec5 2003-12-11 devnull 
 16 b3994ec5 2003-12-11 devnull static Rune Lcolhdr[] = {
 17 b3994ec5 2003-12-11 devnull 	'N', 'e', 'w', 'c', 'o', 'l', ' ',
 18 b3994ec5 2003-12-11 devnull 	'K', 'i', 'l', 'l', ' ',
 19 b3994ec5 2003-12-11 devnull 	'P', 'u', 't', 'a', 'l', 'l', ' ',
 20 b3994ec5 2003-12-11 devnull 	'D', 'u', 'm', 'p', ' ',
 21 b3994ec5 2003-12-11 devnull 	'E', 'x', 'i', 't', ' ',
 22 b3994ec5 2003-12-11 devnull 	0
 23 b3994ec5 2003-12-11 devnull };
 24 b3994ec5 2003-12-11 devnull 
 25 b3994ec5 2003-12-11 devnull void
 26 b3994ec5 2003-12-11 devnull rowinit(Row *row, Rectangle r)
 27 b3994ec5 2003-12-11 devnull {
 28 b3994ec5 2003-12-11 devnull 	Rectangle r1;
 29 b3994ec5 2003-12-11 devnull 	Text *t;
 30 b3994ec5 2003-12-11 devnull 
 31 b3994ec5 2003-12-11 devnull 	draw(screen, r, display->white, nil, ZP);
 32 b3994ec5 2003-12-11 devnull 	row->r = r;
 33 b3994ec5 2003-12-11 devnull 	row->col = nil;
 34 b3994ec5 2003-12-11 devnull 	row->ncol = 0;
 35 b3994ec5 2003-12-11 devnull 	r1 = r;
 36 b3994ec5 2003-12-11 devnull 	r1.max.y = r1.min.y + font->height;
 37 b3994ec5 2003-12-11 devnull 	t = &row->tag;
 38 b3994ec5 2003-12-11 devnull 	textinit(t, fileaddtext(nil, t), r1, rfget(FALSE, FALSE, FALSE, nil), tagcols);
 39 b3994ec5 2003-12-11 devnull 	t->what = Rowtag;
 40 b3994ec5 2003-12-11 devnull 	t->row = row;
 41 b3994ec5 2003-12-11 devnull 	t->w = nil;
 42 b3994ec5 2003-12-11 devnull 	t->col = nil;
 43 b3994ec5 2003-12-11 devnull 	r1.min.y = r1.max.y;
 44 b3994ec5 2003-12-11 devnull 	r1.max.y += Border;
 45 b3994ec5 2003-12-11 devnull 	draw(screen, r1, display->black, nil, ZP);
 46 b3994ec5 2003-12-11 devnull 	textinsert(t, 0, Lcolhdr, 29, TRUE);
 47 b3994ec5 2003-12-11 devnull 	textsetselect(t, t->file->b.nc, t->file->b.nc);
 48 b3994ec5 2003-12-11 devnull }
 49 b3994ec5 2003-12-11 devnull 
 50 b3994ec5 2003-12-11 devnull Column*
 51 b3994ec5 2003-12-11 devnull rowadd(Row *row, Column *c, int x)
 52 b3994ec5 2003-12-11 devnull {
 53 b3994ec5 2003-12-11 devnull 	Rectangle r, r1;
 54 b3994ec5 2003-12-11 devnull 	Column *d;
 55 b3994ec5 2003-12-11 devnull 	int i;
 56 b3994ec5 2003-12-11 devnull 
 57 b3994ec5 2003-12-11 devnull 	d = nil;
 58 b3994ec5 2003-12-11 devnull 	r = row->r;
 59 b3994ec5 2003-12-11 devnull 	r.min.y = row->tag.fr.r.max.y+Border;
 60 b3994ec5 2003-12-11 devnull 	if(x<r.min.x && row->ncol>0){	/*steal 40% of last column by default */
 61 b3994ec5 2003-12-11 devnull 		d = row->col[row->ncol-1];
 62 b3994ec5 2003-12-11 devnull 		x = d->r.min.x + 3*Dx(d->r)/5;
 63 b3994ec5 2003-12-11 devnull 	}
 64 b3994ec5 2003-12-11 devnull 	/* look for column we'll land on */
 65 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
 66 b3994ec5 2003-12-11 devnull 		d = row->col[i];
 67 b3994ec5 2003-12-11 devnull 		if(x < d->r.max.x)
 68 b3994ec5 2003-12-11 devnull 			break;
 69 b3994ec5 2003-12-11 devnull 	}
 70 b3994ec5 2003-12-11 devnull 	if(row->ncol > 0){
 71 b3994ec5 2003-12-11 devnull 		if(i < row->ncol)
 72 b3994ec5 2003-12-11 devnull 			i++;	/* new column will go after d */
 73 b3994ec5 2003-12-11 devnull 		r = d->r;
 74 b3994ec5 2003-12-11 devnull 		if(Dx(r) < 100)
 75 b3994ec5 2003-12-11 devnull 			return nil;
 76 b3994ec5 2003-12-11 devnull 		draw(screen, r, display->white, nil, ZP);
 77 b3994ec5 2003-12-11 devnull 		r1 = r;
 78 033c6013 2005-05-02 devnull 		r1.max.x = min(x-Border, r.max.x-50);
 79 b3994ec5 2003-12-11 devnull 		if(Dx(r1) < 50)
 80 b3994ec5 2003-12-11 devnull 			r1.max.x = r1.min.x+50;
 81 b3994ec5 2003-12-11 devnull 		colresize(d, r1);
 82 b3994ec5 2003-12-11 devnull 		r1.min.x = r1.max.x;
 83 b3994ec5 2003-12-11 devnull 		r1.max.x = r1.min.x+Border;
 84 b3994ec5 2003-12-11 devnull 		draw(screen, r1, display->black, nil, ZP);
 85 b3994ec5 2003-12-11 devnull 		r.min.x = r1.max.x;
 86 b3994ec5 2003-12-11 devnull 	}
 87 b3994ec5 2003-12-11 devnull 	if(c == nil){
 88 b3994ec5 2003-12-11 devnull 		c = emalloc(sizeof(Column));
 89 b3994ec5 2003-12-11 devnull 		colinit(c, r);
 90 b3994ec5 2003-12-11 devnull 		incref(&reffont.ref);
 91 b3994ec5 2003-12-11 devnull 	}else
 92 b3994ec5 2003-12-11 devnull 		colresize(c, r);
 93 b3994ec5 2003-12-11 devnull 	c->row = row;
 94 b3994ec5 2003-12-11 devnull 	c->tag.row = row;
 95 b3994ec5 2003-12-11 devnull 	row->col = realloc(row->col, (row->ncol+1)*sizeof(Column*));
 96 b3994ec5 2003-12-11 devnull 	memmove(row->col+i+1, row->col+i, (row->ncol-i)*sizeof(Column*));
 97 b3994ec5 2003-12-11 devnull 	row->col[i] = c;
 98 b3994ec5 2003-12-11 devnull 	row->ncol++;
 99 b3994ec5 2003-12-11 devnull 	clearmouse();
100 b3994ec5 2003-12-11 devnull 	return c;
101 b3994ec5 2003-12-11 devnull }
102 b3994ec5 2003-12-11 devnull 
103 b3994ec5 2003-12-11 devnull void
104 b3994ec5 2003-12-11 devnull rowresize(Row *row, Rectangle r)
105 b3994ec5 2003-12-11 devnull {
106 220c15d2 2012-10-20 rsc 	int i, deltax;
107 a208917e 2010-08-24 rsc 	Rectangle or, r1, r2;
108 b3994ec5 2003-12-11 devnull 	Column *c;
109 b3994ec5 2003-12-11 devnull 
110 a208917e 2010-08-24 rsc 	or = row->r;
111 a208917e 2010-08-24 rsc 	deltax = r.min.x - or.min.x;
112 b3994ec5 2003-12-11 devnull 	row->r = r;
113 b3994ec5 2003-12-11 devnull 	r1 = r;
114 b3994ec5 2003-12-11 devnull 	r1.max.y = r1.min.y + font->height;
115 33dc4226 2005-10-31 devnull 	textresize(&row->tag, r1, TRUE);
116 b3994ec5 2003-12-11 devnull 	r1.min.y = r1.max.y;
117 b3994ec5 2003-12-11 devnull 	r1.max.y += Border;
118 b3994ec5 2003-12-11 devnull 	draw(screen, r1, display->black, nil, ZP);
119 b3994ec5 2003-12-11 devnull 	r.min.y = r1.max.y;
120 b3994ec5 2003-12-11 devnull 	r1 = r;
121 b3994ec5 2003-12-11 devnull 	r1.max.x = r1.min.x;
122 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
123 b3994ec5 2003-12-11 devnull 		c = row->col[i];
124 b3994ec5 2003-12-11 devnull 		r1.min.x = r1.max.x;
125 a208917e 2010-08-24 rsc 		/* the test should not be necessary, but guarantee we don't lose a pixel */
126 b3994ec5 2003-12-11 devnull 		if(i == row->ncol-1)
127 b3994ec5 2003-12-11 devnull 			r1.max.x = r.max.x;
128 b3994ec5 2003-12-11 devnull 		else
129 a208917e 2010-08-24 rsc 			r1.max.x = (c->r.max.x-or.min.x)*Dx(r)/Dx(or) + deltax;
130 b3994ec5 2003-12-11 devnull 		if(i > 0){
131 b3994ec5 2003-12-11 devnull 			r2 = r1;
132 b3994ec5 2003-12-11 devnull 			r2.max.x = r2.min.x+Border;
133 b3994ec5 2003-12-11 devnull 			draw(screen, r2, display->black, nil, ZP);
134 b3994ec5 2003-12-11 devnull 			r1.min.x = r2.max.x;
135 b3994ec5 2003-12-11 devnull 		}
136 b3994ec5 2003-12-11 devnull 		colresize(c, r1);
137 b3994ec5 2003-12-11 devnull 	}
138 b3994ec5 2003-12-11 devnull }
139 b3994ec5 2003-12-11 devnull 
140 b3994ec5 2003-12-11 devnull void
141 b3994ec5 2003-12-11 devnull rowdragcol(Row *row, Column *c, int _0)
142 b3994ec5 2003-12-11 devnull {
143 b3994ec5 2003-12-11 devnull 	Rectangle r;
144 b3994ec5 2003-12-11 devnull 	int i, b, x;
145 b3994ec5 2003-12-11 devnull 	Point p, op;
146 b3994ec5 2003-12-11 devnull 	Column *d;
147 b3994ec5 2003-12-11 devnull 
148 b3994ec5 2003-12-11 devnull 	USED(_0);
149 b3994ec5 2003-12-11 devnull 
150 b3994ec5 2003-12-11 devnull 	clearmouse();
151 b3994ec5 2003-12-11 devnull 	setcursor(mousectl, &boxcursor);
152 b3994ec5 2003-12-11 devnull 	b = mouse->buttons;
153 b3994ec5 2003-12-11 devnull 	op = mouse->xy;
154 b3994ec5 2003-12-11 devnull 	while(mouse->buttons == b)
155 b3994ec5 2003-12-11 devnull 		readmouse(mousectl);
156 b3994ec5 2003-12-11 devnull 	setcursor(mousectl, nil);
157 b3994ec5 2003-12-11 devnull 	if(mouse->buttons){
158 b3994ec5 2003-12-11 devnull 		while(mouse->buttons)
159 b3994ec5 2003-12-11 devnull 			readmouse(mousectl);
160 b3994ec5 2003-12-11 devnull 		return;
161 b3994ec5 2003-12-11 devnull 	}
162 b3994ec5 2003-12-11 devnull 
163 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++)
164 b3994ec5 2003-12-11 devnull 		if(row->col[i] == c)
165 b3994ec5 2003-12-11 devnull 			goto Found;
166 b3994ec5 2003-12-11 devnull 	error("can't find column");
167 b3994ec5 2003-12-11 devnull 
168 b3994ec5 2003-12-11 devnull   Found:
169 b3994ec5 2003-12-11 devnull 	p = mouse->xy;
170 b3994ec5 2003-12-11 devnull 	if((abs(p.x-op.x)<5 && abs(p.y-op.y)<5))
171 b3994ec5 2003-12-11 devnull 		return;
172 b3994ec5 2003-12-11 devnull 	if((i>0 && p.x<row->col[i-1]->r.min.x) || (i<row->ncol-1 && p.x>c->r.max.x)){
173 b3994ec5 2003-12-11 devnull 		/* shuffle */
174 b3994ec5 2003-12-11 devnull 		x = c->r.min.x;
175 b3994ec5 2003-12-11 devnull 		rowclose(row, c, FALSE);
176 b3994ec5 2003-12-11 devnull 		if(rowadd(row, c, p.x) == nil)	/* whoops! */
177 b3994ec5 2003-12-11 devnull 		if(rowadd(row, c, x) == nil)		/* WHOOPS! */
178 b3994ec5 2003-12-11 devnull 		if(rowadd(row, c, -1)==nil){		/* shit! */
179 b3994ec5 2003-12-11 devnull 			rowclose(row, c, TRUE);
180 b3994ec5 2003-12-11 devnull 			return;
181 b3994ec5 2003-12-11 devnull 		}
182 b3994ec5 2003-12-11 devnull 		colmousebut(c);
183 b3994ec5 2003-12-11 devnull 		return;
184 b3994ec5 2003-12-11 devnull 	}
185 9ec61f3e 2007-04-25 devnull 	if(i == 0)
186 9ec61f3e 2007-04-25 devnull 		return;
187 b3994ec5 2003-12-11 devnull 	d = row->col[i-1];
188 b3994ec5 2003-12-11 devnull 	if(p.x < d->r.min.x+80+Scrollwid)
189 b3994ec5 2003-12-11 devnull 		p.x = d->r.min.x+80+Scrollwid;
190 b3994ec5 2003-12-11 devnull 	if(p.x > c->r.max.x-80-Scrollwid)
191 b3994ec5 2003-12-11 devnull 		p.x = c->r.max.x-80-Scrollwid;
192 b3994ec5 2003-12-11 devnull 	r = d->r;
193 b3994ec5 2003-12-11 devnull 	r.max.x = c->r.max.x;
194 b3994ec5 2003-12-11 devnull 	draw(screen, r, display->white, nil, ZP);
195 b3994ec5 2003-12-11 devnull 	r.max.x = p.x;
196 b3994ec5 2003-12-11 devnull 	colresize(d, r);
197 b3994ec5 2003-12-11 devnull 	r = c->r;
198 b3994ec5 2003-12-11 devnull 	r.min.x = p.x;
199 b3994ec5 2003-12-11 devnull 	r.max.x = r.min.x;
200 b3994ec5 2003-12-11 devnull 	r.max.x += Border;
201 b3994ec5 2003-12-11 devnull 	draw(screen, r, display->black, nil, ZP);
202 b3994ec5 2003-12-11 devnull 	r.min.x = r.max.x;
203 b3994ec5 2003-12-11 devnull 	r.max.x = c->r.max.x;
204 b3994ec5 2003-12-11 devnull 	colresize(c, r);
205 b3994ec5 2003-12-11 devnull 	colmousebut(c);
206 b3994ec5 2003-12-11 devnull }
207 b3994ec5 2003-12-11 devnull 
208 b3994ec5 2003-12-11 devnull void
209 b3994ec5 2003-12-11 devnull rowclose(Row *row, Column *c, int dofree)
210 b3994ec5 2003-12-11 devnull {
211 b3994ec5 2003-12-11 devnull 	Rectangle r;
212 b3994ec5 2003-12-11 devnull 	int i;
213 b3994ec5 2003-12-11 devnull 
214 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++)
215 b3994ec5 2003-12-11 devnull 		if(row->col[i] == c)
216 b3994ec5 2003-12-11 devnull 			goto Found;
217 b3994ec5 2003-12-11 devnull 	error("can't find column");
218 b3994ec5 2003-12-11 devnull   Found:
219 b3994ec5 2003-12-11 devnull 	r = c->r;
220 b3994ec5 2003-12-11 devnull 	if(dofree)
221 b3994ec5 2003-12-11 devnull 		colcloseall(c);
222 b3994ec5 2003-12-11 devnull 	row->ncol--;
223 a2db69c8 2008-03-07 rsc 	memmove(row->col+i, row->col+i+1, (row->ncol-i)*sizeof(Column*));
224 b3994ec5 2003-12-11 devnull 	row->col = realloc(row->col, row->ncol*sizeof(Column*));
225 b3994ec5 2003-12-11 devnull 	if(row->ncol == 0){
226 b3994ec5 2003-12-11 devnull 		draw(screen, r, display->white, nil, ZP);
227 b3994ec5 2003-12-11 devnull 		return;
228 b3994ec5 2003-12-11 devnull 	}
229 b3994ec5 2003-12-11 devnull 	if(i == row->ncol){		/* extend last column right */
230 b3994ec5 2003-12-11 devnull 		c = row->col[i-1];
231 b3994ec5 2003-12-11 devnull 		r.min.x = c->r.min.x;
232 b3994ec5 2003-12-11 devnull 		r.max.x = row->r.max.x;
233 b3994ec5 2003-12-11 devnull 	}else{			/* extend next window left */
234 b3994ec5 2003-12-11 devnull 		c = row->col[i];
235 b3994ec5 2003-12-11 devnull 		r.max.x = c->r.max.x;
236 b3994ec5 2003-12-11 devnull 	}
237 b3994ec5 2003-12-11 devnull 	draw(screen, r, display->white, nil, ZP);
238 b3994ec5 2003-12-11 devnull 	colresize(c, r);
239 b3994ec5 2003-12-11 devnull }
240 b3994ec5 2003-12-11 devnull 
241 b3994ec5 2003-12-11 devnull Column*
242 b3994ec5 2003-12-11 devnull rowwhichcol(Row *row, Point p)
243 b3994ec5 2003-12-11 devnull {
244 b3994ec5 2003-12-11 devnull 	int i;
245 b3994ec5 2003-12-11 devnull 	Column *c;
246 b3994ec5 2003-12-11 devnull 
247 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
248 b3994ec5 2003-12-11 devnull 		c = row->col[i];
249 b3994ec5 2003-12-11 devnull 		if(ptinrect(p, c->r))
250 b3994ec5 2003-12-11 devnull 			return c;
251 b3994ec5 2003-12-11 devnull 	}
252 b3994ec5 2003-12-11 devnull 	return nil;
253 b3994ec5 2003-12-11 devnull }
254 b3994ec5 2003-12-11 devnull 
255 b3994ec5 2003-12-11 devnull Text*
256 b3994ec5 2003-12-11 devnull rowwhich(Row *row, Point p)
257 b3994ec5 2003-12-11 devnull {
258 b3994ec5 2003-12-11 devnull 	Column *c;
259 b3994ec5 2003-12-11 devnull 
260 b3994ec5 2003-12-11 devnull 	if(ptinrect(p, row->tag.all))
261 b3994ec5 2003-12-11 devnull 		return &row->tag;
262 b3994ec5 2003-12-11 devnull 	c = rowwhichcol(row, p);
263 b3994ec5 2003-12-11 devnull 	if(c)
264 b3994ec5 2003-12-11 devnull 		return colwhich(c, p);
265 b3994ec5 2003-12-11 devnull 	return nil;
266 b3994ec5 2003-12-11 devnull }
267 b3994ec5 2003-12-11 devnull 
268 b3994ec5 2003-12-11 devnull Text*
269 b3994ec5 2003-12-11 devnull rowtype(Row *row, Rune r, Point p)
270 b3994ec5 2003-12-11 devnull {
271 b3994ec5 2003-12-11 devnull 	Window *w;
272 b3994ec5 2003-12-11 devnull 	Text *t;
273 b3994ec5 2003-12-11 devnull 
274 e6c837d6 2009-07-15 rsc 	if(r == 0)
275 e6c837d6 2009-07-15 rsc 		r = Runeerror;
276 e6c837d6 2009-07-15 rsc 
277 b3994ec5 2003-12-11 devnull 	clearmouse();
278 b3994ec5 2003-12-11 devnull 	qlock(&row->lk);
279 b3994ec5 2003-12-11 devnull 	if(bartflag)
280 b3994ec5 2003-12-11 devnull 		t = barttext;
281 b3994ec5 2003-12-11 devnull 	else
282 b3994ec5 2003-12-11 devnull 		t = rowwhich(row, p);
283 b3994ec5 2003-12-11 devnull 	if(t!=nil && !(t->what==Tag && ptinrect(p, t->scrollr))){
284 b3994ec5 2003-12-11 devnull 		w = t->w;
285 b3994ec5 2003-12-11 devnull 		if(w == nil)
286 b3994ec5 2003-12-11 devnull 			texttype(t, r);
287 b3994ec5 2003-12-11 devnull 		else{
288 b3994ec5 2003-12-11 devnull 			winlock(w, 'K');
289 b3994ec5 2003-12-11 devnull 			wintype(w, t, r);
290 a2db69c8 2008-03-07 rsc 			/* Expand tag if necessary */
291 f8dea3c1 2005-12-16 devnull 			if(t->what == Tag){
292 f8dea3c1 2005-12-16 devnull 				t->w->tagsafe = FALSE;
293 f8dea3c1 2005-12-16 devnull 				if(r == '\n')
294 f8dea3c1 2005-12-16 devnull 					t->w->tagexpand = TRUE;
295 f8dea3c1 2005-12-16 devnull 				winresize(w, w->r, TRUE, TRUE);
296 f8dea3c1 2005-12-16 devnull 			}
297 b3994ec5 2003-12-11 devnull 			winunlock(w);
298 b3994ec5 2003-12-11 devnull 		}
299 b3994ec5 2003-12-11 devnull 	}
300 b3994ec5 2003-12-11 devnull 	qunlock(&row->lk);
301 b3994ec5 2003-12-11 devnull 	return t;
302 b3994ec5 2003-12-11 devnull }
303 b3994ec5 2003-12-11 devnull 
304 b3994ec5 2003-12-11 devnull int
305 b3994ec5 2003-12-11 devnull rowclean(Row *row)
306 b3994ec5 2003-12-11 devnull {
307 b3994ec5 2003-12-11 devnull 	int clean;
308 b3994ec5 2003-12-11 devnull 	int i;
309 b3994ec5 2003-12-11 devnull 
310 b3994ec5 2003-12-11 devnull 	clean = TRUE;
311 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++)
312 b3994ec5 2003-12-11 devnull 		clean &= colclean(row->col[i]);
313 b3994ec5 2003-12-11 devnull 	return clean;
314 b3994ec5 2003-12-11 devnull }
315 b3994ec5 2003-12-11 devnull 
316 b3994ec5 2003-12-11 devnull void
317 b3994ec5 2003-12-11 devnull rowdump(Row *row, char *file)
318 b3994ec5 2003-12-11 devnull {
319 b3994ec5 2003-12-11 devnull 	int i, j, fd, m, n, dumped;
320 b3994ec5 2003-12-11 devnull 	uint q0, q1;
321 b3994ec5 2003-12-11 devnull 	Biobuf *b;
322 b3994ec5 2003-12-11 devnull 	char *buf, *a, *fontname;
323 a2db69c8 2008-03-07 rsc 	Rune *r;
324 b3994ec5 2003-12-11 devnull 	Column *c;
325 b3994ec5 2003-12-11 devnull 	Window *w, *w1;
326 b3994ec5 2003-12-11 devnull 	Text *t;
327 b3994ec5 2003-12-11 devnull 
328 b3994ec5 2003-12-11 devnull 	if(row->ncol == 0)
329 b3994ec5 2003-12-11 devnull 		return;
330 b3994ec5 2003-12-11 devnull 	buf = fbufalloc();
331 b3994ec5 2003-12-11 devnull 	if(file == nil){
332 b3994ec5 2003-12-11 devnull 		if(home == nil){
333 b3994ec5 2003-12-11 devnull 			warning(nil, "can't find file for dump: $home not defined\n");
334 b3994ec5 2003-12-11 devnull 			goto Rescue;
335 b3994ec5 2003-12-11 devnull 		}
336 b3994ec5 2003-12-11 devnull 		sprint(buf, "%s/acme.dump", home);
337 b3994ec5 2003-12-11 devnull 		file = buf;
338 b3994ec5 2003-12-11 devnull 	}
339 b3994ec5 2003-12-11 devnull 	fd = create(file, OWRITE, 0600);
340 b3994ec5 2003-12-11 devnull 	if(fd < 0){
341 b3994ec5 2003-12-11 devnull 		warning(nil, "can't open %s: %r\n", file);
342 b3994ec5 2003-12-11 devnull 		goto Rescue;
343 b3994ec5 2003-12-11 devnull 	}
344 b3994ec5 2003-12-11 devnull 	b = emalloc(sizeof(Biobuf));
345 b3994ec5 2003-12-11 devnull 	Binit(b, fd, OWRITE);
346 b3994ec5 2003-12-11 devnull 	r = fbufalloc();
347 b3994ec5 2003-12-11 devnull 	Bprint(b, "%s\n", wdir);
348 b3994ec5 2003-12-11 devnull 	Bprint(b, "%s\n", fontnames[0]);
349 b3994ec5 2003-12-11 devnull 	Bprint(b, "%s\n", fontnames[1]);
350 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
351 b3994ec5 2003-12-11 devnull 		c = row->col[i];
352 0fdffa38 2005-01-14 devnull 		Bprint(b, "%11.7f", 100.0*(c->r.min.x-row->r.min.x)/Dx(row->r));
353 b3994ec5 2003-12-11 devnull 		if(i == row->ncol-1)
354 b3994ec5 2003-12-11 devnull 			Bputc(b, '\n');
355 b3994ec5 2003-12-11 devnull 		else
356 b3994ec5 2003-12-11 devnull 			Bputc(b, ' ');
357 b3994ec5 2003-12-11 devnull 	}
358 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
359 b3994ec5 2003-12-11 devnull 		c = row->col[i];
360 b3994ec5 2003-12-11 devnull 		for(j=0; j<c->nw; j++)
361 b3994ec5 2003-12-11 devnull 			c->w[j]->body.file->dumpid = 0;
362 611cf11c 2008-07-20 devnull 	}
363 611cf11c 2008-07-20 devnull 	m = min(RBUFSIZE, row->tag.file->b.nc);
364 611cf11c 2008-07-20 devnull 	bufread(&row->tag.file->b, 0, r, m);
365 611cf11c 2008-07-20 devnull 	n = 0;
366 611cf11c 2008-07-20 devnull 	while(n<m && r[n]!='\n')
367 611cf11c 2008-07-20 devnull 		n++;
368 611cf11c 2008-07-20 devnull 	Bprint(b, "w %.*S\n", n, r);
369 611cf11c 2008-07-20 devnull 	for(i=0; i<row->ncol; i++){
370 611cf11c 2008-07-20 devnull 		c = row->col[i];
371 611cf11c 2008-07-20 devnull 		m = min(RBUFSIZE, c->tag.file->b.nc);
372 611cf11c 2008-07-20 devnull 		bufread(&c->tag.file->b, 0, r, m);
373 611cf11c 2008-07-20 devnull 		n = 0;
374 611cf11c 2008-07-20 devnull 		while(n<m && r[n]!='\n')
375 611cf11c 2008-07-20 devnull 			n++;
376 611cf11c 2008-07-20 devnull 		Bprint(b, "c%11d %.*S\n", i, n, r);
377 b3994ec5 2003-12-11 devnull 	}
378 b3994ec5 2003-12-11 devnull 	for(i=0; i<row->ncol; i++){
379 b3994ec5 2003-12-11 devnull 		c = row->col[i];
380 b3994ec5 2003-12-11 devnull 		for(j=0; j<c->nw; j++){
381 b3994ec5 2003-12-11 devnull 			w = c->w[j];
382 b3994ec5 2003-12-11 devnull 			wincommit(w, &w->tag);
383 b3994ec5 2003-12-11 devnull 			t = &w->body;
384 b3994ec5 2003-12-11 devnull 			/* windows owned by others get special treatment */
385 b3994ec5 2003-12-11 devnull 			if(w->nopen[QWevent] > 0)
386 b3994ec5 2003-12-11 devnull 				if(w->dumpstr == nil)
387 b3994ec5 2003-12-11 devnull 					continue;
388 b3994ec5 2003-12-11 devnull 			/* zeroxes of external windows are tossed */
389 b3994ec5 2003-12-11 devnull 			if(t->file->ntext > 1)
390 b3994ec5 2003-12-11 devnull 				for(n=0; n<t->file->ntext; n++){
391 b3994ec5 2003-12-11 devnull 					w1 = t->file->text[n]->w;
392 b3994ec5 2003-12-11 devnull 					if(w == w1)
393 b3994ec5 2003-12-11 devnull 						continue;
394 b3994ec5 2003-12-11 devnull 					if(w1->nopen[QWevent])
395 b3994ec5 2003-12-11 devnull 						goto Continue2;
396 b3994ec5 2003-12-11 devnull 				}
397 b3994ec5 2003-12-11 devnull 			fontname = "";
398 b3994ec5 2003-12-11 devnull 			if(t->reffont->f != font)
399 b3994ec5 2003-12-11 devnull 				fontname = t->reffont->f->name;
400 b3994ec5 2003-12-11 devnull 			if(t->file->nname)
401 b3994ec5 2003-12-11 devnull 				a = runetobyte(t->file->name, t->file->nname);
402 b3994ec5 2003-12-11 devnull 			else
403 b3994ec5 2003-12-11 devnull 				a = emalloc(1);
404 b3994ec5 2003-12-11 devnull 			if(t->file->dumpid){
405 b3994ec5 2003-12-11 devnull 				dumped = FALSE;
406 0fdffa38 2005-01-14 devnull 				Bprint(b, "x%11d %11d %11d %11d %11.7f %s\n", i, t->file->dumpid,
407 b3994ec5 2003-12-11 devnull 					w->body.q0, w->body.q1,
408 78e51a8c 2005-01-14 devnull 					100.0*(w->r.min.y-c->r.min.y)/Dy(c->r),
409 b3994ec5 2003-12-11 devnull 					fontname);
410 b3994ec5 2003-12-11 devnull 			}else if(w->dumpstr){
411 b3994ec5 2003-12-11 devnull 				dumped = FALSE;
412 0fdffa38 2005-01-14 devnull 				Bprint(b, "e%11d %11d %11d %11d %11.7f %s\n", i, t->file->dumpid,
413 b3994ec5 2003-12-11 devnull 					0, 0,
414 78e51a8c 2005-01-14 devnull 					100.0*(w->r.min.y-c->r.min.y)/Dy(c->r),
415 b3994ec5 2003-12-11 devnull 					fontname);
416 b3994ec5 2003-12-11 devnull 			}else if((w->dirty==FALSE && access(a, 0)==0) || w->isdir){
417 b3994ec5 2003-12-11 devnull 				dumped = FALSE;
418 b3994ec5 2003-12-11 devnull 				t->file->dumpid = w->id;
419 0fdffa38 2005-01-14 devnull 				Bprint(b, "f%11d %11d %11d %11d %11.7f %s\n", i, w->id,
420 b3994ec5 2003-12-11 devnull 					w->body.q0, w->body.q1,
421 78e51a8c 2005-01-14 devnull 					100.0*(w->r.min.y-c->r.min.y)/Dy(c->r),
422 b3994ec5 2003-12-11 devnull 					fontname);
423 b3994ec5 2003-12-11 devnull 			}else{
424 b3994ec5 2003-12-11 devnull 				dumped = TRUE;
425 b3994ec5 2003-12-11 devnull 				t->file->dumpid = w->id;
426 5bae51dd 2005-01-27 devnull 				Bprint(b, "F%11d %11d %11d %11d %11.7f %11d %s\n", i, j,
427 b3994ec5 2003-12-11 devnull 					w->body.q0, w->body.q1,
428 78e51a8c 2005-01-14 devnull 					100.0*(w->r.min.y-c->r.min.y)/Dy(c->r),
429 b3994ec5 2003-12-11 devnull 					w->body.file->b.nc, fontname);
430 b3994ec5 2003-12-11 devnull 			}
431 b3994ec5 2003-12-11 devnull 			free(a);
432 b3994ec5 2003-12-11 devnull 			winctlprint(w, buf, 0);
433 b3994ec5 2003-12-11 devnull 			Bwrite(b, buf, strlen(buf));
434 b3994ec5 2003-12-11 devnull 			m = min(RBUFSIZE, w->tag.file->b.nc);
435 b3994ec5 2003-12-11 devnull 			bufread(&w->tag.file->b, 0, r, m);
436 de1168dd 2006-03-21 devnull 			n = 0;
437 a2db69c8 2008-03-07 rsc 			while(n<m && r[n]!='\n')
438 b3994ec5 2003-12-11 devnull 				n++;
439 a2db69c8 2008-03-07 rsc 			Bprint(b, "%.*S\n", n, r);
440 b3994ec5 2003-12-11 devnull 			if(dumped){
441 b3994ec5 2003-12-11 devnull 				q0 = 0;
442 b3994ec5 2003-12-11 devnull 				q1 = t->file->b.nc;
443 b3994ec5 2003-12-11 devnull 				while(q0 < q1){
444 b3994ec5 2003-12-11 devnull 					n = q1 - q0;
445 b3994ec5 2003-12-11 devnull 					if(n > BUFSIZE/UTFmax)
446 b3994ec5 2003-12-11 devnull 						n = BUFSIZE/UTFmax;
447 b3994ec5 2003-12-11 devnull 					bufread(&t->file->b, q0, r, n);
448 b3994ec5 2003-12-11 devnull 					Bprint(b, "%.*S", n, r);
449 b3994ec5 2003-12-11 devnull 					q0 += n;
450 b3994ec5 2003-12-11 devnull 				}
451 b3994ec5 2003-12-11 devnull 			}
452 b3994ec5 2003-12-11 devnull 			if(w->dumpstr){
453 b3994ec5 2003-12-11 devnull 				if(w->dumpdir)
454 b3994ec5 2003-12-11 devnull 					Bprint(b, "%s\n%s\n", w->dumpdir, w->dumpstr);
455 b3994ec5 2003-12-11 devnull 				else
456 b3994ec5 2003-12-11 devnull 					Bprint(b, "\n%s\n", w->dumpstr);
457 b3994ec5 2003-12-11 devnull 			}
458 b3994ec5 2003-12-11 devnull     Continue2:;
459 b3994ec5 2003-12-11 devnull 		}
460 b3994ec5 2003-12-11 devnull 	}
461 b3994ec5 2003-12-11 devnull 	Bterm(b);
462 b3994ec5 2003-12-11 devnull 	close(fd);
463 b3994ec5 2003-12-11 devnull 	free(b);
464 b3994ec5 2003-12-11 devnull 	fbuffree(r);
465 b3994ec5 2003-12-11 devnull 
466 b3994ec5 2003-12-11 devnull    Rescue:
467 b3994ec5 2003-12-11 devnull 	fbuffree(buf);
468 b3994ec5 2003-12-11 devnull }
469 b3994ec5 2003-12-11 devnull 
470 b3994ec5 2003-12-11 devnull static
471 b3994ec5 2003-12-11 devnull char*
472 b3994ec5 2003-12-11 devnull rdline(Biobuf *b, int *linep)
473 b3994ec5 2003-12-11 devnull {
474 b3994ec5 2003-12-11 devnull 	char *l;
475 b3994ec5 2003-12-11 devnull 
476 b3994ec5 2003-12-11 devnull 	l = Brdline(b, '\n');
477 b3994ec5 2003-12-11 devnull 	if(l)
478 b3994ec5 2003-12-11 devnull 		(*linep)++;
479 b3994ec5 2003-12-11 devnull 	return l;
480 b3994ec5 2003-12-11 devnull }
481 b3994ec5 2003-12-11 devnull 
482 b3994ec5 2003-12-11 devnull /*
483 b3994ec5 2003-12-11 devnull  * Get font names from load file so we don't load fonts we won't use
484 b3994ec5 2003-12-11 devnull  */
485 b3994ec5 2003-12-11 devnull void
486 b3994ec5 2003-12-11 devnull rowloadfonts(char *file)
487 b3994ec5 2003-12-11 devnull {
488 b3994ec5 2003-12-11 devnull 	int i;
489 b3994ec5 2003-12-11 devnull 	Biobuf *b;
490 b3994ec5 2003-12-11 devnull 	char *l;
491 b3994ec5 2003-12-11 devnull 
492 b3994ec5 2003-12-11 devnull 	b = Bopen(file, OREAD);
493 b3994ec5 2003-12-11 devnull 	if(b == nil)
494 b3994ec5 2003-12-11 devnull 		return;
495 b3994ec5 2003-12-11 devnull 	/* current directory */
496 b3994ec5 2003-12-11 devnull 	l = Brdline(b, '\n');
497 b3994ec5 2003-12-11 devnull 	if(l == nil)
498 b3994ec5 2003-12-11 devnull 		goto Return;
499 b3994ec5 2003-12-11 devnull 	/* global fonts */
500 b3994ec5 2003-12-11 devnull 	for(i=0; i<2; i++){
501 b3994ec5 2003-12-11 devnull 		l = Brdline(b, '\n');
502 b3994ec5 2003-12-11 devnull 		if(l == nil)
503 b3994ec5 2003-12-11 devnull 			goto Return;
504 b3994ec5 2003-12-11 devnull 		l[Blinelen(b)-1] = 0;
505 6d7fdb24 2004-12-27 devnull 		if(*l && strcmp(l, fontnames[i])!=0){
506 6d7fdb24 2004-12-27 devnull 			free(fontnames[i]);
507 b3994ec5 2003-12-11 devnull 			fontnames[i] = estrdup(l);
508 6d7fdb24 2004-12-27 devnull 		}
509 b3994ec5 2003-12-11 devnull 	}
510 b3994ec5 2003-12-11 devnull     Return:
511 b3994ec5 2003-12-11 devnull 	Bterm(b);
512 b3994ec5 2003-12-11 devnull }
513 b3994ec5 2003-12-11 devnull 
514 6d7fdb24 2004-12-27 devnull int
515 b3994ec5 2003-12-11 devnull rowload(Row *row, char *file, int initing)
516 b3994ec5 2003-12-11 devnull {
517 611cf11c 2008-07-20 devnull 	int i, j, line, y, nr, nfontr, n, ns, ndumped, dumpid, x, fd, done;
518 23aada89 2005-01-14 devnull 	double percent;
519 b3994ec5 2003-12-11 devnull 	Biobuf *b, *bout;
520 b3994ec5 2003-12-11 devnull 	char *buf, *l, *t, *fontname;
521 77ac3583 2009-06-09 rsc 	Rune *r, *fontr;
522 77ac3583 2009-06-09 rsc 	int rune;
523 b3994ec5 2003-12-11 devnull 	Column *c, *c1, *c2;
524 b3994ec5 2003-12-11 devnull 	uint q0, q1;
525 b3994ec5 2003-12-11 devnull 	Rectangle r1, r2;
526 b3994ec5 2003-12-11 devnull 	Window *w;
527 b3994ec5 2003-12-11 devnull 
528 b3994ec5 2003-12-11 devnull 	buf = fbufalloc();
529 b3994ec5 2003-12-11 devnull 	if(file == nil){
530 b3994ec5 2003-12-11 devnull 		if(home == nil){
531 b3994ec5 2003-12-11 devnull 			warning(nil, "can't find file for load: $home not defined\n");
532 b3994ec5 2003-12-11 devnull 			goto Rescue1;
533 b3994ec5 2003-12-11 devnull 		}
534 b3994ec5 2003-12-11 devnull 		sprint(buf, "%s/acme.dump", home);
535 b3994ec5 2003-12-11 devnull 		file = buf;
536 b3994ec5 2003-12-11 devnull 	}
537 b3994ec5 2003-12-11 devnull 	b = Bopen(file, OREAD);
538 b3994ec5 2003-12-11 devnull 	if(b == nil){
539 b3994ec5 2003-12-11 devnull 		warning(nil, "can't open load file %s: %r\n", file);
540 b3994ec5 2003-12-11 devnull 		goto Rescue1;
541 b3994ec5 2003-12-11 devnull 	}
542 b3994ec5 2003-12-11 devnull 	/* current directory */
543 b3994ec5 2003-12-11 devnull 	line = 0;
544 b3994ec5 2003-12-11 devnull 	l = rdline(b, &line);
545 b3994ec5 2003-12-11 devnull 	if(l == nil)
546 b3994ec5 2003-12-11 devnull 		goto Rescue2;
547 b3994ec5 2003-12-11 devnull 	l[Blinelen(b)-1] = 0;
548 b3994ec5 2003-12-11 devnull 	if(chdir(l) < 0){
549 b3994ec5 2003-12-11 devnull 		warning(nil, "can't chdir %s\n", l);
550 b3994ec5 2003-12-11 devnull 		goto Rescue2;
551 b3994ec5 2003-12-11 devnull 	}
552 b3994ec5 2003-12-11 devnull 	/* global fonts */
553 b3994ec5 2003-12-11 devnull 	for(i=0; i<2; i++){
554 b3994ec5 2003-12-11 devnull 		l = rdline(b, &line);
555 b3994ec5 2003-12-11 devnull 		if(l == nil)
556 b3994ec5 2003-12-11 devnull 			goto Rescue2;
557 b3994ec5 2003-12-11 devnull 		l[Blinelen(b)-1] = 0;
558 b3994ec5 2003-12-11 devnull 		if(*l && strcmp(l, fontnames[i])!=0)
559 6d7fdb24 2004-12-27 devnull 			rfget(i, TRUE, i==0 && initing, l);
560 b3994ec5 2003-12-11 devnull 	}
561 b3994ec5 2003-12-11 devnull 	if(initing && row->ncol==0)
562 b3994ec5 2003-12-11 devnull 		rowinit(row, screen->clipr);
563 b3994ec5 2003-12-11 devnull 	l = rdline(b, &line);
564 b3994ec5 2003-12-11 devnull 	if(l == nil)
565 b3994ec5 2003-12-11 devnull 		goto Rescue2;
566 b3994ec5 2003-12-11 devnull 	j = Blinelen(b)/12;
567 b3994ec5 2003-12-11 devnull 	if(j<=0 || j>10)
568 b3994ec5 2003-12-11 devnull 		goto Rescue2;
569 b3994ec5 2003-12-11 devnull 	for(i=0; i<j; i++){
570 23aada89 2005-01-14 devnull 		percent = atof(l+i*12);
571 b3994ec5 2003-12-11 devnull 		if(percent<0 || percent>=100)
572 b3994ec5 2003-12-11 devnull 			goto Rescue2;
573 0fdffa38 2005-01-14 devnull 		x = row->r.min.x+percent*Dx(row->r)/100+0.5;
574 b3994ec5 2003-12-11 devnull 		if(i < row->ncol){
575 b3994ec5 2003-12-11 devnull 			if(i == 0)
576 b3994ec5 2003-12-11 devnull 				continue;
577 b3994ec5 2003-12-11 devnull 			c1 = row->col[i-1];
578 b3994ec5 2003-12-11 devnull 			c2 = row->col[i];
579 b3994ec5 2003-12-11 devnull 			r1 = c1->r;
580 b3994ec5 2003-12-11 devnull 			r2 = c2->r;
581 033c6013 2005-05-02 devnull 			if(x<Border)
582 033c6013 2005-05-02 devnull 				x = Border;
583 033c6013 2005-05-02 devnull 			r1.max.x = x-Border;
584 033c6013 2005-05-02 devnull 			r2.min.x = x;
585 b3994ec5 2003-12-11 devnull 			if(Dx(r1) < 50 || Dx(r2) < 50)
586 b3994ec5 2003-12-11 devnull 				continue;
587 b3994ec5 2003-12-11 devnull 			draw(screen, Rpt(r1.min, r2.max), display->white, nil, ZP);
588 b3994ec5 2003-12-11 devnull 			colresize(c1, r1);
589 b3994ec5 2003-12-11 devnull 			colresize(c2, r2);
590 033c6013 2005-05-02 devnull 			r2.min.x = x-Border;
591 033c6013 2005-05-02 devnull 			r2.max.x = x;
592 b3994ec5 2003-12-11 devnull 			draw(screen, r2, display->black, nil, ZP);
593 b3994ec5 2003-12-11 devnull 		}
594 b3994ec5 2003-12-11 devnull 		if(i >= row->ncol)
595 b3994ec5 2003-12-11 devnull 			rowadd(row, nil, x);
596 b3994ec5 2003-12-11 devnull 	}
597 611cf11c 2008-07-20 devnull 	done = 0;
598 611cf11c 2008-07-20 devnull 	while(!done){
599 b3994ec5 2003-12-11 devnull 		l = rdline(b, &line);
600 b3994ec5 2003-12-11 devnull 		if(l == nil)
601 b3994ec5 2003-12-11 devnull 			break;
602 611cf11c 2008-07-20 devnull 		switch(l[0]){
603 611cf11c 2008-07-20 devnull 		case 'c':
604 611cf11c 2008-07-20 devnull 			l[Blinelen(b)-1] = 0;
605 611cf11c 2008-07-20 devnull 			i = atoi(l+1+0*12);
606 611cf11c 2008-07-20 devnull 			r = bytetorune(l+1*12, &nr);
607 611cf11c 2008-07-20 devnull 			ns = -1;
608 611cf11c 2008-07-20 devnull 			for(n=0; n<nr; n++){
609 611cf11c 2008-07-20 devnull 				if(r[n] == '/')
610 611cf11c 2008-07-20 devnull 					ns = n;
611 611cf11c 2008-07-20 devnull 				if(r[n] == ' ')
612 611cf11c 2008-07-20 devnull 					break;
613 611cf11c 2008-07-20 devnull 			}
614 611cf11c 2008-07-20 devnull 			textdelete(&row->col[i]->tag, 0, row->col[i]->tag.file->b.nc, TRUE);
615 611cf11c 2008-07-20 devnull 			textinsert(&row->col[i]->tag, 0, r+n+1, nr-(n+1), TRUE);
616 611cf11c 2008-07-20 devnull 			break;
617 611cf11c 2008-07-20 devnull 		case 'w':
618 611cf11c 2008-07-20 devnull 			l[Blinelen(b)-1] = 0;
619 611cf11c 2008-07-20 devnull 			r = bytetorune(l+2, &nr);
620 611cf11c 2008-07-20 devnull 			ns = -1;
621 611cf11c 2008-07-20 devnull 			for(n=0; n<nr; n++){
622 611cf11c 2008-07-20 devnull 				if(r[n] == '/')
623 611cf11c 2008-07-20 devnull 					ns = n;
624 611cf11c 2008-07-20 devnull 				if(r[n] == ' ')
625 611cf11c 2008-07-20 devnull 					break;
626 611cf11c 2008-07-20 devnull 			}
627 611cf11c 2008-07-20 devnull 			textdelete(&row->tag, 0, row->tag.file->b.nc, TRUE);
628 611cf11c 2008-07-20 devnull 			textinsert(&row->tag, 0, r, nr, TRUE);
629 611cf11c 2008-07-20 devnull 			break;
630 611cf11c 2008-07-20 devnull 		default:
631 611cf11c 2008-07-20 devnull 			done = 1;
632 611cf11c 2008-07-20 devnull 			break;
633 611cf11c 2008-07-20 devnull 		}
634 611cf11c 2008-07-20 devnull 	}
635 611cf11c 2008-07-20 devnull 	for(;;){
636 63479cfb 2009-11-30 rsc 		if(l == nil)
637 63479cfb 2009-11-30 rsc 			break;
638 b3994ec5 2003-12-11 devnull 		dumpid = 0;
639 b3994ec5 2003-12-11 devnull 		switch(l[0]){
640 b3994ec5 2003-12-11 devnull 		case 'e':
641 b3994ec5 2003-12-11 devnull 			if(Blinelen(b) < 1+5*12+1)
642 b3994ec5 2003-12-11 devnull 				goto Rescue2;
643 b3994ec5 2003-12-11 devnull 			l = rdline(b, &line);	/* ctl line; ignored */
644 b3994ec5 2003-12-11 devnull 			if(l == nil)
645 b3994ec5 2003-12-11 devnull 				goto Rescue2;
646 b3994ec5 2003-12-11 devnull 			l = rdline(b, &line);	/* directory */
647 b3994ec5 2003-12-11 devnull 			if(l == nil)
648 b3994ec5 2003-12-11 devnull 				goto Rescue2;
649 b3994ec5 2003-12-11 devnull 			l[Blinelen(b)-1] = 0;
650 b3994ec5 2003-12-11 devnull 			if(*l == '\0'){
651 b3994ec5 2003-12-11 devnull 				if(home == nil)
652 b3994ec5 2003-12-11 devnull 					r = bytetorune("./", &nr);
653 b3994ec5 2003-12-11 devnull 				else{
654 b3994ec5 2003-12-11 devnull 					t = emalloc(strlen(home)+1+1);
655 b3994ec5 2003-12-11 devnull 					sprint(t, "%s/", home);
656 b3994ec5 2003-12-11 devnull 					r = bytetorune(t, &nr);
657 b3994ec5 2003-12-11 devnull 					free(t);
658 b3994ec5 2003-12-11 devnull 				}
659 b3994ec5 2003-12-11 devnull 			}else
660 b3994ec5 2003-12-11 devnull 				r = bytetorune(l, &nr);
661 b3994ec5 2003-12-11 devnull 			l = rdline(b, &line);	/* command */
662 b3994ec5 2003-12-11 devnull 			if(l == nil)
663 b3994ec5 2003-12-11 devnull 				goto Rescue2;
664 b3994ec5 2003-12-11 devnull 			t = emalloc(Blinelen(b)+1);
665 b3994ec5 2003-12-11 devnull 			memmove(t, l, Blinelen(b));
666 b3994ec5 2003-12-11 devnull 			run(nil, t, r, nr, TRUE, nil, nil, FALSE);
667 b3994ec5 2003-12-11 devnull 			/* r is freed in run() */
668 cb53addf 2008-12-07 rsc 			goto Nextline;
669 b3994ec5 2003-12-11 devnull 		case 'f':
670 b3994ec5 2003-12-11 devnull 			if(Blinelen(b) < 1+5*12+1)
671 b3994ec5 2003-12-11 devnull 				goto Rescue2;
672 b3994ec5 2003-12-11 devnull 			fontname = l+1+5*12;
673 b3994ec5 2003-12-11 devnull 			ndumped = -1;
674 b3994ec5 2003-12-11 devnull 			break;
675 b3994ec5 2003-12-11 devnull 		case 'F':
676 b3994ec5 2003-12-11 devnull 			if(Blinelen(b) < 1+6*12+1)
677 b3994ec5 2003-12-11 devnull 				goto Rescue2;
678 b3994ec5 2003-12-11 devnull 			fontname = l+1+6*12;
679 b3994ec5 2003-12-11 devnull 			ndumped = atoi(l+1+5*12+1);
680 b3994ec5 2003-12-11 devnull 			break;
681 b3994ec5 2003-12-11 devnull 		case 'x':
682 b3994ec5 2003-12-11 devnull 			if(Blinelen(b) < 1+5*12+1)
683 b3994ec5 2003-12-11 devnull 				goto Rescue2;
684 b3994ec5 2003-12-11 devnull 			fontname = l+1+5*12;
685 b3994ec5 2003-12-11 devnull 			ndumped = -1;
686 b3994ec5 2003-12-11 devnull 			dumpid = atoi(l+1+1*12);
687 b3994ec5 2003-12-11 devnull 			break;
688 b3994ec5 2003-12-11 devnull 		default:
689 b3994ec5 2003-12-11 devnull 			goto Rescue2;
690 b3994ec5 2003-12-11 devnull 		}
691 b3994ec5 2003-12-11 devnull 		l[Blinelen(b)-1] = 0;
692 b3994ec5 2003-12-11 devnull 		fontr = nil;
693 b3994ec5 2003-12-11 devnull 		nfontr = 0;
694 b3994ec5 2003-12-11 devnull 		if(*fontname)
695 b3994ec5 2003-12-11 devnull 			fontr = bytetorune(fontname, &nfontr);
696 b3994ec5 2003-12-11 devnull 		i = atoi(l+1+0*12);
697 b3994ec5 2003-12-11 devnull 		j = atoi(l+1+1*12);
698 b3994ec5 2003-12-11 devnull 		q0 = atoi(l+1+2*12);
699 b3994ec5 2003-12-11 devnull 		q1 = atoi(l+1+3*12);
700 23aada89 2005-01-14 devnull 		percent = atof(l+1+4*12);
701 b3994ec5 2003-12-11 devnull 		if(i<0 || i>10)
702 b3994ec5 2003-12-11 devnull 			goto Rescue2;
703 b3994ec5 2003-12-11 devnull 		if(i > row->ncol)
704 b3994ec5 2003-12-11 devnull 			i = row->ncol;
705 b3994ec5 2003-12-11 devnull 		c = row->col[i];
706 0fdffa38 2005-01-14 devnull 		y = c->r.min.y+(percent*Dy(c->r))/100+0.5;
707 b3994ec5 2003-12-11 devnull 		if(y<c->r.min.y || y>=c->r.max.y)
708 b3994ec5 2003-12-11 devnull 			y = -1;
709 b3994ec5 2003-12-11 devnull 		if(dumpid == 0)
710 b3994ec5 2003-12-11 devnull 			w = coladd(c, nil, nil, y);
711 b3994ec5 2003-12-11 devnull 		else
712 b3994ec5 2003-12-11 devnull 			w = coladd(c, nil, lookid(dumpid, TRUE), y);
713 b3994ec5 2003-12-11 devnull 		if(w == nil)
714 cb53addf 2008-12-07 rsc 			goto Nextline;
715 b3994ec5 2003-12-11 devnull 		w->dumpid = j;
716 b3994ec5 2003-12-11 devnull 		l = rdline(b, &line);
717 b3994ec5 2003-12-11 devnull 		if(l == nil)
718 b3994ec5 2003-12-11 devnull 			goto Rescue2;
719 b3994ec5 2003-12-11 devnull 		l[Blinelen(b)-1] = 0;
720 b3994ec5 2003-12-11 devnull 		r = bytetorune(l+5*12, &nr);
721 b3994ec5 2003-12-11 devnull 		ns = -1;
722 b3994ec5 2003-12-11 devnull 		for(n=0; n<nr; n++){
723 b3994ec5 2003-12-11 devnull 			if(r[n] == '/')
724 b3994ec5 2003-12-11 devnull 				ns = n;
725 b3994ec5 2003-12-11 devnull 			if(r[n] == ' ')
726 b3994ec5 2003-12-11 devnull 				break;
727 b3994ec5 2003-12-11 devnull 		}
728 b3994ec5 2003-12-11 devnull 		if(dumpid == 0)
729 b3994ec5 2003-12-11 devnull 			winsetname(w, r, n);
730 b3994ec5 2003-12-11 devnull 		for(; n<nr; n++)
731 b3994ec5 2003-12-11 devnull 			if(r[n] == '|')
732 b3994ec5 2003-12-11 devnull 				break;
733 b3994ec5 2003-12-11 devnull 		wincleartag(w);
734 b3994ec5 2003-12-11 devnull 		textinsert(&w->tag, w->tag.file->b.nc, r+n+1, nr-(n+1), TRUE);
735 b3994ec5 2003-12-11 devnull 		if(ndumped >= 0){
736 b3994ec5 2003-12-11 devnull 			/* simplest thing is to put it in a file and load that */
737 b3994ec5 2003-12-11 devnull 			sprint(buf, "/tmp/d%d.%.4sacme", getpid(), getuser());
738 97e85ebf 2005-01-27 devnull 			fd = create(buf, OWRITE, 0600);
739 b3994ec5 2003-12-11 devnull 			if(fd < 0){
740 1a8f27c3 2004-05-14 devnull 				free(r);
741 b3994ec5 2003-12-11 devnull 				warning(nil, "can't create temp file: %r\n");
742 b3994ec5 2003-12-11 devnull 				goto Rescue2;
743 b3994ec5 2003-12-11 devnull 			}
744 b3994ec5 2003-12-11 devnull 			bout = emalloc(sizeof(Biobuf));
745 b3994ec5 2003-12-11 devnull 			Binit(bout, fd, OWRITE);
746 b3994ec5 2003-12-11 devnull 			for(n=0; n<ndumped; n++){
747 b3994ec5 2003-12-11 devnull 				rune = Bgetrune(b);
748 b3994ec5 2003-12-11 devnull 				if(rune == '\n')
749 b3994ec5 2003-12-11 devnull 					line++;
750 77ac3583 2009-06-09 rsc 				if(rune == Beof){
751 1a8f27c3 2004-05-14 devnull 					free(r);
752 b3994ec5 2003-12-11 devnull 					Bterm(bout);
753 b3994ec5 2003-12-11 devnull 					free(bout);
754 b3994ec5 2003-12-11 devnull 					close(fd);
755 a2db69c8 2008-03-07 rsc 					remove(buf);
756 b3994ec5 2003-12-11 devnull 					goto Rescue2;
757 b3994ec5 2003-12-11 devnull 				}
758 b3994ec5 2003-12-11 devnull 				Bputrune(bout, rune);
759 b3994ec5 2003-12-11 devnull 			}
760 b3994ec5 2003-12-11 devnull 			Bterm(bout);
761 b3994ec5 2003-12-11 devnull 			free(bout);
762 b3994ec5 2003-12-11 devnull 			textload(&w->body, 0, buf, 1);
763 97e85ebf 2005-01-27 devnull 			remove(buf);
764 b3994ec5 2003-12-11 devnull 			close(fd);
765 b3994ec5 2003-12-11 devnull 			w->body.file->mod = TRUE;
766 b3994ec5 2003-12-11 devnull 			for(n=0; n<w->body.file->ntext; n++)
767 b3994ec5 2003-12-11 devnull 				w->body.file->text[n]->w->dirty = TRUE;
768 b3994ec5 2003-12-11 devnull 			winsettag(w);
769 b3994ec5 2003-12-11 devnull 		}else if(dumpid==0 && r[ns+1]!='+' && r[ns+1]!='-')
770 b3994ec5 2003-12-11 devnull 			get(&w->body, nil, nil, FALSE, XXX, nil, 0);
771 b3994ec5 2003-12-11 devnull 		if(fontr){
772 b3994ec5 2003-12-11 devnull 			fontx(&w->body, nil, nil, 0, 0, fontr, nfontr);
773 b3994ec5 2003-12-11 devnull 			free(fontr);
774 b3994ec5 2003-12-11 devnull 		}
775 6d7fdb24 2004-12-27 devnull 		free(r);
776 b3994ec5 2003-12-11 devnull 		if(q0>w->body.file->b.nc || q1>w->body.file->b.nc || q0>q1)
777 b3994ec5 2003-12-11 devnull 			q0 = q1 = 0;
778 b3994ec5 2003-12-11 devnull 		textshow(&w->body, q0, q1, 1);
779 b3994ec5 2003-12-11 devnull 		w->maxlines = min(w->body.fr.nlines, max(w->maxlines, w->body.fr.maxlines));
780 4a3fb872 2014-04-30 rsc 		xfidlog(w, "new");
781 cb53addf 2008-12-07 rsc Nextline:
782 611cf11c 2008-07-20 devnull 		l = rdline(b, &line);
783 b3994ec5 2003-12-11 devnull 	}
784 b3994ec5 2003-12-11 devnull 	Bterm(b);
785 b3994ec5 2003-12-11 devnull 	fbuffree(buf);
786 6d7fdb24 2004-12-27 devnull 	return TRUE;
787 b3994ec5 2003-12-11 devnull 
788 b3994ec5 2003-12-11 devnull Rescue2:
789 b3994ec5 2003-12-11 devnull 	warning(nil, "bad load file %s:%d\n", file, line);
790 b3994ec5 2003-12-11 devnull 	Bterm(b);
791 6d7fdb24 2004-12-27 devnull Rescue1:
792 6d7fdb24 2004-12-27 devnull 	fbuffree(buf);
793 6d7fdb24 2004-12-27 devnull 	return FALSE;
794 b3994ec5 2003-12-11 devnull }
795 b3994ec5 2003-12-11 devnull 
796 b3994ec5 2003-12-11 devnull void
797 b3994ec5 2003-12-11 devnull allwindows(void (*f)(Window*, void*), void *arg)
798 b3994ec5 2003-12-11 devnull {
799 b3994ec5 2003-12-11 devnull 	int i, j;
800 b3994ec5 2003-12-11 devnull 	Column *c;
801 b3994ec5 2003-12-11 devnull 
802 b3994ec5 2003-12-11 devnull 	for(i=0; i<row.ncol; i++){
803 b3994ec5 2003-12-11 devnull 		c = row.col[i];
804 b3994ec5 2003-12-11 devnull 		for(j=0; j<c->nw; j++)
805 b3994ec5 2003-12-11 devnull 			(*f)(c->w[j], arg);
806 b3994ec5 2003-12-11 devnull 	}
807 b3994ec5 2003-12-11 devnull }